/* This program is to read in the SPARCS Claim data table. */ OPTIONS NOCENTER NODATE FORMDLIM=' ' compress=yes pagesize=50; /*USER INPUT NEEDED*/ %let file=".\SPARCS_Extract\SPARCS_CLAIM.dat"; *Set to your path; data SPARCS_CLAIM ; %let _EFIERR_ = 0; /* set the ERROR detection macro variable */ infile &file. delimiter = '|' MISSOVER DSD lrecl=32767 firstobs=2 ; informat clm_trans_id $12. ; informat disch_yr $4. ; informat accid_hr $2. ; informat accid_type $2. ; informat admit_day $3. ; informat admit_hr $2. ; informat admit_src_cd $1. ; informat admit_type_cd $1. ; informat age 8. ; informat sparcs_age_grp_cd $1. ; informat age_in_days 8. ; informat age_warning_ind $1. ; informat alt_care_days 8. ; informat ami_bp_diastolic $3. ; informat ami_bp_systolic $3. ; informat ami_heart_rate $3. ; informat chrg_accom_amt 18.2 ; informat chrg_accom_nocvrd_amt 18.2 ; informat chrg_ancil_amt 18.2 ; informat chrg_ancil_nocvrd_amt 18.2 ; informat chrg_tot_amt 18.2 ; informat mcaid_income_amt 18.2 ; informat chrg_nocvrd_amt 18.2 ; informat paid_wc_amt 18.2 ; informat blood_furnished 18.2 ; informat clm_type_cd $1. ; informat coding_method_cd $1. ; informat data_collector $5. ; informat accid_dt $8. ; informat admit_dt $8. ; informat anest_method $2. ; informat clm_from_dt $8. ; informat clm_thru_dt $8. ; informat disch_dt $8. ; informat birth_dt $128. ; informat disch_day $3. ; informat disch_hr $2. ; informat unit_exempt_cd $3. ; informat fac_id $6. ; informat fac_name $200. ; informat fac_npi $10. ; informat file_type $1. ; informat gender_cd $1. ; informat hsa $1. ; informat hosp_cnty_cd $5. ; informat abort_ind $1. ; informat emerg_ind $1. ; informat emerg_admit_ind $1. ; informat hiv_ind $1. ; informat mcaid_income_ind $1. ; informat newborn_ind $1. ; informat disch_same_day_ind $1. ; informat sp_disab_ind $1. ; informat sp_fam_plan_ind $1. ; informat sp_handicap_child_ind $1. ; informat sp_special_funding_ind $1. ; informat wc_ind $2.; informat leave_days 8. ; informat length_of_stay 8. ; informat log_numb $6. ; informat med_rec_numb $128. ; informat med_rec_mom_numb $128.; informat mcaid_rate_cd $4. ; informat neo_birth_wt 8. ; informat nocvrd_days 8. ; informat numb_days_cov 8. ; informat oper_time $3. ; informat opcert_numb $10. ; informat pat_ctrl_numb $128. ; informat pat_status_cd $2. ; informat prim_reimb_cd $2. ; informat proc_dt_warning_cd $1. ; informat othr_reimb_1_cd $2. ; informat othr_reimb_2_cd $2. ; informat rec_seq $3. ; informat resid_cd $1. ; informat svc_catgy_cd $1.; informat seq_cnt $3. ; informat region_cd $2. ; informat trans_cd $1. ; informat upide $128. ; informat unique_personal_id $128. ; informat prev_pat_ctrl_numb $128. ; informat fac_type_cd $2. ; informat clm_freq_cd $1. ; informat payr_resp_amt 18.2 ; informat pat_resp_amt 18.2 ; informat pat_indvdl_rltnshp_cd $10. ; informat pat_grp_numb $128. ; informat pat_mbr_id_numb $128. ; informat pat_mritl_sts $10. ; informat svc_prov_emp_id_id $128. ; informat clm_key $12. ; informat actv_flag $1. ; informat ltst_flag $1. ; informat file_nm $100. ; 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. ; format clm_trans_id $12. ; format disch_yr $4. ; format accid_hr $2. ; format accid_type $2. ; format admit_day $3. ; format admit_hr $2. ; format admit_src_cd $1. ; format admit_type_cd $1. ; format age 8. ; format sparcs_age_grp_cd $1. ; format age_in_days 8. ; format age_warning_ind $1. ; format alt_care_days 8. ; format ami_bp_diastolic $3. ; format ami_bp_systolic $3. ; format ami_heart_rate $3. ; format chrg_accom_amt 18.2 ; format chrg_accom_nocvrd_amt 18.2 ; format chrg_ancil_amt 18.2 ; format chrg_ancil_nocvrd_amt 18.2 ; format chrg_tot_amt 18.2 ; format mcaid_income_amt 18.2 ; format chrg_nocvrd_amt 18.2 ; format paid_wc_amt 18.2 ; format blood_furnished 18.2 ; format clm_type_cd $1. ; format coding_method_cd $1. ; format data_collector $5. ; format accid_dt $8. ; format admit_dt $8. ; format anest_method $2. ; format clm_from_dt $8. ; format clm_thru_dt $8. ; format disch_dt $8. ; format birth_dt $128. ; format disch_day $3. ; format disch_hr $2. ; format unit_exempt_cd $3. ; format fac_id $6. ; format fac_name $200. ; format fac_npi $10. ; format file_type $1. ; format gender_cd $1. ; format hsa $1. ; format hosp_cnty_cd $5. ; format abort_ind $1. ; format emerg_ind $1. ; format emerg_admit_ind $1. ; format hiv_ind $1. ; format mcaid_income_ind $1. ; format newborn_ind $1. ; format disch_same_day_ind $1. ; format sp_disab_ind $1. ; format sp_fam_plan_ind $1. ; format sp_handicap_child_ind $1. ; format sp_special_funding_ind $1. ; format wc_ind $2.; format leave_days 8. ; format length_of_stay 8. ; format log_numb $6. ; format med_rec_numb $128. ; format med_rec_mom_numb $128.; format mcaid_rate_cd $4. ; format neo_birth_wt 8. ; format nocvrd_days 8. ; format numb_days_cov 8. ; format oper_time $3. ; format opcert_numb $10. ; format pat_ctrl_numb $128. ; format pat_status_cd $2. ; format prim_reimb_cd $2. ; format proc_dt_warning $1. ; format othr_reimb_1_cd $2. ; format othr_reimb_2_cd $2. ; format rec_seq $3. ; format resid_cd $1. ; format svc_catgy_cd $1.; format seq_cnt $3. ; format region_cd $2. ; format trans_cd $1. ; format upide $128. ; format unique_personal_id $128. ; format prev_pat_ctrl_numb $128. ; format fac_type_cd $2. ; format clm_freq_cd $1. ; format payr_resp_amt 18.2 ; format pat_resp_amt 18.2 ; format pat_indvdl_rltnshp_cd $10. ; format pat_grp_numb $128. ; format pat_mbr_id_numb $128. ; format pat_mritl_sts $10. ; format svc_prov_emp_id_id $128. ; format clm_key $12. ; format actv_flag $1. ; format ltst_flag $1. ; format file_nm $150. ; 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. ; input clm_trans_id $ disch_yr $ accid_hr $ accid_type $ admit_day $ admit_hr $ admit_src_cd $ admit_type_cd $ age sparcs_age_grp_cd $ age_in_days age_warning_ind $ alt_care_days ami_bp_diastolic $ ami_bp_systolic $ ami_heart_rate $ chrg_accom_amt chrg_accom_nocvrd_amt chrg_ancil_amt chrg_ancil_nocvrd_amt chrg_tot_amt mcaid_income_amt chrg_nocvrd_amt paid_wc_amt blood_furnished clm_type_cd $ coding_method_cd $ data_collector $ accid_dt $ admit_dt $ anest_method $ clm_from_dt $ clm_thru_dt $ disch_dt $ birth_dt $ disch_day $ disch_hr $ unit_exempt_cd $ fac_id $ fac_name $ fac_npi $ file_type $ gender_cd $ hsa $ hosp_cnty_cd $ abort_ind $ emerg_ind $ emerg_admit_ind $ hiv_ind $ mcaid_income_ind $ newborn_ind $ disch_same_day_ind $ sp_disab_ind $ sp_fam_plan_ind $ sp_handicap_child_ind $ sp_special_funding_ind $ wc_ind $ leave_days length_of_stay log_numb $ med_rec_numb $ med_rec_mom_numb $ mcaid_rate_cd $ neo_birth_wt nocvrd_days numb_days_cov oper_time $ opcert_numb $ pat_ctrl_numb $ pat_status_cd $ prim_reimb_cd $ proc_dt_warning $ othr_reimb_1_cd $ othr_reimb_2_cd $ rec_seq $ resid_cd $ svc_catgy_cd $ seq_cnt $ region_cd $ trans_cd $ upide $ unique_personal_id $ prev_pat_ctrl_numb $ fac_type_cd $ clm_freq_cd $ payr_resp_amt pat_resp_amt pat_indvdl_rltnshp_cd $ pat_grp_numb $ pat_mbr_id_numb $ pat_mritl_sts $ svc_prov_emp_id_id $ clm_key $ actv_flag $ ltst_flag $ file_nm $ processed_dt $ last_updd_dt $ created_by $ last_updd_by $ src_nm $ insert_row_dt $ ; if _ERROR_ then call symputx('_EFIERR_',1); /* set ERROR detection macro variable */ run;