NOTE: PROCEDURE PRINTTO used (Total process time): 25 The SAS System 17:21 Monday, April 15, 2019 real time 0.00 seconds cpu time 0.00 seconds SYMBOLGEN: Macro variable DASH resolves to 2552-10 SYMBOLGEN: Macro variable YEAR resolves to 2018 MPRINT(LOOP): proc printto print="/homes/data/hcris/2552-10/read_hosp_rpt2018.lst" new; SYMBOLGEN: Macro variable FILEPATH resolves to /homes/data/hcris/2552-10/hosp10_&year._RPT.CSV SYMBOLGEN: Macro variable YEAR resolves to 2018 MPRINT(LOOP): FILENAME datafile "/homes/data/hcris/2552-10/hosp10_2018_RPT.CSV" ; MPRINT(LOOP): * The following line should contain the name of the SAS dataset ; MLOGIC(LOOP): %LET (variable name is DATASET) SYMBOLGEN: Macro variable UNDERSCORE resolves to 2552_10 SYMBOLGEN: Macro variable YEAR resolves to 2018 SYMBOLGEN: Macro variable DATASET resolves to library.hosp_rpt2552_10_2018 NOTE: PROCEDURE PRINTTO used (Total process time): real time 0.00 seconds cpu time 0.00 seconds MPRINT(LOOP): data library.hosp_rpt2552_10_2018; MPRINT(LOOP): *hosp_dm.* files report lengths; MPRINT(LOOP): *Using a length of 4 bytes retains 6 significant digits; MPRINT(LOOP): *Largest integer represented exactly is 2,097,152; MPRINT(LOOP): *Maximum values apply to 2002-09-30 data file; MPRINT(LOOP): *max date is around 16000, do length of 4 should be fine for dates; MPRINT(LOOP): *Variable Maximum --------- ------- RPT_REC_NUM 64331 Primary Key / Unique ID PRVDR_CTRL_TYPE_CD "13" PRVDR_NUM "660001" RPT_STUS_CD "4" INITL_RPT_SW "Y" LAST_RPT_SW "Y" TRNSMTL_NUM "8" FI_NUM "77002" ADR_VNDR_CD "4" UTIL_CD "F" SPEC_IND "Y" ; MPRINT(LOOP): LENGTH rpt_rec_num 5 prvdr_ctrl_type_cd $2 prvdr_num $7 rpt_stus_cd 3 initl_rpt_sw $1 last_rpt_sw $1 trnsmtl_num $1 fi_num $5 adr_vndr_cd 3 util_cd $1 spec_ind $1 default = 4; MPRINT(LOOP): * '2C' is hexadecimal for decimal 44 which represents ',' ; MPRINT(LOOP): * '0D' is hexadecimal for decimal 13 which represents '\r', which is the carriage return character; MPRINT(LOOP): infile datafile dsd delimiter='2C0D'x ; MPRINT(LOOP): ** the ":" is a format modifier that reads data values that need additional instructions from an informat; MPRINT(LOOP): INPUT rpt_rec_num prvdr_ctrl_type_cd $ prvdr_num $ npi $ rpt_stus_cd fy_bgn_dt : mmddyy10. fy_end_dt : mmddyy10. proc_dt : mmddyy10. initl_rpt_sw $ last_rpt_sw $ trnsmtl_num $ fi_num $ adr_vndr_cd fi_creat_dt : mmddyy10. util_cd $ npr_dt : mmddyy10. spec_ind $ fi_rcpt_dt : mmddyy10. ; MPRINT(LOOP): LABEL rpt_rec_num= "Report Record Number" prvdr_ctrl_type_cd = "Provider Control Type Code" prvdr_num = "Provider Number" npi= "National Provider Identifier" rpt_stus_cd= "Report Status Code" fy_bgn_dt= "Fiscal Year Begin Date" fy_end_dt= "Fiscal Year End Date" proc_dt = "HCRIS Process Date" initl_rpt_sw= "Initial Report Switch" last_rpt_sw= "Last Report Switch" trnsmtl_num= "Transmittal Number" fi_num = "Fiscal Intermediary Number" adr_vndr_cd= "Automated Desk Review Vendor Code" fi_creat_dt= "Fiscal Intermediary Create Date" util_cd = "Utilization Code" npr_dt = "Notice of Program Reimbursement Date" spec_ind= "Special Indicator" fi_rcpt_dt= "Fiscal Intermediary Receipt Date" ; MPRINT(LOOP): FORMAT fy_bgn_dt MMDDYYS10. fy_end_dt MMDDYYS10. proc_dt MMDDYYS10. fi_creat_dt MMDDYYS10. npr_dt MMDDYYS10. fi_rcpt_dt MMDDYYS10. ; NOTE: The infile DATAFILE is: Filename=/homes/data/hcris/2552-10/hosp10_2018_RPT.CSV, Owner Name=jroth,Group Name=aging, Access Permission=-rw-r--r--, Last Modified=08Apr2019:17:16:38, File Size (bytes)=90747 NOTE: 974 records were read from the infile DATAFILE. The minimum record length was 91. The maximum record length was 101. NOTE: The data set LIBRARY.HOSP_RPT2552_10_2018 has 974 observations and 18 variables. 26 The SAS System 17:21 Monday, April 15, 2019 NOTE: DATA statement used (Total process time): real time 0.02 seconds cpu time 0.01 seconds SYMBOLGEN: Macro variable DATASET resolves to library.hosp_rpt2552_10_2018 MPRINT(LOOP): proc sort data=library.hosp_rpt2552_10_2018; MPRINT(LOOP): by rpt_rec_num; NOTE: There were 974 observations read from the data set LIBRARY.HOSP_RPT2552_10_2018. NOTE: The data set LIBRARY.HOSP_RPT2552_10_2018 has 974 observations and 18 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.00 seconds cpu time 0.00 seconds SYMBOLGEN: Macro variable DATASET resolves to library.hosp_rpt2552_10_2018 MPRINT(LOOP): proc means DATA=library.hosp_rpt2552_10_2018 max n; MPRINT(LOOP): title "Inspect maximums: Using a length of 4 bytes (default) retains 6 significant digits" ; NOTE: There were 974 observations read from the data set LIBRARY.HOSP_RPT2552_10_2018. NOTE: The PROCEDURE MEANS printed page 60. NOTE: PROCEDURE MEANS used (Total process time): real time 0.00 seconds cpu time 0.01 seconds SYMBOLGEN: Macro variable DATASET resolves to library.hosp_rpt2552_10_2018 MPRINT(LOOP): proc freq DATA=library.hosp_rpt2552_10_2018 ; MPRINT(LOOP): title "" ; MPRINT(LOOP): tables prvdr_ctrl_type_cd rpt_stus_cd initl_rpt_sw last_rpt_sw trnsmtl_num fi_num adr_vndr_cd util_cd spec_ind ; MPRINT(LOOP): FORMAT prvdr_ctrl_type_cd $prvdr_ctrl_type_cd. rpt_stus_cd rpt_stus_cd. initl_rpt_sw $initl_rpt_sw. last_rpt_sw $last_rpt_sw. adr_vndr_cd adr_vndr_cd. util_cd $util_cd. ; NOTE: There were 974 observations read from the data set LIBRARY.HOSP_RPT2552_10_2018. NOTE: The PROCEDURE FREQ printed pages 61-62. NOTE: PROCEDURE FREQ used (Total process time): real time 0.00 seconds cpu time 0.00 seconds SYMBOLGEN: Macro variable DATASET resolves to library.hosp_rpt2552_10_2018 MPRINT(LOOP): proc print DATA=library.hosp_rpt2552_10_2018 (obs=6); NOTE: There were 6 observations read from the data set LIBRARY.HOSP_RPT2552_10_2018. NOTE: The PROCEDURE PRINT printed page 63. NOTE: PROCEDURE PRINT used (Total process time): real time 0.00 seconds cpu time 0.00 seconds SYMBOLGEN: Macro variable DATASET resolves to library.hosp_rpt2552_10_2018 MPRINT(LOOP): proc contents DATA=library.hosp_rpt2552_10_2018; MLOGIC(LOOP): %DO loop index variable YEAR is now 2019; loop will not iterate again. MLOGIC(LOOP): Ending execution. 189 /* 190 Copyright 2007 shared by Jean Roth and the National Bureau of Economic Research 191 192 National Bureau of Economic Research. 193 1050 Massachusetts Avenue 194 Cambridge, MA 02138 27 The SAS System 17:21 Monday, April 15, 2019 195 jroth@nber.org 196 197 This program and all programs referenced in it are free software. You 198 can redistribute the program or modify it under the terms of the GNU 199 General Public License as published by the Free Software Foundation; 200 either version 2 of the License, or (at your option) any later version. 201 202 This program is distributed in the hope that it will be useful, 203 but WITHOUT ANY WARRANTY; without even the implied warranty of 204 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 205 GNU General Public License for more details. 206 207 You should have received a copy of the GNU General Public License 208 along with this program; if not, write to the Free Software 209 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 210 USA. 211 */ NOTE: The PROCEDURE CONTENTS printed pages 64-65. NOTE: PROCEDURE CONTENTS used (Total process time): real time 0.00 seconds cpu time 0.00 seconds