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

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

data SPARCS_REV    ;
%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 rec_seq $3. ;
   informat rev_cd $4. ;
   informat rev_type $1. ;
   informat unit_type_cd $2. ;
   informat unit_qty 11.3 ;
   informat chrg_svc_amt 18.2 ;
   informat svc_nocvrd_amt 18.2 ;
   informat svc_dt $8.;
   informat svc_line_numb 8. ;
   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 rec_seq $3. ;
   format rev_cd $4. ;
   format rev_type $1. ;
   format unit_type_cd $2. ;
   format unit_qty 11.3 ;
   format chrg_svc_amt 18.2 ;
   format svc_nocvrd_amt 18.2 ;
   format svc_dt $8.;
   format svc_line_numb 8. ;
   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 $
    rec_seq $
    rev_cd $
    rev_type $
    unit_type_cd $
    unit_qty  
    chrg_svc_amt 
    svc_nocvrd_amt
    svc_dt $
    svc_line_numb 
    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;