/* Published: 11/01/2018 */

/**************************   COMMENTS   *******************************/
/* THIS INPUT STATMENT IS FOR THE 2018 SEER-MEDICARE LINKAGE.          */
/* IF YOU RECEIVED DME FILES BEFORE NOVEMBER 2018 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                        */
/*                                                                     */
/* The Patient ID and Claim ID (column 634) should be used to identify */
/* all the records for each claim per patient.  Both are needed to     */
/* identify a claim.                                                   */

/***********************************************************************/
/* 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/dme16.txt';                   /*reading in an un-zipped file*/
filename dmein pipe 'gunzip -c /directory/dme16.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=644 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   CLM_TYPE    $char2.
    @014   EQ_BIC      $char2.
    @016   BIC         $char2.
    @018   STATE_CD    $char2.
    @020   FROM_DTM    $char2.
    @022   FROM_DTD    $char2.
    @024   FROM_DTY    $char4.
    @028   THRU_DTM    $char2.
    @030   THRU_DTD    $char2.
    @032   THRU_DTY    $char4.
    @036   ACRTN_DTM   $char2.
    @038   ACRTN_DTD   $char2.
    @040   ACRTN_DTY   $char4.
    @062   LINECNT     $char3.
    @065   ENTRY_CD    $char1.
    @066   CNTY_CD     $char3.
    @069   CARR_NUM    $char5.
    @074   BENE_ZIP    $char9.
    @083   MS_CD       $char2.
    @085   PDVRSNCD    $char1.
    @086   PDGNS_CD    $char7.
    @093   PMTDNLCD    $char2.
    @095   PMT_AMT     15.2
    @110   PRPAYAMT    15.2
    @125   ORD_UPIN    $char6.
    @131   ORD_NPI     $char10.
    @141   ASGMNTCD    $char1.
    @142   PROV_PMT    15.2
    @157   BENE_PMT    15.2
    @172   BENEPAID    15.2
    @187   SBMTCHRG    15.2
    @202   ALOWCHRG    15.2
    @217   DEDAPPLY    15.2
    @232   HCPCS_YR    $char1.
    @233   DDGNCNT     $char2.
    @235   (DVRSNCD1-DVRSNCD12)  ($char1.)
    @247   (DGNS_CD1-DGNS_CD12)  ($char7.)
    @331   SUPLRNUM    $char10.
    @341   SUP_NPI     $char10.
    @351   PRCNG_ST    $char2.
    @353   PRCNGZIP    $char9.
    @362   PRVSTATE    $char2.
    @364   SUP_TYPE    $char1.
    @365   TAX_NUM     $char10.
    @375   HCFASPCL    $char2.
    @377   PRTCPTG     $char1.
    @378   SRVC_CNT    12.3
    @390   TYPSRVCB    $char1.
    @391   PLCSRVC     $char2.
    @393   EXPNSDT1M   $char2.
    @395   EXPNSDT1D   $char2.
    @397   EXPNSDT1Y   $char4.
    @401   EXPNSDT2M   $char2.
    @403   EXPNSDT2D   $char2.
    @405   EXPNSDT2Y   $char4.
    @409   HCPCS_CD    $char5.
    @414   MDFR_CD1    $char2.
    @416   MDFR_CD2    $char2.
    @418   MDFR_CD3    $char2.
    @420   MDFR_CD4    $char2.
    @422   NDC_CD      $char11.
    @433   LINEPMT     15.2
    @448   LBENPMT     15.2
    @463   LPRVPMT     15.2
    @478   LDEDAMT     15.2
    @493   LPRPAYCD    $char1.
    @494   LPRPDAMT    15.2
    @509   COINAMT     15.2
    @524   LINT_AMT    15.2
    @539   PRPYALOW    15.2
    @554   LSBMTCHG    15.2
    @569   LALOWCHG    15.2
    @584   DME_PURC    15.2
    @599   PRCNGIND    $char2.
    @601   PMTINDSW    $char1.
    @602   DED_SW      $char1.
    @603   PMTINDCD    $char1.
    @604   MTUS_CNT    12.3
    @616   MTUS_IND    $char1.
    @617   LDVRSNCD    $char1.
    @618   LINEDGNS    $char7.
    @625   DCMTN_CD    $char1.
    @626   WAIVERSW    $char1.
    @627   YEAR        $char4.
    @631   REC_COUNT   $char3.
    @634   CLAIM_ID    10.       /* new in 2016 Linkage */
    ;

  label
    PATIENT_ID ="Patient ID"
 /* regcase   = "SEER Registry Case Number" */
 /* HICBIC    = "Non-Cancer Patient ID" */
    clm_type   = '7 - NCH Claim Type Code'
    eq_bic     = '11 - NCH Category Equatable Beneficiary Identification Code'
    bic        = '12 - Beneficiary Identification Code'
    state_cd   = '14 - Beneficiary Residence SSA Standard State 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'
    linecnt    = '26 - Claim Total Line Count'
    entry_cd   = '30 - Carrier Claim Entry Code'
    cnty_cd    = '35 - Beneficiary Residence SSA Standard County Code'
    carr_num   = '39 - Carrier Number'
    bene_zip   = '42 - Beneficiary Mailing Contact ZIP Code'  /*****Encrypted*****/
    ms_cd      = '46 - CWF Beneficiary Medicare Status Code'
    PDVRSNCD   = '52 - Claim Principal Diagnosis Version Code'
    pdgns_cd   = '53 - Claim Principal Diagnosis Code'
    pmtdnlcd   = '55 - Carrier Claim Payment Denial Code'
    pmt_amt    = '57 - Claim Payment Amount'
    prpayamt   = '58 - Carrier Claim Primary Payer Paid Amount'
    ord_upin   = '60 - DMERC Claim Ordering Physician UPIN Number'
    ord_npi    = '61 - DMERC Claim Ordering Physician NPI Number'
    asgmntcd   = '62 - Carrier Claim Provider Assignment Indicator Switch'
    prov_pmt   = '63 - NCH Claim Provider Payment Amount'
    bene_pmt   = '64 - NCH Claim Beneficiary Payment Amount'
    benepaid   = '65 - Carrier Claim Beneficiary Paid Amount'
    sbmtchrg   = '66 - NCH Carrier Claim Submitted Charge Amount'
    alowchrg   = '67 - NCH Claim Allowed Charge Amount'
    dedapply   = '68 - Carrier Claim Cash Deductible Applied Amount'
    hcpcs_yr   = '69 - Carrier Claim HCPCS Year Code'
    ddgncnt    = '97 - Claim Diagnosis Code Count'
    dvrsncd1   = '121 - Claim Diagnosis Version Code #1'
    dvrsncd2   = '121 - Claim Diagnosis Version Code #2'
    dvrsncd3   = '121 - Claim Diagnosis Version Code #3'
    dvrsncd4   = '121 - Claim Diagnosis Version Code #4'
    dvrsncd5   = '121 - Claim Diagnosis Version Code #5'
    dvrsncd6   = '121 - Claim Diagnosis Version Code #6'
    dvrsncd7   = '121 - Claim Diagnosis Version Code #7'
    dvrsncd8   = '121 - Claim Diagnosis Version Code #8'
    dvrsncd9   = '121 - Claim Diagnosis Version Code #9'
    dvrsncd10  = '121 - Claim Diagnosis Version Code #10'
    dvrsncd11  = '121 - Claim Diagnosis Version Code #11'
    dvrsncd12  = '121 - Claim Diagnosis Version Code #12'
    dgns_cd1   = '122 - Claim Diagnosis Code #1'
    dgns_cd2   = '122 - Claim Diagnosis Code #2'
    dgns_cd3   = '122 - Claim Diagnosis Code #3'
    dgns_cd4   = '122 - Claim Diagnosis Code #4'
    dgns_cd5   = '122 - Claim Diagnosis Code #5'
    dgns_cd6   = '122 - Claim Diagnosis Code #6'
    dgns_cd7   = '122 - Claim Diagnosis Code #7'
    dgns_cd8   = '122 - Claim Diagnosis Code #8'
    dgns_cd9   = '122 - Claim Diagnosis Code #9'
    dgns_cd10  = '122 - Claim Diagnosis Code #10'
    dgns_cd11  = '122 - Claim Diagnosis Code #11'
    dgns_cd12  = '122 - Claim Diagnosis Code #12'
    suplrnum   = '125 - DMERC Line Supplier Provider Number'
    sup_npi    = '126 - DMERC Line Item Supplier NPI Number'
    prcng_st   = '127 - Line Pricing State Code'
    prcngzip   = '128 - Line Pricing Zip Code'    /******Encrypted******/
    prvstate   = '130 - NCH/DMERC Line Provider State Code'
    sup_type   = '131 - DMERC Line Supplier Type Code'
    tax_num    = '132 - Line Provider Tax Number'
    hcfaspcl   = '133 - Line HCFA Provider Specialty Code'
    prtcptg    = '134 - Line Provider Participating Indicator Code'
    srvc_cnt   = '135 - Line Service Count'
    typsrvcb   = '136 - Line HCFA Type Service Code'
    plcsrvc    = '137 - Line Place of Service Code'
    expnsdt1m  = '138 - Line First Expense Month'
    expnsdt1d  = '138 - Line First Expense Day'
    expnsdt1y  = '138 - Line First Expense Year'
    expnsdt2m  = '139 - Line Last Expense Month'
    expnsdt2d  = '139 - Line Last Expense Day'
    expnsdt2y  = '139 - Line Last Expense Year'
    hcpcs_cd   = '140 - Line HCPCS Code'
    mdfr_cd1   = '141 - Line HCPCS Initial Modifier Code'
    mdfr_cd2   = '142 - Line HCPCS Second Modifier Code'
    mdfr_cd3   = '143 - DMERC Line HCPCS Third Modifier Code'
    mdfr_cd4   = '144 - DMERC Line HCPCS Fourth Modifier Code'
    ndc_cd     = '148 - Line National Drug Code'
    linepmt    = '149 - Line NCH Payment Amount'
    lbenpmt    = '150 - Line Beneficiary Payment Amount'
    lprvpmt    = '151 - Line Provider Payment Amount'
    ldedamt    = '152 - Line Beneficiary Part B Deductible Amount'
    lprpaycd   = '153 - Line Beneficiary Primay Payer Code'
    lprpdamt   = '154 - Line Beneficiary Primay Payer Paid Amount'
    coinamt    = '155 - Line Coinsurance Amount'
    lint_amt   = '156 - Line Interest Amount'
    prpyalow   = '157 - Line Primary Payer Allowed Charge Amount'
    lsbmtchg   = '159 - Line Submitted Charge Amount'
    lalowchg   = '160 - Line Allowed Charge Amount'
    dme_purc   = '162 - Line DME Purchase Price Amount'
    prcngind   = '163 - Line Processing Indicator Code'
    pmtindsw   = '164 - Line Payment 80%/100% Code'
    ded_sw     = '165 - Line Service deductible indicator Switch'
    pmtindcd   = '166 - Line Payment Indicator Code'
    mtus_cnt   = '167 - DMERC Line Miles/Time/Units/Services Count'
    mtus_ind   = '168 - DMERC Line Miles/Time/Units/Services Indicator Code'
    ldvrsncd   = '170 - Line Diagnosis Version Code'
    linedgns   = '171 - Line Diagnosis Code'
    dcmtn_cd   = '172 - Line Additional Claim Documentation Indicator Code'
    waiversw   = '175 - Line Waiver Of Provider Liability Switch'
    year       = 'Year of Claims File'
    rec_count  = 'Record Count for Claim'
    claim_id   = 'Claim ID'
   ;
    ;
run;

proc contents data=dme position;
run;