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

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

data SPARCS_PAYOR    ;
%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 seq_id 8. ;
   informat clm_type_cd $1. ;
   informat upide $128. ;
   informat payr_src_cd $1. ;
   informat pol_numb $128. ;
   informat payr_id $20. ;
   informat src_pymt_cd $2. ;
   informat prov_id $20. ;
   informat payr_id_qual $2. ;
   informat payr_sec_id_qual1 $2. ;
   informat payr_sec_id1 $50. ;
   informat payr_sec_id_qual2 $2. ;
   informat payr_sec_id2 $50. ;
   informat payr_sec_id_qual3 $2. ;
   informat payr_sec_id3 $50. ;
   informat payr_name $60. ;
   informat payr_typology_cd $5. ;
   informat subscr_indvdl_rltnshp_cd $2. ;
   informat subscr_grp_numb $128. ;
   informat subscr_grp_name $128. ;
   informat subscr_entity_type_qual $1. ;
   informat subscr_mbr_id_numb $128. ;
   informat subscr_payr_resp_seq_cd $2. ;
   informat subscr_city $30.;
   informat subscr_st $2.;
   informat subscr_zip $9. ;
   informat subscr_cntry_cd $10.;
   informat subscr_cnty_cd $5.;
   informat payr_type_cd $2. ;
   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 seq_id 8. ;
   format clm_type_cd $1. ;
   format upide $128. ;
   format payr_src_cd $1. ;
   format pol_numb $128. ;
   format payr_id $20. ;
   format src_pymt_cd $2. ;
   format prov_id $20. ;
   format payr_id_qual $2. ;
   format payr_sec_id_qual1 $2. ;
   format payr_sec_id1 $50. ;
   format payr_sec_id_qual2 $2. ;
   format payr_sec_id2 $50. ;
   format payr_sec_id_qual3 $2. ;
   format payr_sec_id3 $50. ;
   format payr_name $60. ;
   format payr_typology_cd $5. ;
   format subscr_indvdl_rltnshp_cd $2. ;
   format subscr_grp_numb $128. ;
   format subscr_grp_name $128. ;
   format subscr_entity_type_qual $1. ;
   format subscr_mbr_id_numb $128. ;
   format subscr_payr_resp_seq_cd $2. ;
   format subscr_city $30.;
   format subscr_st $2.;
   format subscr_zip $9. ;
   format subscr_cntry_cd $10.;
   format subscr_cnty_cd $5.;
   format payr_type_cd $2. ;
   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 $
seq_id 
clm_type_cd $
upide $
payr_src_cd $
pol_numb $
payr_id $
src_pymt_cd $
prov_id $
payr_id_qual $
payr_sec_id_qual1 $
payr_sec_id1 $
payr_sec_id_qual2 $
payr_sec_id2 $
payr_sec_id_qual3 $
payr_sec_id3 $
payr_name $
payr_typology_cd $
subscr_indvdl_rltnshp_cd $
subscr_grp_numb $
subscr_grp_name $
subscr_entity_type_qual $
subscr_mbr_id_numb $
subscr_payr_resp_seq_cd $
subscr_city $
subscr_st $
subscr_zip $
subscr_cntry_cd $
subscr_cnty_cd $
payr_type_cd $
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;