/* This program is to read in the SPARCS LOCATION data table. */
OPTIONS NOCENTER NODATE FORMDLIM=' ' compress=yes pagesize=50;

/*USER INPUT NEEDED*/
%let file=".\SPARCS_Extract\SPARCS_LOCATION.dat";  *Set to your path;

data SPARCS_Location ;
%let _EFIERR_ = 0; /* set the ERROR detection macro variable */
infile &file. delimiter = '|' MISSOVER DSD lrecl=32767 firstobs=2 /*obs = 1000*/;
   informat clm_trans_id $12. ;
   informat disch_yr $4. ;
   informat clm_type_cd $1. ;
   informat upide $128.;
   informat pat_addr_line1 $128.;
   informat pat_addr_line2 $128.;
   informat pat_addr_city $30.;
   informat pat_addr_st $2.;
   informat pat_addr_cnty_cd $5.;
   informat resid_cd $1. ;
   informat pat_addr_zip4 $128.;
   informat pat_cntry_cd $10.;
   informat pat_addr_zip5 $5.;
   informat clm_key $12. ;
   informat actv_flag $1. ;
   informat ltst_flag $1. ;
   informat processed_dt $8. ;
   informat created_by $20. ;
   informat last_updd_dt $8. ;
   informat last_updd_by $20. ;
   informat src_nm $30. ;
   informat insert_row_dt $8. ;
   informat abort_ind $1. ;
   informat hiv_ind $1. ;
   
   format clm_trans_id $12. ;
   format disch_yr $4. ;
   format clm_type_cd $1. ;
   format upide $128.;
   format pat_addr_line1 $128.;
   format pat_addr_line2 $128.;
   format pat_addr_city $30.;
   format pat_addr_st $2.;
   format pat_addr_cnty_cd $5.;
   format resid_cd $1. ;
   format pat_addr_zip4 $128.;
   format pat_cntry_cd $10.;
   format pat_addr_zip5 $5.;
   format clm_key $12. ;
   format actv_flag $1. ;
   format ltst_flag $1. ;
   format processed_dt $8. ;
   format created_by $20. ;
   format last_updd_dt $8. ;
   format last_updd_by $20. ;
   format src_nm $30. ;
   format insert_row_dt $8. ;
   format abort_ind $1. ;
   format hiv_ind $1. ;

input
   clm_trans_id $
   disch_yr $
   clm_type_cd $
   upide $
   pat_addr_line1 $
   pat_addr_line2 $
   pat_addr_city $
   pat_addr_st $
   pat_addr_cnty_cd $
   resid_cd $
   pat_addr_zip4 $
   pat_cntry_cd $
   pat_addr_zip5 $
   clm_key $
   actv_flag $
   ltst_flag $
   processed_dt $
   created_by $
   last_updd_dt $
   last_updd_by $
   src_nm $
   insert_row_dt $
   abort_ind $
   hiv_ind $
;

if _ERROR_ then call symputx('_EFIERR_',1);  /* set ERROR detection macro variable */
run;