/**********************   COMMENTS   ***********************************/
/*                                                                     */             
/* IF YOU RECEIVED DME FILES BEFORE JANUARY 2009 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 @01 REGCASE $char10.        */
/* For non-cancer files, Patient Identifier is @01 HICBIC $char11.     */
/*                                                                     */
/***********************************************************************/

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

/***********************************************************************/
/*                                                                                                                                                                                                                                                                               */                     
/* Please Note: If you are using PC SAS to read in these files you     */
/* will have to un-zip the files first and use the un-zipped filename  */
/* statement, rather than using the zipped files and statement.        */
/*                                                                                                                                                                                                                                                                               */                                             
/***********************************************************************/

*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*/
*filename dmein pipe 'gunzip -c /directory/dme*.txt.gz';        /*using wildcard to match multiple files */

options nocenter validvarname=upcase;

data dme;
  infile dmein lrecl=330 missover pad;
  input  @001  patient_id  $char11.
         /*@001  REGCASE    $char10.*/ /*ID for Cancer Patients*/
         /*@001  HICBIC     $char11.*/ /*ID for Non Cancer Patients*/
         @012  bic         $char2.
         @014  state_cd    $char2.
         @016  cnty_cd     $char3.
         @019  bene_zip    $char9.
         @028  ms_cd       $char2.
         @030  clm_type    $char2.       /*New in 2008 linkage*/
         @032  from_dtm    $char2.
         @034  from_dtd    $char2.
         @036  from_dty    $char4.
         @040  thru_dtm    $char2.
         @042  thru_dtd    $char2.
         @044  thru_dty    $char4.
         @048  fi_num      $char5.
         @053  entry_cd    $char1.
         @054  pmtdnlcd    $char1.
         @055  asgmntcd    $char1.
         @056  ord_upin    $char6.
         @072  hcfaspec    $char2.
         @074  prtcptg     $char1.
         @075  proindcd    $char1.
         @076  pay80cd     $char1.
         @077  dedind      $char1.
         @078  payindcd    $char1.
         @079  mtuscnt     8.     
         @087  mtusind     $char1.
         @088  hcpcs       $char5.
         @093  mfrcd1      $char2.
         @095  mfrcd2      $char2.
         @097  mfrcd3      $char2.
         @099  mfrcd4      $char2.
         @101  submamt     15.2
         @116  alowamt     15.2
         @131  hcfatype    $char1.
         @132  plcsrvc     $char2.
         @134  frexpenm    $char2.
         @136  frexpend    $char2.
         @138  frexpeny    $char4.
         @142  lsexpenm    $char2.
         @144  lsexpend    $char2.
         @146  lsexpeny    $char4.
         @150  srvc_cnt    4.
         @154  linediag    $char5.
         @159  linepmt     15.2
         @174  ldedamt     15.2
         @189  lprpayat    15.2
         @204  lprpaycd    $char1.
         @205  lintamt     15.2
         @220  sup_type    $char1.
         @221  suplrnum    $char10.  /*New in 2008 linkage*/
         @241  prstate     $char2.   /*New in 2008 linkage*/                
         @243  betos       $char3.
         @246  ndc_cd      $char11.
         @257  docindcd    $char1.
         @258  dgnscd1     $char5.
         @263  dgnscd2     $char5.
         @268  dgnscd3     $char5.
         @273  dgnscd4     $char5.
         @278  dgnscd5     $char5.
         @283  dgnscd6     $char5.
         @288  dgnscd7     $char5.
         @293  dgnscd8     $char5.
         @298  year        $char4.
         @302  link_num    10.
         @312  daily_dtm   $char2.
         @314  daily_dtd   $char2.
         @316  daily_dty   $char4.
         @324  tot_line    $char3.
         @327  rec_count   $char3.   
         ;

label
  patient_id= 'Patient ID'
  /*regcase   = 'SEER Registry Case Number'*/
  /*HICBIC    = 'Non Cancer Patient ID'*/
  bic       = '8 - Beneficiary Identification 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'
  link_num  = '19 - NCH Segment Link Number'
  tot_line  = '22 - Claim Total Line Count'
  entry_cd  = '25 - Carrier Claim Entry Code'
  cnty_cd   = '30 - Beneficiary Residence SSA Standard County Code'
  fi_num    = '34 - Carrier Number'
  bene_zip  = '37 - Beneficiary Mailing Contact ZIP Code (Special Permission Required)'
  ms_cd     = '41 - CWF Beneficiary Medicare Status 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'
  dgnscd5   = '92 - Claim Diagnosis Code #5'
  dgnscd6   = '92 - Claim Diagnosis Code #6'
  dgnscd7   = '92 - Claim Diagnosis Code #7'
  dgnscd8   = '92 - Claim Diagnosis Code #8'
  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'
  suplrnum  = '95 - DMERC Line Supplier Provider Number'
  prstate   = '98 - DMERC Line Provider State Code'
  clm_type  = '5 - NCH Claim Type Code'
  pmtdnlcd  = '48 - Carrier Claim Payment Denial Code'
  asgmntcd  = '55 - Carrier Claim Provider Assignment Indicator Switch'
  year      = 'Claim Year'
      ;

run;

proc contents data=dme position;
run;