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

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

data SPARCS_PROVIDER    ;
%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 prov_type_cd $3. ;
   informat seq_id 8. ;
   informat clm_type_cd $1. ;
   informat upide $128. ;
   informat prov_last_name $65. ;
   informat prov_first_name $35. ;
   informat prov_mid_name_or_init $25. ;
   informat prov_name_sfx $10. ;
   informat prov_npi $80. ;
   informat st_lic_numb $50. ;
   informat svc_line_numb 8. ;
   informat clm_key $12. ;
   informat actv_flag $1. ;
   informat ltst_flag $1. ;
   informat processed_dt $8. ;
   informat last_updd_dt $8. ;
   informat created_by $20. ;
   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 prov_type_cd $3. ;
   format seq_id 8. ;
   format clm_type_cd $1. ;
   format upide $128. ;
   format prov_last_name $65. ;
   format prov_first_name $35. ;
   format prov_mid_name_or_init $25. ;
   format prov_name_sfx $10. ;
   format prov_npi $80. ;
   format st_lic_numb $50. ;
   format svc_line_numb 8. ;
   format clm_key $12. ;
   format actv_flag $1. ;
   format ltst_flag $1. ;
   format processed_dt $8. ;
   format last_updd_dt $8. ;
   format created_by $20. ;
   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 $
    prov_type_cd $
    seq_id 
    clm_type_cd $
    upide $
    prov_last_name $
    prov_first_name $
    prov_mid_name_or_init $
    prov_name_sfx $
    prov_npi $
    st_lic_numb $
    svc_line_numb 
    clm_key $
    actv_flag $
    ltst_flag $
    processed_dt $
    last_updd_dt $
    created_by $
    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;