/* This program is to read in the SPARCS PROCEDURE data table. */ OPTIONS NOCENTER NODATE FORMDLIM=' ' compress=yes pagesize=50; /*USER INPUT NEEDED*/ %let file=".\SPARCS_Extract\SPARCS_PROC.dat"; *Set to your path; data SPARCS_PROC ; %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 PROC_VERS_TYPE_CD $5. ; informat seq_id 8. ; informat chrg_tot_amt 18.2 ; informat chrg_nocvrd_amt 18.2 ; informat clm_type_cd $1. ; informat proc_dt $8.; informat postop_days 8. ; informat preadmit_ind $4. ; informat preop_days 8. ; informat proc_cd $10.; informat proc_mod1_cd $2. ; informat proc_mod2_cd $2. ; informat proc_mod3_cd $2. ; informat proc_mod4_cd $2. ; informat proc_grp_cd $3. ; informat unit_type_cd $2. ; informat unit_qty 11.3 ; informat upide $128. ; 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 PROC_VERS_TYPE_CD $5. ; format seq_id 8. ; format chrg_tot_amt 18.2 ; format chrg_nocvrd_amt 18.2 ; format clm_type_cd $1. ; format proc_dt $8.; format postop_days 8. ; format preadmit_ind $4. ; format preop_days 8. ; format proc_cd $10.; format proc_mod1_cd $2. ; format proc_mod2_cd $2. ; format proc_mod3_cd $2. ; format proc_mod4_cd $2. ; format proc_grp_cd $3. ; format unit_type_cd $2. ; format unit_qty 11.3 ; format upide $128. ; 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 $ PROC_VERS_TYPE_CD $ seq_id chrg_tot_amt chrg_nocvrd_amt clm_type_cd $ proc_dt $ postop_days preadmit_ind $ preop_days proc_cd $ proc_mod1_cd $ proc_mod2_cd $ proc_mod3_cd $ proc_mod4_cd $ proc_grp_cd $ unit_type_cd $ unit_qty upide $ 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;