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

/***************   IMPORTANT PROGRAMING NOTES   ************************/
/*					     TO IDENTIFY CLAIMS PER PATIENT                        */
/*																																		 */	
/* The REGCASE/HICBIC, daily date in column 43 and the link number in  */
/* column 519 should be used to identify all the records for each      */
/* claim per patient.  All are needed to identify a claim.             */
/***********************************************************************/
/***********************************************************************/
/*							TO CALCULATE COSTS PER PATIENT												 */
/*																																		 */
/* When calculating costs per patient you will need to use the payment */
/* amount variable in column 136.  This variable is present only when  */
/* record count (column 533) is equal to 1.  This is to help eliminate */
/* duplicate counting.																								 */
/***********************************************************************/


*filename outin '/directory/outsaf98.txt';			/*reading in an un-zipped file*/
filename outin pipe 'gunzip -c /directory/outsaf98.txt.gz';	/*reading in a zipped file*/

options nocenter validvarname=upcase; 
 
data outpat(drop=inc2 inc3 inc4 j);
  infile outin lrecl=551 recfm=f pad missover;
  input  @1   ric_cd     $char1.
         @2   rec_lvl    $char1.
	       @3   regcase    $char10.	
	       /*@3   HICBIC     $char11. */  /*Non cancer ID*/
	       @14  bic        $char2.
	       @16  state_cd   $char2.
	       @18  cnty_cd    $char3.
	       @21  st_sgmt    $char1.
	       @22  bene_zip   $char9.        /****************Speical Permission Required***************/
	       @31  sex        $char1.
	       @32  race       $char1.
	       @41  ms_cd      $char2.
	       @43  daily_dtm  $char2.				/*use daily date and link number to identify a claim for each patient*/
	       @45  daily_dtd  $char2.
	       @47  daily_dty  $char4.
	       @51  from_dtm   $char2.
	       @53  from_dtd   $char2.
	       @55  from_dty   $char4.
	       @59  thru_dtm   $char2.
	       @61  thru_dtd   $char2.
	       @63  thru_dty   $char4.
	       @67  cwfloccd   $char1.
	       @68  acrt_dtm   $char2.
	       @70  acrt_dtd   $char2.
	       @72  acrt_dty   $char4.
	       @76  acrtn_nm   4.
	       @80  disp_cd    $char2.
	       @82  fi_num     $char5.
	       @87  rcpt_dtm   $char2.
	       @89  rcpt_dtd   $char2.
	       @91  rcpt_dty   $char4.
	       @95  aprv_dtm   $char2.
	       @97  aprv_dtd   $char2.
	       @99  aprv_dty   $char4.
	       @103 schl_dtm   $char2.
	       @105 schl_dtd   $char2.
	       @107 schl_dty   $char4.
	       @111 provider   $char6.
	       @117 query_cd   $char1.
	       @118 fac_type   $char1.
	       @119 typesrvc   $char1.
	       @120 freq_cd    $char1.
	       @121 pe_ric     $char1.
	       @122 trans_cd   $char1.
	       @136 pmt_amt    15.2
	       @151 tot_chrg   15.2
	       @203 authrztn   $char18.
	       @221 prpay_cd   $char1.
	       @222 prpayamt   15.2
	       @237 actioncd   $char1.
	       @238 cancelcd   $char1.
	       @239 at_upin    $char6.
	       @245 stus_cd    $char2.
	       @247 op_upin    $char6.
	       @253 ot_upin    $char6.
	       @259 ptb_ded    15.2
	       @274 ptb_coin   15.2
	       @289 oprevcnt   $char3.
	       @292 center     $char4.
	       @296 hcpcs      $char5.
	       @301 mf1        $char2.
	       @303 mf2        $char2.
	       @305 unit       8.
	       @313 rate       15.2
	       @328 charge     15.2
	       @343 ded        $char1.
	       @514 year       $char4.
	       @518 saf_ind    $char1.
	       @519 link_num   $char10.				/*use daily date and link number to identify a claim for each patient*/
	       @529 tot_seg    $char2.
	       @531 seg_num    $char2.
	       @533 rec_count  $char3.
	       @536 blddedam   15.2
	       @551 filler     $char1.
	       @;
        array pryear(10) $ prdty1-prdty10;
        array prmon(10)  $ prdtm1-prdtm10;
        array prday(10)  $ prdtd1-prdtd10;
        array code(10) $ pr_cd1-pr_cd10;
        array dgn(10) $ dgn_cd1-dgn_cd10;
	       inc2=344;
	       do j = 1 to 10;
	       input @inc2 dgn(j)  $char5.
	             @;
	             inc2=inc2+5;
	       end;
	       inc3=394;
	       do j = 1 to 10;
	       input @inc3 code(j)   $char4.
	             @;
	             inc3=inc3+4;
	             end;
	        inc4=434;
	        do j = 1 to 10;
	        input @inc4   prmon(j)  $char2.
	              @inc4+2 prday(j)  $char2.
	              @inc4+4 pryear(j) $char4.
	              @;
	             inc4=inc4+8;
	       end;
	       input;

label
  year      = 'Claim Year'
  saf_ind   = 'SAF indicator'
  rec_lvl   = '2 - Near-line rec. version'
  ric_cd    = '3 - NCH Near-line RIC'
  bic       = '8 - BIC'
  state_cd  = '10 - State code'
  cnty_cd   = '36 - County code'
  st_sgmt   = '9 - St. segment near-line code'
  bene_zip  = '43 - Zip code (Special Permission Required)'
  sex       = '44 - Sex code'
  race      = '45 - Race code'
  ms_cd     = '47 - Medicare Status code'
  daily_dty = '20 - Year of Daily processing'
  daily_dtm = '20 - Month of Daily processing'
  daily_dtd = '20 - Day of Daily processing'
  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'
  cwfloccd  = '51 - CWF location'
  acrt_dty  = '14 - Year of Accretion'
  acrt_dtm  = '14 - Month of Accretion'
  acrt_dtd  = '14 - Day of Accretion'
  acrtn_nm  = '15 - Accretion number'
  disp_cd   = '33 - Claim disposition code'
  fi_num    = '40 - Ficarr id number'
  rcpt_dty  = '37 - Year of receipt date'
  rcpt_dtm  = '37 - Month of receipt date'
  rcpt_dtd  = '37 - Day of receipt date'
  aprv_dty  = '61 - Year of processing date'
  aprv_dtm  = '61 - Month of processing date'
  aprv_dtd  = '61 - Day of processing date'
  schl_dty  = '38 - Year of payment date'
  schl_dtm  = '38 - Month of payment date'
  schl_dtd  = '38 - Day of payment date'
  provider  = '19 - Provider number'
  query_cd  = '18 - Claim query'
  fac_type  = '28 - Claim facility type'
  typesrvc  = '29 - Classification type code'
  freq_cd   = '30 - Claim frequency code'
  pe_ric    = '26 - Payment and edit ric'
  trans_cd  = '27 - Claim transaction'
  pmt_amt   = '56 - Claim payment amount'
  authrztn  = '82 - Claims Treatment Authorization number'
  tot_chrg  = '91 - Claim total charge amt.'
  prpay_cd  = '58 - Primary payer code'
  prpayamt  = '57 - Primary payer payment amt.'
  actioncd  = '60 - Claim action'
  cancelcd  = '59 - Cancel reason'
  at_upin   = '64 - Claim attending physician UPIN'
  stus_cd   = '87 - Patient discharge status code'
  ot_upin   = '69 - Other physician number'
  op_upin   = '74 - Operating physician number'
  oprevcnt  = '24 - Revenue center code count'
  center    = '159 - Revenue center code'
  mf1       = '167 - Initial modifier code'
  mf2       = '168 - Second modifier code'
  hcpcs     = '166 - Hcpcs code'
  unit      = '179 - Revenue center unit count'
  rate      = '180 - Revenue center rate amount'
  charge    = '192 - Revenue center total amount'
  ded       = '194 - Deductible coinsurance code'
  dgn_cd1   = '140 - ICD-9-CM code #1'
  dgn_cd2   = '140 - ICD-9-CM code #2'
  dgn_cd3   = '140 - ICD-9-CM code #3'
  dgn_cd4   = '140 - ICD-9-CM code #4'
  dgn_cd5   = '140 - ICD-9-CM code #5'
  dgn_cd6   = '140 - ICD-9-CM code #6'
  dgn_cd7   = '140 - ICD-9-CM code #7'
  dgn_cd8   = '140 - ICD-9-CM code #8'
  dgn_cd9   = '140 - ICD-9-CM code #9'
  dgn_cd10  = '140 - ICD-9-CM code #10'
  prdty1    = '145 - Year procedure performed #1'
  prdtm1    = '145 - Month procedure performed #1'
  prdtd1    = '145 - Day procedure performed #1'
  pr_cd1    = '143 - Procedure codes #1'
  prdty2    = '145 - Year procedure performed #2'
  prdtm2    = '145 - Month procedure performed #2'
  prdtd2    = '145 - Day procedure performed #2'
  pr_cd2    = '143 - Procedure codes #2'
  prdty3    = '145 - Year procedure performed #3'
  prdtm3    = '145 - Month procedure performed #3'
  prdtd3    = '145 - Day procedure performed #3'
  pr_cd3    = '143 - Procedure codes #3'
  prdty4    = '145 - Year procedure performed #4'
  prdtm4    = '145 - Month procedure performed #4'
  prdtd4    = '145 - Day procedure performed #4'
  pr_cd4    = '143 - Procedure codes #4'
  prdty5    = '145 - Year procedure performed #5'
  prdtm5    = '145 - Month procedure performed #5'
  prdtd5    = '145 - Day procedure performed #5'
  pr_cd5    = '143 - Procedure codes #5'
  prdty6    = '145 - Year procedure performed #6'
  prdtm6    = '145 - Month procedure performed #6'
  prdtd6    = '145 - Day procedure performed #6'
  pr_cd6    = '143 - Procedure codes #6'
  prdty7    = '145 - Year procedure performed #7'
  prdtm7    = '145 - Month procedure performed #7'
  prdtd7    = '145 - Day procedure performed #7'
  pr_cd7    = '143 - Procedure codes #7'
  prdty8    = '145 - Year procedure performed #8'
  prdtm8    = '145 - Month procedure performed #8'
  prdtd8    = '145 - Day procedure performed #8'
  pr_cd8    = '143 - Procedure codes #8'
  prdty9    = '145 - Year procedure performed #9'
  prdtm9    = '145 - Month procedure performed #9'
  prdtd9    = '145 - Day procedure performed #9'
  pr_cd9    = '143 - Procedure codes #9'
  prdty10   = '145 - Year procedure performed #10'
  prdtm10   = '145 - Month procedure performed #10'
  prdtd10   = '145 - Day procedure performed #10'
  pr_cd10   = '143 - Procedure codes #10'
  ptb_ded   = '109 - Part B deductible amount'
  ptb_coin  = '110 - Part B coinsurance amount'
  rec_count = 'Record Count for Claim'
  blddedam  = '108 - NCH Beneficiary Blood Deductible Liability Amount' 
   ;

run;

proc contents data=outpat position;
run;