/**********************   COMMENTS   ***********************************/
/* IF YOU RECEIVED NCH 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 421) and REGCASE/HICBIC to identify a claim for each */
/* patient.                                                            */
/*                                                                     */
/***********************************************************************/

*filename nchin  '/directory/nch98.txt';                        /*reading in an un-zipped file*/
filename nchin pipe 'gunzip -c /directory/nch98.txt.gz';        /*reading in a zipped file*/
*filename nchin pipe 'gunzip -c /directory/nch*.txt.gz';        /*using wildcard to match multiple files */

options nocenter validvarname=upcase;

data nch;
  infile nchin lrecl=504 recfm=f 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.                 
         @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.
         @054  pmtdnlcd  $char1.
         @055  asgmntcd  $char1.
         @056  rfr_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.
         @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  lbenpmt   15.2
         @220  lprvpmt   15.2
         @235  coinamt   15.2
         @250  dedapply  15.2
         @265  prpayamt  15.2
         @280  pmt_amt   15.2
         @295  alowchrg  15.2
         @310  sbmtchrg  15.2
         @325  prov_pmt  15.2
         @340  prpyalow  15.2
         @355  rfr_prfl  $CHAR14. 
         @369  astnt_cd  $CHAR1.
         @370  hcpcs_yr  $CHAR1.
         @371  per_pin   $CHAR10.
         @381  perupin   $CHAR6.
         @387  prf_npi   $char10.
         @397  prgrp_npi $char10.
         @407  prv_type  $CHAR1.
         @408  prvstate  $CHAR2.
         @410  prozip    $CHAR9.
         @419  clinecnt  $CHAR2.
         @421  link_num  10.
         @431  daily_dtm $char2.
         @433  daily_dtd $char2.
         @435  daily_dty $char4.
         @439  DESY_SORT_KEY $CHAR9.    
         @448  pdgns_cd  $CHAR5.
         @453  cdgncnt   $CHAR1.
         @454  dgn_cd1   $char5.
         @459  dgn_cd2   $char5.
         @464  dgn_cd3   $char5.
         @469  dgn_cd4   $char5.
         @474  dgn_cd5   $char5.
         @479  dgn_cd6   $char5.
         @484  dgn_cd7   $char5.
         @489  dgn_cd8   $char5.
         @494  betos     $char3.
         @497  year      $char4.
         @501  rec_count $char3.
         ;

                 
label
  bic       = '8 - BIC'
  state_cd  = '10 - State code'
  cnty_cd   = '30 - County code'
  bene_zip  = '37 - Zip code (Special Permission Required)'
  ms_cd     = '41 - Medicare Status code'
  from_dty  = '11 - Year of From date'
  from_dtm  = '11 - Month of From date'
  from_dtd  = '11 - Day of From date'
  thru_dty  = '12 - Year of Thru date'
  thru_dtm  = '12 - Month of Thru date'
  thru_dtd  = '12 - Day of Thru date'
  fi_num    = '34 - Ficarr id number'
  pmtdnlcd  = '48 - Carrier payment denial code'
  asgmntcd  = '55 - Carrier provider assignment'
  rfr_upin  = '53 - Carrier referring physician (upin)'
  hcfaspec  = '108 - HCFA provider spec code'
  prv_type  = '104 - Provider type'
  hcfatype  = '113 - HCFA type service code'
  prtcptg   = '110 - Provider participating ind.'
  proindcd  = '141 - Line processing indicator'
  pay80cd   = '142 - Line payment 80/100% code'
  dedind    = '143 - Line servicd deductible ind'
  payindcd  = '144 - Line payment indicator'
  mtuscnt   = '145 - Carrier miles/time/units/serv count'
  mtusind   = '146 - Carrier miles/time/units/serv indicator'
  mfrcd1    = '120 - Initial modifier code'
  mfrcd2    = '121 - Second modifier code'
  hcpcs     = '119 - Hcpcs code'
  submamt   = '137 - Submitted charge amount'
  alowamt   = '138 - Allowed charge amount'
  plcsrvc   = '115 - Line place of service'
  frexpeny  = '117 - Year of Line first expense'
  frexpenm  = '117 - Month of Line first expense'
  frexpend  = '117 - Day of Line first expense'
  lsexpeny  = '118 - Year of Line last expense'
  lsexpenm  = '118 - Month of Line last expense'
  lsexpend  = '118 - Day of Line last expense'
  srvc_cnt  = '112 - Line service count'
  linediag  = '147 - Line diagnosis code'
  linepmt   = '125 - Claim payment amount'
  ldedamt   = '128 - Deductible amount'
  lprpayat  = '130 - Primary payer claim payment amount'
  lprpaycd  = '129 - Primary payer code'
  perupin   = '101 - Line performing provider'
  prozip    = '107 - Line performing provider zip (Special Permission Required)'
  astnt_cd  = '111 - Line reduced payment physician asst. code'
  dgn_cd1   = '97  - ICD-9-CM code #1'
  betos     = '122 - Betos Code'
  year      = 'Claim Year'
  link_num  = 'Link Number' 
  prpayamt  = '51 - Carrier Claim Primary Payer Paid Amount'      
  cdgncnt   = '76 - Carrier Claim Diagnosis Code Count' 
  dedapply  = '61 - Carrier Claim Cash Deductible Applied Amount' 
  hcpcs_yr  = '62 - Carrier Claim HCPCS Year Code' 
  clinecnt  = '77 - Carrier Claim Line Count' 
  pmt_amt   = '50 - Claim Payment Amount' 
  pdgns_cd  = 'Principle Diagnosis Code' 
  alowchrg  = '59 - NCH Carrier Claim Submitted Charge Amount' 
  sbmtchrg  = '60 - NCH Carrier Claim Allowed Charge Amount' 
  prov_pmt  = '56 - NCH Claim Provider Payment Amount' 
  prvstate  = '106 - Line NCH Provider State Code' 
  lbenpmt   = '126 - Line Beneficiary Payment Amount' 
  lprvpmt   = '127 - Line Provider Payment Amount' 
  coinamt   = '131 - Line Coinsurance Amount' 
  prpyalow  = '134 - Line Primary Payer Allowed Charge Amount' 
  dedind    = '143 - Line Service Deductible Indicator Switch' 
  payindcd  = '144 - Line Payment Indicator Code' 
  rec_count = 'Counter Variable for Each Claim' 
  prf_npi   = '102 - Carrier Line Performing NPI Number'
  prgrp_npi = '103 - Carrier Line Performing Group NPI Number'
  ;
  
run;
  
proc contents data=nch position;
run;