DM 'CLE LOG; CLE OUT'; ************************************************************************** April 21, 2008 THIS IS AN EXAMPLE OF A SAS PROGRAM THAT CREATES A SAS FILE FROM THE NHIS 1966 HOSPITAL.DAT ASCII FILE. NOTE: THE FORMAT DEFINITIONS GIVEN BELOW WILL RESULT IN PROCEDURE OUTPUT SHOWING VALUES THAT HAVE BEEN GROUPED AS THEY ARE SHOWN IN THE FILE LAYOUT DOCUMENTATION. THIS IS STORED IN HOSPITAL.SAS *************************************************************************; * USER NOTE: PLACE NEXT TWO STATEMENTS IN SUBSEQUENT PROGRAMS; LIBNAME NHIS 'C:\NHIS1966\'; LIBNAME LIBRARY 'C:\NHIS1966\'; FILENAME ASCIIDAT 'C:\PU\1966\dat\HOSPITAL.DAT'; * DEFINE VARIABLE VALUES FOR REPORT; PROC FORMAT LIBRARY=LIBRARY; VALUE HPU001X 1 = "July-September 1965" 2 = "October-December 1965" 3 = "January-March 1966" 4 = "April-June 1966" ; VALUE HPU002X 1 = "Northeast (includes sections 1 and 2)" 2 = "North Central (includes sections 3,4 and 5)" 3 = "South (includes sections 6,7,8 and 9)" 4 = "West (includes sections 10 and 11)" ; VALUE HPU003X ; VALUE HPU004X ; VALUE HPU005X ; VALUE HPU006X ; VALUE HPU007X ; VALUE HPU008X ; VALUE HPU009X 0 = "Under 17 years of age" 1 = "Usually working" 2 = "Keeping house" 3 = "No code" 4 = "Something else" 5 = "Unknown" ; VALUE $HPU010X ; VALUE $HPU011X '&' = "Primary individual" '-' = "Secondary individual" '0' = "Primary family" '1'-'9' = "Secondary family" ; VALUE $HPU012X '&' = "Unrelated individual living alone" '0' = "Head of family or unrelated individual NOT living alone" '1' = "Wife" '2' = "Child" '3' = "Other relative" ; VALUE HPU013X 0 = "Male" 1 = "Female" ; VALUE HPU014X 00 = "Under 1 year" 01-84 = "Number of years" 85 = "85 years or older" ; VALUE HPU015X 0 = "White" 1 = "Negro" 2 = "Other" ; VALUE $HPU016X '1' = "Retired male, aged 45+" '2' = "Not working, has job, looking for work" '3' = "Not working, has job, on layoff" '4' = "Not working, has job, looking for work and on Layoff" '5' = "Not in labor force but not retired male, 45+" '0' = "Not applicable (code 1,2,4,6 in loc 30)" ' ' = "Has job, is looking or on layoff, DK which" ; VALUE HPU017X 1 = "Yes worked" 2 = "Not working, has job" 3 = "Not working, has job, on layoff or looking for work" 4 = "Not working, no job,looking for work or on lay-off" 5 = "Not working, no job, not on lay-off nor looking for work" 6 = "Under 17 years" ; VALUE $HPU018X '&' = "Under 17 years of age" '-' = "Unknown" '0' = "None" '1' = "1-4 years completed" '2' = "5-7 years completed" '3' = "8 years completed" '4' = "9-11 years completed" '5' = "12 years completed (high school graduate)" '6' = "13-14 years completed" '7' = "15 years completed" '8' = "16 years completed (college graduate)" '9' = "17+ years completed (graduate school)" ; VALUE $HPU019X '&' = "Under 17 years of age" '-' = "Unknown" '0' = "None" '1' = "1-4 years completed" '2' = "5-7 years completed" '3' = "8 years completed" '4' = "9-11 years completed" '5' = "12 years completed (high school graduate)" '6' = "13-14 years completed" '7' = "15 years completed" '8' = "16 years completed (college graduate)" '9' = "17+ years completed (graduate school)" ; VALUE $HPU020X '-' = "$15,000 plus" '0' = "Unknown" '1' = "Under $500" '2' = "$500-$999" '3' = "$1,000-$1,999" '4' = "$2,000-$2,999" '5' = "$3,000-$3,999" '6' = "$4,000-$4,999" '7' = "$5,000-$6,999" '8' = "$7,000-$9,999" '9' = "$10,000-$14,999" ; VALUE HPU021X 0 = "Under 17 years" 1 = "Married" 2 = "No code" 3 = "Widowed" 4 = "Divorced" 5 = "Separated" 6 = "Never married" ; VALUE HPU022X 0 = "Self-entirely" 1 = "Self-partly" 2 = "Spouse" 3 = "Mother" 4 = "Father" 5 = "Other female family member" 6 = "Other male family member" 7 = "Other" 8 = "Unknown" ; VALUE HPU023X 0 = "Female or under 17 years" 1 = "Non-veteran" 2 = "Peace time only" 3 = "World War II" 4 = "Korean" 5 = "Other war" 6 = "Armed Forces, DK status" 7 = "DK, if ever served" ; VALUE HPU024X 0 = "Question 13" 1 = "Blank" 2 = "Question 14" 3 = "Other" ; VALUE HPU025X 0001-3837 = "Number of days" ; VALUE HPU026X 00 = "None" 01-14 = "Number of days" ; VALUE HPU027X 00 = "None" 001-365 = "Number of nights" ; VALUE $HPU028X ; VALUE $HPU029X '&' = "Unknown" '0' = "Private paid" '1' = "Federal government" '2' = "Other government" '3' = "Self-employed" '4' = "No pay" '5' = "Other (new worker)" ; VALUE HPU030X ; VALUE HPU031X ; VALUE $HPU032X ' ' = "No operation" '--' = "Unknown operation" '01'-'99' = "See Medical Coding Manual, Appendix II" ; VALUE $HPU033X ' ' = "No operation" '--' = "Unknown operation" '01'-'99' = "See Medical Coding Manual, Appendix II" ; VALUE $HPU034X ' ' = "No operation" '--' = "Unknown operation" '01'-'99' = "See Medical Coding Manual, Appendix II" ; VALUE $HPU035X ' ' = "No operation" '--' = "Unknown operation" '01'-'20' = "See Operation Recode listing" ; VALUE $HPU036X ' ' = "No operation" '--' = "Unknown operation" '01'-'20' = "See Operation Recode listing" ; VALUE $HPU037X ' ' = "No operation" '--' = "Unknown operation" '01'-'20' = "See Operation Recode listing" ; VALUE $HPU038X '-' = "Yes, operation for the diagnosis" '0' = "Yes, no operation for the diagnosis" '2' = "No operation" ; VALUE $HPU039X ; VALUE $HPU040X '&' = "January" '4' = "July" '-' = "Februar" '5' = "August" '0' = "March" '6' = "September" '1' = "April" '7' = "October" '2' = "May" '8' = "November" '3' = "June" '9' = "December" ; VALUE $HPU041X '&' = "1956" '4' = "1962" '-' = "1957" '5' = "1963" '0' = "1958" '6' = "1964" '1' = "1959" '7' = "1965" '2' = "1960" '8' = "1966" '3' = "1961" ; VALUE HPU042X ; VALUE HPU043X ; VALUE $HPU044X '01' = "General" '02' = "Psychiatric" '03' = "Tuberculosis" '04' = "Maternity" '06' = "Ear, Eye, Nose and Throat" '07' = "Children's" '08' = "Orthopedic" '09' = "Contagious Disease" '10' = "Chronic Disease" '11' = "Hospital Department of institution" '12' = "All other" '89' = "In index, unknown type" '90' = "DK (entry of DK for hospital name)" '93' = "Hospitalized in Foreign Country - Not in index" '98' = "Osteopathic" '99' = "Not identified as a hospital - Not in index" '&&' = "Not reported" ; VALUE $HPU045X '12' = "State" '13' = "County" '14' = "City" '15' = "City-County" '16' = "Hospital district" '21' = "Church operated or related" '23' = "Other non-profit" '31' = "Individual" '32' = "Partnership" '33' = "Corporation (profit)" '34' = "Proprietary, NOS" '41' = "Air Force" '51' = "Army" '61' = "Navy" '62' = "Department of Defense, NOS" '71' = "Public Health Service" '81' = "Veterans Administration" '91' = "Other federal" '89' = "In index, unknown type" '90' = "DK (entry of DK for hospital name)" '93' = "Hospitalized in Foreign Country - not in index" '95' = "Nursing home, assumed from title" '98' = "Osteopathic" '99' = "Not identified as a hospital - not in index" '&&' = "Not reported" ; VALUE HPU046X 1 = "Short-stay hospitals (codes 01,04,06,07,11,89, 90,98,&&)" 2 = "Long-stay hospitals (codes 02,03,08,09,10,12)" 3 = "Not in index (codes 93,99)" ; VALUE $HPU047X '1'-'9' = "Short-stay episode for a person" '-' = "Other than short-stay episode" ; VALUE $HPU048X '-' = "Unknown" '1'-'8' = "1-8 rooms" '9' = "9+ rooms" ; VALUE $HPU049X '-' = "Unknown" '0' = "None" '1'-'8' = "1-8 bedrooms" '9' = "9+ bedrooms" ; VALUE HPU050X 0 = "Under 19 years" 1 = "At home" 2 = "Not at home" 3 = "DK" ; VALUE HPU051X 1-6 = "1-6 persons" 7 = "7+ persons" ; VALUE HPU052X 1 = "In Standard Metropolitan Statistical Areas - In central City" 2 = "In Standard Metropolitan Statistical Areas - Not in central City" 4 = "Not in Standard Metropolitan Statistical Areas" ; VALUE HPU053X 0 = "Housing Unit" 1 = "Other" ; VALUE HPU054X 0 = "Under 20 years" 1 = "20-54 years" 2 = "55-64 years" 3 = "65-74 years" 4 = "75 years or over" 5 = "Unknown" ; VALUE HPU055X 01-99 = "01-99" ; VALUE HPU056X 6 = "1966" ; VALUE HPU057X ; VALUE HPU058X ; VALUE HPU059X ; VALUE $HPU060X ' ' = "No charge to respondent" '& ' = "Amount not reported" '- ' = "DK amount" '0000'-'9999' = "Dollars" ; VALUE HPU061X 1 = "Admission during past 2 weeks" 2 = "Admission from 2 weeks to 1 year ago" 3 = "Admission prior to past 12 months" ; VALUE HPU062X ; VALUE $HPU063X ; VALUE $HPU064X '0' = "Still in hospital" '1' = "Discharged in past 2 weeks" '2' = "Discharged in past 6 months, excluding the past 2 weeks" '3' = "Discharged 6-12 months ago" '4' = "Discharged prior to past 12 months" ; VALUE HPU065X 1 = "Therapeutic misadventure" 2 = "Other injury" . = "Not applicable" ; VALUE $HPU066X '-' = "Unknown" '0' = "Last week" '1' = "Week before" '2' = "2 weeks - 3 months" '3' = "During 3 months, DK when" '4' = "3-12 months" '5' = "During 12 months, DK when" '6' = "before 12 months" ; VALUE $HPU067X '1' = "Yes" '2' = "No" '3' = "Unknown" '&' = "No entry" ' ' = "Not applicable" ; VALUE $HPU068X '1' = "Yes" '2' = "No" '3' = "Unknown" '&' = "No entry" ' ' = "Not applicable" ; VALUE $HPU069X '&' = "No entry" '1' = "At home - inside house" '2' = "At home - adjacent premises" '3' = "Street and highway" '4' = "Farm" '5' = "Industrial place and premises" '6' = "School" '7' = "Place of recreation & sport, except school" '8' = "Other" '9' = "Unknown" ; VALUE $HPU070X '&' = "No entry" '1' = "Yes" '2' = "No" '3' = "While in Armed Services" '4' = "Under 17 at time of accident" '5' = "Unknown" ; VALUE HPU071X 0 = "Under $3,000" 1 = "$3,000-$4,999" 2 = "$5,000-$6,999" 3 = "$7,000-$9,999" 4 = "$10,000-$14,999" 5 = "$15,000+" 6 = "Unknown" ; VALUE HPU072X 0 = "Living alone" 1 = "Living with non-relative" 2 = "Living with relative--married" 3 = "Living with relative--other" ; VALUE HPU073X ; VALUE HPU074X ; DATA NHIS.HOSPITAL; * CREATE A SAS DATA SET STORED IN DIR 'C:\NHIS1966\'; INFILE ASCIIDAT LRECL=156; * DEFINE LENGTH OF NUMERIC VARIABLES; LENGTH QUARTER 3 REGION 3 PSURANDR 3 WEEK 3 SEGMENT 3 HHID 3 PERSON 3 RECTYPE 3 USUALACT 3 SEX 3 AGE85 3 RACE 3 CURACT2W 3 MARSTAT 3 RESPOND 3 VETERAN 3 QUESTNO 3 NIGHTALL 4 NIGHT2W 3 NIGHT12M 3 DIAGR1 3 DIAGR2 3 INDUSR 3 OCCUPR 3 SERVICER 3 PXHOME 3 SIZER 3 SMSA 3 HHUNIT 3 AGERESPR 3 FAMSIZE 3 YEAR 3 WT65 4 WTFQ 4 SUNPRIOR 4 ADMISNR 3 DISCNUM 4 INJTYPE 3 INCOMER 3 FAMRELR 3 ACICLASR 3 WTFA 4 ; * INPUT ALL VARIABLES; INPUT QUARTER 1 - 1 REGION 2 - 2 PSURANDR 10 - 12 WEEK 13 - 14 SEGMENT 15 - 16 HHID 17 - 18 PERSON 19 - 20 RECTYPE 21 - 21 USUALACT 22 - 22 FAMILY $ 23 - 24 FAMTYPE $ 23 - 23 FAMREL $ 24 - 24 SEX 25 - 25 AGE85 26 - 27 RACE 28 - 28 CURACTAD $ 29 - 29 CURACT2W 30 - 30 EDUCFH $ 31 - 31 EDUCPX $ 32 - 32 INCOME $ 33 - 33 MARSTAT 34 - 34 RESPOND 35 - 35 VETERAN 36 - 36 QUESTNO 37 - 37 NIGHTALL 40 - 43 NIGHT2W 44 - 45 NIGHT12M 46 - 48 DIAGCODE $ 49 - 52 WKCLASS $ 53 - 53 DIAGR1 54 - 56 DIAGR2 57 - 58 OPERATN1 $ 59 - 60 OPERATN2 $ 61 - 62 OPERATN3 $ 63 - 64 OPERAT1R $ 65 - 66 OPERAT2R $ 67 - 68 OPERAT3R $ 69 - 70 SURGICAL $ 71 - 71 ADMISSN $ 72 - 75 ADMONTH $ 72 - 72 ADYEAR $ 75 - 75 INDUSR 80 - 81 OCCUPR 82 - 83 SERVICE $ 85 - 86 OWNERSHP $ 87 - 88 SERVICER 89 - 89 SNOSHORT $ 91 - 91 ROOMS $ 92 - 92 BEDROOMS $ 93 - 93 PXHOME 95 - 95 SIZER 96 - 96 SMSA 101 - 101 HHUNIT 102 - 102 AGERESPR 103 - 103 FAMSIZE 106 - 107 YEAR 108 - 108 WT65 109 - 114 WTFQ 115 - 120 SUNPRIOR 121 - 124 ADMINUM $ 125 - 128 ADMISNR 129 - 129 DISCNUM 130 - 133 JVALUE $ 134 - 136 DISCHARR $ 137 - 137 INJTYPE 138 - 138 ACIWHEN $ 139 - 139 ACIMOTOR $ 140 - 140 ACIMOVMO $ 141 - 141 ACIWHERE $ 142 - 142 ACIATWRK $ 143 - 143 INCOMER 146 - 146 FAMRELR 147 - 147 ACICLASR 148 - 150 WTFA 151 - 156 ; * DEFINE VARIABLE LABELS; LABEL QUARTER = "QUARTER" REGION = "REGION" PSURANDR = "PSU RANDOM RECODE" WEEK = "WEEK OF QUARTER" SEGMENT = "SEGMENT NUMBER" HHID = "HOUSEHOLD NUMBER" PERSON = "PERSON COLUMN NUMBER" RECTYPE = "RECORD TYPE (2)" USUALACT = "USUAL ACTIVITY STATUS" FAMILY = "FAMILY RELATIONSHIP" FAMTYPE = "TYPE OF FAMILY" FAMREL = "RELATIONSHIP TO REFERENCE PERSON" SEX = "SEX" AGE85 = "AGE 85" RACE = "RACE" CURACTAD = "CURRENT ACTIVITY - ADDITIONAL CODES" CURACT2W = "CURRENT ACTIVITY DURING PAST 2 WEEKS" EDUCFH = "EDUCATION OF FAMILY HEAD OR OF UNRELATED INDIVIDUALS" EDUCPX = "EDUCATION OF INDIVIDUAL" INCOME = "COMBINED FAMILY INCOME OR INCOME OF UNRELATED INDIVIDUALS" MARSTAT = "MARITAL STATUS" RESPOND = "RESPONDENT - QUESTIONS 6-13" VETERAN = "VETERAN STATUS" QUESTNO = "QUESTION NUMBER" NIGHTALL = "TOTAL NIGHTS IN HOSPITAL" NIGHT2W = "NIGHTS IN HOSPITAL IN LAST 2 WEEKS" NIGHT12M = "NIGHTS IN HOSPITAL IN LAST 12 MONTHS" DIAGCODE = "DIAGNOSTIC DETAIL CODE (ICD CODE)" WKCLASS = "WKCLASS - CLASS OF WORKER" DIAGR1 = "DIAGNOSTIC RECODE 1 (280 GROUPS)" DIAGR2 = "DIAGNOSTIC RECODE 4 (38 GROUPS)" OPERATN1 = "OPERATION 1" OPERATN2 = "OPERATION 2" OPERATN3 = "OPERATION 3" OPERAT1R = "OPERATION #1 RECODE" OPERAT2R = "OPERATION #2 RECODE" OPERAT3R = "OPERATION #3 RECODE" SURGICAL = "SURGICALLY TREATED FOR HOSPITAL DIAGNOSIS" ADMISSN = "HOSPITAL ADMISSION DATE" ADMONTH = "MONTH OF ADMISSION" ADYEAR = "YEAR OF ADMISSION" INDUSR = "INDUSTRY RECODE" OCCUPR = "OCCUPATION RECODE" SERVICE = "HOSPITAL TYPE OF SERVICE" OWNERSHP = "HOSPITAL TYPE OF OWNERSHIP" SERVICER = "TYPE OF HOSPITAL SERVICE RECODE" SNOSHORT = "SERIAL NUMBER OF SHORT-STAY EPISODE" ROOMS = "TOTAL NUMBER OF ROOMS IN UNIT" BEDROOMS = "TOTAL NUMBER OF BEDROOMS IN UNIT" PXHOME = "PERSON AT HOME AT BEGINNING OF INTERVIEW" SIZER = "SIZE OF FAMILY RECODE" SMSA = "STANDARD METROPOLITAN STATISTICAL AREAS" HHUNIT = "TYPE OF LIVING QUARTERS" AGERESPR = "AGE OF RESPONDENT RECODE" FAMSIZE = "ACTUAL SIZE OF FAMILY" YEAR = "FISCAL YEAR" WT65 = "WEIGHT 6.5" WTFQ = "ANNUAL QUARTERLY BASIC WEIGHT" SUNPRIOR = "VALUE FOR SUNDAY NIGHT PRIOR TO INTERVIEW WEEK" ADMINUM = "NUMERICAL DATE OF ADMISSION" ADMISNR = "ADMISSION RECODE" DISCNUM = "NUMERICAL DATE OF DISCHARGE" JVALUE = "J-VALUE" DISCHARR = "J-RECODE" INJTYPE = "TYPE OF INJURY" ACIWHEN = "WHEN DID ACCIDENT HAPPEN?" ACIMOTOR = "MOTOR VEHICLE INVOLVED?" ACIMOVMO = "MOVING VEHICLE INVOLVED?" ACIWHERE = "WHERE DID ACCIDENT HAPPEN" ACIATWRK = "WERE YOU AT WORK WHEN ACCIDENT HAPPENED?" INCOMER = "FAMILY INCOME RECODE" FAMRELR = "FAMILY RELATIONSHIP RECODE" ACICLASR = "CLASS OF ACCIDENT RECODE" WTFA = "FINAL ANNUAL BASIC WEIGHT" ; * ASSOCIATE VARIABLES WITH FORMAT VALUES; FORMAT QUARTER HPU001X. REGION HPU002X. PSURANDR HPU003X. WEEK HPU004X. SEGMENT HPU005X. HHID HPU006X. PERSON HPU007X. RECTYPE HPU008X. USUALACT HPU009X. FAMILY $HPU010X. FAMTYPE $HPU011X. FAMREL $HPU012X. SEX HPU013X. AGE85 HPU014X. RACE HPU015X. CURACTAD $HPU016X. CURACT2W HPU017X. EDUCFH $HPU018X. EDUCPX $HPU019X. INCOME $HPU020X. MARSTAT HPU021X. RESPOND HPU022X. VETERAN HPU023X. QUESTNO HPU024X. NIGHTALL HPU025X. NIGHT2W HPU026X. NIGHT12M HPU027X. DIAGCODE $HPU028X. WKCLASS $HPU029X. DIAGR1 HPU030X. DIAGR2 HPU031X. OPERATN1 $HPU032X. OPERATN2 $HPU033X. OPERATN3 $HPU034X. OPERAT1R $HPU035X. OPERAT2R $HPU036X. OPERAT3R $HPU037X. SURGICAL $HPU038X. ADMISSN $HPU039X. ADMONTH $HPU040X. ADYEAR $HPU041X. INDUSR HPU042X. OCCUPR HPU043X. SERVICE $HPU044X. OWNERSHP $HPU045X. SERVICER HPU046X. SNOSHORT $HPU047X. ROOMS $HPU048X. BEDROOMS $HPU049X. PXHOME HPU050X. SIZER HPU051X. SMSA HPU052X. HHUNIT HPU053X. AGERESPR HPU054X. FAMSIZE HPU055X. YEAR HPU056X. WT65 HPU057X. WTFQ HPU058X. SUNPRIOR HPU059X. ADMINUM $HPU060X. ADMISNR HPU061X. DISCNUM HPU062X. JVALUE $HPU063X. DISCHARR $HPU064X. INJTYPE HPU065X. ACIWHEN $HPU066X. ACIMOTOR $HPU067X. ACIMOVMO $HPU068X. ACIWHERE $HPU069X. ACIATWRK $HPU070X. INCOMER HPU071X. FAMRELR HPU072X. ACICLASR HPU073X. WTFA HPU074X. ; PROC CONTENTS DATA=NHIS.HOSPITAL; PROC FREQ DATA=NHIS.HOSPITAL; TITLE1 'FREQUENCY REPORT FOR 1966 NHIS PUBLIC USE HOSPITAL FILE'; TITLE2 '(WEIGHTED)'; TABLES RECTYPE/LIST MISSING; WEIGHT WTFA; PROC FREQ DATA=NHIS.HOSPITAL; TITLE1 'FREQUENCY REPORT FOR 1966 NHIS PUBLIC USE HOSPITAL FILE'; TITLE2 '(UNWEIGHTED)'; TABLES RECTYPE/LIST MISSING; * USER NOTE: TO SEE UNFORMATTED VALUES IN PROCEDURES, ADD THE STATEMENT: FORMAT _ALL_; RUN;