log using nhis1997_immunize, text replace set mem 1000m /*------------------------------------------------ This program reads the 1997 National Health Interview Survey 1997 immunize Data File by Jean Roth Mon Jul 2 15:41:50 EDT 2007 Please report errors to jroth@nber.org NOTE: This program is distributed under the GNU GPL. See end of this file and http://www.gnu.org/licenses/ for details. Run with do nhis1997_immunize ----------------------------------------------- */ /* The following line should contain the complete path and name of the raw data file. On a PC, use backslashes in paths as in C:\ */ local dat_name "/homes/data/nhis/ftp.cdc.gov/pub/Health_Statistics/NCHS/Datasets/NHIS/1997/immunize.dat" /* The following line should contain the path to your output '.dta' file */ local dta_name "./nhis1997_immunize" /* The following line should contain the path to the data dictionary file */ local dct_name "./nhis1997_immunize.dct" infile using "`dct_name'", using("`dat_name'") clear *Everything below this point are value labels #delimit ; ; label values rectype rectype; label define rectype 50 "Immunization" ; label values srvy_yr srvy_yr; label define srvy_yr 1997 "1997" "96" "No parent in household; has legal guardian" "97" "Refused" "98" "Not ascertained" "99" "Don't know" "96" "No parent in household; has legal guardian" "97" "Refused" "98" "Not ascertained" "99" "Don't know" ; label values parents parents; label define parents 1 "Mother; no father" 2 "Father; no mother" 3 "Mother and father" 4 "Neither mother nor father" 8 "Not ascertained" ; label values intv_qrt intv_qrt; label define intv_qrt 1 "Quarter 1" 2 "Quarter 2" 3 "Quarter 3" 4 "Quarter 4" ; label values sex sex; label define sex 1 "Male" 2 "Female" ; label values age_p age_p; label define age_p 00 "Under 1 year" ; label values icagemr icagemr; label define icagemr 00 "Under 1 month" 36 "36 months or more" ; label values dob_m dob_m; label define dob_m 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values dob_y_p dob_y_p; label define dob_y_p 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values origin origin; label define origin 1 "Yes" 2 "No" 7 "Refused" 8 "Not ascertained" 9 "Don't know" ; label values hispan_p hispan_p; label define hispan_p 00 "Multiple Hispanic" 01 "Puerto Rican" 03 "Mexican-Mexicano" 04 "Mexican-American (includes Chicano)" 05 "Cuban/Cuban-American" 06 "Other Latin American" 07 "Other Spanish" 08 "Hispanic/Spanish; non-specific type" 09 "Hispanic/Spanish; type refused" 10 "Hispanic/Spanish; type not ascertained" 11 "Hispanic/Spanish; type don't know" 12 "Not Hispanic/Spanish origin" ; label values mrace_p mrace_p; label define mrace_p 01 "White" 02 "Black/African American" 03 "Indian (American) (includes Eskimo; Aleut)" 06 "Chinese" 07 "Filipino" 12 "Asian Indian" 15 "Other API*" 16 "Other race" 17 "Multiple race" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values racerec racerec; label define racerec 1 "White" 2 "Black" 3 "Other" ; label values race race; label define race 1 "White" 2 "Black" 3 "AIAN*" 4 "API*" 5 "Other" 6 "Multiple race" 7 "Refused" 8 "Not ascertained" 9 "Don't know" ; label values educ educ; label define educ 00 "Never attended/ kindergarten only" 12 "12th grade; no diploma" 13 "HIGH SCHOOL GRADUATE" 14 "GED or equivalent" 15 "Some college; no degree" 16 "AA degree: technical or vocational" 17 "AA degree: academic program" 18 "Bachelor's degree (BA; AB; BS; BBA)" 19 "Master's degree (MA; MS; MEng; MEd; MBA)" 20 "Professional degree (MD; DDS; DVM; JD)" 21 "Doctoral degree (PhD; EdD)" 96 "Child under 5 years old" 97 "Refused" 98 "Not Ascertained" 99 "Don't know" ; label values ab_bl20k ab_bl20k; label define ab_bl20k 01 "$20;000 or more" 02 "Less than $20;000" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values rat_cat rat_cat; label define rat_cat 01 "Under .50" 02 ".50 to .74" 03 ".75 to .99" 04 "1.00 to 1.24" 05 "1.25 to 1.49" 06 "1.50 to 1.74" 07 "1.75 to 1.99" 08 "2.00 to 2.49" 09 "2.50 to 2.99" 10 "3.00 to 3.49" 11 "3.50 to 3.99" 12 "4.00 to 4.49" 13 "4.50 to 4.99" 14 "5.00 and over" 96 "Undefinable" 99 "Unknown" ; label values region region; label define region 1 "Northeast" 2 "Midwest" 3 "South" 4 "West" ; label values msasizep msasizep; label define msasizep 1 "5;000;000 or more" 2 "2;500;000 - 4;999;999" 3 "1;000;000 - 2;499;999" 4 "500;000 - 999;999" 5 "250;000 - 499;999" 6 "Under 250;000" 7 "Non-MSA" ; label values shotrc shotrc; label define shotrc 1 "Yes" 2 "No" 7 "Refused" 8 "Not ascertained" 9 "Don't know" ; label values dtpct_c dtpct_c; label define dtpct_c 00 "None or unknown" ; label values dtpdt_m1 dtpdt_ma; label define dtpdt_ma 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values dtpdt_y1 dtpdt_ya; label define dtpdt_ya 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values dtpdt_m2 dtpdt_mb; label define dtpdt_mb 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values dtpdt_y2 dtpdt_yb; label define dtpdt_yb 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values dtpdt_m3 dtpdt_mc; label define dtpdt_mc 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values dtpdt_y3 dtpdt_yc; label define dtpdt_yc 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values dtpdt_m4 dtpdt_md; label define dtpdt_md 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values dtpdt_y4 dtpdt_yd; label define dtpdt_yd 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values dtpdt_m5 dtpdt_me; label define dtpdt_me 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values dtpdt_y5 dtpdt_ye; label define dtpdt_ye 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values dtpdt_m6 dtpdt_mf; label define dtpdt_mf 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values dtpdt_y6 dtpdt_yf; label define dtpdt_yf 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values dtpdt_m7 dtpdt_mg; label define dtpdt_mg 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values dtpdt_y7 dtpdt_yg; label define dtpdt_yg 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values dtpdt_m8 dtpdt_mh; label define dtpdt_mh 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values dtpdt_y8 dtpdt_yh; label define dtpdt_yh 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values polct_c polct_c; label define polct_c 00 "None or unknown" ; label values poldt_m1 poldt_ma; label define poldt_ma 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values poldt_y1 poldt_ya; label define poldt_ya 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values poldt_m2 poldt_mb; label define poldt_mb 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values poldt_y2 poldt_yb; label define poldt_yb 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values poldt_m3 poldt_mc; label define poldt_mc 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values poldt_y3 poldt_yc; label define poldt_yc 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values poldt_m4 poldt_md; label define poldt_md 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values poldt_y4 poldt_yd; label define poldt_yd 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values poldt_m5 poldt_me; label define poldt_me 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values poldt_y5 poldt_ye; label define poldt_ye 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values poldt_m6 poldt_mf; label define poldt_mf 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values poldt_y6 poldt_yf; label define poldt_yf 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values poldt_m7 poldt_mg; label define poldt_mg 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values poldt_y7 poldt_yg; label define poldt_yg 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values poldt_m8 poldt_mh; label define poldt_mh 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values poldt_y8 poldt_yh; label define poldt_yh 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values hibct_c hibct_c; label define hibct_c 00 "None or unknown" ; label values hibdt_m1 hibdt_ma; label define hibdt_ma 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values hibdt_y1 hibdt_ya; label define hibdt_ya 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values hibdt_m2 hibdt_mb; label define hibdt_mb 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values hibdt_y2 hibdt_yb; label define hibdt_yb 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values hibdt_m3 hibdt_mc; label define hibdt_mc 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values hibdt_y3 hibdt_yc; label define hibdt_yc 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values hibdt_m4 hibdt_md; label define hibdt_md 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values hibdt_y4 hibdt_yd; label define hibdt_yd 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values hibdt_m5 hibdt_me; label define hibdt_me 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values hibdt_y5 hibdt_ye; label define hibdt_ye 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values hibdt_m6 hibdt_mf; label define hibdt_mf 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values hibdt_y6 hibdt_yf; label define hibdt_yf 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values hibdt_m7 hibdt_mg; label define hibdt_mg 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values hibdt_y7 hibdt_yg; label define hibdt_yg 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values hibdt_m8 hibdt_mh; label define hibdt_mh 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values hibdt_y8 hibdt_yh; label define hibdt_yh 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values mmrct_c mmrct_c; label define mmrct_c 00 "None or unknown" ; label values mmrdt_t1 mmrdt_ta; label define mmrdt_ta 1 "Measles only" 2 "MMR" 7 "Refused" 8 "Not ascertained" 9 "Don't know" ; label values mmrdt_m1 mmrdt_ma; label define mmrdt_ma 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values mmrdt_y1 mmrdt_ya; label define mmrdt_ya 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values mmrdt_t2 mmrdt_tb; label define mmrdt_tb 1 "Measles only" 2 "MMR" 7 "Refused" 8 "Not ascertained" 9 "Don't know" ; label values mmrdt_m2 mmrdt_mb; label define mmrdt_mb 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values mmrdt_y2 mmrdt_yb; label define mmrdt_yb 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values mmrdt_t3 mmrdt_tc; label define mmrdt_tc 1 "Measles only" 2 "MMR" 7 "Refused" 8 "Not ascertained" 9 "Don't know" ; label values mmrdt_m3 mmrdt_mc; label define mmrdt_mc 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values mmrdt_y3 mmrdt_yc; label define mmrdt_yc 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values mmrdt_t4 mmrdt_td; label define mmrdt_td 1 "Measles only" 2 "MMR" 7 "Refused" 8 "Not ascertained" 9 "Don't know" ; label values mmrdt_m4 mmrdt_md; label define mmrdt_md 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values mmrdt_y4 mmrdt_yd; label define mmrdt_yd 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values hepct_c hepct_c; label define hepct_c 00 "None or unknown" ; label values hepdt_m1 hepdt_ma; label define hepdt_ma 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values hepdt_y1 hepdt_ya; label define hepdt_ya 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values hepdt_m2 hepdt_mb; label define hepdt_mb 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values hepdt_y2 hepdt_yb; label define hepdt_yb 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values hepdt_m3 hepdt_mc; label define hepdt_mc 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values hepdt_y3 hepdt_yc; label define hepdt_yc 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values hepdt_m4 hepdt_md; label define hepdt_md 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values hepdt_y4 hepdt_yd; label define hepdt_yd 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values hepdt_m5 hepdt_me; label define hepdt_me 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values hepdt_y5 hepdt_ye; label define hepdt_ye 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values hepdt_m6 hepdt_mf; label define hepdt_mf 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values hepdt_y6 hepdt_yf; label define hepdt_yf 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values hepdt_m7 hepdt_mg; label define hepdt_mg 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values hepdt_y7 hepdt_yg; label define hepdt_yg 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values hepdt_m8 hepdt_mh; label define hepdt_mh 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values hepdt_y8 hepdt_yh; label define hepdt_yh 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values varct_c varct_c; label define varct_c 00 "None or unknown" ; label values vardt_m1 vardt_ma; label define vardt_ma 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values vardt_y1 vardt_ya; label define vardt_ya 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values vardt_m2 vardt_mb; label define vardt_mb 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values vardt_y2 vardt_yb; label define vardt_yb 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values vardt_m3 vardt_mc; label define vardt_mc 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values vardt_y3 vardt_yc; label define vardt_yc 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values vardt_m4 vardt_md; label define vardt_md 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values vardt_y4 vardt_yd; label define vardt_yd 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values tdbct_c tdbct_c; label define tdbct_c 00 "None or unknown" ; label values tdbdt_m1 tdbdt_ma; label define tdbdt_ma 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values tdbdt_y1 tdbdt_ya; label define tdbdt_ya 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values tdbdt_m2 tdbdt_mb; label define tdbdt_mb 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values tdbdt_y2 tdbdt_yb; label define tdbdt_yb 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values tdbdt_m3 tdbdt_mc; label define tdbdt_mc 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values tdbdt_y3 tdbdt_yc; label define tdbdt_yc 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values tdbdt_m4 tdbdt_md; label define tdbdt_md 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values tdbdt_y4 tdbdt_yd; label define tdbdt_yd 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values othrnt othrnt; label define othrnt 1 "Yes" 2 "No" 7 "Refused" 8 "Not ascertained" 9 "Don't know" ; label values othev01 othev01l; label define othev01l 1 "Mentioned" 2 "Not mentioned" 7 "Refused" 8 "Not ascertained" 9 "Don't know" ; label values othev02 othev02l; label define othev02l 1 "Mentioned" 2 "Not mentioned" 7 "Refused" 8 "Not ascertained" 9 "Don't know" ; label values othev03 othev03l; label define othev03l 1 "Mentioned" 2 "Not mentioned" 7 "Refused" 8 "Not ascertained" 9 "Don't know" ; label values othev04 othev04l; label define othev04l 1 "Mentioned" 2 "Not mentioned" 7 "Refused" 8 "Not ascertained" 9 "Don't know" ; label values othev05 othev05l; label define othev05l 1 "Mentioned" 2 "Not mentioned" 7 "Refused" 8 "Not ascertained" 9 "Don't know" ; label values othev06 othev06l; label define othev06l 1 "Mentioned" 2 "Not mentioned" 7 "Refused" 8 "Not ascertained" 9 "Don't know" ; label values oth1ct_c oth1ct_c; label define oth1ct_c 00 "None or unknown" ; label values oth1d_m1 oth1d_ma; label define oth1d_ma 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth1d_y1 oth1d_ya; label define oth1d_ya 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth1d_m2 oth1d_mb; label define oth1d_mb 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth1d_y2 oth1d_yb; label define oth1d_yb 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth1d_m3 oth1d_mc; label define oth1d_mc 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth1d_y3 oth1d_yc; label define oth1d_yc 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth1d_m4 oth1d_md; label define oth1d_md 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth1d_y4 oth1d_yd; label define oth1d_yd 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth1d_m5 oth1d_me; label define oth1d_me 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth1d_y5 oth1d_ye; label define oth1d_ye 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth1d_m6 oth1d_mf; label define oth1d_mf 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth1d_y6 oth1d_yf; label define oth1d_yf 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth2ct_c oth2ct_c; label define oth2ct_c 00 "None or unknown" ; label values oth2d_m1 oth2d_ma; label define oth2d_ma 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth2d_y1 oth2d_ya; label define oth2d_ya 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth2d_m2 oth2d_mb; label define oth2d_mb 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth2d_y2 oth2d_yb; label define oth2d_yb 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth2d_m3 oth2d_mc; label define oth2d_mc 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth2d_y3 oth2d_yc; label define oth2d_yc 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth2d_m4 oth2d_md; label define oth2d_md 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth2d_y4 oth2d_yd; label define oth2d_yd 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth2d_m5 oth2d_me; label define oth2d_me 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth2d_y5 oth2d_ye; label define oth2d_ye 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth2d_m6 oth2d_mf; label define oth2d_mf 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth2d_y6 oth2d_yf; label define oth2d_yf 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth3ct_c oth3ct_c; label define oth3ct_c 00 "None or unknown" ; label values oth3d_m1 oth3d_ma; label define oth3d_ma 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth3d_y1 oth3d_ya; label define oth3d_ya 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth3d_m2 oth3d_mb; label define oth3d_mb 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth3d_y2 oth3d_yb; label define oth3d_yb 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth3d_m3 oth3d_mc; label define oth3d_mc 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth3d_y3 oth3d_yc; label define oth3d_yc 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth3d_m4 oth3d_md; label define oth3d_md 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth3d_y4 oth3d_yd; label define oth3d_yd 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth3d_m5 oth3d_me; label define oth3d_me 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth3d_y5 oth3d_ye; label define oth3d_ye 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth3d_m6 oth3d_mf; label define oth3d_mf 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth3d_y6 oth3d_yf; label define oth3d_yf 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth4ct_c oth4ct_c; label define oth4ct_c 00 "None or unknown" ; label values oth4d_m1 oth4d_ma; label define oth4d_ma 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth4d_y1 oth4d_ya; label define oth4d_ya 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth4d_m2 oth4d_mb; label define oth4d_mb 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth4d_y2 oth4d_yb; label define oth4d_yb 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth4d_m3 oth4d_mc; label define oth4d_mc 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth4d_y3 oth4d_yc; label define oth4d_yc 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth4d_m4 oth4d_md; label define oth4d_md 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth4d_y4 oth4d_yd; label define oth4d_yd 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth4d_m5 oth4d_me; label define oth4d_me 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth4d_y5 oth4d_ye; label define oth4d_ye 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth4d_m6 oth4d_mf; label define oth4d_mf 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth4d_y6 oth4d_yf; label define oth4d_yf 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth5ct_c oth5ct_c; label define oth5ct_c 00 "None or unknown" ; label values oth5d_m1 oth5d_ma; label define oth5d_ma 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth5d_y1 oth5d_ya; label define oth5d_ya 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth5d_m2 oth5d_mb; label define oth5d_mb 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth5d_y2 oth5d_yb; label define oth5d_yb 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth5d_m3 oth5d_mc; label define oth5d_mc 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth5d_y3 oth5d_yc; label define oth5d_yc 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth5d_m4 oth5d_md; label define oth5d_md 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth5d_y4 oth5d_yd; label define oth5d_yd 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth5d_m5 oth5d_me; label define oth5d_me 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth5d_y5 oth5d_ye; label define oth5d_ye 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth5d_m6 oth5d_mf; label define oth5d_mf 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth5d_y6 oth5d_yf; label define oth5d_yf 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth6ct_c oth6ct_c; label define oth6ct_c 00 "None or unknown" ; label values oth6d_m1 oth6d_ma; label define oth6d_ma 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth6d_y1 oth6d_ya; label define oth6d_ya 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth6d_m2 oth6d_mb; label define oth6d_mb 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth6d_y2 oth6d_yb; label define oth6d_yb 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth6d_m3 oth6d_mc; label define oth6d_mc 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth6d_y3 oth6d_yc; label define oth6d_yc 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth6d_m4 oth6d_md; label define oth6d_md 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth6d_y4 oth6d_yd; label define oth6d_yd 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth6d_m5 oth6d_me; label define oth6d_me 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth6d_y5 oth6d_ye; label define oth6d_ye 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values oth6d_m6 oth6d_mf; label define oth6d_mf 01 "January" 02 "February" 03 "March" 04 "April" 05 "May" 06 "June" 07 "July" 08 "August" 09 "September" 10 "October" 11 "November" 12 "December" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values oth6d_y6 oth6d_yf; label define oth6d_yf 9997 "Refused" 9998 "Not ascertained" 9999 "Don't know" ; label values shota1 shota1l; label define shota1l 1 "Yes" 2 "No" 7 "Refused" 8 "Not ascertained" 9 "Don't know" ; label values dtpmor dtpmor; label define dtpmor 1 "Yes" 2 "No" 7 "Refused" 8 "Not ascertained" 9 "Don't Know" ; label values dtpmno dtpmno; label define dtpmno 96 "All" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values polmor polmor; label define polmor 1 "Yes" 2 "No" 7 "Refused" 8 "Not ascertained" 9 "Don't Know" ; label values polmno polmno; label define polmno 96 "All" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values hibmor hibmor; label define hibmor 1 "Yes" 2 "No" 7 "Refused" 8 "Not ascertained" 9 "Don't Know" ; label values hibmno hibmno; label define hibmno 96 "All" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values mmrmor mmrmor; label define mmrmor 1 "Yes" 2 "No" 7 "Refused" 8 "Not ascertained" 9 "Don't Know" ; label values mmrmno mmrmno; label define mmrmno 96 "All" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values hepmor hepmor; label define hepmor 1 "Yes" 2 "No" 7 "Refused" 8 "Not ascertained" 9 "Don't Know" ; label values hepmno hepmno; label define hepmno 96 "All" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values varmor varmor; label define varmor 1 "Yes" 2 "No" 7 "Refused" 8 "Not ascertained" 9 "Don't Know" ; label values varmno varmno; label define varmno 96 "All" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values tdbmor tdbmor; label define tdbmor 1 "Yes" 2 "No" 7 "Refused" 8 "Not ascertained" 9 "Don't Know" ; label values tdbmno tdbmno; label define tdbmno 96 "All" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values shotay shotay; label define shotay 1 "Yes" 2 "No" 7 "Refused" 8 "Not ascertained" 9 "Don't know" ; label values dtpev dtpev; label define dtpev 1 "Yes" 2 "No" 7 "Refused" 8 "Not ascertained" 9 "Don't know" ; label values dtpeno dtpeno; label define dtpeno 96 "All" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values polev polev; label define polev 1 "Yes" 2 "No" 7 "Refused" 8 "Not ascertained" 9 "Don't know" ; label values poleno poleno; label define poleno 96 "All" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values hibev hibev; label define hibev 1 "Yes" 2 "No" 7 "Refused" 8 "Not ascertained" 9 "Don't know" ; label values hibeno hibeno; label define hibeno 96 "All" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values mmrev mmrev; label define mmrev 1 "Yes" 2 "No" 7 "Refused" 8 "Not ascertained" 9 "Don't know" ; label values mmreno mmreno; label define mmreno 96 "All" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values hepev hepev; label define hepev 1 "Yes" 2 "No" 7 "Refused" 8 "Not ascertained" 9 "Don't know" ; label values hepeno hepeno; label define hepeno 96 "All" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values varev varev; label define varev 1 "Yes" 2 "No" 7 "Refused" 8 "Not ascertained" 9 "Don't know" ; label values vareno vareno; label define vareno 96 "All" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values tdbev tdbev; label define tdbev 1 "Yes" 2 "No" 7 "Refused" 8 "Not ascertained" 9 "Don't know" ; label values tdbeno tdbeno; label define tdbeno 96 "All" 97 "Refused" 98 "Not ascertained" 99 "Don't know" ; label values shotpr shotpr; label define shotpr 1 "Yes" 2 "No" 7 "Refused" 8 "Not ascertained" 9 "Don't know" ; label values shota2 shota2l; label define shota2l 1 "Yes" 2 "No" 7 "Refused" 8 "Not ascertained" 9 "Don't know" ; #delimit cr save nhis1997_immunize,replace /* Copyright 2007 shared by the National Bureau of Economic Research and Jean Roth National Bureau of Economic Research. 1050 Massachusetts Avenue Cambridge, MA 02138 jroth@nber.org This program and all programs referenced in it are free software. You can redistribute the program or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. */