/* This program is to read in the SPARCS Diagnosis data table. */ OPTIONS NOCENTER NODATE FORMDLIM=' ' compress=yes pagesize=50; /*USER INPUT NEEDED*/ %let file=".\SPARCS_Extract\SPARCS_DIAG.dat"; *Set to your path; data SPARCS_DIAG ; %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 dx_type_cd $2. ; informat seq_id 8. ; informat clm_type_cd $1. ; informat upide $128. ; informat dx_catgy_cd $2. ; informat dx_grp_cd $3. ; informat dx_cd $7. ; informat poa_ind $1. ; informat DX_VERS_TYPE_CD $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 dx_type_cd $2. ; format seq_id 8. ; format clm_type_cd $1. ; format upide $128. ; format dx_catgy_cd $2. ; format dx_grp_cd $3. ; format dx_cd $7. ; format poa_ind $1. ; format DX_VERS_TYPE_CD $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 $ dx_type_cd $ seq_id clm_type_cd $ upide $ dx_catgy_cd $ dx_grp_cd $ dx_cd $ poa_ind $ DX_VERS_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;