NOTE: PROCEDURE PRINTTO used (Total process time): real time 0.00 seconds cpu time 0.00 seconds SYMBOLGEN: Macro variable DASH resolves to 222-92 SYMBOLGEN: Macro variable UNDERSCORE resolves to 222_92 SYMBOLGEN: Macro variable YEAR resolves to 2018 MPRINT(LOOP): proc printto print="/homes/data/hcris/hclinic/222-92/read_hclinic_rpt222_92_2018.lst" new; SYMBOLGEN: Macro variable FILEPATH resolves to /homes/data/hcris/222-92/hclinic_&year._RPT.CSV SYMBOLGEN: Macro variable YEAR resolves to 2018 MPRINT(LOOP): FILENAME datafile "/homes/data/hcris/222-92/hclinic_2018_RPT.CSV"; MPRINT(LOOP): * The following line should contain the name of the SAS dataset ; MLOGIC(LOOP): %LET (variable name is DATASET) 28 The SAS System 18:09 Monday, April 15, 2019 SYMBOLGEN: Macro variable UNDERSCORE resolves to 222_92 SYMBOLGEN: Macro variable YEAR resolves to 2018 SYMBOLGEN: Macro variable DATASET resolves to library.hclinic_rpt222_92_2018 NOTE: PROCEDURE PRINTTO used (Total process time): real time 0.00 seconds cpu time 0.00 seconds MPRINT(LOOP): data library.hclinic_rpt222_92_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 $1 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/222-92/hclinic_2018_RPT.CSV, Owner Name=jroth,Group Name=web, Access Permission=-rw-r--r--, Last Modified=08Apr2019:08:50:26, File Size (bytes)=3847 NOTE: 41 records were read from the infile DATAFILE. The minimum record length was 70. The maximum record length was 101. NOTE: The data set LIBRARY.HCLINIC_RPT222_92_2018 has 41 observations and 18 variables. NOTE: DATA statement used (Total process time): real time 0.02 seconds cpu time 0.01 seconds SYMBOLGEN: Macro variable DATASET resolves to library.hclinic_rpt222_92_2018 MPRINT(LOOP): proc sort data=library.hclinic_rpt222_92_2018; MPRINT(LOOP): by rpt_rec_num; NOTE: There were 41 observations read from the data set LIBRARY.HCLINIC_RPT222_92_2018. NOTE: The data set LIBRARY.HCLINIC_RPT222_92_2018 has 41 observations and 18 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.00 seconds 29 The SAS System 18:09 Monday, April 15, 2019 cpu time 0.00 seconds SYMBOLGEN: Macro variable DATASET resolves to library.hclinic_rpt222_92_2018 MPRINT(LOOP): proc means DATA=library.hclinic_rpt222_92_2018 max n; MPRINT(LOOP): title "Inspect maximums: Using a length of 4 bytes (default) retains 6 significant digits" ; NOTE: There were 41 observations read from the data set LIBRARY.HCLINIC_RPT222_92_2018. NOTE: The PROCEDURE MEANS printed page 67. NOTE: PROCEDURE MEANS used (Total process time): real time 0.00 seconds cpu time 0.00 seconds SYMBOLGEN: Macro variable DATASET resolves to library.hclinic_rpt222_92_2018 MPRINT(LOOP): proc freq DATA=library.hclinic_rpt222_92_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 41 observations read from the data set LIBRARY.HCLINIC_RPT222_92_2018. NOTE: The PROCEDURE FREQ printed pages 68-69. NOTE: PROCEDURE FREQ used (Total process time): real time 0.00 seconds cpu time 0.00 seconds SYMBOLGEN: Macro variable DATASET resolves to library.hclinic_rpt222_92_2018 MPRINT(LOOP): proc print DATA=library.hclinic_rpt222_92_2018 (obs=6); NOTE: There were 6 observations read from the data set LIBRARY.HCLINIC_RPT222_92_2018. NOTE: The PROCEDURE PRINT printed page 70. NOTE: PROCEDURE PRINT used (Total process time): real time 0.00 seconds cpu time 0.00 seconds SYMBOLGEN: Macro variable DATASET resolves to library.hclinic_rpt222_92_2018 MPRINT(LOOP): proc contents DATA=library.hclinic_rpt222_92_2018; MLOGIC(LOOP): %DO loop index variable YEAR is now 2019; loop will not iterate again. MLOGIC(LOOP): Ending execution. 192 /* 193 Copyright 2007 shared by Jean Roth and the National Bureau of Economic Research 194 195 National Bureau of Economic Research. 196 1050 Massachusetts Avenue 197 Cambridge, MA 02138 198 jroth@nber.org 199 200 This program and all programs referenced in it are free software. You 201 can redistribute the program or modify it under the terms of the GNU 202 General Public License as published by the Free Software Foundation; 203 either version 2 of the License, or (at your option) any later version. 204 205 This program is distributed in the hope that it will be useful, 206 but WITHOUT ANY WARRANTY; without even the implied warranty of 207 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 208 GNU General Public License for more details. 209 30 The SAS System 18:09 Monday, April 15, 2019 210 You should have received a copy of the GNU General Public License 211 along with this program; if not, write to the Free Software 212 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 213 USA. 214 */ NOTE: The PROCEDURE CONTENTS printed pages 71-72. NOTE: PROCEDURE CONTENTS used (Total process time): real time 0.00 seconds cpu time 0.01 seconds