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

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

data SPARCS_NDC ;
%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 ndc $48. ;
   informat ndc_unit_type $2. ;
   informat ndc_unit_cnt 18.2 ;
   informat pres_numb_qual $2. ;
   informat pres_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 seq_id 8. ;
   format clm_type_cd $1. ;
   format upide $128. ;
   format ndc $48. ;
   format ndc_unit_type $2. ;
   format ndc_unit_cnt 18.2 ;
   format pres_numb_qual $2. ;
   format pres_numb $50. ;
   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 $
   ndc $
   ndc_unit_type $
   ndc_unit_cnt 
   pres_numb_qual $
   pres_numb $
   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;