/*Published: 11/1/2017*/

/**************************   COMMENTS   *******************************/
/* THIS INPUT STATMENT IS FOR THE 2017 CAHPS-MEDICARE LINKAGE.         */
/* IF YOU RECEIVED HOSPICE FILES BEFORE NOVEMBER 2017 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 */
/***********************************************************************/
/***************   IMPORTANT PROGRAMING NOTES   ************************/
/*               TO IDENTIFY CLAIMS PER PATIENT                        */
/*                                                                     */
/* The Patient ID and Claim ID (column 452) should be used to identify */
/* all the records for each claim per patient.  Both are needed to     */
/* identify a claim.                                                   */
/***********************************************************************/

/***********************************************************************/
/*                   TO CALCULATE COSTS PER PATIENT                    */
/*                                                                     */
/* When calculating costs per patient you will need to use the claim   */
/* payment amount variable (column 65).  The value from the record     */
/* count (column 418) equal to 1 should be used.  This will eliminate  */
/* duplicate counting from other records.                              */
/***********************************************************************/

/***********************************************************************/
/* 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 inhsp '/directory/hspsaf15.txt';                    /* reading in an un-zipped file */              /* Input file references were "inout" in LINK10, changed to inhsp */
filename inhsp pipe 'gunzip -c /directory/hspsaf15.txt.gz';  /* reading in a zipped file */                  /* Input file references were "inout" in LINK10, changed to inhsp */
*filename inhsp pipe 'gunzip -c /directory/hspsaf*.txt.gz';   /* using wildcard to match multiple files */    /* Input file references were "inout" in LINK10, changed to inhsp */

options nocenter validvarname=upcase;

data hospice;
  infile inhsp lrecl=710 missover pad;
  input
    @001  PHIC       $char11. /* Patient ID (for either PEDSF or non-PEDSF Patients) */
    @012  bic        $char2.
    @014  state_cd   $char2.
    @016  cnty_cd    $char3.
    @019  bene_zip   $char9.  /****************Encrypted***************/
    @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  provider   $char6.
    @059  query_cd   $char1.
    @060  fac_type   $char1.
    @061  typesrvc   $char1.
    @062  freq_cd    $char1.
    @063  nopay_cd   $char2.
    @065  pmt_amt    15.2
    @080  tot_chrg   15.2
    @095  prpay_cd   $char1.
    @096  prpayamt   15.2
    @111  actioncd   $char1.
    @112  prvstate   $char2.
    @114  orgnpinm   $char10.
    @124  at_upin    $char6.
    @130  at_npi     $char10.
    @140  op_upin    $char6.
    @146  op_npi     $char10.
    @156  ot_upin    $char6.
    @162  ot_npi     $char10.
    @172  stus_cd    $char2.
    @174  pps_ind    $char1.
    @175  tot_line   $char3.
    @178  seg_line   $char2.
    @180  srvcfac    $char9.
    @189  hsdgncnt   $char2.
    @191  hsrevcnt   $char2.
    @193  ptntstus   $char1.
    @194  dsch_dty   $char4.
    @198  dsch_dtm   $char2.
    @200  dsch_dtd   $char2.
    @202  center     $char4.
    @206  cendm      $char2.
    @208  cendd      $char2.
    @210  cendy      $char4.
    @214  revan1     $char5.
    @219  hcpcs      $char5.
    @224  mf1        $char2.
    @226  mf2        $char2.
    @228  pricing    $char2.
    @230  unit       8.
    @238  rate       15.2
    @253  rev_msp1   15.2
    @268  rev_msp2   15.2
    @283  rprvdpmt   15.2
    @298  charge     15.2
    @313  pay        15.2
    @328  revncvr    15.2
    @343  ded        $char1.
    @344  revnpi     $char10.
    @354  idendc     $char24.
    @378  qtyqlfr    $char2.
    @380  ndcqty     12.3
    @392  year       $char4.
    @414  tot_seg    $char2.
    @416  seg_num    $char2.
    @418  rec_count  $char3.
    @421  util_day   4.
    @425  hspstrtm   $char2.
    @427  hspstrtd   $char2.
    @429  hspstrty   $char4.
    @433  exhs_dtm   $char2.
    @435  exhs_dtd   $char2.
    @437  exhs_dty   $char4.
    @441  hospcprd   $char1.
    @442  SRVCNPI    $char10.
    @452  claim_id   10.
    @;

   array dgnscd(25)   $ dgn_cd1   - dgn_cd25;
     inc2=508;
    do j = 1 to 25;
      input
          @inc2+0  dgnscd(j)  $char7.
          @;
          inc2=inc2+7;
      end;

    array ocrncind(2) $ ocrncind1 - ocrncind2;
    array ocrnc_cd(2) $ ocrnc_cd1 - ocrnc_cd2;
    array ocrncdty(2) $ ocrncdty1 - ocrncdty2;
    array ocrncdtm(2) $ ocrncdtm1 - ocrncdtm2;
    array ocrncdtd(2) $ ocrncdtd1 - ocrncdtd2;
    inc3 = 683;
    do j = 1 to 2;                     * Up to 30;
      input @inc3+0  ocrncind(j) $char1.
            @inc3+1  ocrnc_cd(j) $char2.
            @inc3+3  ocrncdty(j) $char4.
            @inc3+7  ocrncdtm(j) $char2.
            @inc3+9  ocrncdtd(j) $char2.
            @;
            inc3=inc3+11;
      end;

    array rlt_cond(2) $ rlt_cond1 - rlt_cond2;
    inc4 = 705;
    do j = 1 to 2;
      input @inc4+0  rlt_cond(j) $char2.
            @;
            inc4=inc4+2;
      end;

    input;

  drop j inc2 inc3 inc4;

  label
    PHIC       = 'Patient ID'
    bic        = 'BIC'
    state_cd   = 'State code'
    cnty_cd    = 'County code'
    bene_zip   = 'Zip code (Encrypted)'
    ms_cd      = 'Medicare Status code'
    clm_type   = 'NCH Claim Type Code'
    from_dtm   = 'Month of Claim From date'
    from_dtd   = 'Day of Claim From date'
    from_dty   = 'Year of Claim From date'
    thru_dtm   = 'Month of Claim Thru date'
    thru_dtd   = 'Day of Claim Thru date'
    thru_dty   = 'Year of Claim Thru date'
    fi_num     = 'Ficarr ID number'
    provider   = 'Provider number'
    query_cd   = 'Claim query code'
    fac_type   = 'Claim facility type'
    typesrvc   = 'Classification type code'
    freq_cd    = 'Claim frequency code'
    nopay_cd   = 'Claim Medicare Non Payment Reason Code'
    pmt_amt    = 'Claim payment amount'
    tot_chrg   = 'Claim total charge amount'
    prpay_cd   = 'Primary payer code'
    prpayamt   = 'Primary payer payment amount'
    actioncd   = 'FI Claim action code'
    prvstate   = 'NCH Provider State Code'
    orgnpinm   = 'Organization NPI Number'
    at_upin    = 'Claim Attending Physician UPIN'
    at_npi     = 'Claim Attending Physician NPI'
    op_upin    = 'Claim Operating Physician UPIN'
    op_npi     = 'Claim Operating Physician NPI'
    ot_upin    = 'Claim Other Physician UPIN'
    ot_npi     = 'Claim Other Physician NPI'
    stus_cd    = 'Patient discharge status code'
    pps_ind    = 'Claim PPS Indicator Code'
    tot_line   = 'Claim Total Line Count'
    seg_line   = 'Claim Segment Line Count'
    srvcfac    = 'Claim Service Facility Zip Code (Encrypted)'
    hsdgncnt   = 'Claim diagnosis code count'
    hsrevcnt   = 'Claim Total Line count' /* Revenue Center Code Count */
    ptntstus   = 'NCH Patient Status Indicator Code'
    dsch_dty   = 'NCH Beneficiary discharge year'
    dsch_dtm   = 'NCH Beneficiary discharge month'
    dsch_dtd   = 'NCH Beneficiary discharge day'
    center     = 'Revenue Center Code'
    cendm      = 'Revenue Center Month'
    cendd      = 'Revenue Center Day'
    cendy      = 'Revenue Center Year'
    revan1     = 'Revenue Center 1st ANSI Code'
    hcpcs      = 'HCPCS Code'
    mf1        = 'Initial modifier code'
    mf2        = 'Second modifier code'
    pricing    = 'Revenue Center Pricing Indicator Code'
    unit       = 'Revenue Center unit count'
    rate       = 'Revenue Center rate amount'
    rev_msp1   = '1st Medicare Secondary Payer Paid Amount'
    rev_msp2   = '2nd Medicare Secondary Payer Paid Amount'
    rprvdpmt   = 'Revenue Center Provider Payment Amount'
    charge     = 'Revenue Center total amount'
    pay        = 'Revenue Center Payment Amount'
    revncvr    = 'Non-Covered Charge Amount'
    ded        = 'Deductible coinsurance code'
    revnpi     = 'Rendering Physician NPI Number'
    idendc     = 'Revenue Center IDE, NDC or UPC#'
    qtyqlfr    = 'Revenue Center NDC Quantity Qualifier Code'
    ndcqty     = 'Revenue Center NDC Quantity'
    year       = 'Claim Year'
    tot_seg    = 'Claim Total Segment Count'
    seg_num    = 'Claim Segment Number'
    rec_count  = 'Claim record number'
    util_day   = 'Utilization days count'
    hspstrtm   = 'Claim Hospice Start Month'
    hspstrtd   = 'Claim Hospice Start Day'
    hspstrty   = 'Claim Hospice Start Year'
    exhs_dty   = 'Year of exhausted'
    exhs_dtm   = 'Month of exhausted'
    exhs_dtd   = 'Day of exhausted'
    hospcprd   = 'Hospice period count'
    srvcnpi    = 'Claim Service Location NPI Number (encrypted)'
    claim_id   = 'Claim ID'
    dgn_cd1    = 'ICD-9-CM code #1'
    dgn_cd2    = 'ICD-9-CM code #2'
    dgn_cd3    = 'ICD-9-CM code #3'
    dgn_cd4    = 'ICD-9-CM code #4'
    dgn_cd5    = 'ICD-9-CM code #5'
    dgn_cd6    = 'ICD-9-CM code #6'
    dgn_cd7    = 'ICD-9-CM code #7'
    dgn_cd8    = 'ICD-9-CM code #8'
    dgn_cd9    = 'ICD-9-CM code #9'
    dgn_cd10   = 'ICD-9-CM code #10'
    dgn_cd11   = 'ICD-9-CM code #11'
    dgn_cd12   = 'ICD-9-CM code #12'
    dgn_cd13   = 'ICD-9-CM code #13'
    dgn_cd14   = 'ICD-9-CM code #14'
    dgn_cd15   = 'ICD-9-CM code #15'
    dgn_cd16   = 'ICD-9-CM code #16'
    dgn_cd17   = 'ICD-9-CM code #17'
    dgn_cd18   = 'ICD-9-CM code #18'
    dgn_cd19   = 'ICD-9-CM code #19'
    dgn_cd20   = 'ICD-9-CM code #20'
    dgn_cd21   = 'ICD-9-CM code #21'
    dgn_cd22   = 'ICD-9-CM code #22'
    dgn_cd23   = 'ICD-9-CM code #23'
    dgn_cd24   = 'ICD-9-CM code #24'
    dgn_cd25   = 'ICD-9-CM code #25'
    ocrncind1  = 'NCH Occurence Trailer Indicator code 1'
    ocrncind2  = 'NCH Occurence Trailer Indicator code 2'
    ocrnc_cd1  = 'Claim related occurrence code 1'
    ocrnc_cd2  = 'Claim related occurrence code 2'
    ocrncdty1  = 'Claim related occurrence year 1'
    ocrncdtm1  = 'Claim related occurrence month 1'
    ocrncdtd1  = 'Claim related occurrence day 1'
    ocrncdty2  = 'Claim related occurrence year 2'
    ocrncdtm2  = 'Claim related occurrence month 2'
    ocrncdtd2  = 'Claim related occurrence day 2'
    rlt_cond1  = 'Claim related condition code 1'
    rlt_cond2  = 'Claim related condition code 2'
    ;

run;

proc contents data=hospice position;
run;