/**********************   COMMENTS   ***********************************/
/*                                                                     */             
/* IF YOU RECEIVED DME FILES BEFORE JANUARY 2006 THEN YOU WILL         */
/* NEED A DIFFERENT INPUT STATEMENT. PLEASE CONTACT ANGELA MEEKINS VIA */
/* E-MAIL MEEKINSA@IMSWEB.COM AND AN INPUT STATEMENT WILL BE SENT TO   */
/* YOU.                                                                */
/***********************************************************************/
/*                                                                     */
/* For cancer files, Patient Identifier is @03 REGCASE $char10.        */
/* For non-cancer files, Patient Identifier is @03 HICBIC $char11.     */
/*                                                                     */
/***********************************************************************/

/***************   IMPORTANT PROGRAMING NOTES   ************************/
/*               TO IDENTIFY CLAIMS PER PATIENT                        */
/*                                                                     */     
/* Unlike HHA, Hospice and Outpatient, DME and NCH use only the link   */
/* number (column 320) and REGCASE/HICBIC to identify a claim for each */
/* patient.                                                            */
/*                                                                     */
/***********************************************************************/


*filename dmein  '/directory/dme98.txt';                        /*reading in an un-zipped file*/
filename dmein pipe 'gunzip -c /directory/dme98.txt.gz';        /*reading in a zipped file*/

options nocenter validvarname=upcase;

data dme;
  infile dmein lrecl=341 missover pad;
  input  @1   ric_cd     $char1.
               @2   rec_lvl    $char1.
               @3   regcase    $char10.
               /*@3   HICBIC     $char11.*/   /*Non Cancer ID*/
               @14  bic        $char2.
               @16  state_cd   $char2.
               @18  cnty_cd    $char3.
               @21  st_sgmt    $char1.
               @22  bene_zip   $char9.  /**************Special Permission Required************************/
               @31  sex        $char1.
               @32  race       $char1.
               @41  ms_cd      $char2.
               @43  daily_dtm  $char2.
               @45  daily_dtd  $char2.
               @47  daily_dty  $char4.
               @51  from_dtm   $char2.
               @53  from_dtd   $char2.
               @55  from_dty   $char4.
               @59  thru_dtm   $char2.
               @61  thru_dtd   $char2.
               @63  thru_dty   $char4.
               @67  cwfloccd   $char1.
               @68  acrtn_dtm  $char2.
               @70  acrtn_dtd  $char2.
               @72  acrtn_dty  $char4.
               @76  acrtn_nm   4.
               @80  disp_cd    $char2.
               @82  fi_num     $char5.
               @102 rcpt_dtm   $char2.
               @104 rcpt_dtd   $char2.
               @106 rcpt_dty   $char4.
               @110 schl_dtm   $char2.
               @112 schl_dtd   $char2.
               @114 schl_dty   $char4.
               @118 entry_cd   $char1.
               @119 pmtdnlcd   $char1.
               @120 asgmntcd   $char1.
               @121 ord_upin   $char6.
               @127 hcfaspec   $char2.
               @129 prtcptg    $char1.
               @130 proindcd   $char1.
               @131 pay80cd    $char1.
               @132 dedind     $char1.
               @133 payindcd   $char1.
               @134 mtuscnt    8.         
               @142 mtusind    $char1.
               @143 hcpcs      $char5.
               @148 mfrcd1     $char2.
               @150 mfrcd2     $char2.
               @152 mfrcd3     $char2.
               @154 mfrcd4     $char2.
               @156 submamt    15.2
               @171 alowamt    15.2
               @192 hcfatype   $char1.
               @193 plcsrvc    $char2.
               @195 frexpenm   $char2.
               @197 frexpend   $char2.
               @199 frexpeny   $char4.
               @203 lsexpenm   $char2.
               @205 lsexpend   $char2.
               @207 lsexpeny   $char4.
               @211 srvc_cnt   4.
               @215 linediag   $char5.
               @220 linepmt    15.2
               @235 ldedamt    15.2
               @250 lprpayat   15.2
               @265 lprpaycd   $char1.
               @266 lintamt    15.2
               @281 docindcd   $char1.
               @282 dgnscd1    $char5.
               @287 dgnscd2    $char5.
               @292 dgnscd3    $char5.
               @297 dgnscd4    $char5.
               @302 betos      $char3.
               @305 ndc_cd     $char11.
               @316 year       $char4.
               @320 link_num   $char10.       /*use link number to identify a claim*/
               @330 tot_seg    $char2.
               @332 seg_num    $char2.
               @334 tot_line   $char3.  
               @337 sup_type   $char1. 
               @338 rec_count  $char3.
               @341 filler     $char1.
               ;


label
  regcase   = 'SEER Registry Case Number'
  /*HICBIC    = 'Non Cancer Patient ID'*/
  rec_lvl   = '2 - NCH Near-Line Record Version Code'
  ric_cd    = '3 - NCH Near Line Record Identification Code'
  bic       = '8 - Beneficiary Identification Code'
  st_sgmt   = '9 - NCH State Segment Code'
  state_cd  = '10 - Beneficiary Residence SSA Standard State Code'
  from_dty  = '11 - Claim From Year'
  from_dtm  = '11 - Claim From Month'
  from_dtd  = '11 - Claim From Day'
  thru_dty  = '12 - Claim Through Year'
  thru_dtm  = '12 - Claim Through Month'
  thru_dtd  = '12 - Claim Through Day'
  daily_dty = '18 - NCH Daily Processing Year'
  daily_dtm = '18 - NCH Daily Processing Month'
  daily_dtd = '18 - NCH Daily Processing Day'
  acrtn_dty = '14 - CWF Claim Accretion Year'
  acrtn_dtm = '14 - CWF Claim Accretion Month'
  acrtn_dtd = '14 - CWF Claim Accretion Day'
  acrtn_nm  = '15 - CWF Claim Accretion Number'
  link_num  = '19 - NCH Segment Link Number'
  tot_seg   = '20 - Claim Total Segment Count'
  seg_num   = '21 - Claim Segment Number'
  tot_line  = '22 - Claim Total Line Count'
  entry_cd  = '25 - Carrier Claim Entry Code'
  disp_cd   = '27 - Claim Disposition Code'
  cnty_cd   = '30 - Beneficiary Residence SSA Standard County Code'
  rcpt_dty  = '31 - Carrier Claim Receipt Year'
  rcpt_dtm  = '31 - Carrier Claim Receipt Month'
  rcpt_dtd  = '31 - Carrier Claim Receipt Day'
  schl_dty  = '32 - Carrier Claim Scheduled Payment Year'
  schl_dtm  = '32 - Carrier Claim Scheduled Payment Month'
  schl_dtd  = '32 - Carrier Claim Scheduled Payment Day'
  fi_num    = '34 - Carrier Number'
  bene_zip  = '37 - Beneficiary Mailing Contact ZIP Code (Special Permission Required)'
  sex       = '38 - Beneficiary Sex Identivication Code'
  race      = '39 - Beneficiary Race Code'
  ms_cd     = '41 - CWF Beneficiary Medicare Status Code'
  cwfloccd  = '45 - Beneficiary CWF Location Code' 
  pmtdnlcd  = '48 - Carrier Claim Payment Denial Code'
  ord_upin  = '53 - DMERC Claim Ordering Physician UPIN Number'
  asgmntcd  = '55 - Carrier Claim Provider Assignment Indicator Switch'
  dgnscd1   = '92 - Claim Diagnosis Code #1'
  dgnscd2   = '92 - Claim Diagnosis Code #2'
  dgnscd3   = '92 - Claim Diagnosis Code #3'
  dgnscd4   = '92 - Claim Diagnosis Code #4'
  sup_type  = '99 - DMERC Line Supplier Type Code'
  hcfaspec  = '101- Line HCFA Provider Specialty Code'
  prtcptg   = '102- Line Provider Participating Indicator Code'
  srvc_cnt  = '103- Line Service Count'
  hcfatype  = '104- Line HCFA Type Service Code'
  plcsrvc   = '105- Line Place of Service Code'
  frexpeny  = '106- Line First Expense Year'
  frexpenm  = '106- Line First Expense Month'
  frexpend  = '106- Line First Expense Day'
  lsexpeny  = '107- Line Last Expense Year'
  lsexpenm  = '107- Line Last Expense Month'
  lsexpend  = '107- Line Last Expense Day'
  hcpcs     = '108- Line HCPCS Code'
  mfrcd1    = '109- Line HCPCS Initial Modifier Code'
  mfrcd2    = '110- Line HCPCS Second Modifier Code'
  mfrcd3    = '111- DMERC Line HCPCS Third Modifier Code'
  mfrcd4    = '112- DMERC Line HCPCS Fourth Modifier Code'
  betos     = '113- Line NCH Betos Code'
  ndc_cd    = '116- Line National Drug Code'
  linepmt   = '117- Line NCH Payment Amount'
  ldedamt   = '120- Line Beneficiary Part B Deductible Amount'
  lprpaycd  = '121- Line Beneficiary Primay Payer Code'
  lprpayat  = '122- Line Beneficiary Primay Payer Paid Amount'
  lintamt   = '124- Line Interest Amount'
  submamt   = '127- Line Submitted Charge Amount'
  alowamt   = '128- Line Allowed Charge Amount'
  proindcd  = '131- Line Processing Indicator Code'
  pay80cd   = '132- Line Payment 80%/100% Code'
  dedind    = '133- Line Service deductible indicator Switch'
  payindcd  = '134- Line Payment Indicator Code'
  mtuscnt   = '135- DMERC Line Miles/Time/Units/Services Count'
  mtusind   = '136- DMERC Line Miles/Time/Units/Services Indicator Code'
  linediag  = '137- Line Diagnosis Code'
  docindcd  = '139- Line Additional Claim Documentation Indicator Code'
  rec_count = 'Record Count for Claim'
      ;

run;

proc contents data=dme position;
run;