/*Published: 12/31/2012*/

/**************************   COMMENTS   *******************************/
/* THIS INPUT STATMENT IS FOR THE 2012 SEER-MEDICARE LINKAGE.          */
/* IF YOU RECEIVED DME FILES BEFORE DECEMBER 2012 THEN YOU WILL        */
/* NEED A DIFFERENT INPUT STATEMENT. PLEASE CONTACT IMS VIA E-MAIL AT  */
/* SEER-MEDICARE@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 422) and Patient ID to identify a claim for each     */
/* patient.                                                            */
/*                                                                     */
/***********************************************************************/

/***********************************************************************/
/* 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/dme10.txt';                   /*reading in an un-zipped file*/
filename dmein pipe 'gunzip -c /directory/dme10.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=624 missover pad;
  input
    @001  patient_id    $char11. /* Patient ID (for either Cancer or Non-Cancer Patients) */
 /* @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.  /*****Special Permission Required*****/
    @028  ms_cd         $char2.
    @030  clm_type      $char2.
    @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.
    @062  ord_npi       $char10.
    @072  hcfaspec      $char2.
    @074  prtcptg       $char1.
    @075  proindcd      $char2.  /* formatted $char1. in 2010 Linkage */
    @077  pay80cd       $char1.
    @078  dedind        $char1.
    @079  payindcd      $char1.
    @080  mtuscnt       12.3     /* formatted 8. in 2010 Linkage */
    @092  mtusind       $char1.
    @093  hcpcs         $char5.
    @098  mf1           $char2.  /* named MFRCD1 in 2010 Linkage */
    @100  mf2           $char2.  /* named MFRCD2 in 2010 Linkage */
    @102  mf3           $char2.  /* named MFRCD3 in 2010 Linkage */
    @104  mf4           $char2.  /* named MFRCD4 in 2010 Linkage */
    @106  lsubmamt      15.2     /* named SUBMAMT in 2010 Linkage */
    @121  lalowamt      15.2     /* named ALOWAMT in 2010 Linkage */
    @136  hcfatype      $char1.
    @137  plcsrvc       $char2.
    @139  frexpenm      $char2.
    @141  frexpend      $char2.
    @143  frexpeny      $char4.
    @147  lsexpenm      $char2.
    @149  lsexpend      $char2.
    @151  lsexpeny      $char4.
    @155  srvc_cnt      12.      /* formatted 4. in 2010 Linkage */
    @167  linediag      $char7.  /* formatted $char5. in 2010 Linkage */
    @174  linepmt       15.2
    @189  ldedamt       15.2
    @204  lprpayat      15.2
    @219  lprpaycd      $char1.
    @220  lbenpmt       15.2     /* new in 2012 Linkage */
    @235  lprvpmt       15.2     /* new in 2012 Linkage */
    @250  coinamt       15.2     /* new in 2012 Linkage */
    @265  lintamt       15.2
    @280  dedapply      15.2     /* new in 2012 Linkage */
    @295  prpayamt      15.2     /* new in 2012 Linkage */
    @310  pmt_amt       15.2     /* new in 2012 Linkage */
    @325  allowamt      15.2     /* new in 2012 Linkage */
    @340  sbmtamt       15.2     /* new in 2012 Linkage */
    @355  prov_pmt      15.2     /* new in 2012 Linkage */
    @370  prpyalow      15.2     /* new in 2012 Linkage */
    @385  hcpcs_yr      $char1.  /* new in 2012 Linkage */
    @386  sup_type      $char1.
    @387  suplrnum      $char10.
    @397  sup_npi       $char10.
    @407  prvstate      $char2.  /* named PRSTATE in 2010 Linkage */
    @409  ndc_cd        $char11.
    @420  clinecnt      $char2.  /* named TOT_LINE & formatted $char3. in 2010 Linkage */
    @422  link_num      $char10. /* formatted numeric in 2010 Linkage */
    @432  daily_dtm     $char2.
    @434  daily_dtd     $char2.
    @436  daily_dty     $char4.
    @440  pdgns_cd      $char7.  /* new in 2012 Linkage */
    @447  cdgncnt       $char2.  /* new in 2012 Linkage */
    @449  (dgn_cd1-dgn_cd12) ($char7.)  /* named DGNSCD#, formatted $char5., and only 8 codes in 2010 Linkage */
    @533  betos         $char3.
    @536  benepaid      15.2     /* new in 2012 Linkage */
    @551  acrtn_dtm     $char2.  /* new in 2012 Linkage */
    @553  acrtn_dtd     $char2.  /* new in 2012 Linkage */
    @555  acrtn_dty     $char4.  /* new in 2012 Linkage */
    @559  nchben_pmt    15.2     /* new in 2012 Linkage */
    @574  docindcd      $char1.
    @575  eq_bic        $char2.  /* new in 2012 Linkage */
    @577  clm_type2     $char2.  /* new in 2012 Linkage */
    @579  prov_liab     $char1.  /* new in 2012 Linkage */
    @580  dmepcamt      15.2     /* new in 2012 Linkage */
    @595  tax_num       $char10. /* new in 2012 Linkage */
    @605  price_cd      $char2.  /* new in 2012 Linkage */
    @607  prcngzip      $char9.  /* new in 2012 Linkage */
    @616  year          $char4.
    @620  rec_count     $char3.
    ;

  label
    patient_id ='Patient ID'
 /* regcase    = 'SEER Registry Case Number' */
 /* HICBIC     = 'Non-Cancer Patient ID' */
    bic        = '12 - Beneficiary Identification Code'
    state_cd   = '14 - Beneficiary Residence SSA Standard State Code'
    cnty_cd    = '35 - Beneficiary Residence SSA Standard County Code'
    bene_zip   = '42 - Beneficiary Mailing Contact ZIP Code'  /*****Special Permission Required*****/
    ms_cd      = '46 - CWF Beneficiary Medicare Status Code'
    clm_type   = '7 - NCH Claim Type Code'
    from_dtm   = '15 - Claim From Month'
    from_dtd   = '15 - Claim From Day'
    from_dty   = '15 - Claim From Year'
    thru_dtm   = '16 - Claim Through Month'
    thru_dtd   = '16 - Claim Through Day'
    thru_dty   = '16 - Claim Through Year'
    fi_num     = '39 - Carrier Number'
    entry_cd   = '30 - Carrier Claim Entry Code'
    pmtdnlcd   = '55 - Carrier Claim Payment Denial Code'
    asgmntcd   = '62 - Carrier Claim Provider Assignment Indicator Switch'
    ord_upin   = '60 - DMERC Claim Ordering Physician UPIN Number'
    ord_npi    = '61 - DMERC Claim Ordering Physician NPI Number'
    hcfaspec   = '117 - Line HCFA Provider Specialty Code'
    prtcptg    = '118 - Line Provider Participating Indicator Code'
    proindcd   = '147 - Line Processing Indicator Code'
    pay80cd    = '148 - Line Payment 80%/100% Code'
    dedind     = '149 - Line Service deductible indicator Switch'
    payindcd   = '150 - Line Payment Indicator Code'
    mtuscnt    = '151 - DMERC Line Miles/Time/Units/Services Count'
    mtusind    = '152 - DMERC Line Miles/Time/Units/Services Indicator Code'
    hcpcs      = '124 - Line HCPCS Code'
    mf1        = '125 - Line HCPCS Initial Modifier Code'
    mf2        = '126 - Line HCPCS Second Modifier Code'
    mf3        = '127 - DMERC Line HCPCS Third Modifier Code'
    mf4        = '128 - DMERC Line HCPCS Fourth Modifier Code'
    lsubmamt   = '143 - Line Submitted Charge Amount'
    lalowamt   = '144 - Line Allowed Charge Amount'
    hcfatype   = '120 - Line HCFA Type Service Code'
    plcsrvc    = '121 - Line Place of Service Code'
    frexpenm   = '122 - Line First Expense Month'
    frexpend   = '122 - Line First Expense Day'
    frexpeny   = '122 - Line First Expense Year'
    lsexpenm   = '123 - Line Last Expense Month'
    lsexpend   = '123 - Line Last Expense Day'
    lsexpeny   = '123 - Line Last Expense Year'
    srvc_cnt   = '119 - Line Service Count'
    linediag   = '155 - Line Diagnosis Code'
    linepmt    = '133 - Line NCH Payment Amount'
    ldedamt    = '136 - Line Beneficiary Part B Deductible Amount'
    lprpayat   = '138 - Line Beneficiary Primay Payer Paid Amount'
    lprpaycd   = '137 - Line Beneficiary Primay Payer Code'
    lbenpmt    = '134 - Line Beneficiary Payment Amount'
    lprvpmt    = '135 - Line Provider Payment Amount'
    coinamt    = '138 - Line Coinsurance Amount'
    lintamt    = '139 - Line Interest Amount'
    prpyalow   = '141 - Line Primary Payer Allowed Charge Amount'
    sup_type   = '115 - DMERC Line Supplier Type Code'
    suplrnum   = '109 - DMERC Line Supplier Provider Number'
    sup_npi    = '110 - DMERC Line Item Supplier NPI Number'
    prvstate   = '114 - DMERC Line Provider State Code'
    betos      = '129 - Line NCH Betos Code'
    ndc_cd     = '132 - Line National Drug Code'
    cdgncnt    = '81 - Claim Diagnosis Code Count'
    docindcd   = '156 - Line Additional Claim Documentation Indicator Code'
    dgn_cd1    = '106 - Claim Diagnosis Code #1'
    dgn_cd2    = '106 - Claim Diagnosis Code #2'
    dgn_cd3    = '106 - Claim Diagnosis Code #3'
    dgn_cd4    = '106 - Claim Diagnosis Code #4'
    dgn_cd5    = '106 - Claim Diagnosis Code #5'
    dgn_cd6    = '106 - Claim Diagnosis Code #6'
    dgn_cd7    = '106 - Claim Diagnosis Code #7'
    dgn_cd8    = '106 - Claim Diagnosis Code #8'
    dgn_cd9    = '106 - Claim Diagnosis Code #9'
    dgn_cd10   = '106 - Claim Diagnosis Code #10'
    dgn_cd11   = '106 - Claim Diagnosis Code #11'
    dgn_cd12   = '106 - Claim Diagnosis Code #12'
    year       = 'Year'
    link_num   = '23 - NCH Segment Link Number'
    daily_dtm  = '22 - NCH Daily Process Month'
    daily_dtd  = '22 - NCH Daily Process Day'
    daily_dty  = '22 - NCH Daily Process Year'
    pdgns_cd   = '53 - Principal Diagnosis Code'
    clinecnt   = '26 - Claim Total Line Count'
    benepaid   = '65 - Carrier Claim Beneficiary Paid Amount'
    dedapply   = '68 - Carrier Claim Cash Deductible Applied Amount'
    hcpcs_yr   = '69 - Carrier Claim HCPCS Year Code'
    prpayamt   = '58 - Carrier Claim Primary Payer Paid Amount'
    pmt_amt    = '57 - Claim Payment Amount'
    acrtn_dty  = '18 - CWF Claim Accretion Date Year'
    acrtn_dtm  = '18 - CWF Claim Accretion Date Month'
    acrtn_dtd  = '18 - CWF Claim Accretion Date Day'
    allowamt   = '67 - NCH Claim Allowed Charge Amount'
    sbmtamt    = '66 - NCH Carrier Claim Submitted Charge Amount'
    eq_bic     = '11 - NCH Category Equatable Beneficiary Identification Code'
    nchben_pmt = '64 - NCH Claim Beneficiary Payment Amount'
    prov_pmt   = '63 - NCH Claim Provider Payment Amount'
    clm_type2  = '7 - CLM Type (same as clm_type)'
    prov_liab  = '159 - Line Waiver Of Provider Liability Switch'
    dmepcamt   = '146 - Line DME Purchase Price Amount'
    tax_num    = '116 - Line Provider Tax Number'
    price_cd   = '111 - Line Pricing State Code'
    prcngzip   = '112 - Line Pricing Zip Code'
    rec_count  = 'Record Count for Claim'
    ;
run;

proc contents data=dme position;
run;