log using injverbt.log, replace version 6.0 * THE FOLLOWING COMMAND TEMPORARILY CHANGES THE COMMAND- * ENDING DELIMITER FROM A CARRIAGE RETURN TO A SEMICOLON #delimit ; ********************************************************************* FEBRUARY 23, 2006 12:52 PM THIS IS AN EXAMPLE OF A STATA DO PROGRAM THAT CREATES A STATA FILE FROM THE 2004 NHIS Public Use Episode Verbatim ASCII FILE NOTES: EXECUTING THIS PROGRAM WILL REPLACE INJVERBT.DTA AND INJVERBT.LOG IF THOSE FILES ALREADY EXIST IN THE DEFAULT DIRECTORY THIS PROGRAM ASSUMES THAT THE ASCII DATA FILE IS IN THE STATA WORKING DIRECTORY. AN EXAMPLE OF HOW TO CHANGE THE WORKING DIRECTORY WITHIN STATA IS THE FOLLOWING COMMAND: cd \nhis2004\ THIS PROGRAM OPENS A LOG FILE. IF THE PROGRAM ENDS PREMATURELY, THE LOG FILE WILL REMAIN OPEN. BEFORE RUNNING THIS PROGRAM AGAIN, THE USER SHOULD ENTER THE FOLLOWING STATA COMMAND: log close THIS IS STORED IN INJVERBT.DO *********************************************************************; clear; set mem 200m; * INPUT ALL VARIABLES; infix rectype 1 - 2 srvy_yr 3 - 6 str hhx 7 - 12 str fmx 13 - 14 str fpx 15 - 16 str ipepno 17 - 18 str iphow 19 - 318 str ijbodyos 319 - 418 str ijtyp1os 419 - 518 str ijtyp2os 519 - 618 str ijtyp3os 619 - 718 str ijtyp4os 719 - 818 str ipothos 819 - 918 str ppoisos 919 -1018 str ipwhatot 1019 -1118 using injverbt.dat; * DEFINE VARIABLE LABELS; label variable rectype "IDN.000_00.000: File type identifier"; label variable srvy_yr " IDN.000_02.000: Year of National Health Interview Survey"; label variable hhx "IDN.000_04.000: HH identifier"; label variable fmx "IDN.000_35.000: Family #"; label variable fpx "IDN.000_40.000: Person #"; label variable ipepno "IDN.000_55.000: Injury/Poisoning Episode Number"; label variable iphow "FIJ.060_00.000: Description of injury/poisoning episode "; * DEFINE VALUE LABELS FOR REPORTS; label define ivp001x 10 "10 Household" 20 "20 Person" 30 "30 Sample Adult" 40 "40 Sample Child" 60 "60 Family" 70 "70 Injury/Poisoning Episode" 75 "75 Injury/Poisoning Verbatim" ; label define ivp002x 2004 "2004" ; * ASSOCIATE VARIABLES WITH VALUE LABEL DEFINITIONS; label values rectype ivp001x; label values srvy_yr ivp002x; * DISPLAY OVERALL DESCRIPTION OF FILE; describe; * DISPLAY A TEST TABLE FROM THE FILE; tabulate rectype; save injverbt, replace; #delimit cr * data file is stored in injverbt.dta * log file is stored in injverbt.log log close