AMERICAN HOUSING SURVEY - 2001 National Instrument CAPI INSTRUMENT For Data collection beginning: O.M.B. Number Approval Expires: PROGRAMMER: Tazreen Chowdhury Judy Hodges Revised: 5/2/2001 Running under: CASES 4.4 Version ===================================================================== FILES USED AHSFRONT.Q - Dial screens/variable declaration AHSUPDT.Q AHSHU.Q AHSNOINT.Q AHSDEMO.Q AHSINVEN.Q AHSEQUIP.Q AHSBRKDN.Q AHSHOMIR.Q AHSNHQ.Q AHSRMOV.Q AHSJTW.Q AHSRET.Q AHSMORT.Q AHSINCOM.Q AHSRATIN.Q AHSMGER.Q AHSINCPL.Q AHSOBSER.Q AHSBACK.Q ===================================================================== ======= MAJOR SECTIONS NOTE: Sections with **'s exist and can be located with finds using the asterisks and number. SECTION **1** Variables Created **2** Reserved for Input and Operations on Input **3** Set Dates, Time, Start, and Temporary Input **4** Reference Items **5** Predial, dial, and Front **6** Outcome/MARK/MARKTWO/FINAL definitions **7** MIDDLE **18** Fin and Closing **19** Checkout, Final Operations ===================================================================== ======== >KEYS< [# USERS' NOTES: [# Each survey may elect not to provide functions marked "optional." [# For each omitted function, substitute "NOT USED" for key label [# and "h H_NOTUSED" for key command. [# Function key mappings may not be ALTERED, however, [# when any of the functions listed below are provided. [# For more information, see CATI/CAPI function key standards document. [setkey label to ] [setkey label to ] [setkey label to ] [setkey label to ] [setkey label to ] [# H_WHERE is the name of the status table help screen [# a status table is an overview of sections required/completed [# optional key assignment [setkey label to ] [# this key assignment may be phased out later but is required now [setkey label to ] [setkey label to ] [setkey label to ] [setkey label to ] [#setkey label to ] [# where FIN is an item that handles callbacks and early exits [setkey label to ] [setkey label to ] [# for instruments where multiple simultaneous windows are used [# optional key assignment [setkey label to ] [# where H_HHROS is a general help screen of household info or roster [setkey label to ] [# where H_GEN2 is a general help screen of frequently asked questions [# NOTE: for reinterview surveys, substitute reinterview FAQS [# and include a precode selection to view the regular FAQS [setkey label to ] [setkey label to ] [# CAPI surveys only [#Country reference [setkey label to ] [setkey label to ] [setkey label to ] [setkey label to ] [setkey label to ] [setkey label to ] [# where H_KEYS is the name of a help screen listing these keys [setkey label to ] [setkey label to ] [setkey label to ] [setkey label to ] [setkey label to ] [setkey label to ] [setkey label to ] [setkey label to ] [setkey label to ] [setkey label to ] [setkey label to ] [rename case_level HOUSEHOLD] [menu include ALL HOUSEHOLD] [menu include ALL PERSONS] [menu include ALL ADDRESS] [menu include ALL RMOV] APRIL 15,1993 [start trace] [# END OF KEYBOARD MAPPINGS] **WINDOWS** >wins< [window 4 displays] [window 4 start row 19 column 1] [window 4 size 6 rows 80 columns] [window 4 no border] [window 4 line top] ===================================================================== ==== *** SECTION 1 *** VARIABLE CREATES ===================================================================== = >PX< [allow int 2] >lstout< [allow int 3] HOLDS THE VALUE OF THE OUTCOME CODE FROM THE PREVIOUS CALL >VERSION< [allow int 8] [preset <03131997>] >TYPE< [allow 2] [equiv HUTYPE] >DOI< [allow 8] [equiv VERSION position 9] ===================================================================== = *** SECTION 1b *** "PERMANENT" Variables used throughout instrument ===================================================================== = VARIABLES USED FOR SETTING UP CURRENT DATE >i_precaseid< [allow 1] [equiv caseid position 1] >i_sersufix< [allow 1] [equiv ctrlnum position 20] >precaseid< [allow 1] [equiv caseid position 1] >sersufix< [allow 1] [equiv ctrlnum position 20] >date< [allow 8] [equiv DOI position 9] >month< [allow 2] [equiv date position 1] >day< [allow 2] [equiv date position 3] >year< [allow 4] [equiv date position 5] >date_c< [allow 25] DISPLAYABLE FORM OF CURRENT DATE >Cwkday1<[allow 15] VARIABLES USED FOR SETTING UP CURRENT TIME >time< [allow 4] >time_c< [allow 8] displayable form of current facility time >tindex< [allow int 4] [store <0> in tindex] used to manipulate times >hr< [allow 2] [equiv tindex position 1] >min< [allow 2] [equiv tindex position 3] >holdtime< [allow 4] VARIABLES USED TO CALCULATE 3 & 11 months reference periods (BRKDN,RMOV) >MOVDATE< [allow 8] >MOVMON1< [allow 2] [equiv MOVDATE position 1] >MOVDAY1< [allow 2] [equiv MOVDATE position 3] >MOVYR1< [allow 4] [equiv MOVDATE position 5] >MOVDATE2< [allow 8] >INTDATE< [allow 8] >INTMON< [allow 2] [equiv INTDATE position 1] >INTDAY< [allow 2] [equiv INTDATE position 3] >INTYR< [allow 4] [equiv INTDATE position 5] >T_INTDATE< [allow 8] >T_INTMON< [allow 2] [equiv T_INTDATE position 1] >T_INTDAY< [allow 2] [equiv T_INTDATE position 3] >T_INTYR< [allow 4] [equiv T_INTDATE position 5] GENERAL INDEX >Index< [allow int 9] [store <0> in index] >Index1< [allow int 9] [store <0> in index] >Index2< [allow int 9] [store <0> in index] >Index3< [allow int 4] [store <0> in index] >Index4< [allow int 4] [store <0> in index] >Index5< [allow int 4] [store <0> in index] >Index6< [allow int 2] [store <0> in index] >Index7< [allow int 7] [store <0> in index] >Index8< [allow int 7] [store <0> in index] >Index9< [allow int 7] [store <0> in index] >Index10< [allow int 7] [store <0> in index] >Index11< [allow int 7] [store <0> in index] >temptext< [allow 65] MISCELLANEOUS TEXT FOR >temp< [allow 76] >temp1< [allow 70] >temp2< [allow 80] >temp3< [allow 80] >temp4< [allow 80] >temp5< [allow 80] >temp6< [allow 70] >temp7< [allow 70] >temp8< [allow 70] >temp9< [allow 70] >temp10< [allow 70] >temp11< [allow 70] >temp12< [allow 70] >temp13< [allow 70] >temp14< [allow 70] >temp15< [allow 70] >temp17< [allow 1] >temp18< [allow 1] >temp19< [allow 1] >temp20< [allow 1] >temp21< [allow 1] >temp22< [allow 1] >temp23< [allow 1] >temp24< [allow 1] >temp25< [allow 15] >temp26< [allow 5] >temp27< [allow 50] >tem3< [allow 99] USED IN H_WHERE HELP SCREEN TO INDICATE WHEN A SECTION HAS BEEN COMPLETE >FRONT_CMP< [allow int 1] >HU_CMP< [allow int 1] >LUC_CMP< [allow int 1] >NOINT_CMP< [allow int 1] >INVEN_CMP< [allow int 1] >EQP_CMP< [allow int 1] >BRKDN_CMP< [allow int 1] >HMR_CMP< [allow int 1] >NHQ_CMP< [allow int 1] >RMOV_CMP< [allow int 1] >ALH_CMP< [allow int 1] >JTW_CMP< [allow int 1] >RET_CMP< [allow int 1] >MORT_CMP< [allow int 1] >HCOSTS_CMP< [allow int 1] >SECHOM_CMP< [allow int 1] >INC_CMP< [allow int 1] >RVER_CMP< [allow int 1] >RATING_CMP< [allow int 1] >MGER_CMP< [allow int 1] >NRIPLUS_CMP< [allow int 1] >LP_CMP< [allow int 1] >OBSER_CMP< [allow int 1] USED AS TIME MARKERS TO INDICATE AMOUNT OF TIME REQUIRED TO COMPLETE EACH MODULE (SECTION) FORMAT IS HHMMSSSS - (MEASURES TO HUNDREDTHS OF SECONDS) >UPDT_TME< [allow int 8] >HU_TME< [allow int 8] >NOINT_TME< [allow int 8] >DEMOS_TME< [allow int 8] >INVEN_TME< [allow int 8] >EQUIP_TME< [allow int 8] >BRKDN_TME< [allow int 8] >HOMIR_TME< [allow int 8] >NHQ_TME< [allow int 8] >RMOV_TME< [allow int 8] >JTW_TME< [allow int 8] >RET_TME< [allow int 8] >MORT_TME< [allow int 8] >HCST2_TME< [allow int 8] >INCOM_TME< [allow int 8] >RVER_TME< [allow int 8] >RATIN_TME< [allow int 8] >MGER_TME< [allow int 8] >NRI_TME< [allow int 8] >LDPNT_TME< [allow int 8] >OBSER_TME< [allow int 8] >MNRI_TME< [allow int 8] >HMR_TME< [allow int 8] >monthtab< [allow 9 for 12] [store in monthtab(<1>)] [store in monthtab(<2>)] [store in monthtab(<3>)] [store in monthtab(<4>)] [store in monthtab(<5>)] [store in monthtab(<6>)] [store in monthtab(<7>)] [store in monthtab(<8>)] [store in monthtab(<9>)] [store in monthtab(<10>)] [store in monthtab(<11>)] [store in monthtab(<12>)] >BMON< [allow int 2 for 12] allowable days in each month. do not allow FEb 28 from [store <31> in BMON(<1>)] 1 31 [store <29> in BMON(<2>)] 2 29 [store <31> in BMON(<3>)] 3 31 [store <30> in BMON(<4>)] 4 30 [store <31> in BMON(<5>)] 5 31 [store <30> in BMON(<6>)] 6 30 [store <31> in BMON(<7>)] 7 31 [store <31> in BMON(<8>)] 8 31 [store <30> in BMON(<9>)] 9 30 [store <31> in BMON(<10>)] 10 31 [store <30> in BMON(<11>)] 11 30 [store <31> in BMON(<12>)] 12 31 >BMON2< [allow int 2 for 12] allowable days in each month. ALLOW FEB 28 for birthdays [store <31> in BMON(<1>)] 1 31 [store <28> in BMON(<2>)] 2 29 [store <31> in BMON(<3>)] 3 31 [store <30> in BMON(<4>)] 4 30 [store <31> in BMON(<5>)] 5 31 [store <30> in BMON(<6>)] 6 30 [store <31> in BMON(<7>)] 7 31 [store <31> in BMON(<8>)] 8 31 [store <30> in BMON(<9>)] 9 30 [store <31> in BMON(<10>)] 10 31 [store <30> in BMON(<11>)] 11 30 [store <31> in BMON(<12>)] 12 31 >XBAD< [allow int 9 for 30] FOR NOT EQUAL EDITS/FILLS (TO COMPARE THE LINE NUM. WITH THE NUM. ENTERED TO MAKE SURE ONLY LEGITIMATE ENTRIES ARE MADE). >XBAD2< [allow int 9 for 30] FOR NOT EQUAL EDITS >XBAD3< [allow int 2 for 30] (used in income module to check line numbers and amount of sal changes) >youheshe< [allow 5] YOU, HE, OR SHE FILL >yourhshr< [allow 24] YOUR, HIS, OR HER, NAME FILL >youhmhr< [allow 5] YOU,HIM, OR HER FILL >DoDoes< [allow 4] DO OR DOES FILL >havehas< [allow 4] HAVE OR HAS FILL >werewas< [allow 4] WERE OR WAS FILL >AreIs< [allow 65] ARE OR IS FILL >UREFLG< [allow int 1] USED IF ALL MEMBERS ARE URE >TENURE< [allow 1] >length< [allow int 4] CUMULATIVE LENGTH OF INTERVIEW >wheredex< [allow int 1] WHERE ARE YOU IN INTERVIEW. (RESET FOR EACH ATTEMPT) >fardex< [allow int 1] TELLS YOU THE FURTHEST POINT YOU GOT IN THE INTERVIEW 1 = Front 3 = address info 4 = Middle >RESPLINE< [allow int 2] LINE NUMBER OF THE CURRENT RESPONDENT >ORDATE< [allow 8] >TEMPVAR< [allow 1] USED IN ZERO_END TO CONTINUE WITH RECORD 1 >LK_ORRESP< [allow int 1] REINTERVIEW ADDED JAN 96 >LK_QCLNO< [allow int 1] REINTERVIEW ADDED JAN 96 >nrosize< [allow int 2] TOTAL NUMBER OF HOUSEHOLD MEMBERS >rrosize< [allow int 2] TOTAL NUMBER OF HOUSEHOLD MEMBERS >T_nrosize< [allow int 2] TOTAL NUMBER OF HOUSEHOLD MEMBERS >HVSFLG< [allow 1] EQUALS 1 IS ALL HVS QUESTIONS HAVE BEEN ASKED >INTTYP< [allow int 1] 1=PERSONAL 2=TELEPHONE >iname< [allow 15] [store <......> in iname] ---------------------------------------------------------------------- THIS FLAG IS SET TO 1 FOR ANY PERSON THAT IS AN OWNER OF A BUSINESS OR FOR ANYONE RELATED TO THE OWNER OF A BUSINESS >COMMENT< [allow 60] THIS VARIABLE HOLDS THE LINE NUMBERS OF THE HOUSEHOLD THAT WAS REPLACED >REPLNO< [allow int 2 for 16] LINE NUMBER OF CURRENT RESPONDENT >TELPHN_FLG< [allow int 1] FLAG in BACK - HAS TELEPHONE SERIES BEEN ASKED >HPHONE2< [allow 10] SECOND PHONE >HPHNEXT2< [allow 5] >CP1ZIP5< [allow 5] >CP1ZIP4< [allow 4] >nflag< [allow int 1] >ADDRCHG< [allow 1] [# address change flag >TPARKA< [allow 1] [#used in inven module >CAITYPE< [allow 1] >SDESG< [allow 1] >ISTYPE< [allow 1] >STYPE< [allow 1] [equiv STRUCTYP] >NUNIT2< [allow 1] [equiv STYPE] [# CODEBOOK NAME ] >NUNITS< [allow 3] [equiv ISTYPE position 2] >ETFRSIT< [allow 1] >MHPARK< [allow 1] >CDEPSTAT< [allow 1] [#store <1> in CDEPSTAT] >SDESIG< [allow 1] [#store <1> in SDESIG] >ETCELLAR< [allow 1] >ISTATUS< [allow 1] >STATUS< [allow 1] [equiv ISTATUS] [# CODEBOOK NAME ] [# OWNRENT allow 1 for 30 Equals X for all people who own/rent ] >TEN< [allow 1 for 30] [#Equals X for all people who own/rent- CODEBOOK NAME ] >HTYPE< [allow 2] >REPLHH< [allow 1] >REPLHU< [allow 1] >rflag< [allow int 1] >aflag< [allow int 1] ===================================================================== SECTION **1c** - COMMON VARIABLES ===================================================================== ===================================================================== ** Section 1 - OUT VARIABLES ** ===================================================================== >out_ileak< [allow 1] >out_plugs< [allow 1] >out_nowire< [allow 1] >OUT_IFTLT< [allow 1] >OUT_FREEZE< [allow 1] >OUT_LEAK< [allow 1] >OUT_HEQUIP< [allow 2] >OUT_NUM3TLT< [allow 1] >OUT_NUMTLT< [allow 1] >OUT_CELLAR< [allow 2] >OUT_BEDRMS< [allow int 2] >OUT_BEDRMS1< [allow int 2] >OUT_BEDRMS2< [allow int 2] >OUT_BEDRMS3< [allow int 2] >OUT_BEDRMS4< [allow int 2] >OUT_BEDRMS5< [allow int 2] >OUT_FLOORS< [allow int 2] >OUT_BATHS< [allow int 2] >OUT_BATHS1< [allow int 2] >OUT_BATHS2< [allow int 2] >OUT_BATHS3< [allow int 2] >OUT_BATHS4< [allow int 2] >OUT_BATHS5< [allow int 2] >OUT_HALFB< [allow int 2] >OUT_HALFB1< [allow int 2] >OUT_HALFB2< [allow int 2] >OUT_HALFB3< [allow int 2] >OUT_HALFB4< [allow int 2] >OUT_HALFB5< [allow int 2] >OUT_KITCH< [allow int 2] >OUT_KITCH1< [allow int 2] >OUT_KITCH2< [allow int 2] >OUT_KITCH3< [allow int 2] >OUT_KITCH4< [allow int 2] >OUT_KITCH5< [allow int 2] >OUT_DINING< [allow int 2] >OUT_DINING1< [allow int 2] >OUT_DINING2< [allow int 2] >OUT_DINING3< [allow int 2] >OUT_DINING4< [allow int 2] >OUT_DINING5< [allow int 2] >OUT_LIVING< [allow int 2] >OUT_LIVING1< [allow int 2] >OUT_LIVING2< [allow int 2] >OUT_LIVING3< [allow int 2] >OUT_LIVING4< [allow int 2] >OUT_LIVING5< [allow int 2] >OUT_DENS< [allow int 2] >OUT_DENS1< [allow int 2] >OUT_DENS2< [allow int 2] >OUT_DENS3< [allow int 2] >OUT_DENS4< [allow int 2] >OUT_DENS5< [allow int 2] >OUT_FAMRM< [allow int 2] >OUT_FAMRM1< [allow int 2] >OUT_FAMRM2< [allow int 2] >OUT_FAMRM3< [allow int 2] >OUT_FAMRM4< [allow int 2] >OUT_FAMRM5< [allow int 2] >OUT_RECRM< [allow int 2] >OUT_RECRM1< [allow int 2] >OUT_RECRM2< [allow int 2] >OUT_RECRM3< [allow int 2] >OUT_RECRM4< [allow int 2] >OUT_RECRM5< [allow int 2] >OUT_OFFICE< [allow int 2] >OUT_OFFICE1< [allow int 2] >OUT_OFFICE2< [allow int 2] >OUT_OFFICE3< [allow int 2] >OUT_OFFICE4< [allow int 2] >OUT_OFFICE5< [allow int 2] >OUT_LAUNDRY< [allow int 2] >OUT_LAUNDRY1< [allow int 2] >OUT_LAUNDRY2< [allow int 2] >OUT_LAUNDRY3< [allow int 2] >OUT_LAUNDRY4< [allow int 2] >OUT_LAUNDRY5< [allow int 2] >OUT_STORAGE< [allow int 2] >OUT_STORAGE1< [allow int 2] >OUT_STORAGE2< [allow int 2] >OUT_STORAGE3< [allow int 2] >OUT_STORAGE4< [allow int 2] >OUT_STORAGE5< [allow int 2] >OUT_OTHRFIN< [allow int 2] >OUT_OTHRFIN1< [allow int 2] >OUT_OTHRFIN2< [allow int 2] >OUT_OTHRFIN3< [allow int 2] >OUT_OTHRFIN4< [allow int 2] >OUT_OTHRFIN5< [allow int 2] >OUT_ATBASUN< [allow int 2] >OUT_ATBASUN1< [allow int 2] >OUT_ATBASUN2< [allow int 2] >OUT_ATBASUN3< [allow int 2] >OUT_ATBASUN4< [allow int 2] >OUT_ATBASUN5< [allow int 2] >OUT_OTHRUN< [allow int 2] >OUT_OTHRUN1< [allow int 2] >OUT_OTHRUN2< [allow int 2] >OUT_OTHRUN3< [allow int 2] >OUT_OTHRUN4< [allow int 2] >OUT_OTHRUN5< [allow int 2] >OUT_FRSIT< [allow 2] >OUT_DRSHOPS< [allow 70] >OUT_PORCH< [allow 1] >OUT_CLIMB< [allow 2] >OUT_COOK< [allow 1] >OUT_BURNER< [allow 1] >OUT_OVEN< [allow 1] >OUT_CFUEL< [allow 1] >OUT_REFR< [allow 1] >OUT_BSINK< [allow 1] >OUT_TUB< [allow 1] >OUT_HALB< [allow 1] >OUT_SINK< [allow 1] >OUT_ETSINK< [allow 1] >OUT_DISPL< [allow 1] >OUT_DISH< [allow 1] >OUT_WASH< [allow 1] >OUT_DRY< [allow 1] >OUT_TRASH< [allow 1] >OUT_DFUEL< [allow 1] >OUT_PUBSEW< [allow 1] >OUT_ETPUBSEW< [allow 1] >OUT_TOILET< [allow 1] >OUT_WATER< [allow 1] >OUT_ETWATER< [allow 1] >OUT_WELDUS< [allow 1] >OUT_ETWELDUS< [allow 1] >OUT_HFUEL< [allow 1] >OUT_WFUEL< [allow 1] >OUT_AIRSYS< [allow 1] >OUT_AFUEL< [allow 1] >OUT_HOTPIP< [allow 1] >OUT_KITFAC< [allow 1] >OUT_SEWDIS< [allow 1] >OUT_APTFL< [allow 1] >OUT_NUMMOR< [allow 3] >OUT_AMMORT1< [allow 7] >OUT_AMMORT2< [allow 7] >REC_SUBTYPE50< [allow 2] [store <50> in REC_SUBTYPE50] [#variable flag used for reinterview ===================================================================== = >Mstatus< [allow 22 for 22] values of MARK [store in MSTATUS(<2>)] [store in MSTATUS(<3>)] [store <> in MSTATUS(<4>)] [store <> in MSTATUS(<6>)] [store in MSTATUS(<7>)] [store in MSTATUS(<8>)] [store in MSTATUS(<9>)] [store in MSTATUS(<10>)] [store in MSTATUS(<14>)] [store in MSTATUS(<15>)] [store in MSTATUS(<16>)] [store in MSTATUS(<17>)] [store in MSTATUS(<18>)] [store in MSTATUS(<21>)] [store in MSTATUS(<22>)] ===================================================================== ======== SECTION **2** - INPUT AND OPERATIONS ON INPUT ===================================================================== ======== COMMENT: Branches away everything that isn't a new case. New cases that have been called and quit out, have already been through inputstore. YOU ONLY WANT TO GO THROUGH INPUTSTORE ONCE. >SETBASIC< [loqvar loq] [posvar pos] [skip] DO NOT DELETE - NEED SO THAT FRONT ITEMS ARE SAVED ON THE SKIP MENU NOT THE JUMP MENUS. (SO THAT WHEN YOU RESUME INTO A PARTIAL ALL ITEMS WILL REMAIN ONPATH) [if mark ge <3> goto CK_MODE] Branches away everything that isn't a new case [store <2> in mark] COMMENT: Branches away everything that isn't a new case. New cases that have been called and quit out, have already been through inputstore. YOU ONLY WANT TO GO THROUGH INPUTSTORE ONCE. [store <0> in DONE_ROSTER] ===================================================================== **SECTION 2A ** INPUT VARIABLES (CASE MANAGEMENT RECORD TYPE) ===================================================================== HUHH input file variables for 2001 AHS-National CAI >i_rec_type85_8< [allow 2] [inputloc 12/1] >rec_subtype85_8< [allow 2] [inputloc 12/3] >rosterinfo85_8< [allow 12] [inputloc 12/5] >I_HUHH< [allow 5] [inputloc 12/17] >I_ISTYPE< [allow 1] [inputloc 12/23] >I_STYPE< [allow 1] [inputloc 12/24] >I_NUNITS< [allow 3] [inputloc 12/26] >I_HTYPE< [allow 2] [inputloc 12/30] >I_MHPARK< [allow 1] [inputloc 12/33] >I_ISTATUS< [allow 1] [inputloc 12/35] >I_OCCSTAT< [allow 1] [inputloc 12/36] >I_INTDATE< [allow 8] [inputloc 12/38] >I_INTMON< [allow 2] [equiv I_INTDATE position 1] [inputloc 12/38] >I_INTDAY< [allow 2] [equiv I_INTDATE position 3] [inputloc 12/40] >I_INTYR< [allow 4] [equiv I_INTDATE position 5] [inputloc 12/42] >I_HHRESP< [allow 2] [inputloc 12/47] >I_TELUNLIS< [allow 1] [inputloc 12/50] >I_TENURE< [allow 1] [inputloc 12/52] >I_SDESIG< [allow 1] [inputloc 12/54] >I_PHAFLG< [allow 1] [inputloc 12/55] >I_ACCESS< [allow 1] [inputloc 12/56] >I_CATIFLAG< [allow 1] [inputloc 12/58] >I_NOINT< [allow 2] [inputloc 12/60] >I_RIPQ< [allow 1] [inputloc 12/63] >I_RIPHID< [allow 2] [inputloc 12/65] >I_PROJ< [allow 1] [inputloc 12/67] INVEN input file variables for 1998/1999 AHS-Metropolitan/National CAI >I_REC_TYPE85_7< [allow 2] [inputloc 13/1] >REC_SUBTYPE85_7< [allow 2] [inputloc 13/3] >ROSTERINFO85_7< [allow 12] [inputloc 13/5] >I_INVEN< [allow 5] [inputloc 13/17] >I_FRSIT< [allow 1] [inputloc 13/30] >I_BUILT< [allow 4] [inputloc 13/32] >I_MBUILT< [allow 2] [inputloc 13/36] >I_CELLAR< [allow 1] [inputloc 13/38] >I_FLOORS< [allow 2] [inputloc 13/40] >I_CLIMB< [allow 2] [inputloc 13/42] >I_MH32< [allow 1] [inputloc 13/147] >I_MH41< [allow 4] [inputloc 13/149] >I_MH42< [allow 4] [inputloc 13/153] >I_MH43< [allow 4] [inputloc 13/157] >I_MH44< [allow 4] [inputloc 13/161] >I_MH45< [allow 4] [inputloc 13/165] >I_PORCH< [allow 1] [inputloc 13/170] >I_LTSQFTQ< [allow 6] [inputloc 13/174] >I_LTFT1Q< [allow 6] [inputloc 13/180] >I_LTFT2Q< [allow 6] [inputloc 13/186] >I_LTACQ< [allow 6] [inputloc 13/192] >I_UNITSF< [allow 5] [inputloc 13/200] Record Type 85 Sample Control Input File EQUIPMENT input file variables for 1998 AHS-Metropolitan CAI >i_rec_type85_2< [allow 2] [inputloc 14/1] >rec_subtype85_2< [allow 2] [inputloc 14/3] >rosterinfo85_2< [allow 12] [inputloc 14/5] >I_EQP< [allow 5] [inputloc 14/17] >I_COOK< [allow 1] [inputloc 14/23] >I_BURNER< [allow 1] [inputloc 14/24] >I_OVEN< [allow 1] [inputloc 14/25] >I_CFUEL< [allow 1] [inputloc 14/27] >I_REFR< [allow 1] [inputloc 14/29] >I_SINK< [allow 1] [inputloc 14/31] >I_DISPL< [allow 1] [inputloc 14/33] >I_TRASH< [allow 1] [inputloc 14/34] >I_DISH< [allow 1] [inputloc 14/35] >I_WASH< [allow 1] [inputloc 14/36] >I_DRY< [allow 1] [inputloc 14/37] >I_DFUEL< [allow 1] [inputloc 14/39] >I_PUBSEW< [allow 1] [inputloc 14/42] >I_HOTPIP< [allow 1] [inputloc 14/45] >I_WFUEL< [allow 1] [inputloc 14/58] >I_WATER< [allow 1] [inputloc 14/61] >I_WELL< [allow 1] [inputloc 14/62] >I_WELDUS< [allow 1] [inputloc 14/64] >I_HFUEL< [allow 1] [inputloc 14/66] >I_HEQUIP< [allow 2] [inputloc 14/67] >I_AIRSYS< [allow 1] [inputloc 14/70] >I_AFUEL< [allow 1] [inputloc 14/71] BRKRT input file variables for 1998/99 AHS-Metropolitan/National CAI >I_REC_TYPE85_4< [allow 2] [inputloc 15/1] >REC_SUBTYPE85_4< [allow 2] [inputloc 15/3] >ROSTERINFO85_4< [allow 12] [inputloc 15/5] >I_BRKRT< [allow 5] [inputloc 15/17] >I_NOWIRE1< [allow 1] [inputloc 15/23] >I_NOWIRE2< [allow 1] [inputloc 15/24] >I_PLUGS< [allow 1] [inputloc 15/25] >I_FRSTOC< [allow 1] [inputloc 15/28] >I_CUSHOM< [allow 1] [inputloc 15/31] >I_PREOCC< [allow 1] [inputloc 15/34] >I_WHNGET< [allow 4] [inputloc 15/37] >I_LPRICE< [allow 7] [inputloc 15/43] >I_CPRICE< [allow 7] [inputloc 15/52] >I_DWNPAY< [allow 1] [inputloc 15/61] >I_FRSTHO< [allow 1] [inputloc 15/64] >I_VALUE< [allow 7] [inputloc 15/67] HMR1 input file variables for 1998/99 AHS-Metropolitan/National CAI >i_rec_type85_5< [allow 2] [inputloc 16/1] >rec_subtype85_5< [allow 2] [inputloc 16/3] >rosterinfo85_5< [allow 12] [inputloc 16/5] >I_HMR1< [allow 5] [inputloc 16/17] >I_DISRPA< [allow 65] [inputloc 16/23] >I_DISRPB< [allow 65] [inputloc 16/90] >I_DISRPC< [allow 65] [inputloc 16/157] >I_DISRPAM< [allow 6] [inputloc 16/230] >I_NWBTH< [allow 1] [inputloc 16/237] >I_NWBTHAM< [allow 6] [inputloc 16/244] >I_NWBED< [allow 1] [inputloc 16/251] >I_NWBEDAM< [allow 6] [inputloc 16/258] >I_NWREC< [allow 1] [inputloc 16/279] >I_NWRECAM< [allow 6] [inputloc 16/286] >I_NWOTH< [allow 1] [inputloc 16/293] >I_NWOTHAM< [allow 6] [inputloc 16/367] >I_ADDBTH< [allow 1] [inputloc 16/374] >I_ADBTHAM< [allow 6] [inputloc 16/381] >I_ADDKIT< [allow 1] [inputloc 16/388] >I_ADKITAM< [allow 6] [inputloc 16/395] >I_ADDBED< [allow 1] [inputloc 16/402] >I_ADBEDAM< [allow 6] [inputloc 16/409] >I_ADDOTH< [allow 1] [inputloc 16/416] >I_ADOTHAM< [allow 6] [inputloc 16/423] >I_GARAG< [allow 1] [inputloc 16/430] >I_GARAGAM< [allow 6] [inputloc 16/437] >I_PRCH< [allow 1] [inputloc 16/444] >I_PORCHAM< [allow 6] [inputloc 16/451] >I_DECK< [allow 1] [inputloc 16/459] >I_DECKAM< [allow 6] [inputloc 16/466] >I_CARPORT< [allow 1] [inputloc 16/473] >I_CRPRTAM< [allow 6] [inputloc 16/480] >I_OTHOUT< [allow 1] [inputloc 16/487] >I_OTHOTAM< [allow 6] [inputloc 16/494] >I_BTHROOM< [allow 1] [inputloc 16/501] >I_KITCHN< [allow 1] [inputloc 16/503] >I_BTHRDAM< [allow 1] [inputloc 16/505] >I_KITRDAM< [allow 1] [inputloc 16/512] >I_RENBTH< [allow 1] [inputloc 16/519] >I_RNBTHAM< [allow 1] [inputloc 16/520] >I_RENBEDR< [allow 1] [inputloc 16/767] >I_RNBEDAM< [allow 6] [inputloc 16/774] >I_RENOTH< [allow 1] [inputloc 16/781] >I_RNOTHAM< [allow 6] [inputloc 16/788] >I_ROOF< [allow 1] [inputloc 16/795] >I_ROOFAM< [allow 6] [inputloc 16/802] >I_SIDING< [allow 1] [inputloc 16/809] >I_SIDAM< [allow 1] [inputloc 16/810] >I_ADSIDAM< [allow 6] [inputloc 16/816] >I_ALSIDAM< [allow 6] [inputloc 16/830] >I_WTRPIPE< [allow 1] [inputloc 16/837] >I_PIPEAM< [allow 6] [inputloc 16/838] >I_ADPIPAM< [allow 6] [inputloc 16/844] >I_ALPIPAM< [allow 6] [inputloc 16/858] >I_WIRING< [allow 1] [inputloc 16/865] >I_WIRAM< [allow 6] [inputloc 16/866] >I_ADWIRAM< [allow 6] [inputloc 16/872] >I_REWIRAM< [allow 6] [inputloc 16/886] >I_FUSEAM< [allow 6] [inputloc 16/901] >I_DOORWIN< [allow 1] [inputloc 16/908] >I_DOORAM< [allow 6] [inputloc 16/909] >I_ADOORAM< [allow 6] [inputloc 16/915] >I_RPDORAM< [allow 6] [inputloc 16/929] >I_PLUMFXT< [allow 1] [inputloc 16/936] >I_PLFXTAM< [allow 6] [inputloc 16/937] >I_ADFXTAM< [allow 6] [inputloc 16/943] >I_RPFXTAM< [allow 6] [inputloc 16/957] >I_INSULAT< [allow 1] [inputloc 16/964] >I_INSLAM< [allow 6] [inputloc 16/965] >I_ADINSAM< [allow 6] [inputloc 16/971] >I_RPINSAM< [allow 6] [inputloc 16/977] >I_SECURE< [allow 1] [inputloc 16/984] >I_SECURAM< [allow 6] [inputloc 16/985] HMR2 input file variables for 1998 AHS-Metropolitan CAI >i_rec_type85_6< [allow 2] [inputloc 17/1] >rec_subtype85_6< [allow 2] [inputloc 17/3] >rosterinfo85_6< [allow 12] [inputloc 17/5] >I_HMR2< [allow 5] [inputloc 17/17] >I_FINFL< [allow 1] [inputloc 17/23] >I_FINFLAM< [allow 6] [inputloc 17/30] >I_FLOORIN< [allow 1] [inputloc 17/37] >I_FLOORAM< [allow 6] [inputloc 17/38] >I_ADFLRAM< [allow 6] [inputloc 17/44] >I_CARPET< [allow 1] [inputloc 17/51] >I_SDFLRAM< [allow 6] [inputloc 17/59] >I_PANEL< [allow 1] [inputloc 17/66] >I_CENARAM< [allow 6] [inputloc 17/67] >I_NWPNLAM< [allow 6] [inputloc 17/73] >I_PANELAM< [allow 6] [inputloc 17/80] >I_RPANLAM< [allow 6] [inputloc 17/87] >I_CENAIR< [allow 1] [inputloc 17/94] >I_RCENAM< [allow 6] [inputloc 17/101] >I_HEATEQU< [allow 1] [inputloc 17/108] >I_HTEQUAM< [allow 6] [inputloc 17/109] >I_ADHEAM< [allow 6] [inputloc 17/115] >I_HEQUAM< [allow 6] [inputloc 17/129] >I_SEPTIC< [allow 1] [inputloc 17/136] >I_SEPTAM< [allow 6] [inputloc 17/143] >I_WTRHTR< [allow 1] [inputloc 17/150] >I_WTRHAM< [allow 6] [inputloc 17/157] >I_DSHWSHR< [allow 1] [inputloc 17/164] >I_DSHWAM< [allow 6] [inputloc 17/171] >I_DSPOSAL< [allow 1] [inputloc 17/178] >I_DSPLAM< [allow 6] [inputloc 17/185] >I_MISINA< [allow 65] [inputloc 17/192] >I_INSAAM< [allow 6] [inputloc 17/265] >I_MISINB< [allow 65] [inputloc 17/272] >I_INSBAM< [allow 6] [inputloc 17/345] >I_MISINC< [allow 65] [inputloc 17/352] >I_INSCAM< [allow 6] [inputloc 17/425] >I_DRIVEWY< [allow 1] [inputloc 17/432] >I_DRIVEAM< [allow 6] [inputloc 17/439] >I_FENCE< [allow 1] [inputloc 17/446] >I_FENCEAM< [allow 6] [inputloc 17/453] >I_PATIO< [allow 1] [inputloc 17/460] >I_PATIOAM< [allow 6] [inputloc 17/467] >I_POOL< [allow 1] [inputloc 17/474] >I_POOLAM< [allow 6] [inputloc 17/481] >I_SHED< [allow 1] [inputloc 17/488] >I_SHEDAM< [allow 6] [inputloc 17/495] >I_MISOUTA< [allow 65] [inputloc 17/502] >I_OUTAAM< [allow 6] [inputloc 17/575] >I_MISOUTB< [allow 65] [inputloc 17/582] >I_OUTBAM< [allow 6] [inputloc 17/655] >I_MISOUTC< [allow 65] [inputloc 17/662] >I_OUTCAM< [allow 6] [inputloc 17/735] >I_SUBFL< [allow 1] [inputloc 17/742] >I_SUBFLAM< [allow 6] [inputloc 17/743] >I_ADSUBAM< [allow 6] [inputloc 17/749] RATMG (covers dependent data needed for RATING and MGER modules >i_rec_type85_3< [allow 2] [inputloc 18/1] >rec_subtype85_3< [allow 2] [inputloc 18/3] >rosterinfo85_3< [allow 12] [inputloc 18/5] >i_ratmg< [allow 5] [inputloc 18/17] >i_ratresp< [allow 2] [inputloc 18/23] >i_howh< [allow 2] [inputloc 18/25] >i_hown< [allow 2] [inputloc 18/27] >i_nblgco< [allow 60] [inputloc 18/34] >i_ownhere< [allow 1] [inputloc 18/96] >i_ownna< [allow 36] [inputloc 18/97] >i_ownadd< [allow 36] [inputloc 18/133] >i_owncty< [allow 20] [inputloc 18/169] >i_ownst< [allow 2] [inputloc 18/190] >i_ownzip< [allow 9] [inputloc 18/193] >i_owntle< [allow 1] [inputloc 18/213] >i_ownloc< [allow 1] [inputloc 18/214] >i_ownare< [allow 3] [inputloc 18/220] >i_ownpre< [allow 3] [inputloc 18/224] >i_ownsuf< [allow 4] [inputloc 18/227] >i_ownext< [allow 4] [inputloc 18/232] >i_owntyp< [allow 1] [inputloc 18/237] >i_msasta< [allow 1] [inputloc 18/239] PER input file variables for 1998 AHS-Metropolitan CAI >RINPUT< [roster create persons] [If RINPUT_FLAG eq <1> goto P_PX] >i_rec_type85_1< [allow 2] [inputloc 1/1] >rec_subtype85_1< [allow 2] [inputloc 1/3] >rosterinfo85_1< [allow 12] [inputloc 1/5] >i_per< [allow 5] [inputloc 1/17] [# start of dep data for person 1 thru person 30 >i_lno< [allow 2] [inputloc 1/23] [# line number of respondent >i_lname< [allow 20] [inputloc 1/26] [# last name of respondent >i_fname< [allow 20] [inputloc 1/46] [# first name of respondent >i_rel< [allow 2] [inputloc 1/66] [# relationship codes >i_hhmem< [allow 1] [inputloc 1/69] [# household membership (1=yes/2=no) >i_par< [allow 2] [inputloc 1/71] [# line number of parent >i_ownrent< [allow 1] [inputloc 1/74] [# line number of owner/renter >i_brthm< [allow 2] [inputloc 1/76] [# month date of birth >i_brthd< [allow 2] [inputloc 1/78] [# day date of birth >i_brthy< [allow 4] [inputloc 1/80] [# year date of birth >i_age< [allow 3] [inputloc 1/85] [# age >i_sex< [allow 1] [inputloc 1/89] [# sex >i_race< [allow 1] [inputloc 1/91] [# race >i_orign< [allow 1] [inputloc 1/93] [# hispanic/so Amer origin (1=yes/2=no) >i_mar< [allow 1] [inputloc 1/95] [# marital status >i_spous< [allow 2] [inputloc 1/97] [# line number of spouse >i_educ< [allow 2] [inputloc 1/100] [# education >i_movyr< [allow 4] [inputloc 1/103] [# year line number moved to unit >i_movm< [allow 2] [inputloc 1/108] [# month line number moved to unit if after 1979 >i_pscode< [allow 1] [inputloc 1/111] [# changes in person's status >i_psmo< [allow 2] [inputloc 1/113] [# interview month change was noted >i_psyr< [allow 4] [inputloc 1/116] [# interview year change was noted >i_pelig< [allow 2] [inputloc 1/120] >i_natvty< [allow 3] [inputloc 1/123] [# country of birth >i_citizn< [allow 1] [inputloc 1/127] [# US citizin >i_ctzna< [allow 1] [inputloc 1/129] [# born US citizin >i_ctznb< [allow 1] [inputloc 1/131] [# US citizin through naturalization >i_inusyr< [allow 4] [inputloc 1/133] [# year line number came to live in US >RINPUT2a< [if RINPUT_FLAG ne <1> goto RINPUT2] [roster append persons] [goto SET] >RINPUT2< [roster close persons] [If RINPUT_FLAG eq <1> goto CK_PERS2] ===================================================================== = ** SECTION 2C ** STORES FROM INPUT ===================================================================== = >INPUTSTORE< [store i_hno in hno] [store i_hnosuf in hnosuf] [store i_strname in strname] [store i_unitdes in unitdes] [store i_physdes in physdes] [store i_po in po] [store i_st in st] [store i_zip5 in zip5] [store i_zip4 in zip4] [store i_newunit in newunit] [#store in I_NEWUNIT] [store i_istatus in istatus] [store i_incsam in incsam] [store i_istype in istype] [store i_multunit in multunit] [store i_ahsnfrm in ahsnfrm] [store i_sdesig in sdesig] [store i_intmon in intmon] [store i_intyr in intyr] [store i_frame in frame] DO NOT WANT TO READ IN THE ROSTERED VARIABLES FOR A SPAWNED EXTRA UNIT [IF I_NEWUNIT is ] [store <1> in DONE_ROSTER] [store <1> in INCSAM] [store <0> in CATIOK] [store in NUMLET] [store <0> in MULTUNIT] [store <0> in GQINAREA] [store <0> in EVERCATI] [store <0> in EVRRECYC] [store <0> in NEVRCATI] [ENDIF] [# We need to treat addtional unit as a new case 12/22/00 [if NEWUNIT is ] [store <1> in INCSAM] [endif] ---------------------------------------------------------------------- THE FOLLOWING VARIABLES YOU ONLY WANT TO INITIALIZE TO ZERO THE VERY FIRST TIME THE CASE IS TOUCHED. >INTVAR< >TOTSPAWN< [allow int 1] [store <0> in TOTSPAWN] [#spawn variable >ADDCNT< [allow int 1] [store <0> in ADDCNT] [#spawn variable >ARCHNAME< [allow 12] [#spawn variable [store <0> in respline] [store <0> in wheredex] [store <0> in length] [store <0> in outcome] [store <0> in marktwo] [store <0> in NROSIZE] [store <0> in T_NROSIZE] [store <0> in fardex] [store <0> in HIGH_LNO] [store <0> in PCNT] [store <0> IN VER_AGEFLAG] [store <2> in REPLHH] [store <0> in REPLHU] [goto AHS_INIT_1] [# check to see if good 1st interview and] [# initialize more variables] ------------------------------------------------------------ >AHS_INIT_1< >OTHERSTORE< ---------------------------------------------------------------------- CASE MANAGEMENT GETS COMMENT: This item displays the household composition. It is accessed by using the Shift and F1 keys. From this screen, iterviewers may go to the change screen at any time during the interview. This code will read in all variables from CASE MANAGEMENT. Please be sure to comment out the get command for the variables you do NOT need. YOU WILL MOST LIKELY NEED TO EDIT THIS FILE FOR YOUR SURVEY. Variables defined in the left most position must be named as they appear here. Indented variables have been named similar to the standard naming conventions. ----------------------------------------------------------------------------------- DEFINE INSTRUMENT VARIABLES TO HOLD CASE MANAGEMENT DATA IF A VARIABLE IS NAMED WITH A PRECEEDING "CM_", IT WILL HAVE A CORRESPONDING "I_" VARIABLE TO STORE IT'S CONTENTS INTO. IF A VARIABLE DOES NOT HAVE A "CM_" PRECEEDING, THEN THIS IS A VARIABLE THAT MUST EXIST IN THE INSTRUMENT TO HOLD INFORMATION FROM CASE MANAGEMENT. >CM_OUTFILE< [allow 12] USED WHEN NEW ADDRESS STANDARD ARE USED (RECORD TYPE or subtype 00) ADDRESS SET 1 - if using non record type format, comment these fields out >CM_CAPIID< [allow 99] >CM_VALIDADDR< [allow 3] [equiv CM_CAPIID position 1] >CM_ROCODE< [allow 2] [equiv CM_CAPIID position 4] >CM_FRCODE< [allow 3] [equiv CM_CAPIID position 6] >CM_MODE< [allow 1] [equiv CM_CAPIID position 9] >REASGN_FLG< [allow 1] [equiv CM_CAPIID position 10] >NEXTSUF< [allow 1] [equiv CM_CAPIID position 11] >XTRAUNIT< [allow 1] [equiv CM_CAPIID position 12] 6 reserved blank spaces >VARFILE< [allow 30] [equiv CM_CAPIID position 19] >NEWFILE< [allow 30] [equiv CM_CAPIID position 49] >CSMPATH< [allow 12] [equiv CM_CAPIID position 79] END OF ADDRESS SET 1 USED WHEN NEW ADDRESS STANDARD ARE USED (RECORD TYPE or subtype 00) ADDRESS SET 2 - if using non record type format, comment these fields out >CM_ADDRESS< [allow 99] >CM_HNO< [allow 10] [equiv CM_ADDRESS position 1] >CM_HNOSUF< [allow 3] [equiv CM_ADDRESS position 11] >CM_STRNAME< [allow 33] [equiv CM_ADDRESS position 14] >CM_UNITDES< [allow 20] [equiv CM_ADDRESS position 47] >CM_PO< [allow 22] [equiv CM_ADDRESS position 67] >CM_ST< [allow 2] [equiv CM_ADDRESS position 89] >CM_ZIP5< [allow 5] [equiv CM_ADDRESS position 91] >CM_ZIP4< [allow 4] [equiv CM_ADDRESS position 96] END OF ADDRESS SET 2 >CM_PHYLOC< [allow 99] >CM_MADDRESS< [allow 99] >CM_MHNO< [allow 10] [equiv CM_MADDRESS position 1] >CM_MHNOSUF< [allow 3] [equiv CM_MADDRESS position 11] >CM_MSTRNAME< [allow 33] [equiv CM_MADDRESS position 14] >CM_MUNITDES< [allow 20] [equiv CM_MADDRESS position 47] >CM_MPO< [allow 22] [equiv CM_MADDRESS position 67] >CM_MST< [allow 2] [equiv CM_MADDRESS position 89] >CM_MZIP5< [allow 5] [equiv CM_MADDRESS position 91] >CM_MZIP4< [allow 4] [equiv CM_MADDRESS position 96] >CM_PHONES< [allow 30] >CM_PHONE1< [allow 10] [equiv CM_PHONES position 2] >CM_EXT1< [allow 4] [equiv CM_PHONES position 12] >CM_PHONE2< [allow 10] [equiv CM_PHONES position 17] >CM_EXT2< [allow 4] [equiv CM_PHONES position 27] >CM_NOTES1< [allow 75] >CM_NOTES2< [allow 75] >CM_NOTES3< [allow 75] >CM_NOTES4< [allow 75] >CM_NOTES5< [allow 75] >CM_NOTES6< [allow 75] >CM_NOTES7< [allow 75] >CM_NOTES8< [allow 75] >CM_NOTES9< [allow 75] >CM_NOTES10< [allow 75] >CM_NOTES11< [allow 75] >CM_NOTES12< [allow 75] >CM_NOTES13< [allow 75] >CM_NOTES14< [allow 75] >CM_NOTES15< [allow 75] >CM_SCS< [allow 99] >CM_MOBHM< [allow 1] [equiv CM_SCS position 1] >CM_YRBLT< [allow 1] [equiv CM_SCS position 2] >CM_MAILFLG< [allow 1] [equiv CM_SCS position 3] >CM_ADDRCHG< [allow 1] [equiv CM_SCS position 4] >CM_GQNAME< [allow 40] [equiv CM_SCS position 5] >CM_GQTYPE< [allow 2] [equiv CM_SCS position 45] >CM_GQINST< [allow 1] [equiv CM_SCS position 47] >CM_NEVRCATI< [allow 1] [equiv CM_SCS position 48] >CM_TRANSITN< [allow 1] [equiv CM_SCS position 49] >CM_BLANK< [allow 50] [equiv CM_SCS position 50] >CM_APPT< [allow 1] >NOTESCHG< [allow 1] ----------------------------------------------------------------------------- >CK_MODE< [if MODE is <0> or MODE is <> goto RSET_CAPI] CAPI ---------------------------------------------------------------------- COMMENT: The following instructions initialize variables and reset all front and back items at the start of each call. (all variables/items are permanent) >RSET_CAPI< [call into CM_CAPIID] [call into CM_ADDRESS] [call into CM_PHYLOC] [call into CM_MADDRESS] [call into CM_PHONES] [#call into NOTESCHG] [#if NOTESCHG eq <1>] [call into CM_NOTES1] [call into CM_NOTES2] [call into CM_NOTES3] [call into CM_NOTES4] [call into CM_NOTES5] [call into CM_NOTES6] [call into CM_NOTES7] [call into CM_NOTES8] [call into CM_NOTES9] [call into CM_NOTES10] [call into CM_NOTES11] [call into CM_NOTES12] [call into CM_NOTES13] [call into CM_NOTES14] [call into CM_NOTES15] [call into CM_SCS] [#endif] ------------------------------------------------------------------------------- [# CHECK TO SEE THAT THE ADDRINFO FILE WAS READ WITH NO ERRORS [# AND IF THERE IS UPDATED INFORMATION, STORE TO APPROPRIATED INPUT VARIABLE. [# INPUT VARIABLES SHOULD BE DEFINED IN YOUR STANDARD RECORD TYPE .Q FILES AND [# DENOTED WITH "I_". [store CM_MAILFLG in MFLAG] [store CM_ADDRCHG in ADDRCHG] [if CM_VALIDADDR eq ] STORE (GET DATA) CASE MANAGEMENT DATA IN INSTRUMENT VARIABLES [if CM_ROCODE ne <>] [store CM_ROCODE in RO] [store CM_ROCODE in SITE] [endif] [if CM_FRCODE ne <>] [store CM_FRCODE in INTID] [endif] [if CM_MODE ne <>] [store CM_MODE in MODE] [endif] [store XTRAUNIT in NEWUNIT] [IF I_NEWUNIT is ] [store <1> in DONE_ROSTER] [store <1> in INCSAM] [store <0> in CATIOK] [store in NUMLET] [store <0> in MULTUNIT] [store <0> in GQINAREA] [store <0> in EVERCATI] [store <0> in EVRRECYC] [store <0> in NEVRCATI] [ENDIF] [# We need to treat addtional unit as a new case 12/22/00 [if NEWUNIT is ] [store <1> in INCSAM] [endif] USED WHEN NEW ADDRESS STANDARD ARE USED (RECORD TYPE=20) [if CM_HNO ne <>] [store CM_HNO in HNO] [endif] [if CM_HNOSUF ne <>] [store CM_HNOSUF in HNOSUF] [endif] [if CM_STRNAME ne <>] [store CM_STRNAME in STRNAME] [endif] [if CM_UNITDES ne <>] [store CM_UNITDES in UNITDES] [endif] [if CM_PO ne <>] [store CM_PO in PO] [endif] [if CM_ST ne <>] [store CM_ST in ST] [endif] [if CM_ZIP5 ne <>] [store CM_ZIP5 in ZIP5] [endif] [if CM_ZIP4 ne <>] [store CM_ZIP4 in ZIP4] [endif] [if CM_APPT ne <>] [store CM_APPT in APPT] [endif] [if CM_PHYLOC ne <>] [store CM_PHYLOC in PHYSDES] [endif] [store CM_MHNO in MHNO] [store CM_MHNOSUF in MHNOSUF] [store CM_MSTRNAME in MSTRNAME] [store CM_MUNITDES in MUNITDES] [store CM_MPO in MPO] [store CM_MST in MST] [store CM_MZIP5 in MZIP5] [store CM_MZIP4 in MZIP4] RECORD TYPE 80 INPUT VARIABLES [if CM_PHONE1 ne <>] [store CM_PHONE1 in PHONENUM] [endif] [if CM_EXT1 ne <>] [store CM_EXT1 in CP1EXT] [endif] RECORD TYPE 84 INPUT VARIABLES [store CM_NOTES1 in pn0101] [store CM_NOTES2 in pn0102] [store CM_NOTES3 in pn0103] [store CM_NOTES4 in pn0104] [store CM_NOTES5 in pn0105] [store CM_NOTES6 in pn0201] [store CM_NOTES7 in pn0202] [store CM_NOTES8 in pn0203] [store CM_NOTES9 in pn0204] [store CM_NOTES10 in pn0205] [store CM_NOTES11 in pn0301] [store CM_NOTES12 in pn0302] [store CM_NOTES13 in pn0303] [store CM_NOTES14 in pn0304] [store CM_NOTES15 in pn0305] RECORD TYPE 25 INPUT VARIABLES [if CM_MOBHM ne <>] [store CM_MOBHM in MOBHM] [endif] [if CM_YRBLT ne <>] [store CM_YRBLT in YRBLT] [endif] [if CM_GQNAME ne <>] [store CM_GQNAME in GQNAME] [endif] [if CM_GQTYPE ne <>] [store CM_GQTYPE in GQTYPE] [endif] [if CM_GQINST ne <>] [store CM_GQINST in GQINST] [endif] [if CM_NEVRCATI ne <>] [store CM_NEVRCATI in NEVRCATI] [endif] [if CM_TRANSITN ne <>] [store CM_TRANSITN in TRANSITN] [endif] [endif] [IF REASGN_FLG eq <1>] [store <200> in outcome] [endif] SET UP CURRENT DATE [setdate date] [store <0> in index] [store < > in temp] [store {int}month in index] [store monthtab(index) in temp] [make date_c from temp < > day <, > year] [store outcome in LSTOUT] [if LSTOUT eq <0>] [store <200> in LSTOUT] CW* [store <200> in outcome] [endif] [store <0> in FRONT_CMP] [store <1> in wheredex] [IF wheredex gt fardex] [store wheredex in fardex] [ENDIF] [window 3 size 21 rows 80 columns] ----------------------------------------------------------------------------- >RESET_CAPI< [reset START_CP] [reset CP_START] [reset DIAL_CP] [reset SHONOTE] [reset SHOWROS_CP] [reset NEWNUMBER_CP@NUM] [reset NEWNUMBER_CP@AR] [reset NEWNUMBER_CP@EXT] [reset HELLO_CP] [reset RTNUM_CP] [reset HELP_RT_CP] [reset INTRO_B] [reset GENINTRO] [reset INTRO_PT] [reset CB_THANK] [reset FIN] [reset APNTMT] [RESET THANK2_CP] [reset TRANS] [reset SHOFINAL] ===================================================================== SECTION 3 - REFERENCE ITEMS ===================================================================== GENERAL REFERENCE ITEMS ===================================================================== >H_HHROS< [reference] [display T_HHROS] [store < > in temp3] [store < > in temp2] [IF CHANGE is

] [store in temp2] [store <**JUMP FORWARD AFTER CHANGE**> in temp3] [ENDIF] [fill temp2] [fill temp3] (R) CHANGE RESPONDENT (P) TO PROCEED WITH INTERVIEW @ [@] [etc ] [goto H_CHGRESP]

[return from help] ---------------------------------------------------------------------- >H_WHERE< [reference] [store <> in temp2] [store <> in temp3] [store <> in temp4] [store <> in temp5] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [store <> in temp10] [store <> in temp11] [store <> in temp12] [store <> in temp13] [store <> in temp14] [store <> in temp15] [store <> in temp16] [store <> in temp17] [store <> in temp18] [store <> in temp19] [store <> in temp20] [store <> in temp21] [store <> in temp22] [store <> in temp23] [store <> in temp24] [# [If HU_CMP eq <1>] [store in temp2] [ENDIF] [If LUC_CMP eq <1>] [store in temp3] [ENDIF] [If NOINT_CMP eq <1>] [store in temp4] [ENDIF] [If CHANGE eq

] [store in temp5] [ENDIF] [If INVEN_CMP eq <1>] [store in temp6] [ENDIF] [If EQP_CMP eq <1>] [store in temp7] [ENDIF] [If BRKDN_CMP eq <1>] [store in temp8] [ENDIF] [If HMR_CMP eq <1>] [store in temp9] [ENDIF] [If NHQ_CMP eq <1>] [store in temp10] [ENDIF] [If RMOV_CMP eq <1>] [store in temp11] [ENDIF] [If JTW_CMP eq <1>] [store in temp13] [ENDIF] [If RET_CMP eq <1>] [store in temp14] [ENDIF] [If MORT_CMP eq <1>] [store in temp15] [ENDIF] [If HCOSTS_CMP eq <1>] [store in temp16] [ENDIF] [If INC_CMP eq <1>] [store in temp18] [ENDIF] [If RVER_CMP eq <1>] [store in temp19] [ENDIF] [If RATING_CMP eq <1>] [store in temp20] [ENDIF] [If MGER_CMP eq <1>] [store in temp21] [ENDIF] [If NRIPLUS_CMP eq <1>] [store in temp22] [ENDIF] [If LP_CMP eq <1>] [store in temp23] [ENDIF] [If OBSER_CMP eq <1>] [store in temp24] [ENDIF] [# MIDDLE MODULES COMPLETED HU [fill temp2] RET [fill temp14] LUC [fill temp3] MORT [fill temp15] NOINT [fill temp4] HCST [fill temp16] DEMO [fill temp5] INC [fill temp18] INV [fill temp6] RVER [fill temp19] EQP [fill temp7] RATING [fill temp20] BRKDN [fill temp8] MGER [fill temp21] HMR [fill temp9] NRIPLUS [fill temp22] NHQ [fill temp10] LDPNT [fill temp23] RMOV [fill temp11] OBR [fill temp24] JTW [fill temp13] ENTER (P) TO RETURN TO INTERVIEW @ [@]

[return from help] ---------------------------------------------------------------------- >STATE_REF< [reference] REFERENCE: PERMISSIBLE STATE CODES AL=Alabama IA=Iowa NJ=New Jersey VT=Vermont AK=Alaska KS=Kansas NM=New Mexico VA=Virginia AZ=Arizona KY=Kentucky NY=New York WA=Washington AR=Arkansas LA=Louisiana NC=N. Carolina WV=W.Virginia CA=California ME=Maine ND=N. Dakota WI=Wisconsin CO=Colorado MD=Maryland OH=Ohio WY=Wyoming CT=Connecticut MA=Massachusetts OK=Oklahoma DE=Delaware MI=Michigan OR=Oregon PR=Puerto Rico DC=Dist. Colum. MN=Minnesota PA=Pennsylvania CD=Canada FL=Florida MS=Mississippi RI=Rhode Island MX=Mexico GA=Georgia MO=Missouri SC=S. Carolina FC=Foreign Country HI=Hawaii MT=Montana SD=S. Dakota ID=Idaho NE=Nebraska TN=Tennessee IL=Illinois NV=Nevada TX=Texas IN=Indiana NH=New Hampshire UT=Utah PRESS ENTER TO CONTINUE @ [@] [nodata] [return from help] ---------------------------------------------------------------------- >H_CHGRESP< [reference] [window 3 size 20 rows 35 columns] [display HHROS] [loop for index from <1> to <30>] [if SKIPFLAG(index) eq <1>] [store index in xbad(index)] [ENDIF] [loop end] [bold]Ask if necessary:[normal] With whom am I speaking? *** ENTER LINE NUMBER *** @ [@] <1-30> [reject gt HIGH_LNO label ] [reject eq XBAD label ] [default goto H_CHGRESP2] >H_CHGRESP2< [reference] [store H_CHGRESP in respline] [store H_CHGRESP in HHRESP] [store name(respline) in respname] [return from help] ------------------------------------------------------------------- >H_NOTUSED< [reference] FUNCTION KEY NOT ACTIVE. PRESS ENTER TO CONTINUE. @ [@] [nodata] [return from help] [# The above wording is the required standard. -------------------------------------------------------------------- >H_STATUS< [reference] (Replace this sentence with survey-specific status table.) @ PRESS ENTER [@] [nodata] [return from help] -------------------------------------------------------------------- >H_HDISP< [reference] [call ] @ PRESS ENTER [@] [nodata] [return from help] -------------------------------------------------------------------- >H_SUPV< [reference] [call ] @ PRESS ENTER [@] [nodata] [return from help] -------------------------------------------------------------------- >H_KEYS< [reference] FUNCTION KEYS: ESC Return to SAME ITEM F11 Not Used F1 BACK 1 item F12 WINDOW toggle F2 FORWARD 1 item S/F1 Display CASE INFO F3 Next UNANSWERED S/F2 FAQS Purpose Screen F4 JUMP menu S/F3 Country Codes F5 Status table S/F4 Country Codes F6 CHANGE answer S/F5 Country Codes F7 Enter NOTES S/F6 Country Codes F8 RETURN from skip S/F7 View NOTES F9 Not Used S/F8 Not Used F10 Skip to END S/F9 Not Used S/F10 Show FUNCTION KEYS CURSOR MOVEMENT KEYS: PGUP Page UP UP ARROW UP one row PGDN Page DOWN DN ARROW DOWN one row HOME TOP of form LT ARROW BACK 1 item END BOTTOM of form RT ARROW FORWARD 1 item @ PRESS ENTER [@] [nodata] [return from help] [# The above screen is a suggested S/F10 display format. [# Spacing may be modified to accommodate survey differences. [# Labels for individual keys that are used should remain the same. -------------------------------------------------------------------- >PURPOSE< [reference] [# SHIFT - F2 ***FREQUENTLY ASKED QUESTIONS*** (1) What is this survey all ABOUT? (2) How will this information be USED? (3) How was I SELECTED? Why can't you SELECT someone else? (4) Is participation VOLUNTARY? (5) Who SEES my answers? (6) Is this survey AUTHORIZED by law? (7) How will this survey benefit ME? (8) I consider this a WASTE of money. (9) I thought the Census Bureau only worked every TEN YEARS. ENTER A NUMBER OR, ENTER (P) TO PROCEED WITH THE INTERVIEW. @ [@] <1> [goto PURPOSE1] <2> [goto PURPOSE2] <3> [goto PURPOSE3] <4> [goto PURPOSE4] <5> [goto PURPOSE5] <6> [goto PURPOSE6] <7> [goto PURPOSE7] <8> [goto PURPOSE8] <9> [goto PURPOSE9]

[return from help] ----------------------------------------------------------------------------- LOCAL REFERENCE ITEMS ----------------------------------------------------------------------------- >PURPOSE1< [reference] WHAT IS THIS SURVEY ALL ABOUT? This survey provides information about: - The cost of housing for the American public. - The availability of housing for different segments of the American public, such as the elderly, low income, and different minority groups. - Trends in housing market. For example: - What type of housing (single family homes, condominiums, townhouses, manufactured/mobile homes, etc.) are people buying? - What type of fuels and appliances are being used? - Is the quality of housing in this country improving or getting worse for most people? - Is the cost of owning and maintaining a home changing? - Is the cost of renting changing? - Are people adding to their living space? - What proportion of our population lives in overcrowded housing? - Are neighborhoods getting better or worse? - How close are we to our national goal of providing quality housing for each American? - To provide data for the President to present an annual report to Congress. ENTER (P) TO PROCEED WITH THE INTERVIEW. ENTER (H) HELP WITH ANOTHER QUESTION. @ [@]

[goto PUR_RET] [goto PURPOSE] -------------------------------------------------------------------------------- >PURPOSE2< [reference] HOW WILL THE INFORMATION BE USED? Some uses for the information are the following: - To evaluate the effectiveness of existing housing programs. - To plan new programs. - To determine the amount of money required to solve different types of housing problems. - To determine at what income level families of various sizes qualify for low-income housing assistance programs. - To determine how much support low-or middle-income families should receive in the form of rent subsidies or mortgage assistance programs. - To determine if existing mortgage programs are adequate. - To provide data for the President to present an annual report to Congress. ENTER (P) TO PROCEED WITH THE INTERVIEW. ENTER (H) HELP WITH ANOTHER QUESTION. @ [@]

[goto PUR_RET] [goto PURPOSE] -------------------------------------------------------------------------------- >PURPOSE3< [reference] HOW WAS I SELECTED FOR THIS SURVEY? - We selected an address, not you or your family. - If you were to move, this address would remain in the survey, not your new one. WHY CAN'T YOU SELECT SOMEONE ELSE? Each address is scientifically selected to represent thousands of other housing units. ENTER (P) TO PROCEED WITH THE INTERVIEW. ENTER (H) HELP WITH ANOTHER QUESTION. @ [@]

[goto PUR_RET] [goto PURPOSE] -------------------------------------------------------------------------------- >PURPOSE4< [reference] IS PARTICIPATION VOLUNTARY? - Yes. - To produce valid and reliable results, everyone should participate. - Decisions will be made with or without your input. By participating, your voice will be heard in Washington. ENTER (P) TO PROCEED WITH THE INTERVIEW. ENTER (H) HELP WITH ANOTHER QUESTION. @ [@]

[goto PUR_RET] [goto PURPOSE] -------------------------------------------------------------------------------- >PURPOSE5< [reference] WHO SEES MY ANSWERS? I DON'T WANT ANYONE TO SEE MY ANSWERS. - Any information you provide is confidential by law (Title 13, section 9a of the U.S. Code.) - Individual people or homes cannot be identified in publications. - Interviewers have taken an oath not to reveal the information. If they break this oath, they can be fined or imprisoned. ENTER (P) TO PROCEED WITH THE INTERVIEW. ENTER (H) HELP WITH ANOTHER QUESTION. @ [@]

[goto PUR_RET] [goto PURPOSE] -------------------------------------------------------------------------------- >PURPOSE6< [reference] IS THIS SURVEY AUTHORIZED BY LAW? - The Census Bureau collects the data for the Department of Housing and Urban Development under title 12, section 1701Z-1 and 2(g) of the U.S. Code. - Your participation is voluntary but essential to the success of the survey. ENTER (P) TO PROCEED WITH THE INTERVIEW. ENTER (H) HELP WITH ANOTHER QUESTION. @ [@]

[goto PUR_RET] [goto PURPOSE] -------------------------------------------------------------------------------- >PURPOSE7< [reference] HOW WILL THIS SURVEY BENEFIT ME? - Because of the survey, Federal funds are allocated more efficiently. The survey actually saves more money than it costs. - Government programs, such as (Select any: mortgage assistance, loans, rent assistance, low-cost housing) exist or may exist in the future that you, or someone you know, might participate in. - The survey results are used to evaluate our progress toward providing each American with decent housing. ENTER (P) TO PROCEED WITH THE INTERVIEW. ENTER (H) HELP WITH ANOTHER QUESTION. @ [@]

[goto PUR_RET] [goto PURPOSE] -------------------------------------------------------------------------------- >PURPOSE8< [reference] I CONSIDER THIS A WASTE OF MONEY. - It actually saves more money than it costs, because the information is used to allocate housing funds more efficiently. - To keep costs low, we only interview a sample of households, that's why your participation is so important. ENTER (P) TO PROCEED WITH THE INTERVIEW. ENTER (H) HELP WITH ANOTHER QUESTION. @ [@]

[goto PUR_RET] [goto PURPOSE] -------------------------------------------------------------------------------- >PURPOSE9< [reference] I THOUGHT THE CENSUS BUREAU ONLY WORKED EVERY 10 YEARS. - We're best known for the census, but we conduct surveys all the time. This housing survey is one of them. - We have over 3,000 interviewers who work all across the country. ENTER (P) TO PROCEED WITH THE INTERVIEW. ENTER (H) HELP WITH ANOTHER QUESTION. @ [@]

[goto PUR_RET] [goto PURPOSE] ------------------------------------------------------------------------------ >PUR_RET<[reference] [window 3 size 21 rows 80 columns] [return from help] ===================================================================== SECTION **4** - START OF CAPI SCREENS ===================================================================== >FRCKSTART< [window 3 size 21 rows 80 columns] [if LSTOUT ne <200> AND LSTOUT ne <202> AND LSTOUT ne <204> AND LSTOUT NE <205> goto CP_START] [if incsam eq <1>] [if ahsnfrm ne <>] [store <1> in sdesig] [store <2> in i_catiflag] [else] [store <2> in sdesig] [store <2> in i_catiflag] [endif][endif] [goto START_CP] ----------------------------------------------------------------------------- >CP_START< [window 3 size 21 rows 80 columns] [clearkey ] [# So You can't jump back into the content ] [clearkey ] [store <> in temp1] [if SDESIG eq <1>] [store in temp1] [else] [store in temp1] [endif] CENSUS CAPI SYSTEM Date: July 2, 2001 [bold]AMERICAN HOUSING SURVEY [fill year] [fill temp1] INSTRUMENT *** RESOLVED CASE - REVIEW NOTES ONLY *** [n] PRESS ENTER TO CONTINUE @ [@] [nodata] ------------------------------------------------------------ >NINOTES_PRE< [# Redifine the function key to match the spec. requirement. [setkey to ] [setkey to ] [setkey to ] [setkey to ] [if PN0101 eq <>] [goto NINOTES_CK1] [# No previous notes, collect new notes [else] [goto NINOTES_1] [# review the exist notes [endif] ------------------------------------------------------------ [# Display exist notes >NINOTES_1<[if NINOTES_1 ne <>] [reset NINOTES_1] [endif] (1) KEEP ALL notes without changes [reverse](H)[normal] Abbreviations (2) CHANGE or ADD to existing notes (3) REPLACE ALL notes @ [fill pn0101] [fill pn0102] [fill pn0103] [fill pn0104] [fill pn0105] [fill pn0201] [fill pn0202] [fill pn0203] [fill pn0204] [fill pn0205] [fill pn0301] [fill pn0302] [fill pn0303] [fill pn0304] [fill pn0305] [@] <1> [goto NINOTES_CK5] <2> [goto NINOTES_CK2] <3> [goto NINOTES_CK1] [etc ] ------------------------------------------------------------------- [# reset exit notes screen, and collect new notes >NINOTES_CK1< [reset NINOTES_2@1] [reset NINOTES_2@2] [reset NINOTES_2@3] [reset NINOTES_2@4] [reset NINOTES_2@5] [reset NINOTES_2@6] [reset NINOTES_2@7] [reset NINOTES_2@8] [reset NINOTES_2@9] [reset NINOTES_2@10] [reset NINOTES_2@11] [reset NINOTES_2@12] [reset NINOTES_2@13] [reset NINOTES_2@14] [reset NINOTES_2@15] ------------------------------------------------------------ [# collect i_notes or replaec I_notes >NINOTES_2< [window 3 no border] [# COLLECT I_NOTES [# Redifine the function key to match the spec. requirement. [setkey to ] [setkey to ] [setkey to ] [setkey to ] [if NINOTES_1 onpath and NINOTES_1 eq <3>] Enter replacement notes about this case. [else] Enter notes about this case. [endif] (N) No notes needed, or finished entering notes [reverse](H)[normal] Abbreviations @1 @2 @3 @4 @5 @6 @7 @8 @9 @10 @11 @12 @13 @14 @15 [@1][allow 75][anychar] [missing] [goto @A] [etc ] [@2][allow 75][anychar] [missing] [goto NINOTES_CK5] [etc ] [@3][allow 75][anychar] [missing] [goto NINOTES_CK5] [etc ] [@4][allow 75][anychar] [missing] [goto NINOTES_CK5] [etc ] [@5][allow 75][anychar] [missing] [goto NINOTES_CK5] [etc ] [@6][allow 75][anychar] [missing] [goto NINOTES_CK5] [etc ] [@7][allow 75][anychar] [missing] [goto NINOTES_CK5] [etc ] [@8][allow 75][anychar] [missing] [goto NINOTES_CK5] [etc ] [@9][allow 75][anychar] [missing] [goto NINOTES_CK5] [etc ] [@10][allow 75][anychar] [missing] [goto NINOTES_CK5] [etc ] [@11][allow 75][anychar] [missing] [goto NINOTES_CK5] [etc ] [@12][allow 75][anychar] [missing] [goto NINOTES_CK5] [etc ] [@13][allow 75][anychar] [missing] [goto NINOTES_CK5] [etc ] [@14][allow 75][anychar] [missing] [goto NINOTES_CK5] [etc ] [@15][allow 75][anychar] [goto NINOTES_CK5] [missing] [goto NINOTES_CK5] [etc ] [@A] [if NINOTES_1 eq <3> and NINOTES_1 onpath] [goto NINOTES_4] [else] [goto NINOTES_CK5] [endif] ----------------------------------------------------------------- [# Store old notes to make changes >NINOTES_CK2< [if PN0101 ne ] [store PN0101 in NINOTES_3@1] [endif] [if PN0102 ne ] [store PN0102 in NINOTES_3@2] [endif] [if PN0103 ne ] [store PN0103 in NINOTES_3@3] [endif] [if PN0104 ne ] [store PN0104 in NINOTES_3@4] [endif] [if PN0105 ne ] [store PN0105 in NINOTES_3@5] [endif] [if PN0201 ne ] [store PN0201 in NINOTES_3@6] [endif] [if PN0202 ne ] [store PN0202 in NINOTES_3@7] [endif] [if PN0203 ne ] [store PN0203 in NINOTES_3@8] [endif] [if PN0204 ne ] [store PN0204 in NINOTES_3@9] [endif] [if PN0205 ne ] [store PN0205 in NINOTES_3@10] [endif] [if PN0301 ne ] [store PN0301 in NINOTES_3@11] [endif] [if PN0302 ne ] [store PN0302 in NINOTES_3@12] [endif] [if PN0303 ne ] [store PN0303 in NINOTES_3@13] [endif] [if PN0304 ne ] [store PN0304 in NINOTES_3@14] [endif] [if PN0305 ne ] [store PN0305 in NINOTES_3@15] [endif] ------------------------------------------------------------------------- [# Make changes for old notes >NINOTES_3< [open NINOTES_3] [# Redifine the function key to match the spec. requirement. [setkey to ] [setkey to ] [setkey to ] [setkey to ] UP Arrow = Move UP one line DOWN Arrow = Move DOWN one line HOME = FIRST line END = Last line Space Bar = DELETE an ENTIRE line (N) = No more @1 @2 @3 @4 @5 @6 @7 @8 @9 @10 @11 @12 @13 @14 @15 [@1][allow 75][anychar] [missing][goto NINOTES_CK5] [@2][allow 75][anychar] [missing][goto NINOTES_CK5] [@3][allow 75][anychar] [missing][goto NINOTES_CK5] [@4][allow 75][anychar] [missing][goto NINOTES_CK5] [@5][allow 75][anychar] [missing][goto NINOTES_CK5] [@6][allow 75][anychar] [missing][goto NINOTES_CK5] [@7][allow 75][anychar] [missing][goto NINOTES_CK5] [@8][allow 75][anychar] [missing][goto NINOTES_CK5] [@9][allow 75][anychar] [missing][goto NINOTES_CK5] [@10][allow 75][anychar] [missing][goto NINOTES_CK5] [@11][allow 75][anychar] [missing][goto NINOTES_CK5] [@12][allow 75][anychar] [missing][goto NINOTES_CK5] [@13][allow 75][anychar] [missing][goto NINOTES_CK5] [@14][allow 75][anychar] [missing][goto NINOTES_CK5] [@15][allow 75][anychar][goto NINOTES_CK5] [missing][goto NINOTES_CK5] ------------------------------------------------------------ >NINOTES_4< [if NINOTES_4 ne <>] [reset NINOTES_4] [endif] WARNING SCREEN YOU ARE ABOUT TO DELETE ALL NOTES FOR THIS CASE ARE YOU SURE YOU WANT TO DELETE ALL NOTES? (1) Yes (2) No @ [@] <1> [goto NINOTES_CK3] <2> [goto NINOTES_CK4] ---------------------------------------------------------------------- [# Remove all old notes >NINOTES_CK3< [store <> in NINOTES_2@1] [store <> in PN0101] [store <> in PN0102] [store <> in PN0103] [store <> in PN0104] [store <> in PN0105] [store <> in PN0201] [store <> in PN0202] [store <> in PN0203] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [goto NINOTES_END] ----------------------------------------------------------------------- [# back to reviewing screen >NINOTES_CK4< [reset NINOTES_1] [goto NINOTES_1] ----------------------------------------------------------------------- [# store notes to outfile variables >NINOTES_CK5< [setkey label to ] [setkey to ] [setkey label to ] [setkey label to ] [if PN0101 eq <> or PN0101 eq ] [if NINOTES_2@1 ne and NINOTES_2@1 onpath] [store NINOTES_2@1 in PN0101] [else] [store <> in PN0101] [store <> in PN0102] [store <> in PN0103] [store <> in PN0104] [store <> in PN0105] [store <> in PN0201] [store <> in PN0202] [store <> in PN0203] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@2 ne and NINOTES_2@2 onpath] [store NINOTES_2@2 in PN0102] [else] [store <> in PN0102] [store <> in PN0103] [store <> in PN0104] [store <> in PN0105] [store <> in PN0201] [store <> in PN0202] [store <> in PN0203] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@3 ne and NINOTES_2@3 onpath] [store NINOTES_2@3 in PN0103] [else] [store <> in PN0103] [store <> in PN0104] [store <> in PN0105] [store <> in PN0201] [store <> in PN0202] [store <> in PN0203] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@4 ne and NINOTES_2@4 onpath] [store NINOTES_2@4 in PN0104] [else] [store <> in PN0104] [store <> in PN0105] [store <> in PN0201] [store <> in PN0202] [store <> in PN0203] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@5 ne and NINOTES_2@5 onpath] [store NINOTES_2@5 in PN0105] [else] [store <> in PN0105] [store <> in PN0201] [store <> in PN0202] [store <> in PN0203] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@6 ne and NINOTES_2@6 onpath] [store NINOTES_2@6 in PN0201] [else] [store <> in PN0201] [store <> in PN0202] [store <> in PN0203] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@7 ne and NINOTES_2@7 onpath] [store NINOTES_2@7 in PN0202] [else] [store <> in PN0202] [store <> in PN0203] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@8 ne and NINOTES_2@8 onpath] [store NINOTES_2@8 in PN0203] [else] [store <> in PN0203] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@9 ne and NINOTES_2@9 onpath] [store NINOTES_2@9 in PN0204] [else] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@10 ne and NINOTES_2@10 onpath] [store NINOTES_2@10 in PN0205] [else] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@11 ne and NINOTES_2@11 onpath] [store NINOTES_2@11 in PN0301] [else] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@12 ne and NINOTES_2@12 onpath] [store NINOTES_2@12 in PN0302] [else] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@13 ne and NINOTES_2@13 onpath] [store NINOTES_2@13 in PN0303] [else] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@14 ne and NINOTES_2@14 onpath] [store NINOTES_2@14 in PN0304] [else] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@15 ne and NINOTES_2@15 onpath] [store NINOTES_2@15 in PN0305] [else] [store <> in PN0305] [endif] [goto NINOTES_END] [endif] [if NINOTES_1 onpath and NINOTES_1 eq <2>] [if NINOTES_3@1 ne ] [store NINOTES_3@1 in PN0101] [else] [store <> in PN0101] [store <> in PN0102] [store <> in PN0103] [store <> in PN0104] [store <> in PN0105] [store <> in PN0201] [store <> in PN0202] [store <> in PN0203] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [goto NINOTES_END] [endif] [if NINOTES_3@2 ne ] [store NINOTES_3@2 in PN0102] [else] [store <> in PN0102] [store <> in PN0103] [store <> in PN0104] [store <> in PN0105] [store <> in PN0201] [store <> in PN0202] [store <> in PN0203] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [goto NINOTES_END] [endif] [if NINOTES_3@3 ne ] [store NINOTES_3@3 in PN0103] [else] [store <> in PN0103] [store <> in PN0104] [store <> in PN0105] [store <> in PN0201] [store <> in PN0202] [store <> in PN0203] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [goto NINOTES_END] [endif] [if NINOTES_3@4 ne ] [store NINOTES_3@4 in PN0104] [else] [store <> in PN0104] [store <> in PN0105] [store <> in PN0201] [store <> in PN0202] [store <> in PN0203] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [goto NINOTES_END] [endif] [if NINOTES_3@5 ne ] [store NINOTES_3@5 in PN0105] [else] [store <> in PN0105] [store <> in PN0201] [store <> in PN0202] [store <> in PN0203] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [goto NINOTES_END] [endif] [if NINOTES_3@6 ne ] [store NINOTES_3@6 in PN0201] [else] [store <> in PN0201] [store <> in PN0202] [store <> in PN0203] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [goto NINOTES_END] [endif] [if NINOTES_3@7 ne ] [store NINOTES_3@7 in PN0202] [else] [store <> in PN0202] [store <> in PN0203] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [goto NINOTES_END] [endif] [if NINOTES_3@8 ne ] [store NINOTES_3@8 in PN0203] [else] [store <> in PN0203] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [goto NINOTES_END] [endif] [if NINOTES_3@9 ne ] [store NINOTES_3@9 in PN0204] [else] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [goto NINOTES_END] [endif] [if NINOTES_3@10 ne ] [store NINOTES_3@10 in PN0205] [else] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [goto NINOTES_END] [endif] [if NINOTES_3@11 ne ] [store NINOTES_3@11 in PN0301] [else] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [goto NINOTES_END] [endif] [if NINOTES_3@12 ne ] [store NINOTES_3@12 in PN0302] [else] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [goto NINOTES_END] [endif] [if NINOTES_3@13 ne ] [store NINOTES_3@13 in PN0303] [else] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [goto NINOTES_END] [endif] [if NINOTES_3@14 ne ] [store NINOTES_3@14 in PN0304] [else] [store <> in PN0304] [store <> in PN0305] [goto NINOTES_END] [endif] [if NINOTES_3@15 ne ] [store NINOTES_3@15 in PN0305] [else] [store <> in PN0305] [goto NINOTES_END] [endif] [goto NINOTES_END] [endif] [if NINOTES_1 onpath and NINOTES_1 eq <3>] [if NINOTES_2@1 ne and NINOTES_2@1 onpath] [store NINOTES_2@1 in PN0101] [else] [store <> in PN0101] [store <> in PN0102] [store <> in PN0103] [store <> in PN0104] [store <> in PN0105] [store <> in PN0201] [store <> in PN0202] [store <> in PN0203] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@2 ne and NINOTES_2@2 onpath] [store NINOTES_2@2 in PN0102] [else] [store <> in PN0102] [store <> in PN0103] [store <> in PN0104] [store <> in PN0105] [store <> in PN0201] [store <> in PN0202] [store <> in PN0203] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@3 ne and NINOTES_2@3 onpath] [store NINOTES_2@3 in PN0103] [else] [store <> in PN0103] [store <> in PN0104] [store <> in PN0105] [store <> in PN0201] [store <> in PN0202] [store <> in PN0203] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@4 ne and NINOTES_2@4 onpath] [store NINOTES_2@4 in PN0104] [else] [store <> in PN0104] [store <> in PN0105] [store <> in PN0201] [store <> in PN0202] [store <> in PN0203] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@5 ne and NINOTES_2@5 onpath] [store NINOTES_2@5 in PN0105] [else] [store <> in PN0105] [store <> in PN0201] [store <> in PN0202] [store <> in PN0203] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@6 ne and NINOTES_2@6 onpath] [store NINOTES_2@6 in PN0201] [else] [store <> in PN0201] [store <> in PN0202] [store <> in PN0203] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@7 ne and NINOTES_2@7 onpath] [store NINOTES_2@7 in PN0202] [else] [store <> in PN0202] [store <> in PN0203] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@8 ne and NINOTES_2@8 onpath] [store NINOTES_2@8 in PN0203] [else] [store <> in PN0203] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@9 ne and NINOTES_2@9 onpath] [store NINOTES_2@9 in PN0204] [else] [store <> in PN0204] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@10 ne and NINOTES_2@10 onpath] [store NINOTES_2@10 in PN0205] [else] [store <> in PN0205] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@11 ne and NINOTES_2@11 onpath] [store NINOTES_2@11 in PN0301] [else] [store <> in PN0301] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@12 ne and NINOTES_2@12 onpath] [store NINOTES_2@12 in PN0302] [else] [store <> in PN0302] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@13 ne and NINOTES_2@13 onpath] [store NINOTES_2@13 in PN0303] [else] [store <> in PN0303] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@14 ne and NINOTES_2@14 onpath] [store NINOTES_2@14 in PN0304] [else] [store <> in PN0304] [store <> in PN0305] [endif] [if NINOTES_2@15 ne and NINOTES_2@15 onpath] [store NINOTES_2@15 in PN0305] [else] [store <> in PN0305] [endif] [goto NINOTES_END] [endif] [goto NINOTES_END] --------------------------------------------------------------------- >NINOTES_END< PRESS ENTER @ [@] [nodata] ---------------------------------------------------------------------- >NSETNOTE< [store LSTOUT in outcome] [goto done3] ===================================================================== ========== SECTION **5** - PREDIAL, DIAL, AND FRONT ===================================================================== ========== >START_CP< [window 3 size 20 rows 80 columns] [display T_ROSTER window 4] [setdate DATE] [settime STARTTIME] [# [store <> in temp1] [if SDESIG eq <1>] [store in temp1] [else] [store in temp1] [endif] [settime time] [store <0> in tindex] [store {int}time in tindex] [if tindex ge <1300>] [subtract <1200> from tindex] [make time_c from hr <:> min < pm>] [else] [if tindex ge <1200>] [make time_c from hr <:> min < pm>] [else] [make time_c from hr <:> min < am>] [endif] [endif] [#] [store MSTATUS(MARK) in TEMP2] [#] [# COMMENT: IF THE OUTCOME IS A 202 THEN NO MIDDLE QUESTIONS HAVE [#BEEN COLLECTED] [# THESE CASES CAN'T BE TRANSMITTED UNTIL THE HAVE SOME MIDDLE [#COMPLETED OR ] [# UNTIL THE CASE IS MADE A NONINTERVIEW ] [#] [store <> in temp4] [store <(R) Ready to transmit case-no more followup> in temptext] [#] [IF lstout eq <202> OR lstout eq <0> OR lstout eq <200>] [store <> in temptext] [store in temp4] [ENDIF] [#] CENSUS CAPI SYSTEM Date: July 2, 2001 American Housing Survey- [fill year] [fill temp1] Instrument Case status is: [fill temp2] Date is: [fill date_c] Time is: [fill time_c] (T) Telephone Interview (P) Personal interview (See notes) [fill temptext] (Q) Quit: Do not attempt now. @ [@] [reject eq TEMP4 label ] [goto @1]

[goto @2] [goto @4] [goto TRANS] [@1] [store <2> in INTTYP] [goto FRCK1] [@2] [store <1> in INTTYP] [goto FRCK1] [@4] [store <202> in OUTCOME] [if MARK eq <14>] [store <204> in OUTCOME] [endif] [if MARK eq <16> OR mark eq <17> OR mark eq <18>] [store <205> in OUTCOME] [endif] [goto CHECK_OUT] ------------------------------------------------------------ >FRCK1< [if pn0101 isnt <> goto SHONOTE] [goto FRCK2] --------------------------------------------------------------------- >SHONOTE< Previous notes about this case: 1 [fill pn0101] 2 [fill pn0102] 3 [fill pn0103] 4 [fill pn0104] 5 [fill pn0105] 6 [fill pn0201] 7 [fill pn0202] 8 [fill pn0203] 9 [fill pn0204] 10 [fill pn0205] 11 [fill pn0301] 12 [fill pn0302] 13 [fill pn0303] 14 [fill pn0304] 15 [fill pn0305] PRESS (P) TO PROCEED @ [@]

---------------------------------------------------------------------- >FRCK2< [if (OUTCOME eq <000> or OUTCOME eq <200> or OUTCOME eq <202>) and MARK le <13>] [if INCSAM eq <0> and I_ISTATUS eq <1>] [goto SHOWROS_CP] [endif] [if INCSAM eq <0> and I_ISTATUS ne <1>] [if START_CP eq

goto GENINTRO] [if START_CP eq goto NEED_PV] [endif] [if INCSAM eq <1> and START_CP eq

goto GENINTRO] [if INCSAM eq <1> and START_CP eq goto NEED_PV] [endif] [if OUTCOME eq <204> or OUTCOME eq <202> and MARK eq <14>] [if START_CP eq ] [if respline ge <1> goto SHOWROS_CP] [goto DIAL_CP] [else] [if START_CP eq

goto INTRO_PT] [endif] [endif] [if OUTCOME eq <205> and (MARK eq <16> or MARK eq <17> or MARK eq <18>)] [if START_CP eq goto DIAL_CP] [if START_CP eq

goto INTRO_PT] [endif] ----------------------------------------------------------------------------- >NEED_PV< *** THIS CASE REQUIRES A PERSONAL VISIT *** *** UNLESS THIS IS A LAST RESORT *** [if sdesig eq <2>] OR *** UNLESS A TELEPHONE NUMBER OR RESIDENT NAME WAS PROVIDED WITH THE CASE WHEN YOU RECEIVED YOUR ASSIGNMENT *** [endif] ENTER (1) IF NOT LAST RESORT/GO TO NOTES ENTER (P) TO PROCEED @ [@] <1> [goto @1]

[goto FRCK3] [@1] [store <202> in outcome] [if MARK eq <14>] [store <204> in OUTCOME] [endif] [if MARK eq <16> OR mark eq <17> OR mark eq <18>] [store <205> in OUTCOME] [endif] [goto CHECK_OUT] ------------------------------------------------------------------------------ >winsd5< [window 4 displays] [window 4 start row 12 column 1] [window 4 size 09 rows 80 columns] [window 4 no border] [window 4 line top] ---------------------------------------------------------------------- >SHOWROS_CP< [window 3 size 6 rows 80 columns] [display T_SHOROS window 4] STATUS OF HOUSEHOLD COMPOSITION PRESS (P) TO PROCEED @ [@]

------------------------------------------------------------------------------ >FRCK3< [if (OUTCOME eq <000> or OUTCOME eq <200> or OUTCOME eq <202>) and MARK le <13>] [if INCSAM eq <0> and I_ISTATUS eq <1> and START_CP eq goto DIAL_CP] [if INCSAM eq <0> and I_ISTATUS eq <1> and START_CP eq

goto GENINTRO] [endif] [if OUTCOME eq <204> and respline ge <1> and (I_ISTATUS eq <1> or I_ISTATUS eq <2>)] [if START_CP eq goto DIAL_CP] [if START_CP eq

goto INTRO_PT] [endif] [if OUTCOME eq <202> and MARK eq <14> and respline ge <1> and (I_ISTATUS eq <1> or I_ISTATUS eq <2>)] [if START_CP eq goto DIAL_CP] [if START_CP eq

goto INTRO_PT] [endif] ------------------------------------------------------------------------------ >DIAL_CP< [window 3 size 21 rows 80 columns] [store < > in temp3] [IF HHRESP isnt <> AND HHRESP isnt <0>] [store HHRESP in index] [store name(index) in temp3] [ENDIF] [# [store in temp2] [IF TELPHN@HO eq <1>] [store in temp2] [ENDIF] [# [If DIAL_CP eq <3>] [reset DIAL_CP] [ENDIF] [# DIAL THIS NUMBER: ([fill AREA:0]) [fill PREFIX:0]-[fill SUFFIX:0] EXT: [fill EXTN:0] RESIDENT: [fill temp3] HOME/OFFICE: [fill temp2] TIME: [fill time_c] ADDRESS: [fill HNO] [fill HNOSUF] [fill STRNAME] [fill UNITDES] [fill PO], [fill ST] [fill ZIP5:0] (1) Someone answers (2) No Contact/Answering Machine (3) Recorded Message Announcing New Telephone number (4) Telephone disconnected (0) NOT ATTEMPTED NOW @ NOTES: 1 [fill pn0101] 2 [fill pn0102] 3 [fill pn0103] 4 [fill pn0104] 5 [fill pn0105] 6 [fill pn0201] 7 [fill pn0202] 8 [fill pn0203] 9 [fill pn0204] 10 [fill pn0205] 11 [fill pn0301] 12 [fill pn0302] 13 [fill pn0303] 14 [fill pn0304] 15 [fill pn0305] [@] <1> [goto FRCK4] <0,2,4> [goto @1] <3> [goto NEWNUMBER_CP] [@1] [store <202> in outcome] [if MARK eq <14>] [store <204> in OUTCOME] [endif] [if MARK eq <16> OR mark eq <17> OR mark eq <18>] [store <205> in OUTCOME] [endif] [goto CHECK_OUT] --------------------------------------------------------------------- [#COMMENT: COMES HERE IF 3-NEW TELEPHONE NUMBER WAS ENTERED AT THE DIAL SCREEN >NEWNUMBER_CP< [# OLD NUMBER: ([fill AREA:0]) [fill PREFIX:0]-[fill SUFFIX:0] EXT: [fill EXTN:0] RECORD THE NEW TELEPHONE NUMBER In Area Code: @AR USE (S) FOR SAME. New Number: @NUM EXT: @EXT ENTER (N) FOR NONE [@AR] [missing] <100-999> [missing] [goto FRCK4] [@NUM] <1000000-9999999> [input format full field enter left < - >] [@EXT] [missing] <0000-9999> ----------------------------------------------------------------------------- >NBRCNVERT_CP< [IF NEWNUMBER_CP@AR isnt ] [store NEWNUMBER_CP@AR in area] [ENDIF] [store {char}NEWNUMBER_CP@NUM in phone3] [if NEWNUMBER_CP@EXT isnt ] [store NEWNUMBER_CP@EXT in EXTN] [endif] [reset NEWNUMBER_CP@AR] [reset NEWNUMBER_CP@NUM] [reset NEWNUMBER_CP@EXT] [goto DIAL_CP] ----------------------------------------------------------------------------- >FRCK4< [if OUTCOME eq <204> or (OUTCOME eq <202> and MARK eq <14>)] [if HHRESP ge <1> goto HELLO_CP] [if HHRESP eq <> goto INTRO_PT] [endif] [if OUTCOME eq <205> and (MARK eq <16> or MARK eq <17> or MARK eq <18>)] [goto INTRO_PT] [endif] [if INCSAM eq <0> and I_ISTATUS eq <1> goto HELLO_CP] [if INCSAM eq <0> and I_ISTATUS ne <1> goto GENINTRO] ----------------------------------------------------------------------------- ===================================================================== ======== SECTION 6 - INTRODUCTION ===================================================================== ========= >HELLO_CP< Hello, I'm.....from the U.S. Census Bureau. May I speak to [fill respname]? (1) This is correct person. (2) Correct person called to phone. (3) Person not home now or not available now. (4) Person unknown at this number. (5) Person no longer lives there (includes deceased). (6) Noninterview. (7) Replacement HH - Entire household moved out. @ [@] <1,2> [goto @1] <3-5> [goto PRE_RTNUM_CP] <6> [goto @a] <7> [goto PV_CB] [@a] [store <4> in ISTATUS] [goto NONTYPE] [@1] [If OUTCOME eq <200> OR (OUTCOME eq <202> AND MARK lt <14>)] [goto GENINTRO] [ENDIF] [goto INTRO_PT] ----------------------------------------------------------------------------- >PRE_RTNUM_CP< [window 4 displays] [window 4 start row 16 column 1] [window 4 size 10 rows 80 columns] [window 4 no border] [window 4 line top] >RTNUM_CP< [window 3 size 13 rows 80 columns] [display T_RTNUM window 4] [# [IF OUTCOME eq <200> OR (OUTCOME eq <202> AND MARK lt <14>)] I'm trying to reach someone in the household. Does (READ NAMES LISTED BELOW) live there? [ELSE] Is (READ NAMES LISTED BELOW) available? [ENDIF] ** F12 TO TOGGLE WINDOW, THEN PAGEDOWN FOR NEXT PAGE ** (1) Yes, person you are speaking with or someone available now (2) Yes, but people NOT home or NOT available now (3) No, all persons have moved since last interview (R) Refused @ [@] <1> [goto @1] <2> [goto @2] <3> [goto PV_CB] [goto @3] [@1] [if OUTCOME eq <200> or (OUTCOME eq <202> and MARK lt <14>)] [goto GENINTRO] [ENDIF] [goto INTRO_PT] [@2] [IF OUTCOME eq <200> or (OUTCOME eq <202> and MARK lt <14>)] [goto HELP_RT_CP] [ENDIF] [goto APNTMT] [@3] [store <202> in outcome] [if MARK eq <14>] [store <204> in OUTCOME] [endif] [if MARK eq <16> OR mark eq <17> OR mark eq <18>] [store <205> in OUTCOME] [endif] [goto CHECK_OUT] ---------------------------------------------------------------------------- >HELP_RT_CP< [window 3 size 21 rows 80 columns] Perhaps you can help me. I would like to speak to a member of this household who usually lives there, is at least 16 years old, and is knowledgeable about the characteristics of the house you live in. IF APPROPRIATE: Would you or someone else there now qualify? (1) Yes (2) No @ [@] <1> [goto GENINTRO] <2> [goto APNTMT] ----------------------------------------------------------------------------- >PV_CB< We are taking a survey of housing in the United States. I need to make a personal visit to complete the interview. What day and time would be convenient for you? PRESS (P) TO PROCEED TO APPOINTMENT SCREEN @ [@]

[goto APNTMT] ----------------------------------------------------------------------------- >GENINTRO< [IF mark lt <7>] [store <7> in mark] [ENDIF] [#] We are taking a survey of housing in the United States. I have some questions I would like to ask you. Did your household receive our letter? FR NOTE o Identify yourself - if personal, show I.D. o If household did not receive the letter, provide a copy and allow time to read. ENTER (P) TO PROCEED @ [@]

[goto INTRO_B] ------------------------------------------------------------------------------ >INTRO_PT< [window 3 size 11 rows 80 columns] [display T_INTROPT window 4] [store <> in temp2] [store <> in temp3] [store <> in temp4] [# [IF mark eq <16>] [store in temp2] [Store in temp3] [Store in temp4] [ENDIF] [IF mark eq <17>] [store in temp2] [Store in temp3] [Store in temp4] [ENDIF] [IF mark eq <18>] [store in temp2] [Store in temp3] [Store in temp4] [ENDIF] I'm contacting this home to complete the American Housing Survey! [fill temp2] [fill temp3] [fill temp4] Enter (P) to PROCEED @ [@]

------------------------------------------------------------------------------ >INTRO_B< [window 3 size 21 rows 80 columns] [store <> in TEMP2] [if MARK eq <16> or MARK eq <17> or MARK eq <18>] [store in TEMP2] [else] [store in TEMP2] [endif] [r](H)[n] ([fill TEMP2] READY TO COMPLETE THE INTERVIEW?) [if OUTCOME eq <205> and (MARK eq <16> or MARK eq <17> or MARK eq <18>)] (1) Inconvenient time. Callback needed. (0) Other outcome OR problem interviewing respondent. [else] (1) Inconvenient time. Callback needed. (2) Reluctant Respondent - hold for refusal followup (3) Vacant (4) Noninterview (0) Other outcome OR problem interviewing respondent. (W) Wrong address (wrong case selected) ***ENTER (3) TO COMPLETE A VACANT INTERVIEW*** ***ENTER (4) TO COMPLETE A NONINTERVIEW*** [endif] ENTER (P) TO PROCEED WITH A REGULAR/OCCUPIED INTERVIEW @ [@]

[missing] [goto @2] <1> [goto APNTMT] <2> [goto @5] <3> [goto @3] <4> [goto @4] <0,W> [goto @1] [etc ] [@1] [store <202> in OUTCOME] [if MARK eq <14>] [store <204> in OUTCOME] [endif] [if MARK eq <16> OR mark eq <17> OR mark eq <18>] [store <205> in OUTCOME] [endif] [goto EXITHANK_CP] [@2] [store <1> in ISTATUS] [if mark eq <8> and outcome eq <202> and totspawn gt <3>] [goto VERADD] [endif] [If fardex gt <3> goto FRCK5] [# ALREADY ASKED ADDRESS QUESTIONS ] [goto VERADD] [@3] [store <3> in ISTATUS] [goto VERADD] [@4] [store <4> in ISTATUS] [goto NONTYPE] [@5] [store <202> in outcome] [if MARK eq <14>] [store <204> in OUTCOME] [endif] [if MARK eq <16> OR mark eq <17> OR mark eq <18>] [store <205> in OUTCOME] [endif] [goto CHECK_OUT] ------------------------------------------------------------------------------- >VERADD< [store <3> in wheredex] [IF wheredex gt fardex] [store wheredex in fardex] [ENDIF] [store CM_ADDRCHG in ADDRCHG] [Store in temp2] [If ISTATUS eq <3>] [store in temp2] [ENDIF] I need to verify that [fill temp2] address is: [fill HNO] [fill HNOSUF] [fill STRNAME] [fill UNITDES] [fill PO], [fill ST] [fill ZIP5:0] (1) SAME address (2) Not same address - Have not moved. (3) Not same address - Have moved! @ [@] <1> [goto @1] <2> [goto NEWADD] <3> [goto EXITHANK_CP] [@1] [If INTRO_B eq <4> goto FRCK5] [goto MAILADD] ------------------------------------------------------------------------------- >NEWADD< [store <1> in ADDRCHG] [r](H)[n] ENTER CHANGE OR (S) FOR SAME OLD ADDRESS: [fill HNO:0] [fill HNOSUF:0] [fill STRNAME] [fill UNITDES] NEW ADDRESS: HNO: @ST1 HNOSUF: @ST2 STRNAME: @ST3 UNITDES: @ST4 OLD CITY: [fill PO] @CT OLD STATE: [fill ST] (H) Help @ST OLD ZIP: [fill ZIP5:0]-[fill ZIP4] @ZP1 @ZP2 [@ST1] [allow 10] [@ST2] [optional] [allow 3] [@ST3] [allow 33] [@ST4] [optional] [allow 20] [@CT] [allow 22] [@ST] [etc ] [@ZP1] <00000-99999> [goto @a] [@ZP2] [optional] <0000-9999> [goto @a] [@a] [goto newadd_st] ------------------------------------------------------------------------------- >NEWADD_ST< [IF NEWADD@ST1 isnt ] [store NEWADD@ST1 in HNO] [ENDIF] [IF NEWADD@ST2 isnt ] [store NEWADD@ST2 in HNOSUF] [ENDIF] [IF NEWADD@ST3 isnt ] [store NEWADD@ST3 in STRNAME] [ENDIF] [IF NEWADD@ST4 isnt ] [store NEWADD@ST4 in UNITDES] [ENDIF] [IF NEWADD@CT isnt ] [store NEWADD@CT in PO] [ENDIF] [IF NEWADD@ST isnt ] [store NEWADD@ST in ST] [ENDIF] [IF NEWADD@ZP1 isnt ] [store NEWADD@ZP1 in ZIP5] [ENDIF] [IF NEWADD@ZP2 isnt ] [store NEWADD@ZP2 in ZIP4] [ENDIF] ------------------------------------------------------------------------------- >MAILADD< [Store in temp2] [If ISTATUS eq <3>] [store in temp2] [ENDIF] Is this [fill temp2] mailing address? [fill HNO] [fill HNOSUF] [fill STRNAME] [fill UNITDES] [fill PO], [fill ST] [fill ZIP5:0] (1) Yes (2) No @ [@] <1> [goto @1] <2> [goto @2] [@1] [store <1> in MFLAG] [goto FRCK5] [@2] [store <2> in MFLAG] ------------------------------------------------------------------------------- >NEWMAIL< [r](H)[n] What is your new mailing address? ENTER CHANGE OR (S) FOR SAME OLD ADDRESS: [fill HNO] [fill HNOSUF] [fill STRNAME] [fill UNITDES] NEW ADDRESS: HNO: @ST1 HNOSUF: @ST2 STRNAME: @ST3 UNITDES: @ST4 OLD CITY: [fill PO] @CT OLD STATE: [fill ST] (H) Help @ST OLD ZIP: [fill ZIP5:0]-[fill ZIP4:0] @ZP1 @ZP2 [@ST1] [allow 10] [@ST2] [allow 3] [optional] [@ST3] [allow 33] [@ST4] [optional] [allow 20] [@CT] [allow 22] [@ST] [etc ] [@ZP1] <00000-99999> [@ZP2] <0000-9999> [optional] ------------------------------------------------------------------------------- >MAILADDR_ST< [IF NEWMAIL@ST1 isnt ] [store NEWMAIL@ST1 in MHNO] [endif] [IF NEWMAIL@ST2 isnt ] [store NEWMAIL@ST2 in MHNOSUF] [endif] [IF NEWMAIL@ST3 isnt ] [store NEWMAIL@ST3 in MSTRNAME] [ENDIF] [IF NEWMAIL@ST4 isnt ] [store NEWMAIL@ST4 in MUNITDES] [ENDIF] [IF NEWMAIL@CT isnt ] [store NEWMAIL@CT in MPO] [ENDIF] [IF NEWMAIL@ST isnt ] [store NEWMAIL@ST in MST] [ENDIF] [IF NEWMAIL@ZP1 isnt ] [store NEWMAIL@ZP1 in MZIP5] [ENDIF] [IF NEWMAIL@ZP2 isnt ] [store NEWMAIL@ZP2 in MZIP4] [ENDIF] [goto FRCK5] ------------------------------------------------------------------------------- >NONTYPE< What type of Noninterview do you have? (1) Type A (2) Type B (3) Type C @ [@] <1-3> ---------------------------------------------------------------------- >FRCK5< [store <1> in FRONT_CMP] [store <4> in wheredex] [If wheredex gt fardex] [store wheredex in fardex] [endif] [if mark eq <8> and outcome eq <202> and totspawn gt <3>] [goto updtck1] [endif] [If mark ge <8> goto INTRO_C] [return] [open fin] [If NONTYPE onpath goto HU_BEGIN] [goto UPDTCK1] --------------------------------------------------------------------- >EXITHANK_CP< [store <1> in FRONT_CMP] Thank you for your time. END INTERVIEW. ENTER (P) TO PROCEED. @ [@]

[goto @1] [@1] [store <202> in outcome] [if MARK eq <14>] [store <204> in OUTCOME] [endif] [if MARK eq <16> OR mark eq <17> OR mark eq <18>] [store <205> in OUTCOME] [endif] [goto CHECK_OUT] --------------------------------------------------------------------- >INTRO_C< [store <1> in FRONT_CMP] [open fin] [if MARK eq <16> OR mark eq <17> OR mark eq <18>] [return] [goto mck1] [else] [return] [gotoloq] [endif] --------------------------------------------------------------------- >INTRO_BH< [reference] CLARIFICATION OF ANSWER CHOICES (2) Reluctant Respondent - Refusal Followup - The respondent refuses to start or complete the AHS interview. Efforts to convince otherwise exhausted. Report to the Regional Office for support and advice. (3) Vacant House, Apartment or Manufactured/Mobile home - The sample unit is habitable but not occupied at the time of the AHS interview. Examples include a home/condominium for sale where the owner has already moved out, a seasonal trailer closed-up for the winter, a deteriorating home with the inside protected from the elements and the roof, walls, doors and windows in-place. The AHS conducts a special interview for a vacancy. (4) Noninterview - Impossible to conduct an AHS interview for one of the three reasons below. Type A Noninterview - An occupied sample unit whose residents are unavailable or refuse to participate. Type B Noninterview - A sample unit currently uninhabitable (business usage, construction, deterioration) but capable of being used as a living quarters in the future. Type C Noninterview - A sample unit destroyed and incapable of ever being lived-in again because of disaster or severe deterioration. (0) Other Outcome/Problem Interviewing Respondent - An event not accounted for in the answer choices for this screen that prevents the start or completion of the interview. [bold]PRESS ENTER TO CONTINUE INTERVIEW @ [normal] [@] [nodata] [return from help] ---------------------------------------------------------------------- >H_CNTRY_REF1< [reference] [# Used for SHIFT-F3] (200) Afghanistan (301) Canada (139) England (209) Hong Kong (375) Argentina (206) Cambodia (417) Ethiopia (117) Hungary (185) Armenia (378) Chile (507) Figi (211) Indonesia (102) Austria (311) Costa Rica (108) Finland (210) India (501) Australia (207) China (109) France (212) Iran (130) Azores (379) Colombia (110) Germany (213) Iraq (333) Bahamas (337) Cuba (421) Ghana (119) Ireland/Eire (202) Bangladesh (155) Czech Republic (138) Great Britain (214) Israel (334) Barbados (105) Czechoslovakia (116) Greece (120) Italy (310) Belize (106) Denmark (340) Grenada (343) Jamaica (103) Belgium (338) Dominica (313) Guatemala (215) Japan (300) Bermuda (339) Dominican Rep. (383) Guyana (216) Jordan (376) Bolivia (380) Ecuador (342) Haiti (377) Brazil (415) Egypt (126) Holland (205) Burma (312) El Salvador (314) Honduras [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata][return from help] --------------------------------------------------------------------------- >H_CNTRY_REF2< [reference] [# Used for SHIFT-F4] (427) Kenya (127) Norway (449) South Africa (242) Vietnam (218) Korea/S. Korea(229) Pakistan (134) Spain (147) Yugoslavia (221) Laos (253) Palestine (136) Sweden (353) Caribbean (183) Latvia (317) Panama (137) Switzerland (318) Central America (222) Lebanon (385) Peru (237) Syria (389) South America (184) Lithuania (231) Philippines (238) Taiwan (304) North America (224) Malaysia (128) Poland (239) Thailand (148) Europe (315) Mexico (129) Portugal (351) Trinidad/Tobago (252) Middle East (436) Morocco (132) Romania (240) Turkey (468) North Africa (126) Netherlands (192) Russia (195) Ukraine (462) Other Africa (514) New Zealand (233) Saudi Arabia (387) Uruguay (245) Asia (316) Nicaragua (140) Scotland (180) USSR (527) Pacific Islands (440) Nigeria (234) Singapore (388) Venezuela (555) Elsewhere (142) Northern Ireland (156) Slovakia/Slovak Rep. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] --------------------------------------------------------------------------- Date: 05/2/01 Survey: AMERICAN HOUSING SURVEY - Metropolitan Module: UPDT (Listing and Updating) Programmer/Author: Judy Hodges Christine Nicholson ---------------------------------------------------------------------- ** TEMPORARY VARIABLES ** ---------------------------------------------------------------------- >UPDT_BEGIN< [section UPDT] [start timer][no erase] ---------------------------------------------------------------------- >UPDTck1< [if INCSAM eq <1>] [goto UPDT_END] [endif] [if INCSAM eq <0>] [if I_STYPE eq <3> or I_STYPE eq <5>] [goto UPDT1_LISCH] [else] [goto UPDT_END] [endif][endif] ---------------------------------------------------------------------- >UPDT1_LISCH< [missing ] [store <> in temp3] [store INTMON in T_INTMON] [store INTYR in T_INTYR] [store T_INTMON in index] [make temp3 from MONTHTAB(index) < > T_INTYR] ** Mark or Ask ** We are interested in any changes that may have taken place in the apartment since [fill temp3]. Has any construction or other changes been done to this apartment that has altered the size of the apartment in the past 2 years, that is since [fill temp3]? (1) Yes (2) No @ [@] <1> [goto UPDTck2] <2,D,R> [goto UPDT_END] ---------------------------------------------------------------------- >UPDTck2< [If UPDT1_LISCH eq <1> and UPDT1_LISCH onpath and START_CP eq and START_CP onpath] AFTER COMPLETING THIS INTERVIEW, YOU MUST MAKE A PERSONAL VISIT TO UPDATE LISTING. PRESS (P) TO CONTINUE. [endif] [If UPDT1_LISCH eq <1> and UPDT1_LISCH onpath and START_CP eq

and START_CP onpath] AFTER COMPLETING THIS INTERVIEW, DETERMINE IF YOU NEED TO UPDATE LISTING. PRESS ENTER TO CONTINUE. [endif] @ PRESS (P) TO CONTINUE [@]

---------------------------------------------------------------------- >UPDT2_APTSP< [missing ] [store <> in temp3] [if ISTATUS eq <1> or ISTATUS eq <2>] [store in temp3] [else] [store in temp3] [endif] ** Mark or Ask ** Did [fill temp3] apartment split so there are now more apartments in the same space? (1) Yes (2) No @ [@] <1> [goto UPDT_END] <2,D,R> [goto UPDT3_APTCM] ---------------------------------------------------------------------- >UPDT3_APTCM< [missing ] [store <> in temp3] [store <> in temp4] [store <> in temp5] [if ISTATUS eq <1> or ISTATUS eq <2>] [store in temp3] [store in temp4] [store in temp5] [else] [store in temp3] [store in temp4] [store in temp5] [endif] ** Mark or Ask ** Did [fill temp3] apartment combine with another apartment so [Fill temp4] now [fill temp5] more space? (1) Yes (2) No @ [@] <1> [goto UPDT_END] <2,D,R> [goto UPDT4_APTAD] ---------------------------------------------------------------------- >UPDT4_APTAD< [missing ] [store <> in temp3] [if ISTATUS eq <1> or ISTATUS eq <2>] [store in temp3] [else] [store in temp3] [endif] ** Mark or Ask ** Was space added to [fill temp3] apartment by building an addition or converting nonresidential areas of the building? (1) Yes (2) No @ [@] <1> [goto UPDT_END] <2,D,R> [goto UPDT5_APTCH] ---------------------------------------------------------------------- >UPDT5_APTCH< [missing ] Describe the type of change that occurred. (1) Overflow manufactured/mobile home moved in or moved out (2) Other, specify @ [@] <1,D,R> [goto UPDT_END] <2> [specify] ---------------------------------------------------------------------- >UPDT_END< [stop timer][no erase] [record timer in UPDT_TME] [goto HU_BEGIN] ---------------------------------------------------------------------- Revisions: 05/2/01 Survey: AMERICAN HOUSING SURVEY - National 2001 Module: Housing Units (HU) Programers: Tazreen Chowdhury --------------------------------------------------------------------- >HU_BEGIN< [section HU] [start timer][no erase] ----------------------------------------------------------------------- >SAVE_ICASEID< [allow 8] >SAVE_CASEID< [allow 8] >SAVE_ICTRLNUM<[allow 24] >SAVE_CTRLNUM< [allow 24] >SAVE_MARK< [allow int 2] [equiv save_CTRLNUM position 25] >SAVE_OUTCOME< [allow int 3] >SAVE_ACTION< [allow int 2] >SAVE_LOQ< [allow 16] >SAVE_POS< [allow int 3] >SAVE_NEWUNIT< [allow 1] >XTRHNO< [allow 10] >XTRHNOSUF< [allow 3] >XTRSTRNAME< [allow 33] >XTRUNITDES< [allow 20] >XTRPO< [allow 22] >XTRST< [allow 2] >XTRZIP5< [allow 5] >XTRZIP4< [allow 4] >MHGONE< [allow 1] --------------------------------------------------------------------- >HUck1< [IF mark lt <8>] [store <8> in mark] [endif] [if NONTYPE eq <1> or NONTYPE eq <2> goto HU1_HTYPE] [if NONTYPE eq <3> goto HUck11] --------------------------------------------------------------------- >HU1_HTYPE< [store <> in HTYPE] [store <> in HU1_HTYPE] [store <> in temp] [if HNO eq <> and HNOSUF eq <> and STRNAME eq <> and UNITDES eq <>] [store in temp] [endif] [# [if mark lt <8>] [store <8> in mark] [endif] *** MARK or ASK *** Is [fill temp] [fill HNO] [fill HNOSUF] [fill STRNAME] [fill UNITDES] a house, an apartment, a manufactured/mobile home, or some other type of residence? [bold]HOUSING UNIT[n] (1) House (2) Apartment, flat (3) Manufactured/mobile home with NO permanent room added (4) Manufactured/mobile home WITH one or more permanent rooms added (5) HU in nontransient hotel, motel, etc (6) HU, permanent in transient hotel, motel (7) HU in rooming house or boarding house (8) Boat or recreational vehicle (9) Tent, cave, or railroad car (10) HU not specified above, specify [bold]OTHER UNIT[n] (11) Unoccupied site for manufactured/mobile home, trailer, or tent (12) Group Quarters @ [@] <1-9,11,12>[goto @1] <10> [specify] [store in HTYPEFILL] [store <10> in HTYPE] [@1] [if HU1_HTYPE eq <1>] [store in HTYPEFILL] [store <1> in HTYPE] [endif] [if HU1_HTYPE eq <2>] [store in HTYPEFILL] [store <2> in HTYPE] [endif] [if HU1_HTYPE eq <3> or HU1_HTYPE eq <4>] [store in HTYPEFILL] [endif] [if HU1_HTYPE ge <5> and HU1_HTYPE le <12>] [store in HTYPEFILL] [endif] [if HU1_HTYPE eq <3>] [store <3> in HTYPE] [endif] [if HU1_HTYPE eq <4>] [store <4> in HTYPE] [endif] [if HU1_HTYPE eq <5>] [store <5> in HTYPE] [endif] [if HU1_HTYPE eq <6>] [store <6> in HTYPE] [endif] [if HU1_HTYPE eq <7>] [store <7> in HTYPE] [endif] [if HU1_HTYPE eq <8>] [store <8> in HTYPE] [endif] [if HU1_HTYPE eq <9>] [store <9> in HTYPE] [endif] [if HU1_HTYPE eq <11>] [store <11> in HTYPE] [endif] [if HU1_HTYPE eq <12>] [store <12> in HTYPE] [endif] [goto HUck1a] ------------------------------------------------------------------------------ >HUck1a< [if HU1a_PROB ne <>] [store <> in NONTYPE] [endif] [if (ISTATUS eq <1> or ISTATUS eq <2> or ISTATUS eq <3>) and HTYPE eq <11>] [goto HU1a_PROB] [else] [if (ISTATUS eq <1> or ISTATUS eq <2> or ISTATUS eq <3>) and HTYPE eq <12>] [goto HU1a_PROB] [else] [if ISTATUS eq <2> or ISTATUS eq <3>] [goto HUck2] [else] [if ISTATUS eq <4>] [goto HUck10] [else] [if ISTATUS eq <1> and (FRAME eq <1> or FRAME eq <2> or FRAME eq <4> or FRAME eq <5>)] [goto HU1b_LIVEAT] [else] [if ISTATUS eq <1>] [if {int}AHSNFRM eq <1> or {int}AHSNFRM eq <3> or {int}AHSNFRM eq <4> or {int}AHSNFRM eq <5> or {int}AHSNFRM eq <6> or {int}AHSNFRM eq <7> or {int}AHSNFRM eq <8> or {int}AHSNFRM eq <9>] [goto HU1b_LIVEAT] [else] [goto HUCK2] [endif] [endif] [endif][endif][endif][endif] [endif] ---------------------------------------------------------------------- >HU1a_PROB< An unoccupied site for a manufactured/mobile home, trailer, or tent along with a group quarters are not eligible for an interview. These types of housing units should be classified as TYPE B Noninterviews. If you made a mistake classifying the housing unit, enter M for mistake. (M) Mistake, correct HU1_HTYPE (P) Proceed with interview @ [@][etc ]

[goto HUck10] ---------------------------------------------------------------------- >HU1b_LIVEAT< [missing ] Do all the persons in this household live or eat together? (1) Yes (2) No @ [@]<1,D,R> [goto HUck2] <2> [goto hu1bmes] ------------------------------------------------------------------------- >HU1bMES< AFTER THE STRUCTURE TYPE IS DETERMINED, YOU WILL BE ASKED QUESTIONS ABOUT EXTRA UNITS. PRESS (P) TO CONTINUE THE INTERVIEW @ [@]

--------------------------------------------------------------------- >HUck2< [if INCSAM eq <0> and ({int}AHSNFRM eq <7> or FRAME eq <1>) and (HTYPE eq <1> or HTYPE eq <2> or HTYPE eq <3> or HTYPE eq <4>)] [goto HUCK3] [else] [if INCSAM eq <1>] [if FRAME eq <1> and PRMITSTA eq

and (HTYPE eq <1> or HTYPE eq <2>)] [goto HU2_BACEN] [endif][endif][endif] [# [if INCSAM eq <1>] [if FRAME eq <1> or {int}AHSNFRM eq <7>] [goto HUCK3] [endif][endif] [goto HUck4] --------------------------------------------------------------------- >HU2_BACEN< [missing ] Was this structure built before April 1, 1990 or after? (1) Before April 1, 1990 (2) After April 1, 1990 @ [@] <1,D,R> [goto HUCK3] <2> [goto HU2DIS] --------------------------------------------------------------------- >HU2DIS< Do not interview, at the next screen, mark this unit a Type C-37, Not Classified Above. PRESS (P) TO CONTINUE THE INTERVIEW @ [@]

[goto NOINT13_NOINTC] --------------------------------------------------------------------- >HUck3< [if HTYPE eq <1> or HTYPE eq <2> or HTYPE eq <3> or HTYPE eq <4>] [if MULTUNIT eq <0>] [goto HU3_OTBUP] [else] [goto HUck4] [endif][endif] --------------------------------------------------------------------- >HU3_OTBUP< [missing ] Is there any other building on the property for people to live in--either occupied or vacant? (1) Yes (2) No @ [@] <1> [goto HU3ckmes] <2,D,R> [goto HUck4] ---------------------------------------------------------------------- >HU3ckmes< [if HU1b_LIVEAT eq <2> goto HUck4] [if HU3_OTBUP eq <1> goto HU3mes] [goto HUck4] ---------------------------------------------------------------------- >HU3mes< AFTER THE STRUCTURE TYPE IS DETERMINED, YOU WILL BE ASKED QUESTIONS ABOUT EXTRA UNITS. PRESS (P) TO CONTINUE THE INTERVIEW @ [@]

---------------------------------------------------------------------- >HUck4< [if INCSAM eq <1> or I_ISTATUS eq <2> or I_ISTATUS eq <3> or I_ISTATUS eq <4> goto HU4_ISTYPEQ] [if I_STYPE eq <1> and HTYPE eq <1>] [store <2> in hu4_istypeq] [goto HUck5a] [else] [if I_STYPE eq <2> and HTYPE eq <1>] [store <3> in hu4_istypeq] [goto HU6a_SHARAT] [else] [if I_STYPE eq <3> and HTYPE eq <2>] [store <4> in hu4_istypeq] [goto huck5b] [else] [if I_STYPE eq <4> and (htype eq <3> or htype eq <4>)] [store <1> in hu4_istypeq] [goto huck5a] [else] [if I_STYPE eq <5> and (HTYPE eq <3> or HTYPE eq <4>)] [store <4> in hu4_istypeq] [goto HUck5b] [endif][endif][endif][endif][endif] [goto hu4_istypeq] --------------------------------------------------------------------- >HU4_ISTYPEQ< [missing ] [store <> in temp] [store <> in temp1] [if CAITYPE eq <0>] [store in temp] [ELSE] [store <> in temp] [endif] [if ISTATUS eq <1> or ISTATUS eq <2>] [store in temp1] [else] [if ISTATUS eq <3>] [store in temp1] [endif][endif] [r](H)[n] [bold][fill temp][normal] [fill temp1] living quarters in a (READ ALL CATEGORIES)- (1) One-unit manufactured/mobile home? (2) One-unit building, detached from any other building? (3) One-unit building, attached to one or more buildings? (4) Building or manufactured/mobile home with two or more apartments? @ [@] <1> [goto @1] <2> [goto @2] <3> [goto @3] <4> [goto @4] [etc ] [@1] [if HU4_ISTYPEQ eq <1> and (HTYPE eq <1> or HTYPE eq <2> or htype eq <5> or htype eq <6> or htype eq <7>)] [goto HU4prPP] [else] [goto HUCK5a] [endif] [@2] [if HU4_ISTYPEQ eq <2> and HTYPE ne <1> and HTYPE ne <8> and htype ne <9> and HTYPE ne <10>] [goto HU4prPP] [else] [goto HUCK5a] [endif] [@3] [if HU4_ISTYPEQ eq <3> and (HTYPE ne <1> and HTYPE ne <2>) and htype ne <10>] [goto HU4prPP] [else] [store <3> in ISTYPE] [goto HU6a_SHARAT] [endif] [@4] [if HU4_ISTYPEQ eq <4> and HTYPE eq <1>] [goto HU4prPP] [else] [store <4> in ISTYPE] [goto HUck5b] [endif] --------------------------------------------------------------------------------------------------- >HU4prPP< [missing ] [if HU4_ISTYPEQ eq <1>] [store in HTYPEFILL2] [endif] [if HU4_ISTYPEQ eq <2>] [store in HTYPEFILL2] [endif] [IF HU4_ISTYPEQ eq <3>] [store in HTYPEFILL2] [endif] [IF HU4_ISTYPEQ eq <4>] [store in HTYPEFILL2] [endif] [if HTYPE eq <1>][store in HTYPEFILL3] [else] [if HTYPE eq <2>][store in HTYPEFILL3] [else] [if HTYPE eq <3> or HTYPE eq <4>][store in HTYPEFILL3] [else] [if HTYPE ge <5> and HTYPE le <12>][store in HTYPEFILL3] [endif][endif][endif][endif] ***POSSIBLE PROBLEM*** YOU HAVE JUST CLASSIFIED THIS UNIT AS A [fill HTYPEFILL2]. EARLIER YOU CLASSIFIED IT AS [fill HTYPEFILL3] IF THIS WAS A MISTAKE, PLEASE BACK UP AND CORRECT AN EARLIER ENTRY. IS THIS A [fill HTYPEFILL2]? (1) Yes (correct HU1_HTYPE) (2) No (correct HU4_ISTYPEQ) @ [@] <1> [etc ][#etc ] <2> [etc ] [goto HU4PrCK] --------------------------------------------------------------------- >HU4PrCK< [if hu4_istypeq eq <1> or hu4_istypeq eq <2>] [goto huck5a] [else] [if hu4_istypeq eq <3>] [store hu4_istypeq in istype] [goto hu6a_sharat] [else] [if hu4_istypeq eq <4>] [store hu4_istypeq in istype] [goto huck5b] [endif] [endif][endif] --------------------------------------------------------------------- >HUck5a< [if htype gt <4> goto hu5ck] [if htype ge <1> and htype le <4>] [if multunit eq <0>] [if FRAME eq <1> or frame eq <2> or frame eq <4> or frame eq <5>] [goto HU5A_OTHLQ] [else] [if {int}AHSNFRM eq <1> or ({int}AHSNFRM ge <3> and {int}AHSNFRM le <9>)] [goto HU5a_OTHLQ] [else] [goto hu5ck] [endif] [endif][endif][endif] --------------------------------------------------------------------- >HU5a_OTHLQ< [missing ] [store <> in temp] [store <> in temp1] [store <> in temp2] [if ISTATUS eq <1>] [store in temp] [store in temp1] [else] [if ISTATUS eq <2>] [store in temp] [store in temp1] [else] [store in temp] [store in temp1] [endif] [endif] [if htype eq <3> or htype eq <4>] [store in temp2] [else] [store in temp2] [endif] Are there any occupied or vacant apartments besides [fill temp] in [fill temp1] [fill temp2]? (1) Yes (2) No @ [@] <1,2,D,R> [goto hu5ck] --------------------------------------------------------------------- >HU5ck< [if HU4_ISTYPEQ eq <1> or (HTYPE eq <3> or htype eq <4>) and I_STYPE eq <4>] [if (hu1b_liveat eq <1> or hu1b_liveat eq or hu1b_liveat eq ) and HU5A_OTHLQ eq <1>] [store <1> in ISTYPE] [goto TABX_BEG] [else] [if HU4_ISTYPEQ eq <1> or (HTYPE eq <3> or htype eq <4>) and I_STYPE eq <4>] [if (hu1b_liveat eq <1> or hu1b_liveat eq or hu1b_liveat eq ) and hu3_otbup eq <1>] [store <1> in ISTYPE] [goto TABX_BEG] [else] [if HU4_ISTYPEQ eq <1> or (HTYPE eq <3> or htype eq <4>) and I_STYPE eq <4>] [if hu1b_liveat eq <1> or hu1b_liveat eq or hu1b_liveat eq or hu1b_liveat eq <>] [store <1> in istype] [goto hu_instr] [else] [if HU4_ISTYPEQ eq <1> or (HTYPE eq <3> or htype eq <4>) and I_STYPE eq <4>] [if hu1b_liveat eq <2>] [store <1> in istype] [goto TABX_BEG] [endif] [endif] [endif] [endif] [endif][endif] [endif] [endif] [# [if HU4_ISTYPEQ eq <2> or (HTYPE eq <1> and I_STYPE eq <1>)] [if (hu1b_liveat eq <1> or hu1b_liveat eq or hu1b_liveat eq ) and HU5A_OTHLQ eq <1>] [store <2> in ISTYPE] [goto TABX_BEG] [else] [if HU4_ISTYPEQ eq <2> or (HTYPE eq <1> and I_STYPE eq <1>)] [if (hu1b_liveat eq <1> or hu1b_liveat eq or hu1b_liveat eq ) and hu3_otbup eq <1>] [store <2> in ISTYPE] [goto TABX_BEG] [else] [if HU4_ISTYPEQ eq <2> or (HTYPE eq <1> and I_STYPE eq <1>)] [if hu1b_liveat eq <1> or hu1b_liveat eq or hu1b_liveat eq or hu1b_liveat eq <>] [store <2> in istype] [goto hu_instr] [else] [if HU4_ISTYPEQ eq <2> or (HTYPE eq <1> and I_STYPE eq <1>)] [if hu1b_liveat eq <2>] [store <2> in istype] [goto TABX_BEG] [endif] [endif][endif] [endif] [endif][endif] [endif] [endif] [# [if hu4_istypeq ne <>] [store hu4_istypeq in istype] [endif] [if hu1b_liveat eq <2>] [goto TABX_BEG] [else] [if hu1b_liveat eq <1> or hu1b_liveat eq or hu1b_liveat eq ] [goto hu_instr] [else] [goto hu_instr] [endif][endif] ---------------------------------------------------------------------- >HUck5b< [if INCSAM eq <1> or I_ISTATUS eq <2> or I_ISTATUS eq <3> or I_ISTATUS eq <4>] [goto HU5b_NUNITS1] [else] [if INCSAM eq <0> and (I_NUNITS gt <1> and I_NUNITS le <999>)] [goto HU5bvr_NUMVR] [else] [goto HU5b_NUNITS1] [endif][endif] ______________________________________________________________________ >HU5bvr_NUMVR< [store <> in temp] [if htype eq <3> or htype eq <4>] [store in temp] [else] [store in temp] [endif] Last time we recorded [fill I_NUNITS] apartments in the [r](H)[n] [fill temp]. Is this number still correct? (1) Yes (2) No (D) Don't know-not sure @ [@] <1> <2> [goto HU5b_NUNITS1] [goto HU5bpr_NUNITS2] [missing][etc ] [if HU5bvr_NUMVR eq <1>] [store I_NUNITS in NUNITS] [store <4> in istype] [goto TABXCK] [endif] ______________________________________________________________________ >HU5b_NUNITS1< [missing ] [store <> in temp] [if htype eq <3> or htype eq <4>] [store in temp] [else] [store in temp] [endif] How many apartments are in the [fill temp]? [r](H)[n] (1-997) 1-997 apartments (998) 998 apartments or more @ [@] <1> [goto HU5bPP] <2-998,D,R>[goto @1] [etc ] [@1][store {int}HU5b_NUNITS1 in NUNITS] [store <4> in istype] [goto TABXCK] ---------------------------------------------------------------------- ---------------------------------------------------------------------- >HU5bPP< *** POSSIBLE PROBLEM *** THIS UNIT HAS BEEN CLASSIFIED AS A BUILDING WITH [U]2 OR MORE APARTMENTS.[N] PLEASE BACK UP TO HU4_ISTYPEQ AND MARK OR RE-ASK THE STRUCTURE TYPE. MAKE SURE THAT YOUR LISTING SHEET REFLECT ANY CHANGES THAT YOU MAKE. PRESS (P) TO RETURN TO HU4_ISTYPEQ @ [@]

[etc ] ______________________________________________________________________ >HU5bpr_NUNITS2< [missing ] Including both occupied and vacant units, what is your best guess, please? (1-997) 1-997 apartments (998) 998 apartments or more @ [@] <1> [goto @1] <2-998,D,R>[goto @2] [etc ] [@1] [store {int}HU5bpr_NUNITS2 in NUNITS] [goto HU5bprPP] [@2] [store {int}HU5bpr_NUNITS2 in NUNITS] [store <4> in ISTYPE] [goto TABXCK] ______________________________________________________________________ >HU5bprPP< *** POSSIBLE PROBLEM *** THIS UNIT HAS BEEN CLASSIFIED AS A BUILDING WITH [U]2 OR MORE APARTMENTS.[N] PLEASE BACK UP TO HU4_ISTYPEQ AND MARK OR RE-ASK THE STRUCTURE TYPE. MAKE SURE THAT YOUR LISTING SHEET REFLECT ANY CHANGES THAT YOU MAKE. PRESS (P) TO RETURN TO HU4_ISTYPEQ @ [@]

[etc ] ______________________________________________________________________ >HU6a_SHARAT< [missing ] [store <> in temp] [if ISTATUS eq <3>] [store in temp] [else] [store in temp] [endif] [r](H)[n] Does [fill temp] [fill HTYPEFILL] share an attic or basement with the [fill HTYPEFILL] next door? (1) Yes (2) No @ [@] <1> [goto HU6b_NUNITS3] <2,D,R> [goto HU6c_SHARFR] [etc ] ______________________________________________________________________ >HU6b_NUNITS3< [missing ] [store <> in temp] [store <> in temp1] [if ISTATUS eq <3>] [store in temp] [else] [store in temp] [endif] [# [if HTYPE eq <1>] [store in temp1] [else] [if HTYPE eq <2>] [store in temp1] [endif][endif] How many [fill temp1] including [fill temp] share the attic or basement? (1-997) 1-997 apartments (998) 998 apartments (If one, reask HU6a_SHARAT) @ [@] <1> [etc ] <2-998,D,R> [store {int}HU6b_NUNITS3 in NUNITS] [store <4> in ISTYPE] [goto TABXCK] -------------------------------------------------------------------- >HU6c_SHARFR< [missing ] [store <> in temp] [if ISTATUS eq <3>] [store in temp] [else] [store in temp] [endif] [r](H)[n] Does [fill temp] [fill HTYPEFILL] share a furnace or boiler with the [fill HTYPEFILL] next door? (1) Yes (2) No @ [@] <1> [goto HU6d_NUNITS4] <2,D,R> [goto @a] [etc ] [@a] [store <3> in istype] [goto TABXCK] --------------------------------------------------------------------- >HU6d_NUNITS4< [store <> in temp] [store <> in temp1] [if ISTATUS eq <3>] [store in temp] [else] [store in temp] [endif] [if HTYPE eq <1>] [store in temp1] [else] [store in temp1] [endif] How many [fill temp1] including [fill temp] share the furnace or boiler? (1-997) 1-997 apartments (998) 998 apartments (If one, reask HU6c_SHARFR) @ [@] <1> [etc ] <2-998> [goto @2] [@2] [store HU6d_NUNITS4 in NUNITS] [store <4> in istype] [goto TABXCK] --------------------------------------------------------------------- >TABXCK< [if HU1B_LIVEAT eq <2>] [goto TABX_BEG] [else] [if HU1B_LIVEAT eq <1> or HU1b_LIVEAT eq or HU1b_LIVEAT eq ] [goto HU_INSTR] [endif][endif] [goto hu_instr] ---------------------------------------------------------------------- >TABX_BEG< [if NEWUNIT eq or newunit eq goto HU_INSTR] ---------------------------------------------------------------------- >TABX_INTRO< *** WARNING *** YOU ARE ABOUT TO BEGIN ASKING QUESTIONS ABOUT ONE OR MORE ADDITIONAL LIVING ARRANGEMENTS AT THIS LOCATION TO DETERMINE IF THEY QUALIFY AS EXTRA UNITS!!! IF YOU HAVE ACCIDENTALLY REACHED THIS SCREEN, PRESS "F1" TO BACK UP TO THE PREVIOUS SCREEN AND CORRECT AN EARLIER ENTRY. TO BEGIN COLLECTING INFORMATION FOR ADDITIONAL LIVING ARRANGEMENTS AT THIS LOCATION, PRESS (P). @ [@]

---------------------------------------------------------------------- >TABXH1< FR INSTRUCTION: Check the listing sheet. Is the address of the additional living quarters already listed? (1) Yes (2) No @ [@] <1> <2> [goto TABXH2CK] ---------------------------------------------------------------------- >TABXH1CK< THIS IS NOT AN EXTRA UNIT. CONTINUE WITH THE INTERVIEW OF THIS UNIT. PRESS (P) TO CONTINUE. @ [@]

[goto HU_INSTR] ---------------------------------------------------------------------- >TABXH2CK< [roster create ADDRESS] ---------------------------------------------------------------------- >TABXH2< What is the exact address of this other living quarters? Current Address: [fill HNO] [fill HNOSUF] [fill STRNAME] [fill UNITDES] [fill PO], [fill ST] [fill ZIP5:0][if zip4 ne <>]-[fill ZIP4] [endif] [bold]FR: ENTER (S) FOR SAME[n] Address @HNO @HNOSUF @STRNAME Unit Designation @UNITDES City @PO State @ST Zip @ZIP5 @ZIP4 [@HNO] [allow 10] [@HNOSUF] [allow 3] [optional] [@STRNAME] [allow 33] [@UNITDES] [allow 20] [optional] [@PO] [allow 22] [@ST] [allow 2] [@ZIP5] <00000-99999> [goto TABXH3CK] [@ZIP4] <0000-9999> [input format enter left <- >] [optional] [optional] ------------------------------------------------------------------------------- >TABXH3CK< [if TABXH2@HNO is ] [store HNO in TABXH2@HNO] [endif] [if TABXH2@HNOSUF is ] [store HNOSUF in TABXH2@HNOSUF] [endif] [if TABXH2@STRNAME is ] [store STRNAME in TABXH2@STRNAME] [endif] [if TABXH2@UNITDES is ] [store UNITDES in TABXH2@UNITDES] [endif] [if TABXH2@PO is ] [store PO in TABXH2@PO] [endif] [if TABXH2@ST is ] [store ST in TABXH2@ST] [endif] [if TABXH2@ZIP5 is ] [store ZIP5 in TABXH2@ZIP5] [store ZIP4 in TABXH2@ZIP4] [endif] [if TABXH2@ZIP4 is ] [store ZIP4 in TABXH2@ZIP4] [endif] [add <1> to ADDCNT] [if ADDCNT ge <6> goto TABXH4ck] ---------------------------------------------------------------------- >TABXH3< Are there any other living quarters, either occupied or vacant, at this original address? [fill HNO] [fill HNOSUF] [fill STRNAME] [fill UNITDES] [fill PO], [fill ST] [fill ZIP5:0][if ZIP4 ne <>]- [fill ZIP4][endif] (1) Yes (2) No @ [@] <1> [goto @1] <2> [@1] [roster append ADDRESS] [goto TABXH2] ---------------------------------------------------------------------- >TABXH4ck< [roster close ADDRESS] ---------------------------------------------------------------------- >TABXHck4< [roster begin ADDRESS] [if SDESIG eq <1>] [if {int}ahsnfrm eq <07> goto TABXH4] [if {int}ahsnfrm eq <04> OR {int}ahsnfrm eq <05> or {int}AHSNFRM eq <09> goto TABXH8] [if MULTUNIT eq <0> AND ({int}ahsnfrm eq <01> OR {int}ahsnfrm eq <03> OR {int}ahsnfrm eq <06> OR {int}ahsnfrm eq <08>)] [goto TABXH11] [endif] [if MULTUNIT eq <1> and ({int}ahsnfrm eq <01> OR {int}ahsnfrm eq <03> OR {int}ahsnfrm eq <06> OR {int}ahsnfrm eq <08>)] [goto TABXH14] [endif] [endif] [if SDESIG eq <2>] [if FRAME eq <1> goto TABXH4] [if FRAME eq <4> goto TABXH8] [if MULTUNIT eq <0> AND (FRAME eq <2> or FRAME eq <3> or FRAME eq <5>)] [goto TABXH11] [endif] [if MULTUNIT eq <1> and (FRAME eq <2> or FRAME eq <3> or FRAME eq <5>)] [goto TABXH14] [endif] [endif] ---------------------------------------------------------------------- >TABXH4< [fill TABXH2@HNO] [fill TABXH2@HNOSUF] [fill TABXH2@STRNAME] [fill TABXH2@UNITDES] [fill TABXH2@PO], [fill TABXH2@ST] [fill TABXH2@ZIP5:0] [if TABXH2@ZIP4 ne <>] - [fill TABXH2@ZIP4:0] [endif] [bold]FR: Are the additional living quarters within the area segment boundaries?[normal] (1) Yes (2) No @ [@] <1> [goto TABXH5] <2> ---------------------------------------------------------------------- >TABX4CK< [store <0> in spawnind] THIS ADDITIONAL LIVING QUARTERS IS NOT CONSIDERED TO BE AN EXTRA UNIT. PRESS (P) TO CONTINUE. @ [@]

[goto TABXEND] ---------------------------------------------------------------------- >TABXH5< [fill TABXH2@HNO] [fill TABXH2@HNOSUF] [fill TABXH2@STRNAME] [fill TABXH2@UNITDES] [fill TABXH2@PO], [fill TABXH2@ST] [fill TABXH2@ZIP5:0] [if TABXH2@ZIP4 ne <>] -[fill TABXH2@ZIP4][endif] Are the additional living quarters in a group quarters? (1) Yes (2) No @ [@] <1> <2> [goto TABXH6] ---------------------------------------------------------------------- >TABX5CK< [store <0> in spawnind] THIS ADDITIONAL LIVING QUARTERS IS NOT CONSIDERED TO BE AN EXTRA UNIT. PRESS (P) TO CONTINUE. @ [@]

[goto TABXEND] ---------------------------------------------------------------------- >TABXH6< [fill TABXH2@HNO] [fill TABXH2@HNOSUF] [fill TABXH2@STRNAME] [fill TABXH2@UNITDES] [fill TABXH2@PO], [fill TABXH2@ST] [fill TABXH2@ZIP5:0] [if TABXH2@ZIP4 ne <>] - [fill TABXH2@ZIP4][endif] Do the occupants or intended occupants of the additional living quarters live and eat separately from all other persons on the property? (1) Yes (2) No @ [@] <1> <2> [goto TABXNEXT] ---------------------------------------------------------------------- >TABXH7< [fill TABXH2@HNO] [fill TABXH2@HNOSUF] [fill TABXH2@STRNAME] [fill TABXH2@UNITDES] [fill TABXH2@PO], [fill TABXH2@ST] [fill TABXH2@ZIP5:0] [if TABXH2@ZIP4 ne <>] - [fill TABXH2@ZIP4][endif] Do the occupants or intended occupants of the additional living quarters have direct access from the outside or through a common hall? (1) Yes (2) No @ [@] <1> [goto TABXSPAWN] <2> [goto TABXNEXT] ---------------------------------------------------------------------- >TABXH8< [fill TABXH2@HNO] [fill TABXH2@HNOSUF] [fill TABXH2@STRNAME] [fill TABXH2@UNITDES] [fill TABXH2@PO], [fill TABXH2@ST] [fill TABXH2@ZIP5:0] [if TABXH2@ZIP4 ne <>] - [fill TABXH2@ZIP4][endif] Are the additional living quarters within the same structure and within the same space (occurs if a housing unit has been split into two or more separate housing units) occupied by the original sample unit? (1) Yes (2) No @ [@] <1> <2> [goto TABXNEXT] ---------------------------------------------------------------------- >TABXH9< [fill TABXH2@HNO] [fill TABXH2@HNOSUF] [fill TABXH2@STRNAME] [fill TABXH2@UNITDES] [fill TABXH2@PO], [fill TABXH2@ST] [fill TABXH2@ZIP5:0] [if TABXH2@ZIP4 ne <>] - [fill TABXH2@ZIP4][endif] Do the occupants or intended occupants of the additional living quarters live and eat separately from all other persons on the property? (1) Yes (2) No @ [@] <1> <2> [goto TABXNEXT] ---------------------------------------------------------------------- >TABXH10< [fill TABXH2@HNO] [fill TABXH2@HNOSUF] [fill TABXH2@STRNAME] [fill TABXH2@UNITDES] [fill TABXH2@PO], [fill TABXH2@ST] [fill TABXH2@ZIP5:0] [if TABXH2@ZIP4 ne <>] - [fill TABXH2@ZIP4][endif] Do the occupants or intended occupants of the additional living quarters have direct access from the outside or through a common hall? (1) Yes (2) No @ [@] <1> [goto TABXSPAWN] <2> [goto TABXNEXT] ---------------------------------------------------------------------- >TABXH11< [fill TABXH2@HNO] [fill TABXH2@HNOSUF] [fill TABXH2@STRNAME] [fill TABXH2@UNITDES] [fill TABXH2@PO], [fill TABXH2@ST] [fill TABXH2@ZIP5:0] [if TABXH2@ZIP4 ne <>] - [fill TABXH2@ZIP4][endif] Are the additional living quarters within the basic address (house number and street name) of the original sample unit? (1) Yes (2) No @ [@] <1> <2> [goto TABXNEXT] ---------------------------------------------------------------------- >TABXH12< [fill TABXH2@HNO] [fill TABXH2@HNOSUF] [fill TABXH2@STRNAME] [fill TABXH2@UNITDES] [fill TABXH2@PO], [fill TABXH2@ST] [fill TABXH2@ZIP5:0] [if TABXH2@ZIP4 ne <>] - [fill TABXH2@ZIP4][endif] Do the occupants or intended occupants of the additional living quarters live and eat separately from all other persons on the property? (1) Yes (2) No @ [@] <1> <2> [goto TABXNEXT] ---------------------------------------------------------------------- >TABXH13< [fill TABXH2@HNO] [fill TABXH2@HNOSUF] [fill TABXH2@STRNAME] [fill TABXH2@UNITDES] [fill TABXH2@PO], [fill TABXH2@ST] [fill TABXH2@ZIP5:0] [if TABXH2@ZIP4 ne <>] - [fill TABXH2@ZIP4][endif] Do the occupants or intended occupants of the additional living quarters have direct access from the outside or through a common hall? (1) Yes (2) No @ [@] <1> [goto TABXSPAWN] <2> [goto TABXNEXT] ---------------------------------------------------------------------- >TABXH14< [fill TABXH2@HNO] [fill TABXH2@HNOSUF] [fill TABXH2@STRNAME] [fill TABXH2@UNITDES] [fill TABXH2@PO], [fill TABXH2@ST] [fill TABXH2@ZIP5:0] [if TABXH2@ZIP4 ne <>] - [fill TABXH2@ZIP4][endif] Are the additional living quarters within the same space (occurs if a housing unit has been split into two or more separate housing units) occupied by the original housing unit? (1) Yes (2) No @ [@] <1> [goto TABXH15] <2> ---------------------------------------------------------------------- >TABX14CK< [store <0> in spawnind] THIS ADDITIONAL LIVING QUARTERS IS NOT CONSIDERED TO BE AN EXTRA UNIT. PRESS (P) TO CONTINUE @ [@]

[goto TABXNEXT] ---------------------------------------------------------------------- >TABXH15< [fill TABXH2@HNO] [fill TABXH2@HNOSUF] [fill TABXH2@STRNAME] [fill TABXH2@UNITDES] [fill TABXH2@PO], [fill TABXH2@ST] [fill TABXH2@ZIP5:0] [if TABXH2@ZIP4 ne <>] - [fill TABXH2@ZIP4][endif] Are the additional living quarters the result of a split apartment? (1) Yes (2) No @ [@] <1> [goto TABXH16] <2> ---------------------------------------------------------------------- >TABX15CK< [store <0> in spawnind] THIS ADDITIONAL LIVING QUARTERS IS NOT CONSIDERED TO BE AN EXTRA UNIT. PRESS (P) TO CONTINUE @ [@]

[goto TABXNEXT] ---------------------------------------------------------------------- >TABXH16< [fill TABXH2@HNO] [fill TABXH2@HNOSUF] [fill TABXH2@STRNAME] [fill TABXH2@UNITDES] [fill TABXH2@PO], [fill TABXH2@ST] [fill TABXH2@ZIP5:0] [if TABXH2@ZIP4 ne <>] - [fill TABXH2@ZIP4][endif] Do the occupants or intended occupants of the additional living quarters live and eat separately from all other persons on the property? (1) Yes (2) No @ [@] <1> <2> [goto TABXNEXT] ---------------------------------------------------------------------- >TABXH17< [fill TABXH2@HNO] [fill TABXH2@HNOSUF] [fill TABXH2@STRNAME] [fill TABXH2@UNITDES] [fill TABXH2@PO], [fill TABXH2@ST] [fill TABXH2@ZIP5:0] [if TABXH2@ZIP4 ne <>] - [fill TABXH2@ZIP4][endif] Do the occupants or intended occupants of the additional living quarters have direct access from the outside or through a common hall? (1) Yes (2) No @ [@] <1> <2> [goto TABXNEXT] ---------------------------------------------------------------------- >TABXSPAWN< [store <1> in spawnind] [indirect] THIS OTHER LIVING QUARTERS IS AN EXTRA UNIT. DO NOT INCLUDE MEMBERS OF THIS UNIT AS MEMBERS OF THE CURRENT UNIT. THEY MUST BE INTERVIEWED SEPARATELY. ADD THE EXTRA UNIT TO YOUR LISTING SHEET ACCORDING TO THE INSTRUCTIONS IN YOUR LISTING AND COVERAGE MANUAL. PRESS (P) TO CONTINUE. @ [@]

[goto tabxend] ------------------------------------------------------------ >TABXNEXT< [store <0> in spawnind] THE OTHER LIVING QUARTERS IS NOT CONSIDERED TO BE AN EXTRA UNIT. INCLUDE THE PERSONS WHO OCCUPY THAT LIVING ARRANGEMENT AS MEMBERS OF THE ASSIGNED HOUSEHOLD. PRESS (P) TO CONTINUE. @ [@]

---------------------------------------------------------------------- >TABXEND< [roster end ADDRESS] [store <0> in totspawn] [roster begin ADDRESS] [if spawnind eq <1>] [add <1> to totspawn] [endif] [roster end ADDRESS] [if totspawn gt <3> goto CALLRO] -------------------------------------------------------------------- >SPAWN< [store <0> in totspawn] [roster begin ADDRESS] >SPIN_ID< [allow 8] >SPAWNIND< [allow int 1] [if spawnind ne <1> goto TABXEND2] >FORMAT< [add <1> to TOTSPAWN] [store <> in temp2] [store CASEID in SAVE_ICASEID] [store CASEID in SAVE_CASEID] [store CTRLNUM in SAVE_ICTRLNUM] [store CTRLNUM in SAVE_CTRLNUM] [store MARK in SAVE_MARK] [store OUTCOME in SAVE_OUTCOME] [#storing in temporary fields [store ACTION in SAVE_ACTION] [store LOQ in SAVE_LOQ] [store POS in SAVE_POS] [store I_NEWUNIT in SAVE_NEWUNIT] [if TOTSPAWN eq <1>] [#changing the variables [store in PRECASEID] [store in I_PRECASEID] [store in SERSUFIX] [store in I_SERSUFIX] [else] [if TOTSPAWN eq <2>] [store in I_PRECASEID] [store in PRECASEID] [store in I_SERSUFIX] [store in SERSUFIX] [else] [if TOTSPAWN eq <3>] [store in I_PRECASEID] [store in PRECASEID] [store in I_SERSUFIX] [store in SERSUFIX] [else] [goto TABXEND2] [endif] [endif] [endif] [store <> in MARK] [store <200> in OUTCOME] [store <00> in ACTION] [store <> in LOQ] [store <001> in POS] [store in I_NEWUNIT] [store TABXH2@HNO in XTRHNO] [store TABXH2@HNOSUF in XTRHNOSUF] [store TABXH2@STRNAME in XTRSTRNAME] [store TABXH2@PO in XTRPO] [store TABXH2@ST in XTRST] [store TABXH2@ZIP5 in XTRZIP5] [store TABXH2@ZIP4 in XTRZIP4] [store CASEID in SPIN_ID] [write archive CASEID ARCHNAME] [make OUTFILE from CASEID <.NEW>] [write OUTFILE from file NEWFILE] [store SAVE_CASEID in CASEID] [store SAVE_CASEID in CASEID] [store SAVE_ICTRLNUM in CTRLNUM] [store SAVE_CTRLNUM in CTRLNUM] [store SAVE_MARK in MARK] [store SAVE_OUTCOME in OUTCOME] [store SAVE_ACTION in ACTION] [#restoring parent case [store SAVE_LOQ in LOQ] [store SAVE_POS in POS] [store SAVE_NEWUNIT in I_NEWUNIT] [store

in NEWUNIT] ---------------------------------------------------------------------- >TABXEND2< [roster end ADDRESS] [goto HU_INSTR] ------------------------------------------------------------ >CALLRO< MORE THAN 3 EXTRA UNITS HAVE BEEN IDENTIFIED FOR THIS LISTED ADDRESS. 1. CALL YOUR OFFICE 2. TELL YOUR SUPERVISOR THAT YOU HAVE MORE THAN 3 EXTRA UNITS FOR THIS ADDRESS. 3. DO NOT CONDUCT ANY INTERVIEWS AT THIS ADDRESS UNTIL RECEIVING FURTHER INSTRUCTIONS. PRESS (P) TO CONTINUE @ [@]

[goto @1] [@1] [store <200> in OUTCOME] [store <01> in ACTION] [goto check_out] --------------------------------------------------------------------- >HU_INSTR< [if ISTYPE eq <1> and (NUNITS ge <2> or nunits eq or nunits eq )] [store <5> in STYPE] [goto HUck7] [else] [if ISTYPE eq <1>] [store <4> in STYPE] [store <1> in nunits] [goto HUck7] [else] [if ISTYPE eq <2> and (NUNITS ge <2> or nunits eq or nunits eq )] [store <3> in STYPE] [goto HUck7] [else] [if ISTYPE eq <2>] [store <1> in STYPE] [store <1> in nunits] [goto HUck7] [else] [if ISTYPE eq <3> and (HU6a_SHARAT eq <2> or HU6a_SHARAT eq or HU6a_SHARAT eq ) and HU6c_SHARFR eq <1> and (NUNITS ge <2> or nunits eq or nunits eq )] [store <3> in STYPE] [goto HUck7] [else] [if ISTYPE eq <3> and (HU6a_SHARAT eq <2> or HU6a_SHARAT eq or HU6a_SHARAT eq ) and (HU6c_SHARFR eq <2> or HU6c_SHARFR eq or HU6c_SHARFR eq )] [store <2> in STYPE] [store <1> in nunits] [goto HUck7] [else] [if ISTYPE eq <3> and (NUNITS ge <2> or nunits eq or nunits eq )] [store <3> in STYPE] [goto HUck7] [else] [if ISTYPE eq <4> and (NUNITS ge <2> or nunits eq or nunits eq ) and (HTYPE eq <3> or HTYPE eq <4>)] [store <5> in STYPE] [goto HUck7] [else] [if ISTYPE eq <4> and (NUNITS ge <2> or nunits eq or nunits eq ) and (HTYPE ne <3> and HTYPE ne <4>)] [store <3> in STYPE] [goto HUck7] [endif][endif][endif][endif] [endif][endif][endif][endif][endif] --------------------------------------------------------------------- >HUck7< [if INCSAM eq <0>] [goto HUCK8] [else] [if INCSAM eq <1>] [if SDESIG eq <1>] [if {int}AHSNFRM eq <04> or {int}AHSNFRM eq <05> or {int}AHSNFRM eq <09>] [store <3> in HU7_REUAD@1] [goto HUck8] [else] [goto HU7_REUAD] [endif] [else] [if SDESIG eq <2>] [store <11> in HU7_REUAD@1] [goto HUck8] [endif] [endif] [endif][endif] --------------------------------------------------------------------- >HU7_REUAD< [missing ] FR INSTRUCTION: Enter the reason this unit was created. (3) New Construction (4) Manufactured/mobile home moved in (5) House moved in (6) Building relisted due to structural changes (7) Unit created when original living quarters split into more units (8) Unit created when original quarters merged to fewer units (9) Conversion of nonresidential unit (10) Other, specify (11) None of the above @1 [if HU7_REUAD@1 eq <10>] @2 [endif] [@1] <3-9,D> [goto HUck8] <10> <11> [goto @a] [@2] [allow 30] [goto HUck8] [@a] [if @1 eq <11> goto HU7A_REUADRO] --------------------------------------------------------------------- >HU7a_REUADRO< [missing ] Did you call the Regional Office? (1) Yes (2) No @ [@] <1> [goto HUCK8] <2> [goto HU7B_REUADP] --------------------------------------------------------------------- >HU7b_REUADP< ***PROBLEM*** This classification is incorrect without contacting your RO. Either contact the RO or press (p) to return to HU7_REUAD to determine the correct classification. @ [@]

[etc ] --------------------------------------------------------------------- >HUck8< [if I_GQINST eq <>] [if stype eq <1> or stype eq <4>] [store <1> in hu8_ACCESS] [goto huck10] [else] [goto hu8_ACCESS] [endif][endif] [if I_GQINST eq or I_GQINST eq goto HUck10] --------------------------------------------------------------------- >HU8_ACCESS< [missing ] [store <> in temp] [if HNO eq <> and HNOSUF eq <> and STRNAME eq <> and UNITDES eq <>] [store in temp] [endif] [r]H[n] Does [fill temp] [fill HNO] [fill HNOSUF] [fill STRNAME] [fill UNITDES] have direct access either from the outside or through a common hall? (1) Yes, direct access (2) No, through another unit @ [@] <1> [goto HUck10] <2,D,R> [goto HU8DIS] [etc ] --------------------------------------------------------------------- >HU8DIS< This is not a separate unit, combine with unit through which access is gained. Apply merged unit procedures if appropriate. PRESS (P) TO CONTINUE @ [@]

--------------------------------------------------------------------- >HU9_NEEDC< Do you need to Type C this unit? (1) Yes (2) No @ [@] <1> [goto HUckEND] <2> [goto HUck10] --------------------------------------------------------------------- >HUck10< [if istatus eq <3> goto huck11] [if istatus eq <4> and (NONTYPE eq <2> or NONTYPE eq <3>)] [goto HUck11] [else] [if istatus eq <4> and NONTYPE eq <1>] [goto HU10_TENURE] [else] [if (istatus eq <1> or istatus eq <2>) and (htype eq <11> or htype eq <12>)] [goto huck11] [endif][endif][endif] [goto hu10_tenure] ---------------------------------------------------------------------- >HU10_TENURE< [missing ] Is this [fill HTYPEFILL] - READ CATEGORIES UNTIL A "YES" REPLY IS RECEIVED (1) Owned or being bought by someone in your household? (2) Rented for cash rent (3) Occupied without payment of cash rent? @ [@] <1-3> [store HU10_TENURE in TENURE] --------------------------------------------------------------------- >HUck11< [if INCSAM eq <1> goto HUckEND] [if (i_stype eq <4> or i_stype eq <5>) and (i_istatus eq <1> or i_istatus eq <2> or i_istatus eq <3> or i_istatus eq <4>) and (htype eq <11> or nontype eq <2> or nontype eq <3>)] [store <1> in mhgone] [store <2> in hu11_samedu] [store <1> in replhu] [goto huck12] [endif] [if INCSAM eq <0> goto HU11_SAMEDU] --------------------------------------------------------------------- >HU11_SAMEDU< [missing ] [store <> in temp] [if nontype eq <3>] [store in temp] [else] [if HTYPE eq <1>] [store in temp] [else] [if HTYPE eq <2>] [store in temp] [else] [if htype eq <3> or htype eq <4>] [store in temp] [else] [store in temp] [endif] [endif][endif][endif] ***ASK AT MANUFACTURED/MOBILE HOMES AND AT STRUCTURES THAT MAY HAVE CHANGED, ELSE ENTER WITHOUT ASKING*** Is this the same [fill temp] that was at this address last enumeration period? (1) Yes (2) No (For example: replacement Manufactured/Mobile home, wrong unit enumerated last time) @ [@] <1,2,D,R> [if HU11_SAMEDU eq <1> or hu11_samedu eq or hu11_samedu eq ] [store <2> in REPLHU] [goto HUckEND] [endif] [if HU11_SAMEDU eq <2>] [store <1> in REPLHU] [goto HUck12] [endif] --------------------------------------------------------------------- >HUck12< [if HTYPE eq <1> or HTYPE eq <2>] [store <1> in HUTYPE] [else] [if HTYPE eq <3>] [store <2> in HUTYPE] [else] [if HTYPE eq <4>] [store <3> in HUTYPE] [else] [if HTYPE eq <5>] [store <4> in HUTYPE] [else] [if HTYPE eq <6>] [store <5> in HUTYPE] [else] [if HTYPE eq <7>] [store <6> in HUTYPE] [endif][endif][endif][endif][endif][endif] [if HTYPE eq <8>] [store <7> in HUTYPE] [else] [if HTYPE eq <9>] [store <8> in HUTYPE] [else] [if HTYPE eq <10>] [store <9> in HUTYPE] [else] [if HTYPE eq <11>] [store <10> in HUTYPE] [else] [if HTYPE eq <12>] [store <11> in HUTYPE] [endif][endif][endif][endif][endif] [if HTYPE eq <3> or HTYPE eq <4>] [goto hu12_huhis] [else] [if mhgone eq <1>] [goto hu12_huhis] [else] [if htype eq <1> or htype eq <2> or (htype ge <5> and htype le <10>)] [goto hu12_huhis] [endif][endif][endif] [goto HUckEND] --------------------------------------------------------------------- >HU12_HUHIS< [missing ] [store <> in temp] [if i_htype eq <1>] [store in temp] [else] [if i_htype eq <2>] [store in temp] [else] [if i_htype eq <3> or i_htype eq <4>] [store in temp] [else] [store in temp] [endif][endif][endif] What happened to the old [fill temp]? [if htype eq <3> or htype eq <4>] (IF THE RESPONDENT DOES NOT KNOW, ASK OWNER OF MH PARK) [endif] (1) Moved (2) Demolished (3) Lost to disaster (fire, tornado, etc.) (4) Wrong unit visited last enumeration period (5) Other, specify @1 [if HU12_HUHIS@1 eq <5>] @2 [endif] [@1] <1-4,D,R> <5> [@2] [allow 30] --------------------------------------------------------------------- >HUckEND< [store <1> in HU_CMP] [if HTYPE eq <1> or HTYPE eq <2>] [store <1> in HUTYPE] [else] [if HTYPE eq <3>] [store <2> in HUTYPE] [else] [if HTYPE eq <4>] [store <3> in HUTYPE] [else] [if HTYPE eq <5>] [store <4> in HUTYPE] [else] [if HTYPE eq <6>] [store <5> in HUTYPE] [else] [if HTYPE eq <7>] [store <6> in HUTYPE] [endif][endif][endif][endif][endif][endif] [if HTYPE eq <8>] [store <7> in HUTYPE] [else] [if HTYPE eq <9>] [store <8> in HUTYPE] [else] [if HTYPE eq <10>] [store <9> in HUTYPE] [else] [if HTYPE eq <11>] [store <10> in HUTYPE] [else] [if HTYPE eq <12>] [store <11> in HUTYPE] [endif][endif][endif][endif][endif] [if NONTYPE eq <1> or NONTYPE eq <2> or NONTYPE eq <3> or HU1a_PROB eq

or HU9_NEEDC eq <1>] [goto NOINT_BEGIN] [else] [if INTRO_B eq <3> OR ISTATUS eq <3> goto INV_BEGIN] [goto START_DEMOS] [endif] --------------------------------------------------------------------- >HU_END< [store <1> in HU_CMP] [stop timer][no erase] [record timer in HU_TME] --------------------------------------------------------------------- ***REFERENCE SECTION **** --------------------------------------------------------------------- >HU4H< [reference] One-Unit Building, Detached - If the structure is a one-family house and has open space on all four sides, enter code "2". Also, enter code "2" for a house with an adjoining shed or garage. A building which contains a business in addition to one housing unit is also detached, if the building has open space on all sides and no unbroken dividing wall between the housing unit and the business. One-Unit Building Attached - Enter "3" for a structure containing only one housing unit that has unbroken wall(s), extending from ground to roof, which divides it from any other adjoining structures. Examples of "one-unit building attached" structures are those in a row of houses attached to one another (row houses or townhouses), or houses attached to nonresidential structures. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] _______________________________________________________________________ >HU5bH< [reference] Do not count model apartments, apartments used as manager's office, even if fully furnished, or apartments for commercial use unless also used as living quarters. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >HU6aH< [reference] Two units share an attic or basement if the attic or basement spans (extends above or below) both units. Whether the occupants of each unit have access to it from the unit itself or through a common hall is immaterial. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >HU6cH< [reference] A furnace or boiler is shared if more than one unit receives heat directly from the furnace or boiler. The furnace or boiler need not be located in a space common to each unit. However, the pipes must run through the walls or ceilings or floors of each unit and provide heat to each unit. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >HU8H< [reference] Living quarters have direct access if there is either: (1) An entrance to the living quarters directly from the outside of the structure, or (2) An entrance to the living quarters from a hall, lobby or vestibule used by the occupants of more than one unit or by the public. This means that the hall, lobby, or vestibule is not part of any unit but must be clearly separate from all units in the structure. It may be furnished or unfurnished. Any room that serves the same purpose as a hotel lobby may be a common hall provided it is not part of any unit. If there is only one unit in the building (such as a janitor's quarters in the basement of a store), the access is direct. Living quarters do not have direct access if the only entrance to the unit is through a room or a hall of another unit. PRESS ENTER TO CONTINUE @ [@] [nodata] [return from help] --------------------------------------------------------------------- REVISED 5-2-01 Survey: American Housing Survey - 2001 National Module: Noninterview (NOINT) Module Programmer: Judy Hodges Cathy Walker Taz Chowdhury ---------------------------------------------------------------------- >NOINT_BEGIN< [start timer][no erase] ---------------------------------------------------------------------- >NOINT< [allow int 2] >BYOBS< [allow 1] ---------------------------------------------------------------------- >NOINT1< [if NONTYPE isnt <>] [store in temp2] [else] [store in temp2] [endif] [fill temp2] type of Non-interview do you have? (1) TYPE A (2) TYPE B (3) TYPE C (M) MISTAKE-do not want to code noninterview @ [@] <1-3> [missing] [goto @1] [@1] [store <> in NONTYPE] [store <> in NOINT] [store <7> in mark] [store <202> in outcome] [store <> in ISTATUS] [goto INTRO_B] ---------------------------------------------------------------------- >NOINTCK1< [allow 1] [store NOINT1 in NONTYPE] [if NONTYPE eq <1>] [store <1> in NOINTCK1] [goto NOINT2_NOINTA] [else] [if NONTYPE eq <2>] [store <2> in NOINTCK1] [goto noint4_nointb] [else] [if NONTYPE eq <3>] [store <3> in NOINTCK1] [goto NOINT13_NOINTC] [endif] [endif] [endif] ---------------------------------------------------------------------- >NOINT2_NOINTA< Enter Type A Noninterview Reason (1) No one home (2) Temporarily absent (3) Refused (4) Unable to locate (5) Language problem (6) Other, occupied @ [@] <1-6> [store NOINT2_NOINTA in NOINT] [goto NOINT3] ---------------------------------------------------------------------- >NOINT3< Are you sure this case is a Type A noninterview? (1) Yes (2) No @ [@] <1> [goto TYPAOCC] <2> [etc ] ---------------------------------------------------------------------- >TYPAOCC< [missing ] [bold]FR: ONLY ASK IF NOT APPARENT FR: Read until a "YES" answer is received.[normal] What is the occupancy status for this Type A Noninterview? (1) Occupied as a usual residence by at least one person (2) All occupants have a usual residence elsewhere (D) Don't know @ [@]<1,2,D,R>[goto NOINT_END] --------------------------------------------------------------------- >NOINT4_NOINTB< Enter TYPE B Noninterview Reason (10) Permit granted, construction not started (11) Under construction, not ready (12) Permanent or temporary business or commercial storage (13) Unoccupied site for manufactured/mobile home or tent (14) OTHER unit or converted to institutional unit (15) Occupancy prohibited (16) Interior exposed to the elements (17) Type B, not classified above, Specify @1 [if NOINT4_NOINTB@1 eq <17>] @2 [endif] [@1] <10-16> <17> [if NOINT4_NOINTB@1 eq <10> and NOINT4_NOINTB@1 onpath] [store NOINT4_NOINTB@1 in NOINT] [goto NOINT5a] [endif] [if NOINT4_NOINTB@1 eq <11> and NOINT4_NOINTB@1 onpath] [store NOINT4_NOINTB@1 in NOINT] [goto NOINTck6a] [endif] [if NOINT4_NOINTB@1 eq <12> and NOINT4_NOINTB@1 onpath] [store NOINT4_NOINTB@1 in NOINT] [goto NOINT7A_BCSCS] [endif] [if NOINT4_NOINTB@1 eq <13> and NOINT4_NOINTB@1 onpath] [store NOINT4_NOINTB@1 in NOINT] [goto NOINT8a_USMHP] [endif] [if NOINT4_NOINTB@1 eq <14> and NOINT4_NOINTB@1 onpath] [store NOINT4_NOINTB@1 in NOINT] [goto NOINT9a] [endif] [if NOINT4_NOINTB@1 eq <15> and NOINT4_NOINTB@1 onpath] [store NOINT4_NOINTB@1 in NOINT] [goto NOINT10A_OPNOR] [endif] [if NOINT4_NOINTB@1 eq <16> and NOINT4_NOINTB@1 onpath] [store NOINT4_NOINTB@1 in NOINT] [goto NOINT11A_IEFIT] [endif] [@2] [allow 40] [if NOINT4_NOINTB@1 eq <17> and NOINT4_NOINTB@1 onpath] [store NOINT4_NOINTB@1 in NOINT] [goto NOINT12_botwn] [endif] ---------------------------------------------------------------------- >NOINT12_BOTWN< ***TYPE B - OTHER TEST*** In order to be a Type B- Other, a sample unit must meet one of the following conditions. 1. The sample unit serves as a government embassy, chancery, or consulate. 2. The sample unit meets the minimal conditions of a Type B but falls outside the designated Type B categories. The minimal conditions for a Type B are that the sample unit is CURRENTLY UNINHABITABLE but has the POTENTIAL of being converted or repaired and used as a living quarters in the future. A vacant home or manufactured/mobile home is NOT a Type B- Other. A vacancy fails the Type B test because it is habitable even though unoccupied at the time of interview. The AHS has a special interview that should be completed for a vacancy. Is this sample unit a Type B - Other? (1) Yes -Proceed (2) No- Instrument will return to the Start of the Interview @ [@] <1> [goto noint12a] <2> [goto @a] [@a] [store <> in nontype] [store <> in noint] [store <> in status] [store <7> in mark] [store <202> in outcome] [goto intro_b] ---------------------------------------------------------------------- >NOINT5a< [missing ] TYPE B-10 PERMIT GRANTED-CONSTRUCTION NOT STARTED Enter date permit issued Month Day Year @PEDTM @PEDTD @PEDTY [@PEDTM] <1-12,D> [@PEDTD] <1-31,D> [@PEDTY] <1990-2001> [goto NOINT5B_PENUM] ---------------------------------------------------------------------- >NOINT5B_PENUM< [missing ] Enter expected number of units. @ [@] <1-9999,D> [goto NOINT19c] ---------------------------------------------------------------------- >NOINTck6a< [if (AHSNFRM eq <04> or FRAME eq <4>) or AHSNFRM eq <05> or AHSNFRM eq <09>] [goto NOINT6A_UCAO] [else] [if (AHSNFRM eq <7> or FRAME eq <1>) and PRMITSTA eq ] [goto NOINT6a_UCAO] [else] [goto NOINT6a_UCAO] [endif][endif] ---------------------------------------------------------------------- >NOINT6A_UCAO< TYPE B-11 UNDER CONSTRUCTION-NOT READY Enter the code that best describes the situation (1) New construction of entire structure (2) Renovation or addition to an existing structure @ [@] <1> [goto NOINT6B_UCWDF] <2> [goto NOINT6A_PROB] ---------------------------------------------------------------------- >NOINT6A_PROB< *** PROBLEM *** This classification is incorrect if a renovation or addition was made to an existing structure. EITHER BACKUP AND CORRECT NOINT6A_UCAO OR PRESS (P) TO RETURN TO NOINT4_NOINTB TO DETERMINE CORRECT CLASSIFICATION @ [@]

[etc ] ---------------------------------------------------------------------- >NOINT6B_UCWDF< Are all exterior windows and doors and the usable floors in place? (1) Yes (2) No @ [@] <1> [goto NOINT6B_PROB] <2> [if NOINT6B_UCWDF eq <2>] [store NOINT4_NOINTB@1 in NOINT] [goto NOINTCK20] [endif] [# THIS IS FOR BACK UP PURPOSES] [# IF WE WENT TO PROB SCREEN AND PRESSED ENTER] [# NOINT WOULD BE BLANKED OUT, SO WE NEED TO RESET IT] --------------------------------------------------------------------------- >NOINT6B_PROB< ** PROBLEM ** This classification is incorrect if all the exterior windows and doors and usable floors are in place. Conduct a vacant interview instead. EITHER BACK UP AND CORRECT NOINT6B_UCWDF OR PRESS (P) TO RETURN TO THE START OF THE INTERVIEW. @ [@]

[if NOINT6B_PROB eq

] [store <> in NONTYPE] [store <> in NOINT] [store <7> in mark] [store <202> in outcome] [store <> in ISTATUS] [goto INTRO_B] [endif] ---------------------------------------------------------------------- >NOINT7A_BCSCS< TYPE B-12 PERMANENT OR TEMPORARY BUSINESS OR COMMERCIAL STORAGE Enter what best describes the current use of the unit. (1) Commercial- Specify type of business (2) School (3) Storage @ [@]<1>[specify][goto NOINTCK20] <2>[goto NOINTCK20] <3>[goto NOINT7B_BCSST] ---------------------------------------------------------------------- >NOINT7B_BCSST< What kind of articles are being stored? (1) Personal household furniture only (2) Commercial storage (3) Farm equipment or crops (4) Other, SPECIFY @ [@]<1>[goto NOINT7B_PROB] <2,3>[goto @1] <4>[specify][goto NOINTCK20] [@1][store NOINT4_NOINTB@1 in NOINT] [goto NOINTCK20] ---------------------------------------------------------------------- >NOINT7B_PROB< ** PROBLEM ** This classification is incorrect if only personal household furniture is stored. Conduct a vacant interview instead. EITHER BACK UP AND CORRECT NOINT7B_BCSST OR PRESS (P) TO RETURN TO INTRO_B! @ [@]

[If NOINT7b_PROB eq

] [store <> in NONTYPE] [store <> in NOINT] [store <7> in mark] [store <202> in outcome] [store <> in ISTATUS] [goto INTRO_B] [endif] ---------------------------------------------------------------------- >NOINT8A_USMHP< [r](H)[n] TYPE B-13 UNOCCUPIED SITE FOR MANUFACTURED/MOBILE HOME OR TENT Is this site (or location description) in a place that has common properties or facilities AND a single management or association? (1) Yes (2) No @ [@] <1> [goto NOINT8B_USREP] <2> [goto NOINT8A_PROB] [etc ] ---------------------------------------------------------------------- >NOINT8A_PROB< **PROBLEM** This classification is incorrect if the place has [u]NO[normal] common properties/facilities and [u]NO[normal] single management/association. EITHER BACK UP AND CORRECT NOINT8A_USMHP OR PRESS (P) TO RETURN TO NOINT4_NOINTB TO DETERMINE CORRECT CLASSIFICATION. @ [@]

[etc ] ---------------------------------------------------------------------- >NOINT8B_USREP< Is the site in a recreational, educational, or religious type park? (1) Yes (2) No @ [@] <1> [goto NOINT8C_USPER] <2> [goto NOINT19c] ---------------------------------------------------------------------- >NOINT8C_USPER< Is this site usually occupied by persons who made arrangements to stay for 30 days or more? (1) Yes (2) No @ [@] <1> [goto NOINT19c] <2> [goto NOINT8C_PROB] ---------------------------------------------------------------------- >NOINT8C_PROB< **PROBLEM** This Type B-13 classification is incorrect if site is usually occupied by persons who stay for [u]under[normal] 30 days. Either back up and correct NOINT8C_USPER or press (P) to return to NOINT1. Change noninterview code to Type C, code 37-Not Classified Above, type in "Listed in Error" in the space provided. @ [@]

[etc ] ---------------------------------------------------------------------- >NOINT9a< [r] (H) [n] TYPE B-14 OTHER UNIT INCLUDING NONSTAFF, OR CONVERTED TO INSTITUTIONAL UNIT Description @TYPB14D1 @TYPB14D2 @TYPB14D3 (Enter 97 if you decide it is not a GQ after all. Enter "H" to see list of codes) Code for type of GQ @OTHCD [@TYPB14D1] [allow 65] [@TYPB14D2] [allow 65] [optional] [@TYPB14D3] [allow 65] [optional] [@OTHCD] <00-03,05-07,11,12,21-23,31-40,51-62> <71,72,75,79,81-84,91-94,97> [etc ] [default goto @code1] [@code1] [if NOINT9a@OTHCD eq <97> goto NOINT9aPROB] [goto NOINT9b] ---------------------------------------------------------------------- >NOINT9aH< [reference] GQ CODES 00 - Nurses quarters 01 - Flophouses/homeless shelters/missions 02-03 - Recreational, religious or educational camp 05 - Tent camps 06-07 - Armed forces installations and hospitals 11-12 - Correctional Institutions 21-23 - Mental Institutions 31-39 - Homes for the elderly/handicapped/disadvantaged 40 - Nursing/convalescent/rest homes 51-62 - Hospitals/homes providing special care 71 - Transient hotel/motel/YMCA/YWCA/YMHA etc 72 - Nontransient hotel/motel/YMCA/YWCA/YMHA etc 75 - Private residential club 79 - Vacation/tourist cabins, groups of 5 or more under single management 81-84 - Facilities for housing student 86-88 - Bunkhouses/labor/lodging/migrant workers camp 91 - Convents/monasteries/other residences for religious purposes 92 - Commune 93 - Halfway house 94 - Independent group residences for senior citizens, the handicapped and functionally disabled. PLEASE PRESS ENTER TO CONTINUE THE INTERVIEW @ [@] [nodata] [return from help] ---------------------------------------------------------------------- >NOINT9aPROB< **WHAT TO DO** You need to determine the correct classification. PLEASE PRESS (P) TO RETURN TO NOINT4_NOINTB. @ [@]

[etc ] ---------------------------------------------------------------------- >NOINT9b< Categorize the type of occupants (Give a specific description; for example, college students, nurses, staff at children's camp, inmates, patients, etc.) Description @TYPB14O1 @TYPB14O2 @TYPB14O3 Type of occupants: (1) Noninstitutional (2) Institutional-Staff (3) Institutional-Inmates or patients @OTHOC [@TYPB14O1] [allow 65] [@TYPB14O2] [allow 65] [optional] [@TYPB14O3] [allow 65] [optional] [@OTHOC] <1,2,3> [goto NOINTCK20] ---------------------------------------------------------------------- >NOINT10A_OPNOR< Type B-15 OCCUPANCY PROHIBITED Is the unit for nonresidential use? (1) Yes (2) No @ [@] <1> [goto NOINT10A_PROB] <2> [goto NOINT10B_OPREA] ---------------------------------------------------------------------- >NOINT10A_PROB< **PROBLEM** This classification is incorrect. A Type B-15 can not be for non-residential use. Either back up and correct NOINT10A_OPNOR or press (P) to return to NOINT4_NOINTB to determine correct classification. @ [@]

[etc ] ---------------------------------------------------------------------- >NOINT10B_OPREA< Specify reason occupancy prohibited (1) Scheduled to be demolished (2) Severely damaged by fire (3) Condemned or occupancy prohibited by law @ [@] <1> [goto NOINT10C_OPDEM] <2> [goto NOINT10D_OPINE] <3> [goto NOINT10E_OPSGN] ---------------------------------------------------------------------- >NOINT10C_OPDEM< Has demolition of the unit begun? (1) Yes (2) No @ [@] <1> [goto NOINT10C_PROB] <2> [goto NOINT10E_OPSGN] ---------------------------------------------------------------------- >NOINT10C_PROB< **PROBLEM** This classification is incorrect. If demolition has begun, it can not be a Type B. Either back up and correct NOINT10C_OPDEM or press (P) to return to NOINT4_NOINTB to determine the correct classification. NOINT4_NOINTB will allow you to F1 to NOINT1 if you discover that this is not a TYPE B. @ [@]

[etc ] ---------------------------------------------------------------------- >NOINT10D_OPINE< Is interior exposed to the elements? (1) Yes (2) No @ [@] <1> [goto NOINT10D_PROB] <2> [goto NOINTCK20] ---------------------------------------------------------------------- >NOINT10D_PROB< **PROBLEM** This classification is incorrect. If interior is exposed to the elements, it can not be a Type B - Occupancy Prohibited. Either back up and correct NOINT10D_OPINE or press (P) to return to NOINT4_NOINTB to determine the correct classification. @ [@]

[etc ] ---------------------------------------------------------------------- >NOINT10E_OPSGN< Is there a sign or notice indicating that the unit is condemned, or to be demolished, or occupancy is prohibited by law? (1) Yes (2) No @ [@] <1> [goto NOINTCK20] <2> [goto NOINT10F_OPPAC] ---------------------------------------------------------------------- >NOINT10F_OPPAC< Was a public agency contacted to confirm the status? (1) Yes (SPECIFY THE AGENCY) (2) No @ [@] <1>[specify][goto NOINTCK20] <2>[goto NOINT10F_PROB] ---------------------------------------------------------------------- >NOINT10F_PROB< **PROBLEM** This classification is incorrect (unless confirmed by a public agency); determine correct classification. Either confirm or press (P) to return to NOINT4_NOINTB to determine the correct classification. @ [@]

[etc ] ---------------------------------------------------------------------- >NOINT11A_IEFIT< [r] (H) [n] TYPE B-16 INTERIOR EXPOSED TO THE ELEMENTS Does this unit fit the definition of any of the previous noninterview categories? Do not count units exposed to the elements because they are severely damaged by the fire as 'occupancy' prohibited. (Enter "H" to see list of categories) (1) Yes (2) No @ [@] [missing] [etc ] <1> [goto NOINT11A_PROB] <2> [goto NOINT11B_IECDW] ---------------------------------------------------------------------- >NOINT11A_H< [reference] (10) Permit granted, construction not started (11) Under construction, not ready (12) Permanent or temporary business or commercial storage (13) Unoccupied site for manufactured/mobile home or tent (14) OTHER unit or converted to nonstaff (15) Occupancy prohibited (except severely damaged by fire) (16) Interior exposed to the elements (17) Type B, not classified above, Specify PLEASE PRESS ENTER TO CONTINUE THE INTERVIEW @ [@] [nodata] [return from help] ---------------------------------------------------------------------- >NOINT11A_PROB< **PROBLEM** This classification is incorrect if unit fits the definition of a previous Type B category. Either back up and correct NOINT11A_IEFIT or press (P) to return to NOINT4_NOINTB to determine the correct classification. @ [@]

[etc ] ---------------------------------------------------------------------- >NOINT11B_IECDW< Enter what best describes the condition of the unit's doors and/or windows. (1) All in good condition (2) Some missing or broken (3) Most missing or broken (4) Unobservable-Explain @1 [if NOINT11b_IECDW@1 eq <4>]@2[endif] [@1] <1-3> [goto NOINT11C_IECRE]<4> [@2] [allow 40] ---------------------------------------------------------------------- >NOINT11C_IECRE< Enter what best describes the condition of the unit's roof (exclude porch roofs). (1) In good condition (2) Leaky, has missing shingles or small holes (3) Entirely or partially missing (4) Unobservable - Explain @1 [if NOINT11C_IECRE@1 eq <4>]@2[endif] [@1] <1-3> [goto NOINT11D_IECEW] <4> [@2] [allow 40] [goto NOINT11D_IECEW] ---------------------------------------------------------------------- >NOINT11D_IECEW< Enter what best describes the condition of the unit's exterior walls. (1) In good condition (2) Cracked (exclude minor damage which does not expose the interior) or broken (3) Entirely or partially missing (4) Unobservable, Explain @ [@]<1-3> [goto NOINTck11bcd] <4> [goto @1] [@1] [allow 40][goto NOINTck11bcd] ---------------------------------------------------------------------- >NOINTck11bcd< [if (NOINT11B_IECDW@1 eq <2> or NOINT11B_IECDW@1 eq <3>) or (NOINT11C_IECRE@1 eq <2> or NOINT11C_IECRE@1 eq <3>) or (NOINT11D_IECEW@1 eq <2> or NOINT11D_IECEW@1 eq <3>)] [goto NOINTCK20] [else] [goto NOINT11PROB] [endif] ---------------------------------------------------------------------- >NOINT11PROB< ***PROBLEM*** This classification is incorrect if doors/windows, roofs, exterior walls are either in good condition or you are not able to observe them. In order to be a Type B-16 (Interior exposed to the elements) you must have observed a problem with at least 1 of these 3 things. Either back up and correct NOINT11B_IECDW or press (P) to return to NOINT4_NOINTB to determine the correct classification. @ [@]

[etc ] ---------------------------------------------------------------------- >NOINT12a< Type B-17 TYPE B-NOT CLASSIFIED ABOVE Specify the reason. @TYP17R1 @TYP17R2 @TYP17R3 [@TYP17R1] [allow 65] [@TYP17R2] [allow 65] [optional] [@TYP17R3] [allow 65] [optional] ---------------------------------------------------------------------- >NOINT12B_BOTRO< Did you call the Regional Office? (1) Yes (2) No @ [@] <1> [goto NOINT12c] <2> [goto NOINT12B_PROB] ---------------------------------------------------------------------- >NOINT12B_PROB< ***PROBLEM*** This classification is incorrect without contacting your RO. Either contact the RO or press (P) to return to NOINT4_NOINTB to determine the correct classification. @ [@]

[etc ] ---------------------------------------------------------------------- >NOINT12c< Give the title to the person in the Regional Office who authorized this classification. @TYPITTL [@TYPITTL] [allow 65] [goto NOINTCK20] ---------------------------------------------------------------------- >NOINT13_NOINTC< Enter Type C Noninterview Reason (30) Demolished or disaster loss (31) House or manufactured/mobile home moved (32) Unit eliminated in structural conversion (33) Merged not in current sample (36) Permit abandoned (37) Type C, not classified above (38) Unit eliminated in subsampling @ [@] <30,31,32,33,36,37,38> [store NOINT13_NOINTC in NOINT] [goto NOINT13_NOINTck] ---------------------------------------------------------------------- >NOINT13_NOINTck< [if NOINT13_NOINTC eq <30> and NOINT13_NOINTC onpath goto NOINT14A_DDLRE] [if NOINT13_NOINTC eq <31> and NOINT13_NOINTC onpath goto NOINT15_HMMPK] [if NOINT13_NOINTC eq <32> and NOINT13_NOINTC onpath goto NOINT16A_ESCRO] [if NOINT13_NOINTC eq <33> and NOINT13_NOINTC onpath goto NOINTck17] [if NOINT13_NOINTC eq <36> and NOINT13_NOINTC onpath goto NOINT18] [if NOINT13_NOINTC eq <37> and NOINT13_NOINTC onpath goto NOINT19a] [if NOINT13_NOINTC eq <38> and NOINT13_NOINTC onpath goto NOINTPOP] ---------------------------------------------------------------------- >NOINTPOP< This code is for office use only. Did you get RO approval to use Type C-38? (1) Yes (2) No @ [@] <1> [goto NOINT19c] <2> [ETC ] ---------------------------------------------------------------------- >NOINT14A_DDLRE< TYPE C-30 DEMOLISHED OR DISASTER LOSS Enter the appropriate category (1) Demolished (2) Disaster loss @ [@] <1> [goto NOINT14B_DDLAP] <2> [goto NOINT14C_DDLWS] ---------------------------------------------------------------------- >NOINT14B_DDLAP< How much of the unit has been demolished? (1) All (2) Part-Demolition progressing (3) Part-Demolition discontinued (4) None @ [@] <1,2> [goto NOINTck20] <3,4> [goto NOINT14B_PROB] ---------------------------------------------------------------------- >NOINT14B_PROB< **PROBLEM** This classification is incorrect if no demolition has been done or it has been discontinued. Either back up and correct NOINT14B_DDLAP or press (P) to return to NOINT13_NOINT to determine the correct classificaiton. @ [@]

[etc ] ---------------------------------------------------------------------- >NOINT14C_DDLWS< Are all the exterior walls standing? (1) Yes (2) No @ [@] <1> [goto NOINT14C_PROB] <2> [goto NOINTck20] ---------------------------------------------------------------------- >NOINT14C_PROB< **PROBLEM** This classification is incorrect if all the exterior walls are standing. Either back up and correct NOINT14C_DDLWS or press (P) to return to NOINT13_NOINT to determine the correct classification. @ [@]

[etc ] ---------------------------------------------------------------------- >NOINT15_HMMPK< [r](H)[n] TYPE C-31 HOUSE OR MANUFACTURED/MOBILE HOME MOVED Is this a site (or location description) in a place that has common properties or facilities AND a single management or association? (1) Yes (2) No @ [@] <1> [goto NOINT15_PROB] <2> [goto NOINTck20] [etc ] ---------------------------------------------------------------------- >NOINT15_PROB< **PROBLEM** This classification is incorrect if it is in a place that has common properties/facilities [u]and[normal] a single management/association. Either back up and correct NOINT15_HMMPK or press (P) to return to NOINT13_NOINT to determine the correct classification. @ [@]

[etc ] ---------------------------------------------------------------------- >NOINT16A_ESCRO< TYPE C-32 UNIT ELIMINATED IN STRUCTURAL CONVERSION Did you call the office? (1) Yes (2) No @ [@] <1> [goto NOINT16b] <2> [goto NOINT16A_PROB] ---------------------------------------------------------------------- >NOINT16A_PROB< **PROBLEM** This classification is incorrect if it has not been authorized by your RO. Either call the RO or press (P) to return to NOINT13_NOINT and determine the correct classification. @ [@]

[etc ] ---------------------------------------------------------------------- >NOINT16b< Give the title of the person in the Regional Office who authorized this classification. @TYP32TL [@TYP32TL] [allow 65] [goto NOINT19c] ---------------------------------------------------------------------- >NOINTck17< [if {int}AHSNFRM eq <3> or FRAME eq <2> or FRAME eq <5>] [goto NOINT17A_CHRSA] [else] [goto NOINT17C_CMRNU] [endif] ---------------------------------------------------------------------- >NOINT17A_CHRSA< TYPE C-33 MERGED-NOT IN CURRENT SAMPLE Does the resulting unit use the same specific address as the original sample unit? (1) Yes (2) No @ [@] <1> [goto NOINT17A_PROB] <2> [if NOINT17A_CHRSA eq <2>] [store NOINT13_NOINTC in NOINT] [goto NOINT19c] [endif] [# THIS IS FOR BACK UP PURPOSES] [# IF THE WENT TO PROB SCREEN AND PRESSED ENTER] [# NOINT WOULD BE BLANKED OUT, SO WE NEED TO RESET IT] ---------------------------------------------------------------------- >NOINT17A_PROB< **PROBLEM** This classification is incorrect if the resulting unit uses the same specific address as the original sample unit. Complete an interview for this case instead. Either back up and correct NOINT17A_CHRSA if it is incorrect or press enter to determine occupancy status and then continue with an interview for this unit. @ [@] [nodata] [goto NOINT17_NOCCSTA] ---------------------------------------------------------------------- >NOINT17b< If a person in the regional office authorized this classification, indicate that person's title, for example, supervisor, survey clerk, etc. @TYP33TL [@TYP33TL] [allow 65] [goto NOINT19c] ---------------------------------------------------------------------- >NOINT17C_CMRNU< How many units were involved in the merger? @ [@] <02-99> [goto NOINT17_CMRFU] ---------------------------------------------------------------------- >NOINT17_CMRFU< Is the first unit involved in the merger designated for AHS sample? (1) Yes (2) No @ [@] <1> [goto NOINT17E_CMREX] <2> [goto NOINT19c] ---------------------------------------------------------------------- >NOINT17E_CMREX< Is this an EXTRA unit which has merged with another AHS sample unit? (1) Yes (2) No @ [@] <1> [goto NOINT19c] <2> [goto NOINT17F_CMRSH] ---------------------------------------------------------------------- >NOINT17F_CMRSH< Do you have a case in your assignment containing current household members who are occupying the unit that was created by the merger? (1) Yes (2) No @ [@] <1> [goto NOINT17G_CMROM] <2> [goto NOINT17H_CMRCN] ---------------------------------------------------------------------- >NOINT17G_CMROM< Is this the case that contains the household which occupies the merger? (1) Yes (2) No @ [@] <1> [goto NOINT17G_PROB] <2> [if NOINT17G_CMROM eq <2>] [store NOINT13_NOINTC in NOINT] [goto NOINT19c] [endif] [# THIS IS FOR BACK UP PURPOSES] [# IF THE WENT TO PROB SCREEN AND PRESSED ENTER] [# NOINT WOULD BE BLANKED OUT, SO WE NEED TO RESET IT] ---------------------------------------------------------------------- >NOINT17G_PROB< **PROBLEM** This classification is incorrect if this case contains the household which occupies the merger; complete an interview for this case instead. Either back up and correct NOINT17G_CMROM if incorrect or press enter to continue with an interview for this unit. @ Press enter [@] [nodata] [store <> in NOINT] [store <1> in INTRO_B] [goto HU_BEGIN] ---------------------------------------------------------------------- >NOINT17H_CMRCN< Does this case represent the control number for the first of the merged units listed? (1) Yes (2) No @ [@] <1> [goto NOINT17H_PROB] <2> [goto @2] [@2] [store NOINT13_NOINTC in NOINT] [goto NOINT19c]] ---------------------------------------------------------------------- >NOINT17H_PROB< **PROBLEM** This classification is incorrect if this control number represents the first of the merged units listed; complete an interview for this case instead. Either back up and correct NOINT17H_CMRCN if it is incorrect, or press enter to determine occupancy status and then continue with an interview for this unit. @ [@] [nodata] [goto NOINT17_NOCCSTA] ---------------------------------------------------------------------- >NOINT17_NOCCSTA< Is this unit occupied or vacant? (1) Occupied (2) Vacant @ [@] <1-2> [if NOINT17_NOCCSTA eq <2>] [store <3> in ISTATUS] [ELSE] [store <1> in ISTATUS] [endif] [store <> in NOINT] [store <> in NONTYPE] [goto HU_BEGIN] ---------------------------------------------------------------------- >NOINT18< [open NOINT18] TYPE C-36 PERMIT ABANDONED Mark (X) source(s) with whom you have verified the status of the permit. (Call Regional Office before contacting permit office.) @PABCO Builder or contractor @PASRO Sales or rental office @PADLC Development corporation @PAOWN Owner @PAROF Regional Office @PAPOF Permit office @PAOTH Other, SPECIFY [@PABCO][optional] [@PASRO][optional] [@PADLC][optional] [@PAOWN][optional] [@PAROF][optional] [@PAPOF][optional] [@PAOTH][SPECIFY][optional] -------------------------------------------------------------------- >NOINT18cc< [goto NOINT19c] ---------------------------------------------------------------------- >NOINT19a< TYPE C-37 OTHER-NOT CLASSIFIED ABOVE Specify the reason. @TYP37R1 @TYP37R2 @TYP37R3 [@TYP37R1] [allow 65] [@TYP37R2] [allow 65] [optional] [@TYP37R3] [allow 65] [optional] ---------------------------------------------------------------------- >NOINT19b< [open NOINT19b] Mark (X) all that apply. @COTLP Listing problem @COTSP Sampling problem @COTOH Other [@COTLP] [optional] [@COTSP] [optional] [@COTOH] [optional] ---------------------------------------------------------------------- >NOINTck20< [#NOT DISPLAYED] [if NOINT eq <12> or NOINT eq <14> or NOINT eq <15> goto NOINT20_EXPOSE] [if NOINT eq <10> goto NOINT_END] [if NOINT eq <11> or NOINT eq <16> or NOINT eq <17> goto NOINT21A_BBLDG] [if NOINT eq <30> or NOINT eq <31> goto NOINT22A1_DFIRE] [if NOINT eq <32> or NOINT eq <37> goto NOINT19c] [if NOINT eq <33> or NOINT eq <36> or NOINT eq <38> goto NOINT19c] [if NOINT eq <13> goto NOINT19c] ---------------------------------------------------------------------- >NOINT20_EXPOSE< Is the interior- (1) Exposed to the elements? (2) Not exposed to the elements? @ [@] <1-2> [goto NOINT21A_BBLDG] ---------------------------------------------------------------------- >NOINT21A_BBLDG< In [u]ADDITION[normal] to the unit that is being classified as a TYPE B (Enter 2 or 3 if the building does not contain any housing units) (1) Building contains at least one housing unit-either occupied or vacant. (2) Unit being classified as Type B is the only unit in the building. (3) All units would qualify for a Type B or C noninterview. @ [@] <1-3> [goto NOINT21B_BBORD] ---------------------------------------------------------------------- >NOINT21B_BBORD< [missing ] Is the unit boarded up? (1) Yes (2) No @ [@] <1,2,D> [goto NOINT19c] ---------------------------------------------------------------------- >NOINT22A1_DFIRE< Was that unit demolished, moved, or considered a disaster loss, because it was severely damaged by - Fire? (1) Yes (2) No @ [@] <1-2> [goto NOINT21A2_DISAS] ---------------------------------------------------------------------- >NOINT21A2_DISAS< Other natural disaster? (1) Yes (2) No @ [@] <1-2> [goto NOINT19C] ---------------------------------------------------------------------- >NOINT19c< [missing ] FR NOTE: WAS NONINTERVIEW STATUS DETERMINED BY OBSERVATION ONLY OR DID SOMEONE PROVIDE YOU WITH INFORMATION ABOUT THE HOUSING UNIT? (1) Observation Only (2) Information Provided by Someone @ [@] <1> [goto @a] <2,D,R> [goto @b] [@a] [if NOINT19c eq <1>] [store <1> in BYOBS] [goto NOINT19c3] [endif] [@b] [store <0> in BYOBS] [goto NOINT19C3] ---------------------------------------------------------------------- >NOINT19C3< [open noint19c3] Detailed Explanation of Noninterview Classification FR Note: Enter an explanation of why you classified the unit as a Type B or C Noninterview. Enter (N) for no more. @EXCLE1 @EXCLE2 @EXCLE3 @EXCLE4 @EXCLE5 @EXCLE6 @EXCLE7 @EXCLE8 @EXCLE9 @EXCL10 @EXCL11 @EXCL12 @EXCL13 @EXCL14 @EXCL15 [@EXCLE1] [allow 60] [anychar] [goto noint_end] [@EXCLE2] [allow 60] [anychar] [goto noint_end] [@EXCLE3] [allow 60] [anychar] [goto noint_end] [@EXCLE4] [allow 60] [anychar] [goto noint_end] [@EXCLE5] [allow 60] [anychar] [goto noint_end] [@EXCLE6] [allow 60] [anychar] [goto noint_end] [@EXCLE7] [allow 60] [anychar] [goto noint_end] [@EXCLE8] [allow 60] [anychar] [goto noint_end] [@EXCLE9] [allow 60] [anychar] [goto noint_end] [@EXCL10][allow 60] [anychar] [goto noint_end] [@EXCL11][allow 60] [anychar] [goto noint_end] [@EXCL12][allow 60] [anychar] [goto noint_end] [@EXCL13][allow 60] [anychar] [goto noint_end] [@EXCL14][allow 60] [anychar] [goto noint_end] [@EXCL15][allow 60] [anychar] [goto noint_end] ---------------------------------------------------------------------- >NOINT8aH< [reference] Include manufactured/mobile home parks, trailer courts or other groupings of sites under a single owner or management. Also include situations where the lots are owned individually but a condominium association regulates some aspects of the property, such as upkeep of common areas, water or sewage service or the like. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ---------------------------------------------------------------------- >NOINT15H< [reference] Include manufactured/mobile home parks, trailer courts or other groupings of sites under a single owner or management. Also include situations where the lots are owned individually but a condominium association regulates some aspects of the property, such as upkeep of common areas, water or sewage service or the like. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ---------------------------------------------------------------------- ---------------------------------------------------------------------- >NOINT_END< [store <1> in NOINT_CMP] [stop timer][no erase] [record timer in NOINT_TME] [IF NOINT is <> goto CPTYPECK] [# [IF NOINT is <1>] [store <216> in outcome] [store <21> in ACTION][store <4> in ISTATUS] [ENDIF] [# [IF NOINT is <2>] [store <217> in outcome] [store <21> in ACTION][store <4> in ISTATUS] [ENDIF] [# [IF NOINT is <3>] [store <218> in outcome] [store <21> in ACTION][store <4> in ISTATUS] [ENDIF] [# [IF NOINT is <4>] [store <214> in outcome] [store <21> in ACTION][store <4> in ISTATUS] [ENDIF] [# [IF NOINT is <5>] [store <213> in outcome] [store <21> in ACTION][store <4> in ISTATUS] [ENDIF] [# [IF NOINT is <6>] [store <219> in outcome] [store <21> in ACTION][store <4> in ISTATUS] [ENDIF] [# [IF NOINT is <10>] [store <232> in outcome] [store <31> in ACTION][store <4> in ISTATUS] [ENDIF] [# [IF NOINT is <11>] [store <229> in outcome] [store <31> in ACTION][store <4> in ISTATUS] [ENDIF] [# [IF NOINT is <12>] [store <230> in outcome] [store <31> in ACTION][store <4> in ISTATUS] [ENDIF] [# [IF NOINT is <13>] [store <231> in outcome] [store <31> in ACTION][store <4> in ISTATUS] [ENDIF] [# [IF NOINT is <14>] [store <330> in outcome] [store <31> in ACTION][store <4> in ISTATUS] [ENDIF] [# [IF NOINT is <15>] [store <331> in outcome] [store <31> in ACTION][store <4> in ISTATUS] [ENDIF] [# [IF NOINT is <16>] [store <332> in outcome] [store <31> in ACTION][store <4> in ISTATUS] [ENDIF] [# [IF NOINT is <17>] [store <233> in outcome] [store <31> in ACTION][store <4> in ISTATUS] [ENDIF] [# [IF NOINT is <30>] [store <240> in outcome] [store <41> in ACTION][store <4> in ISTATUS] [ENDIF] [# [IF NOINT is <31>] [store <241> in outcome] [store <41> in ACTION][store <4> in ISTATUS] [ENDIF] [# [IF NOINT is <32>] [store <340> in outcome] [store <41> in ACTION][store <4> in ISTATUS] [ENDIF] [# [IF NOINT is <33>] [store <244> in outcome] [store <41> in ACTION][store <4> in ISTATUS] [ENDIF] [# [IF NOINT is <36>] [store <253> in outcome] [store <41> in ACTION][store <4> in ISTATUS] [ENDIF] [# [IF NOINT is <37>] [store <247> in outcome] [store <41> in ACTION][store <4> in ISTATUS] [ENDIF] [# [IF NOINT is <38>] [store <341> in outcome] [store <41> in ACTION][store <4> in ISTATUS] [ENDIF] [# [goto CPTYPECK] ---------------------------------------------------------------------- AMERICAN HOUSING SURVEY - 2001 National (CONTROL CARD - DEMO) =========================================================================== Date: 5/16/01 Programmer: Judy Hodges Cathy Walker Taz Chowdhury ------------------------------------------------------------------------------- >START_DEMOS< [section DEMOS] [goto WIN5] >WIN5< [window 5 start row 5 column 01] [window 5 size 20 rows 80 columns] [window 5 no border] [window 5 reference] >NEWHH_FLAG< [allow int 1] [# flag to reset NEWHH (added for callback to new households) >RINPUT_FLAG< [allow int 1] >REPLCE< [allow int 1] >DONE_ROSTER< [allow 1] [# FLAG SO THAT T_ROSTER WILL ONLY BE DONE ONCE (ADDED FOR RETURNING HH) >REL_FLAG< [allow int 1] [# FLAG-how ref person's flag should be set (1 = hh has rel of 22 in hh) [# (2 = someone in HH has a rel of 25,24,26,30) >NEWHH< [allow int 1] [# 1 = new case - no roster [# 2 = returning case - with roster >WHO< [allow int 2] >T_FNAME< [allow 20 for 30] >T_LNAME< [allow 20 for 30] >NAME< [allow 40 for 30] >T_SEX< [allow int 1 for 30] >T_REL< [allow int 2 for 30] >T_REL2< [allow int 2 for 30] >T_AGE< [allow 3 for 30] >T_MAR< [allow 1 for 30] >T_MARFLAG< [allow 1 for 30] [#FLAG FOR IF SPOUS LINE NUMBER IS PLUGGED AT LNSPOUSE >T_SPOUS< [allow int 2 for 30] >RELATION< [allow 11] >F_NEWLIV< [allow int 1] [store <0> in F_NEWLIV] >F_CHANGE< [allow int 1] [store <0> in F_CHANGE] >SKIPFLAG< [allow int 1 for 30] [#marks deletion of a person] >HTYPEFILL< [allow 25] >HTYPEFILL2< [allow 65] >HTYPEFILL3< [allow 30] >LAST_NAME< [allow 20] >PCNT< [allow int 2] [# total number of HOUSEHOLD MEMBERS - does not include deleted people >HIGH_LNO< [allow int 2] [# greatest line number allowable >SPIX< [allow int 2] [# LINE NUMBER of spouse >SP_FLAG< [allow int 1] [# USED IN LN SPOUSE EDIT >DADIX< [allow int 2] [# LINE NUMBER of dad >MOMIX< [allow int 2] [# LINE NUMBER of mom >REF_NAME< [allow 41] [# reference person's first name USED IN SPOUSE EDITS >REF_FNAME< [allow 20] [# reference person's first name >REF_LNAME< [allow 20] [# reference person's first name >REF_SEX< [allow 1] [# reference person's sex >REF_LNO< [allow int 2] [# reference person's line number >VER_AGEFLAG< [allow int 1] ---------------------------------------------------------------------- >CC_BEGIN< [if MARK le <14>] [store <14> in MARK] [endif] [# IF THE CASE WAS A VACANT, URE OR NOINTERVIEW LAST TIME [If I_ISTATUS eq <2> OR I_ISTATUS eq <3> OR I_ISTATUS eq <4> or i_istatus eq <> goto SET_REPLACE] [if I_INCSAM eq <0> goto STILIV1] [# RETURNING HOUSEHOLD [if REPLHH eq <2> goto SET_REPLACE] [goto APPEND_PER] ---------------------------------------------------------------------- >STILIV1< [window 3 size 21 rows 80 columns] [display T_SHOROS] [IF START_CP is

] [store in temp2] [ELSE] [store in temp2] [ENDIF] I have listed (READ NAMES ABOVE) Are all of these persons still living or staying [fill temp2]? (1) Yes (2) No (3) UNdelete a person @ [@] <1> [goto @1] <2> [goto STILIV2] <3> [goto UNDEL_WHO] [missing] [goto @1] [@1] [store <2> in NEWHH] [store <0> in replce] [store <2> in replhh] [goto SET_QCLNO] ------------------------------------------------------------------------ >UNDEL_WHO< [window 3 size 21 rows 80 columns] [display T_UNDEL] ** DO NOT READ ** ENTER LINE NUMBER OF PERSON TO UNDELETE @ [@] <1-30> [reject gt HIGH_LNO label ] [reject eq XBAD label ] ------------------------------------------------------------------------- >UNDEL_WHO2< [roster begin persons] [if L_NO eq UNDEL_WHO goto UNDEL_WHO3] [goto UNDEL_WHO4] >UNDEL_WHO3< [store <0> in SKIPFLAG(L_NO)] [store <1> in USUAL] [store <1> in HHMEM] [store <0> in DELPER] [store <0> in PSCODE] [store (PCNT + <1>) in PCNT] -------------------------------------------------------------------- >UNDEL_WHO4< [roster end persons] >UNDEL_WHO5< [reset STILIV1] [goto STILIV1] ---------------------------------------------------------------------- >STILIV2< [display T_SHOROS] ** ASK IF NECESSARY ** Do [bold]ANY[n] of these people still live at this address? (1) Yes (2) No @ [@] <1,D,R> [goto @2] <2> [goto CHECK_REP] [@2] [store <2> in NEWHH] Reset to returning household [store <0> in REPLCE] [store <2> in REPLHH] [goto NOLIVE_win] ------------------------------------------------------------------------- >CHECK_REP< ** INTERVIEWER CHECK ITEM ** You are about to make this case a replacement household. Enter (M) for mistake (P) to make case a replacement household @ [@] [etc ]

[goto @1] [@1] [store <1> in NEWHH] Changed to new household [store <1> in REPLCE] [store <1> in REPLHH] [goto SET_REPLACE] ---------------------------------------------------------------------- >NOLIVE_win< [window 4 displays] [window 4 start row 5 column 37] [window 4 size 20 rows 41 columns] [window 4 no border] [window 4 line left] >NOLIVE< [window 3 size 20 rows 35 columns] [display T_NOLIVE window 4] [missing ] Who no longer lives here? ENTER LINE NUMBER OR (N) FOR NO MORE. @1 @2 @3 @4 @5 @6 [@1] <1-30> [missing] [goto CK_LEFT2] [@2] <1-30> [goto NOLIVE_PRE] [@3] <1-30> [goto NOLIVE_PRE] [@4] <1-30> [goto NOLIVE_PRE] [@5] <1-30> [goto NOLIVE_PRE] [@6] <1-30> [goto NOLIVE_PRE] -------------------------------------------------------------------- >NOLIVE_PRE< [roster begin PERSONS] [if L_NO eq NOLIVE@1 or L_NO eq NOLIVE@2 or L_NO eq NOLIVE@3 or L_NO eq NOLIVE@4 or L_NO eq NOLIVE@5 or L_NO eq NOLIVE@6] [goto WHYNO] [else] [goto CK_LEFT1] [endif] --------------------------------------------------------------------- >WHYNO< [window 3 size 20 rows 80 columns] ** ASK IF NECESSARY ** DO NOT READ THE CATEGORIES TO THE RESPONDENT Why does [fill fname] [fill lname] no longer live here? (1) Moved Away (2) Deceased (3) Included in error in a previous interview (4) Mistake, should not be deleted (5) Other @ [@] <1-3,5,D,R> [goto LFTDATE] <4> [goto CK_LEFT1] --------------------------------------------------------------------- >LFTDATE< [store month in PSMO] [store year in PSYR1] [store <1> in SKIPFLAG(L_NO)] [store <2> in USUAL] [store <2> in HHMEM] [store <1> in DELPER] [IF WHYNO eq <1>] [store <2> in PSCODE] [store <9> in PELIG] [ENDIF] [IF WHYNO eq <2>] [store <1> in PSCODE] [store <10> in PELIG] [ENDIF] [IF WHYNO eq <5>] [store <3> in PSCODE] [store <8> in PELIG] [ENDIF] [store (PCNT - <1>) in PCNT] [If REL eq <20>] [store <> in SPIX] [store <> in P_SPIX] [ENDIF] [If REL eq <24>] [IF sex eq <2>] [store <> in MOMIX] [store <> in P_MOMIX] [ELSE] [store <> in DADIX] [store <> in P_DADIX] [ENDIF] [ENDIF] [IF REL eq <01> OR REL eq <1>] [store <> in SPIX] [store <> in P_SPIX] [store <> in MOMIX] [store <> in P_MOMIX] [store <> in DADIX] [store <> in P_DADIX] [ENDIF] [IF REL eq <01> OR REl eq <1> OR REL eq <02> OR REL eq <2>] [store <1> in NEW_REFPER] [ENDIF] -------------------------------------------------------------------- >CK_LEFT1< [roster end PERSONS] [goto CK_LEFT2] ---------------------------------------------------------------------- >CK_LEFT2< CHECK TO SEE IF ALL HHMEMBERS HAVE BEEN DELETED [store <0> in index] [store <0> in PCNT] [roster begin persons] [IF skipflag(L_NO) eq <1>] [add <1> to index] [ENDIF] [IF HHMEM eq <1>] [add <1> to PCNT] [ENDIF] [roster end persons] >CK_LEFT3< [IF index eq NROSIZE] [store <1> in NEWHH] Changed to new household [store <1> in REPLCE] [store <1> in REPLHH] [goto SET_REPLACE] [ENDIF] [store <2> in NEWHH] Reset to returning household [store <0> in REPLCE] (Back up protection) [store <2> in REPLHH] [goto SET_QCLNO] --------------------------------------------------------------------- >SET_REPLACE< [store <1> in NEWHH] [store <1> in NEWHH_FLAG] [roster begin persons] [store <0> in P_PX] [store <0> in P_REF_LNO] [store <0> in P_SPIX] [store <0> in P_DADIX] [store <0> in OLDPER] [store <0> in PCNT] [store <0> in SKIPFLAG(L_NO)] [store <> in HHMEM] [store <> in DELPER] [store <> in FNAME] [store <> in T_FNAME(L_NO)] [store <> in LNAME] [store <> in T_LNAME(L_NO)] [store <> in NAME(L_NO)] [store <> in SEX] [store <> in T_SEX(L_NO)] [store <> in AGE] [store <> in RACE] [store <> in ORIGN] [store <> in NATVTY] [store <> in CITIZN] [store <> in CTZNA] [store <> in CTZNB] [store <> in INUSYR] [store <> in EDUC] [store <> in BRTHM] [store <> in BRTHD] [store <> in BRTHY] [store <> in HHMEM] [store <> in pscode] [store <> in psmo] [store <> in psyr] [store <> in pelig] [store <> in URE] [store <> in REL] [store <> in T_REL(L_NO)] [store <> in USUAL] [store <> in MAR] [store <> in T_MAR(L_NO)] [store <> in spous] [store <> in SPIX] [store <> in P_SPIX] [store <> in DADIX] [store <> in P_DADIX] [store <> in MOMIX] [store <> in P_MOMIX] [roster end persons] >SET_REPLACE2< [goto APPEND_PER] ---------------------------------------------------------------------- >APPEND_PER< [store <1> in RINPUT_FLAG] [goto RINPUT] [roster begin persons] ROSTER LEVEL VARIABLES >P_PX< [allow int 2] [store <0> in P_PX] local counter (USED FOR SUBSCRIPTING) >P_REF_LNO< [allow int 2] LINE # OF REFERENCE PERSON >P_SPIX< [allow int 2] LINE # OF SPOUSE OF REFERENCE PERSON >P_DADIX< [allow int 2] LINE # OF DAD OF REFERENCE PERSON >P_MOMIX< [allow int 2] LINE # OF MOM OF REFERENCE PERSON >X< [allow int 2] local variable >ADDPER< [allow 1] FLAG-ADD TO HOUSEHOLD >DELPER< [allow 1] FLAG-DELETE FROM HOUSEHOLD >HHMEM< [allow 1] FLAG-HHMEM = (1) = YES (2) = NO >MOVYEAR< [allow 4] >MOVE< [allow 4] [equiv MOVYEAR] [# CODEBOOK NAME ] >MOVYR< [allow 4] [equiv MOVYEAR] [#position 3] >MOVM< [allow 2] >OLDPER< [allow 1] CW* >fname< [allow 20] CW* >lname< [allow 20] CW* >rel< [allow int 2] >par< [allow 2] >brthm< [allow 2] >brthd< [allow 2] >brthy< [allow 4] >brthd_i< [allow 2] >age< [allow 3] >sex< [allow int 1] >race< [allow 1] >orign< [allow 1] >SPAN< [allow 1] [equiv ORIGN] [# CODE BOOK VARIABLE ] >mar< [allow 1] >spous< [allow int 2] >spos< [allow int 2] [equiv SPOUS] [# CODE BOOK VARIABLE ] >educ< [allow 2] >GRAD< [allow 2] [equiv EDUC] [# CODEBOOK NAME] >pscode< [allow 1] >NEWPERSON<[allow 1] >psmo< [allow 2] >psyr< [allow 4] >psyr1< [allow 4] [equiv PSYR] [#position 3] >ADDWHY< [allow 1] WHY PERSON ADDED TO THE HOUSEHOLD >PELIG< [allow int 2 for 30] [#persons eligibility status] [# 1 = HHMEM 14+ [# 2 = [# 3 = [# 4 = [# 5 = HHMEM BUT AGE IS MISSING [# 6 = [# 7 = HHMEM UNDER 14 [# 8 = URE [# 9 = DELETED [#10 = DECEASED >NATVTY< [allow 3] >CITIZN< [allow 1] >CTZNA< [allow 1] >CTZNB< [allow 1] >INUSYR< [allow 4] --------------------------------------------------------------------- [# collect information for new household >COUNT< [IF T_NROSIZE eq <0>] [add <1> to T_NROSIZE] [endif] ------------------------------------------------------------ >RPNAME< [store <0> in OLDPER] [window 3 size 20 rows 80 columns] What are the names of all persons living or staying here? Start with the name of the person, or one of the persons, who owns or rents this home. FIRST NAME @FNAME LAST NAME @LNAME [@FNAME] [allow 20] [goto @1] [@LNAME] [allow 20] [goto @3] [@1] [store RPNAME@FNAME in T_FNAME(<1>)] [store RPNAME@FNAME in FNAME] [goto @LNAME] [@3] [store RPNAME@LNAME in LAST_NAME] [make name(<1>) from RPNAME@FNAME < > RPNAME@LNAME] [store RPNAME@LNAME in LNAME] [store RPNAME@LNAME in T_LNAME(<1>)] ------------------------------------------------------------------------------------- >USUAL< Does [fill RPNAME@FNAME] [fill RPNAME@LNAME] usually live here? (1) Yes (2) No @ [@] <1-2> [goto @1] [@1] [IF USUAL eq <1>] [store <1> in HHMEM] [goto RPSEX] [ENDIF] ------------------------------------------------------------ >URE< Does [fill RPNAME@FNAME] [fill RPNAME@LNAME] have some other place where you/he/she usually lives? (1) Yes (2) No @ [@] <1-2> [goto @1] [@1] [if URE eq <2>] [store <1> in HHMEM] [goto RPSEX] [ELSE] [store <2> in HHMEM] [goto MORPER] [ENDIF] ----------------------------------------------------------------------- >RPSEX< [bold]Ask if not apparent:[normal] Is [fill RPNAME@FNAME] [fill RPNAME@LNAME] Male or Female? (1) Male (2) Female @ [@] <1-2> [missing] [missing] [default goto @1] [@1] [store RPSEX in T_SEX(<1>)] [store RPSEX in SEX] --------------------------------------------------------------------- >RPREL< [allow int 2] ------------------------------------------------------------------ >MORPER< Is anyone else living or staying at this address now? (1) Yes (2) No @ [@] <1> <2> ---------------------------------------------------------------------- >CLOSE_PER< [if MORPER is <2> goto CLOSE_PERS] [if MORPER is goto CLOSE_PERS] [if MORPER is goto CLOSE_PERS] ------------------------------------------------------------------------ >APND_PERS2< [goto RINPUT2a] >SET< [store <0> in OLDPER] [store <0> in P_SPIX] [store SPIX in P_SPIX] [store <0> in P_DADIX] [store DADIX in P_DADIX] [store <0> in P_MOMIX] [store MOMIX in P_MOMIX] [store <0> in P_REF_LNO] [store REF_LNO in P_REF_LNO] [store LAST_NAME in NEXTNM@LNAME] ------------------------------------------------------------------------- >NEXTNM< [equiv RPNAME@FNAME] Who else is living or staying here? FIRST NAME @FNAME LAST NAME @LNAME [@FNAME] [allow 20] [goto @1] [@LNAME] [allow 20] [goto @3] [@1] [if P_PX eq <0> or P_PX eq <>] [add <1> to T_NROSIZE] [store T_NROSIZE in P_PX] [endif] [store NEXTNM@FNAME in T_FNAME(P_PX)] [store NEXTNM@FNAME in FNAME] [goto @LNAME] [@3] [store NEXTNM@LNAME in T_LNAME(P_PX)] [store NEXTNM@LNAME in LAST_NAME] [store NEXTNM@LNAME in LNAME] [make name(P_PX) from NEXTNM@FNAME < > NEXTNM@LNAME] ------------------------------------------------------------------------ >NXTLIV< [equiv USUAL] Does [fill RPNAME@FNAME] [fill RPNAME@LNAME] usually live here? (1) Yes (2) No @ [@] <1-2> [goto @1] [@1] [if NXTLIV eq <1>] [store <1> in HHMEM] [goto NXTSEX] [endif] ---------------------------------------------------------------------- >NXTure< [equiv URE] Does [fill RPNAME@FNAME] [fill RPNAME@LNAME] have some other place where you/he/she usually lives? (1) Yes (2) No @ [@] <1-2> [goto @1] [@1] [if NXTure eq <2>] [store <1> in HHMEM] [goto NXTSEX] [ELSE] [store <2> in HHMEM] [goto MOREPER] [endif] -------------------------------------------------------------------------- >NXTSEX< [equiv RPSEX] [bold]Ask if not apparent:[normal] Is [fill RPNAME@FNAME] [fill RPNAME@LNAME] Male or Female? (1) Male (2) Female @ [@] <1-2> [goto @1] [missing] [missing] [default goto @1] [@1] [store NXTSEX in T_SEX(P_PX)] [store NXTSEX in SEX] ------------------------------------------------------------------- >MOREPER< [equiv MORPER] Is anyone else living or staying at this address now? ENTER (1) YES TO ADD NEXT PERSON (1) Yes (2) No @ [@] <1> <2> -------------------------------------------------------------------------- >CK_PERS< [if MOREPER is <2> goto CLOSE_PERS] [if MOREPER is goto CLOSE_PERS] [if MOREPER is goto CLOSE_PERS] [if MOREPER eq <1> and T_nrosize lt <30> goto APND_PERS2] ---------------------------------------------------------------------- *** TEMPLATE SECTION *** ---------------------------------------------------------------------- >T_ROSTER< [template] [# USED FOR START SCREENS] [if DONE_ROSTER eq <0>] [store <0> in NROSIZE] [endif] [roster begin persons] [if DONE_ROSTER eq <0>] [store I_FNAME in FNAME] [store <1> in OLDPER] [store I_LNAME in LNAME] [store I_SEX in SEX] [store I_REL in REL] [store I_AGE in AGE] [store I_BRTHM in BRTHM] [store I_BRTHD in BRTHD] [store I_BRTHY in BRTHY] [store I_MAR in MAR] [store I_SPOUS in SPOUS] [store I_MOVYR in MOVYEAR] [store I_MOVM in MOVM] [store I_HHMEM in HHMEM] [store I_PAR in PAR] [store I_PSCODE in PSCODE] [IF PSCODE eq <1> OR PSCODE eq <2> OR PSCODE eq <3>] [store <2> in HHMEM] [ELSE] [store <1> in HHMEM] [ENDIF] [if i_movm le <9>] [make movm from <0> i_movm] [else] [store i_movm in movm] [endif] [store I_PSMO in PSMO] [store I_PSYR in PSYR] [store I_EDUC in EDUC] [store I_RACE in RACE] [store I_ORIGN in ORIGN] [store I_NATVTY in NATVTY] [store I_CITIZN in CITIZN] [store I_CTZNA in CTZNA] [store I_CTZNB in CTZNB] [store I_INUSYR in INUSYR] [add <1> to NROSIZE] [store NROSIZE in L_NO] [store I_SPOUS in T_SPOUS(L_NO)] [store NROSIZE in HIGH_LNO] [store NROSIZE in PCNT] [if BRTHM is OR BRTHY is OR BRTHD is OR BRTHM is <> OR BRTHD is <> OR BRTHY is <> or BRTHM is OR BRTHY is OR BRTHD is ] [else] [store <0> in index4] [setdate date] [store {int}year in index4] [#add <1900> to index4] [if {int}BRTHM lt {int}month OR ({int}BRTHM eq {int}month and {int}BRTHD le {int}day)] [store (index4 - {int}BRTHY) in AGE] [else] [store ((index4 - {int}BRTHY) - <1>) in AGE] [endif] [endif] [store AGE in T_AGE(L_NO)] [store I_FNAME in T_FNAME(L_NO)] [store I_LNAME in T_LNAME(L_NO)] [make NAME(L_NO) from FNAME < > LNAME] [store HHMEM in USUAL] [store I_OWNRENT in TEN(L_NO)] [store I_SEX in T_SEX(L_NO)] [store I_REL in T_REL(L_NO)] [store I_MAR in T_MAR(L_NO)] [if REL eq <1> OR REL eq <01> OR REL eq <2> OR REL eq <02>] [store FNAME in REF_FNAME] [store LNAME in REF_LNAME] [store SEX in REF_SEX] [store L_NO in REF_LNO] [endif] [if REL eq <20>] [store L_NO in SPIX] [endif] [if I_REL eq <24>] [if SEX eq <2>] [store L_NO in MOMIX] [else] [store L_NO in DADIX] [endif] [endif] [store REF_LNO in P_REF_LNO] [store SPIX in P_SPIX] [store DADIX in P_DADIX] [store MOMIX in P_MOMIX] [store LNAME in LAST_NAME] [store I_HHRESP in respline] [endif] [roster end persons] [if respline isnt <0> AND respline isnt <> AND respline isnt <88>] [make respname from T_FNAME(respline) < > T_LNAME(respline)] [endif] [IF NROSIZE eq <0>] [store <1> in NEWHH] [ELSE] [store <2> in NEWHH] [ENDIF] [store <1> in DONE_ROSTER] [end] >HHROS< [template] [# USED FOR HHRESP, MISSINGPERS AND OTHER FRONT [#SCREENS HOUSEHOLD ROSTER LINE NAME [loop for index from <1> to <30>] [store <0> in xbad(index)] [loop end] [roster begin persons] [if L_NO isnt <>] [if SKIPFLAG(L_NO) eq <1> OR HHMEM eq <2>] [store L_NO in xbad(L_NO)] [else] [if respline eq L_NO] [store <*> in T_RESP] [else] [store <> in T_RESP] [endif] [fill T_RESP:b] [fill L_NO] [fill FNAME] [fill LNAME] [endif] [endif] [roster end persons] >T_INTROPT< [template] [# USED FOR INTRO_PT ] [loop for index from <1> to <30>] [store <0> in xbad(index)] [loop end index] [store <0> in index] [IF MARK eq <16> OR MARK eq <18>] [r][u]ELIGIBLE RESPONDENTS FOR MORTGAGE[n][n] LN NAME [ENDIF] [roster begin persons] [store <0> in index2] [If TEN(L_NO) is ] [store SPOUS in index2] [ENDIF] [loop for X from <1> to <30>] [If X eq index2] [store <1> in xbad(X)] [ENDIF] [loop end X] [roster end persons] [roster begin persons] [IF MARK eq <16> OR MARK eq <18>] [if L_NO isnt <> AND SKIPFLAG(L_NO) ne <1>] [store TEN(L_NO) in index] [IF TEN(L_NO) is OR xbad(L_NO) eq <1>] [if respline eq L_NO] [store <*> in T_RESP] [else] [store <> in T_RESP] [endif] [fill T_RESP:b] [fill L_NO] [fill FNAME] [fill LNAME] [ENDIF] [ENDIF] [ENDIF] [roster end persons] [IF MARK eq <17> OR MARK eq <18>] [r][u]NONRELATIVE INCOME NEEDED FOR:[n][n] LN NAME [ENDIF] [roster begin persons] [IF MARK eq <17> OR MARK eq <18>] [if L_NO isnt <> AND SKIPFLAG(L_NO) ne <1> AND NRIPLUS1 eq <2>] [if respline eq L_NO] [store <*> in T_RESP] [else] [store <> in T_RESP] [endif] [fill T_RESP:b] [fill L_NO] [fill FNAME] [fill LNAME] [endif] [endif] [roster end persons] >T_MMORT< [template] [# USED FOR MMORTOPEN ] [loop for index from <1> to <30>] [store <0> in xbad(index)] [store index in xbad2(index)] [loop end index] [store <0> in index] [IF MARK eq <16> OR MARK eq <18>] [r][u]ELIGIBLE RESPONDENTS FOR MORTGAGE[n][n] LN NAME [ENDIF] [roster begin persons] [store <0> in index2] [If TEN(L_NO) is ] [store SPOUS in index2] [ENDIF] [loop for X from <1> to <30>] [If X eq index2] [store <1> in xbad(X)] [ENDIF] [loop end X] [roster end persons] [roster begin persons] [IF MARK eq <16> OR MARK eq <18>] [if L_NO isnt <> AND SKIPFLAG(L_NO) ne <1>] [store TEN(L_NO) in index] [IF TEN(L_NO) is OR xbad(L_NO) eq <1>] [if respline eq L_NO] [store <*> in T_RESP] [else] [store <> in T_RESP] [endif] [store <0> in xbad2(L_NO)] [fill T_RESP:b] [fill L_NO] [fill FNAME] [fill LNAME] [ENDIF] [ENDIF] [ENDIF] [roster end persons] >T_RTNUM< [template] HOUSEHOLD ROSTER LN NAME AGE [roster begin persons] [if L_NO isnt <>] [if SKIPFLAG(L_NO) eq <1> OR HHMEM eq <2>] [else] [if respline eq L_NO] [store <*> in T_RESP] [else] [store <> in T_RESP] [endif] [fill T_RESP:b] [fill L_NO:0] [fill FNAME:l] [fill LNAME:l] [fill AGE] [endif] [endif] [roster end persons] >wins9< [window 4 displays] [window 4 start row 5 column 37] [window 4 size 20 rows 41 columns] [window 4 no border] [window 4 line left] ------------------------------------------------------------------------------- >D_SEX< [allow 1] [equiv MOREPER position 2] >D_MAR< [allow 2] >T_RESP< [allow 1] >T_HH< [allow 1] -------------------------------------------------------------------- >HHROS1< [template] HOUSEHOLD ROSTER LN NAME REL AGE [roster begin persons] [if L_NO isnt <> and L_NO ne <0>] [else] [fill L_NO:1] [fill FNAME:1] [fill LNAME:1] [fill REL] [fill AGE] [endif] [roster end persons] [end] >T_USUALLY< [template] [loop for index from <1> to <30>] [store <0> in xbad(index)] [loop end index] HOUSEHOLD ROSTER LN NAME [roster begin persons] [if L_NO is <> OR L_NO eq <0> OR HHMEM eq <2> OR FNAME is <>] [store L_NO in xbad(L_NO)] [else] [store <0> in xbad(L_NO)] [fill L_NO:0] [fill FNAME:l] [fill LNAME:l] [endif] [roster end persons] [end] >T_UNDEL< [template] [loop for index from <1> to <30>] [store <0> in xbad(index)] [loop end index] HOUSEHOLD ROSTER LN NAME [roster begin persons] [if L_NO is <> OR L_NO eq <0> OR HHMEM eq <1> OR FNAME is <>] [store L_NO in xbad(L_NO)] [else] [fill L_NO:0] [fill FNAME:l] [fill LNAME:l] [endif] [roster end persons] [end] >T_SHOROS<[template][# USED FOR THE SHOROS SCREENS IN FRONT] HH R LN NAME SEX REL AGE MAR LPR [roster begin persons] [if SKIPFLAG(L_NO) eq <1> AND FNAME is <>] [else] [IF HHMEM eq <1>] [store in T_HH] [ENDIF] [if respline eq L_NO] [store <*> in T_RESP] [else] [store <> in T_RESP] [endif] [if REL eq <1> OR REL eq <01> OR REL eq <2> OR REL eq <02>] [store in RELATION] [endif] [if REL eq <20>] [store in RELATION] [If SEX is <1>] [store in RELATION] [ENDIF] [If SEX is <2>] [store in relation] [endif] [endif] [if REL eq <21>] [store in RELATION] [endif] [if REL eq <22>] [store in RELATION] [If SEX is <1>] [store in RELATION] [ENDIF] [If SEX is <2>] [store in relation] [endif] [endif] [if REL eq <23>] [store in RELATION] [If SEX is <1>] [store in RELATION] [endif] [If SEX is <2>] [store in relation] [endif] [endif] [if REL eq <24>] [store in RELATION] [If SEX is <1>] [store in RELATION] [ENDIF] [If SEX is <2>] [store in relation] [endif] [endif] [if REL eq <25>] [store in RELATION] [If SEX is <1>] [store in RELATION] [endif] [If SEX is <2>] [store in relation] [endif] [endif] [if REL eq <26>] [store in RELATION] [endif] [if REL eq <27>] [store in RELATION] [endif] [if REL ge <28>] [store in RELATION] [endif] [IF PSCODE eq <1>] [store in RELATION] [ENDIF] [IF PSCODE eq <2>] [store in RELATION] [ENDIF] [IF PSCODE eq <3>] [store in RELATION] [ENDIF] [if MAR eq <1> OR MAR eq <2>] [store in D_MAR] [endif] [if MAR eq <3>] [store in D_MAR] [endif] [if MAR eq <4>] [store in D_MAR] [endif] [if MAR eq <5>] [store in D_MAR] [endif] [if MAR eq <6>] [store in D_MAR] [endif] [fill T_HH:b] [fill T_RESP:b] [fill L_NO:l] [fill FNAME:l] [fill LNAME:l] [fill sex] [fill RELATION:l] [fill AGE:r] [fill D_MAR:l] [fill PAR] [endif] [roster end persons] [end] >T_HHROS< [template] [# USED FOR SHIFT-F2] H R LN NAME SX REL ED RC OR MR AGE [store <0> in nrosize] [# used to recount line numbers for display 4-26-2000 [roster begin persons] [if SKIPFLAG(L_NO) eq <1> AND FNAME is <>] [else] [add <1> to nrosize] [store nrosize in tline] [IF HHMEM eq <1>] [store in T_HH] [ELSE] [store < > in T_HH] [ENDIF] [if respline eq L_NO] [store <*> in T_RESP] [else] [store <> in T_RESP] [endif] [if REL eq <1> OR REL eq <01> OR REL eq <2> OR REL eq <02>] [store in RELATION] [endif] [if REL eq <20>] [store in RELATION] [If SEX is <1>] [store in RELATION] [ENDIF] [If SEX is <2>] [store in relation] [endif] [endif] [if REL eq <21>] [store in RELATION] [endif] [if REL eq <22>] [store in RELATION] [If SEX is <1>] [store in RELATION] [ENDIF] [If SEX is <2>] [store in relation] [endif] [endif] [if REL eq <23>] [store in RELATION] [If SEX is <1>] [store in RELATION] [endif] [If SEX is <2>] [store in relation] [endif] [endif] [if REL eq <24>] [store in RELATION] [If SEX is <1>] [store in RELATION] [ENDIF] [If SEX is <2>] [store in relation] [endif] [endif] [if REL eq <25>] [store in RELATION] [If SEX is <1>] [store in RELATION] [endif] [If SEX is <2>] [store in relation] [endif] [endif] [if REL eq <26>] [store in RELATION] [endif] [if REL eq <27>] [store in RELATION] [endif] [if REL ge <28>] [store in RELATION] [endif] [IF PSCODE eq <3> OR HHMEM eq <2>] [store in RELATION] [ENDIF] [IF PSCODE eq <1>] [store in RELATION] [ENDIF] [IF PSCODE eq <2>] [store in RELATION] [ENDIF] [if MAR eq <1> OR MAR eq <2>] [store in D_MAR] [endif] [if MAR eq <3>] [store in D_MAR] [endif] [if MAR eq <4>] [store in D_MAR] [endif] [if MAR eq <5>] [store in D_MAR] [endif] [if MAR eq <6>] [store in D_MAR] [endif] [if MAR eq <>] [store <> in D_MAR] [endif] [fill T_HH:b] [fill T_RESP:b] [fill tline:l] [fill FNAME:l] [fill LNAME:l] [fill sex:l] [fill RELATION:l] [fill EDUC:l] [fill RACE:l] [fill ORIGN:l] [fill D_MAR:l] [fill AGE] [endif] [roster end persons] [end] >CHNG2< [template] [# USED FOR THE CHANGE-WHAT SCREEN] HOUSEHOLD ROSTER LN NAME REL ED RC OR SX MAR AGE [roster begin persons] [if L_NO ne CHANGE] [else] [if REL eq <1> OR REL eq <01> OR REL eq <2> OR REL eq <02>] [store in RELATION] [endif] [if REL eq <20>] [store in RELATION] [If SEX is <1>] [store in RELATION] [ENDIF] [If SEX is <2>] [store in relation] [endif] [endif] [if REL eq <21>] [store in RELATION] [endif] [if REL eq <22>] [store in RELATION] [If SEX is <1>] [store in RELATION] [ENDIF] [If SEX is <2>] [store in relation] [endif] [endif] [if REL eq <23>] [store in RELATION] [If SEX is <1>] [store in RELATION] [endif] [If SEX is <2>] [store in relation] [endif] [endif] [if REL eq <24>] [store in RELATION] [If SEX is <1>] [store in RELATION] [ENDIF] [If SEX is <2>] [store in relation] [endif] [endif] [if REL eq <25>] [store in RELATION] [If SEX is <1>] [store in RELATION] [endif] [If SEX is <2>] [store in relation] [endif] [endif] [if REL eq <26>] [store in RELATION] [endif] [if REL eq <27>] [store in RELATION] [endif] [if REL ge <28>] [store in RELATION] [endif] [if MAR eq <1> OR MAR eq <2>] [store in D_MAR] [endif] [if MAR eq <3>] [store in D_MAR] [endif] [if MAR eq <4>] [store in D_MAR] [endif] [if MAR eq <5>] [store in D_MAR] [endif] [if MAR eq <6>] [store in D_MAR] [endif] [if respline eq L_NO] [store <*> in T_RESP] [else] [store <> in T_RESP] [endif] [fill L_NO:l] [fill FNAME:l] [fill LNAME:l] [fill RELATION:l] [fill EDUC:l] [fill RACE:l] [fill ORIGN:l] [fill sex:l] [fill D_MAR:l] [fill AGE:l] [endif] [roster end persons] [end] >T_NOLIVE< [template] LN NAME [roster begin persons] [if SKIPFLAG(L_NO) eq <1> OR HHMEM ne <1> OR Fname is <>] [else] [if respline eq L_NO] [store <*> in T_RESP] [else] [store <> in T_RESP] [endif] [fill L_NO:0] [fill FNAME:l] [fill LNAME:l] [endif] [roster end persons] [end] >HHELIG< [template] HOUSEHOLD ROSTER LINE NAME [roster begin persons] [if skipflag(L_NO) eq <1> or URE eq <1> or AGE lt <16>] [else] [if respline eq L_NO] [store <*> in T_RESP] [else] [store <> in T_RESP] [endif] [fill t_resp:b] [fill L_NO] [fill FNAME] [fill LNAME] [endif] [roster end persons] [end] ---------------------------------------------------------------------- ---------------------------------------------------------------------- >CLOSE_PERS< [goto RINPUT2] [roster end persons] ------------------------------------------------------------------------- >CK_PERS2< [if nrosize lt <30> goto BEG_PER1] [goto MAXPER] >MAXPER< NOTE: A MAXIMUM OF 30 PEOPLE MAY BE INTERVIEWED IN ANY HOUSEHOLD. THE LIMIT HAS BEEN REACHED NO QUESTIONS WILL BE ASKED FOR ANY ADDITIONAL PEOPLE [normal] ENTER (P) TO PROCEED @ [@]

------------------------------------------------------------ >BEG_PER1< [store <0> in NROSIZE] [store <0> in INDEX] [roster begin persons] ------------------------------------------------------------ >Go_PER< [goto LNO] ------------------------------------------------------------ >LNO< [allow int 2] >L_NO< [allow int 2] [equiv LNO] [add <1> to NROSIZE] [store NROSIZE in L_NO] [store NROSIZE in HIGH_LNO] [store NROSIZE in PCNT] ------------------------------------------------------------ >PLINE< [allow int 2] [equiv LNO] [# CODEBOOK NAME] >TLINE< [allow int 2] [# used as fill for reordering line numbers >END_PER1< [roster end persons] >BEG_PER2< [store NROSIZE in PCNT] [roster begin persons] >SET_DEL1< [store <0> in SKIPFLAG(L_NO)] [add <1> to INDEX] [if INDEX eq <1>] [if RPNAME@FNAME offpath] [store <2> in HHMEM] [store <1> in SKIPFLAG(L_NO)] [store (PCNT - <1>) in PCNT] [#store (nrosize - <1>) in nrosize] [store <> in FNAME] [store <> in T_FNAME(L_NO)] [store <> in NAME(L_NO)] [store <> in LNAME] [store <> in T_LNAME(L_NO)] [store <> in SEX] [store <> in T_SEX(L_NO)] [store <> in AGE] [store <> in RACE] [store <> in ORIGN] [store <> in NATVTY] [store <> in CITIZN] [store <> in CTZNA] [store <> in CTZNB] [store <> in INUSYR] [store <> in EDUC] [store <> in BRTHM] [store <> in BRTHD] [store <> in BRTHY] [store <> in REL] [store <> in T_REL(L_NO)] [store <> in USUAL] [store <> in MAR] [store <> in T_MAR(L_NO)] [store <> in spous] [endif] [else] [if NEXTNM@FNAME offpath] [store <1> in SKIPFLAG(L_NO)] [store <2> in HHMEM] [store (PCNT - <1>) in PCNT] [#store (nrosize - <1>) in nrosize] [store <> in FNAME] [store <> in T_FNAME(L_NO)] [store <> in LNAME] [store <> in T_LNAME(L_NO)] [store <> in NAME(L_NO)] [store <> in SEX] [store <> in T_SEX(L_NO)] [store <> in AGE] [store <> in RACE] [store <> in ORIGN] [store <> in NATVTY] [store <> in CITIZN] [store <> in CTZNA] [store <> in CTZNB] [store <> in INUSYR] [store <> in EDUC] [store <> in BRTHM] [store <> in BRTHD] [store <> in BRTHY] [store <> in REL] [store <> in T_REL(L_NO)] [store <> in USUAL] [store <> in MAR] [store <> in T_MAR(L_NO)] [store <> in spous] [endif] [endif] [if DELPER eq <1>] [store <1> in SKIPFLAG(L_NO)] [store <2> in HHMEM] [store (PCNT - <1>) in PCNT] [endif] ------------------------------------------------------------ >END_PER2< [roster end persons] ------------------------------------------------------------ >BEG_PER2b< [store <0> in index] [roster begin persons] ------------------------------------------------------------ >UPDATE1< [if SKIPFLAG(L_NO) eq <1> goto END_PER2b] [if HHMEM eq <2>] [store <1> in SKIPFLAG(L_NO)] [endif] [if RPSEX eq T_SEX(L_NO)] [else] [store T_SEX(L_NO) in RPSEX] [endif] [store RPSEX in SEX] ------------------------------------------------------------ >END_PER2b< [roster end persons] >SET_QCLNO< [if NEWHH_FLAG eq <1>] [store <1> in NEWHH] [endif] [if NEWHH eq <1> goto CK_MSNGPRSN] NEW HOUSEHOLD ------------------------------------------------------------ >RTMSNG1< [window 3 size 20 rows 35 columns][display HHROS window 4] Have I missed-- any babies or small children? (1) Yes (2) No @1 [# Any lodgers, boarders, or persons you employ who live here? (1) Yes (2) No @2 [@1] <1> [etc ] <2> [@2] <1> [etc ] <2> -------------------------------------------------------------------- >RTMSNG2< [window 3 size 20 rows 35 columns][display HHROS window 4] Anyone who usually lives here but is away now, traveling for work or business, on vacation, or at school or in a hospital? (1) Yes (2) No @1 [# Anyone else staying here? (1) Yes (2) No @2 [@1] <1> [etc ] <2> [@2] <1> [etc ] <2> ---------------------------------------------------------------------- >ROSO6F< [store <0> in PCNT] [roster begin PERSONS] ------------------------------------------------------------------- >SR005< [store NROSIZE in HIGH_LNO] [if SKIPFLAG(L_NO) eq <1> goto ROSO6G] [If HHMEM eq <1>] [add <1> to PCNT] [ENDIF] ------------------------------------------------------------------- >UPDATE< [if ADDPER eq <1> and FNAME is <>][store <1> in SKIPFLAG(L_NO)] [store <2> in HHMEM] [goto ROSO6G] [endif] [if ure eq <1>] [store <1> in SKIPFLAG(L_NO)] [store <0> in ADDPER] [endif] [if SEX eq T_SEX(L_NO)] [else] [store T_SEX(L_NO) in SEX] [endif] [if REL eq T_REL(L_NO)] [else] [store T_REL(L_NO) in REL] [endif] >ROSO6G< [roster end PERSONS] --------------------------------------------------------------------- >CKURE< [allow 1] [store <0> in CKURE] [roster begin PERSONS] [if INCSAM eq <1>] [if (USUALLY eq <2> and URE eq <1>) or (NXTLIV eq <2> and NXTURE eq <1>)] [add <1> to CKURE] [goto CHANGE] [else] [store <0> in CKURE] [goto USUALLY] [endif] [endif] [roster end PERSONS] [if CKURE ge <1>] [goto CHANGE] [else] [goto USUALLY] [endif] --------------------------------------------------------------------- >USUALLY< [window 3 size 20 rows 35 columns] [display T_USUALLY window 4] [store in temp] [IF PCNT eq <1>] [store in temp] [ENDIF] [IF PCNT eq <2>] [store in temp] [ENDIF] Do [fill temp] [bold]usually[n] live here? (1) Yes (2) No @ [@] <1> [goto PRE_HHRESP] <2> [goto UREPN] ---------------------------------------------------------------------- >UREPN< [window 3 size 20 rows 35 columns] [display T_USUALLY window 4] [missing ] Who does not usually live here? ENTER LINE NUMBER OR (N) FOR NO MORE. @1 @2 @3 @4 @5 @6 [@1] <1-30> [goto CK2_LEFT2] [@2] <1-30> [goto UREPN_PRE] [@3] <1-30> [goto UREPN_PRE] [@4] <1-30> [goto UREPN_PRE] [@5] <1-30> [goto UREPN_PRE] [@6] <1-30> [goto UREPN_PRE] --------------------------------------------------------------------- >UREPN_PRE< [roster begin PERSONS] [if L_NO eq UREPN@1 or L_NO eq UREPN@2 or L_NO eq UREPN@3 or L_NO eq UREPN@4 or L_NO eq UREPN@5 or L_NO eq UREPN@6] [goto URE2] [else] [goto CK2_LEFT1] [endif] --------------------------------------------------------------------- >URE2< [store in temp] [if sex eq <1>] [store in temp] [endif] [IF sex eq <2>] [store in temp] [ENDIF] [# Does [fill FNAME] [fill LNAME] have some other place where [fill temp] usually lives? (1) Yes (2) No @ [@] <1-2> [goto @1] [@1] [store URE2 in URE] _______________________________________________________________________ >URE_LFTDATE< [If URE eq <2>] [store <1> in HHMEM] [store <0> in SKIPFLAG(L_NO)] [store <0> in DELPER] [store <1> in USUAL] [ELSE] [store <1> in SKIPFLAG(L_NO)] [store <2> in USUAL] [store <2> in HHMEM] [store <1> in DELPER] [store (PCNT - <1>) in PCNT] [ENDIF] -------------------------------------------------------------------- >CK2_LEFT1< [roster end PERSONS] [goto CK2_LEFT2] ---------------------------------------------------------------------- >CK2_LEFT2< CHECK TO SEE IF ALL HHMEMBERS HAVE BEEN DELETED [store <0> in index] [store <0> in PCNT] [roster begin persons] [IF skipflag(L_NO) eq <1>] [add <1> to index] [ENDIF] [IF HHMEM eq <1>] [add <1> to PCNT] [ENDIF] [roster end persons] >CK2_LEFT3< [IF index eq NROSIZE goto CHANGE] [store <2> in NEWHH] Reset to returning household [store <0> in REPLCE] (Back up protection) [store <2> in REPLHH] [goto PRE_HHRESP] --------------------------------------------------------------------- >CK_MSNGPRSN< [if MAXPER is

goto PRE_HHRESP] ---------------------------------------------------------------------- >MSNGPRSN< [window 3 size 20 rows 35 columns] [display HHROS window 4] I have listed: READ NAMES Have I missed-- any babies or small children? (1) Yes (2) No @1 Any lodgers, boarders, or persons you employ who live here? (1) Yes (2) No @2 [@1] <1> [etc ] <2> [@2] <1> [etc ] <2> --------------------------------------------------------------------- >MSNGPR2< [window 3 size 20 rows 35 columns][display HHROS window 4] Anyone who usually lives here but is away now, traveling for work or business, on vacation, or at school or in a hospital? (1) Yes (2) No @1 [# Anyone else staying here? (1) Yes (2) No @2 [@1] <1> [etc ] <2> [@2] <1> [etc ] <2> -------------------------------------------------------------------------- >indx2< [allow int 2] >PRE_HHRESP< [window 3 size 21 rows 80 columns] [if LK_QCLNO eq <0>] [store date in ordate] [store <1> in LK_QCLNO] [endif] COMMENT: If PCNT = 1, set HHRESP = L_NO [store <0> in index] [store <0> in indx2] [roster begin persons] [if skipflag(L_NO) eq <1> OR HHMEM eq <2>] [add <1> to index] [endif] [if HHMEM eq <1>] [store L_NO in indx2] [endif] [roster end persons] [setdate date] [if PCNT eq <1>] [if indx2 ne <0>] [# household mem [store indx2 in HHRESP] [store indx2 in RESPLINE] [store name(respline) in respname] [endif] [if index ge NROSIZE goto CHANGE] [#URE HOUSEHOLD [goto QCRESP1] [endif] [if index ge NROSIZE] [goto CHANGE] [endif] -------------------------------------------------------------------------- >HHRESP< [window 3 size 20 rows 35 columns] [display HHROS window 4] [setdate date] [bold]Ask if necessary:[normal] With whom am I speaking? *** ENTER LINE NUMBER *** @ [@] <1-30> [reject gt HIGH_LNO label ] [reject eq XBAD label ] [goto @1] [@1] [store HHRESP in respline] [store name(respline) in respname] [goto QCRESP1] --------------------------------------------------------------------------- >QCRESP1< [roster begin persons] >QCRESP< [allow 1] [if RESPLINE eq L_NO] [store <1> in QCRESP] [else] [store <0> in QCRESP] [endif] [roster end persons] [goto PRE_OWNER] ------------------------------------------------------------ >DLINE1< [allow int 2] [equiv HHRESP] [# CODEBOOK NAME >PRE_OWNER< [if TENURE ne <3>] [goto OWNER] [endif] IF TENURE = 3 (NO CASH RENT) THEN SELECT THE FIRST HOUSEHOLD MEMBER WHO IS 18+ AS THE OWNER/RENTER [store <0> in index] [roster begin persons] [if HHMEM eq <1> AND AGE ge <18> and index eq <0>] [store L_NO in OWNER@1] [store in TEN(L_NO)] [store <1> in index] [endif] [roster end persons] IF IT IS A NEW CASE WE DO NOT KNOW THE AGES YET [If index eq <0>] [store in TEN(<1>)] [store <1> in OWNER@1] [ENDIF] [goto NEW_REFPER] --------------------------------------------------------------------------------- >OWNER< [window 3 size 20 rows 35 columns] [display T_USUALLY window 4] [# [store <> in temp2] [if TENURE eq <1>] [store in temp2] [else] [if TENURE eq <2>] [store in temp2] [endif][endif] [# In whose name is this home [fill temp2]? ENTER (N) FOR NO MORE ENTER LINE NUMBER(S) @1 @2 @3 @4 @5 [@1] <1-30> [reject gt HIGH_LNO label ] [reject eq XBAD label ] [@2] <1-30> [reject gt HIGH_LNO label ] [reject eq XBAD label ] [reject eq @1] [missing] [goto SET_OWNRENT] [@3] <1-30> [reject gt HIGH_LNO label ] [reject eq XBAD label ] [reject eq @1 OR @2] [missing] [goto SET_OWNRENT] [@4] <1-30> [reject gt HIGH_LNO label ] [reject eq @1 OR @2 OR @3] [reject eq XBAD label ] [missing] [goto SET_OWNRENT] [@5] <1-30> [reject gt HIGH_LNO label ] [reject eq @1 OR @2 OR @3 OR @4] [reject eq XBAD label ] [missing] [goto SET_OWNRENT] ---------------------------------------------------------------------- >SET_OWNRENT< [loop for index from <1> to <30>] [store <> in TEN(index)] [loop end index] [if OWNER@1 onpath and OWNER@1 ne <>] [store in TEN(OWNER@1)] [ENDIF] [IF OWNER@2 onpath and OWNER@2 ne ] [store in TEN(OWNER@2)] [ENDIF] [IF OWNER@3 onpath and OWNER@3 ne ] [store in TEN(OWNER@3)] [ENDIF] [IF OWNER@4 onpath and OWNER@4 ne ] [store in TEN(OWNER@4)] [ENDIF] [IF OWNER@5 onpath and OWNER@5 ne ] [store in TEN(OWNER@5)] [endif] ------------------------------------------------------------------------------------------- >NEW_REFPER< [allow 1] [store <0> in INDEX2] [loop for INDEX20 from <1> to <30>] [if TEN(index20) eq and INDEX2 eq <0>] [store index20 in REF_LNO] [store T_FNAME(index20) in REF_FNAME] [store T_LNAME(index20) in REF_LNAME] [store T_SEX(index20) in REF_SEX] [store <1> in INDEX2] [endif] [loop end INDEX20] ------------------------------------------------------------ >REFPER_CK< [if SKIPFLAG(REF_LNO) eq <1> goto NEW_REFPER] [goto BEG_RELCK] ADDED TO TAKE CARE OF THE CASE WHERE YOU HAVE 2 REFERENCE PERSONS YOU UNDELETE A PREVIOUS REFERENCE PERSON AT STILIV1 AND HAVE ONE CURRENTLY SET. (RELATIONSHIP IS NOT BLANKED FOR NON HOUSEHOLD MEMBERS) >BEG_RELCK< [roster begin PERSONS] [IF L_NO ne REF_LNO AND (REL eq <01> OR REL eq <1> OR REL eq <2> OR REL eq <02>)] [store <> in REL] [store <> in T_REL(L_NO)] [store <> in SPIX] [store <> in P_SPIX] [store <> in MOMIX] [store <> in P_MOMIX] [store <> in DADIX] [store <> in P_DADIX] [store <1> in NEW_REFPER] [ENDIF] [roster end PERSONS] >BEG_REL< COMMENT: Loop through the following screens as appropriate DOB, VERAGE, AGEGES, MAR, EDUCA, NATVTY, CITIZN CTZNA, CTZNB, INUSYR, RACE, ORIGIN, PAR [roster begin persons] ------------------------------------------------------------ >PRE_REL< [if SKIPFLAG(L_NO) eq <1> OR HHMEM eq <2> goto END_REL] NEED TO SKIP OVER DEMO'S FOR PEOPLE WHO AREN'T NEW [if REF_LNO eq L_NO] [store <01> in REL] [store <01> in T_REL(L_NO)] [goto END_REL] [ENDIF] [if ADDPER eq <1> goto NXTREL] [if NEW_REFPER eq <1> goto NXTREL] [If I_REL isnt <> and OLDPER eq <1> goto END_REL] [store SPIX in P_SPIX] [store MOMIX in P_MOMIX] [store DADIX in P_DADIX] [store REF_LNO in P_REF_LNO] ------------------------------------------------------------ >NXTREL< [window 3 size 21 rows 80 columns] [store REF_LNO in P_REF_LNO] [store <> in temp2] [store <> in TEMP8] [store <> in TEMP9] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [make temp2 from TEMP8 < > TEMP9] What is [fill FNAME] [fill LNAME]'s relationship to [fill temp2]? (20) Spouse (Husband/Wife) (21) Unmarried Partner (22) Child (23) Grandchild (24) Parent (Mother/Father) (25) Brother/Sister (26) Other Relative of Reference Person (Uncle, cousin, mother-in-law, father-in-law, etc.) (27) Foster child (28) Housemate/Roomate (29) Roomer/Boarder (30) Other Non-Relative of Reference Person @ [@] <20-30> [missing] [default goto @1] [@1] [store NXTREL in T_REL(L_NO)] [store NXTREL in REL] --------------------------------------------------------- >CK_REL< [IF REL eq <21> OR REL eq <27> OR REL eq <28> OR REL eq <29> OR REL eq <30> goto REL2] [goto CK_SP1] ---------------------------------------------------------------------- >REL2< [store <> in temp3] [IF L_NO eq respline] [store in temp3] [ELSE] [make temp3 from FNAME < > LNAME] [ENDIF] [# (MARK OR ASK) Does anybody related to [fill temp3] live here? (1) Yes (2) No @ [@] <1,2> [goto @1] [@1] [store REL2 in T_REL2(L_NO)] ---------------------------------------------------------------------- >CK_SP1< COMMENT: If REL(PX) = 2 and SPIX is not equal 0 (a spouse of reference person has already been reported), GOTO SPOUSE3. [if T_REL(L_NO) eq <20>] [if SPIX eq <0> or SPIX eq <> or SPIX eq L_NO] [else] [goto SPOUSE3] [endif] [endif] COMMENT: If REL(PX) = 2 and SEX(PX) = 1 or 2 and SEX(PX) = SEX(1) then GOTO SPOUSE1 [if T_REL(L_NO) eq <20>] [if T_SEX(L_NO) eq <1>] [if T_SEX(P_REF_LNO) eq T_SEX(L_NO)] [goto SPOUSE1] [endif] [else] [if T_SEX(L_NO) eq <2>] [if T_SEX(P_REF_LNO) eq T_SEX(L_NO)] [goto SPOUSE1] [endif] [endif] [endif] [endif] COMMENT: If REL(PX) = 5 and SEX(PX) = 1 then, If DADIX = 0, GOTO SET_MDIX otherwise, GOTO DAD1 [if T_REL(L_NO) eq <24>] [if T_SEX(L_NO) eq <1>] [if DADIX eq <0> or DADIX eq <>] [goto SET_MDIX] [else] [goto DAD1] [endif] [endif] [endif] COMMENT: If REL(PX) = 5 and SEX(PX) = 2 then, If MOMIX = 0, GOTO SET_MDIX otherwise, GOTO MOM1 [if T_REL(L_NO) eq <24>] [if T_SEX(L_NO) eq <2>] [if MOMIX eq <0> or MOMIX eq < >] [goto SET_MDIX] [else] [goto MOM1] [endif] [endif] [endif] COMMENT: Otherwise GOTO AFT_REL [goto AFT_REL] ------------------------------------------------------------ >SPOUSE1< [# [store <> in temp2] [store <> in temp4] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [# [if T_SEX(L_NO) eq <1>] [store in temp8] [else] [store in temp8] [endif] [# [make temp2 from T_NROSIZE < > FNAME < > LNAME] [if T_SEX(P_REF_LNO) eq <1>] [store in temp9] [else] [store in temp9] [endif] [# [store T_FNAME(P_REF_LNO) in temp6] [store T_LNAME(P_REF_LNO) in temp7] [make temp4 from P_REF_LNO < > TEMP6 < > TEMP7] [bold](DO NOT READ TO RESPONDENT UNLESS NECESSARY)[normal] Is one of the following SEX entries incorrect? LINE NAME SEX [fill temp4:l] [fill TEMP9] [fill temp2:l] [fill TEMP8] (1) To correct LINE 1's SEX entry (2) To correct LINE [fill T_NROSIZE]'s SEX entry (3) Neither sex entry is incorrect @ [@] <1-3> ------------------------------------------------------------ >CK_SP2< COMMENT: if the response to SPOUSE1 is 1, change SEX(1) from 1 to 2 or from 2 to 1 and GOTO AFT_REL [if SPOUSE1 eq <1>] [if T_SEX(P_REF_LNO) eq <1>] [store <2> in T_SEX(P_REF_LNO)] [store <2> in REF_SEX] [goto AFT_REL] [else] [if T_SEX(P_REF_LNO) eq <2>] [store <1> in T_SEX(P_REF_LNO)] [store <1> in REF_SEX] [goto AFT_REL] [endif] [endif] [endif] COMMENT: If the response to SPOUSE1 is 2, change SEX(PX) from 1 to 2 or from 2 to 1 and GOTO AFT_REL [if SPOUSE1 eq <2>] [if T_SEX(L_NO) eq <1>] [store <2> in T_SEX(L_NO)] [goto AFT_REL] [else] [if T_SEX(L_NO) eq <2>] [store <1> in T_SEX(L_NO)] [goto AFT_REL] [endif] [endif] [endif] ------------------------------------------------------------ >SPOUSE2< [store <> in temp2] [store <> in temp8] [store <> in temp9] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [make temp2 from temp8 < > temp9 <'s>] You said [fill FNAME] [fill LNAME] is [fill temp2] spouse. Is that correct? (1) Yes (2) No @ [@] <1> [goto AFT_REL] <2> [etc ] ------------------------------------------------------------ >SPOUSE3< [store <> in temp2] [store <> in temp3] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in TEMP9] [# [store T_FNAME(P_SPIX) in temp6] [store T_LNAME(P_SPIX) in temp7] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [# [make temp2 from temp8 < > temp9 <'s>] [make temp3 from temp6 < > temp7] [bold](DO NOT READ TO RESPONDENT UNLESS NECESSARY)[normal] Earlier I recorded [fill temp3] was [fill temp2] spouse. You have just reported [fill FNAME] [fill LNAME] is also [fill temp2] spouse. Which is correct? (1) [fill temp3] is the correct spouse. Change relationship entry of [fill FNAME] [fill LNAME] (2) [fill FNAME] [fill LNAME] is the correct spouse. Change relationship entry of [fill temp3] @ [@] <1> [etc ] <2> ------------------------------------------------------------ >SPOUSE4< [store <> in temp2] [store <> in temp3] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [store T_FNAME(P_SPIX) in temp6] [store T_LNAME(P_SPIX) in temp7] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [make temp2 from temp8 < > temp9] [make temp3 from temp6 < > temp7 <'s>] Which one of the responses listed best describes [fill temp3] relationship to [fill temp2]? (22) Child (23) Grandchild (24) Parent (Mother/Father) (25) Brother/Sister (26) Other Relative of Reference Person (Uncle, cousin, mother-in-law, father-in-law, etc.) (27) Foster child (28) Housemate/Roomate (29) Roomer/Boarder (30) Other Non-Relative of Reference Person @ [@] <22-30> [missing] [missing] [default goto @1] [@1] [store SPOUSE4 in T_REL(P_SPIX)] [store <0> in SPIX] [goto CK_SP1] ------------------------------------------------------------ >DAD1< [store <> in temp2] [store <> in temp3] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [# [store T_FNAME(P_DADIX) in temp6] [store T_LNAME(P_DADIX) in temp7] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [# [make temp2 from temp8 < > temp9] [make temp3 from temp6 < > temp7] You have reported both [fill temp3] and [fill FNAME] [fill LNAME] are parents of [fill temp2] Is that correct? (1) No, change relationship to reference person code for [fill FNAME] [fill LNAME] (2) No, change relationship to reference person code for [fill temp3] (3) Yes, this is correct. (One is natural father, one is step-father, for example) @ [@] <1> [etc ] <2> <3> [goto SET_MDIX] ------------------------------------------------------------ >DAD2< [store <> in temp2] [store <> in temp3] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [# [store T_FNAME(P_DADIX) in temp6] [store T_LNAME(P_DADIX) in temp7] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [# [make temp2 from temp8 < > temp9] [make temp3 from temp6 < > temp7 <'s>] Which one of the responses listed best describes [fill temp3] relationship to [fill temp2]? (22) Child (23) Grandchild (24) Parent (Mother/Father) (25) Brother/Sister (26) Other Relative of Reference Person (Uncle, cousin, mother-in-law, father-in-law, etc.) (27) Foster child (28) Housemate/Roomate (29) Roomer/Boarder (30) Other Non-Relative of Reference Person @ [@] <22-30> [missing] [missing] [default goto @1] [@1] [store DAD2 in T_REL(P_DADIX)] [store <0> in DADIX] [goto SET_MDIX] ---------------------------------------------------------------------- >MOM1< [store <> in temp2] [store <> in temp3] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [# [store T_FNAME(P_MOMIX) in temp6] [store T_LNAME(P_MOMIX) in temp7] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [# [make temp2 from temp8 < > temp9] [make temp3 from temp6 < > temp7] You have reported both [fill temp3] and [fill FNAME] [fill LNAME] are parents of [fill temp2] Is that correct? (1) No, change relationship to reference person code for [fill FNAME] [fill LNAME] (2) No, change relationship to reference person code for [fill temp3] (3) Yes, this is correct. (One is natural mother, one is step-mother, for example) @ [@] <1> [etc ] <2> <3> [goto SET_MDIX] ------------------------------------------------------------ >MOM2< [store <> in temp2] [store <> in temp3] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [# [store T_FNAME(P_MOMIX) in temp6] [store T_LNAME(P_MOMIX) in temp7] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [# [make temp2 from temp8 < > temp9] [make temp3 from temp6 < > temp7 <'s>] Which one of the responses listed best describes [fill temp3] relationship to [fill temp2]? (22) Child (23) Grandchild (24) Parent (Mother/Father) (25) Brother/Sister (26) Other Relative of Reference Person (Uncle, cousin, mother-in-law, father-in-law, etc.) (27) Foster child (28) Housemate/Roomate (29) Roomer/Boarder (30) Other Non-Relative of Reference Person @ [@] <22-30> [missing] [missing] [default goto @1] [@1] [store MOM2 in T_REL(P_MOMIX)] [store <0> in MOMIX] [goto SET_MDIX] ------------------------------------------------------------ >AFT_REL< COMMENT: If REL(PX) = 2 then set SPIX = PX [if T_REL(L_NO) eq <20>] [store L_NO in SPIX] [endif] ------------------------------------------------------------ >SET_MDIX< COMMENT: If REL(PX) = 5 and SEX(PX) = 1 then, If DADIX = 0, SET DADIX = PX [if T_REL(L_NO) eq <24>] [if T_SEX(L_NO) eq <1>] [if DADIX eq <0> or DADIX eq < >] [store L_NO in DADIX] [endif] [endif] [endif] COMMENT: If REL(PX) = 5 and SEX(PX) = 2 then, If MOMIX = 0, SET MOMIX = PX [if T_REL(L_NO) eq <24>] [if T_SEX(L_NO) eq <2>] [if MOMIX eq <0> or MOMIX eq < >] [store L_NO in MOMIX] [endif] [endif] [endif] ---------------------------------------------------------------------- >END_REL< [roster end persons] ---------------------------------------------------------------------- >SET_REFPER< NEED TO SET REFERENCE PERSON TO WITH OR WITHOUT OWN RELS [store <0> in index] [roster begin persons] [IF REL ge <22> AND REL le <26> OR REL eq <20>] [add <1> to index] [ENDIF] [roster end persons] [roster begin persons] [IF L_NO eq REF_LNO] [IF index ge <1>] [store <01> in REL] [store <01> in T_REL(L_NO)] [ELSE] [store <02> in REL] [store <02> in T_REL(L_NO)] [ENDIF] [ENDIF] [roster end persons] ---------------------------------------------------------------------- >RIPVFL< [allow 1] [store <0> in RIPVFL] >RIPVck< [#checks if current respondent was in HH last time [store <0> in index5] [roster begin PERSONS] [if I_HHMEM eq <>] [if HHRESP eq L_NO] [store <1> in index5] [endif][endif] [roster end PERSONS] [if index5 eq <1>] [store <1> in RIPVFL] [endif] >SPOUSrosck< [#will reset eligible SPOUS roster [store <0> in rel_flag] [roster begin PERSONS] [if HHMEM eq <1> and RIPVFL eq <1>] [if I_MAR ne <> and OLDPER eq <1>] [store <> in SPOUS] [store <> in T_SPOUS(L_NO)] [endif][endif] [if HHMEM eq <1> and RIPVFL ne <1>] [if I_RIPQ ne <1>] [if I_RIPHID ne HHRESP] [if I_MAR ne <> and OLDPER eq <1>] [store <> in SPOUS] [store <> in T_SPOUS(L_NO)] [endif][endif][endif][endif] [if REL eq <20> and i_REL ne <20>] [store <1> in rel_flag] [# newly spouse of ref per [endif] [roster end PERSONS] [# COUNTS PERSONS ADDED TO THE ROSTER >NEWPCNT< [allow int 9] [store <0> in NEWPCNT] [store <0> in index] [roster begin persons] [if oldper ne <1> and delper ne <1>] [add <1> to index] [store index in newpcnt] [endif] [roster end persons] >BEG_DEMOS< [roster begin persons] ---------------------------------------------------------------------- >PRE_DEMOS< [If skipflag(L_NO) eq <1> OR HHMEM eq <2> goto END_DEMOS] [#IF I_AGE isnt <> and OLDPER eq <1> goto VER_AGE1] [#goto BRTHDATE] --------------------------------------------------------------------- >RIPV1_AGE< [#CURRENT RESPONDENT WAS NOT IN HH LAST TIME [if RIPVFL eq <1>] [goto BRTHDATE] [endif] [if I_RIPQ eq <1>] [if I_HHMEM eq <1>] [if I_AGE ne <> and OLDPER eq <1>] [goto VER_AGE1] [endif][endif][endif] [if I_RIPQ ne <1>] [if I_RIPHID eq HHRESP] [if I_AGE ne <> and OLDPER eq <1>] [goto VER_AGE1] [endif][endif] [endif] [if REPLHH eq <2>] [if I_AGE ne <>] [store AGE in T_AGE(L_NO)] [goto PRE_MAR] [endif][endif] [goto BRTHDATE] --------------------------------------------------------------------- >VER_AGE1< [store <> in temp2] [if BRTHM eq month] [if AGE ge <1>] [make temp2 from AGE < > ] [else] [store in temp2] [endif] [else] [if AGE ge <1>] [make temp2 from AGE < > ] [else] [store in temp2] [endif] [endif] [# [if L_NO eq respline] [store in temptext] [store in temp3] [else] [make temptext from FNAME < > LNAME] [If VER_AGEFLAG eq <1>] [store in temptext] [if sex eq <1>] [store in temptext] [endif] [if sex eq <2>] [store in temptext] [endif] [endif] [store in temp3] [endif] [# [IF VER_AGEFLAG ne <1>] [store in temp4] [ELSE] [make temp4 from < > FNAME < > LNAME] [ENDIF] [# [fill temp4] I have recorded that [fill temptext] [fill temp3] [fill temp2]. Is that correct? NOTE: KEY (1) YES IF THE AGE HAS BEEN VERIFIED (1) Yes, age is correct (2) No, age is not correct @ [@] <1,2> [goto @1] [missing] [goto @1] [@1] [store <1> in VER_AGEFLAG] [IF VER_AGE1 eq <2> goto BRTHDATE] [store AGE in T_AGE(L_NO)] [goto PRE_MAR] --------------------------------------------------------------------- >BRTHDATE< [window 3 size 21 rows 80 columns] [if L_NO eq respline] [store in temptext] [else] [make temptext from FNAME < > LNAME <'s>] [endif] What is [fill temptext] date of birth? (1) January (5) May (9) September (2) February (6) June (10) October (3) March (7) July (11) November (4) April (8) August (12) December ENTER MONTH: @BRTHM ENTER DAY: @BRTHD ENTER 4 DIGIT YEAR: @BRTHY [@BRTHM] [missing] <1-12> [@BRTHD] [missing] <1-31> [reject gt BMON2(BRTHDATE@BRTHM)] [@BRTHY] [missing] <1873-2001> ------------------------------------------------------------------------------ >CALC_AGE< COMMENT: Use the information collected in screen BRTHDATE together with the current month (MONTH) and current year (Year), available from the laptops calendar as follows: [store BRTHDATE@BRTHM in BRTHM] [store BRTHDATE@BRTHD in BRTHD] [store BRTHDATE@BRTHY in BRTHY] [if BRTHDATE@BRTHY is OR BRTHDATE@BRTHY is goto AGEGES] [if BRTHDATE@BRTHM is OR BRTHDATE@BRTHM is goto AGEGES] [if BRTHDATE@BRTHD is OR BRTHDATE@BRTHD is goto AGEGES] [store <0> in index4] [setdate date] [store {int}year in index4] [#add <1900> to index4] [if {int}BRTHM lt {int}month OR ({int}BRTHM eq {int}month AND {int}BRTHD le {int}day)] [store (index4 - {int}BRTHY) in AGE] [else] [store ((index4 - {int}BRTHY) - <1>) in AGE] [endif] [if AGE lt <0> goto ERR_AGE] [goto VER_AGE] ------------------------------------------------------------ >ERR_AGE< ** DO NOT READ TO RESPONDENT ** BIRTHDATE IS IN THE FUTURE ENTER (P) TO BACK TO BRTHDATE @ [@]

[etc ] ---------------------------------------------------------------------- >VER_AGE< [store <> in temp2] [if AGE ge <1>] [make temp2 from AGE < > ] [else] [store in temp2] [endif] [if L_NO eq respline] [store in temptext] [else] [make temptext from FNAME < > LNAME < > ] [endif] So [fill temptext] now [fill temp2] Is that correct? (1) Yes, age is correct (2) No, age is not correct @ [@] <1> [goto @1] <2> [etc ] [missing] [goto @1] [@1] [store AGE in T_AGE(L_NO)] [goto PRE_MAR] ------------------------------------------------------------ >AGEGES< [if L_NO eq respline] [store in temptext] [else] [make temptext from FNAME < > LNAME < > <'s>] [endif] [# ENTER YOUR BEST ESTIMATE OF [fill temptext] AGE: @ [@] <0-120> [goto @1] [missing] [goto UNDAGE] [@1] [store AGEGES in AGE] [store AGEGES in T_AGE(L_NO)] [goto PRE_MAR] ------------------------------------------------------------ >UNDAGE<[store in temp] [if SEX eq <1>][store in temp][endif] [if SEX eq <2>][store in temp][endif] ** ASK IF NECESSARY ** Is [fill temp] under 16 years of age? (1) Yes (2) No @ [@] <1,2> [missing] [default goto @1] [@1] [If UNDAGE eq <1>] [store <13> in AGE] [store <13> in T_AGE(L_NO)] [ELSE] [store <17> in AGE] [store <17> in T_AGE(L_NO)] [ENDIF] [goto PRE_MAR] ------------------------------------------------------------ >PRE_MAR< [#if I_MAR isnt <> and OLDPER eq <1> goto MAR_VER] [#COMMENT: If AGE is 13 or less, GOTO PRE_EDUCA [if age isnt and age isnt ] [if AGE le <13>] [store <> in MAR] [store <> in T_MAR(L_NO)] [store <> in SPOUS] [store <> in T_SPOUS(L_NO)] [goto PRE_educa] [endif][endif] COMMENT: If REL(L_NO) is 20 (spouse), AUTOMATICALLY PLUG MS TO MARRIED AND SPOUS eq to REFPER and go to PRE_educa [#For new or replacement HHS [if I_MAR eq <> or (I_MAR ne <> and replhh eq <1>)] [if REL eq <20>] [#( EDIT #28) [store <1> in MAR] [store <1> in T_MAR(L_NO)] [store REF_LNO in SPOUS] [store REF_LNO in T_SPOUS(L_NO)] [# changed subscript from REF_LNO to L_NO 7/18/97 SRM] [goto PRE_educa] [endif] [store <0> in REL_FLAG] [loop for X from <1> to <30>] [if T_REL(X) is <20>] [store <1> in REL_FLAG] [endif] [loop end X] [if L_NO eq REF_LNO and REL_FLAG eq <1>] [# (EDIT #28) [store <1> in MAR] [store <1> in T_MAR(L_NO)] [store SPIX in SPOUS] [store SPIX in T_SPOUS(L_NO)] [goto PRE_educa] [endif][endif] [if T_MARFLAG(L_NO) eq <1> goto PRE_EDUCA] [if I_MAR ne <> and RIPVFL ne <1> and (I_RIPQ eq <1> or I_RIPHID eq HHRESP)] [if L_NO eq REF_LNO and REL_FLAG eq <1>] [store <1> in MAR] [store <1> in T_MAR(L_NO)] [store SPIX in SPOUS] [store SPIX in t_spous(l_no)] [goto pre_educa] [endif][endif] -------------------------------------------------------------------------------------------- >RIPV2_MAR< [#CURRENT RESPONDENT WAS NOT IN HH LAST TIME [if RIPVFL eq <1>] [goto S_MAR] [endif] [if I_RIPQ eq <1>] [if I_HHMEM eq <1>] [if I_MAR ne <> and OLDPER eq <1>] [goto MAR_VER] [endif][endif][endif] [if I_RIPQ ne <1>] [if I_RIPHID eq HHRESP] [if I_MAR ne <> and OLDPER eq <1>] [goto MAR_VER] [endif][endif][endif] [goto S_MAR] -------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------- >MAR_VER< [store <> in temp] [store <0> in T_MARFLAG(L_NO)] [if L_NO eq respline] [store in temptext] [IF I_MAR eq <1> or I_MAR eq <2>] [store in temp] [else] [if I_MAR eq <3>] [store in temp] [else] [if I_MAR eq <4>] [store in temp] [else] [if I_MAR eq <5>] [store in temp] [else] [if I_MAR eq <6>] [store in temptext] [store in temp] [endif][endif][endif][endif][endif] [else] [make temptext from FNAME < > LNAME] [IF I_MAR eq <1> or I_MAR eq <2>] [store in temp] [else] [if I_MAR eq <3>] [store in temp] [else] [if I_MAR eq <4>] [store in temp] [else] [if I_MAR eq <5>] [store in temp] [else] [if I_MAR eq <6>] [store in temp] [endif][endif][endif][endif][endif] [endif] [fill temptext] [fill temp]. Is that still correct? (1) Yes (2) No @ [@]<1> [goto PRE_educa] <2> [goto S_MAR] --------------------------------------------------------------- >S_MAR< [# [if L_NO eq respline] [store in temptext] [store in temp2] [else] [store in temp2] [make temptext from FNAME < > LNAME] [endif] [# [IF REL2 eq <2> OR REL eq <2> OR REL eq <02>] [# EDIT #16 ] [store <> in temp3] [store <1> in index] [ELSE] [store <(1) Married, SPOUSE PRESENT> in temp3] [store <0> in index] [ENDIF] [# [fill temp2] [fill temptext] now married, widowed, divorced, separated or never married? [fill temp3] (2) Married, SPOUSE ABSENT (3) Widowed (4) Divorced (5) Separated (6) Never married @ [@] <1> [reject eq index] [goto CK_LNSPOUSE] <2-6> [goto @1] [missing] [goto @1] [@1] [IF SPOUS ne <> AND SPOUS ne <0> AND SPOUS isnt AND SPOUS isnt ] [store SPOUS in index] [store <0> in T_MARFLAG(index)] [ENDIF] [store <0> in SPOUS] [# EDIT #23] [store <0> in T_SPOUS(L_NO)] [store S_MAR in MAR] [store S_MAR in T_MAR(L_NO)] [goto PRE_educa] ------------------------------------------------------------ >CK_LNSPOUSE< [store S_MAR in MAR] [store S_MAR in T_MAR(L_NO)] [IF REL eq <24>] PARENT [IF sex is <1>] [store MOMIX in SPOUS] [store MOMIX in T_SPOUS(L_NO)] [ELSE] [store DADIX in SPOUS] [store DADIX in T_SPOUS(L_NO)] [ENDIF] [goto PRE_educa] [ENDIF] [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index4] [loop for X from <1> to <30>] [IF T_AGE(X) le <13> AND T_AGE(X) gt <0> AND T_AGE(X) isnt <>] [ELSE] [IF T_REL(X) eq <26>] [add <1> to index] [ENDIF] [IF T_REL(X) eq <22> OR T_REL(X) eq <23> OR T_REL(X) eq <25> OR T_REL(X) eq <26>] [add <1> to index2] [ENDIF] [IF T_REL(X) ge <27> AND T_REL(X) le <30> AND T_REL2(X) eq <1>] [add <1> to index3] [ENDIF] [if T_REL(X) eq <33> or T_REL(X) eq <35> or T_REL(X) eq <37>] [add <1> to index3] [endif] [ENDIF] [loop end X] [# SPOUSE OF CHILD, GRANDCHILD, SIBLING, OTH REL CAN ONLY BE AN OTHER REL [IF (REL eq <22> OR REL eq <23> OR REL eq <25> OR REL eq <26>) AND index eq <0>] [store <> in SPOUS] [store <> in T_SPOUS(L_NO)] [goto PRE_EDUCA] [ENDIF] [# SPOUSE OF AN OTHER REL CAN ONLY BE A CHILD, GRANDCHILD, SIBLING, OR OTH REL [IF REL eq <26> AND (index2 eq <0> OR index2 eq <1>)] [store <> in SPOUS] [store <> in T_SPOUS(L_NO)] [goto PRE_EDUCA] [ENDIF] SPOUSE OF AN NON-REL WITH CAN ONLY BE A NON-REL WITH [IF REL ge <27> AND REL le <30> AND REL2 eq <1> AND (index3 eq <0> OR index3 eq <1>)] [store <> in SPOUS] [store <> in T_SPOUS(L_NO)] [goto PRE_EDUCA] [ENDIF] [# SPOUSE OF AN NON-REL WITH CAN BE ANY RETURNING NON-REL--RECODED VALUES [if (REL eq <33> or REL eq <35> or REL eq <37>) AND (index3 eq <0> OR index3 eq <1>)] [store <> in SPOUS] [store <> in T_SPOUS(L_NO)] [goto PRE_EDUCA] [ENDIF] [goto S_LNSPOUSE] ---------------------------------------------------------------------- >SPLN< [template] LISTING OF ELIGIBLE SPOUSES LN NAME [loop for index from <1> to <30>] [store <99> in xbad(index)] [loop end] [store L_NO in WHO] [roster begin persons] [IF SKIPFLAG(L_NO) eq <1> OR HHMEM eq <2> OR L_NO eq WHO OR (T_MAR(L_NO) ne <1> AND T_MAR(L_NO) ne <2> AND T_MAR(L_NO) ne <>) OR REL2 eq <2> OR T_SPOUS(L_NO) isnt <> OR (AGE le <13> AND AGE ne <0> AND AGE ne <>)] [store L_NO in xbad(L_NO)] [ELSE] [IF T_REL(WHO) eq <22> OR T_REL(WHO) eq <23> OR T_REL(WHO) eq <25>] [IF REL eq <26>] [fill L_NO:0] [fill FNAME] [fill LNAME] [ENDIF] [ENDIF] [IF T_REL(WHO) eq <26>] [IF REL eq <26> OR REL eq <22> OR REL eq <23> OR REL eq <25>] [fill L_NO:0] [fill FNAME] [fill LNAME] [ENDIF] [ENDIF] [IF T_REL(WHO) ge <27> AND T_REL(WHO) le <30> AND T_REL2(WHO) eq <1>] [IF REL ge <27> AND REL le <30> AND REL2 eq <1>] [fill L_NO:0] [fill FNAME] [fill LNAME] [ENDIF] [IF REL eq <33> or REL eq <35> or REL eq <37>] [fill L_NO:0] [fill FNAME] [fill LNAME] [ENDIF] [ENDIF] [IF T_REL(WHO) eq <33> or T_REL(WHO) eq <35> or T_REL(WHO) eq <37>] [IF REL ge <27> and REL le <30> and REL2 eq <1>] [fill L_NO:0] [fill FNAME] [fill LNAME] [endif] [IF REL eq <33> or REL eq <35> or REL eq <37>] [fill L_NO:0] [fill FNAME] [fill LNAME] [endif] [endif] [if T_REL(WHO) eq <1> or T_REL(WHO) eq <01>] [if REL eq <20>] [if RIPVFL eq <1>] [if I_MAR ne <> and OLDPER eq <1>] [if T_MAR(L_NO) eq <1> and T_SPOUS(L_NO) eq <>] [fill L_NO:0] [fill FNAME] [fill LNAME] [endif] [endif][endif] [if RIPVFL ne <1> and I_RIPQ ne <1>] [if I_RIPHID ne HHRESP] [if I_MAR ne <> and OLDPER eq <1>] [if T_MAR(L_NO) eq <1> and T_SPOUS(L_NO) eq <>] [fill L_NO:0] [fill FNAME] [fill LNAME] [endif] [endif] [endif] [endif] [ENDIF] [ENDIF] [ENDIF] [roster end persons] [end] --------------------------------------------------------------------- >S_LNSPOUSE< [window 3 size 20 rows 35 columns] [display SPLN window 4] [# ] [IF L_NO eq respline] [store in temp3] [ELSE] [make temp3 from FNAME < > LNAME <'s>] [ENDIF] [# ] [#(don't list: ] [# any unmarried persons (EDIT #23)] [# anyone with REL2 eq 2 (EDIT #17)] [# anyone with SPOUS already filled (EDIT #35)] [# if REL = 27-30 and REL2 eq 1 only list those] [# people with REL2 eq 1 (EDIT #34)] [# ENTER LINE NUMBER OF [fill temp3] SPOUSE @ [@] <1-99> [reject gt HIGH_LNO label ] [reject eq XBAD label ] [missing] [default goto @1] [@1] [store S_LNSPOUSE in SPOUS] [store S_LNSPOUSE in T_SPOUS(L_NO)]] [If SPOUS is OR SPOUS is goto PRE_EDUCA] [store SPOUS in index] [store L_NO in T_SPOUS(index)] [store <1> in T_MAR(index)] [store <1> in T_MARFLAG(index)] ---------------------------------------------------------------------- >CK_SPAGE< EDIT # 22 THE SPOUSE OF A MARRIED PERSON AGED 14 OR GREATER MUST BE AGED 14 OR GREATER [store T_SPOUS(L_NO) in index] [IF (T_AGE(index) gt <0> AND T_AGE(INDEX) lt <14>) AND AGE ge <14> goto ERR_SPAGE] SAME SEX SPOUSE [IF T_SEX(index) is SEX goto ERR_SPSEX1] DON'T NEED TO CHECK FOR MARITAL STATUS BECAUSE ON THE S_LNSPOUSE SCREEN THERE IS ALREADY AN EDIT THAT YOU CAN'T PICK SOMEONE WHO ISN'T MARRIED [goto PRE_educa] ---------------------------------------------------------------------- >ERR_SPAGE< HAT SHOULD THIS SAY/DO? EDIT # 22 - AGE OF SPOUSE LT 14. PRESS ENTER TO PROCEED @ [@] [nodata] [goto PRE_educa] ---------------------------------------------------------------------- >ERR_SPSEX1< [# SAME SEX SPOUSE FROM EDIT 22] [# [store <> in temp2] [store <> in temp4] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [# [if T_SEX(L_NO) eq <1>] [store in temp8] [else] [store in temp8] [endif] [# [make temp2 from L_NO < > FNAME < > LNAME] [store T_SPOUS(L_NO) in index] [if T_SEX(index) eq <1>] [store in temp9] [else] [store in temp9] [endif] [# [store NAME(index) in temp6] [make temp4 from T_SPOUS(L_NO) < > TEMP6] [store T_SPOUS(L_NO) in temp10] [# [bold](DO NOT READ TO RESPONDENT UNLESS NECESSARY)[normal] Is one of the following SEX entries incorrect? LINE NAME SEX [fill temp4:l] [fill TEMP9] [fill temp2:l] [fill TEMP8] (1) To correct LINE [fill temp10]'s SEX entry (2) To correct LINE [fill L_NO]'s SEX entry (3) Neither sex entry is incorrect @ [@] <1-3> ------------------------------------------------------------ >CK_ERR_SPSEX1< COMMENT: if the response to ERR_SPSEX1 is 1, change SEX(SPOUS) from 1 to 2 or from 2 to 1 and GOTO AFT_REL [store T_SPOUS(L_NO) in index] [IF ERR_SPSEX1 eq <1>] [IF T_SEX(index) eq <1>] [store <2> in T_SEX(index)] [goto PRE_educa] [ELSE] [IF T_SEX(index) eq <2>] [store <1> in T_SEX(index)] [goto PRE_educa] [ENDIF] [ENDIF] [endif] COMMENT: If the response to ERR_SPSEX1 is 2, change SEX(L_NO) from 1 to 2 or from 2 to 1 and GOTO AFT_REL [if ERR_SPSEX1 eq <2>] [if T_SEX(L_NO) eq <1>] [store <2> in T_SEX(L_NO)] [goto PRE_educa] [else] [if T_SEX(L_NO) eq <2>] [store <1> in T_SEX(L_NO)] [goto PRE_educa] [endif] [endif] [endif] ------------------------------------------------------------ >ERR_SPSEX2< [# IF ERR_SPSEX1 is 3 (NEITHER) ] [store <> in temp2] [store T_SPOUS(L_NO) in index] [make temp2 from NAME(index) <'s>] [# You said [fill FNAME] [fill LNAME] is [fill temp2] spouse. Is that correct? (1) Yes (2) No @ [@] <1> [goto PRE_educa] <2> [etc ] ------------------------------------------------------------ >PRE_EDUCA< [if {int}age le <13> goto PRE_WHENMOVE] [#if I_educ isnt <> and OLDPER eq <1> goto EDUCA_VER] [#goto EDUCA] ---------------------------------------------------------------------- >RIPV3_EDUCA< [#CURRENT RESPONDENT WAS NOT IN HH LAST TIME [if RIPVFL eq <1>] [goto EDUCA] [endif] [if I_RIPQ eq <1>] [if I_HHMEM eq <1>] [if I_EDUC ne <> and OLDPER eq <1>] [goto EDUCA_VER] [endif][endif][endif] [if I_RIPQ ne <1>] [if I_RIPHID eq HHRESP] [if I_EDUC ne <> and OLDPER eq <1>] [goto EDUCA_VER] [endif][endif][endif] [goto EDUCA] ---------------------------------------------------------------------- >EDUCA_VER< [window 3 size 21 rows 80 columns] [store <> in temp] [if I_EDUC eq <31>] [store <1st grade> in temp] [endif] [if I_EDUC eq <32>] [store in temp] [endif] [if I_EDUC eq <33>] [store in temp] [endif] [if I_EDUC eq <34>] [store in temp][endif] [if I_EDUC eq <35>] [store in temp] [endif] [if I_EDUC eq <36>] [store in temp] [endif] [if I_EDUC eq <37>] [store in temp] [endif] [if I_EDUC eq <38>] [store in temp] [endif] [if I_EDUC eq <39>] [store in temp][endif] [if I_EDUC eq <40>] [store in temp][endif] [if I_EDUC eq <41>] [store in temp] [endif] [if I_EDUC eq <42>] [store in temp][endif] [if I_EDUC eq <43>] [store in temp] [endif] [if I_EDUC eq <44>] [store in temp] [endif] [if I_EDUC eq <45>] [store in temp] [endif] [if I_EDUC eq <46>] [store in temp][endif] [if I_EDUC eq <47>] [store in temp][endif] [if L_NO eq respline] [store in temptext] [else] [make temptext from FNAME < > LNAME < > ] [endif] The highest grade or level of school [fill temptext] was [fill temp]. Is that still correct? (1) Yes (2) No @ [@]<1> [goto PRE_WHENMOVE] <2> [goto EDUCA] [goto PRE_WHENMOVE] --------------------------------------------------------------- >EDUCA< [window 3 size 21 rows 80 columns] [if L_NO eq respline] [store in temptext] [store in temp2] [store in temp3] [else] [make temptext from FNAME < > LNAME] [store in temp2] [store in temp3] [if sex eq <1>] [store in temp3] [endif] [if SEX is <2>] [store in temp3] [endif] [endif] [# What is the highest level of school [fill temptext] [fill temp2] completed or the highest degree [fill temp3] [fill temp2] received? (31) Less than 1st grade (44) Bachelors degree (32) 1st,2nd,3rd or 4th grade (for example: BA, AB, BS) (33) 5th or 6th grade (45) Master's degree (For example: (34) 7th or 8th grade MA, MS, MEng, MEd, MSW, MBA) (35) 9th grade (46) Professional School Degree (For (36) 10th grade example: MD, DDS, DVM, LLB, JD) (37) 11th grade (47) Doctorate degree (38) 12th grade, no diploma (For example PhD, EdD) (39) HIGH SCHOOL GRADUATE - high school DIPLOMA or equivalent (For example: GED) (40) Some college but no degree (41) Diploma or certificate from a vocational, technical, trade or business shcool beyond the High School level (42) Associate degree in college - Occupational/vocational program (43) Associate degree in college - Academic program @ [@]<31-47> [goto @a] [missing] [missing] [@a] [store educa in educ] ------------------------------------------------------------------- >PRE_WHENMOVE< [IF OLDPER eq <1> AND MOVYR ne <> goto PRE_NATVTY] ---------------------------------------------------------------------- >WMOVE_I< [allow int 2] [# USED FOR EDIT IN WHENMOVE FOR BACKUP PROTECTION ] >WHENMOVE< [window 3 size 21 rows 80 columns] [if L_NO eq respline] [store in temp2] [else] [make temp2 from FNAME < > LNAME] [endif] [# When did [fill temp2] move to this [fill HTYPEFILL]? [bold]FR: ENTER (X) if mother lived here when person was born.[n] ENTER 4 DIGIT YEAR @YR What month was that? (1) January (5) May (9) September (2) February (6) June (10) October (3) March (7) July (11) November (4) April (8) August (12) December @MON [@YR] <1800-1990> [goto @1] <1991-2001> [goto @1] [missing] [goto @1] [missing] [goto SET_MOVE] [@1] [store <13> in WMOVE_i] [IF WHENMOVE@YR eq <2001>] [store month in WMOVE_i] [ENDIF] [goto @MON] [@MON] <01-12> [reject gt WMOVE_i label ] [goto @2] [missing] [goto @2] [@2] [store WHENMOVE@YR in MOVYEAR] [store WHENMOVE@MON in MOVM] [if WHENMOVE@MON le <9>] [make movm from <0> WHENMOVE@MON] [else] [store WHENMOVE@MON in movm] [endif] [goto PRE_NATVTY] ---------------------------------------------------------------------- >SET_MOVE< [store BRTHY in MOVYEAR] [store BRTHM in MOVM] [if BRTHM le <9>] [make movm from <0> BRTHM] [else] [store BRTHM in movm] [endif] --------------------------------------------------------------------------- >PRE_NATVTY< [if I_NATVTY ne <> and OLDPER eq <1>] [goto PRE_CITIZN] [endif] -------------------------------------------------------------------------- >NATINTRO< [if L_NO eq respline] [store in temptext] [else] [make temptext from FNAME < > LNAME <'s>] [endif] The next few questions ask about [fill temptext] country of birth. ENTER (P) TO PROCEED @ [@]

===================================================================== >NTV< [allow 9] >NATDES< [allow 9 for 96] [store in NATDES(<57>)] [store in NATDES(<72>)] [store in NATDES(<96>)] >NATDES1< [allow 9 for 95] [store in NATDES1(<2>)] [store in NATDES1(<3>)] [store in NATDES1(<5>)] [store in NATDES1(<6>)] [store in NATDES1(<8>)] [store in NATDES1(<9>)] [store in NATDES1(<10>)] [store in NATDES1(<16>)] [store in NATDES1(<17>)] [store in NATDES1(<19>)] [store in NATDES1(<20>)] [store in NATDES1(<26>)] [store in NATDES1(<27>)] [store in NATDES1(<28>)] [store in NATDES1(<29>)] [store in NATDES1(<30>)] [store in NATDES1(<32>)] [store in NATDES1(<34>)] [store in NATDES1(<36>)] [store in NATDES1(<37>)] [store in NATDES1(<38>)] [store in NATDES1(<39>)] [store in NATDES1(<40>)] [store in NATDES1(<42>)] [store in NATDES1(<47>)] [store in NATDES1(<48>)] [store in NATDES1(<55>)] [store in NATDES1(<56>)] [store in NATDES1(<80>)] [store in NATDES1(<83>)] [store in NATDES1(<84>)] [store in NATDES1(<85>)] [store in NATDES1(<92>)] [store in NATDES1(<95>)] >NATDES2< [allow 9 for 53] [store in NATDES2(<2>)] [store in NATDES2(<5>)] [store in NATDES2(<6>)] [store in NATDES2(<7>)] [store in NATDES2(<9>)] [store in NATDES2(<10>)] [store in NATDES2(<11>)] [store in NATDES2(<12>)] [store in NATDES2(<13>)] [store in NATDES2(<14>)] [store in NATDES2(<15>)] [store in NATDES2(<16>)] [store in NATDES2(<18>)] [store in NATDES2(<21>)] [store in NATDES2(<22>)] [store in NATDES2(<24>)] [store in NATDES2(<29>)] [store in NATDES2(<31>)] [store in NATDES2(<33>)] [store in NATDES2(<34>)] [store in NATDES2(<37>)] [store in NATDES2(<38>)] [store in NATDES2(<39>)] [store in NATDES2(<40>)] [store in NATDES2(<42>)] [store in NATDES2(<45>)] [store in NATDES2(<52>)] [store in NATDES2(<53>)] >NATDES3< [allow 9 for 89] [store in NATDES3(<1>)] [store in NATDES3(<4>)] [store in NATDES3(<10>)] [store in NATDES3(<11>)] [store in NATDES3(<12>)] [store in NATDES3(<13>)] [store in NATDES3(<14>)] [store in NATDES3(<15>)] [store in NATDES3(<16>)] [store in NATDES3(<17>)] [store in NATDES3(<18>)] [store in NATDES3(<33>)] [store in NATDES3(<34>)] [store in NATDES3(<37>)] [store in NATDES3(<38>)] [store in NATDES3(<39>)] [store in NATDES3(<40>)] [store in NATDES3(<42>)] [store in NATDES3(<43>)] [store in NATDES3(<51>)] [store in NATDES3(<53>)] [store in NATDES3(<75>)] [store in NATDES3(<76>)] [store in NATDES3(<77>)] [store in NATDES3(<78>)] [store in NATDES3(<79>)] [store in NATDES3(<80>)] [store in NATDES3(<83>)] [store in NATDES3(<85>)] [store in NATDES3(<87>)] [store in NATDES3(<88>)] [store in NATDES3(<89>)] >NATDES4< [allow 9 for 68] [store in NATDES4(<15>)] [store in NATDES4(<17>)] [store in NATDES4(<21>)] [store in NATDES4(<27>)] [store in NATDES4(<36>)] [store in NATDES4(<40>)] [store in NATDES4(<49>)] [store in NATDES4(<62>)] [store in NATDES4(<68>)] >NATDES5< [allow 9 for 55] [store in NATDES5(<01>)] [store in NATDES5(<07>)] [store in NATDES5(<14>)] [store in NATDES5(<27>)] [store in NATDES5(<55>)] --------------------------------------------------------------------- >S_NATVTY< [store <> in temp2] [if L_NO eq respline] [store in temptext] [store in temp2] [else] [make temptext from FNAME < > LNAME] [store in temp2] [endif] In what country [fill temp2] [fill temptext] born? (57) United States (72) Puerto Rico (96) Outlying Area of the U.S. (American Samoa, Guam, U.S. Virgin Islands, Northern Marianas, Other U.S. Territory.) @1 **TO SEE FULL LIST OF COUNTRIES** Use SHIFT-F3 for A through J Use SHIFT-F4 for K through Z, and OTHER geographical areas [if NTV ne <>] IF [fill NTV] IS CORRECT, ENTER

TO PROCEED @2 [endif] [@1]<57,72,96,102,103,105,106,108-110,116,117,119,120,126-130> <132,134,136-139,140,142,147,148,155,156,180,183-185,192,195> <200,202,205-207,209,210-216,218,221,222,224,229,231,233,234> <237-240,242,245,252,253> <300,301,304,310-318,333,334,337-340,342,343,351,353> <375-380,383,385,387-389,415,417,421,427,436,440,449,462,468> <501,507,514,527,555> [missing] [if S_NATVTY@1 ne and S_NATVTY@1 ne ] [if S_NATVTY@1 lt <100>] [store NATDES(S_NATVTY@1) in NTV] [else] [if S_NATVTY@1 gt <100> and S_NATVTY@1 lt <200>] [store (S_NATVTY@1 - <100>) in INDEX] [store NATDES1(INDEX) in NTV] [else] [if S_NATVTY@1 eq <200>] [store in NTV] [else] [if S_NATVTY@1 gt <200> and S_NATVTY@1 lt <300>] [store (S_NATVTY@1 - <200>) in INDEX] [store NATDES2(INDEX) in NTV] [else] [if S_NATVTY@1 eq <300>] [store in NTV] [else] [if S_NATVTY@1 gt <300> and S_NATVTY@1 lt <400>] [store (S_NATVTY@1 - <300>) in INDEX] [store NATDES3(INDEX) in NTV] [else] [if S_NATVTY@1 gt <400> and S_NATVTY@1 lt <500>] [store (S_NATVTY@1 - <400>) in INDEX] [store NATDES4(INDEX) in NTV] [else] [if S_NATVTY@1 gt <500>] [store (S_NATVTY@1 - <500>) in INDEX] [store NATDES5(INDEX) in NTV] [endif][endif][endif][endif][endif][endif] [endif][endif][endif] [if S_NATVTY@1 onpath] [store S_NATVTY@1 in NATVTY] [endif] [@2] [goto PRE_CITIZN] --------------------------------------------------------------------------- >PRE_CITIZN< [if NATVTY eq <57> or NATVTY eq <057> or NATVTY eq <72> or NATVTY eq <072>] [goto PRE_RACE] [endif] [# [if S_NATVTY@1 onpath and (NATVTY eq <96> or NATVTY eq <096>)] [goto S_INUSYR] [endif] [# [if (NATVTY eq <96> or NATVTY eq <096>) and I_INUSYR eq <>] [goto S_INUSYR] [endif] [# [if S_NATVTY@1 onpath goto S_CITIZN] [# [if I_CITIZN eq <> goto S_CITIZN] [# [if I_CITIZN eq <1> and OLDPER eq <1> goto PRE_CTZNA] [# [if I_CTZNA eq <2> and I_CTZNB eq <> and OLDPER eq <1>] [goto S_CTZNB] [endif] [if I_CITIZN ne <> and I_INUSYR eq <> and OLDPER eq <1>] [goto S_INUSYR] [endif] [goto PRE_RACE] --------------------------------------------------------------------------- >S_CITIZN< [store <> in temp2] [if L_NO eq respline] [store in temp2] [store in temptext] [else] [store in temp2] [make temptext from FNAME < > LNAME] [endif] [fill temp2] [fill temptext] a CITIZEN of the United States? (1) Yes (2) No, not a citizen @ [@] <1,2,D,R> [goto @1] [@1] [store S_CITIZN in CITIZN] [if S_CITIZN eq <1> goto PRE_CTZNA] [goto INUSELck] --------------------------------------------------------------------------- >PRE_CTZNA< [if I_CTZNA ne <> and OLDPER eq <1> goto PRE_INUSYR] --------------------------------------------------------------------------- >S_CTZNA< [store <> in temp2] [if L_NO eq respline] [store in temp2] [store in temptext] [else] [store in temp2] [make temptext from FNAME < > LNAME] [endif] [fill temp2] [fill temptext] born a citizen of the United States? (1) Yes (2) No @ [@] <1,2,D,R> [goto @1] [@1] [store S_CTZNA in CTZNA] [if S_CTZNA eq <1> or S_CTZNA eq goto PRE_INUSYR] [goto PRE_CTZNB] --------------------------------------------------------------------------- >PRE_CTZNB< [if I_CTZNB ne <> and OLDPER eq <1> goto PRE_INUSYR] --------------------------------------------------------------------------- >S_CTZNB< [store <> in temp2] [if L_NO eq respline] [store in temptext] [else] [make temptext from FNAME < > LNAME] [endif] Did [fill temptext] become a citizen of the United States through naturalization? (1) Yes (2) No @ [@] <1,2,D,R> [goto @1] [@1] [store S_CTZNB in CTZNB] [goto PRE_INUSYR] --------------------------------------------------------------------------- >INUSELck< [if CITIZN eq <2> goto PRE_INUSYR] [goto PRE_RACE] --------------------------------------------------------------------------- >PRE_INUSYR< [if I_INUSYR ne <> and OLDPER eq <1> goto PRE_RACE] --------------------------------------------------------------------------- >S_INUSYR< [missing ] [if L_NO eq respline] [store in temptext] [else] [make temptext from FNAME < > LNAME] [endif] [# [store <> in temp2] [store <> in temp3] [store <> in index4] [store BRTHY in XBAD(<1>)] [store (YEAR - BRTHY) in index4] [store index4 in xbad(<2>)] [make temp2 from BRTHY <-2001>] [make temp3 from <1-> index4] [# [if BRTHY eq or BRTHY eq or BRTHY eq <>] [store <1873> in XBAD(<1>)] [store <128> in xbad(<2>)] [store <1873-2001> in temp2] [store <1-128> in temp3] [endif] [# [setdate DATE] [# When did [fill temptext] come to live in the United States? ENTER FOUR DIGIT YEAR ([fill temp2]) @1 IF RESPONDENT REPORTS THE NUMBER OF YEARS AGO INSTEAD OF THE ACTUAL YEAR, ENTER NUMBER REPORTED ([fill temp3]) @2 [@1] <1873-2001,D,R> [accept ge XBAD(<1>)] [optional][goto @3] [@2] <1-128> [reject gt XBAD(<2>)] [goto VER_INUSYR] [goto @4] [@3] [store S_INUSYR@1 in INUSYR] [goto PRE_RACE] [@4] [store S_INUSYR@2 in INUSYR] [goto PRE_RACE] ---------------------------------------------------------------------- >VER_INUSYR< [store <0> in index4] [store (YEAR - S_INUSYR@2) in index4] That would be [fill index4]. Is that correct? (1) Yes (2) No @ [@] <1> [goto @1] <2,D,R> [goto S_INUSYR] [@1] [store index4 in INUSYR] [goto PRE_RACE] ---------------------------------------------------------------------- >PRE_RACE< [if I_RACE isnt <> and OLDPER eq <1> goto PRE_ORIGN] ---------------------------------------------------------------------- >S_RACE< [if L_NO eq respline] [store in temptext] [else] [make temptext from FNAME < > LNAME <'s>] [endif] [# What is [fill temptext] race? (1) White (2) Black (3) American Indian, Aleut, or Eskimo (4) Asian or Pacific Islander (5) Other Race @ [@] <1-5> [goto @a] [missing] [@a] [store S_RACE in race] ------------------------------------------------------------ >PRE_ORIGN< [if I_ORIGN isnt <> and OLDPER eq <1> goto CK_LNPAR] --------------------------------------------------------------- >S_ORIGIN< [if L_NO eq respline] [store in temptext] [store in temp2] [else] [make temptext from FNAME < > LNAME] [store in temp2] [endif] [# [fill temp2] [fill temptext] Hispanic or Spanish-American? (1) Yes (2) No @ [@] <1,2,D,R> [goto @a] [@a] [store S_ORIGIN in ORIGN] ----------------------------------------------------------------------- >CK_LNPAR< [IF REL2 eq <2>] NON-REL WITH NO OTHER RELATIVES [store <0> in PAR] [goto END_DEMOS] (EDIT #16) [ENDIF] [IF REL eq <2> OR REL eq <02>] REFERENCE PERSON WITHOUT [store <0> in PAR] [goto END_DEMOS] (EDIT #16) [ENDIF] [IF REL eq <22>] (EDIT #21) (CHILD OF REFERENCE PERSON) [store REF_LNO in PAR] [goto END_DEMOS] [ENDIF] [IF REL eq <01> OR REL eq <1>] [IF MOMIX ne <> AND MOMIX ne <0>] [store MOMIX in PAR] [ELSE] [store DADIX in PAR] [ENDIF] [goto END_DEMOS] [ENDIF] IF A ONE PERSON HOUSEHOLD THEN SKIP OVER S_LNPARENT [IF PCNT eq <1> goto END_DEMOS] [store L_NO in WHO] [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index4] [loop for X from <1> to <30>] [IF (T_AGE(X) le <13> AND T_AGE(X) gt <0>) OR T_SPOUS(WHO) eq X] [ELSE] [IF T_REL(X) eq <01> OR T_REL(X) eq <1>] [add <1> to index2] [ENDIF] [IF T_REL(X) eq <20>] [add <1> to index2] [ENDIF] [IF T_REL(X) eq <26>] [add <1> to index] [ENDIF] [IF T_REL(X) eq <22>] [add <1> to index3] [ENDIF] [IF (T_REL(X) eq <21> or (T_REL(X) ge <27> AND T_REL(X) le <30>)) AND T_REL2(X) eq <1>] [add <1> to index4] [ENDIF] [IF T_REL(X) eq <31> or T_REL(X) eq <33> or T_REL(X) eq <35> or T_REL(X) eq <37>] [add <1> to index4] [ENDIF] [ENDIF] [loop end X] [IF PCNT eq <2> AND index2 eq <2> goto END_DEMOS] [IF REL eq <20> AND index eq <0>] PARENT OF SPOUSE CAN ONLY BE "OTHER REL" [store <> in PAR] [goto END_DEMOS] [ENDIF] [IF REL eq <23> AND index eq <0> AND index3 eq <0>] [store <> in PAR] [goto END_DEMOS] [ENDIF] [IF REL eq <24> AND index eq <0>] PARENT OF PARENT CAN ONLY BE "OTHER REL" [store <> in PAR] [goto END_DEMOS] [ENDIF] [IF REL eq <25>] [IF MOMIX ne <> AND MOMIX ne <0>] [store MOMIX in PAR] [ELSE] [store DADIX in PAR] [ENDIF] [goto END_DEMOS] [ENDIF] [IF REL eq <26> AND (index eq <0> OR index eq <1>)] [store <> in PAR] [goto END_DEMOS] [ENDIF] [IF (REL eq <21> or (REL ge <27> and REL le <30>)) AND REL2 eq <1> AND (index4 eq <0> OR index4 eq <1>)] [store <> in PAR] [goto END_DEMOS] [ENDIF] [IF (REL eq <31> or REL eq <33> or REL eq <35> or REL eq <37>) AND (index4 eq <0> OR index4 eq <1>)] [store <> in PAR] [goto END_DEMOS] [ENDIF] [IF I_PAR isnt <> AND OLDPER eq <1> goto END_DEMOS] [if NEWPCNT eq <0>] [goto end_demos] [endif] [goto S_LNPARENT] ---------------------------------------------------------------------- >PRLN< [template] LISTING OF ELIGIBLE PARENTS LN NAME [loop for index from <1> to <30>] [store <99> in xbad(index)] [loop end] [store L_NO in WHO] [roster begin persons] [IF SKIPFLAG(L_NO) eq <1> OR L_NO eq WHO OR HHMEM eq <2> OR (AGE le <13> AND AGE gt <0>) OR T_SPOUS(WHO) eq L_NO] [store L_NO in xbad(L_NO)] [ELSE] [IF T_REL(WHO) eq <20> OR T_REL(WHO) eq <26> OR T_REL(WHO) eq <24>] [IF REL eq <26>] [fill L_NO:0] [fill FNAME] [fill LNAME] [ENDIF] [ENDIF] [IF T_REL(WHO) eq <23>] [IF REL eq <26> OR REL eq <22>] [fill L_NO:0] [fill FNAME] [fill LNAME] [ENDIF] [ENDIF] [IF (T_REL(WHO) eq <21> or (T_REL(WHO) ge <27> and T_REL(WHO) le <30>)) AND T_REL2(WHO) eq <1>] [IF (REL eq <21> or (REL ge <27> AND REL le <30>)) AND REL2 eq <1>] [fill L_NO:0] [fill FNAME] [fill LNAME] [ENDIF] [IF REL eq <31> or REL eq <33> or REL eq <35> or REL eq <37>] [fill L_NO:0] [fill FNAME] [fill LNAME] [ENDIF] [ENDIF] [IF T_REL(WHO) eq <31> or T_REL(WHO) eq <33> or T_REL(WHO) eq <35> or T_REL(WHO) eq <37>] [IF (REL eq <21> or (REL ge <27> and REL le <30>)) and REL2 eq <1>] [fill L_NO:0] [fill FNAME] [fill LNAME] [endif] [IF REL eq <31> or REL eq <33> or REL eq <35> or REL eq <37>] [fill L_NO:0] [fill FNAME] [fill LNAME] [endif] [endif] [ENDIF] [roster end persons] [end] ------------------------------------------------------------ >S_LNPARENT< [window 3 size 20 rows 35 columns] [display PRLN window 4] [# [IF L_NO eq respline] [store in temp3] [ELSE] [make temp3 from FNAME < > LNAME <'s> < parents>] [ENDIF] [# [#(don't list: ] [# reference person if refper is w/o (EDIT #29) ] [# anyone with REL2 eq 2 (EDIT #17)] [# if REL2 eq 1 only display others with REL2 eq 1 EDIT #33 ] [# [# Do [fill temp3] live in this household? ** ENTER LINE NUMBER OF PARENT ** ENTER (0) FOR NONE @ [@] <1-99> [reject gt HIGH_LNO label ] [reject eq XBAD label ] [missing] <0> [default goto @1] [@1] [store S_LNPARENT in PAR] ---------------------------------------------------------------------- >CK_PRAGE< [# EDIT #30. The PARENT OF A CHILD MUST BE AT LEAST 14 YEAR OLDER THAN THE CHILD [IF PAR is <0> goto END_DEMOS] [store <0> in index] [store <0> in index2] [store PAR in index3] [store T_AGE(index3) in index] AGE OF PARENT [store AGE in index2] AGE OF CHILD [IF index eq <0> OR index eq <> goto AFT_DEMO] [subtract index2 from index] [IF index ge <14> goto AFT_DEMO] ---------------------------------------------------------------------- >ERR_PRAGE< [store <0> in index] [store <0> in index2] [store PAR in index3] [store T_AGE(index3) in index] [store AGE in index2] [subtract index2 from index] You only have [fill index] years age difference between parent and child. Is that correct? (1) Yes (2) No @ [@] <1,2>[goto AFT_DEMO] ---------------------------------------------------------------------- >AFT_DEMO< [window 3 size 21 rows 80 columns] --------------------------------------------------------------------- >END_DEMOS< COMMENT: This is the end of the loop where we collect age, date of birth, marital status, line number of spouse, and education. [roster end persons] ------------------------------------------------------------ >BEG_PER6< [roster begin persons] ------------------------------------------------------------ >SR007< [if SKIPFLAG(L_NO) eq <1> OR HHMEM eq <2> goto END_PER6] ------------------------------------------------------------ >UPDATE3< [store FNAME in T_FNAME(L_NO)] [store LNAME in T_LNAME(L_NO)] [make name(L_NO) from FNAME < > LNAME] [store REL in T_REL(L_NO)] [if NXTSEX eq T_SEX(L_NO)] [else] [store T_SEX(L_NO) in NXTSEX] [endif] [if MAR eq T_MAR(L_NO)] [else] [store T_MAR(L_NO) in MAR] [endif] [if SPOUS eq T_SPOUS(L_NO)] [else] [store T_SPOUS(L_NO) in SPOUS] [endif] ------------------------------------------------------------ >END_PER6< [roster end persons] ------------------------------------------------------------ >RESET_NROSIZE< [if replce ne <1> goto PRE_CHANGE] >R2_NROSIZE< [store <0> in NROSIZE] [roster begin persons] [add <1> to NROSIZE] [store NROSIZE in HIGH_LNO] [roster end persons] ---------------------------------------------------------------------- >PRE_CHANGE< [window 4 displays] [window 4 start row 13 column 1] [window 4 size 11 rows 80 columns] [window 4 no border] [window 4 line top] >CHANGE< [window 3 size 7 rows 80 columns] [display T_HHROS window 4] [# [if CHANGE isnt

] [reset CHANGE] [endif] [if F_CHANGE eq <1>] [reset CHANGE] [# NEEDED FOR (A) SINCE IT GOES TO [store <0> in F_CHANGE] [# A REFERENCE SCREEN, THE SYSTEM DOES [endif] [# NOT SEE THAT AS A CHANGED ANSWER [# [loop for index from <1> to <30>] [store <0> in XBAD(index)] [if SKIPFLAG(index) eq <1> AND T_FNAME(index) is <>] [store index in XBAD(index)] [endif] [loop end index] [reset CHG_WHAT] REVIEW ALL CATEGORIES AND MAKE ANY CORRECTIONS AS NEEDED. F12 AND THEN "PAGE DOWN" FOR NEXT PAGE Enter LINE NUMBER if ANY changes needed (A) ADD a new person (P) data correct - Proceed @ [@] <1-30> [reject gt HIGH_LNO] [reject eq XBAD]

[missing] [goto CK_CHANGE] [missing] [etc ] ------------------------------------------------------------------------ >CHG_WHAT< [reset CHG_WHAT] [window 3 size 21 rows 80 columns] [display CHNG2] [store <> in TEMP2] [if CHANGE ne <> and CHANGE ne

] [make TEMP2 from T_FNAME(CHANGE) < > T_LNAME(CHANGE)] [endif] [IF T_AGE(CHANGE) lt <15>] [store <5> in index2] [store <6> in index3] [ELSE] [store <0> in index2] [store <0> in index3] [ENDIF] What change is needed for: [fill TEMP2] (M) Mistake -- no changes needed (7) Race (1) Name (4) Age (8) Origin (2) Relationship (5) Marital Status (9) Delete Person (3) Sex (6) Education (10) UNdelete Person @ [@] [missing] [etc ] <1-8> [reject eq index2 OR index3 label ] <9> [goto DEL_PER] <10> [goto UNDEL_PER] ------------------------------------------------------------ >CHANGE_BEGIN< [roster begin persons] [if L_NO ne CHANGE goto CHANGE_END] [if CHG_WHAT eq <1> goto FIXNAME] [if CHG_WHAT eq <2> goto FIXREL] [if CHG_WHAT eq <3> goto FIXSEX] [if CHG_WHAT eq <4> goto FIXBDATE] [if CHG_WHAT eq <5> goto FIXMAR] [if CHG_WHAT eq <6> goto FIXEDUC] [if CHG_WHAT eq <7> goto FIXRACE] [if CHG_WHAT eq <8> goto FIXORIG] ------------------------------------------------------------ >FIXNAME< [equiv FNAME] [window 3 size 21 rows 80 columns] What is the name of the person living or staying here? FIRST NAME @FNAME LAST NAME @LNAME [@FNAME] [allow 20] [goto @1] [@LNAME] [allow 20] [goto @3] [@1] [store FIXNAME@FNAME in T_FNAME(L_NO)] [store FIXNAME@FNAME in FNAME] [goto @LNAME] [@3] [store FIXNAME@LNAME in T_LNAME(L_NO)] [store FIXNAME@LNAME in LNAME] [make name(L_NO) from FNAME < > LNAME] [goto CHANGE_RSET] ------------------------------------------------------------ >FIXREL< [equiv REL] [store <> in temp2] [store REF_LNO in P_REF_LNO] [make temp2 from T_FNAME(P_REF_LNO) < > T_LNAME(P_REF_LNO)] What is [fill FNAME] [fill LNAME]'s relationship to [fill temp2]? (20) Spouse (Husband/Wife) (21) Unmarried Partner (22) Child (23) Grandchild (24) Parent (Mother/Father) (25) Brother/Sister (26) Other Relative of Reference Person (Uncle, cousin, mother-in-law, father-in-law, etc.) (27) Foster child (28) Housemate/Roomate (29) Roomer/Boarder (30) Other Non-Relative of Reference Person @ [@] <20-30> [missing] [default goto @1] [@1] [store FIXREL in T_REL(L_NO)] --------------------------------------------------------- >FIX_CK_REL< [IF REL eq <27> OR REL eq <28> OR REL eq <29> OR REL eq <30> goto FIX_REL2] [goto C_CK_SP1] ---------------------------------------------------------------------- >FIX_REL2< [equiv REL2] [store <> in temp3] [IF L_NO eq respline] [store in temp3] [ELSE] [make temp3 from FNAME < > LNAME] [ENDIF] [# Does anybody related to [fill temp3] live here? (1) Yes (2) No @ [@] <1,2> [goto @1] [@1] [store FIX_REL2 in T_REL2(L_NO)] ---------------------------------------------------------------------- >C_CK_SP1< ******* COMMENT: If REL(PX) = 2 and SPIX is not equal 0 (a spouse of reference person has already been reported), GOTO SPOUSE3. [if T_REL(L_NO) eq <20>] [if SPIX eq <0> or SPIX eq <> or SPIX eq L_NO] [else] [goto FIXSPOUSE3] [endif] [endif] COMMENT: If REL(PX) = 2 and SEX(PX) = 1 or 2 and SEX(PX) = SEX(1) then GOTO SPOUSE1 [if T_REL(L_NO) eq <20>] [if T_SEX(L_NO) eq <1>] [if T_SEX(P_REF_LNO) eq T_SEX(L_NO)] [goto FIXSPOUSE1] [endif] [else] [if T_SEX(L_NO) eq <2>] [if T_SEX(P_REF_LNO) eq T_SEX(L_NO)] [goto FIXSPOUSE1] [endif] [endif] [endif] [endif] COMMENT: If REL(PX) = 5 and SEX(PX) = 1 then, If DADIX = 0, GOTO SET_MDIX otherwise, GOTO DAD1 [if T_REL(L_NO) eq <24>] [if T_SEX(L_NO) eq <1>] [if DADIX eq <0>] [goto C_SET_MDIX] [else] [goto FIXDAD1] [endif] [endif] [endif] COMMENT: If REL(PX) = 5 and SEX(PX) = 2 then, If MOMIX = 0, GOTO SET_MDIX otherwise, GOTO MOM1 [if T_REL(L_NO) eq <24>] [if T_SEX(L_NO) eq <2>] [if MOMIX eq <0>] [goto C_SET_MDIX] [else] [goto FIXMOM1] [endif] [endif] [endif] COMMENT: Otherwise GOTO AFT_REL [goto C_AFT_REL] ------------------------------------------------------------ >FIXSPOUSE1< [equiv SPOUSE1] [# [store <> in temp2] [store <> in temp4] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [# [if T_SEX(L_NO) eq <1>] [store in temp8] [else] [store in temp8] [endif] [# [make temp2 from NROSIZE < > RPNAME@FNAME < > RPNAME@LNAME] [if T_SEX(P_REF_LNO) eq <1>] [store in temp9] [else] [store in temp9] [endif] [# [store T_FNAME(P_REF_LNO) in temp6] [store T_LNAME(P_REF_LNO) in temp7] [make temp4 from P_REF_LNO < > TEMP6 < > TEMP7] [bold](DO NOT READ TO RESPONDENT UNLESS NECESSARY)[normal] Is one of the following SEX entries incorrect? LINE NAME SEX [fill temp4:l] [fill TEMP9] [fill temp2:l] [fill TEMP8] (1) To correct LINE 1's SEX entry (2) To correct LINE [fill NROSIZE]'s SEX entry (3) Neither sex entry is incorrect @ [@] <1-3> ------------------------------------------------------------ >C_CK_SP2< COMMENT: if the response to SPOUSE1 is 1, change SEX(1) from 1 to 2 or from 2 to 1 and GOTO AFT_REL [if FIXSPOUSE1@ eq <1>] [if T_SEX(P_REF_LNO) eq <1>] [store <2> in T_SEX(P_REF_LNO)] [store <2> in REF_SEX] [goto C_AFT_REL] [else] [if T_SEX(P_REF_LNO) eq <2>] [store <1> in T_SEX(P_REF_LNO)] [store <1> in REF_SEX] [goto C_AFT_REL] [endif] [endif] [endif] COMMENT: If the response to SPOUSE1 is 2, change SEX(PX) from 1 to 2 or from 2 to 1 and GOTO AFT_REL [if FIXSPOUSE1 eq <2>] [if T_SEX(L_NO) eq <1>] [store <2> in T_SEX(L_NO)] [goto C_AFT_REL] [else] [if T_SEX(L_NO) eq <2>] [store <1> in T_SEX(L_NO)] [goto C_AFT_REL] [endif] [endif] [endif] ------------------------------------------------------------ >FIXSPOUSE2< [equiv SPOUSE2] [store <> in temp2] [store <> in temp8] [store <> in temp9] [store REF_LNO in P_REF_LNO] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [make temp2 from temp8 < > temp9 <'s>] You said [fill FNAME] [fill LNAME] is [fill temp2] spouse. Is that correct? (1) Yes (2) No @ [@] <1> [goto C_AFT_REL] <2> [etc ] ------------------------------------------------------------ >FIXSPOUSE3< [equiv SPOUSE3] [store <> in temp2] [store <> in temp3] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in TEMP9] [# [store T_FNAME(P_SPIX) in temp6] [store T_LNAME(P_SPIX) in temp7] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [# [make temp2 from temp8 < > temp9 <'s>] [make temp3 from temp6 < > temp7] [bold](DO NOT READ TO RESPONDENT UNLESS NECESSARY)[normal] Earlier I recorded [fill temp3] was [fill temp2] spouse. You have just reported [fill FNAME] [fill LNAME] is also [fill temp2] spouse. Which is correct? (1) [fill temp3] is the correct spouse. Change relationship entry of [fill FNAME] [fill LNAME] (2) [fill FNAME] [fill LNAME] is the correct spouse. Change relationship entry of [fill temp3] @ [@] <1> [etc ] <2> ------------------------------------------------------------ >FIXSPOUSE4< [equiv SPOUSE4] [store <> in temp2] [store <> in temp3] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [# [store T_FNAME(P_SPIX) in temp6] [store T_LNAME(P_SPIX) in temp7] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [# [make temp2 from temp8 < > temp9] [make temp3 from temp6 < > temp7 <'s>] Which one of the responses listed best describes [fill temp3] relationship to [fill temp2]? (22) Child (23) Grandchild (24) Parent (Mother/Father) (25) Brother/Sister (26) Other Relative of Reference Person (Uncle, cousin, mother-in-law, father-in-law, etc.) (27) Foster child (28) Housemate/Roomate (29) Roomer/Boarder (30) Other Non-Relative of Reference Person @ [@] <22-30> [missing] [missing] [default goto @1] [@1] [store FIXSPOUSE4 in T_REL(P_SPIX)] [store <0> in SPIX] [goto C_CK_SP1] ------------------------------------------------------------ >FIXDAD1< [equiv DAD1] [store <> in temp2] [store <> in temp3] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [# [store T_FNAME(P_DADIX) in temp6] [store T_LNAME(P_DADIX) in temp7] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [# [make temp2 from temp8 < > temp9] [make temp3 from temp6 < > temp7] You have reported both [fill temp3] and [fill FNAME] [fill LNAME] are parents of [fill temp2] Is that correct? (1) No, change relationship to reference person code for [fill FNAME] [fill LNAME] (2) No, change relationship to reference person code for [fill temp3] (3) Yes, this is correct. (One is natural father, one is step-father, for example) @ [@] <1> [etc ] <2> <3> [goto C_SET_MDIX] ------------------------------------------------------------ >FIXDAD2< [equiv DAD2] [store <> in temp2] [store <> in temp3] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [# [store T_FNAME(P_DADIX) in temp6] [store T_LNAME(P_DADIX) in temp7] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [# [make temp2 from temp8 < > temp9] [make temp3 from temp6 < > temp7 <'s>] Which one of the responses listed best describes [fill temp3] relationship to [fill temp2]? (22) Child (23) Grandchild (24) Parent (Mother/Father) (25) Brother/Sister (26) Other Relative of Reference Person (Uncle, cousin, mother-in-law, father-in-law, etc.) (27) Foster child (28) Housemate/Roomate (29) Roomer/Boarder (30) Other Non-Relative of Reference Person @ [@] <22-30> [missing] [missing] [default goto @1] [@1] [store FIXDAD2 in T_REL(P_DADIX)] [store <0> in DADIX] [goto C_SET_MDIX] ------------------------------------------------------------ >FIXMOM1< [equiv MOM1] [store <> in temp2] [store <> in temp3] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [# [store T_FNAME(P_MOMIX) in temp6] [store T_LNAME(P_MOMIX) in temp7] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [# [make temp2 from temp8 < > temp9] [make temp3 from temp6 < > temp7] You have reported both [fill temp3] and [fill FNAME] [fill LNAME] are parents of [fill temp2] Is that correct? (1) No, change relationship to reference person code for [fill FNAME] [fill LNAME] (2) No, change relationship to reference person code for [fill temp3] (3) Yes, this is correct. (One is natural mother, one is step-mother, for example) @ [@] <1> [etc ] <2> <3> [goto C_SET_MDIX] ------------------------------------------------------------ >FIXMOM2< [equiv MOM2] [store <> in temp2] [store <> in temp3] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [# [store T_FNAME(P_MOMIX) in temp6] [store T_LNAME(P_MOMIX) in temp7] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [# [make temp2 from temp8 < > temp9] [make temp3 from temp6 < > temp7 <'s>] Which one of the responses listed best describes [fill temp3] relationship to [fill temp2]? (22) Child (23) Grandchild (24) Parent (Mother/Father) (25) Brother/Sister (26) Other Relative of Reference Person (Uncle, cousin, mother-in-law, father-in-law, etc.) (27) Foster child (28) Housemate/Roomate (29) Roomer/Boarder (30) Other Non-Relative of Reference Person @ [@] <22-30> [missing] [missing] [default goto @1] [@1] [store FIXMOM2 in T_REL(P_MOMIX)] [store <0> in MOMIX] [goto C_SET_MDIX] ------------------------------------------------------------ >C_AFT_REL< COMMENT: If REL(PX) = 2 then set SPIX = PX [if T_REL(L_NO) eq <20>] [store NROSIZE in SPIX] [endif] ------------------------------------------------------------ >C_SET_MDIX< COMMENT: If REL(PX) = 5 and SEX(PX) = 1 then, If DADIX = 0, SET DADIX = PX [if T_REL(L_NO) eq <24>] [if T_SEX(L_NO) eq <1>] [if DADIX eq <0>] [store L_NO in DADIX] [endif] [endif] [endif] COMMENT: If REL(PX) = 5 and SEX(PX) = 2 then, If MOMIX = 0, SET MOMIX = PX [if T_REL(L_NO) eq <24>] [if T_SEX(L_NO) eq <2>] [if MOMIX eq <0>] [store L_NO in MOMIX] [endif] [endif] [endif] [goto CHANGE_RSET] ---------------------------------------------------------------------- >FIXSEX< [equiv SEX] [if L_NO eq respline] [store in temp2] [store in temptext] [else] [store in temp2] [make temptext from FNAME < > LNAME] [endif] [bold]ASK IF NOT APPARENT:[normal] [fill temp2] [fill temptext] Male or Female? (1) Male (2) Female @ [@] <1-2> [missing] [default goto @1] [@1] [store FIXSEX in T_SEX(L_NO)] [goto CHANGE_RSET] ------------------------------------------------------------ >FIXBDATE< [equiv BRTHM] [if L_NO eq respline] [store in temptext] [else] [make temptext from FNAME < > LNAME <'s>] [endif] What is [fill temptext] date of birth? (1) January (5) May (9) September (2) February (6) June (10) October (3) March (7) July (11) November (4) April (8) August (12) December ENTER MONTH: @BMON ENTER DAY: @BRTHD ENTER 4 DIGIT YEAR: @BYR [@BMON] [missing] <1-12> [@BRTHD] [missing] [missing] <1-31> [reject gt BMON2(FIXBDATE@BMON)] [@BYR] [missing] [goto FIXAGEGES] <1873-2001> ------------------------------------------------------------ >FIXCALC_AGE< [store in temp] [if SEX eq <1>][store in temp][endif] [if SEX eq <2>][store in temp][endif] [# COMMENT: Use the information collected in screen BRTHDATE together with the current month (MONTH) and current year (Year), available from the laptops calendar as follows: [IF FIXBDATE@BMON is OR FIXBDATE@BMON is goto FIXAGEGES] [IF FIXBDATE@BRTHD is OR FIXBDATE@BRTHD is goto FIXAGEGES] [store <0> in index4] [setdate date] [store {int}year in index4] [if {int}BRTHM lt {int}month OR ({int}BRTHM eq {int}month AND {int}BRTHD le {int}day)] [store (index4 - {int}BRTHY) in AGE] [else] [store ((index4 - {int}BRTHY) - <1>) in AGE] [endif] [if AGE lt <0> goto FIXERR_AGE] [goto FIXVER_AGE] ------------------------------------------------------------ >FIXERR_AGE< [equiv ERR_AGE] ** DO NOT READ TO RESPONDENT ** BIRTHDATE IS IN THE FUTURE ENTER (P) TO BACK TO BRTHDATE @ [@]

[etc ] ---------------------------------------------------------------------- >FIXVER_AGE< [if AGE ge <1>] [make temp2 from AGE < > ] [else] [store in temp2] [endif] [if L_NO eq respline] [store in temptext] [else] [make temptext from FNAME < > LNAME < > ] [endif] So [fill temptext] now [fill temp2] Is that correct? (1) Yes, age is correct (2) No, age is not correct @ [@] <1> [goto @1] <2> [etc ] [missing] [goto @1] [@1] [store AGE in T_AGE(L_NO)] [goto CHANGE_RSET] ------------------------------------------------------------ >FIXAGEGES< [if L_NO eq respline] [store in temptext] [else] [make temptext from FNAME < > LNAME < > <'s>] [endif] [# ENTER YOUR BEST ESTIMATE OF [fill temptext] AGE: @ [@] <0-120> [goto @1] [missing] [goto FIXUNDAGE] [@1] [store FIXAGEGES in AGE] [store FIXAGEGES in T_AGE(L_NO)] [goto CHANGE_RSET] ---------------------------------------------------------------------- >FIXUNDAGE< [store in temp] [if SEX eq <1>][store in temp][endif] [if SEX eq <2>][store in temp][endif] ** ASK IF NECESSARY ** Is [fill temp] under 16 years of age? (1) Yes (2) No @ [@] <1,2> [missing] [default goto @1] [@1] [If FIXUNDAGE eq <1>] [store <13> in AGE] [store <13> in T_AGE(L_NO)] [ELSE] [store <17> in AGE] [store <17> in T_AGE(L_NO)] [ENDIF] [goto CHANGE_RSET] ------------------------------------------------------------ >FIXMAR< [equiv MAR] [window 3 size 21 rows 80 columns] [# [if L_NO eq respline] [store in temptext] [store in temp2] [else] [store in temp2] [make temptext from FNAME < > LNAME] [endif] [# [fill temp2] [fill temptext] now married, widowed, divorced, separated or never married? (1) Married, SPOUSE PRESENT (2) Married, SPOUSE ABSENT (3) Widowed (4) Divorced (5) Separated (6) Never married @ [@] <1-5> <6> [missing] [missing] [default goto @1] [@1] [store FIXMAR in T_MAR(L_NO)] [goto CHANGE_RSET] ------------------------------------------------------------ >FIXEDUC< [equiv EDUC] [window 3 size 21 rows 80 columns] [if L_NO eq respline] [store in temptext] [store in temp2] [store in temp3] [else] [make temptext from FNAME < > LNAME] [store in temp2] [store in temp3] [if SEX is <1>] [store in temp3] [endif] [if SEX is <2>] [store in temp3] [endif] [endif] What is the highest level of school [fill temptext] [fill temp2] completed or the highest degree [fill temp3] [fill temp2] received? (31) Less than 1st grade (44) Bachelors degree (32) 1st,2nd,3rd or 4th grade (for example: BA, AB, BS) (33) 5th or 6th grade (45) Master's degree (For example: (34) 7th or 8th grade MA, MS, MEng, MEd, MSW, MBA) (35) 9th grade (46) Professional School Degree (For (36) 10th grade example: MD, DDS, DVM, LLB, JD) (37) 11th grade (47) Doctorate degree (38) 12th grade, no diploma (For example PhD, EdD) (39) HIGH SCHOOL GRADUATE - high school DIPLOMA or equivalent (For example: GED) (40) Some college but no degree (41) Diploma or certificate from a vocational, technical, trade or business shcool beyond the High School level (42) Associate degree in college - Occupational/vocational program (43) Associate degree in college - Academic program @ [@]<31-47>[missing][missing] [default goto CHANGE_RSET] ------------------------------------------------------------ >FIXRACE< [equiv RACE] [window 3 size 21 rows 80 columns] [if L_NO eq respline] [store in temptext] [store in temp2] [else] [make temptext from FNAME < > LNAME] [store in temp2] [endif] [fill temp2] [fill temptext]... (1) White (2) Black (3) American Indian, Aleut, or Eskimo (4) Asian or Pacific Islander (5) Other Race @ [@] <1-5>[missing] [missing] [default goto CHANGE_RSET] ------------------------------------------------------------ >FIXORIG< [equiv ORIGN] [window 3 size 21 rows 80 columns] [# [if L_NO eq respline] [store in temptext] [store in temp2] [else] [make temptext from FNAME < > LNAME] [store in temp2] [endif] [fill temp2] [fill temptext] of Spanish or Hispanic origin? (1) Yes (2) No @ [@] <1-2> [missing] [missing] [default goto CHANGE_RSET] ------------------------------------------------------------ >CHANGE_RSET< ------------------------------------------------------------ >CHANGE_END< [roster end persons] [reset CHG_MORE] ------------------------------------------------------------ >CHG_MORE< [equiv CHG_WHAT position 3] [display CHNG2] [store <> in TEMP2] [if CHANGE ne <> and CHANGE ne

] [make TEMP2 from T_FNAME(CHANGE) < > T_LNAME(CHANGE)] [endif] Are any more changes needed for: [fill TEMP2] (1) Yes (2) No @ [@] <1> [etc ] <2> [etc ] ------------------------------------------------------------ DELETING PEOPLE >DEL_PER< [roster begin persons] [if L_NO eq CHANGE goto D_WHYNO] [goto END_DELPER] >D_WHYNO< [equiv WHYNO] [window 3 size 20 rows 80 columns] ** ASK IF NECESSARY ** DO NOT READ THE CATEGORIES TO THE RESPONDENT Why does [fill fname] [fill lname] no longer live here? (1) Moved Away (2) Deceased (3) Included in error in a previous interview (4) Mistake, should not be deleted (5) Other @ [@] <1-3,5,D,R> [goto D_LFTDATE] <4> [goto END_DELPER] _______________________________________________________________________ >D_LFTDATE< [store month in PSMO] [store year in PSYR1] [store <1> in SKIPFLAG(L_NO)] [store <2> in USUAL] [store <2> in HHMEM] [store <1> in DELPER] [IF D_WHYNO eq <1>] [store <2> in PSCODE] [store <9> in PELIG] [ENDIF] [IF D_WHYNO eq <2>] [store <1> in PSCODE] [store <10> in PELIG] [ENDIF] [IF D_WHYNO eq <5>] [store <3> in PSCODE] [store <8> in PELIG] [ENDIF] [store (PCNT - <1>) in PCNT] [If REL eq <20>] [store <> in SPIX] [store <> in P_SPIX] [ENDIF] [If REL eq <24>] [IF sex eq <2>] [store <> in MOMIX] [store <> in P_MOMIX] [ELSE] [store <> in DADIX] [store <> in P_DADIX] [ENDIF] [ENDIF] -------------------------------------------------------------------- >END_DELPER< [roster end persons] >DEL_PER2< [reset change] [goto CHANGE] ---------------------------------------------------------------------- >UNDEL_PER< [roster begin persons] [if L_NO eq CHANGE goto UNDELETE2] [goto END_UNDELPER] >UNDELETE2< [store <0> in SKIPFLAG(L_NO)] [store <1> in USUAL] [store <1> in HHMEM] [store <0> in DELPER] [store <0> in PSCODE] [store (PCNT + <1>) in PCNT] -------------------------------------------------------------------- >END_UNDELPER< [roster end persons] >UNDEL_PER2< [reset change] [goto CHANGE] >CK_CHANGE< CHECK FOR WHOLE HOUSEHOLDS URE [store <0> in index] [roster begin persons] [if name(l_no) eq <>] [next member persons] [endif] [IF HHMEM eq <2> OR Skipflag(L_NO) eq <1>] [add <1> to index] [ENDIF] [If HHMEM eq <2>] [store <1> in Skipflag(L_NO)] [ENDIF] [roster end persons] [store <0> in UREFLG] [store <1> in ISTATUS] [IF index eq NROSIZE] [store <1> in UREFLG] [store <2> in ISTATUS] [goto CC_END] [ENDIF] ---------------------------------------------------------------------- >SET_PCNT< [store <0> in PCNT] [roster begin persons] >SET2_PCNT< [if SKIPFLAG(L_NO) eq <1> OR HHMEM eq <2> goto SET3_PCNT] [add <1> to PCNT] >SET3_PCNT< [roster end persons] --------------------------------------------------------------------- >CK_REFPER2< [if SKIPFLAG(REF_LNO) eq <1> goto GET_REFPER2a] [goto CC_END] ---------------------------------------------------------------------- >GET_REFPER2a< [window 4 displays] [window 4 start row 5 column 37] [window 4 size 20 rows 41 columns] [window 4 no border] [window 4 line left] >GET_REFPER2< [window 3 size 12 rows 30 columns] [display T_USUALLY window 4] [if TENURE eq <1>] [store in temp2] [else] [if TENURE eq <2>] [store in temp2] [endif][endif] [# In whose name is this home [fill temp2]? ENTER (N) FOR NO MORE ENTER LINE NUMBER(S) @1 @2 @3 @4 @5 [@1] <1-30> [reject gt HIGH_LNO label ] [reject eq XBAD label ] [@2] <1-30> [reject gt HIGH_LNO label ] [reject eq XBAD label ] [reject eq @1] [missing] [goto SET_OWNRENT2] [@3] <1-30> [reject gt HIGH_LNO label ] [reject eq XBAD label ] [reject eq @1 OR @2] [missing] [goto SET_OWNRENT2] [@4] <1-30> [reject gt HIGH_LNO label ] [reject eq XBAD label ] [reject eq @1 OR @2 OR @3] [missing] [goto SET_OWNRENT2] [@5] <1-30> [reject gt HIGH_LNO label ] [reject eq XBAD label ] [reject eq @1 OR @2 OR @3 OR @4] ---------------------------------------------------------------------- >SET_OWNRENT2< [loop for index from <1> to <30>] [store <> in TEN(index)] [loop end index] [if GET_REFPER2@1 onpath and GET_REFPER2@1 ne <>] [store in TEN(GET_REFPER2@1)] [endif] [IF GET_REFPER2@2 onpath and GET_REFPER2@2 ne ] [store in TEN(GET_REFPER2@2)] [ENDIF] [IF GET_REFPER2@3 onpath and GET_REFPER2@3 ne ] [store in TEN(GET_REFPER2@3)] [ENDIF] [IF GET_REFPER2@4 onpath and GET_REFPER2@4 ne ] [store in TEN(GET_REFPER2@4)] [ENDIF] [IF GET_REFPER2@5 onpath and GET_REFPER2@5 ne ] [store in TEN(GET_REFPER2@5)] [ENDIF] ---------------------------------------------------------------------- >REFPER_CK2< [if SKIPFLAG(REF_LNO) eq <1> goto NEW_REFPER2] [goto NW_REL] --------------------------------------------------------------------- >INDEX20< [allow int 2] >NEW_REFPER2< [store <1> in NEW_REFPER] [store <0> in INDEX2] [loop for INDEX20 from <1> to <30>] [if TEN(index20) eq and INDEX2 eq <0>] [store index20 in REF_LNO] [store T_FNAME(index20) in REF_FNAME] [store T_LNAME(index20) in REF_LNAME] [store T_SEX(index20) in REF_SEX] [store <1> in INDEX2] [endif] [loop end INDEX20] -------------------------------------------------------------------- >NW_REL< [roster begin persons] >PRE_NWREL< [if L_NO eq REF_LNO or SKIPFLAG(L_NO) eq <1> OR HHMEM eq <2> goto NW2_REL] [store <0> in P_SPIX] [store SPIX in P_SPIX] [store <0> in P_DADIX] [store DADIX in P_DADIX] [store <0> in P_MOMIX] [store MOMIX in P_MOMIX] [store <0> in P_REF_LNO] [store REF_LNO in P_REF_LNO] >NWREL< [equiv NXTREL] [window 3 size 21 rows 80 columns] [store <> in temp2] [store <> in TEMP8] [store <> in TEMP9] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [make temp2 from TEMP8 < > TEMP9] How is [fill FNAME] [fill LNAME] related to [fill temp2]? (20) Spouse (Husband/Wife) (21) Unmarried Partner (22) Child (23) Grandchild (24) Parent (Mother/Father) (25) Brother/Sister (26) Other Relative of Reference Person (Uncle, cousin, mother-in-law, father-in-law, etc.) (27) Foster child (28) Housemate/Roomate (29) Roomer/Boarder (30) Other Non-Relative of Reference Person @ [@] <20-30> [missing] [default goto @1] [@1] [store NWREL in T_REL(L_NO)] [store NWREL in REL] --------------------------------------------------------- >NWCK_REL< [IF REL eq <27> OR REL eq <28> OR REL eq <29> OR REL eq <30> goto NWREL2] [goto NWCK_SP1] ---------------------------------------------------------------------- >NWREL2< [equiv REL2] [store <> in temp3] [IF L_NO eq respline] [store in temp3] [ELSE] [make temp3 from FNAME < > LNAME] [ENDIF] [# Does anybody related to [fill temp3] live here? (1) Yes (2) No @ [@] <1,2> [goto @1] [@1] [store NWREL2 in T_REL2(L_NO)] ---------------------------------------------------------------------- >NWCK_SP1< COMMENT: If REL(PX) = 2 and SPIX is not equal 0 (a spouse of reference person has already been reported), GOTO NWSPOUSE3. [if T_REL(L_NO) eq <20>] [if SPIX eq <0> or SPIX eq <> or SPIX eq L_NO] [else] [goto NWSPOUSE3] [endif] [endif] COMMENT: If REL(PX) = 2 and SEX(PX) = 1 or 2 and SEX(PX) = SEX(1) then GOTO NWSPOUSE1 [if T_REL(L_NO) eq <20>] [if T_SEX(L_NO) eq <1>] [if T_SEX(P_REF_LNO) eq T_SEX(L_NO)] [goto NWSPOUSE1] [endif] [else] [if T_SEX(L_NO) eq <2>] [if T_SEX(P_REF_LNO) eq T_SEX(L_NO)] [goto NWSPOUSE1] [endif] [endif] [endif] [endif] COMMENT: If REL(PX) = 5 and SEX(PX) = 1 then, If DADIX = 0, GOTO NWSET_MDIX otherwise, GOTO NWDAD1 [if T_REL(L_NO) eq <24>] [if T_SEX(L_NO) eq <1>] [if DADIX eq <0>] [goto NWSET_MDIX] [else] [goto NWDAD1] [endif] [endif] [endif] COMMENT: If REL(PX) = 5 and SEX(PX) = 2 then, If MOMIX = 0, GOTO NWSET_MDIX otherwise, GOTO NWMOM1 [if T_REL(L_NO) eq <24>] [if T_SEX(L_NO) eq <2>] [if MOMIX eq <0>] [goto NWSET_MDIX] [else] [goto NWMOM1] [endif] [endif] [endif] COMMENT: Otherwise GOTO NWAFT_REL [goto NWAFT_REL] ------------------------------------------------------------ >NWSPOUSE1< [equiv SPOUSE1] [# [store <> in temp2] [store <> in temp4] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [# [if T_SEX(L_NO) eq <1>] [store in temp8] [else] [store in temp8] [endif] [# [make temp2 from L_NO < > FNAME < > LNAME] [if T_SEX(P_REF_LNO) eq <1>] [store in temp9] [else] [store in temp9] [endif] [# [store T_FNAME(P_REF_LNO) in temp6] [store T_LNAME(P_REF_LNO) in temp7] [make temp4 from P_REF_LNO < > TEMP6 < > TEMP7] [bold](DO NOT READ TO RESPONDENT UNLESS NECESSARY)[normal] Is one of the following SEX entries incorrect? LINE NAME SEX [fill temp4:l] [fill TEMP9] [fill temp2:l] [fill TEMP8] (1) To correct LINE [fill P_REF_LNO]'s SEX entry (2) To correct LINE [fill L_NO]'s SEX entry (3) Neither sex entry is incorrect @ [@] <1-3> ------------------------------------------------------------ >NWCK_SP2< COMMENT: if the response to NWSPOUSE1 is 1, change SEX(1) from 1 to 2 or from 2 to 1 and GOTO NWAFT_REL [if NWSPOUSE1 eq <1>] [if T_SEX(P_REF_LNO) eq <1>] [store <2> in T_SEX(P_REF_LNO)] [store <2> in REF_SEX] [goto NWAFT_REL] [else] [if T_SEX(P_REF_LNO) eq <2>] [store <1> in T_SEX(P_REF_LNO)] [store <1> in REF_SEX] [goto NWAFT_REL] [endif] [endif] [endif] COMMENT: If the response to NWSPOUSE1 is 2, change SEX(PX) from 1 to 2 or from 2 to 1 and GOTO NWAFT_REL [if NWSPOUSE1 eq <2>] [if T_SEX(L_NO) eq <1>] [store <2> in T_SEX(L_NO)] [goto NWAFT_REL] [else] [if T_SEX(L_NO) eq <2>] [store <1> in T_SEX(L_NO)] [goto NWAFT_REL] [endif] [endif] [endif] ------------------------------------------------------------ >NWSPOUSE2< [store <> in temp2] [store <> in temp8] [store <> in temp9] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [make temp2 from temp8 < > temp9 <'s>] You said [fill FNAME] [fill LNAME] is [fill temp2] spouse. Is that correct? (1) Yes (2) No @ [@] <1> [goto NWAFT_REL] <2> [etc ] ------------------------------------------------------------ >NWSPOUSE3< [store <> in temp2] [store <> in temp3] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in TEMP9] [# [store T_FNAME(P_SPIX) in temp6] [store T_LNAME(P_SPIX) in temp7] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [# [make temp2 from temp8 < > temp9 <'s>] [make temp3 from temp6 < > temp7] [bold](DO NOT READ TO RESPONDENT UNLESS NECESSARY)[normal] Earlier I recorded [fill temp3] was [fill temp2] spouse. You have just reported [fill FNAME] [fill LNAME] is also [fill temp2] spouse. Which is correct? (1) [fill temp3] is the correct spouse. Change relationship entry of [fill FNAME] [fill LNAME] (2) [fill FNAME] [fill LNAME] is the correct spouse. Change relationship entry of [fill temp3] @ [@] <1> [etc ] <2> ------------------------------------------------------------ >NWSPOUSE4< [store <> in temp2] [store <> in temp3] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [# [store T_FNAME(P_SPIX) in temp6] [store T_LNAME(P_SPIX) in temp7] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [# [make temp2 from temp8 < > temp9] [make temp3 from temp6 < > temp7 <'s>] Which one of the responses listed best describes [fill temp3] relationship to [fill temp2]? (22) Child (23) Grandchild (24) Parent (Mother/Father) (25) Brother/Sister (26) Other Relative of Reference Person (Uncle, cousin, mother-in-law, father-in-law, etc.) (27) Foster child (28) Housemate/Roomate (29) Roomer/Boarder (30) Other Non-Relative of Reference Person @ [@] <22-30> [missing] [missing] [default goto @1] [@1] [store NWSPOUSE4 in T_REL(P_SPIX)] [store <0> in SPIX] [goto NWCK_SP1] ------------------------------------------------------------ >NWDAD1< [store <> in temp2] [store <> in temp3] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [# [store T_FNAME(P_DADIX) in temp6] [store T_LNAME(P_DADIX) in temp7] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [# [make temp2 from temp8 < > temp9] [make temp3 from temp6 < > temp7] You have reported both [fill temp3] and [fill FNAME] [fill LNAME] are parents of [fill temp2] Is that correct? (1) No, change relationship to reference person code for [fill FNAME] [fill LNAME] (2) No, change relationship to reference person code for [fill temp3] (3) Yes, this is correct. (One is natural father, one is step-father, for example) @ [@] <1> [etc ] <2> <3> [goto NWSET_MDIX] ------------------------------------------------------------ >NWDAD2< [store <> in temp2] [store <> in temp3] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [# [store T_FNAME(P_DADIX) in temp6] [store T_LNAME(P_DADIX) in temp7] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [# [make temp2 from temp8 < > temp9] [make temp3 from temp6 < > temp7 <'s>] Which one of the responses listed best describes [fill temp3] relationship to [fill temp2]? (22) Child (23) Grandchild (24) Parent (Mother/Father) (25) Brother/Sister (26) Other Relative of Reference Person (Uncle, cousin, mother-in-law, father-in-law, etc.) (27) Foster child (28) Housemate/Roomate (29) Roomer/Boarder (30) Other Non-Relative of Reference Person @ [@] <22-30> [missing] [missing] [default goto @1] [@1] [store NWDAD2 in T_REL(P_DADIX)] [store <0> in DADIX] [goto NWSET_MDIX] ------------------------------------------------------------ >NWMOM1< [store <> in temp2] [store <> in temp3] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [# [store MOMIX in P_MOMIX] [store T_FNAME(P_MOMIX) in temp6] [store T_LNAME(P_MOMIX) in temp7] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [# [make temp2 from temp8 < > temp9] [make temp3 from temp6 < > temp7] You have reported both [fill temp3] and [fill FNAME] [fill LNAME] are parents of [fill temp2] Is that correct? (1) No, change relationship to reference person code for [fill FNAME] [fill LNAME] (2) No, change relationship to reference person code for [fill temp3] (3) Yes, this is correct. (One is natural mother, one is step-mother, for example) @ [@] <1> [etc ] <2> <3> [goto NWSET_MDIX] ------------------------------------------------------------ >NWMOM2< [store <> in temp2] [store <> in temp3] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [# [store MOMIX in P_MOMIX] [store T_FNAME(P_MOMIX) in temp6] [store T_LNAME(P_MOMIX) in temp7] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [# [make temp2 from temp8 < > temp9] [make temp3 from temp6 < > temp7 <'s>] Which one of the responses listed best describes [fill temp3] relationship to [fill temp2]? (22) Child (23) Grandchild (24) Parent (Mother/Father) (25) Brother/Sister (26) Other Relative of Reference Person (Uncle, cousin, mother-in-law, father-in-law, etc.) (27) Foster child (28) Housemate/Roomate (29) Roomer/Boarder (30) Other Non-Relative of Reference Person @ [@] <22-30> [missing] [missing] [default goto @1] [@1] [store NWMOM2 in T_REL(P_MOMIX)] [store <0> in MOMIX] [goto NWSET_MDIX] ------------------------------------------------------------ >NWAFT_REL< COMMENT: If REL(PX) = 2 then set SPIX = PX [if T_REL(L_NO) eq <20>] [store L_NO in SPIX] [endif] ------------------------------------------------------------ >NWSET_MDIX< COMMENT: If REL(PX) = 5 and SEX(PX) = 1 then, If DADIX = 0, SET DADIX = PX [if T_REL(L_NO) eq <24>] [if T_SEX(L_NO) eq <1>] [if DADIX eq <0>] [store L_NO in DADIX] [endif] [endif] [endif] COMMENT: If REL(PX) = 5 and SEX(PX) = 2 then, If MOMIX = 0, SET MOMIX = PX [if T_REL(L_NO) eq <24>] [if T_SEX(L_NO) eq <2>] [if MOMIX eq <0>] [store L_NO in MOMIX] [endif] [endif] [endif] ---------------------------------------------------------------------- >NW2_REL< [roster end persons] ---------------------------------------------------------------------- >UPDATE4< [roster begin persons] [if SKIPFLAG(L_NO) eq <1>] [else] [if NXTSEX eq T_SEX(L_NO)] [else] [store T_SEX(L_NO) in NXTSEX] [endif] [if NXTREL eq T_REL(L_NO)] [else] [store T_REL(L_NO) in NXTREL] [endif] [store SPIX in P_SPIX] [store DADIX in P_DADIX] [store MOMIX in P_MOMIX] [store REF_LNO in P_REF_LNO] [endif] [roster end persons] ---------------------------------------------------------------------- **WINDOWS** >wins2< [window 4 displays] [window 4 start row 5 column 37] [window 4 size 21 rows 41 columns] [window 4 no border] [window 4 line left] >CC_END< This marks the end of the demographics section SET UP PELIG [roster begin PERSONS] [If HHMEM eq <1>] [IF AGE ge <14>] [store <1> in PELIG] [ELSE] [IF AGE ge <0> AND AGE lt <14>] [store <7> in PELIG] [ELSE] [store <5> in PELIG] [ENDIF] [ENDIF] [ENDIF] [roster end persons] [goto SECTION1] ------------------------------------------------------------ >BEG_NEWLIV< [reference] [equiv ERR_PRAGE position 2] [if NROSIZE eq <30> goto NOMORE_ADD] [roster reopen persons] [store <1> in F_NEWLIV] [store L_NO in PX] [roster append persons] [store <1> in ADDPER] [store (PX + <1>) in L_NO] [add <1> to NROSIZE] [add <1> to HIGH_LNO] [store LAST_NAME in NEWNAME@LNAME] [goto NEWNAME] @ [@]

------------------------------------------------------------ >NEWNAME< [reference] [window 3 size 21 rows 80 columns] Who else is living or staying here? FIRST NAME @FNAME LAST NAME @LNAME [@FNAME] [allow 20] [@LNAME] [allow 20] [goto NEWNAME_1] >NEWNAME_1< [reference] [store NEWNAME@FNAME in T_FNAME(L_NO)] [store NEWNAME@FNAME in FNAME] [store NEWNAME@LNAME in T_LNAME(L_NO)] [store NEWNAME@LNAME in LAST_NAME] [store NEWNAME@LNAME in LNAME] [make NAME(L_NO) from FNAME < > LNAME] SET HHMEM TO 1 HERE SO THAT THE PERSON WILL SHOW ON THE TEMPLATE IN USUALLY. (USUALLY WILL TELL US WHETHER THIS PERSON USUALLY LIVES HERE) [store <1> in HHMEM] [store <1> in USUAL] [goto NEWSEX] ------------------------------------------------------------ >NEWSEX< [reference] [bold]ASK IF NOT APPARENT:[normal] Is [fill FNAME] [fill LNAME] Male or Female? (1) Male (2) Female @ [@] <1-2> [missing] [missing] [default goto NEWSEX_1] >NEWSEX_1< [reference] [store NEWSEX in T_SEX(L_NO)] [store NEWSEX in SEX] [goto NEWADDWHY] ------------------------------------------------------------ >NEWADDWHY< [reference] Why was [fill fname] [fill lname] added? (1) Born (2) Moved into household/apartment (3) Other reason @ [@] <1-3,D,R> [goto NEWADDDATE] ---------------------------------------------------------------------- >NEWADDDATE< [reference] [store NEWADDWHY in ADDWHY] [store month in MOVM] [store year in MOVYR] [if month le <9>] [make movm from <0> month] [else] [store month in movm] [endif] [If NEWADDWHY is <1>] [store <4> in PSCODE] [store <7> in PELIG] [endif] [If NEWADDWHY is <2>] [store <5> in PSCODE] [endif] [If NEWADDWHY is <3>] [store <6> in PSCODE] [endif] [goto END_NEWLIV] >END_NEWLIV< [reference] [roster close persons] [goto DONE_ADD] ---------------------------------------------------------------------- >NOMORE_ADD< [reference] NOTE: A MAXIMUM OF 30 PEOPLE MAY BE INTERVIEWED IN ANY HOUSEHOLD. THE LIMIT HAS BEEN REACHED NO MORE PERSONS CAN BE ADDED.[normal] ENTER (P) TO PROCEED @ [@]

[goto DONE_ADD] ---------------------------------------------------------------------- >DONE_ADD< [reference] [return from help] ------------------------------------------------------------ ** ADDING SOMEONE AT THE CHANGE SCREEN ** >CHG_ADDPER< [reference] [if NROSIZE eq <30> goto NOMORE_ADD3] [roster reopen persons] [store <1> in F_CHANGE] [store L_NO in PX] [roster append persons] [store <1> in ADDPER] [store (PX + <1>) in L_NO] [add <1> to NROSIZE] [add <1> to HIGH_LNO] [store LAST_NAME in ADDNAME@LNAME] [goto ADDNAME] @ [@]

------------------------------------------------------------ >ADDNAME< [reference] [window 5 size 21 rows 80 columns] What is the name of the new person? FIRST NAME @FNAME LAST NAME @LNAME [@FNAME] [allow 20] [@LNAME] [allow 20] [goto ADDNAME_1] >ADDNAME_1< [reference] [store ADDNAME@FNAME in T_FNAME(L_NO)] [store ADDNAME@FNAME in FNAME] [store ADDNAME@LNAME in T_LNAME(L_NO)] [store ADDNAME@LNAME in LAST_NAME] [make name(L_NO) from ADDNAME@FNAME < > ADDNAME@LNAME] [store ADDNAME@LNAME in LNAME] [goto ADD_RES] ------------------------------------------------------------ >ADD_RES< [reference] Does [fill ADDNAME@FNAME] [fill ADDNAME@LNAME] usually live here? (1) Yes (2) No @ [@] <1-2,D,R> [goto ADD_RES1] >ADD_RES1< [reference] [store ADD_RES in USUAL] [if ADD_RES eq <1> OR ADD_RES is OR ADD_RES is ] [store <1> in HHMEM] [goto ADDSEX] [endif] [goto ADDure] ------------------------------------------------------------ >ADDure< [reference] Does [fill FNAME] [fill LNAME] have some other place where he/she usually lives? (1) Yes (2) No @ [@] <1-2,D,R> [goto ADDure_1] >ADDure_1< [reference] [store ADDure in ure] [IF URE eq <1>] [store <2> in HHMEM] [store <1> in SKIPFLAG(L_NO)] [goto END_ADDLIV] [ELSE] [store <1> in HHMEM] [store <0> in SKIPFLAG(L_NO)] [goto ADDSEX] [ENDIF] ------------------------------------------------------------ >ADDSEX< [reference] [bold]ASK IF NOT APPARENT:[normal] Is [fill FNAME] [fill LNAME] Male or Female? (1) Male (2) Female @ [@] <1-2> [missing] [missing] [default goto ADDSEX_1] >ADDSEX_1< [reference] [store ADDSEX in T_SEX(L_NO)] [store ADDSEX in SEX] [If NEWHH eq <2> goto CHGADDWHY] RETURNING HOUSEHOLD [goto ADDREL] ------------------------------------------------------------ >CHGADDWHY< [reference] Why was [fill fname] [fill lname] added? (1) Born (2) Moved into household/adopted (3) Other reason @ [@] <1-3,D,R> [goto CHGADDDATE] ---------------------------------------------------------------------- >CHGADDDATE< [reference] [store CHGADDWHY in ADDWHY] [store month in MOVM] [store year in MOVYR] [if month le <9>] [make movm from <0> month] [else] [store month in movm] [endif] [If CHGADDWHY is <1>] [store <4> in PSCODE] [store <7> in PELIG] [endif] [If CHGADDWHY is <2>] [store <5> in PSCODE] [endif] [If CHGADDWHY is <3>] [store <6> in PSCODE] [endif] [goto ADDREL] >ADDREL< [reference] [store REF_LNO in P_REF_LNO] [store <> in temp2] [store <> in TEMP8] [store <> in TEMP9] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [make temp2 from TEMP8 < > TEMP9] What is [fill FNAME] [fill LNAME]'s relationship to [fill temp2]? (20) Spouse (Husband/Wife) (21) Unmarried Partner (22) Child (23) Grandchild (24) Parent (Mother/Father) (25) Brother/Sister (26) Other Relative of Reference Person (Uncle, cousin, mother-in-law, father-in-law, etc.) (27) Foster child (28) Housemate/Roomate (29) Roomer/Boarder (30) Other Non-Relative of Reference Person @ [@] <20-30> [missing] [missing] [default goto ADDREL_1] >ADDREL_1< [reference] [store ADDREL in T_REL(L_NO)] [store ADDREL in REL] [goto ADD_CK_REL] --------------------------------------------------------- >ADD_CK_REL< [reference] [IF REL eq <27> OR REL eq <28> OR REL eq <29> OR REL eq <30> goto ADDREL2] [goto ADD_CK_SP1] ---------------------------------------------------------------------- >ADDREL2< [reference] [store <> in temp3] [IF L_NO eq respline] [store in temp3] [ELSE] [make temp3 from FNAME < > LNAME] [ENDIF] [# Does anybody related to [fill temp3] live here? (1) Yes (2) No @ [@] <1,2> [goto ST_ADDREL] >ST_ADDREL< [reference] [store ADDREL2 in REL2] [store ADDREL2 in T_REL2(L_NO)] [goto ADD_CK_SP1] ---------------------------------------------------------------------- >ADD_CK_SP1< [reference] COMMENT: If REL(PX) = 2 and SPIX is not equal 0 (a spouse of reference person has already been reported), GOTO SPOUSE3. [if T_REL(L_NO) eq <20>] [if SPIX eq <0> or SPIX eq <> or SPIX eq L_NO] [else] [goto ADD_SPOUSE3] [endif] [endif] COMMENT: If REL(PX) = 2 and SEX(PX) = 1 or 2 and SEX(PX) = SEX(1) then GOTO SPOUSE1 [if T_REL(L_NO) eq <20>] [if T_SEX(L_NO) eq <1>] [if T_SEX(P_REF_LNO) eq T_SEX(L_NO)] [goto ADD_SPOUSE1] [endif] [else] [if T_SEX(L_NO) eq <2>] [if T_SEX(P_REF_LNO) eq T_SEX(L_NO)] [goto ADD_SPOUSE1] [endif] [endif] [endif] [endif] COMMENT: If REL(PX) = 5 and SEX(PX) = 1 then, If DADIX = 0, GOTO SET_MDIX otherwise, GOTO DAD1 [if T_REL(L_NO) eq <24>] [if T_SEX(L_NO) eq <1>] [if DADIX eq <0>] [goto ADD_SET_MDIX] [else] [goto ADD_DAD1] [endif] [endif] [endif] COMMENT: If REL(PX) = 5 and SEX(PX) = 2 then, If MOMIX = 0, GOTO SET_MDIX otherwise, GOTO MOM1 [if T_REL(L_NO) eq <24>] [if T_SEX(L_NO) eq <2>] [if MOMIX eq <0>] [goto ADD_SET_MDIX] [else] [goto ADD_MOM1] [endif] [endif] [endif] COMMENT: Otherwise GOTO AFT_REL [goto ADD_AFT_REL] ------------------------------------------------------------------------- >ADD_SPOUSE1< [reference] [# [store <> in temp2] [store <> in temp4] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [# [if T_SEX(L_NO) eq <1>] [store in temp8] [else] [store in temp8] [endif] [# [make temp2 from L_NO < > ADDNAME@FNAME < > ADDNAME@LNAME] [if T_SEX(P_REF_LNO) eq <1>] [store in temp9] [else] [store in temp9] [endif] [# [store T_FNAME(P_REF_LNO) in temp6] [store T_LNAME(P_REF_LNO) in temp7] [make temp4 from P_REF_LNO < > TEMP6 < > TEMP7] [bold](DO NOT READ TO RESPONDENT UNLESS NECESSARY)[normal] Is one of the following SEX entries incorrect? LINE NAME SEX [fill temp4:l] [fill TEMP9] [fill temp2:l] [fill TEMP8] (1) To correct LINE 1's SEX entry (2) To correct LINE [fill L_NO]'s SEX entry (3) Neither sex entry is incorrect @ [@] <1-3> [goto ADD_CK_SP2] ------------------------------------------------------------ >ADD_CK_SP2< [reference] COMMENT: if the response to SPOUSE1 is 1, change SEX(1) from 1 to 2 or from 2 to 1 and GOTO AFT_REL [if ADD_SPOUSE1 eq <1>] [if T_SEX(P_REF_LNO) eq <1>] [store <2> in T_SEX(P_REF_LNO)] [store <2> in REF_SEX] [goto ADD_AFT_REL] [else] [if T_SEX(P_REF_LNO) eq <2>] [store <1> in T_SEX(P_REF_LNO)] [store <1> in REF_SEX] [goto ADD_AFT_REL] [endif] [endif] [endif] COMMENT: If the response to SPOUSE1 is 2, change SEX(PX) from 1 to 2 or from 2 to 1 and GOTO AFT_REL [if ADD_SPOUSE1 eq <2>] [if T_SEX(L_NO) eq <1>] [store <2> in T_SEX(L_NO)] [goto ADD_AFT_REL] [else] [if T_SEX(L_NO) eq <2>] [store <1> in T_SEX(L_NO)] [goto ADD_AFT_REL] [endif] [endif] [endif] [goto ADD_SPOUSE2] ------------------------------------------------------------ >ADD_SPOUSE2< [reference] [store <> in temp2] [store <> in temp8] [store <> in temp9] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [make temp2 from temp8 < > temp9 <'s>] You said [fill FNAME] [fill LNAME] is [fill temp2] spouse. Is that correct? (1) Yes (2) No @ [@] <1> [goto ADD_AFT_REL] <2> [etc ] ------------------------------------------------------------ >ADD_SPOUSE3< [reference] [store <> in temp2] [store <> in temp3] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in TEMP9] [# [store SPIX in P_SPIX] [store T_FNAME(P_SPIX) in temp6] [store T_LNAME(P_SPIX) in temp7] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [# [make temp2 from temp8 < > temp9 <'s>] [make temp3 from temp6 < > temp7] [bold](DO NOT READ TO RESPONDENT UNLESS NECESSARY)[normal] Earlier I recorded [fill temp3] was [fill temp2] spouse. You have just reported [fill FNAME] [fill LNAME] is also [fill temp2] spouse. Which is correct? (1) [fill temp3] is the correct spouse. Change relationship entry of [fill FNAME] [fill LNAME] (2) [fill FNAME] [fill LNAME] is the correct spouse. Change relationship entry of [fill temp3] @ [@] <1> [etc ] <2> [goto ADD_SPOUSE4] ------------------------------------------------------------ >ADD_SPOUSE4< [reference] [store <> in temp2] [store <> in temp3] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [# [store T_FNAME(P_SPIX) in temp6] [store T_LNAME(P_SPIX) in temp7] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [# [make temp2 from temp8 < > temp9] [make temp3 from temp6 < > temp7 <'s>] Which one of the responses listed best describes [fill temp3] relationship to [fill temp2]? (22) Child (23) Grandchild (24) Parent (Mother/Father) (25) Brother/Sister (26) Other Relative of Reference Person (Uncle, cousin, mother-in-law, father-in-law, etc.) (27) Foster child (28) Housemate/Roomate (29) Roomer/Boarder (30) Other Non-Relative of Reference Person @ [@] <22-30> [missing] [missing] [default goto ADDSP1] >ADDSP1< [reference] [store ADD_SPOUSE4 in T_REL(P_SPIX)] [store <0> in SPIX] [goto ADD_CK_SP1] ------------------------------------------------------------ >ADD_DAD1< [reference] [store <> in temp2] [store <> in temp3] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [# [store DADIX in P_DADIX] [store T_FNAME(P_DADIX) in temp6] [store T_LNAME(P_DADIX) in temp7] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [# [make temp2 from temp8 < > temp9] [make temp3 from temp6 < > temp7] You have reported both [fill temp3] and [fill FNAME] [fill LNAME] are parents of [fill temp2] Is that correct? (1) No, change relationship to reference person code for [fill FNAME] [fill LNAME] (2) No, change relationship to reference person code for [fill temp3] (3) Yes, this is correct. (One is natural father, one is step-father, for example) @ [@] <1> [etc ] <2> [goto ADD_DAD2] <3> [goto ADD_SET_MDIX] ------------------------------------------------------------ >ADD_DAD2< [reference] [store <> in temp2] [store <> in temp3] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [# [store DADIX in P_DADIX] [store T_FNAME(P_DADIX) in temp6] [store T_LNAME(P_DADIX) in temp7] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [# [make temp2 from temp8 < > temp9] [make temp3 from temp6 < > temp7 <'s>] Which one of the responses listed best describes [fill temp3] relationship to [fill temp2]? (22) Child (23) Grandchild (24) Parent (Mother/Father) (25) Brother/Sister (26) Other Relative of Reference Person (Uncle, cousin, mother-in-law, father-in-law, etc.) (27) Foster child (28) Housemate/Roomate (29) Roomer/Boarder (30) Other Non-Relative of Reference Person @ [@] <22-30> [missing] [missing] [default goto ADD_DAD2a] >ADD_DAD2a< [reference] [store ADD_DAD2 in T_REL(P_DADIX)] [store <0> in DADIX] [goto ADD_SET_MDIX] ------------------------------------------------------------ >ADD_MOM1< [reference] [store <> in temp2] [store <> in temp3] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [# [store MOMIX in P_MOMIX] [store T_FNAME(P_MOMIX) in temp6] [store T_LNAME(P_MOMIX) in temp7] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [# [make temp2 from temp8 < > temp9] [make temp3 from temp6 < > temp7] You have reported both [fill temp3] and [fill FNAME] [fill LNAME] are parents of [fill temp2] Is that correct? (1) No, change relationship to reference person code for [fill FNAME] [fill LNAME] (2) No, change relationship to reference person code for [fill temp3] (3) Yes, this is correct. (One is natural mother, one is step-mother, for example) @ [@] <1> [etc ] <2> [goto ADD_MOM2] <3> [goto ADD_SET_MDIX] ------------------------------------------------------------ >ADD_MOM2< [reference] [store <> in temp2] [store <> in temp3] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [# [store MOMIX in P_MOMIX] [store T_FNAME(P_MOMIX) in temp6] [store T_LNAME(P_MOMIX) in temp7] [store T_FNAME(P_REF_LNO) in temp8] [store T_LNAME(P_REF_LNO) in temp9] [# [make temp2 from temp8 < > temp9] [make temp3 from temp6 < > temp7 <'s>] Which one of the responses listed best describes [fill temp3] relationship to [fill temp2]? (22) Child (23) Grandchild (24) Parent (Mother/Father) (25) Brother/Sister (26) Other Relative of Reference Person (Uncle, cousin, mother-in-law, father-in-law, etc.) (27) Foster child (28) Housemate/Roomate (29) Roomer/Boarder (30) Other Non-Relative of Reference Person @ [@] <22-30> [missing] [missing] [default goto ADD_MOM2a] >ADD_MOM2a< [reference] [store ADD_MOM2 in T_REL(P_MOMIX)] [store <0> in MOMIX] [goto ADD_SET_MDIX] ------------------------------------------------------------ >ADD_AFT_REL< [reference] COMMENT: If REL(PX) = 2 then set SPIX = PX [if T_REL(L_NO) eq <20>] [store L_NO in SPIX] [endif] [goto ADD_SET_MDIX] ------------------------------------------------------------ >ADD_SET_MDIX< [reference] COMMENT: If REL(PX) = 5 and SEX(PX) = 1 then, If DADIX = 0, SET DADIX = PX [if T_REL(L_NO) eq <24>] [if T_SEX(L_NO) eq <1>] [if DADIX eq <0>] [store L_NO in DADIX] [endif] [endif] [endif] COMMENT: If REL(PX) = 5 and SEX(PX) = 2 then, If MOMIX = 0, SET MOMIX = PX [if T_REL(L_NO) eq <24>] [if T_SEX(L_NO) eq <2>] [if MOMIX eq <0>] [store L_NO in MOMIX] [endif] [endif] [endif] [store <1> in NEWPERSON] [IF HHMEM eq <1>] [add <1> to PCNT] [ENDIF] [goto END_ADDLIV] ---------------------------------------------------------------------- >END_ADDLIV< [reference] [roster close persons] [goto ADD_FIXDEM] ---------------------------------------------------------------------- >NOMORE_ADD3< [reference] NOTE: A MAXIMUM OF 30 PEOPLE MAY BE INTERVIEWED IN ANY HOUSEHOLD. THE LIMIT HAS BEEN REACHED NO MORE PERSONS CAN BE ADDED.[normal] ENTER (P) TO PROCEED @ [@]

[goto DONE_ADD2] ---------------------------------------------------------------------- >ADD_FIXDEM< [reference] [roster begin persons] [goto ADD_FIXDEM2] ------------------------------------------------------------ >ADD_FIXDEM2< [reference] [store NROSIZE in HIGH_LNO] [if SKIPFLAG(L_NO) eq <1> OR ADDPER ne <1> goto ADD_FIXDEM3] [goto ADD_UPDATE] ------------------------------------------------------------ >ADD_UPDATE< [reference] [store FNAME in T_FNAME(L_NO)] [store LNAME in T_LNAME(L_NO)] [make name(L_NO) from FNAME < > LNAME] [if HHMEM eq <2>] [store <1> in SKIPFLAG(L_NO)] [store <0> in ADDPER] [endif] [if SEX eq T_SEX(L_NO)] [else] [store T_SEX(L_NO) in SEX] [endif] [if REL eq T_REL(L_NO)] [else] [store T_REL(L_NO) in REL] [endif] [goto ADD_FIXDEM3] ------------------------------------------------------------ >ADD_FIXDEM3< [reference] [roster end persons] [goto PRE_BRTH] ---------------------------------------------------------------------- >PRE_BRTH< [reference] [roster begin persons] [if NEWPERSON isnt <1> goto END_ADDDEMO2] [goto ADD_BRTH] >ADD_BRTH< [reference] [if L_NO eq respline] [store in temptext] [else] [make temptext from FNAME < > LNAME <'s>] [endif] What is [fill temptext] date of birth? (1) January (5) May (9) September (2) February (6) June (10) October (3) March (7) July (11) November (4) April (8) August (12) December ENTER MONTH: @BRTHM ENTER DAY: @BRTHD ENTER 4 DIGIT YEAR: @BRTHY [@BRTHM] [missing] <1-12> [@BRTHD] [missing] <1-31> [reject gt BMON2(ADD_BRTH@BRTHM)] [@BRTHY] [missing] <1873-2001> [default goto ADD_CALC_AGE] ----------------------------------------------------------------------------- >ADD_CALC_AGE< [reference] [store ADD_BRTH@BRTHM in BRTHM] [store ADD_BRTH@BRTHD in BRTHD] [store ADD_BRTH@BRTHY in BRTHY] [IF ADD_BRTH@BRTHM is OR ADD_BRTH@BRTHM is goto ADD_AGEGES] [IF ADD_BRTH@BRTHD is OR ADD_BRTH@BRTHD is goto ADD_AGEGES] [IF ADD_BRTH@BRTHY is OR ADD_BRTH@BRTHY is goto ADD_AGEGES] [store <0> in index4] [setdate date] [store {int}year in index4] [if {int}BRTHM lt {int}month OR ({int}BRTHM eq {int}month AND {int}BRTHD le {int}day)] [store (index4 - {int}BRTHY) in AGE] [else] [store ((index4 - {int}BRTHY) - <1>) in AGE] [endif] [if AGE lt <0> goto ADD_ERR_AGE] [goto ADD_VER_AGE] ----------------------------------------------------------------------------- >ADD_ERR_AGE< [reference] ** DO NOT READ TO RESPONDENT ** BIRTHDATE IS IN THE FUTURE ENTER (P) TO BACK TO BRTHDATE @ [@]

[etc ] ---------------------------------------------------------------------- >ADD_VER_AGE< [reference] [if AGE ge <1>] [make temp2 from AGE < > ] [else] [store in temp2] [endif] [if L_NO eq respline] [store in temptext] [else] [make temptext from FNAME < > LNAME < > ] [endif] So [fill temptext] now [fill temp2] Is that correct? (1) Yes, age is correct (2) No, age is not correct @ [@] <1> [goto ADD_VER2] <2> [goto ADD_BRTH@BRTHM] [missing] [goto ADD_VER2] >ADD_VER2< [reference] [store AGE in T_AGE(L_NO)] [goto ADD_PRE_MAR] ---------------------------------------------------------------------------- >ADD_AGEGES< [reference] [if L_NO eq respline] [store in temptext] [else] [make temptext from FNAME < > LNAME < > <'s>] [endif] [# ENTER YOUR BEST ESTIMATE OF [fill temptext] AGE: @ [@] <0-120> [goto ADD_AGEGES2] [missing] [goto add_undage] >ADD_AGEGES2< [reference] [store ADD_AGEGES in AGE] [store ADD_AGEGES in T_AGE(L_NO)] [goto ADD_PRE_MAR] ---------------------------------------------------------------------- >ADD_UNDAGE< [reference] [store in temp] [if SEX eq <1>][store in temp][endif] [if SEX eq <2>][store in temp][endif] ** ASK IF NECESSARY ** Is [fill temp] under 16 years of age? (1) Yes (2) No @ [@] <1,2> [missing] [default goto ADD_UNDAGE2] >ADD_UNDAGE2< [reference] [store ADD_UNDAGE in UNDAGE] [If ADD_UNDAGE eq <1>] [store <13> in AGE] [store <13> in T_AGE(L_NO)] [ELSE] [store <17> in AGE] [store <17> in T_AGE(L_NO)] [ENDIF] [goto ADD_PRE_MAR] ------------------------------------------------------------------------ >ADD_PRE_MAR< [reference] COMMENT: If AGE is 13 or less, GOTO ADD_PRE_EDUC [if age isnt and age isnt ] [if AGE le <13>] [store <> in MAR] [store <> in T_MAR(L_NO)] [goto ADD_PRE_EDUC] [endif] [endif] COMMENT: If REL(L_NO) is 20 (spouse), AUTOMATICALLY PLUG MAR TO MARRIED AND SPOUS eq to REFPER and goto PRE_EDUC [if REL eq <20>] (#28) [store <1> in MAR] [store MAR in T_MAR(L_NO)] [store REF_LNO in SPOUS] [goto ADD_PRE_EDUC] [endif] [store <0> in REL_FLAG] [loop for X from <1> to <30>] [if T_REL(X) is <20>] [store <1> in REL_FLAG] [endif] [loop end X] [if L_NO eq REF_LNO AND REL_FLAG eq <1>] (EDIT #28) [store <1> in MAR] [store MAR in T_MAR(L_NO)] [store SPIX in SPOUS] [goto ADD_PRE_EDUC] [endif] [goto ADD_MAR] ---------------------------------------------------------------------------- >ADD_MAR< [reference] [# [if L_NO eq respline] [store in temptext] [store in temp2] [else] [store in temp2] [make temptext from FNAME < > LNAME] [endif] [# [IF REL2 eq <2> OR REL eq <2> OR REL eq <02>] [# #16 ] [store <> in temp3] [store <1> in index] [ELSE] [store <(1) Married, SPOUSE PRESENT> in temp3] [store <0> in index] [ENDIF] [# [fill temp2] [fill temptext] now married, widowed, divorced, separated or never married? [fill temp3] (2) Married, SPOUSE ABSENT (3) Widowed (4) Divorced (5) Separated (6) Never married @ [@] <1> [reject eq index] [goto ADD_CK_LNSPOUSE] <2-6> [missing][missing] [default goto ST_ADD_MAR] >ST_ADD_MAR< [reference] [store <0> in SPOUS] [# EDIT #23] [store <0> in T_SPOUS(L_NO)] [store ADD_MAR in MAR] [store ADD_MAR in T_MAR(L_NO)] [goto ADD_PRE_EDUC] ----------------------------------------------------------------------------- >ADD_CK_LNSPOUSE< [reference] [store ADD_MAR in MAR] [store ADD_MAR in T_MAR(L_NO)] [IF REL eq <24>] PARENT [IF sex is <1>] [store MOMIX in SPOUS] [store MOMIX in T_SPOUS(L_NO)] [ELSE] [store DADIX in SPOUS] [store DADIX in T_SPOUS(L_NO)] [ENDIF] [goto ADD_PRE_educ] [ENDIF] [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index4] [loop for X from <1> to <30>] [IF T_REL(X) eq <26>] [add <1> to index] [ENDIF] [IF T_REL(X) eq <22> OR T_REL(X) eq <23> OR T_REL(X) eq <25> OR T_REL(X) eq <26>] [add <1> to index2] [ENDIF] [IF T_REL(X) ge <27> AND T_REL(X) le <30> AND T_REL2(X) eq <1>] [add <1> to index3] [ENDIF] [IF T_REL(X) eq <33> or T_REL(X) eq <35> or T_REL(X) eq <37>] [add <1> to index3] [ENDIF] [loop end X] [# SPOUSE OF CHILD, GRANDCHILD, SIBLING, OTH REL CAN ONLY BE AN OTHER REL [IF (REL eq <22> OR REL eq <23> OR REL eq <25> OR REL eq <26>) AND index eq <0>] [store <> in SPOUS] [store <> in T_SPOUS(L_NO)] [goto ADD_PRE_EDUC] [ENDIF] [# SPOUSE OF AN OTHER REL CAN ONLY BE A CHILD, GRANDCHILD, SIBLING, OR OTH REL [IF REL eq <26> AND (index2 eq <0> OR index2 eq <1>)] [store <> in SPOUS] [store <> in T_SPOUS(L_NO)] [goto ADD_PRE_EDUC] [ENDIF] [# SPOUSE OF AN NON-REL WITH CAN ONLY BE A NON-REL WITH [IF REL ge <27> AND REL le <30> AND REL2 eq <1> AND (index3 eq <0> OR index3 eq <1>)] [store <> in SPOUS] [store <> in T_SPOUS(L_NO)] [goto ADD_PRE_EDUC] [ENDIF] [# SPOUSE OF AN NON-REL WITH CAN ONLY BE A NON-REL WITH--RECODED VALUES [#IF (REL eq <33> OR REL eq <35> OR REL eq <37>) AND (index3 eq <0> OR index3 eq <1>)] [#store <> in SPOUS] [#store <> in T_SPOUS(L_NO)] [#goto ADD_PRE_EDUC] [#ENDIF] [goto ADD_S_LNSPOUSE] ---------------------------------------------------------------------- >ADD_S_LNSPOUSE< [reference] [use window 3] [display SPLN window 4] [#window 3 size 20 rows 35 columns] [store <> in temp] [if L_NO eq respline] [#don't list: [store in temp] [# any unmarried persons [#(EDIT#23)] [else] [make temp from NAME(L_NO) <'s>] [# anyone with REL2 eq2 [#(EDIT #17)] [endif] [# anyone with SPOUS already filled (EDIT [##35)] [# if REL = 27-30 and REL2 eq 1 only list [#those] ENTER LINE NUMBER OF [# people with REL2 eq 1 [#(EDIT #34)] [fill temp] SPOUSE @ [@] <1-99> [reject gt HIGH_LNO label ] [reject eq XBAD label ] [missing] [default goto ADD_ST_SPOUS] ---------------------------------------------------------------------- >ADD_ST_SPOUS< [reference] [store ADD_S_LNSPOUSE in SPOUS] [store ADD_S_LNSPOUSE in T_SPOUS(L_NO)] [IF SPOUS is OR SPOUS is goto ADD_PRE_EDUC] [store SPOUS in index] [store L_NO in T_SPOUS(index)] [store <1> in T_MAR(index)] [store <1> in T_MARFLAG(index)] [goto ADD_PRE_EDUC] ---------------------------------------------------------------------- >ADD_PRE_EDUC< [reference] [if age is or age is goto ADD_EDUC] [if {int}age le <13> goto ADD_WHENMOVE] [goto ADD_EDUC] ---------------------------------------------------------------------- >ADD_EDUC< [reference] [use window 5] [if L_NO eq respline] [store in temptext] [store in temp2] [store in temp3] [else] [make temptext from FNAME < > LNAME] [store in temp2] [store in temp3] [if sex eq <1>] [store in temp3] [endif] [if SEX is <2>] [store in temp3] [endif] [endif] [# What is the highest level of school [fill temptext] [fill temp2] completed or the highest degree [fill temp3] [fill temp2] received? (31) Less than 1st grade (44) Bachelors degree (32) 1st,2nd,3rd or 4th grade (for example: BA, AB, BS) (33) 5th or 6th grade (45) Master's degree (For example: (34) 7th or 8th grade MA, MS, MEng, MEd, MSW, MBA) (35) 9th grade (46) Professional School Degree (For (36) 10th grade example: MD, DDS, DVM, LLB, JD) (37) 11th grade (47) Doctorate degree (38) 12th grade, no diploma (For example PhD, EdD) (39) HIGH SCHOOL GRADUATE - high school DIPLOMA or equivalent (For example: GED) (40) Some college but no degree (41) Diploma or certificate from a vocational, technical, trade or business shcool beyond the High School level (42) Associate degree in college - Occupational/vocational program (43) Associate degree in college - Academic program @ [@]<31-47> [missing] [missing] [default goto ST_ADD_ED] >ST_ADD_ED< [reference] [store ADD_EDUC in EDUC] [goto ADD_WHENMOVE] ---------------------------------------------------------------------- >ADD_WHENMOVE< [reference] [if L_NO eq respline] [store in temp2] [else] [store NAME(L_NO) in temp2] [endif] [# When did [fill temp2] move to this [fill HTYPEFILL]? [bold]FR: ENTER (X) if mother lived here when person was born.[n] ENTER 4 DIGIT YEAR @YR What month was that? (1) January (5) May (9) September (2) February (6) June (10) October (3) March (7) July (11) November (4) April (8) August (12) December @MON [@YR] <1800-1990> <1991-2001> [missing] [missing] [goto ADD_SET_MOVE] [store <13> in WMOVE_i] [if ADD_WHENMOVE@YR eq <2001>] [store month in WMOVE_i] [endif] [@MON] <1-12> [reject gt WMOVE_i label ] [missing] [default goto ST_WHENMOVE] >ADD_SET_MOVE< [reference] [store in WHENMOVE@YR] [store BRTHY in MOVYEAR] [store BRTHM in MOVM] [if BRTHM le <9>] [make movm from <0> BRTHM] [goto ADNATINTRO] [else] [store BRTHM in movm] [goto ADNATINTRO] [endif] >ST_WHENMOVE< [reference] [store ADD_WHENMOVE@YR in MOVYEAR] [store ADD_WHENMOVE@MON in MOVM] [if ADD_WHENMOVE@MON le <9>] [make movm from <0> ADD_WHENMOVE@MON] [goto ADNATINTRO] [else] [store ADD_WHENMOVE@MON in movm] [goto ADNATINTRO] [endif] --------------------------------------------------------------------------- >ADNATINTRO< [reference] [if L_NO eq respline] [store in temptext] [else] [make temptext from FNAME < > LNAME <'s>] [endif] The next few questions ask about [fill temptext] country of birth. ENTER (P) TO PROCEED @ [@]

[goto ADNTV] --------------------------------------------------------------------------- >ADNTV< [reference] [allow 9] [goto ADNATDES] >ADNATDES< [reference] [allow 9 for 96] [store in ADNATDES(<57>)] [store in ADNATDES(<72>)] [store in ADNATDES(<96>)] [goto adnatdes1] >ADNATDES1< [reference] [allow 9 for 95] [store in ADNATDES1(<2>)] [store in ADNATDES1(<3>)] [store in ADNATDES1(<5>)] [store in ADNATDES1(<6>)] [store in ADNATDES1(<8>)] [store in ADNATDES1(<9>)] [store in ADNATDES1(<10>)] [store in ADNATDES1(<16>)] [store in ADNATDES1(<17>)] [store in ADNATDES1(<19>)] [store in ADNATDES1(<20>)] [store in ADNATDES1(<26>)] [store in ADNATDES1(<27>)] [store in ADNATDES1(<28>)] [store in ADNATDES1(<29>)] [store in ADNATDES1(<30>)] [store in ADNATDES1(<32>)] [store in ADNATDES1(<34>)] [store in ADNATDES1(<36>)] [store in ADNATDES1(<37>)] [store in ADNATDES1(<38>)] [store in ADNATDES1(<39>)] [store in ADNATDES1(<40>)] [store in ADNATDES1(<42>)] [store in ADNATDES1(<47>)] [store in ADNATDES1(<48>)] [store in ADNATDES1(<55>)] [store in ADNATDES1(<56>)] [store in ADNATDES1(<80>)] [store in ADNATDES1(<83>)] [store in ADNATDES1(<84>)] [store in ADNATDES1(<85>)] [store in ADNATDES1(<92>)] [store in ADNATDES1(<95>)] [goto adnatdes2] >ADNATDES2< [reference] [allow 9 for 53] [store in ADNATDES2(<2>)] [store in ADNATDES2(<5>)] [store in ADNATDES2(<6>)] [store in ADNATDES2(<7>)] [store in ADNATDES2(<9>)] [store in ADNATDES2(<10>)] [store in ADNATDES2(<11>)] [store in ADNATDES2(<12>)] [store in ADNATDES2(<13>)] [store in ADNATDES2(<14>)] [store in ADNATDES2(<15>)] [store in ADNATDES2(<16>)] [store in ADNATDES2(<18>)] [store in ADNATDES2(<21>)] [store in ADNATDES2(<22>)] [store in ADNATDES2(<24>)] [store in ADNATDES2(<29>)] [store in ADNATDES2(<31>)] [store in ADNATDES2(<33>)] [store in ADNATDES2(<34>)] [store in ADNATDES2(<37>)] [store in ADNATDES2(<38>)] [store in ADNATDES2(<39>)] [store in ADNATDES2(<40>)] [store in ADNATDES2(<42>)] [store in ADNATDES2(<45>)] [store in ADNATDES2(<52>)] [store in ADNATDES2(<53>)] [goto adnatdes3] >ADNATDES3< [reference] [allow 9 for 89] [store in ADNATDES3(<1>)] [store in ADNATDES3(<4>)] [store in ADNATDES3(<10>)] [store in ADNATDES3(<11>)] [store in ADNATDES3(<12>)] [store in ADNATDES3(<13>)] [store in ADNATDES3(<14>)] [store in ADNATDES3(<15>)] [store in ADNATDES3(<16>)] [store in ADNATDES3(<17>)] [store in ADNATDES3(<18>)] [store in ADNATDES3(<33>)] [store in ADNATDES3(<34>)] [store in ADNATDES3(<37>)] [store in ADNATDES3(<38>)] [store in ADNATDES3(<39>)] [store in ADNATDES3(<40>)] [store in ADNATDES3(<42>)] [store in ADNATDES3(<43>)] [store in ADNATDES3(<51>)] [store in ADNATDES3(<53>)] [store in ADNATDES3(<75>)] [store in ADNATDES3(<76>)] [store in ADNATDES3(<77>)] [store in ADNATDES3(<78>)] [store in ADNATDES3(<79>)] [store in ADNATDES3(<80>)] [store in ADNATDES3(<83>)] [store in ADNATDES3(<85>)] [store in ADNATDES3(<87>)] [store in ADNATDES3(<88>)] [store in ADNATDES3(<89>)] [goto adnatdes4] >ADNATDES4< [reference] [allow 9 for 68] [store in ADNATDES4(<15>)] [store in ADNATDES4(<17>)] [store in ADNATDES4(<21>)] [store in ADNATDES4(<27>)] [store in ADNATDES4(<36>)] [store in ADNATDES4(<40>)] [store in ADNATDES4(<49>)] [store in ADNATDES4(<62>)] [store in ADNATDES4(<68>)] [goto adnatdes5] >ADNATDES5< [reference] [allow 9 for 55] [store in ADNATDES5(<01>)] [store in ADNATDES5(<07>)] [store in ADNATDES5(<14>)] [store in ADNATDES5(<27>)] [store in ADNATDES5(<55>)] [goto add_natvty] --------------------------------------------------------------------------- >ADD_NATVTY< [reference] [store <> in temp2] [if L_NO eq respline] [store in temptext] [store in temp2] [else] [make temptext from FNAME < > LNAME] [store in temp2] [endif] In what country [fill temp2] [fill temptext] born? (57) United States (72) Puerto Rico (96) Outlying Area of the U.S. (American Samoa, Guam, U.S. Virgin Islands, Northern Marianas, Other U.S. Territory.) @1 **TO SEE FULL LIST OF COUNTRIES** Use SHIFT-F5 for A through J Use SHIFT-F6 for K through Z, and OTHER geographical areas [if ADNTV ne <>] IF [fill ADNTV] IS CORRECT, ENTER

TO PROCEED @2 [endif] [@1] <57,72,96,102,103,105,106,108-110,116,117,119,120,126-130> <132,134,136-139,140,142,147,148,155,156,180,183-185,192,195> <200,202,205-207,209,210-216,218,221,222,224,229,231,233,234> <237-240,242,245,252,253> <300,301,304,310-318,333,334,337-340,342,343,351,353> <375-380,383,385,387-389,415,417,421,427,436,440,449,462,468> <501,507,514,527,555> [missing] [if ADD_NATVTY@1 ne and ADD_NATVTY@1 ne ] [if ADD_NATVTY@1 lt <100>] [store ADNATDES(ADD_NATVTY@1) in ADNTV] [else] [if ADD_NATVTY@1 gt <100> and ADD_NATVTY@1 lt <200>] [store (ADD_NATVTY@1 - <100>) in INDEX] [store ADNATDES1(INDEX) in ADNTV] [else] [if ADD_NATVTY@1 eq <200>] [store in ADNTV] [else] [if ADD_NATVTY@1 gt <200> and ADD_NATVTY@1 lt <300>] [store (ADD_NATVTY@1 - <200>) in INDEX] [store ADNATDES2(INDEX) in ADNTV] [else] [if ADD_NATVTY@1 eq <300>] [store in ADNTV] [else] [if ADD_NATVTY@1 gt <300> and ADD_NATVTY@1 lt <400>] [store (ADD_NATVTY@1 - <300>) in INDEX] [store ADNATDES3(INDEX) in ADNTV] [else] [if ADD_NATVTY@1 gt <400> and ADD_NATVTY@1 lt <500>] [store (ADD_NATVTY@1 - <400>) in INDEX] [store ADNATDES4(INDEX) in ADNTV] [else] [if ADD_NATVTY@1 gt <500>] [store (ADD_NATVTY@1 - <500>) in INDEX] [store ADNATDES5(INDEX) in ADNTV] [endif][endif][endif][endif][endif][endif] [endif][endif][endif] [if ADD_NATVTY@1 onpath] [store ADD_NATVTY@1 in NATVTY] [endif] [@2] [goto ADPRE_CITIZN] --------------------------------------------------------------------------- >H_CNTRY_REF3< [reference] [# Used for SHIFT-F3] (200) Afghanistan (301) Canada (139) England (209) Hong Kong (375) Argentina (206) Cambodia (417) Ethiopia (117) Hungary (185) Armenia (378) Chile (507) Figi (211) Indonesia (102) Austria (311) Costa Rica (108) Finland (210) India (501) Australia (207) China (109) France (212) Iran (130) Azores (379) Colombia (110) Germany (213) Iraq (333) Bahamas (337) Cuba (421) Ghana (119) Ireland/Eire (202) Bangladesh (155) Czech Republic (138) Great Britain (214) Israel (334) Barbados (105) Czechoslovakia (116) Greece (120) Italy (310) Belize (106) Denmark (340) Grenada (343) Jamaica (103) Belgium (338) Dominica (313) Guatemala (215) Japan (300) Bermuda (339) Dominican Rep. (383) Guyana (216) Jordan (376) Bolivia (380) Ecuador (342) Haiti (377) Brazil (415) Egypt (126) Holland (205) Burma (312) El Salvador (314) Honduras [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [goto ADD_NATVTY] --------------------------------------------------------------------------- >H_CNTRY_REF4< [reference] [# Used for SHIFT-F4] (427) Kenya (127) Norway (449) South Africa (242) Vietnam (218) Korea/S. Korea(229) Pakistan (134) Spain (147) Yugoslavia (221) Laos (253) Palestine (136) Sweden (353) Caribbean (183) Latvia (317) Panama (137) Switzerland (318) Central America (222) Lebanon (385) Peru (237) Syria (389) South America (184) Lithuania (231) Philippines (238) Taiwan (304) North America (224) Malaysia (128) Poland (239) Thailand (148) Europe (315) Mexico (129) Portugal (351) Trinidad/Tobago (252) Middle East (436) Morocco (132) Romania (240) Turkey (468) North Africa (126) Netherlands (192) Russia (195) Ukraine (462) Other Africa (514) New Zealand (233) Saudi Arabia (387) Uruguay (245) Asia (316) Nicaragua (140) Scotland (180) USSR (527) Pacific Islands (440) Nigeria (234) Singapore (388) Venezuela (555) Elsewhere (142) Northern Ireland (156) Slovakia/Slovak Rep. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [goto add_natvty] --------------------------------------------------------------------------- >ADPRE_CITIZN< [reference] [if NATVTY eq <57> or NATVTY eq <057> or NATVTY eq <72> or NATVTY eq <072>] [goto ADD_RACE] [endif] [if (NATVTY eq <96> or NATVTY eq <096>) goto ADD_INUSYR@1] [if ADD_NATVTY@1 onpath goto ADD_CITIZN] [goto ADD_RACE] --------------------------------------------------------------------------- >ADD_CITIZN< [reference] [store <> in temp2] [if L_NO eq respline] [store in temp2] [store in temptext] [else] [store in temp2] [make temptext from FNAME < > LNAME] [endif] [fill temp2] [fill temptext] a CITIZEN of the United States? (1) Yes (2) No, not a citizen @ [@] <1,2,D,R> [store ADD_CITIZN in CITIZN] [if ADD_CITIZN eq <1> goto ADD_CTZNA] [goto ADINUSELck] --------------------------------------------------------------------------- >ADD_CTZNA< [reference] [store <> in temp2] [if L_NO eq respline] [store in temp2] [store in temptext] [else] [store in temp2] [make temptext from FNAME < > LNAME] [endif] [fill temp2] [fill temptext] born a citizen of the United States? (1) Yes (2) No @ [@] <1,2,D,R> [store ADD_CTZNA in CTZNA] [if ADD_CTZNA eq <1> or ADD_CTZNA eq goto ADD_INUSYR@1] [goto ADD_CTZNB] --------------------------------------------------------------------------- >ADD_CTZNB< [reference] [store <> in temp2] [if L_NO eq respline] [store in temptext] [else] [make temptext from FNAME < > LNAME] [endif] Did [fill temptext] become a citizen of the United States through naturalization? (1) Yes (2) No @ [@] <1,2,D,R> [store ADD_CTZNB in CTZNB] [goto ADD_INUSYR@1] --------------------------------------------------------------------------- >ADINUSELck< [reference] [if CITIZN eq <2> goto ADD_INUSYR@1] [goto ADD_RACE] --------------------------------------------------------------------------- >ADD_INUSYR< [missing ] [reference] [if L_NO eq respline] [store in temptext] [else] [make temptext from FNAME < > LNAME] [endif] [# [store <> in temp2] [store <> in temp3] [store <> in index4] [store BRTHY in XBAD(<1>)] [store (YEAR - BRTHY) in index4] [store index4 in xbad(<2>)] [make temp2 from BRTHY <-2001>] [make temp3 from <1-> index4] [# [if BRTHY eq or BRTHY eq or BRTHY eq <>] [store <1873> in XBAD(<1>)] [store <128> in xbad(<2>)] [store <1873-2001> in temp2] [store <1-128> in temp3] [endif] [# [setdate DATE] [# When did [fill temptext] come to live in the United States? ENTER FOUR DIGIT YEAR ([fill temp2]) @1 IF RESPONDENT REPORTS THE NUMBER OF YEARS AGO INSTEAD OF THE ACTUAL YEAR, ENTER NUMBER REPORTED ([fill temp3]) @2 [@1] <1873-2001,D,R> [accept ge XBAD(<1>)] [optional][goto ADD_INUSYRa] [@2] <1-128> [reject gt XBAD(<2>)] [goto ADVER_INUSYR] [goto ADD_INUSYRb] >ADD_INUSYRa< [reference] [store ADD_INUSYR@1 in INUSYR] [goto ADD_RACE] >ADD_INUSYRb< [reference] [store ADD_INUSYR@2 in INUSYR] [goto ADD_RACE] ---------------------------------------------------------------------- >ADVER_INUSYR< [reference] [store <> in index4] [store (YEAR - ADD_INUSYR@2) in index4] That would be [fill index4]. Is that correct? (1) Yes (2) No @ [@] <1> <2,D,R> [goto ADD_INUSYR] [store index4 in INUSYR] [goto ADD_RACE] ---------------------------------------------------------------------- >ADD_RACE< [reference] [if L_NO eq respline] [store in temptext] [else] [make temptext from FNAME < > LNAME <'s>] [endif] [# What is [fill temptext] race? (1) White (2) Black (3) American Indian, Aleut, or Eskimo (4) Asian or Pacific Islander (5) Other Race @ [@] <1-5> [missing] [missing] [default goto ST_ADD_RC] >ST_ADD_RC< [reference] [store ADD_RACE in RACE] [goto ADD_ORIGN] --------------------------------------------------------------------- >ADD_ORIGN< [reference] [if L_NO eq respline] [store in temptext] [store in temp2] [else] [make temptext from FNAME < > LNAME] [store in temp2] [endif] [fill temp2] [fill temptext] of Spanish or Hispanic origin? (1) Yes (2) No @ [@] <1-2> [missing] [missing] [default goto ST_ADD_OR] >ST_ADD_OR< [reference] [store ADD_ORIGN in ORIGN] [goto ADD_CK_LNPAR] ---------------------------------------------------------------------- >ADD_CK_LNPAR< [reference] [store ADD_MAR in MAR] [store ADD_MAR in T_MAR(L_NO)] [IF REL2 eq <2>] NON-REL WITH NO OTHER RELATIVES [store <0> in PAR] [goto END_ADDDEMO] (EDIT #16) [ENDIF] [IF REL eq <2> OR REL eq <02>] REFERENCE PERSON WITHOUT [store <0> in PAR] [goto END_ADDDEMO] (EDIT #16) [ENDIF] [IF REL eq <22>] (EDIT #21) (CHILD OF REFERENCE PERSON) [store REF_LNO in PAR] [goto END_ADDDEMO] [ENDIF] [IF REL eq <01> OR REL eq <1>] [IF MOMIX ne <> AND MOMIX ne <0>] [store MOMIX in PAR] [ELSE] [store DADIX in PAR] [ENDIF] [goto END_ADDDEMO] [ENDIF] IF A ONE PERSON HOUSEHOLD THEN SKIP OVER S_LNPARENT [IF PCNT eq <1> goto END_ADDDEMO] [store <0> in index] [store <0> in index2] [store <0> in index3] [store <0> in index4] [loop for X from <1> to <30>] [IF T_REL(X) eq <01> OR T_REL(X) eq <1>] [add <1> to index2] [ENDIF] [IF T_REL(X) eq <20>] [add <1> to index2] [ENDIF] [IF T_REL(X) eq <26>] [add <1> to index] [ENDIF] [IF T_REL(X) eq <22>] [add <1> to index3] [ENDIF] [IF (T_REL(X) eq <21> or (T_REL(X) ge <27> AND T_REL(X) le <30>)) AND T_REL2(X) eq <1>] [add <1> to index4] [ENDIF] [IF T_REL(X) eq <31> or T_REL(X) eq <33> or T_REL(X) eq <35> or T_REL(X) eq <37>] [add <1> to index4] [ENDIF] [loop end X] [IF PCNT eq <2> AND index2 eq <2> goto END_ADDDEMO] [IF REL eq <20> AND index eq <0>] PARENT OF SPOUSE CAN ONLY BE "OTHER REL" [store <> in PAR] [goto END_ADDDEMO] [ENDIF] [IF REL eq <23> AND index eq <0> AND index3 eq <0>] [store <> in PAR] [goto END_ADDDEMO] [ENDIF] [IF REL eq <24> AND index eq <0>] PARENT OF PARENT CAN ONLY BE "OTHER REL" [store <> in PAR] [goto END_ADDDEMO] [ENDIF] [IF REL eq <25>] [IF MOMIX ne <> AND MOMIX ne <0>] [store MOMIX in PAR] [ELSE] [store DADIX in PAR] [ENDIF] [goto END_ADDDEMO] [ENDIF] [IF REL eq <26> AND (index eq <0> OR index eq <1>)] [store <> in PAR] [goto END_ADDDEMO] [ENDIF] [IF (REL eq <21> or (REL ge <27> AND REL le <30>)) AND REL2 eq <1> AND (index4 eq <0> OR index4 eq <1>)] [store <> in PAR] [goto END_ADDDEMO] [ENDIF] [#IF (REL eq <33> OR REL eq <35> OR REL eq <37>) AND (index4 eq <0> OR index4 eq <1>)] [#store <> in PAR] [#goto END_ADDDEMO] [#ENDIF] [IF I_PAR isnt <> AND OLDPER eq <1> goto END_ADDDEMO] [goto ADD_S_LNPARENT] ---------------------------------------------------------------------- >ADD_S_LNPARENT< [reference] [display PRLN] [# [IF L_NO eq respline] [store in temp3] [store in temp2] [ELSE] [make temp3 from FNAME < > LNAME <'s> < parents>] [store in temp2] [ENDIF] [# [#(don't list: [# reference person if refper is w/o (EDIT #29) ] [# anyone with REL2 eq 2 (EDIT #17)] [# if REL2 eq 1 only display others with REL2 eq 1 EDIT #33 ] [# [# [fill temp2] [fill temp3] live in this household? ** ENTER LINE NUMBER OF PARENT ** ENTER (0) FOR NONE @ [@] <1-99> [reject gt HIGH_LNO label ] [reject eq XBAD label ] [missing] <0> [default goto ST_S_LNPARENT] >ST_S_LNPARENT< [reference] [store ADD_S_LNPARENT in PAR] [goto ADD_CK_PRAGE] ---------------------------------------------------------------------- >ADD_CK_PRAGE< [reference] [IF PAR is <0> goto END_ADDDEMO] [store <0> in index] [store <0> in index2] THE PARENT OF A CHILD MUST BE AT LEAST 14 YEAR OLDER THAN THE CHILD [store PAR in index3] [store T_AGE(index3) in index] AGE OF PARENT [store AGE in index2] AGE OF CHILD [if index eq <0> OR index eq <> goto END_addDEMO] [subtract index2 from index] [IF index ge <14> goto END_ADDDEMO] ---------------------------------------------------------------------- >ADD_ERR_PRAGE< [reference] [store <0> in index] [store <0> in index2] [store PAR in index3] [store T_AGE(index3) in index] [store AGE in index2] [# [subtract index2 from index] [# You only have [fill index] years age difference between parent and child. Is that correct? (1) Yes (2) No @ [@] <1,2> [goto END_ADDDEMO] ---------------------------------------------------------------------- >END_ADDDEMO< [reference] [store <0> in NEWPERSON] [goto END_ADDDEMO2] ------------------------------------------------------------ >END_ADDDEMO2< [reference] [roster end persons] [goto DONE_ADD2] ------------------------------------------------------------ >DONE_ADD2< [reference] [return from help] >SECTION1< [window 3 size 21 rows 80 columns] ------------------------------------------------------------ Modified Date:5-9-2001 Survey: AMERICAN HOUSING SURVEY - National 2001 Module: Inventory Module (INV) Programmers: Judy Hodges Tazreen Chowdhury ______________________________________________________________________ >INV_BEGIN< [setdate INTDATE] [section INV] [start timer] [no erase] ______________________________________________________________________ >INV_TME< [allow int 8] >index12< [allow 2] >index13< [allow 2] >index14< [allow 2] >index1a< [allow 27] >index2a< [allow 27] >index3a< [allow 27] >index4a< [allow 27] >index5a< [allow 27] >index6a< [allow 27] >index7a< [allow 27] >index8a< [allow 27] >index9a< [allow 27] >index10a< [allow 27] >index11a< [allow 27] >index12a< [allow 27] >index13a< [allow 27] >index14a< [allow 27] >index15a< [allow 27] >built< [allow 4] >CAT< [allow 2] >MBUILT< [allow 2] [#>INVNYR< [#allow int 4] [#store <1900> in INVNYR] [#add YEAR to INVNYR] >OFFOUT< [allow int 2] [store <0> in OFFOUT] >OUT_ELEV< [allow 1] >OUT_MH32< [allow 1] >OUT_LTSQFTQ< [allow 6] >OUT_LTFT1Q< [allow 6] >OUT_LTFT2Q< [allow 6] >OUT_LTACQ< [allow 6] >UNITSF< [allow 5] >OUT_MH41< [allow 4] >OUT_MH42< [allow 4] >OUT_MH43< [allow 4] >OUT_MH44< [allow 4] >OUT_MH45< [allow 4] ______________________________________________________________________ >INVCK3< [store <1> in CDEPSTAT] [if CDEPSTAT eq <2>] [goto INVck4] [endif] [if INCSAM eq <1> or I_ISTATUS ne <1>] [store <2> in CDEPSTAT] [goto INVck4] [else] [if ISTATUS eq <2> or ISTATUS eq <3> or ISTATUS eq <4>] [store <2> in CDEPSTAT] [goto INVck4] [else] [if REPLHU eq <1>] [store <2> in CDEPSTAT] [goto INVck4] [endif][endif][endif] --------------------------------------------------------------------------- >INVck4< [if STYPE eq <4> or STYPE eq <5>] [goto INVck4a] [endif] [if STYPE eq <1> or STYPE eq <2> or STYPE eq <3>] [goto INVck5] [endif] ______________________________________________________________________ >INVck4a< [if REPLHU eq <2> and (I_FRSIT eq <1> or I_FRSIT eq <2>)] [store I_FRSIT in OUT_FRSIT] [goto INV4b_TPARKA] [else] [goto INV4a_FRSITQ] [endif] ______________________________________________________________________ >INV4a_FRSITQ< [missing ] [store <> in temp] [if ISTATUS eq <1> or ISTATUS eq <2>] [store in temp] [else] [store in temp] [endif] Excluding the dealer's lot, is [fill temp] the first site on which this manufactured/mobile home was placed? (1) Yes, first site (2) No, moved from another site (D) Don't know - not sure @ [@]<1-2,D,R> [goto inv4b_tparka] [etc ] ---------------------------------------------------------------------- >INV4b_TPARKA< [missing ] [store <> in temp] [if ISTATUS eq <1> or ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif] [r](H)[n] Is [fill temp] manufactured/mobile home included in a group of 2 or more? (1) Yes (2) No, manufactured/mobile home not in a group @ [@]<1>[goto INV4c_TPARKB] <2,D,R>[goto INVck5] [etc ] ______________________________________________________________________ >INV4c_TPARKB< [missing ] [store <> in temp] [if ISTATUS eq <1> or ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif] How many, including [fill temp] manufactured/mobile home, are in the group? (2-20) 2-20 manufactured/mobile homes (21) 21 or more manufactured/mobile homes @ [@]<2-21,D,R>[goto INVck5] [etc ] _____________________________________________________________________ >INVck5< [if REPLHU eq <1>] [goto INV5] [endif] [if REPLHU eq <2> and TENURE eq <1> and I_TENURE eq <2> and I_BUILT ne <> and I_BUILT ne and I_BUILT ne ] [goto INV5vr_BUILTV] [endif] [# [if REPLHU eq <2> and I_BUILT ge <1990>] [store I_MBUILT in MBUILT] [store I_BUILT in BUILT] [goto inv6a1_condo1] [else] [if REPLHU eq <2> and I_BUILT lt <1990> and I_BUILT gt <1919>] [store I_BUILT in BUILT] [goto inv6a1_condo1] [else] [if REPLHU eq <2> and I_BUILT eq <1919>] [store I_BUILT in BUILT] [goto inv5b_oldecq] [else] [if REPLHU eq <2> and i_built eq <>] [goto inv5] [else] [goto inv5] [endif][endif][endif][endif] ---------------------------------------------------------------------- >INV5vr_BUILTV< [store <> in temp] [if i_built eq <1985>] [store in temp] [else] [if i_built eq <1980>] [store in temp] [else] [if i_built eq <1975>] [store in temp] [else] [if i_built eq <1970>] [store in temp] [else] [if i_built eq <1960>] [store in temp] [else] [if i_built eq <1950>] [store in temp] [else] [if i_built eq <1940>] [store in temp] [else] [if i_built eq <1930> and (stype eq <4> or stype eq <5>)] [store in temp] [else] [if i_built eq <1930> and (stype eq <1> or stype eq <2> or stype eq <3>)] [store in temp] [else] [if i_built eq <1920>] [store in temp] [else] [if i_built ne <> and i_built le <1919>] [store in temp] [else] [if i_built ge <1990>] [store i_built in temp] [else] [endif][endif][endif][endif] [endif][endif] [endif][endif][endif][endif] [endif][endif] [if i_built ge <1990>] Last time we recorded that your [fill htypefill] was built in [fill TEMP]. Is this information still correct? [else] Last time we recorded that your [fill htypefill] was built [fill TEMP]. Is this information still correct? [endif] (1) Yes (2) No (D) Don't know - not sure @ [@] <1,R> [goto @a] <2,D> [goto inv5] [@a] [store i_mbuilt in mbuilt] [store i_built in built] [if i_built le <1919>] [goto inv5b_oldecq] [else] [goto INV6a1_condo1] [endif] ---------------------------------------------------------------------- >tem2< [allow 4] >INV5< [missing ] [store <> in temp][store <> in temp2] [store <> in temp3][store <> in temp4] [store <> in tem2] [if ISTATUS eq <1> and (STYPE eq <1> or STYPE eq <2>)] [store in temp] [store <(8) 1930-39> in temp2] [store <(9) 1920-29> in temp3] [store <(10) 1919 or earlier> in temp4] [else] [if (ISTATUS eq <1> or ISTATUS eq <2> or ISTATUS eq <3>) and (STYPE eq <1> or STYPE eq <2> or STYPE eq <3>)] [store in temp] [store <(8) 1930-39> in temp2] [store <(9) 1920-29> in temp3] [store <(10) 1919 or earlier> in temp4] [else] [if (ISTATUS eq <1> or ISTATUS eq <2>) and (STYPE eq <4> or STYPE eq <5>)] [store in temp] [store <(8) 1939 or earlier> in temp2] [store <> in temp3] [store <> in temp4] [else] [if ISTATUS eq <3> and (STYPE eq <4> or STYPE eq <5>)] [store in temp] [store <(8) 1939 or earlier> in temp2] [store <> in temp3] [store <> in temp4] [endif] [endif][endif][endif] [# [fill temp] [bold](If respondent replies DK or is uncertain, probe: Do you know what decade, such as the 90's, 80's, 70's or some other decade?)[n] 1990 to the present: @MBUILTQ Month @BUILT1Q Year (1) 1985-89 1980's [u]ALTERNATIVE IF GIVEN YEARS OLD[N] (2) 1980-84 Enter Age of building/manufactured/mobile home: @yrsold (3) 1975-79 1970's (4) 1970-74 1970's (5) 1960-69 (6) 1950-59 (7) 1940-49 [fill temp2] [fill temp3] [fill temp4] @BUILT2Q [@MBUILTQ] <1-12,D,R> [optional] [goto @BUILT1Q] [etc ] [@BUILT1Q] <1990-2002,D,R> [optional] [goto @1] [etc ] [@YRSOLD]<1-200,D,R> [goto @2][optional] [etc ] [@BUILT2Q] <1-9,D,R> [goto @3] [etc ] <10> [store <1919> in built][goto inv5b_oldecq] [@1] [store INV5@BUILT1Q in BUILT] [goto INV6a1_CONDO1] [@2] [store (YEAR - INV5@yrsold) in tem2] [if tem2 ge <1990>] [store tem2 in built] [goto inv6a1_condo1] [endif] [if tem2 ge <1985> and tem2 le <1989>] [store <1> in CAT] [store <1> in INV5@BUILT2Q] [store <1985> in BUILT] [goto inv6a1_condo1] [endif] [if tem2 ge <1980> and tem2 le <1984>] [store <2> in CAT] [store <2> in INV5@BUILT2Q] [store <1980> in BUILT] [goto inv6a1_condo1] [endif] [if tem2 ge <1975> and tem2 le <1979>] [store <3> in CAT] [store <3> in INV5@BUILT2Q] [store <1975> in BUILT] [goto inv6a1_condo1] [endif] [if tem2 ge <1970> and tem2 le <1974>] [store <4> in CAT] [store <4> in INV5@BUILT2Q] [store <1970> in BUILT] [goto inv6a1_condo1] [endif] [if tem2 ge <1960> and tem2 le <1969>] [store <5> in CAT] [store <5> in INV5@BUILT2Q] [store <1960> in BUILT] [goto inv6a1_condo1] [endif] [if tem2 ge <1950> and tem2 le <1959>] [store <6> in CAT] [store <6> in INV5@BUILT2Q] [store <1950> in BUILT] [goto inv6a1_condo1] [endif] [if tem2 ge <1940> and tem2 le <1949>] [store <7> in CAT] [store <7> in INV5@BUILT2Q] [store <1940> in BUILT] [goto inv6a1_condo1] [endif] [if tem2 ge <1930> and tem2 le <1939>] [store <8> in CAT] [store <8> in INV5@BUILT2Q] [store <1930> in BUILT] [goto inv6a1_condo1] [endif] [if tem2 ge <1920> and tem2 le <1929>] [store <9> in CAT] [store <9> in INV5@BUILT2Q] [store <1920> in BUILT] [goto inv6a1_condo1] [endif] [if tem2 le <1919> and tem2 ge <1>] [store <10> in CAT] [store <10> in INV5@BUILT2Q] [store <1919> in BUILT] [goto inv5b_OLDECQ] [endif] [if INV5@yrsold eq or INV5@yrsold eq ] [store in CAT] [endif] [@3] [if INV5@BUILT2Q eq <1>] [store <1985> in BUILT] [goto inv6a1_condo1] [else] [if INV5@BUILT2Q eq <2>] [store <1980> in BUILT] [goto inv6a1_condo1] [else] [if INV5@BUILT2Q eq <3>] [store <1975> in BUILT] [goto inv6a1_condo1] [else] [if INV5@BUILT2Q eq <4>] [store <1970> in BUILT] [goto inv6a1_condo1] [else] [if INV5@BUILT2Q eq <5>] [store <1960> in BUILT] [goto inv6a1_condo1] [else] [if INV5@BUILT2Q eq <6>] [store <1950> in BUILT] [goto inv6a1_condo1] [else] [if INV5@BUILT2Q eq <7>] [store <1940> in BUILT] [else] [if INV5@BUILT2Q eq <8>] [store <1930> in BUILT] [goto inv6a1_condo1] [else] [if INV5@BUILT2Q eq <9>] [store <1920> in BUILT] [goto inv6a1_condo1] [else] [if INV5@BUILT2Q eq <10>] [store <1919> in BUILT] [goto INV5b_OLDECQ] [endif][endif][endif][endif][endif] [endif][endif][endif][endif][endif] [goto INV5CK] ---------------------------------------------------------------------- >INV5b_OLDECQ< [missing ] [store <> in temp] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [else] [if ISTATUS eq <2>] [store in temp] [endif][endif][endif] We have recorded that [fill temp] [fill htypefill] was built before 1920. What decade was your [fill htypefill] built? (1) 1910-1919 (2) 1900-1909 (3) 1890-1899 (4) 1880-1889 (5) 1870-1879 (6) 1860-1869 (7) 1850-1859 (8) 1840-1849 (9) 1830-1839 (10)1820-1829 (11)1810-1819 (12)1800-1809 (13)1799 or before @ [@] <1-13,D,R> [goto inv6a1_condo1] ---------------------------------------------------------------------- >INV5CK< [if INV5@MBUILTQ eq <> and INV5@BUILT1Q eq <> and INV5@yrsold eq <> and INV5@BUILT2Q eq <>] [store in BUILT] [endif] ---------------------------------------------------------------------- >OUT_CONDO< [allow 1] >INV6a1_CONDO1< [missing ] [store <> in temp] [if ISTATUS eq <3>] [store in temp] [else] [store in temp] [endif] [bold]FR: If respondent seems unsure of definition of "condo" refer to definition under the help screen.[n] [r](H)[n] Is [fill temp] [fill HTYPEFILL] part of a condominium? (1) Yes (2) No @ [@]<1> [goto @a] [goto @b] <2,D> [goto inv6a2_CONDO2] [etc ] [@a] [if inv6a1_condo1 eq <1>] [store <2> in out_condo] [endif] [goto INVck7] [@b] [if inv6a1_condo1 eq ] [store in out_condo] [endif] [goto INVck7] _____________________________________________________________________ >INV6a2_CONDO2< [missing ] [store <> in temp] [if ISTATUS eq <3>] [store in temp] [else] [store in temp] [endif] [bold]FR: If respondent seems unsure of definition of "co-op" refer to definition under the help screen.[n] Is [fill temp] [fill HTYPEFILL] part of a cooperative? [r](H)[n] (1) Yes (2) No @ [@]<1> [goto @a] <2,D,R> [goto @b] [etc ] [@a] [store <1> in out_condo] [goto inv6b_condop] [@b] [if inv6a2_condo2 eq <2>] [store <3> in out_condo] [else] [if inv6a2_condo2 eq ] [store in out_condo] [else] [if inv6a2_condo2 eq ] [store in out_condo] [endif] [endif] [endif] [goto invck7] _____________________________________________________________________ >INV6b_CONDOP< [missing ] For this survey, a cooperative is property that is owned by a corporation made up of resident shareholders. Co-op owners can live in their unit or rent it out. Is this what you mean when you say this is a cooperative? (1) Yes (2) No (Correct entry in INV6a2_CONDO2) @ [@]<1,D,R> [goto INVck7] <2> [etc ] _____________________________________________________________________ >INVck7< [if STYPE eq <3>] [goto INVck8a] [endif] [if STYPE eq <4> or STYPE eq <5>] [goto INV7c_anchor] [endif] [if (STYPE eq <1> or STYPE eq <2>) and REPLHU eq <2> and (I_CELLAR ge <1> and I_CELLAR le <4>)] [goto INV7avr_CELAR1V] [else] [goto INV7a] [endif] ______________________________________________________________________ >INV7avr_CELAR1V< [missing ] [store <> in temp] [store <> in temp1] [if ISTATUS eq <3>] [store in temp] [else] [store in temp] [endif] [if I_CELLAR eq <1>] [store in temp1] [else] [if I_CELLAR eq <2>] [store in temp1] [else] [if I_CELLAR eq <3>] [store in temp1] [else] [if I_CELLAR eq <4>] [store in temp1] [endif][endif][endif][endif] Last time we recorded that [fill temp] house was built [fill temp1]. Is this information still correct? (1) Yes (2) No (D) Don't know - not sure @ [@] [etc ] <2,D> [goto INV7a] <1,R> [if @ eq ] [store in out_cellar] [goto INVck8a] [endif] [if @ eq <1>] [store I_cellar in out_cellar] [goto INVck8a] [endif] __________________________________________________________________________________ ________ >INV7a< [missing ] [store <> in temp] [store <> in temp1] [if ISTATUS eq <3>] [store in temp] [else] [store in temp] [endif] [if inv7avr_celar1v eq <2> and I_CELLAR eq <1>] [store in temp1] [else] [if inv7avr_celar1v eq <2> and I_CELLAR eq <2>] [store in temp1] [else] [store in temp1] [endif][endif] [# Is [fill temp] house built- [r](H)[n] (READ CATEGORIES UNTIL A "YES" REPLY IS RECEIVED) (1) [fill temp1] (2) With a crawl space? (3) On a concrete slab? (4) In some other way? (SPECIFY) @CELAR1Q [if INV7a@CELAR1Q eq <4>] @CELAR1SP [endif] [@CELAR1Q]<1>[goto INV7b_CELAR2Q] <2,3,D,R> <4> [etc ] [if INV7a@CELAR1Q eq <2>] [store <3> in OUT_CELLAR][goto INVck8a][endif] [if INV7a@CELAR1Q eq <3>][store <4> in OUT_CELLAR][goto INVck8a][endif] [@CELAR1SP] [allow 30] [if INV7a@CELAR1Q eq <4>][store <5> in OUT_CELLAR][goto INVck8a][endif] ______________________________________________________________________ >INV7b_CELAR2Q< [missing ] [if I_CELLAR eq <1> and INV7AVR_CELAR1V eq <2> and INV7A@CELAR1Q eq <1>] [store <2> in INV7B_CELAR2Q] [store <2> in OUT_CELLAR] [goto INVck8A] [endif] [if I_CELLAR eq <2> and INV7AVR_CELAR1V eq <2> and INV7A@CELAR1Q eq <1>] [store <1> in INV7B_CELAR2Q] [store <1> in OUT_CELLAR] [goto INVck8A] [endif] [# And, is that basement under ALL the house, or is it under PART of the house? [bold]"HOUSE" refers to living space only, i.e. basement doesn't need to be under garage/carport to count as "all"[n] (1) All (2) Part @ [@]<1,2,D,R> [store INV7b_CELAR2Q in OUT_CELLAR]] [goto INVck8a] ---------------------------------------------------------------------- >INV7c_ANCHOR< [missing ] [store <> in temp] [if ISTATUS eq <2> or ISTATUS eq <3>] [store in temp] [else] [store in temp] [endif] Is [fill temp] manufactured/mobile home anchored by tiedowns, bolts, or some other means? (1) Yes (2) No (D) Don't know - not sure @ [@] <1,2,D,R> [goto INV7d] ______________________________________________________________________ >INV7d< [missing ] Is [fill temp] manufactured/mobile home-- (READ CATEGORIES UNTIL A "YES" REPLY IS RECEIVED) (1) Set up on a permanent masonry foundation? (2) Resting on a concrete pad? (3) Up on blocks, but not on a concrete pad? (4) Set up in some other way? (SPECIFY) @MHSETQ [@MHSETQ] <1-3,D,R> [goto invck8a] <4> [specify] [goto invck8a] ______________________________________________________________________ >INVck8a< [if CDEPSTAT eq <1>] [if I_FLOORS ne <>] [goto INV8av_FLOORSV] [else] [goto INV8a_FLOORSQ] [endif] [else] [goto INV8a_FLOORSQ] [endif] ---------------------------------------------------------------------- >INV8av_FLOORSV< [missing ] [store <> in temp1][store <> in temp2][store <> in temp3] [store <> in temp4] [if I_FLOORS le <20>] [make temp1 from I_FLOORS] [else] [store <21 or more> in temp1] [endif] [if I_FLOORS eq <1>] [store in temp2] [else] [store in temp2] [endif] [if STYPE eq <3>] [store in temp3] [else] [store in temp3] [endif] [if (OUT_CELLAR eq <1> or OUT_CELLAR eq <2>) and (STYPE eq <1> or STYPE eq <2>)] [store <, including the basement and any finished attics> in temp4] [else] [store <, including finished attics> in temp4] [endif] Last time we recorded [fill temp1] [fill temp2] in this [fill temp3][fill temp4]. Is this information still correct? (If split level, should be greatest number of stories on top of each other) (1) Yes (2) No (D) Don't know-not sure @ [@]<1,R> [goto @a] <2,D>[goto INV8a_floorsq] [@a] [if INV8av_FLOORSV eq <1>] [store {int}I_FLOORS in OUT_FLOORS] [goto INVck8b] [endif] ---------------------------------------------------------------------- >INV8a_FLOORSQ< [store <> in temp] [store <> in temp2] [store <> in temp3] [if ISTATUS eq <3>] [store in temp] [else] [store in temp] [endif] [# [if STYPE eq <3>] [store in temp2] [else] [if STYPE eq <4> or STYPE eq <5>] [store in temp2] [else] [store in temp2] [endif][endif] [# [IF (OUT_CELLAR eq <1> or OUT_CELLAR eq <2>) AND (STYPE eq <1> or STYPE eq <2>)] [store <, including the basement and any finished attics> in temp3] [ELSE] [if OUT_CELLAR eq <1> or OUT_CELLAR eq <2>] [store <, including the basement> in temp3] [ENDIF] [if STYPE eq <1> or STYPE eq <2>] [store <, including any finished attics> in temp3] [#make temp3 from < > ] [endif] [endif] How many stories are there in [fill temp] [fill temp2][fill temp3]? (IF SPLIT LEVEL, COUNT GREATEST NUMBER OF STORIES ON TOP OF EACH OTHER) (1-20) (ENTER EXACT NUMBER IF 1 TO 20) (21) (21 or more) @ [@]<1-21> [if INV8a_FLOORSQ ge <1> and INV8a_FLOORSQ le <21>] [store {int}INV8a_FLOORSQ in OUT_FLOORS] [goto INVck8b] [endif] ______________________________________________________ >INVck8b< [if STYPE eq <3>] [if CDEPSTAT eq <1>] [if I_CLIMB eq <>] [goto INV8b_CLIMBQ] [else] [goto INV8bv_CLIMBV] [endif] [else] [goto INV8b_CLIMBQ] [endif] [else] [goto INV9aINTRO] [endif] --------------------------------------------------------------------- >INV8bv_CLIMBV< [missing ] [store <> in temp] [if I_CLIMB eq <1>] [store in temp] [else] [store in temp] [endif] [if I_CLIMB eq <0>] Last time we recorded your home's main entrance was on the same floor as the main entrance of the building. Is this information still correct? [else] [if I_CLIMB ge <1>] Last time we recorded [fill I_CLIMB] [fill temp] from the main entrance of the building to the main entrance of your apartment. Is this information still correct? [endif][endif] (1) Yes (2) No (D) Don't Know - not sure @ [@]<1> [goto @a] [goto @b] <2,D>[goto INV8b_CLIMBQ] [@a] [if INV8bv_CLIMBV eq <1>] [store I_CLIMB in OUT_CLIMB] [goto INV8c_ELEVQ] [endif] [@b] [if INV8bv_CLIMBV eq ] [store in OUT_CLIMB] [endif] [goto INV8c_ELEVQ] ---------------------------------------------------------------------- >INV8b_CLIMBQ< [missing ] [store <> in temp] [if ISTATUS eq <3>] [store in temp] [else] [store in temp] [endif] [r](H)[n] How many stories are there from the main entrance of the building to the main entrance of [fill temp] apartment? (0) Same floor (1-20) 1-20 (21) 21 or more @ [@] <0-21,D,R> [etc ] [if INV8b_CLIMBQ ge <0> and INV8b_CLIMBQ le <21>] [store INV8b_CLIMBQ in OUT_CLIMB] [goto INV8c_ELEVQ] [endif] ---------------------------------------------------------------------- >INV8c_ELEVQ< [missing ] [store <> in temp] [if ISTATUS eq <3>] [store in temp] [else] [store in temp] [endif] [r](H)[n] Is there a passenger elevator to [fill temp] floor? (COUNT FREIGHT ELEVATORS ALSO MEANT TO BE USED BY PASSENGERS) (1) Yes (2) No @ [@] <1> [goto INV8d_ELEVWK] <2,D,R>[goto @a] [etc ] [@a] [if INV8C_ELEVQ eq <2>] [store <1> in out_elev] [goto INV9aINTRO] [endif] _____________________________________________________________________ >INV8d_ELEVWK< Is at least one of those elevators in working order? (1) Yes, at least one working elevator (2) No, all elevators are not working @ [@] <1,2,D,R> [goto @a] [@a] [if INV8D_ELEVWK eq <1>] [store <2> in OUT_ELEV] [else] [if INV8D_ELEVWK eq <2>] [store <3> in OUT_ELEV] [else] [if INV8D_ELEVWK eq ] [store in OUT_ELEV] [else] [if INV8D_ELEVWK eq ] [store in OUT_ELEV] [endif][endif][endif][endif] [goto INV9aINTRO] _____________________________________________________________________ >INV9aINTRO< [store <> in temp] [if ISTATUS eq <1> or ISTATUS eq <2>] [store in temp] [else] [store in temp] [endif] The next questions are about the number and kinds of rooms in [fill temp] [fill HTYPEFILL]. PLEASE PRESS (P) TO CONTINUE THE INTERVIEW. @ [@]

============================================================================= >INV9a< [open inv9a] [missing ] [store <> in temp1] [store <> in temp2] [store in temp1] [if ISTATUS eq <1> or ISTATUS eq <2>] [store in temp2] [else] [store in temp2] [endif] [r](H)[n] [if out_floors ge <2> and (stype eq <1> or stype eq <2> or stype eq <4>)] [fill temp1] [fill temp2] [fill htypefill]: [endif] [if out_floors ge <2>] @BEDRMS 1. How many bedrooms are there? [else] @BEDRMS 1. How many bedrooms are there in [fill temp2] [fill htypefill]? [endif] @BATHS 2. Full bathrooms? @HALFB 3. Half bathrooms? @KITCH 4. Kitchens? @DINING 5. SEPARATE dining rooms? @LIVING 6. Living rooms? [@BEDRMS] <0-10,D,R> [etc ] [@BATHS] <0-10,D,R> [etc ] [@HALFB] <0-10,D,R> [etc ] [@KITCH] <0-5,D,R> [etc ] [@DINING] <0,D,R> [etc ] <1-5> [goto popw4] [@LIVING] <0-5,D,R> [goto INV9a_ck] [etc ] >Popw4< [window 9 popup] [# create a new non-input item] [window 9 border] [window 9 start row 12 column 9] [window 9 size 6 rows 72 columns] [window 9 include Pop] [# add this line] >pop< [if inv9a@dining ge <1> and inv9a@dining le <5>] "A separate dining room is one thats separated from other rooms by archways or walls extending at least six inches. Is this what you mean by a separate dining room? (Back up and correct, if necessary.)" PRESS ENTER TO CONTINUE THE INTERVIEW @ [endif] [@] [nodata] >popb< [goto inv9a@LIVING] ============================================================================= >INV9a_ck< [store <> in temp3] [store <> in temp4] [if inv9a@bedrms eq <0> and inv9a@kitch eq <0> and (inv9a@living eq <0> or inv9a@living eq <1>)] [store in temp3] [store in temp4] [goto inv9a1_studio] [else] [store <2> in inv9a1_studio] [goto inv9b] [endif] ============================================================================= >INV9a1_STUDIO< [fill temp3] [fill temp4] (1) Yes (2) No @ [@] <1> [goto @a] <2,D,R> [goto inv9b] [@a] [store <1> in inv9a@living] [goto inv9c] ============================================================================= >INV9b< [open inv9b] [missing ] Besides all of these rooms, are there any OTHER rooms in [fill temp] home? (1) Yes (2) No @morrom [if inv9b@morrom eq <1>] What are they? How many? (Enter in list below) (ENTER THE NUMBER OF EACH TYPE OF ROOM RESPONDENT MENTIONS. DO NOT COUNT THE SAME ROOM MORE THAN ONCE.) @FAMRM 1. Family rooms/Great rooms/TV rooms @RECRM 2. Recreation rooms @DENS 3. Dens/Libraries @LAUNDY 4. Laundry/Utility/Pantries @OTHFIN 5. Other FINISHED rooms @OTHRUN 6. Other UNfinished rooms (DO NOT COUNT GARAGES, HALLWAYS, CLOSETS, OR PORCHES AS ROOMS) [endif] [@morrom] <1,D,R> [#goto inv9b@FAMRM] <2> [goto @a] [@FAMRM] <0-5,D,R> [@RECRM] <0-5,D,R> [@DENS] <0-5,D,R> [@LAUNDY] <0-5,D,R> [@OTHFIN] <0-10,D,R> [@OTHRUN] <0-5,D,R> [goto INV9c] [@a] [store <0> in INV9b@famrm] [store <0> in INV9b@recrm] [store <0> in INV9b@dens] [store <0> in INV9b@laundy] [store <0> in INV9b@othfin] [store <0> in INV9b@othrun] [goto INV9c] ============================================================================= >INV9c< [missing ] [store <> in temp2] [store <> in temp1] [if out_cellar eq <1> or out_cellar eq <2>] [store in temp2] [endif] [if inv9a1_studio eq <1>] [store in temp1] [endif] I have listed - [fill temp1] [if INV9a@BEDRMS ne < > and INV9a@BEDRMS ne and INV9a@BEDRMS ne and INV9a@BEDRMS ne <0>] [fill INV9a@BEDRMS] Bedroom(s) [endif] [if INV9a@BATHS ne < > and INV9a@BATHS ne and INV9a@BATHS ne and INV9a@BATHS ne <0>] [fill INV9a@BATHS] Bathroom(s) [endif] [if INV9a@HALFB ne < > and INV9a@HALFB ne and INV9a@HALFB ne and INV9a@halfb ne <0>] [fill INV9a@HALFB] Half bathroom(s) [endif] [if INV9a@KITCH ne < > and INV9a@KITCH ne and INV9a@KITCH ne and INV9a@KITCH ne <0>] [fill INV9a@KITCH] Kitchen(s) [endif] [if INV9a@DINING ne < > and INV9a@DINING ne and INV9a@DINING ne and INV9a@DINING ne <0>] [fill INV9a@DINING] SEPARATE dining room(s) [endif] [if INV9a@LIVING ne < > and INV9a@LIVING ne and INV9a@LIVING ne and INV9a@LIVING ne <0>] [fill INV9a@LIVING] Living room(s) [endif] [if INV9b@FAMRM ne < > and INV9b@FAMRM ne and INV9b@FAMRM ne and INV9b@FAMRM ne <0>] [fill INV9b@FAMRM] Family room(s)/"Great" room(s)/TV room(s) [endif] [if INV9b@RECRM ne < > and INV9b@RECRM ne and INV9b@RECRM ne and INV9b@RECRM ne <0>] [fill INV9b@RECRM] Recreation room(s) [endif] [if INV9b@DENS ne < > and INV9b@DENS ne and INV9b@DENS ne and INV9b@DENS ne <0>] [fill INV9b@DENS] Den(s)/Libraries [endif] [if INV9b@LAUNDY ne < > and INV9b@LAUNDY ne and INV9b@LAUNDY ne and INV9b@LAUNDY ne <0>] [fill INV9b@LAUNDY] Laundry(s)/Utility room(s)/Pantries [endif] [if INV9b@OTHFIN ne < > and INV9b@OTHFIN ne and INV9b@OTHFIN ne and INV9b@OTHFIN ne <0>] [fill INV9b@OTHFIN] Other Finished room(s) [endif] [if INV9b@OTHRUN ne < > and INV9b@OTHRUN ne and INV9b@OTHRUN ne and INV9b@OTHRUN ne <0>] [fill INV9b@OTHRUN] Other Unfinished room(s) [endif] Are there any other rooms [fill temp2]? PROBE: Have I mis-recorded the number of any rooms? (1) Yes, FR Ask: "What are they?" "How many?" (CORRECT INV9a and/or INV9b) (2) No/No other rooms missed/mis-recorded @ [@]<1> [etc ] <2,D,R> [goto INVck9d] ---------------------------------------------------------------------- >INVck9d< [if inv9a1_studio eq <1>] [goto INV9e_EXCLUS] [endif] [if INV9a@BEDRMS eq <0> or (INV9a@BATHS eq <0> and INV9a@HALFB eq <0>) or INV9a@KITCH eq <0>] [goto INV9d] [else] [if INV9a@BEDRMS eq <> or (INV9a@BATHS eq <> and INV9a@HALFB eq <>) or INV9a@KITCH eq <>] [goto INV9d] [else] [goto INV9e_EXCLUS] [endif] [endif] ---------------------------------------------------------------------- >INV9d< [missing ] [store <> in temp][store <> in temp1][store <> in temp2] [store <> in temp3][store <> in temp4] [if ISTATUS eq <1> or ISTATUS eq <2>] [store in temp4] [else] [if ISTATUS eq <3>] [store in temp4] [endif][endif] [if INV9a@BEDRMS eq <0> or INV9a@BEDRMS eq <>] [store in temp] [else] [store <> in temp] [endif] [if INV9a@BATHS eq <0> or INV9a@BATHS eq <> and INV9a@halfB eq <0> or INV9a@halfB eq <>] [store in temp1] [else] [store <> in temp1] [endif] [if INV9a@KITCH eq <0> or INV9a@KITCH eq <>] [store in temp3] [else] [store <> in temp3] [endif] [bold](FOR EFFICIENCY OR STUDIO APARTMENTS, IF [U]BEDROOM[N] AND/OR [U]KITCHEN[N] IS LISTED BELOW, ENTER "1" WITHOUT ASKING THE QUESTION.)[N] I want to be sure that I have correctly recorded all of the rooms information. My notes state that there is [u]not[n] a: [fill temp] [fill temp1] [fill temp3] in [fill temp4] home. Is that correct? (1) Yes (2) No-CORRECT INV9a PROBE: Which do you have? Which do you not have? @ [@] <1,D,R> [goto INV9e_EXCLUS] <2> [etc ] ---------------------------------------------------------------------- >INV9e_EXCLUS< [missing ] [if status eq <2> or status eq <3>] [goto invck10] [endif] [r](H)[n] How many rooms, if any, are used EXCLUSIVELY for business space? (0) None (1-10) 1-10 @ [@]<0,D,R>[goto INV9g_BUSPER] <1-10> [goto INV9f_DIRAC] [etc ] ---------------------------------------------------------------------- >INV9f_DIRAC< [missing ] [if INV9e_EXCLUS eq <1>] Does that have [bold]direct[n] access to the outside without going through any other room? (1) Yes (2) No [else] How many of these have [bold]direct[n] access to the outside without going through any other room? (0) None (1-10) 1-10 [endif] @ [@] <0-10,D,R> [if INV9f_DIRAC eq <2> and INV9e_EXCLUS eq <1>] [store <0> in INV9f_DIRAC] [endif] [goto INV9g_BUSPER] ---------------------------------------------------------------------- >INV9g_BUSPER< [missing ] How many rooms, if any, are used both as business space and for personal use? (0) None (1-10) 1-10 @ [@] <0-10,D,R> [goto INVck10] ---------------------------------------------------------------------- >INVck10< [if CDEPSTAT eq <1> and REPLHH eq <2> and I_MH32 ne <>] [if STYPE eq <1> or STYPE eq <2> or (STYPE eq <3> and NUNITS eq <2>)] [goto INV10vr_MH32V] [endif] [endif] [if CDEPSTAT eq <1> and REPLHH eq <2> and I_MH32 ne <>] [if (STYPE eq <4> or STYPE eq <5>) and INV4B_TPARKA ne <2>] [goto INV10vr_MH32V] [endif] [endif] [if CDEPSTAT eq <2> or (CDEPSTAT eq <1> and I_MH32 eq <>)] [if STYPE eq <1> or STYPE eq <2> or (STYPE eq <3> and NUNITS eq <2>)] [goto INV10_MH32Q] [endif] [endif] [if CDEPSTAT eq <2> and (CDEPSTAT eq <1> and I_MH32 eq <>)] [if (STYPE eq <4> or STYPE eq <5>) and INV4B_TPARKA ne <2>] [goto INV10_MH32Q] [endif] [endif] [goto invck12] ---------------------------------------------------------------------- >INV10vr_MH32V< [missing ] [if stype eq <4> or stype eq <5>] [store in temp1] [else] [store <> in temp1] [endif] Last time we recorded there were [fill temp1] manufactured/mobile homes on this property that are used for living purposes by this household. Is this information correct? (1) Yes (2) No (D) Don't know - not sure @ [@] <1> [goto @a] <2,D,R> [goto @b] [@a] [store i_mh32 in out_mh32] [goto invck11] [@b] [store INV10vr_MH32V in out_mh32] [goto invck12] _____________________________________________________________________ >INV10_MH32Q< [missing ] [store in temp] [store <> in temp1] [store <> in temp2] [if STYPE eq <4> or STYPE eq <5>] [store in temp] [else] [store in temp] [endif] [if ISTATUS eq <3>] [store in temp1] [store in temp2] [else] [store in temp1] [store in temp2] [endif] Are there [fill temp] homes on [fill temp1] property that [fill temp2] used for living purposes by this household? (1) Yes (2) No @ [@]<1> [goto @a] <2,D,R> [goto @b] [@a] [if INV10_MH32Q eq <1>] [store INV10_MH32Q in OUT_MH32] [goto INVCK11] [endif] [@b] [store INV10_MH32Q in OUT_MH32] [goto INVck12] _____________________________________________________________________ >INVck11< [if CDEPSTAT eq <1> and REPLHH eq <2> and I_MH41 ne <> or I_MH42 ne <> or I_MH43 ne <> or I_MH44 ne <> or I_MH45 ne <>] [goto INV11v_IMHYRVR] [else] [goto INV11] [endif] _____________________________________________________________________ >INV11v_IMHYRVR< [missing ] Last time we recorded that the model year of each of the manufactured/mobile homes, excluding this one, was [fill I_MH41] [fill I_MH42] [fill I_MH43] [fill I_MH44] [fill I_MH45] Is this information still correct? (1) Yes (2) No (D) Don't know/ not sure @ [@] <2,D> [goto INV11] <1,R> [goto @a] [@a] [store I_MH41 in OUT_MH41] [store I_MH42 in OUT_MH42] [store I_MH43 in OUT_MH43] [store I_MH44 in OUT_MH44] [store I_MH45 in OUT_MH45] [goto INVck12] _____________________________________________________________________ >INV11< [missing ][store <> in temp] [if (STYPE eq <4> or STYPE eq <5>) and (ISTATUS eq <1> or ISTATUS eq <2>)] [store in temp] [else] [if (STYPE eq <4> or STYPE eq <5>) and ISTATUS eq <3>] [store in temp] [endif][endif] What is the model year of each of the manufactured/mobile homes [fill temp] (EXCLUDING MANUFACTURED/MOBILE HOME(S) ALREADY LISTED ON THE LISTING SHEET) (1) All manufactured/mobile homes already listed (1939-2002) Use 1939 for anything earlier Enter (N) for no more @MH41Q @MH42Q @MH43Q @MH44Q @MH45Q [@MH41Q]<1939-2002,1,D,R> [store @mh41q in out_mh41] [@MH42Q]<1939-2002,D,R> [goto @a] [goto @e] [@MH43Q]<1939-2002,D,R> [goto @b] [goto @f] [@MH44Q]<1939-2002,D,R> [goto @c] [goto @g] [@MH45Q]<1939-2002,D,R> [goto @d] [goto @h] [@a] [store @MH42Q in OUT_MH42] [@b] [store @MH43Q in OUT_MH43] [@c] [store @MH44Q in OUT_MH44] [@d] [store @MH45Q in OUT_MH45] [@e] [store in OUT_MH42][goto INVCK12] [@f] [store in OUT_MH43][goto INVCK12] [@g] [store in OUT_MH44][goto INVCK12] [@h] [store in OUT_MH45][goto INVCK12] ______________________________________________________________________ >INVck12< [if ISTATUS eq <1> and (TENURE eq <2> or TENURE eq <3>)] [goto INVck13] [else] [goto INV12_DRSHOP] [endif] ______________________________________________________________________ >INV12_DRSHOP< [missing ] [r](H)[n] Is there a medical or dental office or any commercial establishment on the property? (1) Yes (2) No @ [@]<1,2,D,R> [etc ] [store INV12_DRSHOP in OUT_DRSHOPS] [goto INVck13] ______________________________________________________________________ >INVck13< [if INCSAM eq <1> or REPLHU eq <1> or I_ISTATUS eq <4> or I_UNITSF lt <99> or I_UNITSF gt <99998>] [goto INV13_UNITSFQ] [else] [store I_unitsf in unitsf] [goto INV14a_USFCHG] [endif] ______________________________________________________________________ >INV13_UNITSFQ< [missing ] [store <> in temp][store <> in temp2][store <> in temp3] [if OUT_CELLAR eq <1> or OUT_CELLAR eq <2>] [store in temp] [else] [store in temp] [endif] [if ISTATUS eq <1> or ISTATUS eq <2>] [store in temp2] [else] [store in temp2] [endif] [if INV9f_DIRAC@ ge <10>] [store < and business space that has direct public access to outside.>in temp3] [else] [store <.> in temp3] [endif] Thinking about all the rooms you mentioned earlier, as well as [fill temp] and entry ways in [fill temp2] [fill HTYPEFILL], about how many square feet is that? (Include: Finished attics. Exclude: Unfinished attics, carports, and attached garages. Also exclude porches that are not protected from the elements [fill temp3] (1-99997) 1-99,997 square feet (99998) 99,998 square feet or more Square Feet @ [@]<1-99998,D,R>[goto @a] [@a] [store INV13_unitsfq in unitsf] [goto INVck15] --------------------------------------------------------------------- >INV14a_USFCHG< [missing ] [store <> in temp3] [store I_INTMON in T_INTMON] [store I_INTYR in T_INTYR] [store T_INTMON in index] [make temp3 from MONTHTAB(index) < > T_INTYR] Since [fill temp3], has there been a change in the amount of living space in the [fill HTYPEFILL] because of putting on an addition, finishing an attic, or converting a garage to living space? [bold](DO NOT COUNT FINISHING A BASEMENT)[n] (1) Yes (2) No @ [@]<1>[goto INV14b] <2,D,R>[goto INVck15] [etc ] ---------------------------------------------------------------------- >INV14b< [missing ][open INV14b] How many square feet of living space were added or lost? [r](H)[n] (If dimensions given, record dimensions.) (99) = 99 square feet or less (100-99997) = 100-99,997 square feet (99998) = 99,998 square feet or more ADDITION @SQAD Square feet OR @FT1AD X @FT2AD Dimensions LOSS @SQLS Square feet OR @FT1LS X @FT2LS Dimensions [@SQAD]<99-99998,D,R>[optional][etc ] [@FT1AD]<1-998,D,R>[optional] [etc ] [@FT2AD]<1-998,D,R>[optional] [etc ] [@SQLS]<99-99998,D,R>[optional][etc ] [@FT1LS]<1-998,D,R>[optional] [etc ] [@FT2LS]<1-998,D,R>[optional] [etc ] [goto INVck15] _____________________________________________________________________ >INVck15< [if CDEPSTAT eq <1> and I_PORCH eq <1>] [goto INV15v_PORCHV] [else] [goto INV15_PORCHQ] [endif] _____________________________________________________________________ >INV15v_PORCHV< [missing ] [r](H)[n] Last time we recorded that the [fill HTYPEFILL] had a porch, deck, balcony, or patio? Is this information still correct? (Measuring at least 4 feet by 4 feet) (1) Yes (2) No (D) Don't know - not sure @ [@] <1,2,D,R> [etc ] [store INV15v_PORCHV in OUT_PORCH] [goto INV16_GARAGE] --------------------------------------------------------------------- >INV15_PORCHQ< [missing ] [store <> in temp] [if ISTATUS eq <1> or ISTATUS eq <2>] [store in temp] [else] [store in temp] [endif] [r](H)[n] Does [fill temp] [fill HTYPEFILL] have a porch, deck, balcony, or patio? (Measuring at least 4 feet by 4 feet) (1) Yes (2) No @ [@]<1,2,D,R> [etc ] [store INV15_PORCHQ in OUT_PORCH] [goto INV16_GARAGE] ______________________________________________________________________ >INV16_GARAGE< [missing ] [store <> in temp] [store <> in temp1] [if ISTATUS eq <1> or ISTATUS eq <2>] [store in temp] [endif] [if ISTATUS eq <3>] [store in temp] [endif] [if NUNIT2 eq <1>] [store <, either attached or detached,> in temp1] [else] [store <> in temp1] [endif] [r](H)[n] Is a garage or carport[fill temp1] included with [fill temp] [fill HTYPEFILL]? (1) Yes (2) No @ [@]<1>[goto INVck18] <2,D,R>[goto INV17_INCP] [etc ] ______________________________________________________________________ >INV17_INCP< [missing ] [store <> in temp][store <> in temp2] [if STYPE eq <1> or STYPE eq <4>] [store in temp] [store in temp2] [else] [store in temp] [store in temp2] [endif] [r](H)[n] Is a [fill temp] [fill temp2] (1) Yes (2) No @ [@]<1,2,D,R> [goto INVck18] [etc ] _______________________________________________________________________ >INVck18< [if ISTATUS eq <1> goto INV18a_TRUCKS] [if ISTATUS eq <2> or ISTATUS eq <3> goto INVck19] ______________________________________________________________________ >INV18a_TRUCKS< [missing ] [r](H)[n] How many vans or trucks of one-ton capacity or less are kept at home for use by members of your household? (0) None (1-5) 1-4, 5 or more @ [@]<0-5,D,R>[goto INV18b_CARS] [etc ] _____________________________________________________________________ >INV18b_CARS< [missing ] [r](H)[n] How many automobiles, excluding vans or trucks, are kept at home for use by members of your household? (0) None (1-5) 1-4, 5 or more @ [@]<0-5,D,R>[goto INVck19] [etc ] ______________________________________________________________________ >INVck19< [if STYPE eq <3> or STYPE eq <5> or stype eq or stype eq or stype eq <>] [goto INV_END] [endif] [# [if STYPE eq <1> or STYPE eq <2> or STYPE eq <4>] [if ISTATUS eq <2> or ISTATUS eq <3>] [goto INV19a] [else] [if TENURE eq <1> and (OUT_CONDO eq <1> or OUT_CONDO eq <2>)] [#and OUT_CONDO onpath] [goto INV_END] [else] [if CDEPSTAT eq <1> and I_LTSQFTQ ne <>] [goto INV19avr] [else] [if CDEPSTAT eq <1> and I_LTFT1Q ne <> and I_LTFT2Q ne <>] [goto INV19avr] [else] [if CDEPSTAT eq <1> and I_LTACQ ne <>] [goto INV19avr] [else] [goto INV19a] [endif][endif][endif] [endif][endif] [endif] [if cdepstat eq <2>] [goto INV19a] [endif] ---------------------------------------------------------------------- >INV19avr< [missing ] [if I_LTSQFTQ ne <>] Last time we recorded that your lot was [fill I_LTSQFTQ] square feet Is this information still correct? [else] [if I_LTFT1Q ne <> or I_LTFT2Q ne <>] Last time we recorded that your lot was [fill I_LTFT1Q] feet by [fill I_LTFT2Q] feet. Is this information still correct? [else] [if I_LTACQ ne <>] Last time we recorded that your lot was [FILL I_LTACQ] whole acres. Is this information still correct? [endif][endif][endif] (1) Yes (2) No (D) Don't know - not sure @ [@] <1,R> [goto @a] <2,D> [goto INV19a] [@a] [if INV19avr eq <1> and I_ltsqftq ne <>] [store I_ltsqftq in out_ltsqftq] [else] [if INV19avr eq <1> and i_ltft1q ne <> and I_ltft2q ne <>] [store i_ltft1q in out_ltft1q] [store i_ltft2q in out_ltft2q] [else] [if INV19avr eq <1> and i_ltacq ne <>] [store i_ltacq in out_ltacq] [else] [if INV19avr eq ] [store in out_ltsqftq] [store in out_ltft1q] [store in out_ltft2q] [store in out_ltacq] [endif][endif][endif][endif] [goto INV_end] ---------------------------------------------------------------------- >INV19a< [missing ] [open INV19a] [store <> in temp] [if STYPE eq <4>] [store in temp] [else] [store in temp] [endif] [r](H)[n] About how large is the [fill temp]? ***INCLUDE ALL CONNECTING LAND THAT IS OWNED OR THAT IS RENTED WITH THE HOME*** ***IF OVER 1 ACRE, DROP ANY FRACTIONS, DON'T ROUND UP*** ***IF UNDER ONE ACRE, CONVERT TO APPROXIMATE SQUARE FEET*** (USE 999998 IF 999,998 SQUARE FEET OR MORE) One eighth acre = 5500 sq.ft. Half acre = 22000 sq.ft. Quarter acre = 11000 sq.ft. Three quarters acre = 33000 sq.ft. One third acre = 14000 sq.ft. One acre = 44000 sq.ft. @LTSQFTQ Square Feet OR @LTFT1Q Feet by @LTFT2Q OR @LTACQ Whole Acres [@LTSQFTQ]<200-999998>[optional] [goto @a] [etc ] [missing][goto INV19b_LTAC1P] [@a] [store inv19a@ltsqftq in out_ltsqftq] [goto INV_END] [@LTFT1Q] <10-999998>[optional][goto @b] [etc ] [@b] [store inv19a@ltft1q in out_ltft1q] [goto INV19a@LTFT2Q] [@LTFT2Q] <10-999998>[optional] [goto @c] [etc ] [@c] [store inv19a@ltft2q in out_ltft2q] [goto INV_END] [@LTACQ]<1-999998>[optional] [goto @d] [etc ] [@d] [store inv19a@ltacq in out_ltacq] [goto INV_END] ______________________________________________________________________ >INV19b_LTAC1P< [missing ] [store <> in temp] [if STYPE eq <4>] [store in temp] [else] [store in temp] [endif] Would you say that the [fill temp] is more than 1 acre or less than 1 acre? (1) More (2) Less (D) Don't know-not sure @ [@]<1>[goto INV19c] <2>[goto INV19e] [goto INV19d_LTAC10P] [goto INV_END] _____________________________________________________________________ >INV19c< [missing ] About how many acres? ***ENTER NUMBER OF WHOLE ACRES*** (DROP ANY FRACTIONS- DON'T ROUND UP) (1-999997) 1-999,997 whole acres (999998) 999,998 acres or more @ACRES [@ACRES]<1-999998>[goto INV_END] [goto INV19d_LTAC10P] ______________________________________________________________________ >INV19d_LTAC10P< [missing ] Is it more than 10 acres? (1) Yes (2) No @ [@]<1-2,D,R>[goto INV_END] ______________________________________________________________________ >INV19e< [missing ] Could you give me an estimate of the dimensions of the lot? ***INCLUDE ALL CONNECTING LAND THAT IS OWNED OR THAT IS RENTED WITH THE HOME*** One eighth acre = 5500 sq.ft. Half acre = 22000 sq.ft. Quarter acre = 11000 sq.ft. Three quarters acre = 33000 sq.ft. One third acre = 14000 sq.ft. One acre = 44000 sq.ft. (Use 999998 if 999,998 Square Feet or more) @LTSQFTP Square feet or (200-999998) @LTFT1P Feet by @LTFT2P (10-999998) [@LTSQFTP]<200-999998,D,R>[optional][goto INV_END] [@LTFT1P]<10-999998>[optional] [@LTFT2P]<10-999998>[goto INV_END] ______________________________________________________________________ [#REFERENCE SCREENS _______________________________________________________________________ >INV4aH< [reference] "Site" does not necessarily mean a manufactured/mobile home park site, it means location. The manufactured/mobile home does not have to have been occupied, it only needs to have been set up for occupancy. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >INV4bH< [reference] Manufactured/Mobile homes or manufactured/mobile home sites gathered close together are considered to be in a "group". This may be a manufactured/mobile home park or it may be a number of manufactured/mobile homes grouped together on adjacent, individually owned lots but not in a manufactured/mobile home park. Include manufactured/mobile homes on the property that are used for overflow sleeping or storage, but are not separate housing units. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >INV4cH< [reference] Enter the exact number of manufactured/mobile homes if there are 2 to 20 manufactured/mobile homes. Count manufactured/mobile homes on the property that are used for overflow sleeping or storage, but are not separate housing units. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >INV5H< [reference] With manufactured/mobile homes, next year's model may be out so it is possible to have a manufactured/mobile home with a model year that is later than the current year (or later than the year the occupant moved in). See your manual for help. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ---------------------------------------------------------------------- >INV6a1H< [reference] A "Condominium" is a type of ownership in which the apartments or houses in a development are individually owned, but the common areas, such as lobbies, halls, grounds, etc are jointly owned. The owner has a deed, and, very likely, a mortgage on an individual unit. The owner also holds a common joint ownership in all common areas and hallways, entrances, elevators, etc. Condominium ownership may cover single family houses, rowhouses, townhouses, etc., as well as apartments and manufactured/mobile homes. "Time-shared" condominiums are also included in this category. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >INV6a2H< [reference] A "Cooperative" is property that is owned by a corporation made up of resident shareholders. Co-op owners can live in their unit or rent it out. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >INV7aH< [reference] Code 1 Basement A basement is an enclosed space, at least partially underground, in which persons can walk upright under all or part of the building. Consider a floor to be a basement if at least half of the area is below ground level, either from floor to ceiling or from back to front of the area. The basement can be finished and intended for living by the household, or the basement can be unfinished and may be only four walls containing the furnace or other equuipment. Code 2 Crawl Space A house is built with a crawl space if there is a space between the ground and the first floor of the house, but it is not high enough for a person to walk upright. It may be enclosed or exposed to the elements. Code 3 Concrete Slab A house is built on a concrete slab if it is built on cement that has been poured on the ground. Code 4 Some Other Way Enter this code for a house built on stilts or pilings (for example, beach houses), and any other situation not covered above. Describe the situation in the space provided. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >INV8bH< [reference] Stories Count the number of stories (floors) from the main residential entrance of the building to the main entrance of the unit. At buildings where the entry level is just a foyer or reception area (you must either go up or down a level to get to the apartments), include the entrance level in the count of floors. Same Floor Enter code 0(Same Floor) if the main entrance of the sample unit is on the same floor as the main entrance which residents use to enter the building. Do not count the stairs leading to the main entrance of the building. [bold]PRESS ENTER TO CONTINE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >INV8cH< [reference] [u]Do Not[n] include an elevator used [u]only[n] for freight. Chairlifts do not count as elevators. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] _____________________________________________________________________ >INV9aBEDRMSH< [reference] HOW ROOM IS USED DETERMINES IF IT COUNTS AS BEDROOM [u]Include Rooms[n]: * Reserved [u]only[n] for sleeping, even if used infrequently (i.e, guest room used [u]only[n] by visitors). * Used [u]mainly[n] for sleeping. * Meant to be bedrooms even though may not be used for that purpose (i.e, room built as a bedroom but now used [n]mainly[n] for storage, watching TV, sewing, etc.) * Probe: How many bedrooms would your residence be advertised as having if it were for sale or rent? [u]Exclude Rooms:[n] * Built and used [u]only[n] for other purposes (i.e, storage, watching TV, sewing, computer, etc.) * Built and used [u]mainly[n] for other purposes (i.e, room with a sleep sofa but used [u]mainly[n] for watching TV, sewing, computer,etc.) [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >INV9aBATHSH< [reference] [u]Full Bathroom must have:[n] * hot/cold piped water * flush toilet * sink * tub or shower [u]and[n] * be in the same room or built to be used together (i.e, a master bath suite with the sink in a dressing room or the toilet in a separate closed off area would still count as a full bath.) [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >INV9aHALFBH< [reference] Half Bathroom must have at least a flush toilet [u]or[n] a tub or shower. It does not have all the facilities of a complete bathroom. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >INV9aKITCHH< [reference] Accept the respondent's answer for kitchens. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] _________________________________________________________________________ >INV9aDININGH< [reference] A SEPARATE dining room must be in an area separated from an adjoining room by archways or walls that- * are built in * extend at least 6 inches from an intersecting wall. Note that if these 2 criteria are met, the wall does [u]not[n] have to run floor to ceiling (i.e, half walls or bookcases would count if built in.) [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >INV9eH< [reference] A room used for business space is a room, or area within a room, regularly used for earning income, i.e, for a business owner, contract worker, self-employed person, commercial use (such as paid day care, making crafts for sale, catering, investment brokerage, etc.) or regularly scheduled work for a regular job. Exclude office areas set up for personal household use. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >INV12H< [reference] The purpose of the question is to identify housing units located on properties that are so substantially different because of commercial activity that many financial characteristics of these housing units should not be compared with those of other residential properties. See manual for other instructions [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >INV14aH< [reference] Living space is an area composed of one or more rooms that is protected from the elements and heated, if necessary. The addition, attic, or garage may be used as a living room, bedroom, recreational room, etc. Also, include enclosing an open porch and using it as living space. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >INV14bH< [reference] For units which are the result of merging (that is, combining) apartments, or that have had an addition built on the original unit, enter the appropriate number of square gained through this process. If the respondent is not able to give you the square footage but is able to give you the length and width of the additional (or lost) living space, enter the dimensions in the spaces provided. If more than two dimensions are given, for example, a triangle room, enter the longest and the shortest dimensions. If more than one set of dimensions is given, enter the largest set. Do not convert dimensions to square footage. If the unit has lost living space since the previous interview, for example, an area is destroyed by fire or part of the original unit is now a separate living quarters, enter the (approximate) amount of space that was lost in the "loss" space. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >INV15H< [reference] The porch, deck, balcony, or patio must be attached to the unit--not simply to the building. Exclude porches, etc., that are not attached to the sample unit or are free standing. Porches may be enclosed or open. The porch, deck, balcony, or patio must measure at least four feet by four feet. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >INV16H< [reference] The garage or carport must be on the same property but [u]does not[n] have to be attached to the house. The space can be assigned or available on a first-come, first-park basis. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >INV17H< [reference] Offstreet parking is considered a driveway or parking lot privilege. If the unit is rented for cash, enter "1" (yes) if there is offstreet parking which is included in the rent. If the unit is occupied without payment of cash rent, enter "1" (yes) if there is offstreet parking which is included with the home. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >INV18aH< [reference] Count the number of sports utility vehicles, pickups and small panel trucks of one-ton capacity or less and Volkswagen buses, minivans and similar vans which are owned (or being bought) or regularly used by one or more members of the household and ordinarily kept at home. Include company trucks or vans if used regularly [u]and[n] kept at home. Count only trucks and vans that are used for personal activities of household members even if they are also used for business purposes. Do [u]not[n] include trucks or vans owned (or being bought) by a household member, but used [u]solely[n] for business purposes. Include vans or trucks of one-ton capacity or less that are rented or leased for one month or more. If in doubt as to whether to classify a vehicle as a passenger car or truck, ask whether it is licensed as a passenger car or truck, and mark these items accordingly. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >INV18bH< [reference] Count passenger cars, including station wagons, which are owned (or being bought) or regularly used by one or more household members and ordinarily kept at home. Include company cars if used regularly for non-business purposes [u]and[n] kept at home. Also include taxicabs [u]owned[n] by household members and kept at the sample unit Include cars that are rented or leased for 1 month or more. Count cars of all [u]household members[n] including lodgers or other nonrelatives living in the unit. Include cars used by household members who are temporarily away from home, such as a student at college. If in doubt as to whether to classify a vehicle as a passenger car or truck, ask whether it is licensed as a passenger car or truck, and mark these items accordingly. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >INV19aH< [reference] If the respondent states that the lot is divided by a road, determine if the lots are on separate deeds. If the property separated by the road is on the same deed as the lot on which the sample using is located, it should be included in the lot size. The response to this item can fall into one of four categories: square feet, dimensions (feet by feet), whole acres, and a "don't know" (blind) category. Enter the category in which the answer will be given first. The appropriate screen will then appear to enter the response. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] _____________________________________________________________________ >INV_END< [store <1> in INVEN_CMP] [stop timer] [no erase] [record timer in inv_tme] _____________________________________________________________________ Revised 9-22-2000 Date: 11/20/96 Survey: AMERICAN HOUSING SURVEY - National 2001 Module: EQP (Equipment) Programmers: Judy Hodges Tazreen Chowdhury ---------------------------------------------------------------------- ---------------------------------------------------------------------- ** TEMPORARY VARIABLES ** ---------------------------------------------------------------------- >OUT_DFRPL< [allow 2] >OUT_OAIRSYS< [allow 2] >OUT_DFRPLI< [allow 2] >OUT_OAFUEL< [allow 2] >OUT_AIR< [allow 2] >OUT_NUMAIR< [allow 2] >OUT_FPLWK< [allow 2] >OUT_FRPLI< [allow 2] >OUT_FRPL< [allow 2] >OUT_SFRPLI< [allow 2] >OUT_SFRPI< [allow 2] >OUT_SFRPL< [allow 2] >OUT_PFRPLI< [allow 2] >OUT_PFRPL< [allow 2] >OUT_FFRPLI< [allow 2] >OUT_FFRPL< [allow 2] >OUT_NONE< [allow 2] >OUT_NOMORE< [allow 2] >OUT_SPORTH< [allow 2] >OUT_FPORTH< [allow 2] >OUT_SSTOVE< [allow 2] >OUT_SELECT< [allow 2] >OUT_SFLOT< [allow 2] >OUT_SFLIN< [allow 2] >OUT_SCOOKST<[allow 2] >OUT_SPLF< [allow 2] >OUT_SAFUR< [allow 2] >OUT_SHPMP< [allow 2] >OUT_SSTEAM< [allow 2] >OUT_SHOTH< [allow 2] >OUT_PSTOVE< [allow 2] >OUT_PELECT< [allow 2] >OUT_PCOOKST<[allow 2] >OUT_PPLF< [allow 2] >OUT_PAFUR< [allow 2] >OUT_PHPMP< [allow 2] >OUT_PSTEAM< [allow 2] >OUT_PHOTH< [allow 2] >OUT_FSTOVE< [allow 2] >OUT_FELECT< [allow 2] >OUT_FFLOT< [allow 2] >OUT_FFLIN< [allow 2] >OUT_FCOOKST<[allow 2] >OUT_FPLF< [allow 2] >OUT_FAFUR< [allow 2] >OUT_FHPMP< [allow 2] >OUT_FSTEAM< [allow 2] >OUT_FHOTH< [allow 2] >OUT_PFLOT< [allow 2] >EFLAG< [allow int 1] >EQPRAY< [allow 80 for 3] [#>I_HEQUIPV< [allow 2] >OUT_WELL< [allow 1] ----------------------------------------------------------------------- >EQP_FLAG< [allow 1] >EQP8b_FLAG< [allow int 1] >temp16< [allow 70] ---------------------------------------------------------------------- >EQP_BEGIN< [section EQP] [start timer][no erase] [store <0> in EQP_FLAG] [store <0> in EQP8b_FLAG] ---------------------------------------------------------------------- >win9< [window 9 size 6 rows 70 columns] [window 9 start row 10 column 5] [window 9 popup] [window 9 border] [window 9 include EQP16aPOP] [anychar all] [missing ] ---------------------------------------------------------------------- >PRE_EQP1< [# may need flag here for DEP INTERVIEWING --------------------------------------------------------------------- >EQP_INTRO< Turning now to questions about appliances and other household equipment. [bold]PRESS (P) TO CONTINUE INTERVIEW @[normal] [@]

---------------------------------------------------------------------- >EQP_CK1a< [if CDEPSTAT eq <2>] [goto eqp1a_cookq] [else] [if CDEPSTAT eq <1>] [if I_COOK eq <1>] [goto EQP1avr_COOKV] [else] [goto eqp1a_cookq] [endif][endif][endif] ---------------------------------------------------------------------- >EQP1avr_COOKV< [missing ] [r](H)[n] (Last time) we recorded that your [fill HTYPEFILL] had some type of cooking stove, or a range with an oven-one that is in working order. Is this information still correct? (1) Yes (2) No (D) Don't know - not sure @ [@]<1> <2,D,R> [etc ] [if EQP1avr_COOKV eq <1>] [store I_COOK in OUT_COOK] [goto EQPCK2] [else] [store EQP1avr_COOKV in OUT_COOK] [goto EQPCK1b] [endif] ---------------------------------------------------------------------- >EQP1a_COOKQ< [missing ] [store <> in temp] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif][endif] [r](H)[n] Does [fill temp] [fill HTYPEFILL] have some type of cooking stove, or a range with an oven--one that is in working order? (1) Yes (2) No @ [@]<1> <2,D,R> [etc ] [if EQP1a_COOKQ eq <1>] [store eqp1a_cookq in OUT_COOK] [goto EQPCK2][endif] [if EQP1a_COOKQ eq or EQP1a_COOKQ eq <2> or EQP1a_COOKQ eq ]] [store eqp1a_cookq in OUT_COOK] [goto EQPCK1b][endif] ---------------------------------------------------------------------- >EQPCK1b< [if CDEPSTAT eq <2>] [goto EQP1b_BURNERQ] [else] [if CDEPSTAT eq <1>] [if I_BURNER eq <1>] [goto EQP1bv_BURNERV] [else] [goto EQP1b_BURNERQ] [endif] [endif][endif] ---------------------------------------------------------------------- >EQP1bv_BURNERV< [missing ] (Last time) we recorded that your [fill HTYPEFILL] had built-in cooking burners that are in working order. Is this information still correct? (1) Yes (2) No (D) Don't know - not sure @ [@] <1> <2,D,R> [If EQP1bv_BURNERV eq <1>] [store I_BURNER in OUT_BURNER] [goto EQPCK2] [else] [store EQP1bv_BURNERV in OUT_BURNER] [goto EQPCK1c] [endif] ----------------------------------------------------------------------- >EQP1b_BURNERQ< [missing ] [store <> in temp] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif][endif] Does [fill temp] [fill HTYPEFILL] have any built-in cooking burners that are in working order? (1) Yes (2) No @ [@] <1-2,D,R> [if EQP1b_BURNERQ eq <1>] [store EQP1b_BURNERQ in OUT_BURNER] [goto EQPCK2] [else] [if EQP1b_BURNERQ eq <2> or EQP1b_BURNERQ eq or EQP1b_BURNERQ eq ] [store EQP1b_BURNERQ in OUT_BURNER] [goto EQPCK1c] [endif] [endif] ---------------------------------------------------------------------- >EQPCK1c< [if CDEPSTAT eq <2>] [goto EQP1c_OVENQ] [else] [if CDEPSTAT eq <1> and REPLHH eq <2>] [if I_OVEN eq <1>] [goto EQP1cvr_OVENV] [else] [goto EQP1c_OVENQ] [endif] [endif][endif] ---------------------------------------------------------------------------- >EQP1cvr_OVENV< [missing ] (Last time) we recorded that your [fill HTYPEFILL] had a microwave oven that is in working order. Is this information still correct? (1) Yes (2) No (D) Don't know - not sure @ [@] <1,2,D,R> [If EQP1cvr_OVENV eq <1>] [store I_OVEN in OUT_OVEN] [goto EQPCK2] [else] [store EQP1cvr_OVENV in OUT_OVEN] [goto EQPCK2] [endif] ------------------------------------------------------------------------------ >EQP1c_OVENQ< [missing ] [store <> in temp] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif][endif] Does [fill temp] [fill HTYPEFILL] have a microwave oven that is in working order? (1) Yes (2) No @ [@]<1,2,D,R> [store EQP1c_OVENQ in OUT_OVEN] [goto EQPCK2] ---------------------------------------------------------------------- >EQPCK2< [if OUT_COOK ne <1> and OUT_BURNER ne <1> and OUT_OVEN ne <1>] [goto EQPCK3] [endif] [if CDEPSTAT eq <2>] [goto EQP2_CFUELQ] [endif] [if CDEPSTAT eq <1>] [if I_CFUEL ge <1> and I_CFUEL le <5>] [goto EQP2vr_CFUELV] [else] [goto EQP2_CFUELQ] [endif] [endif] ---------------------------------------------------------------------- >EQP2vr_CFUELV< [missing ] [store <> in temp] [if I_CFUEL eq <1>] [store in temp] [else] [if I_CFUEL eq <2>] [store in temp] [else] [if I_CFUEL eq <3>] [store in temp] [else] [if I_CFUEL eq <4>] [store in temp] [else] [if I_CFUEL eq <5>] [store in temp] [endif][endif][endif][endif][endif] (Last time) we recorded that your [fill HTYPEFILL] used [fill temp] most for cooking. Is this information still correct? (1) Yes (2) No (D) Don't know - not sure @ [@] <1,R> [goto @a] <2,D> [goto EQP2_cfuelq] [@a] [if eqp2vr_cfuelv eq <1>] [store i_cfuel in out_cfuel] [endif] [if eqp2vr_cfuelv eq ] [store in out_cfuel] [endif] [goto eqpck3] --------------------------------------------------------------------------- >EQP2_CFUELQ< [missing ] [r](H)[n] What fuel is used MOST for cooking--electricity, gas, or something else? (1) Electricity (2) Gas, LP Gas (liquid propane (LP) same as bottled gas) Something else: What is used? (3) Kerosene or other liquid fuel (4) Coal or coke (5) Wood (6) Other; (SPECIFY) (7) No fuel used @ [@]<1-5,7,D,R> [goto @a] <6> [specify] [etc ] [@a] [store EQP2_CFUELQ in OUT_CFUEL] [goto EQPCK3] ---------------------------------------------------------------------- >EQPCK3< [if CDEPSTAT eq <2>] [goto EQP3_REFRQ] [else] [if CDEPSTAT eq <1>] [if I_REFR eq <1>] [goto EQP3vr_REFRV] [else] [goto EQP3_REFRQ] [endif] [endif][endif] ---------------------------------------------------------------------- >EQP3vr_REFRV< [missing ] [r](H)[n] (Last time) we recorded that your [fill HTYPEFILL] had a refrigerator that is in working order. Is this information still correct? (Exclude ice boxes.) (1) Yes (2) No (D) Don't know - not sure @ [@]<1,R,2,D> [etc ] [if EQP3vr_REFRV eq <1>] [store I_REFR in OUT_REFR] [goto EQPCK4] [else] [store EQP3VR_REFRV in OUT_REFR] [endif] [goto EQPCK4] ------------------------------------------------------------------------------- >EQP3_REFRQ< [missing ] [store <> in temp] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif][endif] [r](H)[n] Does [fill temp] [fill HTYPEFILL] have a refrigerator that is in working order? (Exclude ice boxes.) (1) Yes (2) No @ [@]<1,2,D,R> [etc ] [store EQP3_REFRQ in OUT_REFR] [goto EQPCK4] ---------------------------------------------------------------------- >EQPCK4< [if CDEPSTAT eq <1> and I_SINK eq <1>] [goto EQP4vr_SINKV] [endif] [goto EQP4_SINKQ] ---------------------------------------------------------------------- >EQP4vr_SINKV< [missing ] [r](H)[n] (Last time) we recorded that your [fill HTYPEFILL] had a kitchen sink. Is this information still correct? (1) Yes (2) No (D) Don't know - not sure @ [@] <1,2,D,R> [goto @a] [etc ] [@a] [if eqp4vr_sinkv eq <1>] [store I_SINK in out_sink] [goto EQPCK5] [else] [store eqp4vr_sinkv in out_sink] [goto eqpck5] [endif] ---------------------------------------------------------------------- >EQP4_SINKQ< [missing ] [store <> in temp] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif][endif] Does [fill temp] [fill HTYPEFILL] have a kitchen sink? (1) Yes (2) No @ [@] <1,2,D,R> [etc ] [store EQP4_SINKQ in OUT_SINK] [goto EQPCK5] ---------------------------------------------------------------------- >EQPCK5< [if STYPE eq <3> or STYPE eq <5>] [if OUT_SINK eq <1>] [if OUT_REFR eq <1>] [if OUT_COOK eq <1> or OUT_BURNER eq <1> or OUT_OVEN eq <1>] [goto EQP5_KEXCLU] [else] [goto EQPCK6] [endif] [else] [goto EQPCK6] [endif] [else] [goto EQPCK6] [endif] [else] [goto EQPCK6] [endif] ---------------------------------------------------------------------- >EQP5_KEXCLU< [missing ] [store <> in temp] [store <> in temp2] [store <> in temp3] [if ISTATUS eq <1> or ISTATUS eq <2>] [store in temp] [store <> in temp2] [else] [store in temp] [store in temp2] [endif] [fill temp] [fill temp2] (1) Yes (2) No @ [@]<1,2,D,R>[goto EQPCK6] ---------------------------------------------------------------------- >EQPCK6< [if CDEPSTAT eq <2>] [goto EQP6a] [if CDEPSTAT eq <1>] [if I_DISPL ne <> and I_TRASH ne <> and I_DISH ne <> and I_WASH ne <> and I_DRY ne <>] [goto EQPCK6a] [else] [goto EQP6a] [endif] [endif][endif] ---------------------------------------------------------------------- >EQPCK6a< [store <> in temp1][store <> in temp2][store <> in temp3] [store <> in temp4][store <> in temp5][store <> in temp6] [store <> in temp7][store <> in temp8] [store <> in temp9][store <> in temp10][store <> in temp11] [store <> in temp12][store <> in temp13][store <> in temp14] [store <> in temp15][store <> in temp16] [if I_DISPL ne <1> and I_TRASH ne <1> and I_DISH ne <1> and I_wash ne <1> and I_DRY ne <1>] [goto eqp6a] [endif] [if I_DISPL eq <1>] [store in temp1] [endif] [if I_TRASH eq <1>] [if STYPE eq <3> or STYPE eq <5>] [store in temp2] [store in temp3] [else] [store in temp2] [store <> in temp3] [endif] [endif] [if I_DISH eq <1>] [store in temp4] [endif] [if I_WASH eq <1>] [if STYPE eq <3> or STYPE eq <5>] [store in temp5] [store in temp6] [else] [store in temp5] [store <> in temp6] [endif] [endif] [if I_DRY eq <1>] [if STYPE eq <3> or STYPE eq <5>] [store in temp7] [store in temp8] [else] [store in temp7] [store <> in temp8] [endif] [endif] [if I_DISPL eq <2> or I_DISPL eq <>] [store in temp9] [endif] [if I_TRASH eq <2> or I_TRASH eq <>] [if STYPE eq <3> or STYPE eq <5>] [store in temp10] [store in temp11] [else] [store in temp10] [store <> in temp11] [endif] [endif] [if I_DISH eq <2> or I_DISH eq <>] [store in temp12] [endif] [if I_WASH eq <2> or I_WASH eq <>] [if STYPE eq <3> or STYPE eq <5>] [store in temp13] [store in temp14] [else] [store in temp13] [store <> in temp14] [endif] [endif] [if I_DRY eq <2> or I_DRY eq <>] [if STYPE eq <3> or STYPE eq <5>] [store in temp15] [store in temp16] [else] [store in temp15] [store <> in temp16] [endif] [endif] ---------------------------------------------------------------------- >EQP6avr_APPLV< [missing ] [if i_displ eq <1> and i_trash eq <1> and i_dish eq <1> and i_wash eq <1> and i_dry eq <1>] [store <> in temp25] [store <> in temp26] [store <> in temp27] [else] [store in temp25] [store in temp26] [store in temp27] [endif] (Last time) we recorded that your [fill HTYPEFILL] had the following in working order: [fill temp1] [fill temp4] [fill temp2] [fill temp3] [fill temp5] [fill temp6] [fill temp7] [fill temp8] [fill temp25] [bold][fill temp26][n] [fill temp27] [fill temp9] [fill temp12] [fill temp10] [fill temp11] [fill temp13] [fill temp14] [fill temp15] [fill temp16] Is this information still correct? (IF HOUSEHOLD PLANS TO FIX/REPLACE NON-WORKING APPLIANCE SOON, COUNT IT AS WORKING.) (1) Yes (2) No (D) Don't know - not sure @ [@]<1> [goto @a] <2> [goto @b] [@a] [if eqp6avr_applv eq <1>] [store I_DISPL in OUT_DISPL] [store I_TRASH in OUT_TRASH] [store I_WASH in OUT_WASH] [store I_DRY in OUT_DRY] [store I_DISH in OUT_DISH] [endif] [goto EQPCK6e] [if out_displ ne <1>] [store <2> in out_displ] [endif] [if out_trash ne <1>] [store <2> in out_trash] [endif] [if out_wash ne <1>] [store <2> in out_wash] [endif] [if out_dry ne <1>] [store <2> in out_dry] [endif] [if out_dish ne <1>] [store <2> in out_dish] [endif] [goto EQPCK6e] [@b] [if eqp6avr_applv eq ] [store in OUT_DISPL] [store in OUT_TRASH] [store in OUT_WASH] [store in OUT_DRY] [endif] [if eqp6avr_applv eq ][store in OUT_DISH] [goto EQPCK7a] [else] [goto eqp6a] [endif] ---------------------------------------------------------------------- >EQP6a< [missing ] [store <> in temp] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif][endif] Does [fill temp] [fill HTYPEFILL] have... (1=Yes/2=No) a garbage disposal? @DISPLQ a built-in trash compactor? @TRASHQ a dishwasher? @DISHQ a washing machine? @WASHQ a clothes dryer? @DRYQ [if @DISPLQ eq <1> and @TRASHQ eq <2> and @DISHQ eq <2> and @WASHQ eq <2> and @DRYQ eq <2>] Is the garbage disposal currently in working order? [else] [if @DISPLQ eq <2> and @TRASHQ eq <1> and @DISHQ eq <2> and @WASHQ eq <2> and @DRYQ eq <2>] Is the built-in trash compactor currently in working order? [else] [if @DISPLQ eq <2> and @TRASHQ eq <2> and @DISHQ eq <1> and @WASHQ eq <2> and @DRYQ eq <2>] Is the dishwasher currently in working order? [else] [if @DISPLQ eq <2> and @TRASHQ eq <2> and @DISHQ eq <2> and @WASHQ eq <1> and @DRYQ eq <2>] Is the washing machine currently in working order? [else] [if @DISPLQ eq <2> and @TRASHQ eq <2> and @DISHQ eq <2> and @WASHQ eq <2> and @DRYQ eq <1>] Is the clothes dryer currently in working order? [else] Are all these appliances currently in working order? [endif] [endif] [endif] [endif] [endif] (1) Yes (2) No @APPLWK [@DISPLQ] <1-2,D,R>[store EQP6a@DISPLQ in out_displ] [goto @TRASHQ] [@TRASHQ] <1-2,D,R>[store EQP6a@TRASHQ in out_trash] [goto @DISHQ] [@DISHQ] <1-2,D,R>[store EQP6a@DISHQ in out_dish] [goto @WASHQ] [@WASHQ] <1-2,D,R>[store EQP6a@WASHQ in out_wash] [goto @DRYQ] [@DRYQ] <1-2,D,R>[store EQP6a@DRYQ in out_Dry] [if @DISPLQ eq <2> and @TRASHQ eq <2> and @DISHQ eq <2> and @WASHQ eq <2> and @DRYQ eq <2>] [goto EQPck7a] [endif] [@APPLWK] <2> [goto EQP6ckb] <1,D,R> [goto EQPCK6e] ---------------------------------------------------------------------------------------------- >EQP6ckB< [if EQP6a@DISPLQ eq <1> and EQP6a@TRASHQ eq <2> and EQP6a@DISHQ eq <2> and EQP6a@WASHQ eq <2> and EQP6a@DRYQ eq <2>] [store in EQP6B@DISPLWK] [goto EQP6b1_FIXSON] [else] [if EQP6a@DISPLQ eq <2> and EQP6a@TRASHQ eq <1> and EQP6a@DISHQ eq <2> and EQP6a@WASHQ eq <2> and EQP6a@DRYQ eq <2>] [store in EQP6B@TRASHWK] [goto EQP6b1_FIXSON] [else] [if EQP6a@DISPLQ eq <2> and EQP6a@TRASHQ eq <2> and EQP6a@DISHQ eq <1> and EQP6a@WASHQ eq <2> and EQP6a@DRYQ eq <2>] [store in EQP6B@DISHWK] [goto EQP6b1_FIXSON] [else] [if EQP6a@DISPLQ eq <2> and EQP6a@TRASHQ eq <2> and EQP6a@DISHQ eq <2> and EQP6a@WASHQ eq <1> and EQP6a@DRYQ eq <2>] [store in EQP6B@WASHWK] [goto EQP6b1_FIXSON] [else] [if EQP6a@DISPLQ eq <2> and EQP6a@TRASHQ eq <2> and EQP6a@DISHQ eq <2> and EQP6a@WASHQ eq <2> and EQP6a@DRYQ eq <1>] [store in EQP6B@DRYWK] [goto EQP6b1_FIXSON] [else] [goto EQP6b] [endif] [endif] [endif] [endif] [endif] ------------------------------------------------------------------------------------------- >EQP6b1_FIXSON< [store <> in temp1] [if eqp6a@displq eq <1>] [store in temp1] [else] [if eqp6a@trashq eq <1>] [store in temp1] [else] [if eqp6a@dishq eq <1>] [store in temp1] [else] [if eqp6a@washq eq <1>] [store in temp1] [else] [if eqp6a@dryq eq <1>] [store in temp1] [endif][endif][endif][endif][endif] Will the [fill temp1] be fixed soon? (1) Yes (2) No (D) Don't know - not sure @ [@] <1,2,D,R> [goto @a] [@a] [if eqp6a@displq eq <1> and eqp6b1_fixson eq <1>] [store in eqp6b@displfx] [else] [if eqp6a@trashq eq <1> and eqp6b1_fixson eq <1>] [store in eqp6b@trashfx] [else] [if eqp6a@dishq eq <1> and eqp6b1_fixson eq <1>] [store in eqp6b@dishfx] [else] [if eqp6a@washq eq <1> and eqp6b1_fixson eq <1>] [store in eqp6b@washfx] [else] [if eqp6a@dryq eq <1> and eqp6b1_fixson eq <1>] [store in eqp6b@dryfx] [endif][endif][endif][endif][endif] [goto eqpck6e] ------------------------------------------------------------------------------------------- >EQP6b< [open eqp6b] [missing ] Which appliances are not working? [if STYPE eq <3> or STYPE eq <5>] But soon will Not Working be fixed (x) (x) a garbage disposal? ........................... @DISPLWK @DISPLFX a built-in trash compactor in your apartment... @TRASHWK @TRASHFX a dishwasher?.................................. @DISHWK @DISHFX a washing machine?............................. @WASHWK @WASHFX a clothes dryer?............................... @DRYWK @DRYFX [else] But soon will Not Working be fixed (x) (x) a garbage disposal? ........................... @DISPLWK @DISPLFX a built-in trash compactor? ... @TRASHWK @TRASHFX a dishwasher?.................................. @DISHWK @DISHFX a washing machine?............................. @WASHWK @WASHFX a clothes dryer?............................... @DRYWK @DRYFX [endif] [@DISPLWK] [optional] [@TRASHWK] [optional] [@DISHWK] [optional] [@WASHWK] [optional] [@DRYWK] [optional] [@DISPLFX] [optional] [@TRASHFX] [optional] [@DISHFX] [optional] [@WASHFX] [optional] [@DRYFX] [optional] [if @DISPLWK eq and @DISPLFX ne ] [store <2> in OUT_DISPL] [else] [if @TRASHWK eq and @TRASHFX ne ] [store <2> in OUT_TRASH] [else] [if @DISHWK eq and @DISHFX ne ] [store <2> in OUT_DISH] [else] [if @WASHWK eq and @WASHFX ne ] [store <2> in OUT_WASH] [else] [if @DRYWK eq and @DRYFX ne ] [store <2> in OUT_DRY] [endif][endif][endif][endif][endif] ---------------------------------------------------------------------- >EQPCK6e< [if OUT_DRY eq <> or OUT_DRY eq <2> or (out_dry eq <1> and eqp6b@drywk eq and eqp6b@dryfx eq <>)] [goto EQPCK7a] [endif] [if CDEPSTAT eq <1> and (I_DFUEL eq <1> or I_DFUEL eq <2>) and EQP6avr_APPLV eq <1> and OUT_DRY eq <1>] [goto EQP6evr_dfuelv] [endif] [if CDEPSTAT eq <1> and (I_DFUEL eq <1> or I_DFUEL eq <2>) and EQP6a@APPLWK eq <1> and EQP6a@DRYQ eq <1>] [goto EQP6evr_dfuelv] [endif] [if CDEPSTAT eq <1> and (I_DFUEL eq <1> or I_DFUEL eq <2>) and EQP6a@DRYQ eq <1> and EQP6b@DRYWK eq <>] [goto EQP6evr_dfuelv] [endif] [if CDEPSTAT eq <1> and (I_DFUEL eq <1> or I_DFUEL eq <2>) and eqp6a@dryq eq <1> and EQP6b@DRYWK eq and EQP6b@DRYFX eq ] [goto EQP6evr_dfuelv] [endif] [goto EQP6e_dfuelq] ---------------------------------------------------------------------- >EQP6evr_DFUELV< [missing ] [store <> in temp] [if I_DFUEL eq <1>] [store in temp] [else] [if I_DFUEL eq <2>] [store in temp] [endif] [endif] [# (Last time) we recorded that your dryer used [fill temp]. Is this information still correct? (1) Yes (2) No (D) Don't know - not sure @ [@] <1,R> [goto @a] <2,D> [goto EQP6e_DFUELQ] [@a] [if eqp6evr_dfuelv eq <1>] [store i_dfuel in out_dfuel] [goto eqpck7a] [endif] [if eqp6evr_dfuelv eq ] [store in out_dfuel] [goto eqpck7a] [endif] ---------------------------------------------------------------------- >EQP6e_DFUELQ< [missing ] What type of fuel does the dryer use? (1) Electricity (2) Gas, LP gas (liquid propane) (3) Other - SPECIFY @ [@]<1,2,D,R> [goto @a] <3> [specify] [goto EQPCK7a] [@a] [store eqp6e_dfuelq in out_dfuel] [goto EQPCK7a] --------------------------------------------------------------------- >EQPCK7a< [if cdepstat eq <2>] [goto EQP7a_PUBSEWQ] [endif] [if cdepstat eq <1> and I_pubsew eq <1>] [goto Eqp7avr_PUBSWV] [endif] [goto EQP7a_PUBSEWQ] ---------------------------------------------------------------------- >EQP7avr_PUBSWV< [missing ] (Last time) we recorded that your [fill htypefill] was connected to a public sewer. Is this information still correct? (1) Yes (2) No (D) Don't know - not sure @ [@] <1> [goto @a] <2,D,R> [goto @b] [etc ] [@a] [if @ eq <1>] [store i_pubsew in out_pubsew] [goto EQPCK8A] [endif] [@b] [if @ eq <2> or @ eq or @ eq or @ eq ] [store eqp7avr_pubswv in out_pubsew] [goto eqp7b_sewdisq] [endif] ------------------------------------------------------------------------ >EQP7a_PUBSEWQ< [missing ] [store <> in temp] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif][endif] [r](H)[n] Is [fill temp] [fill HTYPEFILL] connected to a public sewer? (1) Yes (2) No @ [@]<1> [goto @a] <2,D,R> [goto @b] [etc ] [@a][store EQP7a_PUBSEWQ in out_pubsew] [goto eqpck8a] [@b][store EQP7a_PUBSEWQ in out_pubsew] [goto eqp7b_SEWDISQ] --------------------------------------------------------------------- >EQP7b_SEWDISQ< [missing ] [store <> in temp] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif][endif] What means of sewage disposal does [fill temp] [fill HTYPEFILL] have? (1) Septic tank (2) Cesspool (3) Chemical toilet (4) Outhouse or privy (5) Other; SPECIFY (6) None @1[if EQP7b_SEWDISQ@1 eq <5>] @2 [endif] [@1]<1-2> <3,4,6,D,R> <5> [etc ] [if EQP7b_SEWDISQ@1 eq <1> or EQP7b_SEWDISQ@1 eq <2>] [store <1> in OUT_SEWDIS] [goto EQP7c_SEWDUSQ][endif] [if EQP7b_SEWDISQ@1 eq <3>] [store <2> in OUT_SEWDIS] [goto eqpck8a] [else] [if EQP7b_SEWDISQ@1 eq <4>] [store <3> in OUT_SEWDIS] [goto eqpck8a] [else] [if EQP7b_SEWDISQ@1 eq <6>] [store <5> in OUT_SEWDIS] [goto eqpck8a] [else] [if EQP7b_SEWDISQ@1 eq ] [store in OUT_SEWDIS] [goto eqpck8a] [else] [if EQP7b_SEWDISQ@1 eq ] [store in OUT_SEWDIS] [goto EQPCK8a] [endif] [endif] [endif] [endif] [endif] [@2] [specify] [store <4> in OUT_SEWDIS] [goto eqpck8a] --------------------------------------------------------------------- >OUT_SEWDUS< [allow 1] ---------------------------------------------------------------------- >EQP7c_SEWDUSQ< [missing ] [store <> in temp] [if EQP7b_SEWDISQ@1 eq <1> and EQP7b_SEWDISQ@1 onpath] [store in temp] [else] [store in temp] [endif] How many homes are connected to the [fill temp]? (1) One (2) 2 to 5 (3) 6 or more (D) Don't know - not sure @ [@]<1-3,D,R> [store EQP7c_SEWDUSQ in OUT_SEWDUS] [goto EQPCK8a] ------------------------------------------------------------------------------ >EQPCK8a< [if INV9a@BATHS eq <1>] [goto EQP8a] [endif] [if INV9a@BATHS ge <2>] [store <1> in OUT_HOTPIP] [store <1> in OUT_BSINK] [store <1> in OUT_TOILET] [store <1> in OUT_TUB] [goto EQPCK8e] [endif] [if INV9a@BATHS eq <0>] [goto EQP8d] [endif] ---------------------------------------------------------------------- >EQP8a< [missing ][store <> in temp] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif][endif] Does [fill temp] full bath contain: (READ CATEGORIES BELOW) (1) Yes (2) No both hot and cold water? @HOTPIP1 a bathroom sink? @BSINK1 a flush toilet? @TOILET1 a bathtub or a shower? @TUB1 [@HOTPIP1]<1-2,D,R> [@BSINK1] <1-2,D,R> [@TOILET1]<1-2,D,R> [@TUB1] <1-2,D,R> ---------------------------------------------------------------------- >EQP8a_EDIT< [if EQP8a@HOTPIP1 eq <1> and EQP8a@BSINK1 eq <1> and EQP8a@TOILET1 eq <1> and EQP8a@TUB1 eq <1>] [store <1> in OUT_HOTPIP] [store <1> in OUT_BSINK] [store <1> in OUT_TOILET] [store <1> in OUT_TUB] [goto EQPCK8e] [endif] ------------------------------------------------------------------- >EQP8b< [missing ] [store <> in temp] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif][endif] Do you have (1) Yes (2) No [if EQP8a@HOTPIP1 eq <2> or EQP8a@HOTPIP1 eq or EQP8a@HOTPIP1 eq ] both hot and cold water @HOTPIP [endif] [if EQP8a@BSINK1 eq <2> or EQP8a@BSINK1 eq or EQP8a@BSINK1 eq ] a bathroom sink @BSINK [endif] [if EQP8a@TOILET1 eq <2> or EQP8a@TOILET1 eq or EQP8a@TOILET1 eq ] a flush toilet @TOILET [endif] [if EQP8a@TUB1 eq <2> or EQP8a@TUB1 eq or EQP8a@TUB1 eq ] a bathtub or a shower @TUBP [endif] anywhere in [fill temp] home? [@HOTPIP] <1> <2,D,R> [goto @a] [@BSINK] <1> <2,D,R> [goto @b] [@TOILET] <1> <2,D,R> [goto @c] [@TUBP] <1> <2,D,R> [goto @d] [@a][if EQP8b@HOTPIP eq <2> or EQP8b@HOTPIP eq or EQP8b@HOTPIP eq ] [store <0> in INV9a@baths] [add <1> to inv9a@halfb] [goto EQPCK8e] [endif] [@b] [if EQP8b@BSINK eq <2> or EQP8b@BSINK eq or EQP8b@BSINK eq ] [store <0> in INV9a@baths] [add <1> to inv9a@halfb] [goto EQPCK8e] [endif] [@c] [if EQP8b@TOILET eq <2> or EQP8b@TOILET eq or EQP8b@TOILET eq ] [store <0> in INV9a@baths] [add <1> to inv9a@halfb] [goto EQPCK8e] [endif] [@d] [if EQP8b@TUBP eq <2> or EQP8b@TUBP eq or EQP8b@TUBP eq ] [store <0> in INV9a@baths] [add <1> to inv9a@halfb] [goto EQPCK8e] [endif] ------------------------------------------------------------------- >EQP8c_PLMFCP2< [missing ] [store <> in temp] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <2> or ISTATUS eq <3>] [store in temp] [endif][endif] [store <> in temp1] [store <0> in index] [if EQP8a@HOTPIP1 ne <1>] [add <1> to index] [endif] [if EQP8a@BSINK1 ne <1>] [add <1> to index] [endif] [if EQP8a@TOILET1 ne <1>] [add <1> to index] [endif] [if EQP8a@TUB1 ne <1>] [add <1> to index] [endif] [if index eq <1>] [store in temp1] [else] [store in temp1] [endif] ***POSSIBLE PROBLEM WITH A BATHROOM DEFINITION*** [fill temp1] in an area or room adjoining [fill temp] bathroom? (1) Yes (INSTRUMENT WILL RETURN TO EQP8a-CHANGE "NO" ANSWERS TO "YES" (2) No @ [@] <1> [goto @a] [#etc ] <2,D,R> [goto @b] [@a] [store <1> in eqp8a@hotpip1] [store <1> in eqp8a@bsink1] [store <1> in eqp8a@toilet1] [store <1> in eqp8a@tub1] [goto EQPCK8e] [@b] [if EQP8c_PLMFCP2 eq <2> or EQP8c_PLMFCP2 eq or EQP8c_PLMFCP2 eq ] [store <0> in inv9a@baths] [add <1> to INV9a@HALFB] [endif] [goto EQPCK8e] ---------------------------------------------------------------------- >EQP8d< [missing ][store <> in temp] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif][endif] Does [fill temp] [fill HTYPEFILL] have: (1) Yes (2) No both hot and cold water? @HOTPIP2 a bathroom sink? @BSINK2 a flush toilet? @TOILET2 a bathtub or a shower? @TUB2 [@HOTPIP2]<1-2,D,R> [@BSINK2] <1-2,D,R> [@TOILET2]<1-2,D,R> [@TUB2] <1-2,D,R> ---------------------------------------------------------------------- >EQP8d_edit< [store EQP8d@HOTPIP2 in OUT_HOTPIP] [store EQP8d@BSINK2 in OUT_BSINK] [store EQP8d@TOILET2 in OUT_TOILET] [store EQP8d@TUB2 in OUT_TUB] [if EQP8d@HOTPIP2 eq <1> or EQP8d@BSINK2 eq <1> or EQP8d@TOILET2 eq <1> or EQP8d@TUB2 eq <1>] [goto EQPCK8e] [else] [goto EQPCK9] [endif] --------------------------------------------------------------------- >EQPCK8e< [if INV9a@BATHS ge <2>] [store <2> in EQP8E_SHARPF] [goto EQPCK9] [else] [goto EQP8e_SHARPF] [endif] ---------------------------------------------------------------------- >EQP8e_SHARPF< [missing ] [store <> in temp] [store <> in temp2] [store <> in temp3] [store <> in temp4] [if ISTATUS eq <1>] [store in temp] [store in temp4] [else] [if ISTATUS eq <2> or ISTATUS eq <3>] [store in temp] [store in temp4] [endif][endif] [# [if ISTATUS eq <1> or ISTATUS eq <2>] [store in temp2] [else] [if ISTATUS eq <3>] [store in temp2] [endif][endif] [# [if INV9a@BATHS eq <0> or INV9a@BATHS eq <>] [store in temp3] [else] [if INV9a@BATHS eq <1> and INV9a@HALFB ge <1>] [store in temp3] [else] [if INV9a@BATHS eq <1>] [store in temp3] [endif][endif][endif] Some people live in neighborhoods where some of the houses don't have complete plumbing facilities so they must use other people's bathrooms. [fill temp2] anyone not living in [fill temp] home, not counting guests or workers, regularly use [fill temp] [fill temp3]? (1) Yes (2) No @ [@]<1,2,D,R>[goto EQPCK9] ---------------------------------------------------------------------- >EQPCK9< [if CDEPSTAT eq <2>] [if INV9a@BATHS ge <2> or OUT_HOTPIP eq <1>] [goto EQP9_WFUELQ] [else] [goto EQPCK10a] [endif][endif] [if CDEPSTAT eq <1>] [if OUT_HOTPIP eq <1> and I_WFUEL ge <1> and I_WFUEL le <7>] [goto EQP9vr_WFUELV] [else] [if INV9a@BATHS ge <2> or OUT_HOTPIP eq <1>] [goto EQP9_WFUELQ] [else] [goto EQPCK10a] [endif] [endif][endif] ---------------------------------------------------------------------- >EQP9vr_WFUELV< [missing ] [store <> in temp] [store <> in temp3] [store <0> in index] [if I_WFUEL eq <1>] [store in temp] [else] [if I_WFUEL eq <2>] [store in temp] [else] [if I_WFUEL eq <3>] [store in temp] [else] [if I_WFUEL eq <4>] [store in temp] [else] [if I_WFUEL eq <5>] [store in temp] [else] [if I_WFUEL eq <6>] [store in temp] [else] [if I_WFUEL eq <7>] [store in temp] [else] [endif][endif][endif][endif] [endif][endif][endif] (Last time) we recorded [fill temp] as the fuel used most to heat the water. Is this information still correct? (1) Yes (2) No (D) Don't know - not sure @ [@]<1,R> [goto @a] <2,D>[goto EQP9_WFUELQ] [@a] [if EQP9vr_WFUELV eq <1>] [store I_WFUEL in OUT_WFUEL] [goto EQPCK10a] [else] [store in OUT_WFUEL] [goto EQPCK10a] [endif] --------------------------------------------------------------------- >EQP9_WFUELQ< [missing ] What type of fuel is used MOST to heat the water? (1) Electricity (2) Gas, LP gas (liquid propane(LP) same as bottled gas) (3) Fuel oil (4) Kerosene or other liquid fuel (5) Coal or coke (6) Wood (7) Solar energy (8) Other; SPECIFY @1 [if EQP9_WFUELQ@1 eq <8>] @2 [endif] [@1]<1-7,D,R> <8>[specify] [store EQP9_WFUELQ@1 in OUT_WFUEL] [@2] [allow 30] [store EQP9_WFUELQ@1 in OUT_WFUEL] ---------------------------------------------------------------------- >EQPCK10a< [if CDEPSTAT eq <2>] [goto EQP10a_WATERQ] [else] [if CDEPSTAT eq <1> and (I_WATER ge <1> and I_WATER le <6>)] [goto EQP10av_WATERV] [else] [goto EQP10a_WATERQ] [endif][endif] ---------------------------------------------------------------------- >EQP10av_WATERV< [missing ] [store <> in TEMP1] [if I_WATER eq <1>] [store in temp1] [else] [if I_WATER eq <2>] [store in temp1] [else] [if I_WATER eq <3>] [store in temp1] [else] [if I_water eq <4>] [store in temp1] [else] [if I_WATER eq <5>] [store in temp1] [else] [if I_WATER eq <6>] [store in temp1] [endif][endif][endif][endif][endif][endif] (Last time) we recorded that most of your water came from [fill temp1]. Is this information still correct? (1) Yes (2) No (D) Don't know - not sure @ [@] <1,R> [goto @a] <2,D> [goto EQP10a_WATERQ] [etc ] [@a] [if EQP10av_WATERV eq <1>] [store i_water in out_water] [else] [if EQP10av_WATERV eq ] [store in out_water] [endif][endif] [goto EQPck10b] ---------------------------------------------------------------------- >EQP10a_WATERQ< [missing ] [store <> in temp] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif][endif] [r](H)[n] Does most of the water for [fill temp] [fill HTYPEFILL] come from a water system, either public or private, from an individual well, or from some other source? (1) Public or private water system (includes city water) (2) Individual well (3) Spring (4) Cistern (5) Stream or lake (6) Commercial bottled water (7) Other source - specify @ [@] <1-6,D,R> [goto @a] <7> [specify] [goto @a] [etc ] [@a] [store eqp10a_waterq in out_water] [goto EQPck10b] ---------------------------------------------------------------------- >EQPck10b< [if OUT_WATER eq <1> or (OUT_WATER ge <3> and OUT_WATER le <5>)] [goto EQPck10c] [else] [if OUT_WATER eq <2> and (I_WELL eq <1> or I_WELL eq <2>)] [goto EQP10bvr_WELLV] [else] [if OUT_WATER eq <2> and (I_WELL ne <1> or I_WELL ne <2>)] [goto EQP10b_WELLQ] [else] [if OUT_WATER eq <6> or OUT_WATER eq or OUT_WATER eq ] [goto EQPck11a] [else] [if OUT_WATER eq <7>] [goto EQP10e_SAFEDR] [endif] [endif][endif][endif][endif] ---------------------------------------------------------------------- >EQP10bvr_WELLV< [missing ] [store <> in temp2] [if I_WELL eq <1>] [store in temp2] [else] [if I_WELL eq <2>] [store in temp2] [endif][endif] And that well is [fill temp2] (1) Yes (2) No (D) Don't know - not sure @ [@] <1,R> [goto @a] <2,D> [goto EQP10B_WELLQ] [etc ] [@a] [if EQP10bvr_WELLV eq <1>] [store i_well in out_well] [goto eqpck10c] [else] [store in out_well] [goto eqpck10c] [endif] ---------------------------------------------------------------------- >EQP10b_WELLQ< [missing ] Is the well drilled or dug? (1) Drilled (2) Dug @ [@]<1,2,D,R>[goto @a] [etc ] [@a] [store @ in out_well] [goto eqpck10c] [goto EQPck10c] --------------------------------------------------------------------- >EQPck10c< [if CDEPSTAT eq <2>] [goto EQP10c_WELDUS1] [endif] [if CDEPSTAT eq <1> and (I_WELDUS ge <1> and I_WELDUS le <5>) and I_WATER eq OUT_WATER] [goto EQP10cv_WLDS1V] [else] [goto EQP10c_WELDUS1] [endif] --------------------------------------------------------------------- >EQP10cv_WLDS1V< [missing ] [store <> in temp1] [if OUT_WATER eq <1>] [store in temp1] [else] [if OUT_WATER eq <2>] [store in temp1] [else] [if OUT_WATER eq <3>] [store in temp1] [else] [if OUT_WATER eq <4>] [store in temp1] [else] [if OUT_WATER eq <5>] [store in temp1] [else] [if OUT_WATER eq <6>] [store in temp1] [endif][endif][endif][endif][endif][endif] [# [store <> in temp] [if I_WELDUS eq <1>] [store in temp] [else] [if I_WELDUS eq <2>] [store <2 to 5 homes> in temp] [else] [if I_WELDUS eq <3>] [store <6 to 9 homes> in temp] [else] [if I_WELDUS eq <4>] [store <10 to 14 homes> in temp] [else] [if I_WELDUS eq <5>] [store <15 or more homes> in temp] [endif] [endif] [endif] [endif] [endif] (Last time) we recorded that the [fill temp1] provided water to [fill temp]. Is this information still correct? (1) Yes (2) No (D) Don't know - not sure @ [@] <1,R> [goto @a] <2,D> [goto eqp10c_weldus1] [@a] [if @ eq <1>] [store i_weldus in out_weldus] [goto eqp10e_safedr] [else] [store in out_weldus] [goto eqp10e_safedr] [endif] --------------------------------------------------------------------- >EQP10c_WELDUS1< [missing ] [if I_WELDUS eq <5> and EQP10cv_WLDS1V eq ] [store in EQP10C_WELDUS1] [goto EQP10E_SAFEDR] [endif] [# [store <> in temp2] [if OUT_WATER eq <1>] [store in temp2] [else] [if OUT_WATER eq <2>] [store in temp2] [else] [if OUT_WATER eq <3>] [store in temp2] [else] [if OUT_WATER eq <4>] [store in temp2] [else] [if OUT_WATER eq <5>] [store in temp2] [else] [if OUT_WATER eq <6>] [store in temp2] [else] [if OUT_WATER eq <7>] [store in temp2] [endif][endif][endif][endif][endif][endif][endif] Does that [fill temp2] provide water to 15 or more homes? (1) Yes (2) No @ [@]<1,D,R> [goto @a] <2>[goto EQP10d_WELDUS2] [@a] [if eqp10c_weldus1 eq <1>] [store <5> in out_weldus] [goto EQP10e_SAFEDR] [else] [if eqp10c_weldus1 eq ] [store in out_weldus] [goto EQP10e_SAFEDR] [else] [if eqp10c_weldus1 eq ] [store in out_weldus] [goto EQP10e_SAFEDR] [endif][endif][endif] ---------------------------------------------------------------------- >EQP10d_WELDUS2< [missing ] [store <> in temp2] [if OUT_WATER eq <1>] [store in temp2] [else] [if OUT_WATER eq <2>] [store in temp2] [else] [if OUT_WATER eq <3>] [store in temp2] [else] [if OUT_WATER eq <4>] [store in temp2] [else] [if OUT_WATER eq <5>] [store in temp2] [else] [if OUT_WATER eq <7>] [store in temp2] [endif][endif][endif][endif][endif][endif] [r](H)[n] How many homes does the [fill temp2] serve? (1) Only this home (2) 2 to 5 (3) 6 to 9 (4) 10 to 14 @ [@]<1-4,D,R> [goto @a] [etc ] [@a] [store EQP10d_WELDUS2 in OUT_WELDUS] [goto EQP10e_SAFEDR] ---------------------------------------------------------------------- >EQP10e_SAFEDR< [missing ] [store <> in temp2] [if OUT_WATER eq <1>] [store in temp2] [else] [if OUT_WATER eq <2>] [store in temp2] [else] [if OUT_WATER eq <3>] [store in temp2] [else] [if OUT_WATER eq <4>] [store in temp2] [else] [if OUT_WATER eq <5>] [store in temp2] [else] [if OUT_WATER eq <7>] [store in temp2] [endif][endif][endif][endif][endif][endif] In your opinion, is the water from this [fill temp2] safe for cooking and drinking? (1) Yes (2) No @ [@]<1,D,R>[goto EQPck11a] <2> [if ISTATUS eq <1>] [goto EQP10f_DRWATR] [else] [goto EQPck11a] [endif] ---------------------------------------------------------------------- >EQP10f_DRWATR< [missing ] Where do you get your water for drinking? (1) Public or private water system (2) Individual well (3) Spring (4) Cistern (5) Stream or lake (6) Commercial bottled water (7) Other; SPECIFY @ [@]<1-6,D,R> [goto EQPck11a] <7> [specify] ---------------------------------------------------------------------- >EQPck11a< [if cdepstat eq <1> and (I_HFUEL ge <1> and I_HFUEL le <7>)] [goto EQP11av_HFUELAV] [else] [goto EQP11a_HFUELA] [endif] ---------------------------------------------------------------------- >EQP11av_HFUELAV< [missing ] [store <> in temp] [if I_HFUEL eq <1>] [store in temp] [else] [if I_HFUEL eq <2>] [store in temp] [else] [if I_HFUEL eq <3>] [store in temp] [else] [if I_HFUEL eq <4>] [store in temp] [else] [if I_HFUEL eq <5>] [store in temp] [else] [if I_HFUEL eq <6>] [store in temp] [else] [if I_HFUEL eq <7>] [store in temp] [else] [endif][endif][endif][endif] [endif][endif][endif] (Last time) we recorded that the fuel used most for heating your [fill htypefill] was [fill temp]. Is this information still correct? (1) Yes (2) No (D) Don't know - not sure @ [@] <1,R> [goto HFUELACK1] <2,D> [goto eqp11a_hfuela] ---------------------------------------------------------------------- >HFUELACK1< [if EQP11av_HFUELAV eq <1>] [store I_HFUEL in OUT_HFUEL] [goto eqpck12a] [else] [if EQP11av_HFUELAV eq ] [store in OUT_HFUEL] [goto eqpck12a] [endif] [endif] ---------------------------------------------------------------------- >EQP11a_HFUELA< [missing ] [store <> in temp] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif][endif] What fuel is used MOST for heating [fill temp] [fill HTYPEFILL]? (1) Electricity (2) Gas, LP gas (liquid propane (LP) same as bottled gas) (3) Fuel oil (4) Kerosene or other liquid fuel (5) Coal or coke (6) Wood (7) Solar energy (8) Other; SPECIFY (9) None @ [@]<1,3-7,D,R> [goto @a] <2> [goto @a] <8> [specify] [goto @a] <9> [goto eqp11b_hfuelb] [@a] [store @ in out_hfuel] [if @ eq <1> or (@ ge <3> and @ le <7> ) or @ eq or @ eq ] [goto EQPck12a] [endif] [if @ eq <2>] [goto eqpck11d] [endif] [if @ eq <8>] [goto EQPck12a] [endif] --------------------------------------------------------------------- >EQP11b_HFUELB< [missing ] [store <> in temp] [store <> in temp2] [if ISTATUS eq <1>] [store in temp] [store in temp2] [else] [if ISTATUS eq <2>] [store in temp] [store in temp2] [else] [if ISTATUS eq <3>] [store in temp] [store in temp2] [endif][endif][endif] [if ISTATUS eq <1>] Is that because you do not [u]have[n] any heating equipment or is that because you are not [u]using[n] your heating equipment? [else] [if ISTATUS eq <2>] Is that because the [fill HTYPEFILL] does not [u]have[n] any heating equipment or is that because you are not [u]using[n] the heating equipment? [else] [if ISTATUS eq <3>] Is that because the [fill HTYPEFILL] does not [u]have[n] any heating equipment or is that because a tenant could not [u]use[n] the heating equipment? [endif][endif][endif] (1) Do not have any heating equipment (include equipment that is broken and [u]will not[n] be fixed) (2) [fill temp2] heating equipment (include equipment that is [u]temporarily[n] broken but [u]will be[n] fixed) @ [@]<1,D,R> <2>[goto EQP11c_HFUELC] [IF EQP11B_HFUELB EQ <1> OR EQP11B_HFUELb EQ OR EQP11B_HFUELB EQ ] [store <9> in OUT_HFUEL] [store <13> in OUT_HEQUIP] [goto EQP15aCK] [ENDIF] ---------------------------------------------------------------------- >EQP11c_HFUELC< [missing ] [store <> in temp] [store <> in temp2] [if ISTATUS eq <1> or ISTATUS eq <2>] [store in temp] [store in temp2] [else] [if ISTATUS eq <3>] [store in temp] [store in temp2] [endif][endif] If [fill temp] were to use [fill temp2] heating equipment, what type of fuel would it use? (1) Electricity (2) Gas, LP gas (liquid propane(LP) same as bottled gas) (3) Fuel oil (4) Kerosene or other liquid fuel (5) Coal or coke (6) Wood (7) Solar energy (8) Other; SPECIFY @ [@] <1,3-7,D,R> [goto @a] <2> <8> [specify] [@a] [store @ in out_hfuel] [if @ eq <1> or (@ ge <3> or @ le <7> ) or @ eq or @ eq ] [store EQP11c_HFUELC in out_hfuel] [goto EQPck12a] [endif] [if @ eq <2>] [store EQP11c_HFUELC in out_hfuel] [goto eqpck11d] [endif] [if @ eq <8>] [store EQP11c_HFUELC in out_hfuel] [goto EQPck12a] [endif] ---------------------------------------------------------------------- >EQPck11D< [if istatus eq <2> or istatus eq <3>] [goto eqp11d_gasupip] [endif] [if istatus eq <1> goto eqpck12a] ---------------------------------------------------------------------- >EQP11d_GASUPIP< Is it from underground pipes or bottled gas? (1) Underground pipes serving the neighborhood (2) Bottled gas @ [@] <1,2,D,R> [goto eqpck12a] ---------------------------------------------------------------------- >EQPCK12a< [if CDEPSTAT eq <2>] [goto eqp12a_hcenta] [endif] [if CDEPSTAT eq <1> and (I_HEQUIP ge <1> and I_HEQUIP le <11> or I_HEQUIP eq <14>)] [goto EQP12av_HEQUIPV] [else] [goto eqp12a_hcenta] [endif] ---------------------------------------------------------------------- >EQP12av_HEQUIPV< [missing ] [store <> in tem3] [if I_HEQUIP eq <1>] [store in tem3] [else] [if I_HEQUIP eq <2>] [store in tem3] [else] [if I_HEQUIP eq <3>] [store in tem3] [else] [if I_HEQUIP eq <4>] [store in tem3] [else] [if I_HEQUIP eq <5>] [store in tem3] [else] [if I_HEQUIP eq <6>] [store in tem3] [else] [if I_HEQUIP eq <7>] [store in tem3] [else] [if I_HEQUIP eq <8>] [store in tem3] [else] [if I_HEQUIP eq <9>] [store in tem3] [else] [if I_HEQUIP eq <10>] [store in tem3] [else] [if I_HEQUIP eq <11>] [store in tem3] [else] [if I_HEQUIP eq <14>] [store in tem3] [endif][endif][endif][endif][endif][endif][endif] [endif][endif][endif][endif][endif] [# (Last time) we recorded that your MAIN heating equipment was [fill tem3]. Is this information still correct? (1) Yes (2) No (D) Don't know - not sure @ [@] <1,R> [goto HEQUIPVCK1] <2,D> [goto eqp12a_hcenta] ---------------------------------------------------------------------- >HEQUIPVCK1< [if (i_hequip eq <10> or i_hequip eq <11>) and EQP12av_HEQUIPV eq <1>] [store I_HEQUIP in OUT_HEQUIP] [goto eqp16ack] [endif] [if EQP12av_HEQUIPV eq <1>] [store I_HEQUIP in OUT_HEQUIP] [goto eqp15aCK] [endif] [if EQP12av_HEQUIPV eq ] [store in OUT_HEQUIP] [goto eqp15aCK] [endif] ---------------------------------------------------------------------- >EQP12a_HCENTA< [missing ] [store <> in temp] [store <> in temp1] [if ISTATUS eq <1> or ISTATUS eq <2>] [store in temp] [store in temp1] [else] [store in temp] [store in temp1] [endif] Sometimes people have more than one type of heating EQUIPMENT in [fill temp] home. Turning first to questions about [fill temp1] MAIN heating equipment: Is [fill temp1] heating equipment designed to send heat to all or most of the rooms? (1) Yes, sends heat to all or most rooms (2) No (D) Don't know - not sure @ [@]<1,D>[goto EQP12b_HCENTB] <2,R>[goto EQP13a_HPORTA] ---------------------------------------------------------------------- >EQP12b_HCENTB< [missing ] Does it send heat to the rooms by forcing warm air through ducts and vents OR by steam or hot water through radiators or pipes OR by electric coils INSIDE the floors, ceilings, or walls OR by some other way? (1) Forced warm air through ducts and vents (2) Steam or hot water through radiators or pipes (3) Electric coils inside floors, ceilings, or walls (4) Some other way (D) Don't know - not sure @ [@]<1>[goto @1] <2,3> [goto @2] <4,D,R> [goto EQP13a_HPORTA] [@1] [if EQP11a_HFUELA eq <1> or EQP11c_HFUELC eq <1>] [goto EQP12c_HCENTC] [else] [store <1> in OUT_HEQUIP] [goto EQP15ack] [endif] [@2][if EQP12b_HCENTB eq <2>] [store <2> in OUT_HEQUIP] [endif] [if EQP12b_HCENTB eq <3>] [store <4> in OUT_HEQUIP] [endif] [goto EQP15aCK] --------------------------------------------------------------------- >EQP12c_HCENTC< [missing ] And is that equipment a standard electric FURNACE or is it a HEAT PUMP? (1) Standard Electric Furnace (2) Heat Pump (D) Don't know - not sure @ [@]<1,R> <2,D>[goto EQP14a_AIRSYS1] [if EQP12c_HCENTC eq <1>] [store <1> in OUT_HEQUIP] [goto EQP15aCK] [else] [if EQP12c_HCENTC eq ] [store in OUT_HEQUIP] [goto EQP15aCK] [endif] [endif] --------------------------------------------------------------------- >EQP13A_HPORTA< [missing ] [store <> in temp2] [if ISTATUS eq <1>] [store in temp2] [else] [if ISTATUS eq <2>] [store in temp2] [else] [if ISTATUS eq <3>] [store in temp2] [endif][endif][endif] [r](H)[n] Is [fill temp2] MAIN heating equipment PORTABLE so that it can be moved and used in another room, or is it NOT portable? (IF "DON'T KNOW", PROBE FOR DESCRIPTION AND DECIDE BEST CATEGORY.) (1) Portable (2) Not portable @ [@] <1> [goto EQP13b_HPORTB] <2> [goto EQP13c_HPORTC] [etc ] [IF EQP13A_HPORTA eq ] [store in OUT_HEQUIP] [goto EQP15aCK] [endif] ---------------------------------------------------------------------- >EQP13b_HPORTB< [missing ] What type of PORTABLE equipment is it? (AFTER ENTERING ANSWER, [U]READ[N] CATEGORY TO RESPONDENT TO VERIFY CLASSIFICATION.) (1) UNVENTED room heaters burning kerosene, gas or oil (2) Portable electric heaters (3) Other portable heaters: (Specify) @1 [if EQP13b_HPORTB@1 eq <3>] @2 [endif] [@1] <1> <2> <3> [if EQP13b_HPORTB@1 eq <1>][store <7> in OUT_HEQUIP][goto EQP15aCK][endif] [if EQP13b_HPORTB@1 eq <2>][store <8> in OUT_HEQUIP][goto EQP15aCK][endif] [if EQP13b_HPORTB@1 eq ][store in OUT_HEQUIP][goto EQP15aCK][endif] [if EQP13b_HPORTB@1 eq ][store in OUT_HEQUIP][goto EQP15aCK][endif] [@2] [allow 30] [if EQP13b_HPORTB@1 eq <3>][store <12> in OUT_HEQUIP][goto EQP15aCK][endif] ---------------------------------------------------------------------- >EQP13c_HPORTC< [missing ] What type of equipment is it? (AFTER ENTERING ANSWER, [U]READ[N] CATEGORY TO RESPONDENT TO VERIFY CLASSIFICATION.) (1) Floor, wall or other pipeless furnace built into the building (2) Built-in electric baseboard heaters (3) VENTED room heaters burning kerosene, gas or oil (4) UNVENTED room heaters burning kerosene, gas or oil (5) Cooking stove (gas or electric) (6) Woodburning stove, pot belly stove, Franklin stove Fireplaces: (7) WITH inserts (8) WITHOUT inserts (9) Other @ [@] <1-6,D,R> <7,8> <9> [goto EQP13d_HPORTD] [if EQP13c_HPORTC eq <1>] [store <5> in OUT_HEQUIP] [goto EQP15aCK] [else] [if EQP13c_HPORTC eq <2>] [store <4> in OUT_HEQUIP] [goto EQP15aCK] [else] [if EQP13c_HPORTC eq <3>] [store <6> in OUT_HEQUIP] [goto EQP15aCK] [else] [if EQP13c_HPORTC eq <4>] [store <7> in OUT_HEQUIP] [goto EQP15aCK] [else] [if EQP13c_HPORTC eq <5>] [store <14> in OUT_HEQUIP] [goto EQP15aCK] [else] [if EQP13c_HPORTC eq <6>] [store <9> in OUT_HEQUIP] [goto EQP15aCK] [else] [if EQP13c_HPORTC eq ] [store in OUT_HEQUIP] [goto EQP15aCK] [else] [if EQP13c_HPORTC eq ] [store in OUT_HEQUIP] [goto EQP15aCK] [endif][endif][endif][endif] [endif][endif][endif][endif] [if EQP13c_HPORTC eq <7>] [store <10> in OUT_HEQUIP] [goto EQP15ack] [else] [if EQP13c_HPORTC eq <8>] [store <11> in OUT_HEQUIP] [goto EQP15ack] [endif][endif] ---------------------------------------------------------------------- >EQP13d_HPORTD< [missing ] Other main heating equipment type not reported until now: (AFTER ENTERING ANSWER, [U]READ[N] CATEGORY TO RESPONDENT TO VERIFY CLASSIFICATION.) (1) Forced warm-air furnace with ducts and vents to the individual rooms (2) Electric heat pump (3) Steam or hot water system with radiators OR other system using steam or hot water (4) Electric coils in floors, ceilings, or walls (5) UNVENTED room heaters burning kerosene, gas or oil (6) Portable electric heaters (7) Other: (Specify) @1 [if EQP13d_HPORTD@1 eq <7>] @2 [endif] [@1] <1,3-6,D,R> <7> <2> [goto EQP14a_AIRSYS1] [if EQP13d_HPORTD@1 eq <1>] [store <1> in OUT_HEQUIP] [goto EQP15aCK] [else] [if EQP13d_HPORTD@1 eq <3>] [store <2> in OUT_HEQUIP] [goto EQP15aCK] [else] [if EQP13d_HPORTD@1 eq <4>] [store <4> in OUT_HEQUIP] [goto EQP15aCK] [else] [if EQP13d_HPORTD@1 eq <5>] [store <7> in OUT_HEQUIP] [goto EQP15aCK] [else] [if EQP13d_HPORTD@1 eq <6>] [store <8> in OUT_HEQUIP] [goto EQP15aCK] [else] [if EQP13d_HPORTD@1 eq ] [store in OUT_HEQUIP] [goto EQP15aCK] [else] [if EQP13d_HPORTD@1 eq ] [store in OUT_HEQUIP] [goto EQP15aCK] [endif][endif][endif][endif] [endif][endif][endif] [@2] [allow 30] [if EQP13d_HPORTD@1 eq <7>] [store <12> in OUT_HEQUIP] [goto EQP15aCK] [endif] ---------------------------------------------------------------------- >EQP14a_AIRSYS1< [missing ] [store <> in temp2] [store <> in temp3] [if ISTATUS eq <1>] [store in temp2] [else] [store in temp2] [endif] [if EQP13d_HPORTD@1 eq <2> or EQP12c_HCENTC eq <2>] [store in temp3] [else] [store in temp3] [endif] [# Does [fill temp2] [fill temp3] provide air conditioning for [fill temp2] home? (1) Yes (2) No (D) Don't know - not sure @ [@] <1> <2,D,R> [if EQP14a_AIRSYS1 eq <1>] [store <3> in OUT_HEQUIP] [store <1> in OUT_AIRSYS] [store <1> in OUT_AFUEL] [goto EQP14b_OARSYS1] [else] [if EQP14a_AIRSYS1 eq <2>] [store <1> in OUT_HEQUIP] [goto EQP15aCK] [else] [if EQP14a_AIRSYS1 eq ] [store <15> in OUT_HEQUIP] [goto EQP15aCK] [else] [if EQP14a_AIRSYS1 eq ] [store <15> in OUT_HEQUIP] [goto EQP15aCK] [endif][endif][endif][endif] ---------------------------------------------------------------------- >EQP14b_OARSYS1< [missing ] [store <> in temp2] [if ISTATUS eq <1>] [store in temp2] [else] [if ISTATUS eq <2>] [store in temp2] [else] [if ISTATUS eq <3>] [store in temp2] [endif][endif][endif] Besides [fill temp2] heat pump, does [fill temp2] home have another CENTRAL air conditioning system? (1) Yes (2) No (D) Don't know - not sure @ [@] <1> <2,D,R> [if EQP14b_OARSYS1 eq <1>] [store EQP14b_OARSYS1 in OUT_OAIRSYS] [goto EQP14c_OAFUEL1] [ENDIF] [if EQP14b_OARSYS1 EQ <2> or EQP14b_OARSYS1 eq or EQP14b_OARSYS1 eq ] [store EQP14b_OARSYS1 in OUT_OAIRSYS] [goto EQP14d_AIR1] [endif] ---------------------------------------------------------------------- >EQP14c_OAFUEL1< [missing ] What kind of fuel does this other central air conditioning system use? (1) Electricity (2) Gas, LP Gas (liquid propane (LP) same as bottled gas) (3) Other: specify @1 [if EQP14c_OAFUEL1@1 eq <3>] @2 [endif] [@1] <1,2,D,R> <3> [store EQP14c_OAFUEL1@1 in OUT_OAFUEL] [goto EQP14d_AIR1] [@2] [allow 30] [store EQP14c_OAFUEL1@1 in OUT_OAFUEL] [goto EQP14d_AIR1] ---------------------------------------------------------------------- >EQP14d_AIR1< [missing ] [if ISTATUS eq <1> or ISTATUS eq <2>] Do you (also) use any room air conditioners? [else] [if ISTATUS eq <3>] Does the [fill HTYPEFILL] have any room air conditioners? [endif][endif] (1) Yes (2) No @ [@] <1> <2,D,R> [if EQP14d_AIR1 EQ <1>] [store EQP14d_AIR1 in OUT_AIR] [goto EQP14e_NUMAIR1][ENDIF] [if EQP14d_AIR1 EQ <2> or EQP14d_AIR1 EQ or EQP14d_AIR1 EQ ] [store EQP14d_AIR1 in OUT_AIR] [goto EQP15aCK] [endif] --------------------------------------------------------------------- >EQP14e_NUMAIR1< [missing ] How Many? (1-7) (8) 8 or more @ [@] <1-8,D,R> [store EQP14e_NUMAIR1 in OUT_NUMAIR] [goto EQP15aCK] ---------------------------------------------------------------------- >EQP15aCK< [if EQP13c_HPORTC eq <7> or EQP13c_HPORTC eq <8>] [store <1> in OUT_FPLWK] [goto EQP16aCK] [else] [goto EQP15a_FPLWKQ] [endif] ---------------------------------------------------------------------- >EQP15a_FPLWKQ< [missing ] [store <> in temp] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif][endif] [r](H)[n] Does [fill temp] [fill HTYPEFILL] have a usable fireplace? (1) Yes (2) No @ [@] <1> <2,D,R> [etc ] [if EQP15a_FPLWKq eq <1>] [store EQP15a_FPLWKQ in OUT_FPLWK] [goto EQP15b_FPHEQP] [endif] [if EQP15a_FPLWKq eq <2> or EQP15a_FPLWKq eq or EQP15a_FPLWKq eq ] [store EQP15a_FPLWKQ in OUT_FPLWK] [goto EQP16aCK][endif] ---------------------------------------------------------------------- >EQP15b_FPHEQP< [missing ] [store <> in temp] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif][endif] Do you consider [fill temp] fireplace to be heating equipment? (IF MORE THAN 1 FIREPLACE, ENTER "YES" IF ANY ARE CONSIDERED HEATING EQUIPMENT.) (1) Yes (2) No @ [@]<1> [goto EQP15c_FPINS] <2,D,R>[goto EQP16aCK] ---------------------------------------------------------------------- >EQP15c_FPINS< [missing ] Does it have inserts, that is, equipment designed to circulate more heat into the room? (1) Yes, all with inserts (2) Yes, some with inserts (3) No, none have inserts @ [@]<1,2> <3,D,R> [if EQP15c_FPINS eq <1>] [store in OUT_FRPLI] [goto EQP15dCK] [else] [if EQP15c_FPINS eq <2>] [store in OUT_FRPLI] [store in OUT_FRPL] [goto EQP15dCK] [else] [if EQP15c_FPINS eq <3> or EQP15c_FPINS eq or EQP15c_FPINS eq ] [store in OUT_FRPL] [goto EQP15dCK] [endif] [endif] [endif] --------------------------------------------------------------------- >EQP15dCK< [if OUT_HEQUIP eq <13> and EQP15c_FPINS eq <1>] [store in OUT_SFRPLI] [goto EQP15e_FPSPFUL] [else] [if OUT_HEQUIP eq <13> and EQP15c_FPINS eq <2>] [store in OUT_SFRPLI] [store in OUT_SFRPL] [goto EQP15e_FPSPFUL] [else] [if OUT_HEQUIP eq <13> and (EQP15c_FPINS eq <3> or EQP15c_FPINS eq or EQP15c_FPINS eq )] [store in OUT_SFRPL] [goto EQP15e_FPSPFUL] [else] [goto EQPCK15d] [endif][endif] [endif] ---------------------------------------------------------------------- >EQPCK15d<[store <> in temp2] [store <> in temp3] [store <> in temp] [if ISTATUS eq <1>] [store in temp2] [else] [if ISTATUS eq <2> or ISTATUS eq <3>] [store in temp2] [endif][endif] [# [if ISTATUS eq <1>] [make temp from ] [else] [make temp from < > htypefill] [endif] [# [if OUT_HEQUIP eq <1>] [store in temp3] [else] [if OUT_HEQUIP eq <2>] [store in temp3] [else] [if OUT_HEQUIP eq <3>] [store in temp3] [else] [if OUT_HEQUIP eq <4>] [store in temp3] [else] [if OUT_HEQUIP eq <5>] [store in temp3] [else] [if OUT_HEQUIP eq <6>] [store in temp3] [else] [if OUT_HEQUIP eq <7>] [store in temp3] [else] [if OUT_HEQUIP eq <8>] [store in temp3] [else] [if OUT_HEQUIP eq <9>] [store in temp3] [else] [if OUT_HEQUIP eq <12>] [store

in temp3] [else] [if OUT_HEQUIP eq <14>] [store in temp3] [else] [if OUT_HEQUIP eq <15>] [store in temp3] [endif][endif][endif][endif][endif][endif] [endif][endif][endif][endif][endif][endif] ---------------------------------------------------------------------- >EQP15d_FPSPEQP< [missing ] Is [fill temp2] fireplace used to heat an area of [fill temp] that would not be heated by [fill temp2] [fill temp3]? (1) Yes (2) No @ [@] <1,2,D,R> [if EQP15d_FPSPEQP eq <1> and EQP15c_FPINS eq <1>] [store in OUT_PFRPLI] [goto EQP15e_FPSPFUL] [else] [if EQP15d_FPSPEQP eq <1> and EQP15c_FPINS eq <2>] [store in OUT_PFRPLI] [store in OUT_PFRPL] [goto EQP15e_FPSPFUL] [else] [if EQP15d_FPSPEQP eq <1> and (EQP15c_FPINS eq <3> or EQP15c_FPINS eq or EQP15c_FPINS eq )] [store in OUT_PFRPL] [goto EQP15e_FPSPFUL] [else] [if EQP15d_FPSPEQP eq <2> and EQP15c_FPINS eq <1>] [store in OUT_SFRPLI] [goto EQP15e_FPSPFUL] [else] [if EQP15d_FPSPEQP eq <2> and EQP15c_FPINS eq <2>] [store in OUT_SFRPLI] [store in OUT_SFRPL] [goto EQP15e_FPSPFUL] [else] [if EQP15d_FPSPEQP eq <2> and (EQP15c_FPINS eq <3> or EQP15c_FPINS eq or EQP15c_FPINS eq )] [store in OUT_SFRPL] [goto EQP15e_FPSPFUL] [else] [if (EQP15d_FPSPEQP eq or EQP15d_FPSPEQP eq ) and (EQP15c_FPINS eq <3> or EQP15c_FPINS eq or EQP15c_FPINS eq )] [store in OUT_DFRPL] [goto EQP15e_FPSPFUL] [else] [if (EQP15d_FPSPEQP eq or EQP15d_FPSPEQP eq ) and EQP15c_FPINS eq <1>] [store in OUT_DFRPLI] [goto EQP15e_FPSPFUL] [if (EQP15d_FPSPEQP eq or EQP15d_FPSPEQP eq ) and EQP15c_FPINS eq <2>] [store in OUT_DFRPLI] [store in OUT_DFRPL] [goto EQP15e_FPSPFUL] [endif][endif][endif][endif][endif] [endif] [endif][endif] [endif] ---------------------------------------------------------------------- >EQP15e_FPSPFUL< [missing ] What fuel is used for the fireplace? (1) Gas (2) Wood (3) Other (specify) @ [@] <1,2,D,R>[goto @1] <3>[specify][goto @2] [@1] [if EQP15e_FPSPFUL eq <1> and EQP15c_FPINS eq <1>] [store <2> in OUT_FFRPLI] [goto EQP16aCK] [else] [if EQP15e_FPSPFUL eq <1> and EQP15c_FPINS eq <2>] [store <2> in OUT_FFRPLI] [store <2> in OUT_FFRPL] [goto EQP16aCK] [else] [if EQP15e_FPSPFUL eq <2> and EQP15c_FPINS eq <1>] [store <6> in OUT_FFRPLI] [goto EQP16aCK] [else] [if EQP15e_FPSPFUL eq <2> and EQP15c_FPINS eq <2>] [store <6> in OUT_FFRPLI] [store <6> in OUT_FFRPL] [goto EQP16aCK] [else] [if EQP15c_FPINS eq <3> and EQP15e_FPSPFUL eq <1>] [store <2> in OUT_FFRPL] [goto EQP16aCK] [else] [if EQP15c_FPINS eq <3> and EQP15e_FPSPFUL eq <2>] [store <6> in OUT_FFRPL] [goto EQP16aCK] [else] [store EQP15e_FPSPFUL in OUT_FFRPLI] [goto EQP16aCK] [endif][endif][endif] [endif][endif][endif] [@2] [allow 30] [if EQP15e_FPSPFUL eq <3> and EQP15c_FPINS eq <1>] [store <8> in OUT_FFRPLI] [goto EQP16aCK] [else] [if EQP15e_FPSPFUL eq <3> and EQP15c_FPINS eq <2>] [store <8> in OUT_FFRPLI] [store <8> in OUT_FFRPL] [goto EQP16aCK] [else] [if EQP15c_FPINS eq <3> and EQP15e_FPSPFUL eq <3>] [store <8> in OUT_FFRPL] [goto EQP16aCK] [else] [store EQP15e_FPSPFUL in OUT_FFRPL] [goto EQP16aCK] [endif][endif][endif] ---------------------------------------------------------------------- >EQP16aCK< [if EQP11b_HFUELB eq <1> or EQP11b_HFUELB eq or EQP11b_HFUELB eq ] [goto EQP17aCK] [else] [goto EQP16a] [endif] ---------------------------------------------------------------------- >EQP16a< [window 3 size 21 rows 80 columns] [missing ] [store <> in temp] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif][endif] What OTHER kinds of working heating equipment does [fill temp] [r](H)[n] [fill HTYPEFILL] HAVE or USE? ***READ ALOUD ALL BOLDED CATEGORIES, MARK (X) ALL THAT APPLY*** [BOLD]@STOVE Woodburning, Pot Belly, or Franklin stoves?[n] [BOLD]@PORTH PORTABLE electric heaters?[n] [BOLD]@ELECT BUILT-IN electric units?[n] [BOLD]@ROOM Room heaters burning kerosene, gas or oil?[n] [if EQP16a@STOVE eq or EQP16a@PORTH eq or EQP16a@ELECT eq or EQP16a@ROOM eq ] Anything else? [else] [if ISTATUS eq <1> and EQP16a@STOVE eq <> and EQP16a@PORTH eq <> and EQP16a@ELECT eq <> and EQP16a@ROOM eq <>] Do you have another kind of working heating equipment I haven't read? [else] [if ISTATUS eq <2> and EQP16a@STOVE eq <> and EQP16a@PORTH eq <> and EQP16a@ELECT eq <> and EQP16a@ROOM eq <>] Does the [fill HTYPEFILL] have another kind of working heating equipment I haven't read? [else] [if ISTATUS eq <3> and EQP16a@STOVE eq <> and EQP16a@PORTH eq <> and EQP16a@ELECT eq <> and EQP16a@ROOM eq <>] Does that [fill HTYPEFILL] have another kind of working heating equipment I haven't read? [endif][endif][endif][endif] IF YES, MARK (X) FOR EACH ADDITIONAL TYPE REPORTED. IF "NO", MARK (X) NONE @NOCAT None @COOKST Electric or gas cook stove @PLF Floor, wall or other pipeless furnace built into the structure @AFUR Forced warm-air furnace with ducts & vents to individual rooms @HPMP Heat pump @STEAM Steam/hot water system with radiators OR other system using steam/hot water @HOTH Other, specify [@STOVE] [optional] [etc ] [@PORTH] [optional] [etc ] [@ELECT] [optional] [etc ] [@ROOM] [goto EQP16aPOP] [optional] [etc ] [@NOCAT] [goto EQP16bCK1] [optional] [etc ] [@COOKST] [optional] [etc ] [@PLF] [optional] [etc ] [@AFUR] [optional] [etc ] [@HPMP] [optional] [etc ] [@STEAM] [optional] [etc ] [@HOTH] [specify] [etc ] [optional] [default goto EQP16bCK1] ---------------------------------------------------------------------- >EQP16aPOP< [window 9 size 7 rows 70 columns] [missing ] Is it VENTED to the outside through a chimney, flue, or pipes OR is it UNVENTED? @FLOT Yes, VENTED to the outside through a chimney,flue, or pipes @FLIN No, UNVENTED [@FLOT] [optional] [@FLIN] [optional] --------------------------------------------------------------------- >EQP16aPOPCK< [window 3 size 21 rows 80 columns] [if EQP16aPOP@FLOT eq <> or EQP16aPOP@FLOT eq or EQP16aPOP@FLOT eq or EQP16aPOP@FLOT eq ] [goto EQP16a@NOCAT] [else] [if EQP16aPOP@FLIN eq <> or EQP16aPOP@FLIN eq or EQP16aPOP@FLIN eq or EQP16aPOP@FLIN eq ] [goto EQP16a@NOCAT] [endif][endif] --------------------------------------------------------------------- >EQP16bCK1< [window 3 size 21 rows 80 columns] [if EQP16a@NOCAT eq <> and EQP16a@STOVE eq <> and EQP16a@PORTH eq <> and EQP16a@ELECT eq <> and EQP16a@ROOM eq <> and EQP16a@COOKST eq <> and EQP16a@PLF eq <> and EQP16a@AFUR eq <> and EQP16a@HPMP eq <> and EQP16a@STEAM eq <> and EQP16a@HOTH eq <>] [store in OUT_NONE] [goto EQP17aCK] [else] [if EQP16a@NOCAT eq and EQP16a@STOVE eq <> and EQP16a@PORTH eq <> and EQP16a@ELECT eq <> and EQP16a@ROOM eq <>] [store EQP16a@NOCAT in OUT_NONE] [goto EQP17aCK] [else] [if EQP16a@PORTH eq and eqp16a@stove eq <> and eqp16a@elect eq <> and eqp16a@room eq <> and eqp16a@nocat eq ] [store eqp16a@porth in out_sporth] [store <1> in out_fporth] [store in out_nomore] [store <2> in eqp16b_speqp1] [store <1> in eqp16c_spfuel1@1] [goto eqp17ack] [else] [if EQP16a@NOCAT eq and (EQP16a@STOVE eq or EQP16a@ELECT eq or EQP16a@ROOM eq )] [store EQP16a@NOCAT in OUT_NOMORE] [goto EQP16bCK2] [endif] [endif] [endif] [endif] ---------------------------------------------------------------------- >EQP16bCK2< [store <0> in eflag] [store <> in EQPRAY] [if EQP16a@STOVE eq ] [add <1> to eflag] [if eflag gt <3>] [goto EQP16bCK3] [else] [store in EQPRAY(eflag)] [endif] [endif] [if EQP16a@porth eq ] [add <1> to eflag] [if eflag gt <3>] [goto eqp16bck3] [else] [store in eqpray(eflag)] [endif] [endif] [if EQP16a@ELECT eq ] [add <1> to eflag] [if eflag gt <3>] [goto EQP16bCK3] [else] [store in EQPRAY(eflag)] [endif] [endif] [if EQP16a@ROOM eq and EQP16aPOP@FLOT eq ] [add <1> to eflag] [if eflag gt <3>] [goto EQP16bCK3] [else] [store in EQPRAY(eflag)] [endif] [endif] [if EQP16a@ROOM eq and EQP16aPOP@FLIN eq ] [add <1> to eflag] [if eflag gt <3>] [goto EQP16bCK3] [else] [store in EQPRAY(eflag)] [endif] [endif] [if EQP16a@COOKST eq ] [add <1> to eflag] [if eflag gt <3>] [goto EQP16bCK3] [else] [store in EQPRAY(eflag)] [endif] [endif] [if EQP16a@PLF eq ] [add <1> to eflag] [if eflag gt <3>] [goto EQP16bCK3] [else] [store in EQPRAY(eflag)] [endif] [endif] [if EQP16a@AFUR eq ] [add <1> to eflag] [if eflag gt <3>] [goto EQP16bCK3] [else] [store in EQPRAY(eflag)] [endif] [endif] [if EQP16a@HPMP eq ] [add <1> to eflag] [if eflag gt <3>] [goto EQP16bCK3] [else] [store in EQPRAY(eflag)] [endif] [endif] [if EQP16a@STEAM eq ] [add <1> to eflag] [if eflag gt <3>] [goto EQP16bCK3] [else] [store in EQPRAY(eflag)] [endif] [endif] [if EQP16a@HOTH eq ] [add <1> to eflag] [if eflag gt <3>] [goto EQP16bCK3] [else] [store in EQPRAY(eflag)] [endif] [endif] ---------------------------------------------------------------------- >EQP16bCK3< [if eflag eq <0>] [goto EQP17aCK] [else] [goto EQP16b_SPEQP1] [endif] ---------------------------------------------------------------------- >EQP16b_SPEQP1< [missing ] [window 3 size 21 rows 80 columns] [store <> in temp] [if eqpray(<1>) eq ] [store <2> in eqp16b_speqp1] [store <1> in eqp16c_spfuel1@1] [store in out_sporth] [store <1> in out_fporth] [goto eqp16bck4] [endif] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif][endif] [store <> in temp3] [if OUT_HEQUIP eq <1>] [store in temp3] [else] [if OUT_HEQUIP eq <2>] [store in temp3] [else] [if OUT_HEQUIP eq <3>] [store in temp3] [else] [if OUT_HEQUIP eq <4>] [store in temp3] [else] [if OUT_HEQUIP eq <5>] [store in temp3] [else] [if OUT_HEQUIP eq <6>] [store in temp3] [else] [if OUT_HEQUIP eq <7>] [store in temp3] [else] [if OUT_HEQUIP eq <8>] [store in temp3] [else] [if OUT_HEQUIP eq <9>] [store in temp3] [else] [if OUT_HEQUIP eq <12>] [store
in temp3] [else] [if OUT_HEQUIP eq <14>] [store in temp3] [else] [if OUT_HEQUIP eq <15>] [store in temp3] [endif][endif][endif][endif][endif][endif] [endif][endif][endif][endif][endif][endif] [# Is [fill temp] [fill EQPRAY(<1>)] used to heat an area of [fill temp] [fill HTYPEFILL] that would not be heated by [fill temp] [fill temp3]? (1) Yes, parallel (2) No, supplemental @ [@] <1,2,D,R> [goto @a] [@a] [if eqpray(<1>) eq ] [store <1> in eqp16c_spfuel1@1] [store <1> in OUT_FELECT] [goto eqp16bck4] [else] [goto eqp16c_spfuel1@1] [endif] ---------------------------------------------------------------------- >EQP16c_SPFUEL1< [window 3 size 21 rows 80 columns] [missing ] [store <> in temp] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif][endif] What type of fuel does [fill temp] [fill EQPRAY(<1>)] use? "MARK WITHOUT ASKING FOR ELECTRIC UNITS" (1) Electricity (2) Gas, LP gas (liquid propane) (3) Fuel oil (4) Kerosene or other liquid fuel (5) Coal or coke (6) Wood (7) Solar energy (8) Other, (SPECIFY) @1 [if EQP16c_SPFUEL1@1 eq <8>] @2 [endif] [@1]<1-7,D,R> <8> [@2] [specify] ---------------------------------------------------------------------- >EQP16bCK4< [if eflag eq <1>] [goto EQP17aCK] [else] [goto EQP16b_SPEQP2] [endif] ---------------------------------------------------------------------- >EQP16b_SPEQP2< [store <> in temp] [if eqpray(<2>) eq ] [store <2> in eqp16b_speqp2] [store <1> in eqp16c_spfuel2@1] [store in out_sporth] [store <1> in out_fporth] [goto eqp16bck5] [endif] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif][endif] [# [if OUT_HEQUIP eq <1>] [store in temp3] [else] [if OUT_HEQUIP eq <2>] [store in temp3] [else] [if OUT_HEQUIP eq <3>] [store in temp3] [else] [if OUT_HEQUIP eq <4>] [store in temp3] [else] [if OUT_HEQUIP eq <5>] [store in temp3] [else] [if OUT_HEQUIP eq <6>] [store in temp3] [else] [if OUT_HEQUIP eq <7>] [store in temp3] [else] [if OUT_HEQUIP eq <8>] [store in temp3] [else] [if OUT_HEQUIP eq <9>] [store in temp3] [else] [if OUT_HEQUIP eq <12>] [store
in temp3] [else] [if OUT_HEQUIP eq <14>] [store in temp3] [else] [if OUT_HEQUIP eq <15>] [store in temp3] [endif][endif][endif][endif][endif][endif] [endif][endif][endif][endif][endif][endif] [# Is [fill temp] [fill EQPRAY(<2>)] used to heat an area of [fill temp] [fill HTYPEFILL] that would not be heated by [fill temp] [fill temp3]? (1) Yes, parallel (2) No, supplemental @ [@] <1,2,D,R> [goto @a] [@a][if eqpray(<2>) eq ] [store <1> in eqp16c_spfuel2@1] [store <1> in OUT_FELECT] [goto eqp16bck5] [else] [goto eqp16c_spfuel2] [endif] ---------------------------------------------------------------------- >EQP16c_SPFUEL2< [missing ] [store <> in temp] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif][endif] What type of fuel does [fill temp] [fill EQPRAY(<2>)] use? (1) Electricity (2) Gas, LP gas (liquid propane) (3) Fuel oil (4) Kerosene or other liquid fuel (5) Coal or coke (6) Wood (7) Solar energy (8) Other, (SPECIFY) @1 [if EQP16C_SPFUEL2@1 EQ <8>] @2 [endif] [@1] <1-7> [@2] <8> [specify] ---------------------------------------------------------------------- >EQP16bCK5< [if eflag eq <2>] [goto EQP17aCK] [else] [goto EQP16b_SPEQP3] [endif] ---------------------------------------------------------------------- >EQP16b_SPEQP3< [missing ][store <> in temp] [if eqpray(<3>) eq ] [store <2> in eqp16b_speqp3] [store <1> in eqp16c_spfuel3@1] [store in out_sporth] [store <1> in out_fporth] [goto eqp17ack] [endif] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif][endif] [store <> in temp3] [if OUT_HEQUIP eq <1>] [store in temp3] [else] [if OUT_HEQUIP eq <2>] [store in temp3] [else] [if OUT_HEQUIP eq <3>] [store in temp3] [else] [if OUT_HEQUIP eq <4>] [store in temp3] [else] [if OUT_HEQUIP eq <5>] [store in temp3] [else] [if OUT_HEQUIP eq <6>] [store in temp3] [else] [if OUT_HEQUIP eq <7>] [store in temp3] [else] [if OUT_HEQUIP eq <8>] [store in temp3] [else] [if OUT_HEQUIP eq <9>] [store in temp3] [else] [if OUT_HEQUIP eq <12>] [store
in temp3] [else] [if OUT_HEQUIP eq <14>] [store in temp3] [else] [if OUT_HEQUIP eq <15>] [store in temp3] [endif][endif][endif][endif][endif][endif] [endif][endif][endif][endif][endif][endif] Is [fill temp] [fill EQPRAY(<3>)] used to heat an area of [fill temp] [fill HTYPEFILL] that would not be heated by [fill temp] [fill temp3]? (1) Yes, parallel (2) No, supplemental @ [@] <1,2,D,R> [goto @a] [@a][if eqpray(<3>) eq ] [store <1> in eqp16c_spfuel3@1] [store <1> in OUT_FELECT] [goto eqp17ack] [else] [goto eqp16c_spfuel3] [endif] --------------------------------------------------------------------------------- >EQP16c_SPFUEL3< [store <> in temp] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif][endif] What type of fuel does [fill temp] [fill EQPRAY(<3>)] use? (1) Electricity (2) Gas, LP gas (liquid propane) (3) Fuel oil (4) Kerosene or other liquid fuel (5) Coal or coke (6) Wood (7) Solar energy (8) Other, (SPECIFY) @1 [IF EQP16C_SPFUEL3@1 eq <8>] @2 [ENDIF] [@1] <1-7> [missing] [@2] <8> [specify] ---------------------------------------------------------------------- >EQP17aCK< [if EQP14a_AIRSYS1 eq <1>] [goto EQP_END] [else] [if cdepstat eq <1> and I_airsys eq <1>] [goto EQP17av_ARSYS2V] [else] [goto EQP17a_AIRSYS2] [endif][endif] ---------------------------------------------------------------------- >EQP17av_ARSYS2V< [missing ] (Last time) we recorded that your [fill htypefill] had central air conditioning. Is this information still correct? (1) Yes (2) No (D) Don't know - not sure @ [@] <1> [goto ARSYS2VCK1] <2,D,R> [goto ARSYS2VCK2] ---------------------------------------------------------------------- >ARSYS2VCK1< [if EQP17av_ARSYS2V EQ <1>] [store EQP17av_ARSYS2V in OUT_AIRSYS] [goto EQP17bck][endif] ---------------------------------------------------------------------- >ARSYS2VCK2< [if EQP17av_ARSYS2V EQ <2> or EQP17av_ARSYS2V eq OR EQP17av_ARSYS2V eq ] [store EQP17av_ARSYS2V in OUT_AIRSYS] [goto EQP17e_AIR2][endif] ---------------------------------------------------------------------- >EQP17a_AIRSYS2< [window 3 size 21 rows 80 columns] [missing ] [store <> in temp] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif][endif] [r](H)[n] Does [fill temp] [fill HTYPEFILL] have central air conditioning? (1) Yes (2) No @ [@]<1> [goto @a] <2,D,R> [goto @b] [etc ] [@a] [if EQP17a_AIRSYS2 eq <1>] [store EQP17a_AIRSYS2 in OUT_AIRSYS] [goto EQP17bck][endif] [@b] [if EQP17a_AIRSYS2 EQ <2> or EQP17a_AIRSYS2 eq OR EQP17a_AIRSYS2 eq ] [store EQP17a_AIRSYS2 in OUT_AIRSYS] [goto EQP17e_AIR2][endif] ---------------------------------------------------------------------- >EQP17BCK< [if cdepstat eq <2>] [goto eqp17b_afuelq] [endif] [if cdepstat eq <1> and (I_AFUEL eq <1> or I_AFUEL eq <2>)] [goto eqp17bvr_afuelv] [else] [goto eqp17b_afuelq] [endif] ---------------------------------------------------------------------- >EQP17bvr_AFUELV< [missing ] [store <> in temp] [if I_AFUEL eq <1>] [store in temp] [else] [if I_AFUEL eq <2>] [store in temp] [endif][endif] (Last time) we recorded that your central air conditioning used [fill temp]. Is this information still correct? (1) Yes (2) No (D) Don't know - not sure @ [@] <1,R> [goto AFUELVCK1] <2,D> [goto eqp17b_afuelq] ---------------------------------------------------------------------- >AFUELVCK1< [if EQP17bvr_AFUELV eq <1>] [store I_AFUEL in OUT_AFUEL] [goto eqp17c_oarsys2] [else] [if EQP17bvr_AFUELV eq ] [store in OUT_AFUEL] [goto eqp17c_oarsys2] [endif] [endif] ---------------------------------------------------------------------- >EQP17b_AFUELQ< [missing ] What kind of fuel does it use? (1) Electricity (2) Gas, LP Gas (liquid propane) (3) Other, (Specify) @1 [if EQP17b_AFUELq@1 EQ <3>] @2 [ENDIF] [@1] <1,2,D,R> <3> [store EQP17b_AFUELQ@1 in OUT_AFUEL] [@2] [ALLOW 30] [store EQP17b_AFUELQ@1 in OUT_AFUEL] ---------------------------------------------------------------------- >EQP17c_OARSYS2< [missing ] [store <> in temp] [if ISTATUS eq <1>] [store in temp] [else] [if ISTATUS eq <2>] [store in temp] [else] [if ISTATUS eq <3>] [store in temp] [endif][endif][endif] Does [fill temp] home have ANOTHER CENTRAL air conditioning system? (1) Yes (2) No (D) Don't know - not sure @ [@] <1> <2,D,R> [if EQP17C_OARSYS2 EQ <1>] [store EQP17c_OARSYS2 in OUT_OAIRSYS] [goto EQP17d_OAFUEL2] [ENDIF] [IF EQP17c_OARSYS2 eq <2> or EQP17c_OARSYS2 eq or EQP17c_OARSYS2 eq ] [store EQP17c_OARSYS2 in OUT_OAIRSYS] [goto EQP17e_AIR2] [endif] ---------------------------------------------------------------------- >EQP17d_OAFUEL2< [missing ] What kind of fuel does this other central air conditioning system use? (1) Electricity (2) Gas, LP Gas (liquid propane (LP) same as bottled gas) (3) Other, (Specify) @ [@] <1,2,D,R> <3> [specify] [IF EQP17d_OAFUEL2 eq <1> or EQP17d_OAFUEL2 eq <2> or EQP17d_OAFUEL2 eq <3> or EQP17d_OAFUEL2 eq or EQP17d_OAFUEL2 eq ] [store EQP17d_OAFUEL2 in OUT_OAFUEL] [ENDIF] ---------------------------------------------------------------------- >EQP17e_AIR2< [missing ] [store <> in temp] [if EQP17a_AIRSYS2 eq <1>] [store in temp] [else] [store in temp] [endif] [if ISTATUS eq <1> or ISTATUS eq <2>] Do [fill temp] use any room air conditioners? [else] [if ISTATUS eq <3>] Does the [fill HTYPEFILL] have any room air conditioners? [endif][endif] (1) Yes (2) No @ [@] <1> <2,D,R> [if EQP17e_AIR2 EQ <1>] [store EQP17e_AIR2 in OUT_AIR] [goto EQP17f_NUMAIR2][ENDIF] [if EQP17e_AIR2 eq <2> or EQP17e_AIR2 eq or EQP17e_AIR2 eq ] [store EQP17e_AIR2 in OUT_AIR] [goto EQP_END] [ENDIF] ---------------------------------------------------------------------- >EQP17f_NUMAIR2< [missing ] How many? (1-7) 1-7 (8) 8 or more @ [@]<1-8,D,R> [store EQP17f_NUMAIR2 in OUT_NUMAIR] [goto EQP_END] ---------------------------------------------------------------------- [# REFERENCE SCREENS ---------------------------------------------------------------------- >EQP1aH< [reference] The cookstove or range does NOT have to be mechanical; wood-burning stoves are included. If the cookstove or range is not working, but the household plans to fix or replace it soon then count as working and enter (1) Yes. [bold]PRESS ENTER TO CONTINUE INTERVIEW @ [normal] [@] [nodata] [return from help] ---------------------------------------------------------------------- >EQP2H< [reference] Kerosene or other liquid fuel- includes gasoline, alcohol, or other combustible liquids. Excludes LP/bottled gas which is reported under category 2. Other - specify the type; for example, briquettes made of pitch and sawdust, coaldust, waste material like corncobs, purchased steam, or any other fuel not listed. [bold]PRESS ENTER TO CONTINUE INTERVIEW @ [normal] [@] [nodata] [return from help] ---------------------------------------------------------------------- >EQP3H< [reference] A freezer is not necessary to identify it as a refrigerator. If the refrigerator is not working, but the household plans to to fix or replace it soon then count as working and enter (1) Yes. [bold]PRESS ENTER TO CONTINUE INTERVIEW @ [normal] [@] [nodata] [return from help] ---------------------------------------------------------------------- >EQP4H< [reference] A sink must be in the unit or on an enclosed porch, but does not have to be in the kitchen. Exclude a bathroom sink as a kitchen sink. [bold]PRESS ENTER TO CONTINUE INTERVIEW @ [normal] [@] [nodata] [return from help] ---------------------------------------------------------------------- >EQP7aH< [reference] Public sewer - Unit is connected to a city, county, sanitary district, neighborhood, or subdivision sewer. Include only a system operated by a government body or a private organization sewage treatment system serving 6 or more units. Include also if unit is connected to a small sewage treeatment plant which is also known as a neighborhood septic tank. [bold]PRESS ENTER TO CONTINUE INTERVIEW @ [normal] [@] [nodata] [return from help] ---------------------------------------------------------------------- >EQP7bH< [reference] [bold][u] Septic Tank[n] - an underground tank for sewage disposal serving 5 or fewer units. Tank can be connected to a public sewer which catches overflow. [bold][u] Cesspool[n] - (Reviewers: What is definition, is it just another term for "septic tank"?) [bold]PRESS ENTER TO CONTINUE INTERVIEW @ [normal] [@] [nodata] [return from help] ---------------------------------------------------------------------- >EQP10aH< [reference] [bold][u] Public or Private water system[n] - running water that comes from a city, county, water district, water company, or similar system. [bold][u] Individual well[n] - water from a well on the property or on a neighboring property. Individual wells serve 5 or fewer units in only one or in several buildings. Include well water that is hand drawn, wind drawn, or engine drawn, piped or not piped, stored in tanks or used directly from the well. [bold][u] Bottled water[n] - mark this answer if it is the ONLY source of drinking water. [bold]PRESS ENTER TO CONTINUE INTERVIEW @ [normal] [@] [nodata] [return from help] ---------------------------------------------------------------------- >EQP10dH< [reference] [bold]Definition of serve[n]- A house is served by a public or private water system, well, spring, cistern, stream or lake, if there is a connecting pipe from the water source to the house, or the water source is located at a particular site, and the occupants of the house on that site use it as their source of water. [bold]PRESS ENTER TO CONTINUE INTERVIEW @ [normal] [@] [nodata] [return from help] ---------------------------------------------------------------------- >EQP13aH< [reference] Portable: * UNVENTED room heaters burning kerosene, gas or oil * Portable electric heaters * Other portable heaters MARK "NOT PORTABLE" FOR ANY OTHER TYPE OF EQUIPMENT. [bold]PRESS ENTER TO CONTINUE INTERVIEW @ [normal] [@] [nodata] [return from help] ---------------------------------------------------------------------- >EQP15a_FPLWKHEL< [reference] Include free standing fireplaces. Exclude decorative or artificial fireplaces and Franklin stoves. Enter (2) "No" for fireplaces that have been blocked off or filled. [bold]PRESS ENTER TO CONTINUE INTERVIEW @ [normal] [@] [nodata] [return from help] _____________________________________________________________________ >EQP16aH< [reference] The heating equipment need only be present in the unit/building, it does not have to be in current use. Exclude equipment not in working order and for which there are no immediate plans for repair. [bold]PRESS ENTER TO CONTINUE INTERVIEW @ [normal] [@] [nodata] [return from help] ---------------------------------------------------------------------- >EQP17aH< [reference] [b][u]Central air conditioning[n][n] - Air cooled by refrigeration; a central installation that provides cooled air to a number of rooms. A central system with individual room controls is also central air conditioning. Do not include evaporative coolers, such as swamp coolers. [bold]PRESS ENTER TO CONTINUE INTERVIEW @ [normal] [@] [nodata] [return from help] ---------------------------------------------------------------------- >EQP_END< [window 3 size 21 rows 80 columns] [store <1> in EQP_CMP] [stop timer][no erase] [record timer in EQUIP_TME] ____________________________________________________________________ Date: 4/1/99 Revisions: 6/14/2001 version 2 ---------------------------------------------------------------------- Survey: AMERICAN HOUSING SURVEY - 2001 National Module: Breakdown - BRKDN Programmer: Tazreen Chowdhury Judy Hodges ---------------------------------------------------------------------- **TEMPORARY VARIABLES** >BRDATE< [allow 8] >BRKOTHER< [allow 4] ______________________________________________________________________ >BRKDNCK< [start timer][no erase] [if ISTATUS eq <2> or ISTATUS eq <3>] [goto BRKDN6a_NOWIR1] [else] [if OUT_HEQUIP eq <13> or OUT_HEQUIP eq <>] [goto BRKDNCK2a] [endif][endif] --------------------------------------------------------------------- >BRKDNINTRO< [setdate DATE] [section BRKDN] [store <> in temp] [if ISTATUS eq <3>] [store in temp] [else] [store in temp] [endif] The next series of questions are about problems that some people have experienced with their homes. We are interested in knowing if [fill temp] have experienced these types of problems too. PRESS (P) TO CONTINUE INTERVIEW @ [@]

____________________________________________________________________ >BEG_EMOV< [roster begin persons] [#FINDS THE EARLIEST MOVE-IN DATE [if movyr eq <> or movyr eq or movyr eq or movm eq <> or movm eq or movm eq ] [goto end_emov] [endif] [if skipflag(l_no) ne <1>] [if movdate eq <>] [make MOVDATE from MOVM:0 <15> MOVYR] [goto END_EMOV] [endif] [endif] [if skipflag(l_no) ne <1>] [make MOVDATE2 from MOVM:0 <15> MOVYR] [subdate MOVDATE2 from MOVDATE into temp] [if {int}temp gt <0>] [store MOVDATE2 in MOVDATE] [endif][endif] ---------------------------------------------------------------------- >END_EMOV< [roster end persons] ---------------------------------------------------------------------- >PRE_BRKDN1a< [store <0> in index] [roster begin persons] [if MOVYR eq YEAR and MOVM gt <2>] [add <1> to index] [endif] [roster end persons] [IF index eq PCNT] [store <3> in OUT_FREEZE] [goto BRKDNCK2a] [ENDIF] ---------------------------------------------------------------------- >BRKDN1a_FREEZEQ< [missing ] [store <> in temp] [if PCNT eq <1>] [store in temp] [else] [store in temp] [endif] Last winter, for any reason, was your [fill HTYPEFILL] so cold for 24 hours or more that [fill temp] uncomfortable? (DO NOT COUNT VISITORS, ONLY HOUSEHOLD MEMBERS) (1) Yes (2) No @ [@] <1,2,D,R> [store BRKDN1a_FREEZEQ in OUT_FREEZE] [IF BRKDN1a_FREEZEQ eq <1>] [goto BRKDN1b_IFCOLD] [else] [goto BRKDNCK2a] [endif] ______________________________________________________________________ >BRKDN1b_IFCOLD< [missing ] [r](H)[n] Was that because the MAIN heating equipment broke down? (1) Yes (2) No, didn't break down OR no heating equipment @ [@] <1> [goto BRKDN1c_NUMCOLD] <2> [goto BRKDN1e] [goto BRKDNCK2a] [etc ] _____________________________________________________________________ >BRKDN1c_NUMCOLD< [missing ] How many times did the MAIN heating equipment break down for 6 hours or more? (0) Never broken down for 6 hours (1-7) 1-7 breakdowns lasting 6 hours or more (8) 8 or more breakdowns lasting 6 hours or more @ [@] <0-8,D,R> [goto BRKDN1d_OTHCOLD] ______________________________________________________________________ >BRKDN1d_OTHCOLD< [missing ] Was it cold for any other reason? (1) Yes (2) No @ [@] <1> [goto BRKDN1e] <2,D,R> [goto BRKDNCK2a] ______________________________________________________________________ >BRKDN1e< [open BRKDN1e] [missing ] What was the reason? [bold]MARK (X) ALL THAT APPLY.[normal] @WHYCD1 Utility interruption @WHYCD2 Inadequate heating capacity @WHYCD3 Inadequate insulation @WHYCD4 Cost of heating @WHYCD5 Other, specify [@WHYCD1] [optional][goto BRKDNCK2a] [etc ] [@WHYCD2] [optional][goto BRKDNCK2a] [etc ] [@WHYCD3] [optional][goto BRKDNCK2a] [etc ] [@WHYCD4] [optional][goto BRKDNCK2a] [etc ] [@WHYCD5] [specify] [optional] [goto BRKDNCK2a] [etc ] ______________________________________________________________________ >BRKDNCK2a< [# not displayed [if EQP8a@HOTPIP1 eq <1> or EQP8d@HOTPIP2 eq <1> or OUT_HOTPIP eq <1>] [goto BRKDN2a_IFDRY] [if INV9a@BATHS ge <2> goto BRKDN2a_IFDRY] [else] [goto BRKDNCK3a] [endif] ---------------------------------------------------------------------- >BRKDN2a_IFDRY< [missing ] [setdate DATE] [store <> in temp] [store <> in temp4] [store DATE in T_INTDATE] [subdate MOVDATE from T_INTDATE into temp] [store in temp4] [if {int}temp le <90>] [#less than three months prior to int date [if PCNT eq <1>] [store in temp4] [else] [store in temp4] [endif] [endif] Was your home ever [bold]COMPLETELY[normal] without running water [fill temp4]? (1) Yes (2) No water stoppage @ [@] <1> [goto BRKDN2b_NUMDRY] <2,D,R> [goto BRKDNCK3a] [etc ] ______________________________________________________________________ >BRKDN2b_NUMDRY< [missing ] How many times was it not available for 6 hours or more? (0) None lasted 6 hours (1-7) 1-7 water stoppages lasting 6 hours or more (8) 8 or more water stoppages lasting 6 hours or more @ [@] <0-8,D,R> [goto BRKDNCK3a] ______________________________________________________________________ >BRKDNCK3a< [if OUT_TOILET ne <1>] [goto BRKDN4a_LEAK1] [else] [goto BRKDN3a_IFTLT1] [endif] --------------------------------------------------------------------- >BRKDN3a_IFTLT1< [missing ] [store <> in temp1] [store <> in temp2] [store <> in temp3] [store <> in temp4] [# [IF {int}temp gt <335>] [#11 or more months prior to interview date [store in temp1] [endif] [if {int}temp le <335>] [#less than 11 months prior to int date [if PCNT eq <1>] [store in temp1] [else] [store in temp1] [endif] [endif] [if INV9a@BATHS ge <2> or INV9a@BATHS ge <02> or (inv9a@baths eq <1> and inv9a@halfb ge <1>)] [store in temp2] [store in temp3] [store in temp4] [else] [store in temp2] [store in temp3] [endif] Was there any time [fill temp1] when [fill temp2] BROKEN, or STOPPED UP, or otherwise NOT WORKING, so you COULDN'T USE [fill temp3]? (1) Yes (2) No toilet breakdowns @ [@] <1> [goto BRKDNck3b] <2,D,R> [goto @b] [etc ] [@b] [store BRKDN3a_IFTLT1 in OUT_IFTLT] [goto BRKDN4a_LEAK1] ______________________________________________________________________ >BRKDNck3b< [if {int}temp le <90>] [store <1> in BRKDN3b_IFTLT2] [store <1> in OUT_IFTLT] [goto BRKDN3c_NUM3TLT] [else] [goto BRKDN3b_IFTLT2] [endif] ______________________________________________________________________ >BRKDN3b_IFTLT2< [missing ] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <0> in index] [# [store DATE in T_INTDATE] [adddate <-90> to T_INTDATE] [datestring monthname from t_intdate into temp6] [datestring year from t_intdate into temp7] [make temp8 from temp6 < > temp7] Did that happen at all WITHIN THE PAST THREE MONTHS, that is, since [fill temp8]? (1) Yes (2) No @ [@] <1> <2,D,R> [IF BRKDN3b_IFTLT2 EQ <1>] [store BRKDN3b_IFTLT2 in OUT_IFTLT] [goto BRKDN3c_NUM3TLT][ENDIF] [IF BRKDN3b_IFTLT2 EQ <2> or BRKDN3b_IFTLT2 EQ or BRKDN3b_IFTLT2 EQ ] [store BRKDN3b_IFTLT2 in OUT_IFTLT] [goto BRKDN4a_LEAK1] [ENDIF] ______________________________________________________________________ >BRKDN3c_NUM3TLT< [missing ] [store <> in temp10] [store <> in temp11] [store <> in temp12] [subdate MOVDATE from T_INTDATE into temp] [# [if {int}temp le <90>] [# LESS THAN 3 MONTH PRIOR] [datestring monthname from movdate into temp10] [datestring year from movdate into temp11] [make temp12 from temp10 < > temp11] [endif] [# [store <> in temp1] [if (INV9a@BATHS ge <2> or INV9a@BATHS ge <02>) or (inv9a@baths eq <1> and inv9a@halfb ge <1>)] [store in temp1] [else] [store in temp1] [endif] [if {int}temp le <90>] HOW MANY TIMES since [fill temp12] [fill temp1] not working? [else] HOW MANY TIMES since [fill temp8] [fill temp1] not working? [endif] (1-7) 1-7 toilet breakdowns (8) 8 or more toilet breakdowns @ [@] <1-8,D,R> [store BRKDN3c_NUM3TLT in OUT_NUM3TLT] [goto BRKDN3d_NUMTLT] ______________________________________________________________________ >BRKDN3d_NUMTLT< [missing ] [store <> in temp] [if (INV9a@BATHS eq <1> and INV9a@HALFB ge <1>) or (INV9a@BATHS ge <2> or INV9a@BATHS ge <02>)] [store in temp] [else] [store in temp] [endif] And how many of those times [fill temp] not working for SIX HOURS or MORE? (0) Never broken down for 6 hours (1-7) 1-7 toilet breakdowns lasting 6 hours or more (8) 8 or more toilet breakdowns lasting 6 hours or more @ [@] <0-8,D,R> [store BRKDN3d_NUMTLT in OUT_NUMTLT] [goto BRKDN4a_LEAK1] ______________________________________________________________________ >BRKDN4a_LEAK1< [missing ] [store <> in temp1] [store <> in temp2] [store <> in temp3] [store <> in temp4] [store <> in temp5] [store <> in temp6] [if PCNT eq <1>] [store in temp4] [else] [store in temp4] [endif] [if HU1_HTYPE eq <2>] [store in temp6] [else] [store <> in temp6] [endif] [if STYPE eq <2> or STYPE eq <5>] [store in temp2] [store in temp5] [else] [store <> in temp2] [store < > in temp5] [endif] [if OUT_CELLAR eq <1> or OUT_CELLAR eq <2>] [store in temp3] [else] [store < > in temp3] [endif] These next questions are about water leaks - either from OUTSIDE your [if HU1_HTYPE eq <2>][fill HTYPEFILL] [fill temp6] or from INSIDE.[else] [fill HTYPEFILL] or from INSIDE. [endif] While [fill temp4] been living here, did water ever leak INTO your [if HU1_HTYPE eq <2>][fill HTYPEFILL] [fill temp6][if STYPE eq <2> or STYPE eq <5>] [fill temp2] FROM THE OUTSIDE -- [else] FROM THE OUTSIDE --[endif] for example, through the roof,[if STYPE eq <2> or STYPE eq <5>] [fill temp5] walls,[else] walls,[endif][if OUT_CELLAR eq <1> or OUT_CELLAR eq <2>] [fill temp3] or[else] or [endif] any closed windows or skylights?[else][fill HTYPEFILL] [if STYPE eq <2> or STYPE eq <5>] [fill temp2]FROM THE OUTSIDE -- [else]FROM THE OUTSIDE --[endif] for example, through the roof,[if STYPE eq <2> or STYPE eq <5>] [fill temp5] walls,[else] walls,[endif][if OUT_CELLAR eq <1> or OUT_CELLAR eq <2>] [fill temp3] or[else] or [endif] any closed windows or skylights?[endif] (1) Yes (2) No outside water leaks @ [@] <1> [goto BRKDNck4b] <2,D,R> [store BRKDN4a_LEAK1 in OUT_LEAK] [goto brkdn4d_ileak1] ______________________________________________________________________ >BRKDNck4b< [store <> in temp] [# [if BRKDN4a_LEAK1 eq <1>] [store DATE in T_INTDATE] [subdate MOVDATE from T_INTDATE into temp] [if {int}temp le <365>] [store <1> in BRKDN4b_LEAK2] [store <1> in OUT_LEAK] [goto BRKDN4c] [endif][endif] [goto BRKDN4b_LEAK2] ______________________________________________________________________ >BRKDN4b_LEAK2< [missing ] [store <> in temp] [store <> in temp5] [store <> in temp1] [store <> in temp2] [store <> in temp3] [store <> in temp4] [store <0> in index] [# [store DATE in T_INTDATE] [store MONTH in T_INTMON] [store YEAR in T_INTYR] [subdate MOVDATE from T_INTDATE into temp] [if {int}temp le <365>] [store MOVMON1 in index] [make temp3 from MONTHTAB(index) < > movyr1] [if PCNT eq <1>] [store in temp4] [else] [store in temp4] [endif] [else] [store in temp4] [store T_INTMON in index] [subtract <1> from T_INTYR] [make temp3 from MONTHTAB(index) < > T_INTYR] [endif] Did water leak in from the outside [fill temp4] -- that is, since [fill temp3]? (1) Yes (2) No @ [@] <1,2,D,R> [store {int}BRKDN4b_LEAK2 in OUT_LEAK] [If BRKDN4b_LEAK2 eq <1>] [goto BRKDN4c] [else] [goto brkdn4d_ileak1] [endif] ______________________________________________________________________ >BRKDN4c< [missing ] [open BRKDN4c] Did the water come in from the -- (READ ALOUD ALL BOLDED CATEGORIES) [bold]***MARK (X) ALL THAT APPLY***[normal] @RLEAK [bold] Roof [n] @BLEAK [bold] Basement [n] @WLEAK [bold] Walls or around closed windows or closed doors [n] @OTLEAK [bold] Somewhere else (SPECIFY) [n] (FOR CLOSED SKYLIGHTS MARK - "Somewhere else") [@RLEAK] [optional] [goto brkdn4d_ileak1] [@BLEAK] [optional] [@WLEAK] [optional] [@OTLEAK] [optional] [specify] ______________________________________________________________________ >BRKDN4cedit< [if (STYPE eq <1> or STYPE eq <2>) and (OUT_CELLAR ne <1> and OUT_CELLAR ne <2>) and BRKDN4c@BLEAK eq ] [goto BRKDN4cpr_leakp] [else] [goto brkdn4d_ileak1] [endif] ---------------------------------------------------------------------- >BRKDN4cpr_LEAKP< You stated water comes in through the basement. Earlier answers said this building did not have a basement. Which answer is correct? (1) Building HAS a basement (2) Water does NOT come in from the basement @ [@] <1> [goto inv7a] <2> [etc ] ---------------------------------------------------------------------- _____________________________________________________________________ >BRKDN4d_ILEAK1< [missing ] [store <> in temp1] [store <> in temp2] [store <> in temp3] [# [if STYPE eq <3> or STYPE eq <5>] [store in temp1] [else] [store in temp1] [endif] [# [if PCNT eq <1>] [store in temp2] [else] [store in temp2] [endif] [# [if HTYPE eq <1> or HTYPE eq <3> or HTYPE eq <4>] [store in temp3] [else] [if HTYPE eq <2>] [store in temp3] [else] [if HTYPE gt <4> and HTYPE le <12>] [store in temp3] [endif][endif][endif] [# Now about water leaks from INSIDE. Since [fill temp2] lived here, did water leak in -- from broken pipes or water heaters, backed up plumbing, [fill temp1] [fill temp3]? (1) Yes (2) No indoor water leaks @ [@] <1> [goto BRKDNck4e] <2,D,R> [store brkdn4d_ileak1 in OUT_ILEAK] [goto BRKDNCK5a] ______________________________________________________________________ >BRKDNck4e< [store <> in temp] [# [if BRKDN4d_ILEAK1 eq <1>] [store DATE in T_INTDATE] [subdate MOVDATE from T_INTDATE into temp] [if {int}temp le <365>] [store <1> in BRKDN4e_ILEAK2] [store <1> in OUT_ILEAK] [goto BRKDN4f] [endif] [endif] [goto BRKDN4e_ILEAK2] ______________________________________________________________________ >BRKDN4e_ILEAK2< [missing ] [store <> in temp] [store <> in temp5] [store <> in temp1] [store <> in temp2] [store <> in temp3] [store <> in temp4] [store <0> in index] [# [store DATE in T_INTDATE] [store MONTH in T_INTMON] [store YEAR in T_INTYR] [subdate MOVDATE from T_INTDATE into temp] [if {int}temp le <365>] [store MOVMON1 in index] [make temp3 from MONTHTAB(index) < > movyr1] [if PCNT eq <1>] [store in temp4] [ELSE] [store in temp4] [endif] [else] [store in temp4] [store T_INTMON in index] [subtract <1> from T_INTYR] [make temp3 from MONTHTAB(index) < > T_INTYR] [endif] [# Did any inside water leaks happen [fill temp4] -- that is, since [fill temp3]? (1) Yes (2) No @ [@] <1,2,D,R> [store BRKDN4e_ILEAK2 in OUT_ILEAK] [If BRKDN4e_ILEAK2 eq <1>] [goto BRKDN4f] [else] [goto BRKDNCK5a] [endif] ______________________________________________________________________ >BRKDN4f< [missing ] [open BRKDN4f] Where did the water come from? MARK (X) ALL THAT APPLY @PLEAK Own plumbing fixtures backed up and/or overflowed @PILEAK Pipes leaked (include pipe leaks from other apartments) @WTRHRL Broken water heater @NLEAK1 Other (SPECIFY) @NLEAK2 Unknown [@PLEAK] [optional] [goto BRKDNCK5a] [@PILEAK] [optional] [@WTRHRL] [optional] [@NLEAK1] [optional] [specify] [@NLEAK2] [optional] ______________________________________________________________________ >BRKDNCK5a< [if OUT_PUBSEW eq <1> or OUT_SEWDIS eq <1>] [goto BRKDN5a_IFSEW] [else] [goto BRKDN6a_NOWIR1] [endif] ______________________________________________________________________ >BRKDN5a_IFSEW< [missing ] [store <> in temp] [store <> in temp3] [store <> in temp4] [store <0> in index] [store DATE in T_INTDATE] [store MONTH in T_INTMON] [store YEAR in T_INTYR] [subdate MOVDATE from T_INTDATE into temp] [# [if {int}temp le <90>] [# LESS THAN 3 MONTH PRIOR] [store MOVMON1 in index] [make temp3 from MONTHTAB(index) < > MOVYR1] [if PCNT eq <1>] [store in temp4] [else] [store in temp4] [endif] [else] [if MONTH gt <03>] [subtract <3> from T_INTMON] [endif] [if MONTH eq <3> or MONTH eq <03>] [store <12> in T_INTMON] [subtract <1> from T_INTYR] [endif] [if MONTH eq <2> or MONTH eq <02>] [store <11> in T_INTMON] [subtract <1> from T_INTYR] [endif] [if MONTH eq <1> or MONTH eq <01>] [store <10> in T_INTMON] [subtract <1> from T_INTYR] [endif] [store T_INTMON in index] [make temp3 from MONTHTAB(index) < > T_INTYR] [store in temp4] [endif] [r](H)[n] Did the sewage system break down [fill temp4] -- that is, since [fill temp3]? (1) Yes (2) No @ [@] <1> [goto BRKDN5b_NUMSEW] <2,D,R> [goto BRKDN6a_NOWIR1] [etc ] ______________________________________________________________________ >BRKDN5b_NUMSEW< [missing ] How many of these breakdowns lasted 6 hours or more? (0) None lasted 6 hours (1-7) 1-7 sewage breakdowns lasting 6 hours or more (8) 8 or more sewage breakdowns lasting 6 hours or more @ [@] <0-8,D,R> [goto BRKDN6a_NOWIR1] ______________________________________________________________________ >OUT_NOWIRE1< [allow 1] _____________________________________________________________________ >BRKDN6a_NOWIR1< [missing ] [store <> in temp1] [store <> in temp2] [if CDEPSTAT eq <1> and I_NOWIRE1 eq <1>] [store <2> in temp1] [else] [store <1> in temp1] [endif] [if ISTATUS eq <2> or ISTATUS eq <3>] [store in temp2] [else] [store in temp2] [endif] [r](H)[n] [if temp1 eq <1>] Is all the electrical wiring in the finished areas of [fill temp2] home concealed in the walls? [endif] [if temp1 eq <2>] Last time we recorded that all the electrical wiring in the finished areas of [fill temp2] home was concealed in the walls. Is this still correct? [endif] (EXCLUDE APPLIANCE CORDS, EXTENSION CORDS, CHANDELIER CORDS, PHONE, ANTENNA, CABLE TV WIRES, ETC.) [# [if temp1 eq <2>] (1) Yes, wiring still concealed [else] (1) Yes, wiring concealed [endif] (2) No, wiring not concealed (3) No electrical wiring @ [@]<1,3> [goto @a] <2,D,R> [goto BRKDN6b_NOWIRE2] [etc ] [@a] [if brkdn6a_nowir1 eq <1> or brkdn6a_nowir1 eq <3>] [store BRKDN6a_NOWIR1 in OUT_NOWIRE] [goto BRKDN6ack] [endif] ______________________________________________________________________ >BRKDN6ack< [if BRKDN6a_NOWIR1 onpath and BRKDN6a_NOWIR1 eq <1> goto BRKDN6c_PLUGS] [if BRKDN6a_NOWIR1 onpath and BRKDN6a_NOWIR1 eq <3> goto BRKDN7_CRACKS] ______________________________________________________________________ >BRKDN6b_NOWIRE2< [missing ] [store <> in temp1] [store <> in temp2] [if CDEPSTAT eq <1> and I_NOWIRE2 eq <1>] [store <2> in temp1] [store in temp2] [else] [store <1> in temp1] [store in temp2] [endif] [r](H)[n] [if temp1 eq <1>] Is the electrical wiring safely contained in protective metal or plastic coverings? [endif] [if temp1 eq <2>] Last time we recorded that the electrical wiring was safely contained in protective metal or plastic coverings. Is this still correct? [endif] (EXCLUDE APPLIANCE CORDS, EXTENSION CORDS, CHANDELIER CORDS, PHONE, ANTENNA, CABLE TV WIRES, ETC.) (1) [fill temp2] in metal or plastic coverings (2) No, not contained in metal or plastic coverings @ [@] <1,2,D,R> [etc ] [store BRKDN6b_NOWIRE2 in OUT_NOWIRE] [goto BRKDN6c_PLUGS] [#______________________________________________________________________ >BRKDN6c_PLUGS< [missing ] [store <> in TEMP] [store <> in temp3] [store <0> in index] [if CDEPSTAT eq <1> and I_PLUGS eq <1>] [store <1> in TEMP] [else] [store <2> in TEMP] [endif] [r](H)[n] [if TEMP eq <1>] Last time we recorded that every room had an electrical outlet or wall plug that worked. Is this still correct? [endif] [if TEMP eq <2>] Does every room have an electrical outlet or wall plug that works? [endif] (1) Yes (2) No @ [@] <1,2,D,R> [goto @a] [etc ] [@a] [store BRKDN6c_PLUGS in out_plugs] [goto BRKDNCK6d] ________________________________________________________________ >BRKDNCK6d< [If ISTATUS eq <2> or ISTATUS eq <3> goto BRKDN7_CRACKS] [goto BRKDN6d_IFBLOW] ______________________________________________________________________ >BRKDN6d_IFBLOW< [missing ] [store <> in temp] [store <> in temp4] [store DATE in T_INTDATE] [store MONTH in T_INTMON] [store YEAR in T_INTYR] [subdate MOVDATE from T_INTDATE into temp] [store in temp4] [if {int}temp le <90>] [if PCNT eq <1>] [store in temp4] [else] [store in temp4] [endif] [endif] [# Have any fuses blown or circuit breakers tripped [fill temp4]? (1) Yes (2) No (D) Don't know, not sure @ [@] <1> [goto BRKDN6e_NUMBLOW] <2,D,R> [goto BRKDN7_CRACKS] ______________________________________________________________________ >BRKDN6e_NUMBLOW< [missing ] [store <> in temp] [store <> in temp4] [# [store DATE in T_INTDATE] [store MONTH in T_INTMON] [store YEAR in T_INTYR] [subdate MOVDATE from T_INTDATE into temp] [store in temp4] [if {int}temp le <90>] [if PCNT eq <1>] [store in temp4] [else] [store in temp4] [endif][endif] [# How many times [fill temp4]? (1-7) 1-7 times (8) 8 or more times @ [@] <1-8,D,R> [goto BRKDN7_CRACKS] ______________________________________________________________________ >BRKDN7_CRACKS< [missing ] [store <> in temp1] [store <> in temp2] [# [if ISTATUS eq <1>] [store in temp1] [store in temp2] [else] [if ISTATUS eq <2>] [store <> in temp1] [store in temp2] [else] [if ISTATUS eq <3>] [store <> in temp1] [store in temp2] [endif][endif][endif] [# [r](H)[n] People sometimes have problems with cracks or holes in [fill temp1] floors, walls, or ceilings -- not little hairline cracks or nail holes, but OPEN cracks or holes. In the INSIDE walls or ceilings of [fill temp2] [fill HTYPEFILL], are there any OPEN HOLES or CRACKS WIDER THAN THE EDGE OF A DIME? (1) Yes (2) No @ [@] <1,2,D,R> [goto BRKDN8_HOLES] [etc ] ______________________________________________________________________ >BRKDN8_HOLES< [missing ] [store <> in temp1] [store <> in temp2] [# [if ISTATUS eq <1>] [store in temp1] [store in temp2] [else] [if ISTATUS eq <2>] [store in temp1] [store in temp2] [else] [if ISTATUS eq <3>] [store in temp1] [store in temp2] [endif][endif][endif] [# [r](H)[n] How about the floors in [fill temp1] [fill HTYPEFILL] -- [fill temp2] any holes in the floors big enough for someone to catch their foot on? (ABOUT 4 INCHES ACROSS -- ABOUT THE HEIGHT OF A SOUP CAN) (1) Yes (2) No @ [@] <1,2,D,R> [goto BRKDN9a_BIGP1] [etc ] _____________________________________________________________________ >OUT_BIGP< [allow 1] ______________________________________________________________________ >BRKDN9a_BIGP1< [missing ] [store <> in temp3] [# [if BRKDN7_CRACKS eq <1> or BRKDN8_HOLES eq <1>] [store in temp2] [else] [store in temp2] [endif] [# [if ISTATUS eq <1>] [store in temp3] [else] [if ISTATUS eq <2>] [store in temp3] [else] [if ISTATUS eq <3>] [store in temp3] [endif][endif][endif] [# [fill temp2] the inside of [fill temp3] [fill HTYPEFILL] have any areas of peeling paint or broken plaster? (1) Yes (2) No @ [@] <1> [goto BRKDN9b_BIGP2] <2,D,R> [store BRKDN9a_BIGP1 in OUT_BIGP] [goto BRKDNCK10a] ______________________________________________________________________ >BRKDN9b_BIGP2< [missing ] Are any of these areas bigger than 8 inches by 11 inches? (THE SIZE OF A STANDARD BUSINESS LETTER) (1) Yes (2) No @ [@] <1,2,D,R> [store BRKDN9b_BIGP2 in OUT_BIGP] [goto BRKDNCK10a] ______________________________________________________________________ >BRKDNCK10a< [if ISTATUS eq <1>] [goto BRKDN10A_EVROD] [else] [goto RETBEGIN] [endif] _____________________________________________________________________ >BRKDN10a_EVROD< [missing ] [if HTYPE eq <2>] [r](H)[n] Have you ever seen signs of mice or rats INSIDE your [fill HTYPEFILL] building? [else] Have you ever seen signs of mice or rats INSIDE your [fill HTYPEFILL]? [endif] (EXCLUDE RATS/MICE KEPT AS PETS OR SNAKE FOOD OR OTHERWISE DELIBERATELY BROUGHT INSIDE) (1) Yes (2) No @ [@] <1> [goto BRKDN10b_m3rod] <2,D,R> [goto BRKDNCK11a1] [etc ] ______________________________________________________________________ >BRKDN10b_M3ROD< [missing ] [store <> in temp] [store <> in temp3] [store <> in temp4] [store <0> in index] [store DATE in T_INTDATE] [store MONTH in T_INTMON] [store YEAR in T_INTYR] [subdate MOVDATE from T_INTDATE into temp] [if {int}temp le <90>] [# LESS THAN 3 MONTH PRIOR] [store MOVMON1 in index] [make temp3 from MONTHTAB(index) < > MOVYR1] [if PCNT eq <1>] [store in temp4] [else] [store in temp4] [endif] [else] [if MONTH gt <03>] [subtract <3> from T_INTMON] [endif] [if MONTH eq <3> or MONTH eq <03>] [store <12> in T_INTMON] [subtract <1> from T_INTYR] [endif] [if MONTH eq <2> or MONTH eq <02>] [store <11> in T_INTMON] [subtract <1> from T_INTYR] [endif] [if MONTH eq <1> or MONTH eq <01>] [store <10> in T_INTMON] [subtract <1> from T_INTYR] [endif] [store T_INTMON in index] [make temp3 from MONTHTAB(index) < > T_INTYR] [store in temp4] [endif][#endif] Was that [fill temp4] -- that is, since [fill temp3]? (1) Yes (2) No @ [@] <1> [goto BRKDN10c] <2,D,R> [goto BRKDNCK11a1] ---------------------------------------------------------------------- >BRKDN10c< [missing ] [open BRKDN10c] Was it a rat, a mouse, or aren't you sure what it was? **MARK (X) ALL THAT APPLY*** @RATS Rat @MICE Mouse @NOTSUR Don't know, not sure [@RATS] [optional] [goto BRKDNCK11a1] [@MICE] [optional] [@NOTSUR] [optional] ---------------------------------------------------------------------- >BRKDNCK11a1< [if ISTATUS eq <3>] [goto BRKDNEND] [endif] [IF TENURE eq <1> goto BRKDNEND] [IF TENURE eq <2> or TENURE eq <3> goto BRKDN11a1_majr1] ================================================================ >BRKDN11a1_MAJR1< When the owner has to do MAJOR maintenance or repairs: Do they start quickly enough? (1) Yes usually (2) Not usually (3) Very mixed (4) Haven't needed any (5) Landlord not responsible for maintenance @ [@] <1-3,D,R> [goto BRKDN11a2_majr2] <4> [goto BRKDN11b1_MINR1] <5> [goto BRKDN11c_BLDMNT] ================================================================ >BRKDN11a2_MAJR2< Do they solve the problem quickly once they start? (1) Yes (2) No (3) Mixed @ [@] <1-3,D,R> [goto BRKDN11a3_majr3] ================================================================ >BRKDN11a3_MAJR3< Are they polite and considerate of your home? (1) Yes (2) No (3) Mixed @ [@] <1-3,D,R> [goto BRKDN11b1_MINR1] ================================================================ >BRKDN11b1_MINR1< For MINOR maintenance or repairs: Do they start quickly enough? (1) Yes usually (2) Not usually (3) Very mixed (4) Haven't needed any @ [@] <1-3,D,R> [goto BRKDN11b2_minr2] <4> [goto BRKDN11c_BLDMNT] ================================================================ >BRKDN11b2_MINR2< Do they solve the problem quickly once they start? (1) Yes (2) No (3) Mixed @ [@] <1-3,D,R> [goto BRKDN11b3_minr3] ================================================================ >BRKDN11b3_MINR3< Are they polite and considerate of your home? (1) Yes (2) No (3) Mixed @ [@] <1-3,D,R> [goto BRKDN11c_BLDMNT] ================================================================ >BRKDN11c_BLDMNT< On maintenance of the building, are you completely satisfied, partly satisfied, or dissatisfied? (1) Completely satisfied (2) Partly satisfied (3) Dissatisfied (4) Landlord not responsible for building maintenance @ [@] <1-4,D,R> [goto BRKDN11d_GRDMNT] ================================================================ >BRKDN11d_GRDMNT< On maintenance of the grounds, are you completely satisfied, partly satisfied, or dissatisfied? (1) Completely satisfied (2) Partly satisfied (3) Dissatisfied (4) Landlord not responsible for ground maintenance @ [@] <1-4,D,R> [goto HMRCK0] ---------------------------------------------------------------------- *** REFERENCE SECTION *** ---------------------------------------------------------------------- >BRKDN1bH< [reference] "Broken down" - if MAIN heating equipment is not providing heat at its normal heating capacity through some fault in the equipment. If the MAIN heating equipment was broken and caused discomfort, mark "yes" even if other supplementary equipment is working. Exclude - situations where not enough heat is being provided because of lack of fuel or because of utility breakdown. PRESS ENTER TO CONTINUE INTERVIEW @ [@] [nodata] [return from help] --------------------------------------------------------------------- >BRKDN1eH< [reference] [b]Utility interruptions[n] - if the gas, electricity or other fuel supplying the heat was cut off, whether because of power black-outs, fuel shortages, unpaid bills, or any other reason. [b]Inadequate heating capacity[n] - if the heating equipment is providing heat at its normal capacity yet the unit is still too cold for the occupants. [b]Inadequate insulation[b] - for air drafts through window frames, electrical outlets, or walls that are cold. [b]Cost of heating[n] - If the occupants intentionally keep the temperature down to save money, or if the landlord turns on the heat too late in the season or turns it off too early or keeps the thermostat set low. [b]Other[n] - specify other reasons not mentioned above. [bold] PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] _____________________________________________________________________ >BRKDN2aH< [reference] [bold]"Completely without running water"[normal] means that the water system servicing the unit supplied no water at all. No equipment or facility using running water (i.e., kitchen and bathroom sinks, shower, bathtub, flush toilet, dishwasher, and other similar items) had water supplied to it, or all were inoperable. [bold]PRESS ENTER TO CONTINUE INTERVIEW @ [normal] [@] [nodata] [return from help] ______________________________________________________________________ >BRKDN3aH< [reference] [bold]"Not working"[n] means problems such as a faulty flushing mechanism, broken pipes, stopped up soil pipe, no water supplied to the flush toilet, or other situations which caused an interruption in service. Breakdowns caused by natural disasters would also fall in this category. [bold] PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >BRKDN5aH< [reference] "Sewage System" includes: * Septic tank/cesspool and lines from the unit, drainfields etc. * Sewage treatment facilities, sewer mains, sewer line from unit to the street, etc. * [u] Waste[n] lines inside the unit that require more attention than a plunger or liquid drain cleaner (i.e. Roto-Rooter) Exclude simple toilet or plumbing breakdowns that occur in or near the toilet itself (i.e. stopped up toilet in J pipe would be reported under toilet breakdowns). Also exclude stopped up drains from a sink/tub/shower. These are not considered "sewage system breakdowns". [bold]"Breakdowns"[normal] refers to situations in which the system malfunctioned, not when it was temporarily shut down for maintenance. For examples of malfunctions: septic tank being pumped because it no longer perked, tank collapse, tank explodes, sewer main breaks, sewer treatment plant not operating due to electric failure or water service interruption. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >BRKDN6aH< [reference] This question refers only to "living areas" which are finished. If a respondent asks if basement or attic wiring should be considered, ask if the basement or attic is finished and is a living area. If no to either, do not consider the basement or attic in response to this question. [bold] PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >BRKDN6bH< [reference] This question pertains to wiring that is not concealed in the walls but is encased in protective metal or plastic coverings. [bold]PRESS ENTER TO CONTINUE INTERVIEW @ [normal] [@] [nodata] [return from help] ______________________________________________________________________ >BRKDN6cH< [reference] [bold]"Working electric wall outlet or plug" [normal]means one that is in operating condition, that is, can be used when needed. The outlet does not have to be presently in use to be considered working. [bold]Exclude[normal] - other types of electrical outlets such as ones connected to extension cords and used as wall outlets. Also exclude power strips and surge protectors. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >BRKDN7H< [reference] [bold]INCLUDE[normal] - Holes or cracks on the interior of the housing unit's walls or ceilings that are wide enough to insert the edge of a dime. The holes or cracks need NOT go all the way through the wall to the next room or through to the outside of the unit. [bold] EXCLUDE[normal] - "Hairline cracks" meaning cracks that appear in the walls or ceilings, but not wide enough to insert the edge of a dime. Also exclude holes cut for a trap door leading to an attic, or ventilation or heating ducts. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >BRKDN8H< [reference] Holes must be on the interior of the unit. Holes need [u]NOT[n] go all the way through to a lower floor or through to the outside of the unit. They should be about 4 inches across or larger and pose a hazard. [bold]PRESS ENTER TO CONTINUE INTERVIEW @ [normal] [@] [nodata] [return from help] ______________________________________________________________________ >BRKDN10aH< [reference] [bold]"Signs of mice or rats"[normal] would include droppings, holes in the walls, or ripped or torn food containers. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >BRKDN11aH< [reference] Accept respondents opinion of what "adequate maintenance" means to him or her. "Adequate" refers to the quality, amount, and timeliness of maintenance. [bold]PRESS ENTER TO CONTINUE INTERVIEW @ [normal] [@] [nodata] [return from help] ______________________________________________________________________ >BRKDN11bH< [reference] Accept what respondents opinion of what "properly maintained" means to him or her. "Properly maintained" refers to the quality, amount, and timeliness of the upkeep of the building and grounds. Do not include as poor maintenance the absence of services such as a swimming pool or cable TV if these had never been offered. [bold]PRESS ENTER TO CONTINUE INTERVIEW @[normal] [@] [nodata] [return from help] ______________________________________________________________________ >BRKDNEND< [store <1> in BRKDN_CMP] [stop timer][no erase] [record timer in BRKDN_TME] ______________________________________________________________________ AMERICAN HOUSING SURVEY - 2001 National CAPI INSTRUMENT For Data collection beginning: PROGRAMMER: Tazreen Chowdhury Running under: CASES 4.4 Version Last edit Date: 5/2/01 ============================================================================ >tem4< [allow 30] >tem5< [allow 38] >tem6< [allow 7] >tem7< [allow 7] >tem8< [allow 7] >tem9< [allow 7] >HMRCK0< [section HMR] [if STATUS eq <1> and TENURE eq <1>] [goto HMR0INTRO] [else] [goto hmr_end] [endif] ============================================================================ >HMR0INTRO< The next questions are about work done to your home. PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto HMR0_CSTMNT] ----------------------------------------------------------------------------- >HMR0_CSTMNT< [missing ] In a TYPICAL YEAR, about how much does your household spend for routine repairs and maintenance, such as painting, plumbing, roofing, or other minor repairs? (IF DON'T KNOW, ASK FOR BEST ESTIMATE) (0) Nothing (1-9997) $1-$9,997 (9998) $9,998 or more $ @ .00 [@] <0-9998,D,R> [goto HMRck1a] ----------------------------------------------------------------------------- >HMRCK1a< [if SDESIG eq <1> goto HMR1aINTRO] [# National [if SDESIG eq <2> goto HMRCK23] [# MS ----------------------------------------------------------------------------- >HMR1aINTRO< The next series of questions deal with only home remodeling and major improvements and replacements. DO NOT include routine minor work such as painting or fixing a broken water pipe. Also DO NOT include work such as decorating or landscaping. PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto HMR1a_MAJDIS] ----------------------------------------------------------------------------- >HMR1a_MAJDIS< [missing ] In the last two years, has there been a MAJOR disaster, such as an earthquake or tornado that required you to make extensive repairs to your home? (1) Yes (2) No @ [@] <1> [goto HMR1b] <2,D,R> [goto HMR2a_unfinis] --------------------------------------------------------------------- >HMR1b< [missing ] What happened? ***MARK (X) ALL THAT APPLY*** @QUAKE Earthquake @TORNADO Tornado, hurricane, etc @LNDSLD Landslide @FIRE Lightning or fire @FLOOD Flood @OTHDIS Other (SPECIFY) [@QUAKE] [missing] [optional] [@TORNADO] [missing] [optional] [@LNDSLD] [missing] [optional] [@FIRE] [missing] [optional] [@FLOOD] [missing] [optional] [@OTHDIS] [optional] [specify] [missing] ------------------------------------------------------------------------------ >HMRCK1c< [if HMR1b@QUAKE eq or HMR1b@TORNADO eq or HMR1b@LNDSLD eq or HMR1b@FIRE eq or HMR1b@FLOOD eq or HMR1b@OTHDIS eq ] [goto HMR1c] [else] [goto HMR2aINTRO] [endif] ---------------------------------------------------------------------------------- >HMR1c< [missing ] [open hmr1c] What major repairs were being/are being made? (ENTER ONE JOB PER BLOCK OR "N" FOR NO MORE JOBS) Job1 @DISRPA Job2 @DISRPB Job3 @DISRPC [@DISRPA] [allow 70] [anychar] [goto HMR1C@DISRPB] [goto hmrck1e] [@DISRPB] [allow 70] [anychar] [goto HMR1C@DISRPC] [goto hmrck1d] [@DISRPC] [allow 70] [anychar] [goto hmrck1d] ------------------------------------------------------------------------------------ >HMRck1d< [if (I_DISRPA ne <> or i_disrpb ne <> or i_disrpc ne <>) and cdepstat eq <1>] [goto HMR1d_DISREPB] [else] [goto HMR1e] [endif] -------------------------------------------------------------------------------------- >HMR1d_DISREPB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW**** In [fill temp8], we recorded the following disaster repair work: [fill I_DISRPA] [fill I_DISRPB] [fill I_DISRPC] Is this the same disaster repair work, OR is it a different job? (1) Yes, same job as last interview (2) No, different job @ [@] <1> [goto @a] <2,D,R> [goto HMR1e] [@a] [reset HMR1c@DISRPA] [reset hmr1c@disrpb] [reset hmr1c@disrpc] [if hmr1c@disrpa eq <> and hmr1c@disrpb eq <> and hmr1c@disrpc eq <>] [store <2> in HMR1a_MAJDIS@] [reset HMR1b@QUAKE] [reset HMR1b@TORNADO] [reset HMR1b@LNDSLD] [reset HMR1b@FIRE] [reset HMR1b@FLOOD] [reset HMR1b@OTHDIS] [goto HMR2aINTRO] [endif] ------------------------------------------------------------------------------ >HMRck1e< [if hmr1c@disrpa eq or hmr1c@disrpa eq or hmr1c@disrpa eq ] [reset hmr1c@disrpa] [endif] [if hmr1c@disrpa eq <> and hmr1c@disrpb eq <> and hmr1c@disrpc eq <>] [store <2> in HMR1a_MAJDIS@] [reset HMR1b@QUAKE] [reset HMR1b@TORNADO] [reset HMR1b@LNDSLD] [reset HMR1b@FIRE] [reset HMR1b@FLOOD] [reset HMR1b@OTHDIS] [goto HMR2aINTRO] [endif] [goto hmr2aintro] ----------------------------------------------------------------------------------- >HMR1e< [missing ] Did someone in your How much did the entire household do most of disaster repair job cost, the work? including your costs and any amount covered by insurance, not counting your time. (1) Yes (2) No (0) Nothing (2-999997) $2-$999,997 (999998) $999,998 or more @DISRPWK $@DISRPAM [@DISRPWK] <1,2,D,R> [goto @DISRPAM] [@DISRPAM] <0,2-999998,D,R> [goto HMR2aINTRO] ------------------------------------------------------------------------- >HMR2aINTRO< In the next questions, please do not include any part of the MAJOR disaster work already reported because I have already recorded that information. PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmr2a_unfinis] --------------------------------------------------------------------- >HMR2a_UNFINIS< [missing ] [store <> in temp1] [if out_cellar eq <1> or out_cellar eq <2>] [store in temp1] [else] [store <> in temp1] [endif] In the last two years, was any work done to the attic, [fill temp1] garage, or other unfinished area of your home to make it a finished room? (1) Yes (2) No @ [@] <1> [goto hmr2b] <2,D,R> [goto hmr3a_additon] ----------------------------------------------------------------------- >HMR2b< [missing ] [open hmr2b] What kind of room(s) were created? ***MARK (X) ALL THAT APPLY @NWBED Bedroom @NWBTH Bathroom @NWREC Recreation room @NWOTH Other room [@NWBED] [optional] [@NWBTH] [optional] [@NWREC] [optional] [@NWOTH] [optional] [goto hmr3a_additon] --------------------------------------------------------------------- >HMR3a_ADDITON< [missing ] In the last two years, were any ROOM ADDITIONS built onto your home that made it bigger? (1) Yes (2) No @ [@] <1> [goto hmr3b] <2,D,R> [goto hmrck3C] --------------------------------------------------------------------- >HMR3b< [missing ] What was added? ***MARK (X) ALL THAT APPLY*** @ADDBED Bedroom @ADDBTH Bathroom @ADDKIT Kitchen @ADDOTH Other room addition [@ADDBED] [optional] [@ADDBTH] [optional] [@ADDKIT] [optional] [@ADDOTH] [optional] [goto hmrck3c] --------------------------------------------------------------------- >HMRck3c< [if stype eq <3> or stype eq <5>] [goto hmr4a_bthkit] [else] [goto hmr3c_bultout] [endif] --------------------------------------------------------------------- >HMR3c_BULTOUT< [missing ] [if hmr3a_additon eq <1>] Was anything else built onto the outside of your home, such as an attached garage, carport, deck, or porch? [else] Was anything built onto the outside of your home, such as an attached garage, carport, deck, or porch? [endif] (1) Yes (2) No @ [@] <1> [goto hmr3d] <2,D,R> [goto hmr4a_bthkit] --------------------------------------------------------------------- >HMR3d< [missing ] What was built? ***MARK (X) ALL THAT APPLY*** @GARAG Attached garage @PRCH Porch @DECK Deck @CARPORT Carport @OTHOUT Other outside addition [@GARAG] [optional] [@PRCH] [optional] [@DECK] [optional] [@CARPORT] [optional] [@OTHOUT] [optional] [missing] ----------------------------------------------------------------------- >HMR4a_BTHKIT< [missing ] Was your bathroom or kitchen remodeled in the last two years? By remodeling, we mean SUBSTANTIAL changes to the room. Do not count jobs that were just painting or papering. (1) Yes (2) No @ [@] <1> [goto HMR4b] <2,D,R> [goto hmr5a_renalt] --------------------------------------------------------------------- >HMR4b< [open hmr4b][missing ] Which rooms? ***MARK (X) ALL THAT APPLY*** @BTHROOM Bathroom(s) @KITCHN Kitchen [@BTHROOM] [optional] [@KITCHN] [optional] [goto hmr5a_renalt] --------------------------------------------------------------------- >HMR5a_RENALT< [missing ] Did you renovate or alter any other rooms by changing their structure, that is moving, adding, or removing walls? (1) Yes (2) No @ [@] <1> [goto HMR5b] <2,D,R> [goto HMR6aINTRO] --------------------------------------------------------------------- >HMR5b< [missing ] What rooms resulted? ***MARK (X) ALL THAT APPLY*** @RENBEDR Bedroom(s) @RENBTH Bathroom(s) @RENOTH Other room [@RENBEDR] [missing] [optional] [@RENBTH] [missing] [optional] [@RENOTH] [missing] [optional] [goto hmr6aintro] --------------------------------------------------------------------- >HMR6aINTRO< [if hmr1c@DISRPA ne <> or hmr1c@DISRPA ne or hmr1c@DISRPA ne ] [if hmr1c@DISRPB ne <> or hmr1c@DISRPB ne or hmr1c@DISRPB ne ] [if hmr1c@DISRPC ne <> or hmr1c@DISRPC ne or hmr1c@DISRPC ne ] [store in temp1] [store in temp2] [endif][endif][endif] [if HMR2a_UNFINIS eq <1> or hmr3a_additon eq <1> or hmr3c_bultout eq <1> or hmr4a_bthkit eq <1> or hmr5a_renalt eq <1>] [store in temp1] [store in temp2] [endif] Next are questions about OTHER work you may have done to your home in the last two years. We are only interested in jobs that were MAJOR alterations or improvements, such as rewiring, a new roof, new windows or doors. Do NOT include minor repairs or other routine maintenance. [fill temp1] [fill temp2] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmr6] --------------------------------------------------------------------- >HMR6< [missing ] [open hmr6] Have you added or replaced any of the following: (READ CATEGORIES BELOW) (1) Yes (2) No roofing? @ROOF siding? @SIDING doors or windows? @DOORWIN insulation? @INSULAT interior water pipes? @WTRPIPE plumbing fixtures, such as sinks or bathtubs? @PLUMFXT electrical wiring, fuse boxes or breaker switches? @WIRING security systems? @SECURE [@ROOF] <1,2,D,R> [goto @SIDING] [@SIDING] <1,2,D,R> [goto @DOORWIN] [@DOORWIN] <1,2,D,R> [goto @INSULAT] [@INSULAT] <1,2,D,R> [goto @WTRPIPE] [@WTRPIPE] <1,2,D,R> [goto @PLUMFXT] [@PLUMFXT] <1,2,D,R> [goto @WIRING] [@WIRING] <1,2,D,R> [goto @SECURE] [@SECURE] <1,2,D,R> [goto hmr7a] --------------------------------------------------------------------- >HMR7a< [missing ] In the last two years, have you installed any: (READ CATEGORIES BELOW) (1) Yes (2) No wall-to-wall carpeting? @CARPET flooring, such as wood, tile, marble, or vinyl? @FLOORIN paneling or ceiling tiles? @PANEL [@CARPET] <1,2,D,R> [goto @floorin] [@FLOORIN] <1,2,D,R> [goto @panel] [@PANEL] <1,2,D,R> [goto HMRCK7b] --------------------------------------------------------------------- >HMRCK7b< [if hmr7a@carpet eq <1>] [goto hmr7b] [else] [goto hmr8intro] [endif] --------------------------------------------------------------------- >HMR7b< [missing ][open hmr7b] Was that wall-to-wall carpeting installed over existing, finished flooring, or was that put down over bare sub-flooring, such as concrete or unfinished wood? ***MARK (X) ALL THAT APPLY*** @SUBFL Put down over sub-flooring @FINFL Put down over existing, finished flooring [@SUBFL] [optional] [goto @finfl] [@FINFL] [optional] [goto hmr8INTRO] --------------------------------------------------------------------- >HMR8INTRO< The following questions are about equipment in your home. Do not include work already reported because we don't want to count jobs twice. PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmr8] --------------------------------------------------------------------- >HMR8< [missing ] In the last two years, have you added or replaced: (READ CATEGORIES BELOW) (1) Yes (2) No central air conditioning? @CENAIR built-in heating equipment, such as furnace, boiler, duct work or radiators? @HEATEQU a septic tank? @SEPTIC a water heater? @WTRHTR a built-in dishwasher? @DSHWSHR a garbage disposal? @DSPOSAL [@CENAIR] <1,2,D,R> [goto @HEATEQU] [@HEATEQU] <1,2,D,R> [goto @SEPTIC] [@SEPTIC] <1,2,D,R> [goto @WTRHTR] [@WTRHTR] <1,2,D,R> [goto @DSHWSHR] [@DSHWSHR] <1,2,D,R> [goto @DSPOSAL] [@DSPOSAL] <1,2,D,R> [goto HMR9a_MSINSID] --------------------------------------------------------------------- >HMR9a_MSINSID< [missing ] Did we miss any other MAJOR remodeling, improvement or replacement jobs done INSIDE your home in the last two years? Do not include minor repairs, painting or wallpapering. (1) Yes (2) No @ [@] <1> [goto HMR9b] <2,D,R> [goto HMRck10] --------------------------------------------------------------------- >HMR9b< [missing ] [open HMR9B] What was the job? (ENTER ONE JOB PER BLOCK OR "N" FOR NO MORE JOBS) Job1 @MISINA Job2 @MISINB Job3 @MISINC [@MISINA] [allow 70] [anychar][goto @MISINB] [goto hmrck10] [@MISINB] [allow 70] [anychar][goto @MISINC] [goto hmrck10] [@MISINC] [allow 70] [anychar] [goto hmrck10] --------------------------------------------------------------------- >HMRck10< [if stype eq <3> or stype eq <5>] [goto hmrck12a] [else] [goto hmr10] [endif] --------------------------------------------------------------------- >HMR10< [missing ] Now, about work done to your LOT or YARD, in the last two years, have you added or replaced: (READ CATEGORIES BELOW) (1) Yes (2) No driveways or walkways? @DRIVEWY fencing or walls? @FENCE a patio, terrace, or a detached deck? @PATIO a swimming pool, tennis court, or other recreational structure? @POOL a shed, detached garage, or other building?@SHED [@DRIVEWY] <1,2,D,R> [goto @FENCE] [@FENCE] <1,2,D,R> [goto @PATIO] [@PATIO] <1,2,D,R> [goto @POOL] [@POOL] <1,2,D,R> [goto @SHED] [@SHED] <1,2,D,R> [goto HMR11a_MISSOUT] --------------------------------------------------------------------- >HMR11a_MISSOUT< [missing ] Did we miss any other MAJOR remodeling, improvement or replacement jobs done to your LOT or YARD in the last two years? Do not include minor repairs, landscaping or painting. (1) Yes (2) No @ [@] <1> [goto hmr11b] <2,D,R> [goto hmrck12a] --------------------------------------------------------------------- >HMR11b< [missing ] What was the job? (ENTER ONE JOB PER BLOCK OR "N" FOR NO MORE JOBS) Job1 @MISOUTA Job2 @MISOUTB Job3 @MISOUTC [@MISOUTA] [allow 70] [anychar][goto @misoutb] [goto hmrck12a] [@MISOUTB] [allow 70] [anychar][goto @misoutc] [goto hmrck12a] [@MISOUTC] [allow 70] [anychar][goto hmrck12a] --------------------------------------------------------------------- >HMRck12a< [if hmr2a_unfinis eq <1> and (hmr2b@nwbth eq or hmr2b@nwbed eq or hmr2b@nwrec eq or hmr2b@nwoth eq )] [goto hmrck12a1] [else] [goto HMR_endjob] [endif] --------------------------------------------------------------------- [# FIRST SET OF JOBS --------------------------------------------------------------------- >HMRck12a1< [if HMR2b@NWBED eq ] [goto hmr12a] [else] [goto HMR12a1ck] [endif] --------------------------------------------------------------------- >HMR12a< Earlier you reported a bedroom was created out of unfinished space. PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmr12ack] --------------------------------------------------------------------- >HMR12ack< [if i_nwbed eq and cdepstat eq <1>] [goto hmr12b_NWBEDB] [else] [goto hmr12c] [endif] --------------------------------------------------------------------- >HMR12b_NWBEDB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [if i_nwbedam gt <1>] [store in tem4] [store in tem5] [store i_nwbedam in tem6] [else] [store <> in tem4] [store <> in tem5] [store <> in tem6] [endif] [# ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same finished bedroom we recorded in [fill temp8], OR is it a different job? [fill tem4] (1) Yes, same job [fill tem5] (2) No, different job $[fill tem6] @ [@] <1> [goto @a] <2,D,R> [goto hmr12C] [@a] [reset HMR2b@nwbed] [goto hmr12A1ck] ------------------------------------------------------------------------ >HMR12C< [missing ] Did someone in your How much did the entire household do most of finished bedroom cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @NWBEDWK $@NWBEDAM [@NWBEDWK] <1,2,D,R> [goto @NWBEDAM] [@NWBEDAM] <0-999998,D,R> [goto hmr12a1ck] --------------------------------------------------------------------- >HMR12a1ck< [if HMR2b@NWBTH eq ] [goto hmr12a1] [else] [goto hmr12a2ck] [endif] --------------------------------------------------------------------- >HMR12a1< [if HMR12B_NWBedb eq <>] Earlier you reported a bathroom was created out of unfinished space. [else] Now about the bathroom that was created out of unfinished space. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmr12b1ck] --------------------------------------------------------------------- >HMR12b1ck< [if i_nwbth eq and cdepstat eq <1>] [goto hmr12b1_NWBTHB] [else] [goto hmr12c1] [endif] --------------------------------------------------------------------- >HMR12b1_NWBTHB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [if i_nwbtham gt <1>] [store in tem4] [store in tem5] [store I_nwbtham in tem6] [else] [store <> in tem4] [store <> in tem5] [store <> in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same finished bathroom we recorded in [fill temp8], OR is it a different job? [fill tem4] (1) Yes, same job [fill tem5] (2) No, different job $[fill tem6] @ [@] <1> [goto @a] <2,D,R> [goto hmr12C1] [@a] [reset HMR2b@nwbth] [goto HMR12a2ck] [#next job --------------------------------------------------------------------- >HMR12C1< [missing ] Did someone in your How much did the entire household do most of finished bathroom cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @NWBTHWK $@NWBTHAM [@NWBTHWK] <1,2,D,R> [goto @NWBTHAM] [@NWBTHAM] <0-999998,D,R> [goto hmr12a2ck] --------------------------------------------------------------------- >HMR12a2ck< [if HMR2b@NWREC eq ] [goto hmr12a2] [else] [goto hmr12a3ck] [endif] --------------------------------------------------------------------- >HMR12a2< [if hmr12b_nwbedb eq <> and hmr12b1_nwbthb eq <>] Earlier you reported a recreation room was created out of unfinished space. [else] Now about the recreation room that was created out of unfinished space. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck12a2] ----------------------------------------------------------------------------- >HMRck12a2< [if i_nwrec eq and cdepstat eq <1>] [goto hmr12b2_NWRECB] [else] [goto hmr12c2] [endif] --------------------------------------------------------------------- >HMR12b2_NWRECB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [if I_nwrecam gt <1>] [store in tem4] [store in tem5] [store I_nwrecam in tem6] [else] [store <> in tem4] [store <> in tem5] [store <> in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same finished recreation room we recorded in [fill temp8], OR is it a different job? [fill tem4] (1) Yes, same job [fill tem5] (2) No, different job $[fill tem6] @ [@] <1> [goto @a] <2,D,R> [goto hmr12C2] [@a] [reset HMR2b@nwrec] [goto HMR12a3ck] --------------------------------------------------------------------- >HMR12C2< [missing ] Did someone in your How much did the entire household do most of finished recreation room the work? cost, including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @NWRECWK $@NWRECAM [@NWRECWK] <1,2,D,R> [goto @NWRECAM] [@NWRECAM] <0-999998,D,R> [goto hmr12a3ck] --------------------------------------------------------------------- >HMR12a3ck< [if HMR2b@NWOTH eq ] [goto hmr12a3] [else] [goto HMR_endjob] [endif] --------------------------------------------------------------------- >HMR12a3< [missing ] [if hmr12b_nwbedb eq <> and hmr12b1_nwbthb eq <> and hmr12b2_nwrecb eq <>] Earlier you reported some other room was created out of unfinished space. [else] Now about the other room that was created out of unfinished space. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck12a3] --------------------------------------------------------------------- >HMRck12a3< [if i_nwoth eq and cdepstat eq <1>] [goto hmr12b3_nwothb] [else] [goto hmr12c3] [endif] --------------------------------------------------------------------- >HMR12b3_NWOTHB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [store <> in tem4] [store <> in tem5] [store <> in tem6] [if I_nwotham gt <1>] [store in tem4] [store in tem5] [store I_nwotham in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same other finished room we recorded in [fill temp8], OR is it a different job? [fill tem4] [fill tem5] (1) Yes, same job [fill tem6:$] (2) No, different job @ [@] <1> [goto @a] <2,D,R> [goto hmr12c3] [@a] [if @ eq <1>] [reset hmr2b@nwoth] [goto HMR_endjob] [endif] --------------------------------------------------------------------- >HMR12C3< [missing ] Did someone in your How much did the entire household do most of other finished room cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @NWOTHWK $@NWOTHAM [@NWOTHWK] <1,2,D,R> [goto @NWOTHAM] [@NWOTHAM] <0-999998,D,R> [goto HMR_endjob] --------------------------------------------------------------------- >HMR_endjob< [if hmr2b@nwbed eq <> and hmr2b@nwbth eq <> and hmr2b@nwrec eq <> and hmr2b@nwoth eq <>] [store <2> in HMR2a_unfinis@] [goto HMRck13a] [else] [goto HMRck13a] [endif] --------------------------------------------------------------------- [#SECOND SET OF JOBS --------------------------------------------------------------------- >HMRCK13a< [if hmr3a_additon eq <1> and (hmr3b@addbth eq or hmr3b@addkit eq or hmr3b@addbed eq or hmr3b@addoth eq )] [goto hmr13ack] [else] [goto HMR_endjob1] [endif] --------------------------------------------------------------------- >HMR13ack< [if hmr3b@addbed eq ] [goto hmr13a] [else] [goto hmr13a1ck] [endif] --------------------------------------------------------------------- >HMR13a< Earlier you reported a bedroom was added to your home. PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck13b] --------------------------------------------------------------------- >HMRck13b< [if i_addbed eq and cdepstat eq <1>] [goto hmr13b_adbedb] [else] [goto hmr13c] [endif] -------------------------------------------------------------------- >HMR13b_ADBEDB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same bedroom addition we recorded in [fill temp8], OR is it a different one? [if I_adbedam gt <1>] FOR INTERVIEWER REFERENCE ONLY (1) Yes, same job Amount of job from last interview: (2) No, different job $[fill I_adbedam] [endif] @ [@] <1> [goto @a] <2,D,R> [goto hmr13c] [@a] [reset hmr3b@addbed] [goto HMR13a1ck] -------------------------------------------------------------------- >HMR13c< [missing ] Did someone in your How much did the entire household do most of bedroom addition cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999997 (999998) $999,998 or more @ADBEDWK $@ADBEDAM [@ADBEDWK] <1,2,D,R> [goto @ADBEDAM] [@ADBEDAM] <0-999998,D,R> [goto HMR13a1ck] --------------------------------------------------------------------- >HMR13a1ck< [if hmr3b@addbth eq ] [goto hmr13a1] [else] [goto hmr13a2ck] [endif] -------------------------------------------------------------------- >HMR13a1< [if hmr13b_adbedb eq <>] Earlier you reported a bathroom was added to your home. [else] About the bathroom addition. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck13b1] -------------------------------------------------------------------- >HMRck13b1< [if i_addbth eq and cdepstat eq <1>] [goto hmr13b1_adbthb] [else] [goto hmr13c1] [endif] -------------------------------------------------------------------- >HMR13b1_ADBTHB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same bathroom addition we recorded in [fill temp8], OR is it a different one? [if I_adbtham gt <1>] FOR INTERVIEWER REFERENCE ONLY Amount of job from last interview: (1) Yes, same job $[fill I_adbtham] [endif] (2) No, different job @ [@] <1> [goto @a] <2,D,R> [goto hmr13c1] [@a] [reset hmr3b@addbth] [goto hmr13a2ck] -------------------------------------------------------------------- >HMR13c1< [missing ] Did someone in your How much did the entire household do most of bathroom addition cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @ADBTHWK $@ADBTHAM [@ADBTHWK] <1,2,D,R> [goto @ADBTHAM] [@ADBTHAM] <0-999998,D,R> [goto HMR13a2ck] --------------------------------------------------------------------- >HMR13a2ck< [if hmr3b@addkit eq ] [goto hmr13a2] [else] [goto hmr13a3ck] [endif] -------------------------------------------------------------------- >HMR13a2< [if hmr13b_adbedb eq <> and hmr13b1_adbthb eq <>] Earlier you reported a kitchen was added to your home. [else] About the kitchen addition. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck13b2] -------------------------------------------------------------------- >HMRck13b2< [if i_addkit eq and cdepstat eq <1>] [goto hmr13b2_adkitb] [else] [goto hmr13c2] [endif] -------------------------------------------------------------------- >HMR13b2_ADKITB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [store <> in tem4] [store <> in tem5] [store <> in tem6] [if I_adkitam gt <1>] [store in tem4] [store in tem5] [store I_adkitam in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same kitchen addition job we recorded in [fill temp8], OR is it a different one? [fill tem4] [fill tem5] (1) Yes, same job [fill tem6:$] (2) No, different job @ [@] <1> [goto @a] <2,D,R> [goto hmr13c2] [@a] [reset hmr3b@addkit] [goto hmr13a3ck] -------------------------------------------------------------------- >HMR13c2< [missing ] Did someone in your How much did the entire household do most of kitchen addition cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @ADKITWK $@ADKITAM [@ADKITWK] <1,2,D,R> [goto @ADKITAM] [@ADKITAM] <0-999998,D,R> [goto HMR13a3ck] --------------------------------------------------------------------- >HMR13a3ck< [if hmr3b@addoth eq ] [goto hmr13a3] [else] [goto HMR_endjob1] [endif] -------------------------------------------------------------------- >HMR13a3< [if hmr13b_adbedb eq <> and hmr13b1_adbthb eq <> and hmr13b2_adkitb eq <>] Earlier you reported some other room was added to your home. [else] About the other room addition. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck13b3] -------------------------------------------------------------------- >HMRck13b3< [if i_addoth eq and cdepstat eq <1>] [goto hmr13b3_adothb] [else] [goto hmr13c3] [endif] -------------------------------------------------------------------- >HMR13b3_ADOTHB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [store <> in tem4] [store <> in tem5] [store <> in tem6] [if I_adotham gt <1>] [store in tem4] [store in tem5] [store I_adotham in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same other room addition we recorded in [fill temp8], OR is it a different one? [fill tem4] [fill tem5] (1) Yes, same job [fill tem6:$] (2) No, different job @ [@] <1> [goto @a] <2,D,R> [goto hmr13c3] [@a] [if @ eq <1>] [reset hmr3b@addoth] [goto HMR_endjob1] [endif] -------------------------------------------------------------------- >HMR13c3< [missing ] Did someone in your How much did the entire household do most of other room addition cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @ADOTHWK $@ADOTHAM [@ADOTHWK] <1,2,D,R> [goto @ADOTHAM] [@ADOTHAM] <0-999998,D,R> [goto HMR_endjob1] --------------------------------------------------------------------- >HMR_endjob1< [if hmr3b@addbed eq <> and hmr3b@addbth eq <> and hmr3b@addkit eq <> and hmr3b@addoth eq <>] [store <2> in HMR3a_additon@] [goto hmrck14a] [else] [goto hmrck14a] [endif] --------------------------------------------------------------------- [# THIRD SET OF JOBS >HMRCK14a< [if stype eq <1> or stype eq <2> or stype eq <4>] [if hmr3c_bultout eq <1> and (hmr3d@garag eq or hmr3d@prch eq or hmr3d@deck eq or hmr3d@carport eq or hmr3d@othout eq )] [goto hmr14ack] [else] [goto HMR_endjob2] [endif][endif] --------------------------------------------------------------------- >HMR14aCK< [if hmr3d@garag eq ] [goto hmr14a] [else] [goto HMR14a1ck] [endif] --------------------------------------------------------------------- >HMR14a< Earlier you reported an attached garage was added to your home. PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmr14bck] --------------------------------------------------------------------- >HMR14bck< [if i_garag eq and cdepstat eq <1>] [goto hmr14b_garagb] [else] [goto hmr14c] [endif] --------------------------------------------------------------------- >HMR14b_GARAGB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [store <> in tem4] [store <> in tem5] [store <> in tem6] [if I_garagam gt <1>] [store in tem4] [store in tem5] [store I_garagam in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same attached garage addition we recorded in [fill temp8], OR is it a different one? [fill tem4] [fill tem5] (1) Yes, same job [fill tem6:$] (2) No, different job @ [@] <1> [goto @a] <2,D,R> [goto hmr14c] [@a] [reset hmr3d@garag] [goto hmr14a1ck] -------------------------------------------------------------------- >HMR14c< [missing ] Did someone in your How much did the entire household do most of attached garage addition the work? cost, including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @GARAGWK $@GARAGAM [@GARAGWK] <1,2,D,R> [goto @GARAGAM] [@GARAGAM] <0-999998,D,R> [goto HMR14A1ck] --------------------------------------------------------------------- >HMR14a1CK< [if hmr3d@prch eq ] [goto hmr14a1] [else] [goto HMR14a2ck] [endif] --------------------------------------------------------------------- >HMR14a1< [if hmr14b_garagb eq <>] Earlier you reported a porch was added to your home. [else] Now about the porch addition. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck14b1] --------------------------------------------------------------------- >HMRck14b1< [if i_prch eq and cdepstat eq <1>] [goto hmr14b1_porchb] [else] [goto hmr14c1] [endif] --------------------------------------------------------------------- >HMR14b1_PORCHB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [store <> in tem4] [store <> in tem5] [store <> in tem6] [if I_porcham gt <1>] [store in tem4] [store in tem5] [store I_porcham in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same porch addition we recorded in [fill temp8], OR is it a different one? [fill tem4] [fill tem5] (1) Yes, same job [fill tem6:$] (2) No, different job @ [@] <1> [goto @a] <2,D,R> [goto hmr14c1] [@a] [reset hmr3d@prch] [goto hmr14a2ck] -------------------------------------------------------------------- >HMR14c1< [missing ] Did someone in your How much did the entire household do most of porch addition cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @PORCKWK $@PORCHAM [@PORCKWK] <1,2,D,R> [goto @PORCHAM] [@PORCHAM] <0-999998,D,R> [goto HMR14A2ck] --------------------------------------------------------------------- >HMR14a2CK< [if hmr3d@deck eq ] [goto hmr14a2] [else] [goto HMR14a3ck] [endif] --------------------------------------------------------------------- >HMR14a2< [if hmr14b_garagb eq <> and hmr14b1_porchb eq <>] Earlier you reported a deck was added to your home. [else] Now about the deck addition. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck14b2] --------------------------------------------------------------------- >HMRck14b2< [if i_deck eq and cdepstat eq <1>] [goto hmr14b2_deckb] [else] [goto hmr14c2] [endif] --------------------------------------------------------------------- >HMR14b2_DECKB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [store <> in tem4] [store <> in tem5] [store <> in tem6] [if I_deckam gt <1>] [store in tem4] [store in tem5] [store I_deckam in tem6] [endif] Is this the same deck addition we recorded in [fill temp8], OR is it a different one? [fill tem4] [fill tem5] (1) Yes, same job [fill tem6:$] (2) No, different job @ [@] <1> [goto @a] <2,D,R> [goto hmr14c2] [@a] [reset hmr3d@deck] [goto hmr14a3ck] -------------------------------------------------------------------- >HMR14c2< [missing ] Did someone in your How much did the entire household do most of deck addition cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @DECKWK $@DECKAM [@DECKWK] <1,2,D,R> [goto @DECKAM] [@DECKAM] <0-999998,D,R> [goto HMR14a3ck] --------------------------------------------------------------------- >HMR14a3CK< [if hmr3d@carport eq ] [goto hmr14a3] [else] [goto HMR14a4ck] [endif] --------------------------------------------------------------------- >HMR14a3< [if hmr14b_garagb eq <> and hmr14b1_porchb eq <> and hmr14b2_deckb eq <>] Earlier you reported a carport was added to your home. [else] Now about the carport addition. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck14b3] --------------------------------------------------------------------- >HMRck14b3< [if i_carport eq and cdepstat eq <1>] [goto hmr14b3_crprtb] [else] [goto hmr14c3] [endif] --------------------------------------------------------------------- >HMR14b3_CRPRTB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [store <> in tem4] [store <> in tem5] [store <> in tem6] [if I_crprtam gt <1>] [store in tem4] [store in tem5] [store I_crprtam in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same carport addition we recorded in [fill temp8], OR is it a different one? [fill tem4] [fill tem5] (1) Yes, same job [fill tem6:$] (2) No, different job @ [@] <1> [goto @a] <2,D,R> [goto hmr14c3] [@a] [reset hmr3d@carport] [goto hmr14a4ck] -------------------------------------------------------------------- >HMR14c3< [missing ] Did someone in your How much did the entire household do most of carport addition job the work? cost,including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @CRPRTWK $@CRPRTAM [@CRPRTWK] <1,2,D,R> [goto @CRPRTAM] [@CRPRTAM] <0-999998,D,R> [goto HMR14A4ck] --------------------------------------------------------------------- >HMR14a4CK< [if hmr3d@othout eq ] [goto hmr14a4] [else] [goto HMR_endjob2] [endif] --------------------------------------------------------------------- >HMR14a4< [if hmr14b_garagb eq <> and hmr14b1_porchb eq <> and hmr14b2_deckb eq <> and hmr14b3_crprtb eq <>] Earlier you reported some other outside addition to your home. [else] Now about the other outside addition. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck14b4] --------------------------------------------------------------------- >HMRck14b4< [if i_othout eq and cdepstat eq <1>] [goto hmr14b4_othotb] [else] [goto HMR14c4] [endif] --------------------------------------------------------------------- >HMR14b4_OTHOTB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [store <> in tem4] [store <> in tem5] [store <> in tem6] [if I_othotam gt <1>] [store in tem4] [store in tem5] [store I_othotam in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same other outside addition we recorded in [fill temp8], OR is it a different one? [fill tem4] [fill tem5] (1) Yes, same job $[fill tem6] (2) No, different job @ [@] <1> [goto @a] <2,D,R> [goto hmr14c4] [@a] [if @ eq <1>] [reset hmr3d@othout] [goto hmr_endjob2] [endif] -------------------------------------------------------------------- >HMR14c4< [missing ] Did someone in your How much did the entire household do most of other outside addition cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @OTHOTWK $@OTHOTAM [@OTHOTWK] <1,2,D,R> [goto @OTHOTAM] [@OTHOTAM] <0-999998,D,R> [goto HMR_endjob2] --------------------------------------------------------------------- >HMR_endjob2< [if hmr3d@garag eq <> and hmr3d@prch eq <> and hmr3d@deck eq <> and hmr3d@carport eq <> and hmr3d@othout eq <>] [store <2> in hmr3c_bultout@] [goto hmrck15a] [else] [goto hmrck15a] [endif] -------------------------------------------------------------------- [#FORTH SET OF JOBS --------------------------------------------------------------------- >HMRCK15a< [if hmr4a_bthkit eq <1> and (hmr4b@bthroom eq or hmr4b@kitchn eq )] [goto hmr15aCK] [else] [goto hmrck16a] [endif] --------------------------------------------------------------------- --------------------------------------------------------------------- >HMR15aCK< [if hmr4b@bthroom eq ] [goto hmr15a] [else] [goto hmr15a1ck] [endif] --------------------------------------------------------------------- >HMR15a< Earlier you reported a bathroom was remodeled in your home. PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck15b] --------------------------------------------------------------------- >HMRck15b< [if i_bthroom eq and cdepstat eq <1>] [goto hmr15b_bthrdb] [else] [goto hmr15c] [endif] --------------------------------------------------------------------- >HMR15b_BTHRDB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [store <> in tem4] [store <> in tem5] [store <> in tem6] [if I_bthrdam gt <1>] [store in tem4] [store in tem5] [store I_bthrdam in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same bathroom remodeling job we recorded in [fill temp8], OR is it a different one? [fill tem4] [fill tem5] (1) Yes, same job [fill tem6:$] (2) No, different job @ [@] <1> [goto @a] <2,D,R> [goto hmr15c] [@a] [if @ eq <1>] [reset hmr4b@bthroom] [goto HMR15a1CK] [endif] -------------------------------------------------------------------- >HMR15c< [missing ] Did someone in your How much did the entire household do most of bathroom remodeling job cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @BTHRDWK $@BTHRDAM [@BTHRDWK] <1,2,D,R> [goto @BTHRDAM] [@BTHRDAM] <0-999998,D,R> [goto HMR15A1ck] --------------------------------------------------------------------- >HMR15a1CK< [if hmr4b@kitchn eq ] [goto hmr15a1] [else] [goto HMR_endjob3] [endif] --------------------------------------------------------------------- >HMR15a1< [if hmr15b_bthrdb eq <>] Earlier you reported a kitchen was remodeled in your home. [else] About the kitchen remodeling job. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck15b1] --------------------------------------------------------------------- >HMRck15b1< [if i_kitchn eq and cdepstat eq <1>] [goto hmr15b1_kitrdb] [else] [goto hmr15c1] [endif] --------------------------------------------------------------------- >HMR15b1_KITRDB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [# [store <> in tem4] [store <> in tem5] [store <> in tem6] [if I_kitrdam gt <1>] [store in tem4] [store in tem5] [store I_kitrdam in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same kitchen remodeling job we recorded in [fill temp8], OR is it a different one? [fill tem4] [fill tem5] (1) Yes, same job [fill tem6:$] (2) No, different job @ [@] <1> [goto @a] <2,D,R> [goto hmr15c1] [@a] [if @ eq <1>] [reset hmr4b@kitchn] [goto HMR_endjob3] [endif] -------------------------------------------------------------------- >HMR15c1< [missing ] Did someone in your How much did the entire household do most of kitchen remodeling job cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @KITRDWK $@KITRDAM [@KITRDWK] <1,2,D,R> [goto @KITRDAM] [@KITRDAM] <0-999998,D,R> [goto HMR_endjob3] --------------------------------------------------------------------- >HMR_endjob3< [if hmr4b@bthroom eq <> and hmr4b@kitchn eq <>] [store <2> in hmr4a_bthkit] [goto hmrck16a] [else] [goto hmrck16a] [endif] --------------------------------------------------------------------- [#5TH SET OF JOBS --------------------------------------------------------------------- >HMRck16a< [if hmr5a_renalt eq <1> and (hmr5b@renbedr eq or hmr5b@renbth eq or hmr5b@renoth eq )] [goto hmr16ack] [else] [goto hmrck17a] [endif] --------------------------------------------------------------------- >HMR16aCK< [if hmr5b@renbedr eq ] [goto hmr16a] [else] [goto hmr16a1ck] [endif] --------------------------------------------------------------------- >HMR16a< Earlier you reported a bedroom was renovated by moving, changing, or removing walls. PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck16b] --------------------------------------------------------------------- >HMRck16b< [if i_renbedr eq and cdepstat eq <1>] [goto hmr16b_rnbedrb] [else] [goto hmr16c] [endif] --------------------------------------------------------------------- >HMR16b_RNBEDRB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [store <> in tem4] [store <> in tem5] [store <> in tem6] [if I_rnbedam gt <1>] [store in tem4] [store in tem5] [store I_rnbedam in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same bedroom renovation we recorded in [fill temp8], OR is it a different one? [fill tem4] [fill tem5] (1) Yes, same job [fill tem6:$] (2) No, different job @ [@] <1> [goto @a] <2,D,R> [goto hmr16c] [@a] [if @ eq <1>] [reset hmr5b@renbedr] [goto hmr16a1ck] [endif] -------------------------------------------------------------------- >HMR16c< [missing ] Did someone in your How much did the entire household do most of bedroom renovation job cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @RNBEDWK $@RNBEDAM [@RNBEDWK] <1,2,D,R> [goto @RNBEDAM] [@RNBEDAM] <0-999998,D,R> [goto HMR16A1ck] --------------------------------------------------------------------- >HMR16a1CK< [if hmr5b@renbth eq ] [goto hmr16a1] [else] [goto hmr16a2ck] [endif] --------------------------------------------------------------------- >HMR16a1< [if hmr16b_rnbedrb eq <>] Earlier you reported a bathroom was renovated by moving, changing, or removing walls. [else] About the bathroom renovation. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck16b1] --------------------------------------------------------------------- >HMRck16b1< [if i_renbth eq and cdepstat eq <1>] [goto hmr16b1_rnbthb] [else] [goto hmr16c1] [endif] --------------------------------------------------------------------- >HMR16b1_RNBTHB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [# [store <> in tem4] [store <> in tem5] [store <> in tem6] [if I_rnbtham gt <1>] [store in tem4] [store in tem5] [store I_rnbtham in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same bathroom renovation we recorded in [fill temp8], OR is it a different one? [fill tem4] (1) Yes, same job [fill tem5] (2) No, different job [fill tem6:$] @ [@] <1> [goto @a] <2,D,R> [goto hmr16c1] [@a] [if @ eq <1>] [reset hmr5b@renbth] [goto hmr16a2ck] [endif] -------------------------------------------------------------------- >HMR16c1< [missing ] Did someone in your How much did the entire household do most of bathroom renovation job cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @RNBTHWK $@RNBTHAM [@RNBTHWK] <1,2,D,R> [goto @RNBTHAM] [@RNBTHAM] <0-999998,D,R> [goto HMR16A2ck] --------------------------------------------------------------------- >HMR16a2CK< [if hmr5b@renoth eq ] [goto hmr16a2] [else] [goto hmr_endjob4] [endif] --------------------------------------------------------------------- >HMR16a2< [if hmr16b_rnbedrb eq <> and hmr16b1_rnbthb eq <>] Earlier you reported some other room was renovated by moving, changing, or removing walls. [else] About the other room renovation. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck16b2] --------------------------------------------------------------------- >HMRck16b2< [if i_renoth eq and cdepstat eq <1>] [goto hmr16b2_rnothb] [else] [goto hmr16c2] [endif] --------------------------------------------------------------------- >HMR16b2_RNOTHB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [# [store <> in tem4] [store <> in tem5] [store <> in tem6] [if I_rnotham gt <1>] [store in tem4] [store in tem5] [store I_rnotham in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same other room renovation we recorded in [fill temp8], OR is it a different one? [fill tem4] [fill tem5] (1) Yes, same job [fill tem6:$] (2) No, different job @ [@] <1> [goto @a] <2,D,R> [goto hmr16c2] [@a] [if @ eq <1>] [reset hmr5b@renoth] [goto HMR_ENDJOB4] [endif] -------------------------------------------------------------------- >HMR16c2< [missing ] Did someone in your How much did the entire household do most of other room renovation job the work? cost, including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @RNOTHWK $@RNOTHAM [@RNOTHWK] <1,2,D,R> [goto @RNOTHAM] [@RNOTHAM] <0-999998,D,R> [goto HMR_ENDJOB4] --------------------------------------------------------------------- >HMR_ENDJOB4< [if hmr5b@renbedr eq <> and hmr5b@renbth eq <> and hmr5b@renoth eq <>] [store <2> in hmr5a_renalt@] [goto hmrck17a] [else] [goto hmrck17a] [endif] --------------------------------------------------------------------- [#6TH SET OF JOBS --------------------------------------------------------------------- >HMRCK17a< [if hmr6@roof eq <1> or hmr6@siding eq <1> or hmr6@doorwin eq <1> or hmr6@insulat eq <1> or hmr6@wtrpipe eq <1> or hmr6@plumfxt eq <1> or hmr6@wiring eq <1> or hmr6@secure eq <1>] [goto hmr17ack] [else] [goto hmrck18a] [endif] --------------------------------------------------------------------- >HMR17aCK< [if hmr6@roof eq <1>] [goto hmr17a] [else] [goto HMR17a1ck] [endif] --------------------------------------------------------------------- >HMR17a< Earlier you reported a roof was added or replaced on your home. PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmr17bck] --------------------------------------------------------------------- >HMR17bck< [if i_roof eq <1> and cdepstat eq <1>] [goto hmr17b_roofb] [else] [goto hmr17c] [endif] --------------------------------------------------------------------- >HMR17b_ROOFB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [# [store <> in temp4] [store <> in temp5] [store <> in temp6] [if I_roofam gt <1>] [store in tem4] [store in tem5] [store I_roofam in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same roofing job we recorded in [fill temp8], OR is it a different one? [fill tem4] (1) Yes, same job [fill tem5] (2) No, different job [fill tem6:$] @ [@] <1> [goto @a] <2,D,R> [goto hmr17c] [@a] [if @ eq <1>] [reset hmr6@roof] [store <2> in hmr6@roof] [goto HMR17a1ck] [endif] -------------------------------------------------------------------- >HMR17c< [missing ] Did someone in your How much did the entire household do most of roofing job cost,including the work? your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @ROOFWK $@ROOFAM [@ROOFWK] <1,2,D,R> [goto @ROOFAM] [@ROOFAM] <0-999998,D,R> [goto HMR17A1CK] --------------------------------------------------------------------- >HMR17a1CK< [if hmr6@siding eq <1>] [goto hmr17a1] [else] [goto HMR17a2ck] [endif] --------------------------------------------------------------------- >HMR17a1< [if hmr17b_roofb eq <>] Earlier you reported siding was added or replaced on your home. [else] About the siding that was added or replaced. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmr17b1ck] --------------------------------------------------------------------- >HMR17b1ck< [if i_siding eq <1> and cdepstat eq <1>] [goto hmr17b1_sidngb] [else] [goto hmr17c1] [endif] --------------------------------------------------------------------- >HMR17b1_SIDNGB< [missing ] [store <> in temp8] [store <> in tem6] [store <> in tem7] [store <> in tem8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [if i_adsidam gt <1> or i_alsidam gt <1> or i_sidam gt <1>] [store in tem4] [store in tem5] [endif] [if I_adsidam gt <1>] [store i_adsidam in tem6] [endif] [if I_alsidam gt <1>] [store i_alsidam in tem7] [endif] [if I_sidam gt <1>] [store i_sidam in tem8] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same siding job we recorded in [fill temp8], OR is it a different one? [fill tem4] (1) Yes, same job [fill tem5] (2) No, different job [fill tem6:$] [fill tem7:$] @ [fill tem8:$] [@] <1> [goto @a] <2,D,R> [goto hmr17c2] [@a] [if @ eq <1>] [reset hmr6@siding] [store <2> in hmr6@siding] [goto HMR17a1ck] [endif] -------------------------------------------------------------------- >HMR17c1< [missing ] Did someone in your How much did the entire household do most of siding job cost,including the work? your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @SIDWK $@SIDAM [@SIDWK] <1,2,D,R> [goto @SIDAM] [@SIDAM] <0-999998,D,R> [goto HMR17A2CK] --------------------------------------------------------------------- >HMR17a2CK< [if hmr6@doorwin eq <1>] [goto hmr17a2] [else] [goto HMR17a3ck] [endif] --------------------------------------------------------------------- >HMR17a2< [if hmr17b_roofb eq <> and hmr17b1_SIDNGB eq <>] Earlier you reported doors or windows were added or replaced on your home. [else] About the doors or windows that were added or replaced. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmr17b2ck] --------------------------------------------------------------------- >HMR17b2ck< [if i_doorwin eq <1> and cdepstat eq <1>] [goto hmr17b2_doorb] [else] [goto hmr17c2] [endif] --------------------------------------------------------------------- >HMR17b2_DOORB< [missing ] [store <> in temp4] [store <> in temp5] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [if I_adooram gt <1> or i_rpdoram gt <1> or i_dooram gt <1>] [store in tem4] [store in tem5] [store I_adooram in tem6] [store i_rpdoram in tem7] [store i_dooram in tem8] [endif] [if I_adooram gt <1>] [store i_adooram in tem6] [endif] [if I_rpdoram gt <1>] [store i_rpdoram in tem7] [endif] [if I_dooram gt <1>] [store i_dooram in tem8] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same doors or windows job we recorded in [fill temp8], OR is it a different one? [fill tem4] [fill tem5] (1) Yes, same job [fill tem6:$] (2) No, different job [fill tem7:$] [fill tem8:$] @ [@] <1> [goto @a] <2,D,R> [goto hmr17c2] [@a] [if @ eq <1>] [reset hmr6@doorwin] [store <2> in hmr6@doorwin] [goto HMR17a3ck] [endif] -------------------------------------------------------------------- >HMR17c2< [missing ] Did someone in your How much did the entire household do most of doors or windows job cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @DOORWK $@DOORAM [@DOORWK] <1,2,D,R> [goto @DOORAM] [@DOORAM] <0-999998,D,R> [goto HMR17A3CK] --------------------------------------------------------------------- >HMR17a3CK< [if hmr6@insulat eq <1>] [goto hmr17a3] [else] [goto HMR17a4ck] [endif] --------------------------------------------------------------------- >HMR17a3< [if hmr17b_roofb eq <> and hmr17b1_SIDNGB eq <> and hmr17b2_doorb eq <>] Earlier you reported insulation was added or replaced in your home. [else] About the insulation that was added or replaced. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmr17b3ck] --------------------------------------------------------------------- >HMR17b3ck< [if i_insulat eq <1> and cdepstat eq <1>] [goto hmr17b3_inslb] [else] [goto hmr17c3] [endif] --------------------------------------------------------------------- >HMR17b3_INSLB< [missing ] [store <> in temp4] [store <> in temp5] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [if I_adinsam gt <1> or i_rpinsam gt <1> or i_inslam gt <1>] [store in tem4] [store in tem5] [endif] [if I_adinsam gt <1>] [store i_adinsam in tem6] [endif] [if I_rpinsam gt <1>] [store i_rpinsam in tem7] [endif] [if I_inslam gt <1>] [store i_inslam in tem8] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same insulation job we recorded in [fill temp8], OR is it a different one? [fill tem4] [fill tem5] (1) Yes, same job [fill tem6:$] (2) No, different job [fill tem7:$] [fill tem8:$] @ [@] <1> [goto @a] <2,D,R> [goto hmr17c3] [@a] [if @ eq <1>] [reset hmr6@insulat] [store <2> in hmr6@insulat] [goto HMR17a4ck] [endif] [goto hmr18a2ck] -------------------------------------------------------------------- >HMR17c3< [missing ] Did someone in your How much did the entire household do most of insulation job cost,including the work? your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @INSLWK $@INSLAM [@INSLWK] <1,2,D,R> [goto @INSLAM] [@INSLAM] <0-999998,D,R> [goto HMR17A4CK] --------------------------------------------------------------------- >HMR17a4CK< [if hmr6@wtrpipe eq <1>] [goto hmr17a4] [else] [goto HMR17a5ck] [endif] --------------------------------------------------------------------- >HMR17a4< [if hmr17b_roofb eq <> and hmr17b1_SIDNGB eq <> and hmr17b2_doorb eq <> and hmr17b3_inslb eq <>] Earlier you reported interior water pipes were added or replaced in your home. [else] About the interior water pipes that were added or replaced. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmr17b4ck] --------------------------------------------------------------------- >HMR17b4ck< [if i_wtrpipe eq <1> and cdepstat eq <1>] [goto hmr17b4_pipeb] [else] [goto hmr17c4] [endif] --------------------------------------------------------------------- >HMR17b4_PIPEB< [missing ] [store <> in temp4] [store <> in temp5] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [if I_pipeam gt <1> or i_adpipam gt <1> or i_alpipam gt <1>] [store in tem4] [store in tem5] [endif] [if I_pipeam gt <1>] [store i_pipeam in tem6] [endif] [if I_adpipam gt <1>] [store i_adpipam in tem7] [endif] [if I_alpipam gt <1>] [store i_alpipam in tem8] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same interior water pipes job we recorded in [fill temp8], OR is it a different one? [fill tem4] [fill tem5] (1) Yes, same job [fill tem6:$] (2) No, different job [fill tem7:$] [fill tem8:$] @ [@] <1> [goto @a] <2,D,R> [goto hmr17c4] [@a] [if @ eq <1>] [reset hmr6@wtrpipe] [store <2> in hmr6@wtrpipe] [goto HMR17a5ck] [endif] -------------------------------------------------------------------- >HMR17c4< [missing ] Did someone in your How much did the entire household do most of interior water pipes job cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @PIPEWK $@PIPEAM [@PIPEWK] <1,2,D,R> [goto @PIPEAM] [@PIPEAM] <0-999998,D,R> [goto HMR17A5CK] --------------------------------------------------------------------- >HMR17a5CK< [if hmr6@plumfxt eq <1>] [goto hmr17a5] [else] [goto HMR17a6ck] [endif] --------------------------------------------------------------------- >HMR17a5< [if hmr17b_roofb eq <> and hmr17b1_SIDNGB eq <> and hmr17b2_doorb eq <> and hmr17b3_inslb eq <> and hmr17b4_pipeb eq <>] Earlier you reported plumbing fixtures, such as sinks or bathtubs were added or replaced in your home. [else] About the plumbing fixtures, such as sinks or bathtubs that were added or replaced. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmr17b5ck] --------------------------------------------------------------------- >HMR17b5ck< [if I_PLUMFXT eq <1> and cdepstat eq <1>] [goto hmr17b5_plfxtb] [else] [goto hmr17c5] [endif] --------------------------------------------------------------------------- >HMR17b5_PLFXTB< [missing ] [store <> in tem4] [store <> in tem5] [store <> in tem6] [store <> in tem7] [store <> in tem8] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [if I_adfxtam gt <1> or i_plfxtam gt <1> or I_rpfxtam gt <1>] [store in tem4] [store in tem5] [endif] [if I_adfxtam gt <1>] [store i_adfxtam in tem6] [endif] [if I_plfxtam gt <1>] [store i_plfxtam in tem7] [endif] [if I_rpfxtam gt <1>] [store i_rpfxtam in tem8] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same plumbing fixtures job we recorded in [fill temp8], OR is it a different one? [fill tem4] (1) Yes, same job [fill tem5] (2) No, different job [fill tem6:$] [fill tem7:$] @ [fill tem8:$] [@] <1> [goto @a] <2,D,R> [goto hmr17c5] [@a] [if @ eq <1>] [reset hmr6@plumfxt] [store <2> in hmr6@plumfxt] [goto HMR17a6ck] [endif] -------------------------------------------------------------------- >HMR17c5< [missing ] Did someone in your How much did the entire household do most of plumbing fixtures job cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @PLFXTWK $@PLFXTAM [@PLFXTWK] <1,2,D,R> [goto @PLFXTAM] [@PLFXTAM] <0-999998,D,R> [goto HMR17A6CK] --------------------------------------------------------------------- >HMR17a6CK< [if hmr6@WIRING eq <1>] [goto hmr17a6] [else] [goto HMR17a7ck] [endif] --------------------------------------------------------------------- >HMR17a6< [if hmr17b_roofb eq <> and hmr17b1_SIDNGB eq <> and hmr17b2_doorb eq <> and hmr17b3_inslb eq <> and hmr17b4_pipeb eq <> and hmr17b5_plfxtb eq <>] Earlier you reported electrical wiring, fuse boxes or breaker switches were added or replaced in your home. [else] About the electrical wiring, fuse boxes or breaker switches that were added or replaced. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmr17b6ck] --------------------------------------------------------------------- >HMR17b6ck< [if i_wiring eq <1> and cdepstat eq <1>] [goto hmr17b6_wirngb] [else] [goto hmr17c6] [endif] --------------------------------------------------------------------- >HMR17b6_WIRNGB< [missing ] [store <> in tem5] [store <> in tem6] [store <> in tem7] [store <> in tem8] [store <> in tem9] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [# [if I_adwiram gt <1> or I_rewiram gt <1> or I_fuseam gt <1> or i_wiram gt <1>] [store in tem4] [store in tem5] [endif] [if I_adwiram gt <1>] [store I_adwiram in tem6] [endif] [if I_rewiram gt <1>] [store I_rewiram in tem7] [endif] [if I_fuseam gt <1>] [store I_fuseam in tem8] [endif] [if i_wiram gt <1>] [store I_wiram in tem9] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same electrical job we recorded in [fill temp8], OR is it a different one? [fill tem4] [fill tem5] (1) Yes, same job [fill tem6:$] (2) No, different job [fill tem7:$] [fill tem8:$] @ [fill tem9:$] [@] <1> [goto @a] <2,D,R> [goto hmr17c6] [@a] [if @ eq <1>] [reset hmr6@wiring] [store <2> in hmr6@wiring] [goto HMR17a7ck] [endif] -------------------------------------------------------------------- >HMR17c6< [missing ] Did someone in your How much did the entire household do most of electrical job cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @WIRWK $@WIRAM [@WIRWK] <1,2,D,R> [goto @WIRAM] [@WIRAM] <0-999998,D,R> [goto HMR17A7CK] --------------------------------------------------------------------- >HMR17a7CK< [if hmr6@SECURE eq <1>] [goto hmr17a7] [else] [goto hmrck18a] [endif] --------------------------------------------------------------------- >HMR17a7< [if hmr17b_roofb eq <> and hmr17b1_SIDNGB eq <> and hmr17b2_doorb eq <> and hmr17b3_inslb eq <> and hmr17b4_pipeb eq <> and hmr17b5_plfxtb eq <> and hmr17b6_wirngb eq <>] Earlier you reported security system was added or replaced in your home. [else] About the security system that was added or replaced. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmr17b7ck] --------------------------------------------------------------------- >HMR17b7ck< [if i_secure eq <1> and cdepstat eq <1>] [goto hmr17b7_securb] [else] [goto hmr17c7] [endif] --------------------------------------------------------------------- >HMR17b7_SECURB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [# [if I_securam gt <1>] [store in tem4] [store in tem5] [store I_securam in tem6] [else] [store <> in tem4] [store <> in tem5] [store <> in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same security system job we recorded in [fill temp8], OR is it a different one? [fill tem4] [fill tem5] (1) Yes, same job [fill tem6:$] (2) No, different job @ [@] <1> [goto @a] <2,D,R> [goto HMR17c7] [@a] [if @ eq <1>] [reset hmr6@secure] [store <2> in hmr6@secure] [goto hmrck18a] [endif] -------------------------------------------------------------------- >HMR17c7< [missing ] Did someone in your How much did the entire household do most of security system job cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @SECURWK $@SECURAM [@SECURWK] <1,2,D,R> [goto @SECURAM] [@SECURAM] <0-999998,D,R> [goto HMRCK18A] --------------------------------------------------------------------- [#7TH SET OF JOBS --------------------------------------------------------------------- >HMRCK18a< [if hmr7a@floorin eq <1> or hmr7a@panel eq <1> or (hmr7a@carpet eq <1> and (hmr7b@subfl eq or hmr7b@finfl eq ))] [goto hmr18ack] [else] [goto hmrck19a] [endif] --------------------------------------------------------------------- >HMR18ack< [if hmr7a@carpet eq <1> and hmr7b@subfl eq ] [goto hmr18a] [else] [goto hmr18a1ck] [endif] --------------------------------------------------------------------- >HMR18a< Earlier you reported wall-to-wall carpeting was installed over sub-flooring in your home. PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck18b] --------------------------------------------------------------------- >HMRck18b< [if I_CARPET eq <1> and I_SUBFL eq and CDEPSTAT eq <1>] [goto HMR18B_SUBFLB] [else] [goto HMR18c] [endif] --------------------------------------------------------------------- >HMR18b_SUBFLB< [missing ] [store <> in tem4] [store <> in tem5] [store <> in tem6] [store <> in tem7] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [# [if i_adsubam gt <1> or i_subflam gt <1>] [store in tem4] [store in tem5] [endif] [if I_adsubam gt <1>] [store i_adsubam in tem6] [endif] [if I_subflam gt <1>] [store i_subflam in tem7] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same carpet installation over sub-flooring job we recorded in [fill temp8], OR is it a different one? [fill tem4] (1) Yes, same job [fill tem5] (2) No, different job [fill tem6:$] [fill tem7:$] @ [@] <1> [goto @a] <2,D,R> [goto HMR18c] [@a] [if @ eq <1>] [reset hmr7b@subfl] [goto hmr18a1ck] [endif] -------------------------------------------------------------------- >HMR18c< [missing ] Did someone in your How much did the entire carpet household do most of installation over sub-flooring cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @SUBFLWK $@SUBFLAM [@SUBFLWK] <1,2,D,R> [goto @SUBFLAM] [@SUBFLAM] <0-999998,D,R> [goto HMR18A1ck] --------------------------------------------------------------------- >HMR18a1ck< [if hmr7a@carpet eq <1> and hmr7b@finfl eq ] [goto hmr18a1] [else] [goto hmr18a2ck] [endif] --------------------------------------------------------------------- >HMR18a1< [if hmr18b_subflb eq <>] Earlier you reported wall-to-wall carpeting was installed over existing, finished flooring in your home. [else] About the wall-to-wall carpeting you installed over existing, finished flooring. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck18b1] --------------------------------------------------------------------- >HMRck18b1< [if I_CARPET eq <1> and I_FINFL eq and CDEPSTAT eq <1>] [goto HMR18B1_FINFLB] [else] [goto HMR18c1] [endif] --------------------------------------------------------------------- >HMR18b1_FINFLB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [# [if i_finflam gt <1>] [store in tem4] [store in tem5] [store I_FINFLAM in tem6] [else] [store <> in tem4] [store <> in tem5] [store <> in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same carpet installation over existing, finished flooring job we recorded in [fill temp8], OR is it a different one? (1) Yes, same job [fill tem4] (2) No, different job [fill tem5] [fill tem6:$] @ [@] <1> [goto @a] <2,D,R> [goto HMR18c1] [@a] [if @ eq <1>] [reset hmr7b@finfl] [endif] [if hmr7b@subfl eq <>] [reset hmr7a@carpet] [store <2> in hmr7a@carpet] [goto hmr18a2ck] [endif] [goto hmr18a2ck] -------------------------------------------------------------------- >HMR18c1< [missing ] Did someone in your How much did the entire carpet household do most of installation over existing, finished the work? flooring job cost, including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @FINFLWK $@FINFLAM [@FINFLWK] <1,2,D,R> [goto @FINFLAM] [@FINFLAM] <0-999998,D,R> [goto HMR18A2ck] --------------------------------------------------------------------- >HMR18a2ck< [if hmr7a@floorin eq <1>] [goto hmr18a2] [else] [goto hmr18a3ck] [endif] --------------------------------------------------------------------- >HMR18a2< [if hmr18b_subflb eq <> and hmr18b1_finflb eq <>] Earlier you reported flooring, such as wood, tile, marble, or vinyl was installed in your home. [else] About the flooring such as wood, tile, marble, or vinyl you installed. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck18b2] --------------------------------------------------------------------- >HMRck18b2< [if I_FLOORIN eq <1> and cdepstat eq <1>] [goto hmr18b2_floorb] [else] [goto hmr18c2] [endif] --------------------------------------------------------------------- >HMR18B2_FLOORB< [missing ] [store <> in tem4] [store <> in tem5] [store <> in tem6] [store <> in tem7] [store <> in tem8] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [# [if i_adflram gt <1> or i_sdflram gt <1> or i_flooram gt <1>] [store in tem4] [store in tem5] [endif] [if I_adflram gt <1>] [store I_adflram in tem6] [endif] [if I_sdflram gt <1>] [store I_sdflram in tem7] [endif] [if I_flooram gt <1>] [store I_flooram in tem8] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same flooring installation we recorded in [fill temp8], OR is it a different one? [fill tem4] (1) Yes, same job [fill tem5] (2) No, different job [fill tem6:$] [fill tem7:$] @ [fill tem8:$] [@] <1> [goto @a] <2,D,R> [goto HMR18c2] [@a] [if @ eq <1>] [reset hmr7a@floorin] [store <2> in hmr7a@floorin] [goto hmr18a3ck] [endif] -------------------------------------------------------------------- >HMR18c2< [missing ] Did someone in your How much did the entire household do most of flooring installation cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @FLOORWK $@FLOORAM [@FLOORWK] <1,2,D,R> [goto @FLOORAM] [@FLOORAM] <0-999998,D,R> [goto HMR18A3ck] --------------------------------------------------------------------- >HMR18a3ck< [if hmr7a@panel eq <1>] [goto hmr18a3] [else] [goto hmrck19a] [endif] --------------------------------------------------------------------- >HMR18a3< [if hmr18b_subflb eq <> and hmr18b1_finflb eq <> and hmr18b2_floorb eq <>] Earlier you reported paneling or ceiling tiles were installed in your home. [else] About the paneling or ceiling tiles you installed. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck18b3] --------------------------------------------------------------------- >HMRck18b3< [if i_panel eq <1> and cdepstat eq <1>] [goto hmr18b3_panelb] [else] [goto hmr18c3] [endif] --------------------------------------------------------------------- >HMR18B3_PANELB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [# [store <> in tem4] [store <> in tem5] [store <> in tem6] [store <> in tem7] [store <> in tem8] [store <> in tem4] [store <> in tem5] [store <> in tem6] [store <> in tem7] [store <> in tem8] [if i_nwpnlam gt <1> or i_rpanlam gt <1> or i_panelam gt <1>] [store in tem4] [store in tem5] [endif] [if I_nwpnlam gt <1>] [store I_nwpnlam in tem6] [endif] [if I_rpanlam gt <1>] [store I_rpanlam in tem7] [endif] [if I_panelam gt <1>] [store I_panelam in tem8] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same paneling or ceiling tile installation we recorded in [fill temp8], OR is it a different one? [fill tem4] (1) Yes, same job [fill tem5] (2) No, different job [fill tem6:$] [fill tem7:$] @ [fill tem8:$] [@] <1> [goto @a] <2,D,R> [goto HMR18c3] [@a] [if @ eq <1>] [reset hmr7a@panel] [store <2> in hmr7a@panel] [goto hmrck19a] [endif] -------------------------------------------------------------------- >HMR18c3< [missing ] Did someone in your How much did the entire paneling household do most of or ceiling tile installation the work? cost,including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @PANELWK $@PANELAM [@PANELWK] <1,2,D,R> [goto @PANELAM] [@PANELAM] <0-999998,D,R> [goto HMRck19A] --------------------------------------------------------------------- [#8TH SET OF JOBS --------------------------------------------------------------------- >HMRCK19A< [if hmr8@cenair eq <1> or hmr8@heatequ eq <1> or hmr8@septic eq <1> or hmr8@wtrhtr eq <1> or hmr8@dshwshr eq <1> or hmr8@dsposal eq <1>] [goto hmr19ack] [else] [goto hmrck20a] [endif] --------------------------------------------------------------------- >HMR19ack< [if hmr8@cenair eq <1>] [goto hmr19a] [else] [goto hmr19a1ck] [endif] --------------------------------------------------------------------- >HMR19a< Earlier you reported central air conditioning was added or replaced in your home. PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck19b] --------------------------------------------------------------------- >HMRck19b< [if i_cenair eq <1> and cdepstat eq <1>] [goto hmr19b_cenarb] [else] [goto hmr19c] [endif] --------------------------------------------------------------------- >HMR19B_CENARB< [missing ] [store <> in tem4] [store <> in tem5] [store <> in tem6] [store <> in tem7] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [# [if i_rcenam gt <1> or i_cenaram gt <1>] [store in tem4] [store in tem5] [endif] [if I_rcenam gt <1>] [store I_rcenam in tem6] [endif] [if I_cenaram gt <1>] [store I_cenaram in tem7] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same central air conditioning job we recorded in [fill temp8], OR is it a different job? [fill tem4] (1) Yes, same job [fill tem5] (2) No, different job [fill tem6:$] [fill tem7:$] @ [@] <1> [goto @a] <2,D,R> [goto HMR19c] [@a] [if @ eq <1>] [reset hmr8@cenair] [store <2> in hmr8@cenair] [goto hmr19a1ck] [endif] -------------------------------------------------------------------- >HMR19c< [missing ] Did someone in your How much did the entire household do most of central air conditioning the work? job cost, including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @CENARWK $@CENARAM [@CENARWK] <1,2,D,R> [goto @CENARAM] [@CENARAM] <0-999998,D,R> [goto HMR19A1CK] --------------------------------------------------------------------- >HMR19a1ck< [if hmr8@heatequ eq <1>] [goto hmr19a1] [else] [goto hmr19a2ck] [endif] --------------------------------------------------------------------- >HMR19a1< [if hmr19b_cenarb eq <>] Earlier you reported built-in heating equipment, such as a furnace, boiler, duct work or radiators was added or replaced in your home. [else] About the built-in heating equipment, such as a furnace, boiler, duct work or radiators that was added or replaced. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck19b1] --------------------------------------------------------------------- >HMRck19b1< [if i_heatequ eq <1> and cdepstat eq <1>] [goto hmr19b1_htequb] [else] [goto hmr19c1] [endif] --------------------------------------------------------------------- >HMR19B1_HTEQUB< [missing ] [store <> in tem4] [store <> in tem5] [store <> in tem6] [store <> in tem7] [store <> in tem8] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [# [if i_adheam gt <1> or i_hequam gt <1> or i_htequam gt <1>] [store in tem4] [store in tem5] [endif] [if I_adheam gt <1>] [store I_adheam in tem6] [endif] [if I_hequam gt <1>] [store I_hequam in tem7] [endif] [if I_htequam gt <1>] [store I_htequam in tem8] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same built-in heating equipment job we recorded in [fill temp8], OR is it a different job? (1) Yes, same job [fill tem4] (2) No, different job [fill tem5] [fill tem6:$] @ [fill tem7:$] [fill tem8:$] [@] <1> [goto @a] <2,D,R> [goto HMR19c1] [@a] [if @ eq <1>] [reset hmr8@heatequ] [store <2> in hmr8@heatequ] [goto hmr19a2ck] [endif] -------------------------------------------------------------------- >HMR19c1< [missing ] Did someone in your How much did the entire household do most of built-in heating job cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @HTEQUWK $@HTEQUAM [@HTEQUWK] <1,2,D,R> [goto @HTEQUAM] [@HTEQUAM] <0-999998,D,R> [goto HMR19A2CK] --------------------------------------------------------------------- >HMR19a2ck< [if hmr8@septic eq <1>] [goto hmr19a2] [else] [goto hmr19a3ck] [endif] --------------------------------------------------------------------- >HMR19a2< [if hmr19b_cenarb eq <> and hmr19b1_htequb eq <>] Earlier you reported a septic tank was added or replaced in your home. [else] About the septic tank that was added or replaced. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck19b2] --------------------------------------------------------------------- >HMRck19b2< [if i_septic eq <1> and cdepstat eq <1>] [goto hmr19b2_septb] [else] [goto hmr19c2] [endif] --------------------------------------------------------------------- >HMR19B2_SEPTB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [# [if i_septam gt <1>] [store in tem4] [store in tem5] [store i_septam in tem6] [else] [store <> in tem4] [store <> in tem5] [store <> in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same septic tank job we recorded in [fill temp8], OR is it a different job? (1) Yes, same job [fill tem4] (2) No, different job [fill tem5] [fill tem6:$] @ [@] <1> [goto @a] <2,D,R> [goto HMR19c2] [@a] [if @ eq <1>] [reset hmr8@septic] [store <2> in hmr8@septic] [goto hmr19a3ck] [endif] -------------------------------------------------------------------- >HMR19c2< [missing ] Did someone in your How much did the entire household do most of septic tank job cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @SEPTWK $@SEPTAM [@SEPTWK] <1,2,D,R> [goto @SEPTAM] [@SEPTAM] <0-999998,D,R> [goto HMR19A3CK] --------------------------------------------------------------------- >HMR19a3ck< [if hmr8@wtrhtr eq <1>] [goto hmr19a3] [else] [goto hmr19a4ck] [endif] --------------------------------------------------------------------- >HMR19a3< [if hmr19b_cenarb eq <> and hmr19b1_htequb eq <> and hmr19b2_septb eq <>] Earlier you reported a water heater was added or replaced in your home. [else] About the water heater that was added or replaced. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck19b3] --------------------------------------------------------------------- >HMRck19b3< [if i_wtrhtr eq <1> and cdepstat eq <1>] [goto hmr19b3_wtrhb] [else] [goto hmr19c3] [endif] --------------------------------------------------------------------- >HMR19B3_WTRHB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [# [if i_wtrham gt <1>] [store in tem4] [store in tem5] [store i_wtrham in tem6] [else] [store <> in tem4] [store <> in tem5] [store <> in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same water heater job we recorded in [fill temp8], OR is it a different job? [fill tem4] [fill tem5] (1) Yes, same job [fill tem6:$] (2) No, different job @ [@] <1> [goto @a] <2,D,R> [goto HMR19c3] [@a] [if @ eq <1>] [reset hmr8@wtrhtr] [store <2> in hmr8@wtrhtr] [goto hmr19a4ck] [endif] -------------------------------------------------------------------- >HMR19c3< [missing ] Did someone in your How much did the entire household do most of water heater job cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @WTRHWK $@WTRHAM [@WTRHWK] <1,2,D,R> [goto @WTRHAM] [@WTRHAM] <0-999998,D,R> [goto HMR19A4CK] --------------------------------------------------------------------- >HMR19a4ck< [if hmr8@dshwshr eq <1>] [goto hmr19a4] [else] [goto hmr19a5CK] [endif] --------------------------------------------------------------------- >HMR19a4< [if hmr19b_cenarb eq <> and hmr19b1_htequb eq <> and hmr19b2_septb eq <> and hmr19b3_wtrhb eq <>] Earlier you reported a built-in dishwasher was added or replaced in your home. [else] About the built-in dishwasher that was added or replaced. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck19b4] --------------------------------------------------------------------- >HMRck19b4< [if I_DSHWSHR eq <1> and cdepstat eq <1>] [goto hmr19b4_dshwb] [else] [goto hmr19c4] [endif] --------------------------------------------------------------------- >HMR19B4_DSHWB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [# [if i_dshwam gt <1>] [store in tem4] [store in tem5] [store i_dshwam in tem6] [else] [store <> in tem4] [store <> in tem5] [store <> in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same built-in dishwasher job we recorded in [fill temp8], OR is it a different job? [fill tem4] (1) Yes, same job [fill tem5] (2) No, different job [fill tem6:$] @ [@] <1> [goto @a] <2,D,R> [goto HMR19c4] [@a] [if @ eq <1>] [reset hmr8@dshwshr] [store <2> in hmr8@dshwshr] [goto hmr19a5ck] [endif] -------------------------------------------------------------------- >HMR19c4< [missing ] Did someone in your How much did the entire household do most of built-in dishwasher job the work? cost, including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @DSHWWK $@DSHWAM [@DSHWWK] <1,2,D,R> [goto @DSHWAM] [@DSHWAM] <0-999998,D,R> [goto HMR19A5CK] --------------------------------------------------------------------- >HMR19a5ck< [if hmr8@dsposal eq <1>] [goto hmr19a5] [else] [goto hmrCK20a] [endif] --------------------------------------------------------------------- >HMR19a5< [if hmr19b_cenarb eq <> and hmr19b1_htequb eq <> and hmr19b2_septb eq <> and hmr19b3_wtrhb eq <> and hmr19b4_dshwb eq <>] Earlier you reported a garbage disposal was added or replaced in your home. [else] About the garbage disposal that was added or replaced. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck19b5] --------------------------------------------------------------------- >HMRck19b5< [if I_dsposal eq <1> and cdepstat eq <1>] [goto hmr19B5_DSPLB] [else] [goto hmr19c5] [endif] --------------------------------------------------------------------- >HMR19B5_DSPLB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [# [if i_dsplam gt <1>] [store in tem4] [store in tem5] [store i_dsplam in tem6] [else] [store <> in tem4] [store <> in tem5] [store <> in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this the same garbage disposal job we recorded in [fill temp8], OR is it a different job? (1) Yes, same job [fill tem4] (2) No, different job [fill tem5] [fill tem6:$] @ [@] <1> [goto @a] <2,D,R> [goto HMR19c5] [@a] [if @ eq <1>] [reset hmr8@dsposal] [store <2> in hmr8@dsposal] [goto hmrck20a] [endif] -------------------------------------------------------------------- >HMR19c5< [missing ] Did someone in your How much did the entire household do most of garbage disposal job cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @DSPLWK $@DSPlAM [@DSPLWK] <1,2,D,R> [goto @DSPLAM] [@DSPLAM] <0-999998,D,R> [goto HMRCK20a] --------------------------------------------------------------------- [#9TH SET OF JOBS --------------------------------------------------------------------- >HMRCK20a< [if hmr9a_msinsid eq <1> and (hmr9b@misina ne <> and hmr9b@misina ne and hmr9b@misina ne and hmr9b@misina ne )] [goto hmr20a] [else] [goto hmr_endjob5] [endif] --------------------------------------------------------------------- >HMR20a< Earlier you reported the following MAJOR improvement or repair was done inside your home: [fill hmr9b@misina] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck20b] --------------------------------------------------------------------- >HMRck20b< [if (i_misina ne <> or i_misinc ne <> or i_misinb ne <>) and cdepstat eq <1>] [goto hmr20b_msinab] [else] [goto hmr20c] [endif] --------------------------------------------------------------------- >HMR20b_MSINAB< [missing ] [store <> in tem4] [store <> in tem5] [store <> in tem6] [store <> in tem7] [store <> in tem8] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [# [if i_insaam gt <1> or i_insbam gt <1> or i_inscam gt <1>] [store in tem4] [store in tem5] [endif] [if I_insaam gt <1>] [store I_insaam in tem6] [endif] [if I_insbam gt <1>] [store I_insbam in tem7] [endif] [if I_inscam gt <1>] [store I_inscam in tem8] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW**** In [fill temp8], we recorded the following MAJOR work inside your home: [fill I_misina] [fill I_misinb] [fill I_misinc] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW*** Is this [fill hmr9b@misina] job included in that work, OR is it a different job? [fill tem4] [fill tem5] (1) Yes, same job [fill tem6:$] (2) No, different job [fill tem7:$] [fill tem8:$] @ [@] <1> [goto @a] <2,D,R> [goto HMR20c] [@a] [reset hmr9b@misina] [goto hmr20a1ck] --------------------------------------------------------------------- >HMR20c< [missing ] Did someone in your How much did the entire household do most of [fill hmr9b@misina] job cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @INSAWK $@INSAAM [@INSAWK] <1,2,D,R> [goto @INSAAM] [@INSAAM] <0-999998,D,R> [goto HMR20a1CK] --------------------------------------------------------------------- >HMR20a1ck< [if hmr9b@misinb ne <> and hmr9b@misinb ne and hmr9b@misinb ne and hmr9b@misinb ne ] [goto hmr20a1] [else] [goto hmr_endjob5] [endif] --------------------------------------------------------------------- >HMR20a1< About the following work: [fill hmr9b@misinb] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck20b1] --------------------------------------------------------------------- >HMRck20b1< [if (i_misinb ne <> or i_misina ne <> or i_misinc ne <>) and cdepstat eq <1>] [goto hmr20b1_msinbb] [else] [goto hmr20c1] [endif] --------------------------------------------------------------------- >HMR20b1_MSINBB< [missing ] [store <> in tem4] [store <> in tem5] [store <> in tem6] [store <> in tem7] [store <> in tem8] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [# [if i_insaam gt <1> or i_insbam gt <1> or i_inscam gt <1>] [store in tem4] [store in tem5] [endif] [if I_insaam gt <1>] [store I_insaam in tem6] [endif] [if I_insbam gt <1>] [store I_insbam in tem7] [endif] [if I_inscam gt <1>] [store I_inscam in tem8] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW**** In [fill temp8], we recorded the following MAJOR work inside your home: [fill I_misina] [fill I_misinb] [fill I_misinc] Is this [fill hmr9b@misinb] job included in that work, OR is it a different job? (1) Yes, same job [fill tem4] (2) No, different job [fill tem5] [fill tem6:$] @ [fill tem7:$] [fill tem8:$] [@] <1> [goto @a] <2,D,R> [goto HMR20c1] [@a] [reset hmr9b@misinb] [goto hmr20a2ck] --------------------------------------------------------------------- >HMR20c1< [missing ] Did someone in your How much did the entire household do most of [fill hmr9b@misinb] job cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @INSBWK $@INSBAM [@INSBWK] <1,2,D,R> [goto @INSBAM] [@INSBAM] <0-999998,D,R> [goto HMR20a2CK] --------------------------------------------------------------------- >HMR20a2ck< [if hmr9b@misinc ne <> and hmr9b@misinc ne and hmr9b@misinc ne and hmr9b@misinc ne ] [goto hmr20a2] [else] [goto hmr_endjob5] [endif] --------------------------------------------------------------------- >HMR20a2< About the following work: [fill hmr9b@misinc] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck20b2] --------------------------------------------------------------------- >HMRck20b2< [if (i_misinc ne <> or i_misina ne <> or i_misinb ne <>) and cdepstat eq <1>] [goto hmr20b2_msincb] [else] [goto hmr20c2] [endif] --------------------------------------------------------------------- >HMR20b2_MSINCB< [missing ] [store <> in tem4] [store <> in tem5] [store <> in tem6] [store <> in tem7] [store <> in tem8] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [if i_insaam gt <1> or i_insbam gt <1> or i_inscam gt <1>] [store in tem4] [store in tem5] [endif] [if I_insaam gt <1>] [store I_insaam in tem6] [endif] [if I_insbam gt <1>] [store I_insbam in tem7] [endif] [if I_inscam gt <1>] [store I_inscam in tem8] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW**** In [fill temp8], we recorded the following MAJOR work inside your home: [fill I_misina] [fill I_misinb] [fill I_misinc] Is this [fill hmr9b@misinc] job included in that work, OR is it a different job? [fill tem4] [fill tem5] (1) Yes, same job [fill tem6:$] (2) No, different job [fill tem7:$] [fill tem8:$] @ [@] <1> [goto @a] <2,D,R> [goto HMR20c2] [@a] [reset hmr9b@misinc] [goto hmr_endjob5] --------------------------------------------------------------------- >HMR20c2< [missing ] Did someone in your How much did the entire household do most of [fill hmr9b@misinc] job cost, the work? including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999,997) $2-$999,997 (999998) $999,998 or more @INSCWK $@INSCAM [@INSCWK] <1,2,D,R> [goto @INSCAM] [@INSCAM] <0-999998,D,R> [goto hmr_endjob5] --------------------------------------------------------------------- >HMR_ENDJOB5< [if hmr9b@misina eq <> and hmr9b@misinb eq <> and hmr9b@misinc eq <>] [reset hmr9a_msinsid@] [store <2> in hmr9a_msinsid@] [goto hmrck21a] [endif] --------------------------------------------------------------------- [#10TH SET OF JOBS --------------------------------------------------------------------- >HMRCK21A< [if stype eq <1> or stype eq <2> or stype eq <4>] [if hmr10@drivewy eq <1> or hmr10@fence eq <1> or hmr10@patio eq <1> or hmr10@pool eq <1> or hmr10@shed eq <1>] [goto hmr21ack] [else] [goto hmrck22a] [endif] [endif] --------------------------------------------------------------------- >HMR21ack< [if hmr10@drivewy eq <1>] [goto hmr21a] [else] [goto hmr21a1ck] [endif] --------------------------------------------------------------------- >HMR21a< Earlier you reported driveways or walkways were added or replaced on your lot or yard. PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck21b] --------------------------------------------------------------------- >HMRck21b< [if i_drivewy eq <1> and cdepstat eq <1>] [goto hmr21b_driveb] [else] [goto hmr21c] [endif] --------------------------------------------------------------------- >HMR21b_DRIVEB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [if i_driveam gt <1>] [store in tem4] [store in tem5] [store i_driveam in tem6] [else] [store <> in tem4] [store <> in tem5] [store <> in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW**** Is this the same driveways or walkways job we recorded in [fill temp8], OR is it a different job? [fill tem4] [fill tem5] (1) Yes, same job [fill tem6:$] (2) No, different job @ [@] <1> [goto @a] <2,D,R> [goto HMR21c] [@a] [reset hmr10@drivewy] [store <2> in hmr10@drivewy] [goto hmr21a1ck] --------------------------------------------------------------------- >HMR21c< [missing ] Did someone in your How much did the entire household do most of driveways or walkways job the work? cost,including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @DRIVEWK $@DRIVEAM [@DRIVEWK] <1,2,D,R> [goto @DRIVEAM] [@DRIVEAM] <0-999998,D,R> [goto HMR21a1cK] --------------------------------------------------------------------- >HMR21a1ck< [if hmr10@fence eq <1>] [goto hmr21a1] [else] [goto hmr21a2ck] [endif] --------------------------------------------------------------------- >HMR21a1< [if hmr21b_driveb eq <>] Earlier you reported fencing or walls were added or replaced on your lot or yard. [else] About the fencing or walls that were added or replaced. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck21b1] --------------------------------------------------------------------- >HMRck21b1< [if i_fence eq <1> and cdepstat eq <1>] [goto hmr21b1_FENCEB] [else] [goto hmr21c1] [endif] --------------------------------------------------------------------- >HMR21b1_FENCEB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [store <> in tem4] [store <> in tem5] [store <> in tem6] [if i_fenceam gt <1>] [store in tem4] [store in tem5] [store i_fenceam in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW**** Is this the same fencing or walls job we recorded in [fill temp8], OR is it a different job? (1) Yes, same job [fill tem4] (2) No, different job [fill tem5] [fill tem6:$] @ [@] <1> [goto @a] <2,D,R> [goto HMR21c1] [@a] [reset hmr10@fence] [store <2> in hmr10@fence] [goto hmr21a2ck] --------------------------------------------------------------------- >HMR21c1< [missing ] Did someone in your How much did the entire household do most of fencing or walls job the work? cost,including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999,997) $2-$999,997 (999998) $999,998 or more @FENCEWK $@FENCEAM [@FENCEWK] <1,2,D,R> [goto @FENCEAM] [@FENCEAM] <0-999998,D,R> [goto HMR21a2cK] --------------------------------------------------------------------- >HMR21a2ck< [if hmr10@patio eq <1>] [goto hmr21a2] [else] [goto hmr21a3ck] [endif] --------------------------------------------------------------------- >HMR21a2< [if hmr21b_driveb eq <> and hmr21b1_fenceb eq <>] Earlier you reported a patio, terrace, or detached deck was added or replaced on your lot or yard. [else] About the patio, terrace, or detached deck that was added or replaced. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck21b2] --------------------------------------------------------------------- >HMRck21b2< [if i_patio eq <1> and cdepstat eq <1>] [goto hmr21b2_patiob] [else] [goto hmr21c2] [endif] --------------------------------------------------------------------- >HMR21b2_PATIOB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [store <> in tem4] [store <> in tem5] [store <> in tem6] [if i_patioam gt <1>] [store in tem4] [store in tem5] [store i_patioam in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW**** Is this the same patio, terrace, or detached deck job we recorded in [fill temp8], OR is it a different job? [fill tem4] (1) Yes, same job [fill tem5] (2) No, different job [fill tem6:$] @ [@] <1> [goto @a] <2,D,R> [goto HMR21c2] [@a] [reset hmr10@patio] [store <2> in hmr10@patio] [goto hmr21a3ck] --------------------------------------------------------------------- >HMR21c2< [missing ] Did someone in your How much did the entire household do most of patio, terrace or detached the work? deck job cost,including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @PATIOWK $@PATIOAM [@PATIOWK] <1,2,D,R> [goto @PATIOAM] [@PATIOAM] <0-999998,D,R> [goto HMR21a3cK] --------------------------------------------------------------------- >HMR21a3ck< [if hmr10@pool eq <1>] [goto hmr21a3] [else] [goto hmr21a4ck] [endif] --------------------------------------------------------------------- >HMR21a3< [if hmr21b_driveb eq <> and hmr21b1_fenceb eq <> and hmr21b2_patiob eq <>] Earlier you reported a swimmimg pool, tennis court, or other recreational structure was added or replaced on your lot or yard. [else] About the swimmimg pool, tennis court, or other recreational structure that was added or replaced. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck21b3] --------------------------------------------------------------------- >HMRck21b3< [if i_pool eq <1> and cdepstat eq <1>] [goto hmr21b3_poolb] [else] [goto hmr21c3] [endif] --------------------------------------------------------------------- >HMR21b3_POOLB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [if i_poolam gt <1>] [store in tem4] [store in tem5] [store i_poolam in tem6] [else] [store <> in tem4] [store <> in tem5] [store <> in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW**** Is this the same swimmimg pool, tennis court, or other recreational structure job we recorded in [fill temp8], OR is it a different job? [fill tem4] [fill tem5] (1) Yes, same job [fill tem6:$] (2) No, different job @ [@] <1> [goto @a] <2,D,R> [goto HMR21c3] [@a] [reset hmr10@pool] [store <2> in hmr10@pool] [goto hmr21a4ck] --------------------------------------------------------------------- >HMR21c3< [missing ] Did someone in your How much did the entire household do most of swimming pool, tennis court, the work? or other recreational structure job cost,including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @POOLWK $@POOLAM [@POOLWK] <1,2,D,R> [goto @POOLAM] [@POOLAM] <0-999998,D,R> [goto HMR21a4cK] --------------------------------------------------------------------- >HMR21a4ck< [if hmr10@shed eq <1>] [goto hmr21a4] [else] [goto hmrCk22a] [endif] --------------------------------------------------------------------- >HMR21a4< [if hmr21b_driveb eq <> and hmr21b1_fenceb eq <> and hmr21b2_patiob eq <> and hmr21b3_poolb eq <>] Earlier you reported a shed, detached garage, or other building was added or replaced on your lot or yard. [else] About the shed, detached garage, or other building that was added or replaced. [endif] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck21b4] --------------------------------------------------------------------- >HMRck21b4< [if i_shed eq <1> and cdepstat eq <1>] [goto hmr21b4_shedb] [else] [goto hmr21c4] [endif] --------------------------------------------------------------------- >HMR21b4_SHEDB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [store <> in tem4] [store <> in tem5] [store <> in tem6] [if i_shedam gt <1>] [store in tem4] [store in tem5] [store i_shedam in tem6] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW**** Is this the same shed, detached garage, or other building job we recorded in [fill temp8], OR is it a different job? [fill tem4] (1) Yes, same job [fill tem5] (2) No, different job [fill tem6:$] @ [@] <1> [goto @a] <2,D,R> [goto HMR21c4] [@a] [reset hmr10@shed] [store <2> in hmr10@shed] [goto hmrck22a] --------------------------------------------------------------------- >HMR21c4< [missing ] Did someone in your How much did the entire household do most of shed, detached garage, or the work? other building job cost, including your costs and any amount coveredby insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @SHEDWK $@SHEDAM [@SHEDWK] <1,2,D,R> [goto @SHEDAM] [@SHEDAM] <0-999998,D,R> [goto hmrck22a] --------------------------------------------------------------------- [#11TH SET OF JOBS --------------------------------------------------------------------- >HMRCk22a< [if hmr11a_missout eq <1> and (hmr11b@misouta ne <> and hmr11b@misouta ne and hmr11b@misouta ne and hmr11b@misouta ne )] [goto hmr22a] [else] [goto hmr_endjob6] [endif] --------------------------------------------------------------------- >HMR22a< Earlier you reported the following MAJOR improvement or repair was done to your lot or yard: [fill hmr11b@misouta] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck22b] --------------------------------------------------------------------- >HMRck22b< [if (i_misouta ne <> or i_misoutb ne <> or i_misoutc ne <>) and cdepstat eq <1>] [goto hmr22b_moutab] [else] [goto hmr22c] [endif] --------------------------------------------------------------------- >HMR22b_MOUTAB< [missing ] [store <> in tem4] [store <> in tem5] [store <> in tem6] [store <> in tem7] [store <> in tem8] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [if i_outaam gt <1> or i_outbam gt <1> or i_outcam gt <1>] [store in tem4] [store in tem5] [endif] [if I_outaam gt <1>] [store I_outaam in tem6] [endif] [if I_outbam gt <1>] [store I_outbam in tem7] [endif] [if I_outcam gt <1>] [store I_outcam in tem8] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW**** In [fill temp8], we recorded the following MAJOR LOT or YARD work: [fill I_misouta] [fill I_misoutb] [fill I_misoutc] Is this [fill hmr11b@misouta] job included in that work, OR is it a different job? [fill tem4] (1) Yes, same job [fill tem5] (2) No, different job [fill tem6:$] [fill tem7:$] @ [fill tem8:$] [@] <1> [goto @a] <2,D,R> [goto HMR22c] [@a] [reset hmr11b@misouta] [goto hmr22a1ck] --------------------------------------------------------------------- >HMR22c< [missing ] Did someone in your How much did the entire household do most of [fill hmr11b@misouta] job the work? cost,including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @OUTAWK $@OUTAAM [@OUTAWK] <1,2,D,R> [goto @OUTAAM] [@OUTAAM] <0-999998,D,R> [goto HMR22a1CK] --------------------------------------------------------------------- >HMR22a1ck< [if hmr11b@misoutb ne <> and hmr11b@misoutb ne and hmr11b@misoutb ne and hmr11b@misoutb ne ] [goto hmr22a1] [else] [goto hmr_endjob6] [endif] --------------------------------------------------------------------- >HMR22a1< About the following work: [fill hmr11b@misoutb] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck22b1] --------------------------------------------------------------------- >HMRck22b1< [if (i_misoutb ne <> or i_misouta ne <> or i_misoutc ne <>) and cdepstat eq <1>] [goto hmr22b1_moutbb] [else] [goto hmr22c1] [endif] --------------------------------------------------------------------- >HMR22b1_MOUTBB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [if i_outaam gt <1> or i_outbam gt <1> or i_outcam gt <1>] [store in tem4] [store in tem5] [endif] [if I_outaam gt <1>] [store I_outaam in tem6] [endif] [if I_outbam gt <1>] [store I_outbam in tem7] [endif] [if I_outcam gt <1>] [store I_outcam in tem8] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW**** In [fill temp8], we recorded the following MAJOR LOT or YARD work: [fill I_misouta] [fill I_misoutb] [fill I_misoutc] Is this [fill hmr11b@misoutb] job included in that work, OR is it a different job? [fill tem4] [fill tem5] (1) Yes, same job [fill tem6:$] (2) No, different job [fill tem7:$] [fill tem8:$] @ [@] <1> [goto @a] <2,D,R> [goto HMR22c1] [@a] [reset hmr11b@misoutb] [goto hmr22a2ck] --------------------------------------------------------------------- >HMR22c1< [missing ] Did someone in your How much did the entire household do most of [fill hmr11b@misoutb] job the work? cost,including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @OUTBWK $@OUTBAM [@OUTBWK] <1,2,D,R> [goto @OUTBAM] [@OUTBAM] <0-999998,D,R> [goto HMR22a2CK] --------------------------------------------------------------------- >HMR22a2ck< [if hmr11b@misoutc ne <> and hmr11b@misoutc ne and hmr11b@misoutc ne and hmr11b@misoutc ne ] [goto hmr22a2] [else] [goto HMR_ENDJOB6] [endif] --------------------------------------------------------------------- >HMR22a2< About the following work: [fill hmr11b@misoutc] PRESS (P) TO CONTINUE INTERVIEW @ [@]

[goto hmrck22b2] --------------------------------------------------------------------- >HMRck22b2< [if (i_misouta ne <> or i_misoutb ne <> or i_misoutc ne <>) and cdepstat eq <1>] [goto hmr22b2_moutcb] [else] [goto hmr22c2] [endif] --------------------------------------------------------------------- >HMR22b2_MOUTCB< [missing ] [store <> in temp8] [store i_INTMON in T_INTMON] [store i_INTYR in T_INTYR] [store T_INTMON in index] [make temp8 from MONTHTAB(index) < > T_INTYR] [if i_outaam gt <1> or i_outbam gt <1> or i_outcam gt <1>] [store in tem4] [store in tem5] [endif] [if I_outaam gt <1>] [store I_OUTAAM in tem6] [endif] [if I_outbam gt <1>] [store I_OUTBAM in tem7] [endif] [if I_outcam gt <1>] [store I_OUTCAM in tem8] [endif] ***POSSIBLE DUPLICATE JOB FROM LAST INTERVIEW**** In [fill temp8], we recorded the following MAJOR LOT or YARD work: [fill I_misouta] [fill I_misoutb] [fill I_misoutc] Is this [fill hmr11b@misoutc] job included in that work, OR is it a different job? [fill tem4] [fill tem5] (1) Yes, same job [fill tem6:$] (2) No, different job [fill tem7:$] [fill tem8:$] @ [@] <1> [goto @a] <2,D,R> [goto HMR22c2] [@a] [reset hmr11b@misoutc] [goto hmr_endjob6] --------------------------------------------------------------------- >HMR22c2< [missing ] Did someone in your How much did the entire household do most of [fill hmr11b@misoutc] job the work? cost,including your costs and any amount covered by insurance, not counting your time? (ENTER "1" FOR JOBS WHOSE COSTS WERE REPORTED WITH OTHER WORK) (1) Yes (0) Nothing (1) Reported with other work (2) No (2-999997) $2-$999,997 (999998) $999,998 or more @OUTCWK $@OUTCAM [@OUTCWK] <1,2,D,R> [goto @OUTCAM] [@OUTCAM] <0-999998,D,R> [goto HMR_ENDJOB6] --------------------------------------------------------------------- >HMR_ENDJOB6< [if hmr11b@misouta eq <> and hmr11b@misoutb eq <> and hmr11b@misoutc eq <>] [store <2> in hmr11a_missout@] [goto hmrck23] [endif] --------------------------------------------------------------------- >HMRck23< [if hmr1a_majdis eq <1> or hmr2a_unfinis eq <1> or hmr3a_additon eq <1> or hmr3c_bultout eq <1> or hmr4a_bthkit eq <1> or hmr5a_renalt eq <1>] [goto hmr23_subfix] [else] [if hmr6@roof eq <1> or hmr6@siding eq <1> or hmr6@doorwin eq <1> or hmr6@insulat eq <1> or hmr6@wtrpipe eq <1> or hmr6@plumfxt eq <1> or hmr6@wiring eq <1> or hmr6@secure eq <1>] [goto hmr23_subfix] [else] [if hmr7a@carpet eq <1> or hmr7a@floorin eq <1> or hmr7a@panel eq <1> or hmr7b@subfl eq ] [goto hmr23_subfix] [else] [if hmr8@cenair eq <1> or hmr8@heatequ eq <1> or hmr8@septic eq <1> or hmr8@wtrhtr eq <1> or hmr8@dshwshr eq <1> or hmr8@dsposal eq <1>] [goto hmr23_subfix] [else] [if hmr9a_msinsid eq <1> or hmr10@drivewy eq <1> or hmr10@fence eq <1> or hmr10@patio eq <1> or hmr10@pool eq <1> or hmr10@shed eq <1> or hmr11a_missout eq <1>] [goto hmr23_subfix] [endif][endif][endif][endif][endif] [goto HMR_END] --------------------------------------------------------------------- >HMR23_SUBFIX< [missing ] Did the household get a low-interest loan or grant from a government program to help pay for making any of these repairs or alterations to your home? (1) Yes (2) No @ [@] <1,2,D,R> [goto HMR_END] --------------------------------------------------------------------- >HMR_END< [store <1> in HMR_CMP] [stop timer] [no erase] [record timer in HMR_TME] [goto NHQ_BEGIN] --------------------------------------------------------------------- Revised Specs: 5-2-2001 Programmer: Tazreen Chowdhury Survey: American Housing Survey - 2001 National Module: Neighborhood Quality (NHQ) ----------------------------------------------------------------------- ---------------------------------------------------------------------- >NHQ_BEGIN< [section NHQ] [start timer][no erase] ----------------------------------------------------------------------- >NHQck0a< [if ISTATUS eq <2> or ISTATUS eq <3>] [goto NHQ_END] [else] [goto NHQ0a_GATED] [endif] ---------------------------------------------------------------------- >NHQ0a_GATED< [missing ] The following questions are about your community. Is your community surrounded by walls or fences preventing access by persons other than residents? (1) Yes (2) No @ [@] <1,D,R> [goto NHQ0b_ACCESSC] <2> [goto NHQCK0c] ---------------------------------------------------------------------- >NHQ0b_ACCESSC< [missing ] Does access to your community require a special entry system such as entry codes, key cards, or security guard approval? (1) Yes (2) No @ [@] <1,2,D,R> [goto NHQCK0c] ---------------------------------------------------------------------- >NHQCK0c< [If STYPE eq <3>] [goto NHQ0c_ACCESSB] [else] [goto NHQCK0d] [endif] ---------------------------------------------------------------------- >NHQ0c_ACCESSB< [missing ] Does access to your building require a special entry system such as entry codes, key cards, or security guard approval? (1) Yes (2) No @ [@] <1,2,D,R> [goto NHQCK0d] ---------------------------------------------------------------------- >NHQCK0d< [roster begin persons] [If AGE ge <55>] [goto NHQ0d_AGERES] [else] [goto NHQ0f] [endif] [roster end persons] ---------------------------------------------------------------------- >NHQ0d_AGERES< [missing ] You mentioned that one or more members of your household are 55 or older. Some communities are age-restricted, meaning that at least one member of the family must be at least 55 or older. Is your development age-restricted? (1) Yes (2) No @ [@] <1> [goto NHQ0f] <2,D,R> [goto NHQ0e_NORC] ---------------------------------------------------------------------- >NHQ0e_NORC< [missing ] Sometimes communities that are not age-restricted still attract certain age groups. Do you believe the majority of your neighbors are 55 or over? (1) Yes (2) No @ [@] <1,2,D,R> [goto NHQ0f] ---------------------------------------------------------------------- >NHQ0f< [missing ] Are any of the following features included in your community? (READ ITEMS BELOW) (1) YES or (2) NO Community Center or Clubhouse @CLUB Golf Course @GOLF Walking/Jogging Trails @TRAILS Shuttle Bus @SHUTLE Day Care Center @CARE Private or Restricted-access Beach, Park, or Shoreline @BEACH [@CLUB] <1,2,D,R> [@GOLF] <1,2,D,R> [@TRAILS] <1,2,D,R> [@SHUTLE] <1,2,D,R> [@CARE] <1,2,D,R> [@BEACH] <1,2,D,R> [default goto NHQ1a] ---------------------------------------------------------------------- >NHQ1a< [missing ] [r](H)[N] The following questions are concerned with specific aspects of your PRESENT neighborhood. Does the neighborhood have... (READ ITEMS BELOW) (1) YES or (2) NO Street noise or heavy street traffic?... @STRNA Neighborhood crime?..................... @CRIMEA Smoke, gas, or bad smells?.............. @ODORA [@STRNA] <1-2,D,R> [etc ] [@CRIMEA] <1-2,D,R> [etc ] [@ODORA] <1-2,D,R> [etc ] [goto NHQCK1b1] ------------------------------------------------------------------------ >NHQCK1b1< [if NHQ1a@STRNA eq <1> goto NHQ1B1_STRNB] [goto NHQCK1b2] -------------------------------------------------------------------------- >NHQ1B1_STRNB< [missing ] Does the street noise or heavy street traffic bother you? (1) Yes (2) No @ [@] <1> [goto NHQ1C1_STRNC] <2,D,R> [goto NHQCK1b2] ------------------------------------------------------------------------- >NHQ1C1_STRNC< [missing ] [r](H)[n] Is it so objectionable that you would like to move from the neighborhood? (1) Yes (2) No @ [@] <1,2,D,R> [missing] [etc ] -------------------------------------------------------------------------- >NHQCK1b2< [if NHQ1a@CRIMEA eq <1> goto NHQ1B2_CRIMEB] [goto NHQCK1b3] -------------------------------------------------------------------------- >NHQ1B2_CRIMEB< [missing ] Does the neighborhood crime bother you? (1) Yes (2) No @ [@] <1> [goto NHQ1C2_CRIMEC] <2,D,R> [goto NHQCK1b3] ------------------------------------------------------------------------- >NHQ1C2_CRIMEC< [missing ] [r](H)[n] Is it so objectionable that you would like to move from the neighborhood? (1) Yes (2) No @ [@] <1,2,D,R> [missing] [etc ] -------------------------------------------------------------------------- >NHQCK1b3< [if NHQ1a@ODORA eq <1> goto NHQ1B3_ODORB] [goto NHQ2a] -------------------------------------------------------------------------- >NHQ1B3_ODORB< [missing ] Does the smoke, gas, or bad smells bother you? (1) Yes (2) No @ [@] <1> [goto NHQ1C3_ODORC] <2,D,R> [goto NHQ2a] ------------------------------------------------------------------------- >NHQ1C3_ODORC< [missing ] [r](H)[n] Is it so objectionable that you would like to move from the neighborhood? (1) Yes (2) No @ [@] <1,2,D,R> [missing] [etc ] -------------------------------------------------------------------------- >NHQ2a< [open NHQ2a] [missing ] [store <> in temp] [if NHQ1B1_STRNB eq <1> or NHQ1B2_CRIMEB eq <1> or NHQ1B3_ODORB eq <1>] [store in temp] [else] [store in temp] [endif] Is there [fill temp] about the neighborhood that bothers you? (1) Yes (2) No @NPROBS [if NHQ2a@NPROBS eq <1>] What? [bold]***MARK (X) ALL THAT APPLY***[normal] @NOPROB No problem @NOISE Noise @LITTER Litter or housing deterioration @BADSRV Poor city/county services @BADPRP Undesirable commercial, institutional, or industrial property @BADPER People @OTHNHD Other (SPECIFY) [endif] [@NPROBS] <1> <2,D,R> [goto nhqck2b] [@NOPROB] [optional] [@NOISE] [optional] [@LITTER] [optional] [@BADSRV] [optional] [@BADPRP] [optional] [@BADPER] [optional] [@OTHNHD] [specify] [optional] [goto NHQck2b] -------------------------------------------------------------------------- >NHQck2b< [if STYPE eq <1> or STYPE eq <4> or STYPE eq <5>] [goto NHQ3] [else] [goto NHQ2b_NOISN1] [endif] ---------------------------------------------------------------------- >NHQ2b_NOISN1< What about inside your building? How often, if ever, do you hear neighbors through the floors, walls or ceilings of your [fill htypefill]? (1) Never (at most once per year) (2) Rarely (less than 2 times per month) (3) Sometimes (less than 2 times per week) (4) Frequently (2 or more times per week) @a [@a] <1,D,R> [goto NHQ3] <2-4> [goto NHQ2c_NOISN2] ===================================================================== >NHQ2c_NOISN2< Is the loudness of the noise bothersome? (1) Yes (2) No @ [@] <1,2,D,R> [goto NHQ2d_noisn3] ===================================================================== >NHQ2d_NOISN3< Is the time of the noise bothersome? (1) Yes (2) No @ [@] <1,2,D,R> [goto NHQ3] ===================================================================== >NHQ3< [missing ] [store <> in temp] [if nrosize eq <1>] [store in temp] [else] [store in temp] [endif] Is there public transportation for this area? [r](H)[n] (1) Yes (2) No @NEWTRN [if @NEWTRN eq <1>] Is it satisfactory? [r](H)[n] (1) Yes (2) No @TRN [endif] [if @TRN eq <1> or @TRN eq <2> or @TRN eq or @TRN eq ] [fill temp] use public transportation at least once a week? (1) Yes (2) No @USETRN [endif] [if @USETRN eq <2> or @USETRN eq or @USETRN eq ] [fill temp] ever use public transportation? (1) Yes (2) No @EVRTRN [endif] [@NEWTRN] <1,2,D,R> [etc ] [@TRN] <1,2,D,R> [etc ] [@USETRN] <1,2,D,R> [@EVRTRN] <1,2,D,R> [goto NHQ4] ------------------------------------------------------------------------- >NHQ4< [missing ] [store <> in temp] [if MMODE eq <1>] [store in temp] [else] [store in temp] [endif] [r](H)[n] Do you have satisfactory neighborhood shopping, that is, grocery stores or drug stores? (1) Yes (2) No (D) Don't know, not sure @a [if @a eq <1>] Are any of these stores within one mile of [fill temp]? (1) Yes (2) No @b [endif] [@a] <1,2,D,R> [etc ] [@b] <1,2,D,R> ------------------------------------------------------------------------- >NHQ5_SATPOL< [missing ] Do you have satisfactory police protection for this area? (1) Yes (2) No @ [@] <1,2,D,R> [goto NHQCK6a] __________________________________________________________________________ >KIDCOUNT< [allow int 2] >KIDLINE< [allow int 2] ---------------------------------------------------------------------- >NHQCK6a< [# Cycle through the person roster to count how many people [# are between the ages of 5 & 15. [# Cycle through the person roster to count how many people [# are less than or equal to 4 years old. [# If everyone in the household is older than 15, got to the end. [store <0> in index] [store <0> in KIDLINE] [store <0> in KIDCOUNT] [roster begin persons] [if age ge <5> AND age le <15> and skipflag(L_NO) ne <1>] [add <1> to KIDCOUNT] [store L_NO in KIDLINE] [endif] [roster end persons] [roster begin persons] [if age le <4> and skipflag(l_no) ne <1>] [store <1> in index] [endif] [roster end persons] [if kidcount ge <1>] [goto nhq6a] [endif] [if index eq <1>] [goto nhq6b_sch] [endif] [goto nhq_end] ------------------------------------------------------------------------- >NHQ6a< [open NHQ6a] [store <> in temp] [store <> in temp2] [store <> in temp3] [if KIDCOUNT eq <1>] [store in temp] [make temp2 from NAME(KIDLINE)] [store in temp3] [else] [store in temp] [store in temp2] [store in temp3] [endif] [r](H)[n] [fill temp] [fill temp2] attend a public school or a private school? [fill temp3] @SCHPUB Public school (K-12) @SCHPRI Private school (K-12) @SCHOTH Other school (ungraded schools, special schools, preschools, early learning centers, etc.) @SCHHO Schooled at home @SCHNO Not in school [@SCHPUB][optional][etc ][missing][goto NHQCK6b] [@SCHPRI][optional] [etc ] [@SCHOTH][optional] [etc ] [@SCHHO][optional] [etc ] [@SCHNO][optional] [etc ] [goto NHQCK6b] ------------------------------------------------------------------------- >NHQCK6b< [store <0> in index] [roster begin persons] [if age le <13> and skipflag(L_NO) ne <1>] [store <1> in index] [endif] [roster end persons] [if index eq <1> goto NHQ6B_SCH] [goto NHQ_END] ------------------------------------------------------------------------- >NHQ6B_SCH< [missing ] Is the public elementary school for this area satisfactory? [bold]IF MORE THAN ONE PUBLIC ELEMENTARY SCHOOL, ASK ABOUT THE CLOSEST ONE TO THE SAMPLE UNIT.)[n] (1) Yes (2) No (D) Don't know, not sure @ [@] <1,D,R>[goto NHQ6d_SCHCLS] <2> [goto NHQ6C_SCHM] ------------------------------------------------------------------------ >NHQ6C_SCHM< [missing ] Is it so unsatisfactory that you would like to move from the neighborhood? (1) Yes (2) No @ [@] <1,2,D,R> [goto NHQ6d_SCHCLS] ------------------------------------------------------------------------- >NHQ6d_SCHCLS< [missing ] Is that public elementary school within one mile of here? (1) Yes (2) No @ [@] <1,2,D,R> [goto NHQ_END] ------------------------------------------------------------------------- -------------------------------------------------------------------------- *** REFERENCE SECTION ***** ---------------------------------------------------------------------- >NHQ1aH< [reference] INCLUDE AS... |==============================================================================| | Street Noise or | Neighborhood Crime | Smoke, gas, or | | Heavy Street Traffic | | bad smells | |==============================================================================| | | | | |* traffic street noise |* whether successful or not|* gas fumes from motor | |* business noise |* petty theft | vehicles | |* street or highway noise|* assault |* fumes from industrial | |* road construction noise|* burglary | commerical operations | |* heavy traffic |* grand larceny |* odors from sewers, | | etc |* prostitution | septic fields | | |* confidence games |* aerial spraying | | | etc. | etc. | |==============================================================================| NOTE: The above examples are based on RESPONDENT'S OPINION PRESS ENTER TO CONTINUE INTERVIEW @ [@] [nodata] [return from help] ------------------------------------------------------------------------ >NHQ1cH< [reference] If respondent hesitates, mention that the purpose of this question is to provide information to housing planners regarding problems or conditions that people view as so objectionable that they would move from a neighborhood. PRESS ENTER TO CONTINUE INTERVIEW @ [@] [nodata] [return from help] ---------------------------------------------------------------------- >NHQ3H< [reference] PUBLIC TRANSPORTATION |==========================================================| | INCLUDES... | EXCLUDES... | | | | | * Buses | * School buses | | * Taxicabs | | | * Ferry boats | | | * Trains | | | * Bus/Van service provided | | | by management for residents of | | | housing complex | | |==========================================================| PRESS ENTER TO CONTINUE INTERVIEW @ [@] [nodata] [return from help] ------------------------------------------------------------------------- >NHQ3bH< [reference] Based on RESPONDENT'S OPINION of what [bold]"satisfactory"[normal] means to him/her. PRESS ENTER TO CONTINUE INTERVIEW @ [@] [nodata] [return from help] ------------------------------------------------------------------------- >NHQ4aH< [reference] SATISFACTORY NEIGHBORHOOD SHOPPING |==============================================================| | INCLUDES... | EXCLUDES... | |==============================================================| |* Availability of products |* 7-11's (not a grocery store)| |* Hours of operation |* Other types of businesses | |* Prices | | |* Only grocery or drug stores | | |==============================================================| PRESS ENTER TO CONTINUE INTERVIEW @ [@] [nodata] [return from help] -------------------------------------------------------------------------------------------- >NHQ6aH< [reference] [form template]|======================================================================== ==== | | PUBLIC | PRIVATE | OTHER | SCHOOLED AT | NOT IN | | | | | HOME | SCHOOL | |============================================================================ | |Part of state,|Graded schools| Not public or | Children who | Children who| | county or | not part of | private graded | do not leave| do not go | | local school | the public | schools | home for | to a school| | system K-12 | school system| | school | of any kind| | | | -Ungraded | | | | | | schools | -Tutoring | | | | -Parochial | -Special | arrangement| | | | schools | schools | -Home | | | | -Montessori | -Preschools | schooling* | | | | schools | -Early learning | | | | | | center | | | |============================================================================ | *NOTE: This does not include children with a physical disability who participate in a public or private graded school system via television and/or computer hook-up. For this situation enter either "public" or "private", as appropriate. PRESS ENTER TO CONTINUE INTERVIEW @ [@] [nodata] [return from help] ------------------------------------------------------------------------- >NHQ_END< [store <1> in NHQ_CMP] [stop timer][no erase] [record timer in NHQ_TME] -------------------------------------------------------------------------- AMERICAN HOUSING SURVEY - National 2001 Instrument Programmers: Judy Hodges Tazreen Chowdhury Module: Recent Movers (RMOV) Last change: 5/2/01 _____________________________________________________________________ >RM_BEGIN< [section RMOV] [start timer][no erase] [store <0> in rflag] [store <0> in eflag] [store <0> in XBAD] >RMFLAG< [allow int 1] >XCOUNT< [allow int 2] >FAMGRP< [allow int 2 for 30] -------------------------------------------------------------------------------------------------- >T_RMGROUP< [template] RECENT MOVER GROUPS MOV MOV GROUP LNO NAME REL YR MON ASSIGN [store RMOV_LN in index] [roster begin PERSONS] [if FAM_GRP eq index] [fill L_NO:l] [fill FNAME:l][fill LNAME:l][fill REL:l] [fill MOVYR:l] [fill MOVM:l] [fill FAM_GRP] [endif] [roster end PERSONS] [end] --------------------------------------------------------------------------------------------- >RM_HHROS< [template] [bold]MOV MOV GROUP[n] [bold]LNO NAME REL YR MON ASSIGN [n] [roster begin persons] [store L_NO in XBAD(L_NO)] [if SKIPFLAG+(L_NO) eq <1> or WHENMOVE@YR eq and OLDPER eq <1>] [else] [if (INTYR - <2>) lt MOVYR or ((INTYR - <2>) eq MOVYR and INTMON le movm)] [fill L_NO:l] [fill FNAME:l][fill LNAME:l][fill REL:l] [fill MOVYR:l] [fill MOVM:l] [fill FAM_GRP] [if FAMGRP(L_NO) le <0>] [store <> in XBAD(L_NO)] [endif] [endif] [endif] [roster end persons] [end] ---------------------------------------------------------------------- >RM_HHROSA< [template] [bold]MOV MOV GROUP[n] [bold]LNO NAME REL YR MON ASSIGN [n] [roster begin persons] [store L_NO in XBAD(L_NO)] [if SKIPFLAG+(L_NO) eq <1> or WHENMOVE@YR eq and OLDPER eq <1>] [else] [if (INTYR - <2>) lt MOVYR or ((INTYR - <2>) eq MOVYR and INTMON le movm)] [fill L_NO:l] [fill FNAME:l][fill LNAME:l][fill REL:l] [fill MOVYR:l] [fill MOVM:l] [if FAMGRP(L_NO) le <0>] [store <> in XBAD(L_NO)] [endif] [endif] [endif] [roster end persons] [end] ---------------------------------------------------------------------- >E_HHROS< [template] ELIGIBLE HOUSEHOLD ROSTER LNO NAME [roster begin persons] [if L_NO isnt <>] [if SKIPFLAG+(L_NO) eq <1>] [else] [if REL eq <01> or (REL ge <18> and REL le <26>) and AGE ge <14>] [fill L_NO] [fill FNAME] [fill LNAME] [endif][endif] [endif] [roster end PERSONS] [end] ----------------------------------------------------------------- [# INCSAM eq 0 (NOT a NEW ADDRESS) [# [# INCSAM eq 1 (a NEW ADDRESS, never been interviewed and want to check [# when they moved (is it within last 2 years) ____________________________________________________________________ >RMOVck1a< [if ISTATUS eq <2> or ISTATUS eq <3>] [goto RM_END] [endif] [roster begin persons] [if INCSAM eq <1> and SKIPFLAG(L_NO) ne <1>] [if L_NO eq respline and ((INTYR - <2>) lt MOVYR or ((INTYR - <2>) eq MOVYR and INTMON le movm)) and WHENMOVE@YR ne ] [add <1> to rflag] [else] [if L_NO ne respline and ((INTYR - <2>) lt MOVYR or ((INTYR - <2>) eq MOVYR and INTMON le movm)) and WHENMOVE@YR ne ] [add <1> to eflag] [endif][endif] [else] [if INCSAM eq <0> and SKIPFLAG(L_NO) ne <1> and OLDPER ne <1>] [if L_NO eq respline and ((INTYR - <2>) lt MOVYR or ((INTYR - <2>) eq MOVYR and INTMON le movm)) and WHENMOVE@YR ne ] [add <1> to rflag] [else] [if L_NO ne respline and ((INTYR - <2>) lt MOVYR or ((INTYR - <2>) eq MOVYR and INTMON le movm)) and WHENMOVE@YR ne ] [add <1> to eflag] [endif][endif] [endif][endif] [roster end persons] [# [if rflag eq <0> and eflag eq <0> goto RM_END] [if rflag ge <1> goto RMOV1a] [if eflag ge <1> goto RMOVck8] ---------------------------------------------------------------------- >RMOV1a< [open RMOV1a] [missing ] What are the reasons you moved from your last residence? [r](H)[n] [bold]MARK (X) ALL THAT APPLY - - FR NOTE: At least one X required"[normal] @WMPRIV1 1. A private company or person wanted to use it for some purpose @WMGOVT1 2. Forced to leave by the government @WMDISL 3. Disaster loss (fire, flood, etc.) @WMJOBS 4. New job or job transfer @WMCLOS 5. To be closer to work/school/other @WMFEMP 6. Other, financial/employment related @WMONHH 7. To establish own household @WMLARG 8. Needed a larger house or apartment @WMMARR 9. Married, widowed, divorced, or separated @WMFAML 10. Other, family/personal related @WMQUAL 11. Wanted a better quality house (apartment) @WMCHTN 12. Change from owner to renter OR renter to owner @WMCHEP 13. Wanted lower rent or less expensive house to maintain @WMHOUS 14. Other housing related reasons @WMOTHR 15. Other-Specify [@WMPRIV1] [optional] [etc ] [goto RMOV3_LOOKNS] [@WMGOVT1][optional][etc ] [@WMDISL][optional][etc ] [@WMJOBS][optional][etc ] [@WMCLOS][optional][etc ] [@WMFEMP][optional][etc ] [@WMONHH][optional][etc ] [@WMLARG][optional][etc ] [@WMMARR][optional][etc ] [@WMFAML][optional][etc ] [@WMQUAL][optional][etc ] [@WMCHTN][optional][etc ] [@WMCHEP][optional][etc ] [@WMHOUS][optional][etc ] [@WMOTHR][SPECIFY][optional] [goto RMOVck1b] [if RMOV1a@WMPRIV1 ne and RMOV1a@WMGOVT1 ne and RMOV1a@WMDISL ne and RMOV1a@WMJOBS ne and RMOV1a@WMCLOS ne and RMOV1a@WMFEMP ne and RMOV1a@WMONHH ne and RMOV1a@WMLARG ne and RMOV1a@WMMARR ne ] [if RMOV1a@WMFAML ne and RMOV1a@WMQUAL ne and RMOV1a@WMCHTN ne and RMOV1a@WMCHEP ne and RMOV1a@WMHOUS ne and RMOV1a@WMOTHR ne ] [goto RMOV1A_err] [endif] [endif] [goto RMOVck1b] >win4< [window 4 popup] [window 4 border] [window 4 start row 12 column 9] [window 4 size 5 rows 62 columns] [window 4 background blue] >RMOV1a_ERR< [use window <4>] [BOLD]"YOU MUST MARK AT LEAST ONE CATEGORY"[N] @ [@] [nodata] >win4_d< [window 4 destroy] [goto RMOV1a@WMPRIV1] ---------------------------------------------------------------------- >RMOVck1b< [store <> in temp] [store <> in temp1] [store <> in temp2] [store <> in temp3] [store <> in temp4] [store <> in temp5] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [store <> in temp10] [store <> in temp11] [store <> in temp12] [store <> in temp13] [store <> in temp14] [store <> in temp15] [store <0> in rflag] [if RMOV1a@WMPRIV1 eq ] [add <1> to rflag] [store <1. Private company or person wanted to use it> in temp1] [endif] [if RMOV1a@WMGOVT1 eq ] [add <1> to rflag] [store <2. Forced to leave by the government> in temp2] [if RMOV1a@WMGOVT1 eq and temp1 eq <>] [store <2. Forced to leave by the government> in temp1] [store <> in temp2] [endif] [endif] [if RMOV1a@WMDISL eq ] [add <1> to rflag] [store <3. Disaster loss (fire,flood, etc.)> in temp3] [if RMOV1a@WMDISL eq and temp1 eq <>] [store <3. Disaster loss (fire,flood, etc.)> in temp1] [store <> in temp3] [else] [if RMOV1a@WMDISL eq and temp2 eq <>] [store <3. Disaster loss (fire,flood,etc.)> in temp2] [store <> in temp3] [endif][endif] [endif] [if RMOV1a@WMJOBS eq ] [add <1> to rflag] [store <4. New job or job transfer> in temp4] [if RMOV1a@WMJOBS eq and temp1 eq <>] [store <4. New job or job transfer> in temp1] [store <> in temp4] [else] [if RMOV1a@WMJOBS eq and temp2 eq <>] [store <4. New job or job transfer> in temp2] [store <> in temp4] [else] [if RMOV1a@WMJOBS eq and temp3 eq <>] [store <4. New job or job transfer> in temp3] [store <> in temp4] [endif][endif][endif] [endif] [if RMOV1a@WMCLOS eq ] [add <1> to rflag] [store <5. To be closer to work/school/other> in temp5] [if RMOV1a@WMCLOS eq and temp1 eq <>] [store <5. To be closer to work/school/other> in temp1] [store <> in temp5] [else] [if RMOV1a@WMCLOS eq and temp2 eq <>] [store <5. To be closer to work/school/other> in temp2] [store <> in temp5] [else] [if RMOV1a@WMCLOS eq and temp3 eq <>] [store <5. To be closer to work/school/other> in temp3] [store <> in temp5] [else] [if RMOV1a@WMCLOS eq and temp4 eq <>] [store <5. To be closer to work/school/other> in temp4] [store <> in temp5] [endif][endif][endif][endif] [endif] [if RMOV1a@WMFEMP eq ] [add <1> to rflag] [store <6. Other, financial/employment related> in temp6] [if RMOV1a@WMFEMP eq and temp1 eq <>] [store <6. Other, financial/employment related> in temp1] [store <> in temp6] [else] [if RMOV1a@WMFEMP eq and temp2 eq <>] [store <6. Other, financial/employment related> in temp2] [store <> in temp6] [else] [if RMOV1a@WMFEMP eq and temp3 eq <>] [store <6. Other, financial/employment related> in temp3] [store <> in temp6] [else] [if RMOV1a@WMFEMP eq and temp4 eq <>] [store <6. Other, financial/employment related> in temp4] [store <> in temp6] [else] [if RMOV1a@WMFEMP eq and temp5 eq <>] [store <6. Other, financial/employment related> in temp5] [store <> in temp6] [endif][endif][endif][endif][endif] [endif] [if RMOV1a@WMONHH eq ] [add <1> to rflag] [store <7. To establish own household> in temp7] [if RMOV1a@WMONHH eq <> and temp1 eq <>] [store <7. To establish own household> in temp1] [store <> in temp7] [else] [if RMOV1a@WMONHH eq <> and temp2 eq <>] [store <7. To establish own household> in temp2] [store <> in temp7] [else] [if RMOV1a@WMONHH eq <> and temp3 eq <>] [store <7. To establish own household> in temp3] [store <> in temp7] [else] [if RMOV1a@WMONHH eq <> and temp4 eq <>] [store <7. To establish own household> in temp4] [store <> in temp7] [else] [if RMOV1a@WMONHH eq <> and temp5 eq <>] [store <7. To establish own household> in temp5] [store <> in temp7] [else] [if RMOV1a@WMONHH eq <> and temp6 eq <>] [store <7. To establish own household> in temp6] [store <> in temp7] [endif][endif][endif][endif][endif][endif] [endif] [if RMOV1a@WMLARG eq ] [add <1> to rflag] [store <8. Needed a larger house or apartment> in temp8] [if RMOV1a@WMLARG eq and temp1 eq <>] [store <8. Needed a larger house or apartment> in temp1] [store <> in temp8] [else] [if RMOV1a@WMLARG eq and temp2 eq <>] [store <8. Needed a larger house or apartment> in temp2] [store <> in temp8] [else] [if RMOV1a@WMLARG eq and temp3 eq <>] [store <8. Needed a larger house or apartment> in temp3] [store <> in temp8] [else] [if RMOV1a@WMLARG eq and temp4 eq <>] [store <8. Needed a larger house or apartment> in temp4] [store <> in temp8] [else] [if RMOV1a@WMLARG eq and temp5 eq <>] [store <8. Needed a larger house or apartment> in temp5] [store <> in temp8] [else] [if RMOV1a@WMLARG eq and temp6 eq <>] [store <8. Needed a larger house or apartment> in temp6] [store <> in temp8] [else] [if RMOV1a@WMLARG eq and temp7 eq <>] [store <8. Needed a larger house or apartment> in temp7] [store <> in temp8] [endif][endif][endif][endif][endif][endif][endif] [endif] [if RMOV1a@WMMARR eq ] [add <1> to rflag] [store <9. Married, widowed, divorced, or separated> in temp9] [if RMOV1a@WMMARR eq and temp1 eq <>] [store <9. Married, widowed, divorced, or separated> in temp1] [store <> in temp9] [else] [if RMOV1a@WMMARR eq and temp2 eq <>] [store <9. Married, widowed, divorced, or separated> in temp2] [store <> in temp9] [else] [if RMOV1a@WMMARR eq and temp3 eq <>] [store <9. Married, widowed, divorced, or separated> in temp3] [store <> in temp9] [else] [if RMOV1a@WMMARR eq and temp4 eq <>] [store <9. Married, widowed, divorced, or separated> in temp4] [store <> in temp9] [else] [if RMOV1a@WMMARR eq and temp5 eq <>] [store <9. Married, widowed, divorced, or separated> in temp5] [store <> in temp9] [else] [if RMOV1a@WMMARR eq and temp6 eq <>] [store <9. Married, widowed, divorced, or separated> in temp6] [store <> in temp9] [else] [if RMOV1a@WMMARR eq and temp7 eq <>] [store <9. Married, widowed, divorced, or separated> in temp7] [store <> in temp9] [else] [if RMOV1a@WMMARR eq and temp8 eq <>] [store <9. Married, widowed, divorced, or separated> in temp8] [store <> in temp9] [endif][endif][endif][endif][endif][endif][endif][endif] [endif] [if RMOV1a@WMFAML eq ] [add <1> to rflag] [store <10. Other, family/personal related> in temp10] [if RMOV1a@WMFAML eq and temp1 eq <>] [store <10. Other, family/personal related> in temp1] [store <> in temp10] [else] [if RMOV1a@WMFAML eq and temp2 eq <>] [store <10. Other, family/personal related> in temp2] [store <> in temp10] [else] [if RMOV1a@WMFAML eq and temp3 eq <>] [store <10. Other, family/personal related> in temp3] [store <> in temp10] [else] [if RMOV1a@WMFAML eq and temp4 eq <>] [store <10. Other, family/personal related> in temp4] [store <> in temp10] [else] [if RMOV1a@WMFAML eq and temp5 eq <>] [store <10. Other, family/personal related> in temp5] [store <> in temp10] [else] [if RMOV1a@WMFAML eq and temp6 eq <>] [store <10. Other, family/personal related> in temp6] [store <> in temp10] [else] [if RMOV1a@WMFAML eq and temp7 eq <>] [store <10. Other, family/personal related> in temp7] [store <> in temp10] [else] [if RMOV1a@WMFAML eq and temp8 eq <>] [store <10. Other, family/personal related> in temp8] [store <> in temp10] [else] [if RMOV1a@WMFAML eq and temp9 eq <>] [store <10. Other, family/personal related> in temp9] [store <> in temp10] [endif][endif][endif][endif][endif][endif][endif][endif][endif] [endif] [if RMOV1a@WMQUAL eq ] [add <1> to rflag] [store <11. Wanted a better quality house (apartment)> in temp11] [if RMOV1a@WMQUAL eq and temp1 eq <>] [store <11. Wanted a better quality house (apartment)> in temp1] [store <> in temp11] [else] [if RMOV1a@WMQUAL eq and temp2 eq <>] [store <11. Wanted a better quality house (apartment)> in temp2] [store <> in temp11] [else] [if RMOV1a@WMQUAL eq and temp3 eq <>] [store <11. Wanted a better quality house (apartment)> in temp3] [store <> in temp11] [else] [if RMOV1a@WMQUAL eq and temp4 eq <>] [store <11. Wanted a better quality house (apartment)> in temp4] [store <> in temp11] [else] [if RMOV1a@WMQUAL eq and temp5 eq <>] [store <11. Wanted a better quality house (apartment)> in temp5] [store <> in temp11] [else] [if RMOV1a@WMQUAL eq and temp6 eq <>] [store <11. Wanted a better quality house (apartment)> in temp6] [store <> in temp11] [else] [if RMOV1a@WMQUAL eq and temp7 eq <>] [store <11. Wanted a better quality house (apartment)> in temp7] [store <> in temp11] [else] [if RMOV1a@WMQUAL eq and temp8 eq <>] [store <11. Wanted a better quality house (apartment)> in temp8] [store <> in temp11] [else] [if RMOV1a@WMQUAL eq and temp9 eq <>] [store <11. Wanted a better quality house (apartment)> in temp9] [store <> in temp11] [else] [if RMOV1a@WMQUAL eq and temp10 eq <>] [store <11. Wanted a better quality house (apartment)> in temp10] [store <> in temp11] [endif][endif][endif][endif][endif][endif][endif][endif][endif][endif] [endif] [if RMOV1a@WMCHTN eq ] [add <1> to rflag] [store <12. Change from owner to renter OR renter to owner> in temp12] [if RMOV1a@WMCHTN eq and temp1 eq <>] [store <12. Change from owner to renter OR renter to owner> in temp1] [store <> in temp12] [else] [if RMOV1a@WMCHTN eq and temp2 eq <>] [store <12. Change from owner to renter OR renter to owner> in temp2] [store <> in temp12] [else] [if RMOV1a@WMCHTN eq and temp3 eq <>] [store <12. Change from owner to renter OR renter to owner> in temp3] [store <> in temp12] [else] [if RMOV1a@WMCHTN eq and temp4 eq <>] [store <12. Change from owner to renter OR renter to owner> in temp4] [store <> in temp12] [else] [if RMOV1a@WMCHTN eq and temp5 eq <>] [store <12. Change from owner to renter OR renter to owner> in temp5] [store <> in temp12] [else] [if RMOV1a@WMCHTN eq and temp6 eq <>] [store <12. Change from owner to renter OR renter to owner> in temp6] [store <> in temp12] [else] [if RMOV1a@WMCHTN eq and temp7 eq <>] [store <12. Change from owner to renter OR renter to owner> in temp7] [store <> in temp12] [else] [if RMOV1a@WMCHTN eq and temp8 eq <>] [store <12. Change from owner to renter OR renter to owner> in temp8] [store <> in temp12] [else] [if RMOV1a@WMCHTN eq and temp9 eq <>] [store <12. Change from owner to renter OR renter to owner> in temp9] [store <> in temp12] [else] [if RMOV1a@WMCHTN eq and temp10 eq <>] [store <12. Change from owner to renter OR renter to owner> in temp10] [store <> in temp12] [else] [if RMOV1a@WMCHTN eq and temp11 eq <>] [store <12. Change from owner to renter OR renter to owner> in temp11] [store <> in temp12] [endif][endif][endif][endif][endif][endif][endif][endif][endif][endif][endif] [endif] [if RMOV1a@WMCHEP eq ] [add <1> to rflag] [store <13. Wanted lower rent or less expensive house to maintain> in temp13] [if RMOV1a@WMCHEP eq and temp1 eq <>] [store <13. Wanted lower rent or less expensive house to maintain> in temp1] [store <> in temp13] [else] [if RMOV1a@WMCHEP eq and temp2 eq <>] [store <13. Wanted lower rent or less expensive house to maintain> in temp2] [store <> in temp13] [else] [if RMOV1a@WMCHEP eq and temp3 eq <>] [store <13. Wanted lower rent or less expensive house to maintain> in temp3] [store <> in temp13] [else] [if RMOV1a@WMCHEP eq and temp4 eq <>] [store <13. Wanted lower rent or less expensive house to maintain> in temp4] [store <> in temp13] [else] [if RMOV1a@WMCHEP eq and temp5 eq <>] [store <13. Wanted lower rent or less expensive house to maintain> in temp5] [store <> in temp13] [else] [if RMOV1a@WMCHEP eq and temp6 eq <>] [store <13. Wanted lower rent or less expensive house to maintain> in temp6] [store <> in temp13] [else] [if RMOV1a@WMCHEP eq and temp7 eq <>] [store <13. Wanted lower rent or less expensive house to maintain> in temp7] [store <> in temp13] [else] [if RMOV1a@WMCHEP eq and temp8 eq <>] [store <13. Wanted lower rent or less expensive house to maintain> in temp8] [store <> in temp13] [else] [if RMOV1a@WMCHEP eq and temp9 eq <>] [store <13. Wanted lower rent or less expensive house to maintain> in temp9] [store <> in temp13] [else] [if RMOV1a@WMCHEP eq and temp10 eq <>] [store <13. Wanted lower rent or less expensive house to maintain> in temp10] [store <> in temp13] [else] [if RMOV1a@WMCHEP eq and temp11 eq <>] [store <13. Wanted lower rent or less expensive house to maintain> in temp11] [store <> in temp13] [else] [if RMOV1a@WMCHEP eq and temp12 eq <>] [store <13. Wanted lower rent or less expensive house to maintain> in temp12] [store <> in temp13] [endif][endif][endif][endif][endif][endif][endif][endif][endif][endif][endif][endif] [endif] [if RMOV1a@WMHOUS eq ] [add <1> to rflag] [store <14. Other housing related reasons> in temp14] [if RMOV1a@WMHOUS eq and temp1 eq <>] [store <14. Other housing related reasons> in temp1] [store <> in temp14] [else] [if RMOV1a@WMHOUS eq and temp2 eq <>] [store <14. Other housing related reasons> in temp2] [store <> in temp14] [else] [if RMOV1a@WMHOUS eq and temp3 eq <>] [store <14. Other housing related reasons> in temp3] [store <> in temp14] [else] [if RMOV1a@WMHOUS eq and temp4 eq <>] [store <14. Other housing related reasons> in temp4] [store <> in temp14] [else] [if RMOV1a@WMHOUS eq and temp5 eq <>] [store <14. Other housing related reasons> in temp5] [store <> in temp14] [else] [if RMOV1a@WMHOUS eq and temp6 eq <>] [store <14. Other housing related reasons> in temp6] [store <> in temp14] [else] [if RMOV1a@WMHOUS eq and temp7 eq <>] [store <14. Other housing related reasons> in temp7] [store <> in temp14] [else] [if RMOV1a@WMHOUS eq and temp8 eq <>] [store <14. Other housing related reasons> in temp8] [store <> in temp14] [else] [if RMOV1a@WMHOUS eq and temp9 eq <>] [store <14. Other housing related reasons> in temp9] [store <> in temp14] [else] [if RMOV1a@WMHOUS eq and temp10 eq <>] [store <14. Other housing related reasons> in temp10] [store <> in temp14] [else] [if RMOV1a@WMHOUS eq and temp11 eq <>] [store <14. Other housing related reasons> in temp11] [store <> in temp14] [else] [if RMOV1a@WMHOUS eq and temp12 eq <>] [store <14. Other housing related reasons> in temp12] [store <> in temp14] [else] [if RMOV1a@WMHOUS eq and temp13 eq <>] [store <14. Other housing related reasons> in temp13] [store <> in temp14] [endif][endif][endif][endif][endif][endif][endif][endif][endif][endif][endif][endif][endif] [endif] [if RMOV1a@WMOTHR eq ] [add <1> to rflag] [store <15. Other-Specify> in temp15] [if RMOV1a@WMOTHR eq and temp1 eq <>] [store <15. Other-Specify> in temp1] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp2 eq <>] [store <15. Other-Specify> in temp2] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp3 eq <>] [store <15. Other-Specify> in temp3] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp4 eq <>] [store <15. Other-Specify> in temp4] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp5 eq <>] [store <15. Other-Specify> in temp5] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp6 eq <>] [store <15. Other-Specify> in temp6] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp7 eq <>] [store <15. Other-Specify> in temp7] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp8 eq <>] [store <15. Other-Specify> in temp8] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp9 eq <>] [store <15. Other-Specify> in temp9] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp10 eq <>] [store <15. Other-Specify> in temp10] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp11 eq <>] [store <15. Other-Specify> in temp11] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp12 eq <>] [store <15. Other-Specify> in temp12] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp13 eq <>] [store <15. Other-Specify> in temp13] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp14 eq <>] [store <15. Other-Specify> in temp14] [store <> in temp15] [endif][endif][endif][endif][endif][endif][endif][endif][endif][endif][endif][endif][endif][endif] [endif] _____________________________________________________________________ >RMOVck1b2< [if rflag eq <0> or rflag eq <1>] [goto RMOVck2a] [else] [goto RMOV1b_WHYMOVE] [endif] _____________________________________________________________________ >RMOV1b_WHYMOVE< [store <0> in XBAD] [store <0> in rflag] [loop for XCOUNT from <1> to <30>] [store XCOUNT in XBAD(XCOUNT)] [loop end XCOUNT] [store <> in temp] [store <> in temp1] [store <> in temp2] [store <> in temp3] [store <> in temp4] [store <> in temp5] [store <> in temp6] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [store <> in temp10] [store <> in temp11] [store <> in temp12] [store <> in temp13] [store <> in temp14] [store <> in temp15] [if RMOV1a@WMPRIV1 eq ] [store <> in XBAD(<1>)] [add <1> to rflag] [store <1. Private company or person wanted to use it> in temp1] [endif] [if RMOV1a@WMGOVT1 eq ] [store <> in XBAD(<2>)] [store <2. Forced to leave by the government> in temp2] [if RMOV1a@WMGOVT1 eq and temp1 eq <>] [store <2. Forced to leave by the government> in temp1] [store <> in temp2] [endif] [endif] [if RMOV1a@WMDISL eq ] [store <> in XBAD(<3>)] [store <3. Disaster loss (fire,flood, etc.)> in temp3] [if RMOV1a@WMDISL eq and temp1 eq <>] [store <3. Disaster loss (fire,flood, etc.)> in temp1] [store <> in temp3] [else] [if RMOV1a@WMDISL eq and temp2 eq <>] [store <3. Disaster loss (fire,flood,etc.)> in temp2] [store <> in temp3] [endif][endif] [endif] [if RMOV1a@WMJOBS eq ] [store <> in XBAD(<4>)] [store <4. New job or job transfer> in temp4] [if RMOV1a@WMJOBS eq and temp1 eq <>] [store <4. New job or job transfer> in temp1] [store <> in temp4] [else] [if RMOV1a@WMJOBS eq and temp2 eq <>] [store <4. New job or job transfer> in temp2] [store <> in temp4] [else] [if RMOV1a@WMJOBS eq and temp3 eq <>] [store <4. New job or job transfer> in temp3] [store <> in temp4] [endif][endif][endif] [endif] [if RMOV1a@WMCLOS eq ] [store <> in XBAD(<5>)] [store <5. To be closer to work/school/other> in temp5] [if RMOV1a@WMCLOS eq and temp1 eq <>] [store <5. To be closer to work/school/other> in temp1] [store <> in temp5] [else] [if RMOV1a@WMCLOS eq and temp2 eq <>] [store <5. To be closer to work/school/other> in temp2] [store <> in temp5] [else] [if RMOV1a@WMCLOS eq and temp3 eq <>] [store <5. To be closer to work/school/other> in temp3] [store <> in temp5] [else] [if RMOV1a@WMCLOS eq and temp4 eq <>] [store <5. To be closer to work/school/other> in temp4] [store <> in temp5] [endif][endif][endif][endif] [endif] [if RMOV1a@WMFEMP eq ] [store <> in XBAD(<6>)] [store <6. Other, financial/employment related> in temp6] [if RMOV1a@WMFEMP eq and temp1 eq <>] [store <6. Other, financial/employment related> in temp1] [store <> in temp6] [else] [if RMOV1a@WMFEMP eq and temp2 eq <>] [store <6. Other, financial/employment related> in temp2] [store <> in temp6] [else] [if RMOV1a@WMFEMP eq and temp3 eq <>] [store <6. Other, financial/employment related> in temp3] [store <> in temp6] [else] [if RMOV1a@WMFEMP eq and temp4 eq <>] [store <6. Other, financial/employment related> in temp4] [store <> in temp6] [else] [if RMOV1a@WMFEMP eq and temp5 eq <>] [store <6. Other, financial/employment related> in temp5] [store <> in temp6] [endif][endif][endif][endif][endif] [endif] [if RMOV1a@WMONHH eq ] [store <> in XBAD(<7>)] [store <7. To establish own household> in temp7] [if RMOV1a@WMONHH eq <> and temp1 eq <>] [store <7. To establish own household> in temp1] [store <> in temp7] [else] [if RMOV1a@WMONHH eq <> and temp2 eq <>] [store <7. To establish own household> in temp2] [store <> in temp7] [else] [if RMOV1a@WMONHH eq <> and temp3 eq <>] [store <7. To establish own household> in temp3] [store <> in temp7] [else] [if RMOV1a@WMONHH eq <> and temp4 eq <>] [store <7. To establish own household> in temp4] [store <> in temp7] [else] [if RMOV1a@WMONHH eq <> and temp5 eq <>] [store <7. To establish own household> in temp5] [store <> in temp7] [else] [if RMOV1a@WMONHH eq <> and temp6 eq <>] [store <7. To establish own household> in temp6] [store <> in temp7] [endif][endif][endif][endif][endif][endif] [endif] [if RMOV1a@WMLARG eq ] [store <> in XBAD(<8>)] [store <8. Needed a larger house or apartment> in temp8] [if RMOV1a@WMLARG eq and temp1 eq <>] [store <8. Needed a larger house or apartment> in temp1] [store <> in temp8] [else] [if RMOV1a@WMLARG eq and temp2 eq <>] [store <8. Needed a larger house or apartment> in temp2] [store <> in temp8] [else] [if RMOV1a@WMLARG eq and temp3 eq <>] [store <8. Needed a larger house or apartment> in temp3] [store <> in temp8] [else] [if RMOV1a@WMLARG eq and temp4 eq <>] [store <8. Needed a larger house or apartment> in temp4] [store <> in temp8] [else] [if RMOV1a@WMLARG eq and temp5 eq <>] [store <8. Needed a larger house or apartment> in temp5] [store <> in temp8] [else] [if RMOV1a@WMLARG eq and temp6 eq <>] [store <8. Needed a larger house or apartment> in temp6] [store <> in temp8] [else] [if RMOV1a@WMLARG eq and temp7 eq <>] [store <8. Needed a larger house or apartment> in temp7] [store <> in temp8] [endif][endif][endif][endif][endif][endif][endif] [endif] [if RMOV1a@WMMARR eq ] [store <> in XBAD(<9>)] [store <9. Married, widowed, divorced, or separated> in temp9] [if RMOV1a@WMMARR eq and temp1 eq <>] [store <9. Married, widowed, divorced, or separated> in temp1] [store <> in temp9] [else] [if RMOV1a@WMMARR eq and temp2 eq <>] [store <9. Married, widowed, divorced, or separated> in temp2] [store <> in temp9] [else] [if RMOV1a@WMMARR eq and temp3 eq <>] [store <9. Married, widowed, divorced, or separated> in temp3] [store <> in temp9] [else] [if RMOV1a@WMMARR eq and temp4 eq <>] [store <9. Married, widowed, divorced, or separated> in temp4] [store <> in temp9] [else] [if RMOV1a@WMMARR eq and temp5 eq <>] [store <9. Married, widowed, divorced, or separated> in temp5] [store <> in temp9] [else] [if RMOV1a@WMMARR eq and temp6 eq <>] [store <9. Married, widowed, divorced, or separated> in temp6] [store <> in temp9] [else] [if RMOV1a@WMMARR eq and temp7 eq <>] [store <9. Married, widowed, divorced, or separated> in temp7] [store <> in temp9] [else] [if RMOV1a@WMMARR eq and temp8 eq <>] [store <9. Married, widowed, divorced, or separated> in temp8] [store <> in temp9] [endif][endif][endif][endif][endif][endif][endif][endif] [endif] [if RMOV1a@WMFAML eq ] [store <> in XBAD(<10>)] [store <10. Other, family/personal related> in temp10] [if RMOV1a@WMFAML eq and temp1 eq <>] [store <10. Other, family/personal related> in temp1] [store <> in temp10] [else] [if RMOV1a@WMFAML eq and temp2 eq <>] [store <10. Other, family/personal related> in temp2] [store <> in temp10] [else] [if RMOV1a@WMFAML eq and temp3 eq <>] [store <10. Other, family/personal related> in temp3] [store <> in temp10] [else] [if RMOV1a@WMFAML eq and temp4 eq <>] [store <10. Other, family/personal related> in temp4] [store <> in temp10] [else] [if RMOV1a@WMFAML eq and temp5 eq <>] [store <10. Other, family/personal related> in temp5] [store <> in temp10] [else] [if RMOV1a@WMFAML eq and temp6 eq <>] [store <10. Other, family/personal related> in temp6] [store <> in temp10] [else] [if RMOV1a@WMFAML eq and temp7 eq <>] [store <10. Other, family/personal related> in temp7] [store <> in temp10] [else] [if RMOV1a@WMFAML eq and temp8 eq <>] [store <10. Other, family/personal related> in temp8] [store <> in temp10] [else] [if RMOV1a@WMFAML eq and temp9 eq <>] [store <10. Other, family/personal related> in temp9] [store <> in temp10] [endif][endif][endif][endif][endif][endif][endif][endif][endif] [endif] [if RMOV1a@WMQUAL eq ] [store <> in XBAD(<11>)] [store <11. Wanted a better quality house (apartment)> in temp11] [if RMOV1a@WMQUAL eq and temp1 eq <>] [store <11. Wanted a better quality house (apartment)> in temp1] [store <> in temp11] [else] [if RMOV1a@WMQUAL eq and temp2 eq <>] [store <11. Wanted a better quality house (apartment)> in temp2] [store <> in temp11] [else] [if RMOV1a@WMQUAL eq and temp3 eq <>] [store <11. Wanted a better quality house (apartment)> in temp3] [store <> in temp11] [else] [if RMOV1a@WMQUAL eq and temp4 eq <>] [store <11. Wanted a better quality house (apartment)> in temp4] [store <> in temp11] [else] [if RMOV1a@WMQUAL eq and temp5 eq <>] [store <11. Wanted a better quality house (apartment)> in temp5] [store <> in temp11] [else] [if RMOV1a@WMQUAL eq and temp6 eq <>] [store <11. Wanted a better quality house (apartment)> in temp6] [store <> in temp11] [else] [if RMOV1a@WMQUAL eq and temp7 eq <>] [store <11. Wanted a better quality house (apartment)> in temp7] [store <> in temp11] [else] [if RMOV1a@WMQUAL eq and temp8 eq <>] [store <11. Wanted a better quality house (apartment)> in temp8] [store <> in temp11] [else] [if RMOV1a@WMQUAL eq and temp9 eq <>] [store <11. Wanted a better quality house (apartment)> in temp9] [store <> in temp11] [else] [if RMOV1a@WMQUAL eq and temp10 eq <>] [store <11. Wanted a better quality house (apartment)> in temp10] [store <> in temp11] [endif][endif][endif][endif][endif][endif][endif][endif][endif][endif] [endif] [if RMOV1a@WMCHTN eq ] [store <> in XBAD(<12>)] [store <12. Change from owner to renter OR renter to owner> in temp12] [if RMOV1a@WMCHTN eq and temp1 eq <>] [store <12. Change from owner to renter OR renter to owner> in temp1] [store <> in temp12] [else] [if RMOV1a@WMCHTN eq and temp2 eq <>] [store <12. Change from owner to renter OR renter to owner> in temp2] [store <> in temp12] [else] [if RMOV1a@WMCHTN eq and temp3 eq <>] [store <12. Change from owner to renter OR renter to owner> in temp3] [store <> in temp12] [else] [if RMOV1a@WMCHTN eq and temp4 eq <>] [store <12. Change from owner to renter OR renter to owner> in temp4] [store <> in temp12] [else] [if RMOV1a@WMCHTN eq and temp5 eq <>] [store <12. Change from owner to renter OR renter to owner> in temp5] [store <> in temp12] [else] [if RMOV1a@WMCHTN eq and temp6 eq <>] [store <12. Change from owner to renter OR renter to owner> in temp6] [store <> in temp12] [else] [if RMOV1a@WMCHTN eq and temp7 eq <>] [store <12. Change from owner to renter OR renter to owner> in temp7] [store <> in temp12] [else] [if RMOV1a@WMCHTN eq and temp8 eq <>] [store <12. Change from owner to renter OR renter to owner> in temp8] [store <> in temp12] [else] [if RMOV1a@WMCHTN eq and temp9 eq <>] [store <12. Change from owner to renter OR renter to owner> in temp9] [store <> in temp12] [else] [if RMOV1a@WMCHTN eq and temp10 eq <>] [store <12. Change from owner to renter OR renter to owner> in temp10] [store <> in temp12] [else] [if RMOV1a@WMCHTN eq and temp11 eq <>] [store <12. Change from owner to renter OR renter to owner> in temp11] [store <> in temp12] [endif][endif][endif][endif][endif][endif][endif][endif][endif][endif][endif] [endif] [if RMOV1a@WMCHEP eq ] [store <> in XBAD(<13>)] [store <13. Wanted lower rent or less expensive house to maintain> in temp13] [if RMOV1a@WMCHEP eq and temp1 eq <>] [store <13. Wanted lower rent or less expensive house to maintain> in temp1] [store <> in temp13] [else] [if RMOV1a@WMCHEP eq and temp2 eq <>] [store <13. Wanted lower rent or less expensive house to maintain> in temp2] [store <> in temp13] [else] [if RMOV1a@WMCHEP eq and temp3 eq <>] [store <13. Wanted lower rent or less expensive house to maintain> in temp3] [store <> in temp13] [else] [if RMOV1a@WMCHEP eq and temp4 eq <>] [store <13. Wanted lower rent or less expensive house to maintain> in temp4] [store <> in temp13] [else] [if RMOV1a@WMCHEP eq and temp5 eq <>] [store <13. Wanted lower rent or less expensive house to maintain> in temp5] [store <> in temp13] [else] [if RMOV1a@WMCHEP eq and temp6 eq <>] [store <13. Wanted lower rent or less expensive house to maintain> in temp6] [store <> in temp13] [else] [if RMOV1a@WMCHEP eq and temp7 eq <>] [store <13. Wanted lower rent or less expensive house to maintain> in temp7] [store <> in temp13] [else] [if RMOV1a@WMCHEP eq and temp8 eq <>] [store <13. Wanted lower rent or less expensive house to maintain> in temp8] [store <> in temp13] [else] [if RMOV1a@WMCHEP eq and temp9 eq <>] [store <13. Wanted lower rent or less expensive house to maintain> in temp9] [store <> in temp13] [else] [if RMOV1a@WMCHEP eq and temp10 eq <>] [store <13. Wanted lower rent or less expensive house to maintain> in temp10] [store <> in temp13] [else] [if RMOV1a@WMCHEP eq and temp11 eq <>] [store <13. Wanted lower rent or less expensive house to maintain> in temp11] [store <> in temp13] [else] [if RMOV1a@WMCHEP eq and temp12 eq <>] [store <13. Wanted lower rent or less expensive house to maintain> in temp12] [store <> in temp13] [endif][endif][endif][endif][endif][endif][endif][endif][endif][endif][endif][endif] [endif] [if RMOV1a@WMHOUS eq ] [store <> in XBAD(<14>)] [store <14. Other housing related reasons> in temp14] [if RMOV1a@WMHOUS eq and temp1 eq <>] [store <14. Other housing related reasons> in temp1] [store <> in temp14] [else] [if RMOV1a@WMHOUS eq and temp2 eq <>] [store <14. Other housing related reasons> in temp2] [store <> in temp14] [else] [if RMOV1a@WMHOUS eq and temp3 eq <>] [store <14. Other housing related reasons> in temp3] [store <> in temp14] [else] [if RMOV1a@WMHOUS eq and temp4 eq <>] [store <14. Other housing related reasons> in temp4] [store <> in temp14] [else] [if RMOV1a@WMHOUS eq and temp5 eq <>] [store <14. Other housing related reasons> in temp5] [store <> in temp14] [else] [if RMOV1a@WMHOUS eq and temp6 eq <>] [store <14. Other housing related reasons> in temp6] [store <> in temp14] [else] [if RMOV1a@WMHOUS eq and temp7 eq <>] [store <14. Other housing related reasons> in temp7] [store <> in temp14] [else] [if RMOV1a@WMHOUS eq and temp8 eq <>] [store <14. Other housing related reasons> in temp8] [store <> in temp14] [else] [if RMOV1a@WMHOUS eq and temp9 eq <>] [store <14. Other housing related reasons> in temp9] [store <> in temp14] [else] [if RMOV1a@WMHOUS eq and temp10 eq <>] [store <14. Other housing related reasons> in temp10] [store <> in temp14] [else] [if RMOV1a@WMHOUS eq and temp11 eq <>] [store <14. Other housing related reasons> in temp11] [store <> in temp14] [else] [if RMOV1a@WMHOUS eq and temp12 eq <>] [store <14. Other housing related reasons> in temp12] [store <> in temp14] [else] [if RMOV1a@WMHOUS eq and temp13 eq <>] [store <14. Other housing related reasons> in temp13] [store <> in temp14] [endif][endif][endif][endif][endif][endif][endif][endif][endif][endif][endif][endif][endif] [endif] [if RMOV1a@WMOTHR eq ] [store <> in XBAD(<15>)] [store <15. Other-Specify> in temp15] [if RMOV1a@WMOTHR eq and temp1 eq <>] [store <15. Other-Specify> in temp1] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp2 eq <>] [store <15. Other-Specify> in temp2] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp3 eq <>] [store <15. Other-Specify> in temp3] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp4 eq <>] [store <15. Other-Specify> in temp4] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp5 eq <>] [store <15. Other-Specify> in temp5] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp6 eq <>] [store <15. Other-Specify> in temp6] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp7 eq <>] [store <15. Other-Specify> in temp7] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp8 eq <>] [store <15. Other-Specify> in temp8] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp9 eq <>] [store <15. Other-Specify> in temp9] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp10 eq <>] [store <15. Other-Specify> in temp10] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp11 eq <>] [store <15. Other-Specify> in temp11] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp12 eq <>] [store <15. Other-Specify> in temp12] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp13 eq <>] [store <15. Other-Specify> in temp13] [store <> in temp15] [else] [if RMOV1a@WMOTHR eq and temp14 eq <>] [store <15. Other-Specify> in temp14] [store <> in temp15] [endif][endif][endif][endif][endif][endif][endif][endif][endif][endif][endif][endif][endif][endif] [endif] [r](H)[n] What was the MAIN reason you moved? [fill temp1] [fill temp2] [fill temp3] [fill temp4] [fill temp5] [fill temp6] [fill temp7] [fill temp8] [fill temp9] [fill temp10] [fill temp11] [fill temp12] [fill temp13] [fill temp14] [fill temp15] (Enter precode 1-15 or enter zero - All reasons of equal importance) @ [@]<0-15> [reject eq XBAD][goto RMOVck2a] [missing][etc ] ---------------------------------------------------------------------- >RMOVck2a< [if RMOV1a@WMPRIV1 eq ] [goto RMOV2a1_WMOWNR1] [endif] [if RMOV1a@WMGOVT1 eq ] [goto RMOV2b1_WMGOVP1] [endif] [if RMOV1a@WMPRIV1 eq <> and RMOV1a@WMGOVT1 eq <>] [goto RMOV2c1_WMPRIV2] [endif] _____________________________________________________________________ >RMOV2a1_WMOWNR1< [missing ] [r](H)[n] Did you leave- Because the owner, or members of the owner's family were going to move into that residence? (1) Yes (2) No @ [@]<1> [goto RMOVck2b1] <2,D,R> [goto RMOV2a2_WMCNDO1] [etc ] ______________________________________________________________________ >RMOV2a2_WMCNDO1< [missing ] Because that unit was going to become a condominium or cooperative? (1) Yes (2) No @ [@]<1> [goto RMOVck2b1] <2,D,R> [goto RMOV2a3_WMREPR1] ______________________________________________________________________ >RMOV2a3_WMREPR1< [missing ] Because that residence was closed for repairs? (1) Yes (2) No @ [@] <1,2,D,R>[goto RMOV3_LOOKNS] _____________________________________________________________________ >RMOVck2b1< [if RMOV1a@WMGOVT1 eq ] [goto RMOV2b1_WMGOVP1] [else] [goto RMOV3_LOOKNS] [endif] ---------------------------------------------------------------------- >RMOV2b1_WMGOVP1< [missing ] [r](H)[n] Did you leave- Because the government wanted to use the land or building for some other purposes? (1) Yes (2) No @ [@] <1> [goto RMOV3_LOOKNS] <2,D,R> [goto RMOV2b2_WMNFIT1 ] [etc ] _____________________________________________________________________ >RMOV2b2_WMNFIT1< [missing ] Because that residence was condemned by the government as unfit for occupancy? (1) Yes (2) No @ [@] <1,2,D,R> [goto RMOV3_LOOKNS] _____________________________________________________________________ >RMOV2c1_WMPRIV2< [missing ] In addition to the reason(s) given, did you leave- Because a private company or person wanted to use it for some purpose? (1) Yes (2) No @ [@]<1> [goto RMOV2c2_WMOWNR2] <2,D,R> [goto RMOV2c5_WMGOVT2] _____________________________________________________________________ >RMOV2c2_WMOWNR2< [missing ] Was that because the owner or members of the owner's family were going to move into that residence? (1) Yes (2) No @ [@] <1> [goto RMOV3_LOOKNS] <2,D,R> [goto RMOV2c3_WMCNDO2] _____________________________________________________________________ >RMOV2c3_WMCNDO2< [missing ] Because it was going to be a condominium or cooperative? (1) Yes (2) No @ [@] <1> [goto RMOV3_LOOKNS] <2,D,R> [goto RMOV2c4_WMREPR2] _____________________________________________________________________ >RMOV2c4_WMREPR2< [missing ] Because it was closed for repairs? (1) Yes (2) No @ [@] <1,2,D,R> [goto RMOV3_LOOKNS] _____________________________________________________________________ >RMOV2c5_WMGOVT2< [missing ] Because the government forced you to leave? (1) Yes (2) No @ [@] <1> [goto RMOV2c6_WMGOVP2] <2,D,R> [goto RMOV3_LOOKNS] _____________________________________________________________________ >RMOV2c6_WMGOVP2< [missing ] Was that because the government wanted to use the land or building for some other purpose? (1) Yes (2) No @ [@] <1> [goto RMOV3_LOOKNS] <2,D,R> [goto RMOV2c7_WMNFIT2] _____________________________________________________________________ >RMOV2c7_WMNFIT2< [missing ] Because it was condemned by the government as unfit for occupancy? (1) Yes (2) No @ [@] <1,2,D,R> [goto RMOV3_LOOKNS] _____________________________________________________________________ >RMOV3_LOOKNS< [missing ] [r](H)[n] When you were going to move, did you look for a(n) [fill HTYPEFILL] in any neighborhood other than this? (1) Yes (2) No @ [@] <1,2,D,R> [goto RMOV4a1_LOOKHS] [etc ] _____________________________________________________________________ >RMOV4a1_LOOKHS< [missing ] [store < > in temp] [if HTYPE eq <1> or HTYPE eq <2>] [store in temp] [else] [store in temp] [endif] [r](H)[n] Did you look at both [fill temp] and apartments? (1) Yes (2) No (3) Looked only at this unit @ [@] <1-2,D,R> [goto RMOV4a2_NUMHS] <3> [goto RMOVck4a3] [etc ] _____________________________________________________________________ >RMOV4a2_NUMHS< [missing ] About how many other houses, apartments, and manufactured/mobile homes did you look at before you chose this one? @ [@] <0-2,D,R> [goto RMOV4a3] <3-99> [goto RMOVck4a3] ======================================================================= >RMOVck4a3< [if RMOV3_LOOKNS eq <1> or RMOV3_LOOKNS eq or RMOV3_LOOKNS eq ] [goto RMOV4a4_HEARHS] [endif] ======================================================================= >RMOV4a3< [open rmov4a3] [store <> in temp] [if RMOV4a2_NUMHS eq <0> or RMOV4a2_NUMHS eq <1> or RMOV4a2_NUMHS eq <2>] [store in temp] [else] [store in temp] [endif] Some people look [fill temp]. Did you stop looking, because you... (READ CATEGORIES AND MARK (X) ALL THAT APPLY) @nlmov (1) Had to move quickly? @nlmobl (2) Had trouble traveling to see others (caring for others, transportation, disabilities)? @nlunk (3) Didn't know of any others? @nlbsy (4) Were too busy to look more? @nlhppy (5) Were completely happy with this one? @nlnlik (6) Don't like looking? @nlnpr (7) No particular reason @nlothr (8) Other - Specify [@nlmov] [optional] [missing] [goto RMOV4a4_HEARHS] [@nlmobl] [optional] [goto @nlunk] [@nlunk] [optional] [goto @nlbsy] [@nlbsy] [optional] [goto @nlhppy] [@nlhppy] [optional] [goto @nlnlik] [@nlnlik] [optional] [goto @nlnpr] [@nlnpr] [optional] [goto @nlothr] [@nlothr] [specify] [optional][goto rmov4a4_hearhs] [if RMOV4a3@nlmov ne and RMOV4a3@nlmobl ne and RMOV4a3@nlunk ne and RMOV4a3@nlbsy ne and RMOV4a3@nlhppy ne and RMOV4a3@nlnlik ne and RMOV4a3@nlnpr ne and RMOV4a3@nlothr ne ] [goto rmova3_err] [endif] [goto RMOV4a4_hearhs] >win_4< [window 4 popup] [window 4 border] [window 4 start row 12 column 9] [window 4 size 5 rows 62 columns] [window 4 background blue] >RMOVa3_ERR< [use window <4>] [BOLD]"YOU MUST MARK AT LEAST ONE CATEGORY"[N] @ [@] [nodata] >win4d< [window 4 destroy] [goto RMOV4a3] ====================================================================== >RMOV4a4_HEARHS< How did you hear about this [fill HTYPEfill]? Probe: How did you FIRST hear?(if more than one source) (1) Advertisement (newspaper, booklet of homes available, internet, etc) (2) Broker (3) Sign on property (4) Friend, relative, or acquaintance (5) Other - Specify @ [@] <1-4,D,R> [goto pmovyr] <5> [specify] ======================================================================= >PMOVYR< [allow int 4] >PMOVM< [allow int 2] >SURV_yr< [allow int 4] [store Intyr in surv_yr] [#add <1900> to surv_yr] [subtract <5> from surv_yr] >RMOV4a5< When was the last time you moved before this? ***ENTER 4 DIGIT YEAR*** @PMOVYR [if @PMOVYR ge surv_yr] What month was that? @PMOVM (1) January (5) May (9) September (2) February (6) June (10) October (3) March (7) July (11) November (4) April (8) August (12) December [endif] [@PMOVYR] <1900-2001> [missing] [@PMOVM] <1-12,D,R> [goto RMOV4b] ====================================================================== >RMOV4b< [open RMOV4b] People's reasons for selecting a new neighborhood may be different from their reasons for choosing a particular home. What attracted you to this NEIGHBORHOOD? [bold](WRITE EXACT WORDS AND MARK (X) ALL THAT APPLY.)[n] @NHOODA @NHOODB @NHOODC @WNJOB 1. Convenient to job @WNPEPL 2. Convenient to friends or relatives @WNFUN 3. Convenient to leisure activities @WNTRAN 4. Convenient to public transportation @WNSCH 5. Good schools @WNSRV 6. Other public services @WNLOOK 7. Looks/design of neighborhood @WNHOME 8. House was an important consideration @WNOTHR 9. Other-SPECIFY [@NHOODA] [allow 40] [optional] [@NHOODB] [allow 40] [optional] [@NHOODC] [allow 40] [optional] [@WNJOB] [optional] [missing] [goto RMOV5a] [@WNPEPL] [optional] [@WNFUN] [optional] [@WNTRAN] [optional] [@WNSCH] [optional] [@WNSRV] [optional] [@WNLOOK] [optional] [@WNHOME] [optional] [@WNOTHR] [optional][SPECIFY] [if RMOV4b@WNJOB ne and RMOV4b@WNPEPL ne and RMOV4b@WNFUN ne and RMOV4b@WNTRAN ne and RMOV4b@WNSCH ne and RMOV4b@WNSRV ne and RMOV4b@WNLOOK ne and RMOV4b@WNHOME ne and RMOV4b@WNOTHR ne ] [goto win4_4b] [endif] [store <0> in index3] [# [if RMOV4b@WNJOB eq ] [add <1> to index3] [endif] [if RMOV4b@WNPEPL eq ] [add <1> to index3] [endif] [if RMOV4b@WNFUN eq ] [add <1> to index3] [endif] [if RMOV4b@WNTRAN eq ] [add <1> to index3] [endif] [if RMOV4b@WNSCH eq ] [add <1> to index3] [endif] [if RMOV4b@WNSRV eq ] [add <1> to index3] [endif] [if RMOV4b@WNLOOK eq ] [add <1> to index3] [endif] [if RMOV4b@WNHOME eq ] [add <1> to index3] [endif] [if RMOV4b@WNOTHR eq ] [add <1> to index3] [endif] [if index3 ge <2>] [goto RMOVck4c] [else] [goto rmov5a] [endif] >win4_4b< [window 4 popup] [window 4 border] [window 4 start row 12 column 9] [window 4 size 5 rows 62 columns] [window 4 background blue] >RMOV4b_ERR< [use window <4>] [BOLD]"YOU MUST MARK AT LEAST ONE CATEGORY"[N] @ [@] [nodata] >win4b_d< [window 4 destroy] [goto RMOV4b] _____________________________________________________________________ >RMOVck4c<[store <> in temp1] [store <> in temp2] [store <> in temp3] [store <> in temp4] [store <> in temp5] [store <> in temp6] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [store <0> in nflag] [if RMOV4b@WNJOB eq ] [store <1. Convenient to job> in temp1] [add <1> to nflag] [endif] [if RMOV4b@WNPEPL eq ] [add <1> to nflag] [store <2. Convenient to friends or relatives> in temp2] [if RMOV4b@WNPEPL eq and temp1 eq <>] [store <2. Convenient to friends or relatives> in temp1] [store <> in temp2] [endif] [endif] [if RMOV4b@WNFUN eq ] [add <1> to nflag] [store <3. Convenient to leisure activities> in temp3] [if RMOV4b@WNFUN eq and temp1 eq <>] [store <3. Convenient to leisure activities> in temp1] [store <> in temp3] [else] [if RMOV4b@WNFUN eq and temp2 eq <>] [store <3. Convenient to leisure activities> in temp2] [store <> in temp3] [endif][endif] [endif] [if RMOV4b@WNTRAN eq ] [add <1> to nflag] [store <4. Convenient to public transportation> in temp4] [if RMOV4b@WNTRAN eq and temp1 eq <>] [store <4. Convenient to public transportation> in temp1] [store <> in temp4] [else] [if RMOV4b@WNTRAN eq and temp2 eq <>] [store <4. Convenient to public transportation> in temp2] [store <> in temp4] [else] [if RMOV4b@WNTRAN eq and temp3 eq <>] [store <4. Convenient to public transportation> in temp3] [store <> in temp4] [endif][endif][endif] [endif] [if RMOV4b@WNSCH eq ] [add <1> to nflag] [store <5. Good schools> in temp5] [if RMOV4b@WNSCH eq and temp1 eq <>] [store <5. Good schools> in temp1] [store <> in temp5] [else] [if RMOV4b@WNSCH eq and temp2 eq <>] [store <5. Good schools> in temp2] [store <> in temp5] [else] [if RMOV4b@WNSCH eq and temp3 eq <>] [store <5. Good schools> in temp3] [store <> in temp5] [else] [if RMOV4b@WNSCH eq and temp4 eq <>] [store <5. Good schools> in temp4] [store <> in temp5] [endif][endif][endif][endif] [endif] [if RMOV4b@WNSRV eq ] [add <1> to nflag] [store <6. Other public services> in temp6] [if RMOV4b@WNSRV eq and temp1 eq <>] [store <6. Other public services> in temp1] [store <> in temp6] [else] [if RMOV4b@WNSRV eq and temp2 eq <>] [store <6. Other public services> in temp2] [store <> in temp6] [else] [if RMOV4b@WNSRV eq and temp3 eq <>] [store <6. Other public services> in temp3] [store <> in temp6] [else] [if RMOV4b@WNSRV eq and temp4 eq <>] [store <6. Other public services> in temp4] [store <> in temp6] [else] [if RMOV4b@WNSRV eq and temp5 eq <>] [store <6. Other public services> in temp5] [store <> in temp6] [endif][endif][endif][endif][endif] [endif] [if RMOV4b@WNLOOK eq ] [add <1> to nflag] [store <7. Looks/design of neighborhood> in temp7] [if RMOV4b@WNLOOK eq <> and temp1 eq <>] [store <7. Looks/design of neighborhood> in temp1] [store <> in temp7] [else] [if RMOV4b@WNLOOK eq <> and temp2 eq <>] [store <7. Looks/design of neighborhood> in temp2] [store <> in temp7] [else] [if RMOV4b@WNLOOK eq <> and temp3 eq <>] [store <7. Looks/design of neighborhood> in temp3] [store <> in temp7] [else] [if RMOV4b@WNLOOK eq <> and temp4 eq <>] [store <7. Looks/design of neighborhood> in temp4] [store <> in temp7] [else] [if RMOV4b@WNLOOK eq <> and temp5 eq <>] [store <7. Looks/design of neighborhood> in temp5] [store <> in temp7] [else] [if RMOV4b@WNLOOK eq <> and temp6 eq <>] [store <7. Looks/design of neighborhood> in temp6] [store <> in temp7] [endif][endif][endif][endif][endif][endif] [endif] [if RMOV4b@WNHOME eq ] [add <1> to nflag] [store <8. House was an important consideration> in temp8] [if RMOV4b@WNHOME eq and temp1 eq <>] [store <8. House was an important consideration> in temp1] [store <> in temp8] [else] [if RMOV4b@WNHOME eq and temp2 eq <>] [store <8. House was an important consideration> in temp2] [store <> in temp8] [else] [if RMOV4b@WNHOME eq and temp3 eq <>] [store <8. House was an important consideration> in temp3] [store <> in temp8] [else] [if RMOV4b@WNHOME eq and temp4 eq <>] [store <8. House was an important consideration> in temp4] [store <> in temp8] [else] [if RMOV4b@WNHOME eq and temp5 eq <>] [store <8. House was an important consideration> in temp5] [store <> in temp8] [else] [if RMOV4b@WNHOME eq and temp6 eq <>] [store <8. House was an important consideration> in temp6] [store <> in temp8] [else] [if RMOV4b@WNHOME eq and temp7 eq <>] [store <8. House was an important consideration> in temp7] [store <> in temp8] [endif][endif][endif][endif][endif][endif][endif] [endif] [if RMOV4b@WNOTHR eq ] [add <1> to nflag] [store <9. Other> in temp9] [if RMOV4b@WNOTHR eq and temp1 eq <>] [store <9. Other> in temp1] [store <> in temp9] [else] [if RMOV4b@WNOTHR eq and temp2 eq <>] [store <9. Other> in temp2] [store <> in temp9] [else] [if RMOV4b@WNOTHR eq and temp3 eq <>] [store <9. Other> in temp3] [store <> in temp9] [else] [if RMOV4b@WNOTHR eq and temp4 eq <>] [store <9. Other> in temp4] [store <> in temp9] [else] [if RMOV4b@WNOTHR eq and temp5 eq <>] [store <9. Other> in temp5] [store <> in temp9] [else] [if RMOV4b@WNOTHR eq and temp6 eq <>] [store <9. Other> in temp6] [store <> in temp9] [else] [if RMOV4b@WNOTHR eq and temp7 eq <>] [store <9. Other> in temp7] [store <> in temp9] [else] [if RMOV4b@WNOTHR eq and temp8 eq <>] [store <9. Other> in temp8] [store <> in temp9] [endif][endif][endif][endif][endif][endif][endif][endif] [endif] ---------------------------------------------------------------------- >RMOVck4cc< [if nflag eq <1> or nflag eq <>] [goto RMOV5a] [else] [goto RMOV4c_WHYTON] [endif] ---------------------------------------------------------------------- >RMOV4c_WHYTON< [store <0> in XBAD] [loop for XCOUNT from <1> to <30>] [store XCOUNT in XBAD(XCOUNT)] [loop end XCOUNT] [store <> in temp1] [store <> in temp2] [store <> in temp3] [store <> in temp4] [store <> in temp5] [store <> in temp6] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [if RMOV4b@WNJOB eq ] [store <> in XBAD(<1>)] [store <1. Convenient to job> in temp1] [endif] [if RMOV4b@WNPEPL eq ] [store <> in XBAD(<2>)] [store <2. Convenient to friends or relatives> in temp2] [if RMOV4b@WNPEPL eq and temp1 eq <>] [store <2. Convenient to friends or relatives> in temp1] [store <> in temp2] [endif] [endif] [if RMOV4b@WNFUN eq ] [store <> in XBAD(<3>)] [store <3. Convenient to leisure activities> in temp3] [if RMOV4b@WNFUN eq and temp1 eq <>] [store <3. Convenient to leisure activities> in temp1] [store <> in temp3] [else] [if RMOV4b@WNFUN eq and temp2 eq <>] [store <3. Convenient to leisure activities> in temp2] [store <> in temp3] [endif][endif] [endif] [if RMOV4b@WNTRAN eq ] [store <> in XBAD(<4>)] [store <4. Convenient to public transportation> in temp4] [if RMOV4b@WNTRAN eq and temp1 eq <>] [store <4. Convenient to public transportation> in temp1] [store <> in temp4] [else] [if RMOV4b@WNTRAN eq and temp2 eq <>] [store <4. Convenient to public transportation> in temp2] [store <> in temp4] [else] [if RMOV4b@WNTRAN eq and temp3 eq <>] [store <4. Convenient to public transportation> in temp3] [store <> in temp4] [endif][endif][endif] [endif] [if RMOV4b@WNSCH eq ] [store <> in XBAD(<5>)] [store <5. Good schools> in temp5] [if RMOV4b@WNSCH eq and temp1 eq <>] [store <5. Good schools> in temp1] [store <> in temp5] [else] [if RMOV4b@WNSCH eq and temp2 eq <>] [store <5. Good schools> in temp2] [store <> in temp5] [else] [if RMOV4b@WNSCH eq and temp3 eq <>] [store <5. Good schools> in temp3] [store <> in temp5] [else] [if RMOV4b@WNSCH eq and temp4 eq <>] [store <5. Good schools> in temp4] [store <> in temp5] [endif][endif][endif][endif] [endif] [if RMOV4b@WNSRV eq ] [store <> in XBAD(<6>)] [store <6. Other public services> in temp6] [if RMOV4b@WNSRV eq and temp1 eq <>] [store <6. Other public services> in temp1] [store <> in temp6] [else] [if RMOV4b@WNSRV eq and temp2 eq <>] [store <6. Other public services> in temp2] [store <> in temp6] [else] [if RMOV4b@WNSRV eq and temp3 eq <>] [store <6. Other public services> in temp3] [store <> in temp6] [else] [if RMOV4b@WNSRV eq and temp4 eq <>] [store <6. Other public services> in temp4] [store <> in temp6] [else] [if RMOV4b@WNSRV eq and temp5 eq <>] [store <6. Other public services> in temp5] [store <> in temp6] [endif][endif][endif][endif][endif] [endif] [if RMOV4b@WNLOOK eq ] [store <> in XBAD(<7>)] [store <7. Looks/design of neighborhood> in temp7] [if RMOV4b@WNLOOK eq <> and temp1 eq <>] [store <7. Looks/design of neighborhood> in temp1] [store <> in temp7] [else] [if RMOV4b@WNLOOK eq <> and temp2 eq <>] [store <7. Looks/design of neighborhood> in temp2] [store <> in temp7] [else] [if RMOV4b@WNLOOK eq <> and temp3 eq <>] [store <7. Looks/design of neighborhood> in temp3] [store <> in temp7] [else] [if RMOV4b@WNLOOK eq <> and temp4 eq <>] [store <7. Looks/design of neighborhood> in temp4] [store <> in temp7] [else] [if RMOV4b@WNLOOK eq <> and temp5 eq <>] [store <7. Looks/design of neighborhood> in temp5] [store <> in temp7] [else] [if RMOV4b@WNLOOK eq <> and temp6 eq <>] [store <7. Looks/design of neighborhood> in temp6] [store <> in temp7] [endif][endif][endif][endif][endif][endif] [endif] [if RMOV4b@WNHOME eq ] [store <> in XBAD(<8>)] [store <8. House was an important consideration> in temp8] [if RMOV4b@WNHOME eq and temp1 eq <>] [store <8. House was an important consideration> in temp1] [store <> in temp8] [else] [if RMOV4b@WNHOME eq and temp2 eq <>] [store <8. House was an important consideration> in temp2] [store <> in temp8] [else] [if RMOV4b@WNHOME eq and temp3 eq <>] [store <8. House was an important consideration> in temp3] [store <> in temp8] [else] [if RMOV4b@WNHOME eq and temp4 eq <>] [store <8. House was an important consideration> in temp4] [store <> in temp8] [else] [if RMOV4b@WNHOME eq and temp5 eq <>] [store <8. House was an important consideration> in temp5] [store <> in temp8] [else] [if RMOV4b@WNHOME eq and temp6 eq <>] [store <8. House was an important consideration> in temp6] [store <> in temp8] [else] [if RMOV4b@WNHOME eq and temp7 eq <>] [store <8. House was an important consideration> in temp7] [store <> in temp8] [endif][endif][endif][endif][endif][endif][endif] [endif] [if RMOV4b@WNOTHR eq ] [store <> in XBAD(<9>)] [store <9. Other> in temp9] [if RMOV4b@WNOTHR eq and temp1 eq <>] [store <9. Other> in temp1] [store <> in temp9] [else] [if RMOV4b@WNOTHR eq and temp2 eq <>] [store <9. Other> in temp2] [store <> in temp9] [else] [if RMOV4b@WNOTHR eq and temp3 eq <>] [store <9. Other> in temp3] [store <> in temp9] [else] [if RMOV4b@WNOTHR eq and temp4 eq <>] [store <9. Other> in temp4] [store <> in temp9] [else] [if RMOV4b@WNOTHR eq and temp5 eq <>] [store <9. Other> in temp5] [store <> in temp9] [else] [if RMOV4b@WNOTHR eq and temp6 eq <>] [store <9. Other> in temp6] [store <> in temp9] [else] [if RMOV4b@WNOTHR eq and temp7 eq <>] [store <9. Other> in temp7] [store <> in temp9] [else] [if RMOV4b@WNOTHR eq and temp8 eq <>] [store <9. Other> in temp8] [store <> in temp9] [endif][endif][endif][endif][endif][endif][endif][endif] [endif] **MAIN REASON YOU CHOSE NEIGHBORHOOD** [r](H)[n] [fill temp1] [fill temp2] [fill temp3] [fill temp4] [fill temp5] [fill temp6] [fill temp7] [fill temp8] [fill temp9] What is the MAIN reason you chose this neighborhood? (Enter precode 1-9 or enter zero - All reasons of equal importance) @ [@]<0-9>[reject eq XBAD][goto RMOV5a] [missing][goto RMOV5a] [missing][etc ] ---------------------------------------------------------------------- >RMOV5a< [open RMOV5a] Now considering your home, what attracted you to THIS [fill HTYPEFILL]? [bold](WRITE EXACT WORDS AND MARK (X) ALL THAT APPLY)[n] @HOMEA @HOMEB @HOMEC @WHFIN 1. Financial reasons @WHDSN 2. Room layout/design @WHKIT 3. Kitchen @WHSIZ 4. Size @WHEXT 5. Exterior appearance @WHYRD 6. Yard/trees/view @WHQUL 7. Quality of construction @WHAVL 8. Only one available @WHOTH 9. Other-SPECIFY [@HOMEA] [allow 40] [optional] [@HOMEB] [allow 40] [optional] [@HOMEC] [allow 40] [optional] [@WHFIN][optional] [missing] [goto RMOV6_XNRATE] [@WHDSN][optional] [@WHKIT][optional] [@WHSIZ][optional] [@WHEXT][optional] [@WHYRD][optional] [@WHQUL][optional] [@WHAVL][optional] [@WHOTH][optional][SPECIFY] [goto RMOVck5a] [# [if RMOV5a@WHFIN ne and RMOV5a@WHDSN ne and RMOV5a@WHKIT ne and RMOV5a@WHSIZ ne and RMOV5a@WHEXT ne and RMOV5a@WHYRD ne and RMOV5a@WHQUL ne and RMOV5a@WHAVL ne and RMOV5a@WHOTH ne ] [goto RMOV5a_ERR] [endif] [goto RMOVck5a] _____________________________________________________________________ >win4_5a< [window 4 popup] [window 4 border] [window 4 start row 12 column 9] [window 4 size 5 rows 62 columns] [window 4 background blue] >RMOV5a_ERR< [use window <4>] [BOLD]"YOU MUST MARK AT LEAST ONE CATEGORY"[N] @ [@] [nodata] >win5a_d< [window 4 destroy] [goto RMOV5a@HOMEA] _____________________________________________________________________ >RMOVck5a< [store <> in temp1] [store <> in temp2] [store <> in temp3] [store <> in temp4] [store <> in temp5] [store <> in temp6] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [store <0> in aflag] [if RMOV5a@WHFIN eq ] [store <1. Financial reasons> in temp1] [add <1> to aflag] [endif] [if RMOV5a@WHDSN eq ] [add <1> to aflag] [store <2. Room layout/design> in temp2] [if RMOV5a@WHDSN eq and temp1 eq <>] [store <2. Room layout/design> in temp1] [store <> in temp2] [endif] [endif] [if RMOV5a@WHKIT eq ] [add <1> to aflag] [store <3. Kitchen> in temp3] [if RMOV5a@WHKIT eq and temp1 eq <>] [store <3. Kitchen> in temp1] [store <> in temp3] [else] [if RMOV5a@WHKIT eq and temp2 eq <>] [store <3. Kitchen> in temp2] [store <> in temp3] [endif][endif] [endif] [if RMOV5a@WHSIZ eq ] [store <4. Size> in temp4] [add <1> to aflag] [if RMOV5a@WHSIZ eq and temp1 eq <>] [store <4. Size> in temp1] [store <> in temp4] [else] [if RMOV5a@WHSIZ eq and temp2 eq <>] [store <4. Size> in temp2] [store <> in temp4] [else] [if RMOV5a@WHSIZ eq and temp3 eq <>] [store <4. Size> in temp3] [store <> in temp4] [endif][endif][endif] [endif] [if RMOV5a@WHEXT eq ] [store <5. Exterior appearance> in temp5] [add <1> to aflag] [if RMOV5a@WHEXT eq and temp1 eq <>] [store <5. Exterior appearance> in temp1] [store <> in temp5] [else] [if RMOV5a@WHEXT eq and temp2 eq <>] [store <5. Exterior appearance> in temp2] [store <> in temp5] [else] [if RMOV5a@WHEXT eq and temp3 eq <>] [store <5. Exterior appearance> in temp3] [store <> in temp5] [else] [if RMOV5a@WHEXT eq and temp4 eq <>] [store <5. Exterior appearance> in temp4] [store <> in temp5] [endif][endif][endif][endif] [endif] [if RMOV5a@WHYRD eq ] [add <1> to aflag] [store <6. Yard/trees/view> in temp6] [if RMOV5a@WHYRD eq and temp1 eq <>] [store <6. Yard/trees/view> in temp1] [store <> in temp6] [else] [if RMOV5a@WHYRD eq and temp2 eq <>] [store <6. Yard/trees/view> in temp2] [store <> in temp6] [else] [if RMOV5a@WHYRD eq and temp3 eq <>] [store <6. Yard/trees/view> in temp3] [store <> in temp6] [else] [if RMOV5a@WHYRD eq and temp4 eq <>] [store <6. Yard/trees/view> in temp4] [store <> in temp6] [else] [if RMOV5a@WHYRD eq and temp5 eq <>] [store <6. Yard/trees/view> in temp5] [store <> in temp6] [endif][endif][endif][endif][endif] [endif] [if RMOV5a@WHQUL eq ] [add <1> to aflag] [store <7. Quality of construction> in temp7] [if RMOV5a@WHQUL eq <> and temp1 eq <>] [store <7. Quality of construction> in temp1] [store <> in temp7] [else] [if RMOV5a@WHQUL eq <> and temp2 eq <>] [store <7. Quality of construction> in temp2] [store <> in temp7] [else] [if RMOV5a@WHQUL eq <> and temp3 eq <>] [store <7. Quality of construction> in temp3] [store <> in temp7] [else] [if RMOV5a@WHQUL eq <> and temp4 eq <>] [store <7. Quality of construction> in temp4] [store <> in temp7] [else] [if RMOV5a@WHQUL eq <> and temp5 eq <>] [store <7. Quality of construction> in temp5] [store <> in temp7] [else] [if RMOV5a@WHQUL eq <> and temp6 eq <>] [store <7. Quality of construction> in temp6] [store <> in temp7] [endif][endif][endif][endif][endif][endif] [endif] [if RMOV5a@WHAVL eq ] [store <8. Only one available> in temp8] [add <1> to aflag] [if RMOV5a@WHAVL eq and temp1 eq <>] [store <8. Only one available> in temp1] [store <> in temp8] [else] [if RMOV5a@WHAVL eq and temp2 eq <>] [store <8. Only one available> in temp2] [store <> in temp8] [else] [if RMOV5a@WHAVL eq or temp3 eq <>] [store <8. Only and available> in temp3] [store <> in temp8] [else] [if RMOV5a@WHAVL eq and temp4 eq <>] [store <8. Only one available> in temp4] [store <> in temp8] [else] [if RMOV5a@WHAVL eq and temp5 eq <>] [store <8. Only one available> in temp5] [store <> in temp8] [else] [if RMOV5a@WHAVL eq and temp6 eq <>] [store <8. Only one available> in temp6] [store <> in temp8] [else] [if RMOV5a@WHAVL eq and temp7 eq <>] [store <8. Only one available> in temp7] [store <> in temp8] [endif][endif][endif][endif][endif][endif][endif] [endif] [if RMOV5a@WHOTH eq ] [add <1> to aflag] [store <9. Other> in temp9] [if RMOV5a@WHOTH eq and temp1 eq <>] [store <9. Other> in temp1] [store <> in temp9] [else] [if RMOV5a@WHOTH eq and temp2 eq <>] [store <9. Other> in temp2] [store <> in temp9] [else] [if RMOV5a@WHOTH eq and temp3 eq <>] [store <9. Other> in temp3] [store <> in temp9] [else] [if RMOV5a@WHOTH eq and temp4 eq <>] [store <9. Other> in temp4] [store <> in temp9] [else] [if RMOV5a@WHOTH eq and temp5 eq <>] [store <9. Other> in temp5] [store <> in temp9] [else] [if RMOV5a@WHOTH eq and temp6 eq <>] [store <9. Other> in temp6] [store <> in temp9] [else] [if RMOV5a@WHOTH eq and temp7 eq <>] [store <9. Other> in temp7] [store <> in temp9] [else] [if RMOV5a@WHOTH eq and temp8 eq <>] [store <9. Other> in temp8] [store <> in temp9] [endif][endif][endif][endif][endif][endif][endif][endif] [endif] ---------------------------------------------------------------------- >RMOVck5b< [if aflag eq <1>] [goto RMOV6_XNRATE] [else] [goto RMOV5b_WHYTOH] [endif] ---------------------------------------------------------------------- >RMOV5b_WHYTOH< [missing ] [store <0> in XBAD] [loop for XCOUNT from <1> to <30>] [store XCOUNT in XBAD(XCOUNT)] [loop end XCOUNT] [store <> in temp1] [store <> in temp2] [store <> in temp3] [store <> in temp4] [store <> in temp5] [store <> in temp6] [store <> in temp6] [store <> in temp7] [store <> in temp8] [store <> in temp9] [if RMOV5a@WHFIN eq ] [store <> in XBAD(<1>)] [store <1. Financial reasons> in temp1] [endif] [if RMOV5a@WHDSN eq ] [store <> in XBAD(<2>)] [store <2. Room layout/design> in temp2] [endif] [if RMOV5a@WHDSN eq and temp1 eq <>] [store <2. Room layout/design> in temp1] [store <> in temp2] [endif] [if RMOV5a@WHKIT eq ] [store <> in XBAD(<3>)] [store <3. Kitchen> in temp3] [if RMOV5a@WHKIT eq and temp1 eq <>] [store <3. Kitchen> in temp1] [store <> in temp3] [else] [if RMOV5a@WHKIT eq and temp2 eq <>] [store <3. Kitchen> in temp2] [store <> in temp3] [endif][endif] [endif] [if RMOV5a@WHSIZ eq ] [store <> in XBAD(<4>)] [store <4. Size> in temp4] [if RMOV5a@WHSIZ eq and temp1 eq <>] [store <4. Size> in temp1] [store <> in temp4] [else] [if RMOV5a@WHSIZ eq and temp2 eq <>] [store <4. Size> in temp2] [store <> in temp4] [else] [if RMOV5a@WHSIZ eq and temp3 eq <>] [store <4. Size> in temp3] [store <> in temp4] [endif][endif][endif] [endif] [if RMOV5a@WHEXT eq ] [store <> in XBAD(<5>)] [store <5. Exterior appearance> in temp5] [if RMOV5a@WHEXT eq and temp1 eq <>] [store <5. Exterior appearance> in temp1] [store <> in temp5] [else] [if RMOV5a@WHEXT eq and temp2 eq <>] [store <5. Exterior appearance> in temp2] [store <> in temp5] [else] [if RMOV5a@WHEXT eq and temp3 eq <>] [store <5. Exterior appearance> in temp3] [store <> in temp5] [else] [if RMOV5a@WHEXT eq and temp4 eq <>] [store <5. Exterior appearance> in temp4] [store <> in temp5] [endif][endif][endif][endif] [endif] [if RMOV5a@WHYRD eq ] [store <> in XBAD(<6>)] [store <6. Yard/trees/view> in temp6] [if RMOV5a@WHYRD eq and temp1 eq <>] [store <6. Yard/trees/view> in temp1] [store <> in temp6] [else] [if RMOV5a@WHYRD eq and temp2 eq <>] [store <6. Yard/trees/view> in temp2] [store <> in temp6] [else] [if RMOV5a@WHYRD eq and temp3 eq <>] [store <6. Yard/trees/view> in temp3] [store <> in temp6] [else] [if RMOV5a@WHYRD eq and temp4 eq <>] [store <6. Yard/trees/view> in temp4] [store <> in temp6] [else] [if RMOV5a@WHYRD eq and temp5 eq <>] [store <6. Yard/trees/view> in temp5] [store <> in temp6] [endif][endif][endif][endif][endif] [endif] [if RMOV5a@WHQUL eq ] [store <> in XBAD(<7>)] [store <7. Quality of construction> in temp7] [if RMOV5a@WHQUL eq and temp1 eq <>] [store <7. Quality of construction> in temp1] [store <> in temp7] [else] [if RMOV5a@WHQUL eq and temp2 eq <>] [store <7. Quality of construction> in temp2] [store <> in temp7] [else] [if RMOV5a@WHQUL eq and temp3 eq <>] [store <7. Quality of construction> in temp3] [store <> in temp7] [else] [if RMOV5a@WHQUL eq and temp4 eq <>] [store <7. Quality of construction> in temp4] [store <> in temp7] [else] [if RMOV5a@WHQUL eq and temp5 eq <>] [store <7. Quality of construction> in temp5] [store <> in temp7] [else] [if RMOV5a@WHQUL eq and temp6 eq <>] [store <7. Quality of construction> in temp6] [store <> in temp7] [endif][endif][endif][endif][endif][endif] [endif] [if RMOV5a@WHAVL eq ] [store <> in XBAD(<8>)] [store <8. Only one available> in temp8] [if RMOV5a@WHAVL eq and temp1 eq <>] [store <8. Only one available> in temp1] [store <> in temp8] [else] [if RMOV5a@WHAVL eq and temp2 eq <>] [store <8. Only one available> in temp2] [store <> in temp8] [else] [if RMOV5a@WHAVL eq and temp3 eq <>] [store <8. Only one available> in temp3] [store <> in temp8] [else] [if RMOV5a@WHAVL eq and temp4 eq <>] [store <8. Only one available> in temp4] [store <> in temp8] [else] [if RMOV5a@WHAVL eq and temp5 eq <>] [store <8. Only one available> in temp5] [store <> in temp8] [else] [if RMOV5a@WHAVL eq and temp6 eq <>] [store <8. Only one available> in temp6] [store <> in temp8] [else] [if RMOV5a@WHAVL eq and temp7 eq <>] [store <8. Only one available> in temp7] [store <> in temp8] [endif][endif][endif][endif][endif][endif][endif] [endif] [if RMOV5a@WHOTH eq ] [store <> in XBAD(<9>)] [store <9. Other> in temp9] [if RMOV5a@WHOTH eq and temp1 eq <>] [store <9. Other> in temp1] [store <> in temp9] [else] [if RMOV5a@WHOTH eq and temp2 eq <>] [store <9. Other> in temp2] [store <> in temp9] [else] [if RMOV5a@WHOTH eq and temp3 eq <>] [store <9. Other> in temp3] [store <> in temp9] [else] [if RMOV5a@WHOTH eq and temp4 eq <>] [store <9. Other> in temp4] [store <> in temp9] [else] [if RMOV5a@WHOTH eq and temp5 eq <>] [store <9. Other> in temp5] [store <> in temp9] [else] [if RMOV5a@WHOTH eq and temp6 eq <>] [store <9. Other> in temp6] [store <> in temp9] [else] [if RMOV5a@WHOTH eq and temp7 eq <>] [store <9. Other> in temp7] [store <> in temp9] [else] [if RMOV5a@WHOTH eq and temp8 eq <>] [store <9. Other> in temp8] [store <> in temp9] [endif][endif][endif][endif][endif][endif][endif][endif] [endif] [r](H)[n] What was the MAIN reason you chose this [fill HTYPEFILL]? [fill temp1] [fill temp2] [fill temp3] [fill temp4] [fill temp5] [fill temp6] [fill temp7] [fill temp8] [fill temp9] (Enter precode 1-9 or enter zero - All reasons of equal importance) @ [@] <0-9,D,R> [reject eq XBAD] [goto RMOV6_XNRATE] [missing] [etc ] ---------------------------------------------------------------------- >RMOV6_XNRATE< [missing ] [r](H)[n] Is this neighborhood better, worse, or about the same as your last neighborhood? (1) Better (2) Worse (3) About the same (4) Same neighborhood @ [@]<1-4,D,R> [goto RMOV7_XHRATE] [missing][etc ] _____________________________________________________________________ >RMOV7_XHRATE< [missing ] [r](H)[n] Is this [fill HTYPEFILL] better, worse, or about the same as your last home? (1) Better (2) Worse (3) About the same @ [@] <1-3,D,R> [missing] [etc ] [default goto RMOVck8] _____________________________________________________________________ >RMOVck8< >MRM< [allow 8] [# earliest possible move date >MRM2< [allow 8] [# (any date before begining of >MRM3< [allow 8] [# production survey..this is [# simply a begining date to check & 1st [# recent mover will overwrite value [# need different variable for each group) >MRM6MO< [allow 8] [# move date within 6 mos of MRM-Group 1 >MRM26MO< [allow 8] [# move date within 6 mos of MRM-Group 2 >MRM36MO< [allow 8] [# move date within 6 mos of MRM-Group 3 >MV_RP< [allow 1] [store <0> in MV_RP] [# tells you how many loops to create >MVCNT1< [allow int 2] [store <0> in MVCNT1] [# ttl no people in mover group 1 >MVCNT2< [allow int 2] [store <0> in MVCNT2] [# ttl no people in mover group 2 >MVCNT3< [allow int 2] [store <0> in MVCNT3][# ttl no people in mover group 3 >MVLN1< [allow int 2] [store <0> in MVLN1][# line no in mover group 1 (if only 1 person, his L_NO) >MVLN2< [allow int 2] [store <0> in MVLN2][# line no in mover group 2 >MVLN3< [allow int 2] [store <0> in MVLN3][# line no in mover group 3 >TOTRMOV< [allow int 2] [store <0> in TOTRMOV][# total no of recent movers in household [roster begin PERSONS] >FAM_GRP< [allow 1] [if SKIPFLAG(L_NO) ne <1> and OLDPER ne <1> and WHENMOVE@YR ne and ((INTYR - <2>) lt MOVYR or ((INTYR - <2>) eq MOVYR and INTMON le movm))] [add <1> to TOTRMOV] [endif] [roster end PERSONS] [if TOTRMOV ge <2> goto RMOV8_ALMV] [roster begin PERSONS] [store <> in FAM_GRP] [store <0> in MV_RP] [store <0> in MVCNT1] [if SKIPFLAG(L_NO) ne <1> and OLDPER ne <1> and WHENMOVE@YR ne and ((INTYR - <2>) lt MOVYR or ((INTYR - <2>) eq MOVYR and INTMON le movm))] [store <1> in FAM_GRP] [store <1> in FAMGRP(L_NO)] [store <1> in MV_RP] [store <1> in MVCNT1] [store L_NO in MVLN1] [endif] [roster end PERSONS] [goto CREATE_RMOV] -------------------------------------------------------------------------------------------------- >RMOV8_ALMV< [window 3 size 21 rows 80 columns][display RM_HHROSA] [store <> in temp] [store <> in temp1] [store <> in temp3] [store INTMON in INDEX] [store MONTHTAB(INDEX) in temp] [if SDESIG eq <1> and INCSAM eq <0>] [make temp3 from temp < > I_INTYR] [else] [store YEAR in T_INTYR] [subtract <2> from T_INTYR] [make temp3 from temp < > T_INTYR] [endif] [if rflag eq <1>] [if eflag eq <0>] [store in temp1] [else] [store in temp1] [endif] [else] [if eflag eq <1>] [store in temp1] [else] [store in temp1] [endif] [endif] Earlier you told me (READ NAMES ABOVE) moved into this [r](H)[n] [fill HTYPEFILL] after [fill temp3]. Did [fill temp1] move here from the same previous residence? (1) Yes (2) No @ [@] <1> [goto BEG_RMOV8] <2> [goto RMOV9a1] [missing][goto RMOV9a1] [missing][etc ] ---------------------------------------------------------------------- >BEG_RMOV8< [store <01151995> in MRM] [roster begin PERSONS] [store <> in FAM_GRP] [store <> in FAMGRP(L_NO)] [store <0> in MV_RP] [store <0> in MVCNT1] [store <0> in MVCNT2] [store <0> in MVCNT3] [if SKIPFLAG(L_NO) ne <1> and WHENMOVE@YR ne and OLDPER ne <1>] [if ((RMOV8_ALMV eq <1> and RMOV8_ALMV onpath) and ((INTYR - <2>) lt MOVYR or ((INTYR - <2>) eq MOVYR and INTMON le movm)))] [make MOVDATE from movm:0 <15> MOVYR] [subdate MOVDATE from MRM into temp] [if {int}temp lt <0>] [store MOVDATE in MRM] [store MOVDATE in MRM6MO] [if movm ge <7>] [subtract <6000000> from MRM6MO] [else] [add <5999999> to MRM6MO] [endif] [endif][endif][endif] [roster end PERSONS] [#MRM now eq the most recent mover [#MRM6MO eq six months before --------------------------------------------------------------------- >BEG_RMOV8_1< [roster begin PERSONS] [if SKIPFLAG(L_NO) ne <1> and WHENMOVE@YR ne and OLDPER ne <1>] [if ((RMOV8_ALMV eq <1> and RMOV8_ALMV onpath) and ((INTYR - <2>) lt MOVYR or ((INTYR - <2>) eq MOVYR and INTMON le movm)))] [make MOVDATE from movm:0 <15> MOVYR] [subdate MOVDATE:0 from MRM:0 into temp] [if {int}temp le <183>] [# within 1st 6 month period [store <1> in FAM_GRP] [# assigned to group 1- ALL from same prev hh [store <1> in FAMGRP(L_NO)] [store <1> in MV_RP] [# creates mover loop 1 [add <1> to MVCNT1] [# adds people count to mover group 1 [store L_NO in MVLN1] [# puts lno in mover group 1- ALL from sam prev hh [endif][endif] [endif] [roster end PERSONS] --------------------------------------------------------------------- >BEG_RMOV8_2< [store <01151995> in MRM] [# date to check against for recent move date [roster begin PERSONS] [if SKIPFLAG(L_NO) ne <1> and WHENMOVE@YR ne and OLDPER ne <1>] [if ((RMOV8_ALMV eq <1> and RMOV8_ALMV onpath) and ((INTYR - <2>) lt MOVYR or ((INTYR - <2>) eq MOVYR and INTMON le movm)))] [if FAM_GRP ge <1> goto END_RMOV8_2] [# more than 1 mover group identified [make MOVDATE from movm:0 <15> MOVYR] [subdate MOVDATE:0 from MRM:0 into temp] [if {int}temp lt <0>] [store MOVDATE:0 in MRM:0] [store MOVDATE:0 in MRM6MO:0] [if movm ge <7>] [subtract <6000000> from MRM6MO:0] [else] [add <5999999> to MRM6MO:0] [endif][endif][endif][endif] >END_RMOV8_2< [roster end PERSONS] [#MOVDATE now eq the most recent mover --------------------------------------------------------------------- >BEG_RMOV8_3< [roster begin PERSONS] [if SKIPFLAG(L_NO) ne <1> and WHENMOVE@YR ne and OLDPER ne <1>] [if ((RMOV8_ALMV eq <1> and RMOV8_ALMV onpath) and ((INTYR - <2>) lt MOVYR or ((INTYR - <2>) eq MOVYR and INTMON le movm)))] [if FAM_GRP ge <1> goto END_RMOV8_3] [# more than 1 mover group identified [make MOVDATE from movm:0 <15> MOVYR] [subdate MOVDATE:0 from MRM:0 into temp] [if {int}temp le <183>] [# within 1st 6 month period [store <2> in FAM_GRP] [# assigned to group 2- ALL from same prev HH [store <2> in FAMGRP(L_NO)] [store <2> in MV_RP] [# creates mover loop 2 [add <1> to MVCNT2] [# adds people count to mover group 2 [store L_NO in MVLN2] [# puts lno in mover group 2- ALL from same prev hh [endif][endif][endif] >END_RMOV8_3< [roster end PERSONS] ----------------------------------------------------------------------- >BEG_RMOV8_3c< [store <01151995> in MRM] [roster begin PERSONS] [if SKIPFLAG(L_NO) ne <1> and WHENMOVE@YR ne and OLDPER ne <1>] [if ((RMOV8_ALMV eq <1> and RMOV8_ALMV onpath) and ((INTYR - <2>) lt MOVYR or ((INTYR - <2>) eq MOVYR and INTMON le movm)))] [if FAM_GRP ge <1> goto END_RMOV8_3c] [make MOVDATE from movm:0 <15> MOVYR] [subdate MOVDATE:0 from MRM:0 into temp] [if {int}temp lt <0>] [store MOVDATE:0 in MRM:0] [store MOVDATE:0 in MRM6MO:0] [if movm ge <7>] [subtract <6000000> from MRM6MO:0] [else] [add <5999999> to MRM6MO:0] [endif][endif][endif][endif] >END_RMOV8_3c< [roster end PERSONS] [#MOVDATE now eq the most recent mover --------------------------------------------------------------------- >BEG_RMOV8_4< [roster begin PERSONS] [if SKIPFLAG(L_NO) ne <1> and WHENMOVE@YR ne and OLDPER ne <1>] [if ((RMOV8_ALMV eq <1> and RMOV8_ALMV onpath) and ((INTYR - <2>) lt MOVYR or ((INTYR - <2>) eq MOVYR and INTMON le movm)))] [if FAM_GRP ge <1> goto END_RMOV8_4] [# more than 1 mover group identified [make MOVDATE from movm:0 <15> MOVYR] [subdate MOVDATE:0 from MRM:0 into temp] [if {int}temp le <183>] [# within 1st 6 month period [store <3> in FAM_GRP] [# assigned to group 3-ALL from same prev hh [store <3> in FAMGRP(L_NO)] [store <3> in MV_RP] [# creates mover loop 3 [add <1> to MVCNT3] [# adds people count to mover group 3 [store L_NO in MVLN3] [# puts lno in mover group 3-ALL from same prev hh [endif][endif][endif] >END_RMOV8_4< [roster end PERSONS] [goto CREATE_RMOV] ______________________________________________________________________ >RMOV9a1< [window 3 size 21 rows 80 columns] [display RM_HHROSA] [store <> in temp][store <> in temp1] [store <> in FAMGRP] [loop for XCOUNT from <1> to <30>] [store <0> in FAMGRP(XCOUNT)] [loop end XCOUNT] Which people moved here from the first previous residence? Start with the previous residence from which the most people moved. [bold]FR NOTE: 1) ENTER THE LINE NUMBER OF ALL PEOPLE WHO MOVED FROM THE FIRST PREVIOUS RESIDENCE. 2) MAKE SURE THAT ALL PERSONS MENTIONED, AND NO ONE ELSE MOVED FROM THIS RESIDENCE. CORRECT IF NECESSARY. 3) WHEN COMPLETED----ENTER (N) FOR "NO MORE" TO PROCEED.[normal] @1 @2 @3 @4 @5 @6 [@1] <1-30> [reject gt HIGH_LNO label ] [reject eq XBAD] [@2] <1-30> [reject gt HIGH_LNO label ] [reject eq XBAD] [reject eq @1] [missing] [goto BEG_RMOV1a11] [missing][etc ] [@3] <1-30> [reject gt HIGH_LNO label ] [reject eq XBAD] [reject eq @1 OR @2] [missing] [goto BEG_RMOV1a11] [missing][etc ] [@4] <1-30> [reject gt HIGH_LNO label ] [reject eq XBAD] [reject eq @1 OR @2 OR @3] [missing] [goto BEG_RMOV1a11] [missing][etc ] [@5] <1-30> [reject gt HIGH_LNO label ] [reject eq XBAD] [reject eq @1 OR @2 OR @3 OR @4] [missing] [goto BEG_RMOV1a11] [missing][etc ] [@6] <1-30> [reject gt HIGH_LNO label ] [reject eq XBAD] [reject eq @1 OR @2 OR @3 OR @4 or @5] [missing] [goto BEG_RMOV1a11] [missing][etc ] ----------------------------------------------------------------------------------------------- >BEG_RMOV1a11< [store <01151995> in MRM] [roster begin PERSONS] [store <> in FAM_GRP] [store <> in FAMGRP(L_NO)] [store <0> in MV_RP] [store <0> in MVCNT1] [store <0> in MVCNT2] [store <0> in MVCNT3] [# [if SKIPFLAG(L_NO) ne <1> and WHENMOVE@YR ne and OLDPER ne <1>] [if ((L_NO eq RMOV9a1@1 and RMOV9a1@1 onpath) or (L_NO eq RMOV9a1@2 and RMOV9a1@2 onpath) or (L_NO eq RMOV9a1@3 and RMOV9a1@3 onpath))] [if (INTYR - <2>) lt MOVYR or (INTYR - <2>) eq MOVYR and INTMON le movm] [make MOVDATE from movm:0 <15> MOVYR] [subdate MOVDATE from MRM into temp] [if {int}temp lt <0>] [store MOVDATE in MRM] [store MOVDATE in MRM6MO] [if movm ge <7>] [subtract <6000000> from MRM6MO] [else] [add <5999999> to MRM6MO] [endif][endif][endif][endif] [if ((L_NO eq RMOV9a1@4 and RMOV9a1@4 onpath) or (L_NO eq RMOV9a1@5 and RMOV9a1@5 onpath) or (L_NO eq RMOV9a1@6 and RMOV9a1@6 onpath))] [if (INTYR - <2>) lt MOVYR or (INTYR - <2>) eq MOVYR and INTMON le movm] [make MOVDATE from movm:0 <15> MOVYR] [subdate MOVDATE from MRM into temp] [if {int}temp lt <0>] [store MOVDATE in MRM] [store MOVDATE in MRM6MO] [if movm ge <7>] [subtract <6000000> from MRM6MO] [else] [add <5999999> to MRM6MO] [endif][endif][endif][endif] [endif] [roster end PERSONS] ------------------------------------------------------------------- >BEG_MGRP1a11< [roster begin PERSONS] [if SKIPFLAG(L_NO) ne <1> and WHENMOVE@YR ne and OLDPER ne <1>] [if ((L_NO eq RMOV9a1@1 and RMOV9a1@1 onpath) or (L_NO eq RMOV9a1@2 and RMOV9a1@2 onpath) or (L_NO eq RMOV9a1@3 and RMOV9a1@3 onpath))] [IF (INTYR - <2>) lt MOVYR or (INTYR - <2>) eq MOVYR and INTMON le movm] [make MOVDATE from movm:0 <15> MOVYR] [subdate MOVDATE:0 from MRM:0 into temp] [if {int}temp le <183>] [# within 1st 6 month period [store <1> in FAM_GRP] [# assigned to group 1 from 1st prev residence [store <1> in FAMGRP(L_NO)] [# assigned to household level array [store <1> in MV_RP] [# creates mover loop 1 [add <1> to MVCNT1] [# adds people count to mover group 1 [store L_NO in MVLN1] [# puts lno in mover group 1 from 1st prev residence [endif][endif][endif] [if ((L_NO eq RMOV9a1@4 and RMOV9a1@4 onpath) or (L_NO eq RMOV9a1@5 and RMOV9a1@5 onpath) or (L_NO eq RMOV9a1@6 and RMOV9a1@6 onpath))] [if (INTYR - <2>) lt MOVYR or INTYR eq MOVYR and INTMON le movm] [make MOVDATE from movm:0 <15> MOVYR] [subdate MOVDATE:0 from MRM:0 into temp] [if {int}temp le <183>] [# within 1st 6 month period [store <1> in FAM_GRP] [# assigned to group 1 from 1st prev residence [store <1> in FAMGRP(L_NO)] [# assigned to household level array [store <1> in MV_RP] [# creates mover loop 1 [add <1> to MVCNT1] [# adds people count to mover group 1 [store L_NO in MVLN1] [# puts lno in mover group 1 from 1st prev residence [endif][endif][endif] [endif] [roster end PERSONS] [#MRM now eq the most recent mover [#MRM6MO eq six months before --------------------------------------------------------------------- >BEG_RMOV1a12< [store <01151995> in MRM] [# date to check against for recent move date [roster begin PERSONS] [if SKIPFLAG(L_NO) ne <1> and WHENMOVE@YR ne and OLDPER ne <1>] [if ((L_NO eq RMOV9a1@1 and RMOV9a1@1 onpath) or (L_NO eq RMOV9a1@2 and RMOV9a1@2 onpath) or (L_NO eq RMOV9a1@3 and RMOV9a1@3 onpath))] [if (INTYR - <2>) lt MOVYR or (INTYR - <2>) eq MOVYR and INTMON le movm] [if FAM_GRP ge <1> goto END_RMOV1a12] [# more than 1 mover group identified [make MOVDATE from movm:0 <15> MOVYR] [subdate MOVDATE:0 from MRM:0 into temp] [if {int}temp lt <0>] [store MOVDATE:0 in MRM:0] [store MOVDATE:0 in MRM6MO:0] [if movm ge <7>] [subtract <6000000> from MRM6MO:0] [else] [add <5999999> to MRM6MO:0] [endif][endif][endif][endif] [if ((L_NO eq RMOV9a1@4 and RMOV9a1@4 onpath) or (L_NO eq RMOV9a1@5 and RMOV9a1@5 onpath) or (L_NO eq RMOV9a1@6 and RMOV9a1@6 onpath))] [if (INTYR - <2>) lt MOVYR or (INTYR - <2>) eq MOVYR and INTMON le movm] [if FAM_GRP ge <1> goto END_RMOV1a12] [# more than 1 mover group identified [make MOVDATE from movm:0 <15> MOVYR] [subdate MOVDATE:0 from MRM:0 into temp] [if {int}temp lt <0>] [store MOVDATE:0 in MRM:0] [store MOVDATE:0 in MRM6MO:0] [if movm ge <7>] [subtract <6000000> from MRM6MO:0] [else] [add <5999999> to MRM6MO:0] [endif][endif][endif][endif] [endif] >END_RMOV1a12< [roster end PERSONS] ---------------------------------------------------------------------- >BEG_MGRP1a12< [roster begin PERSONS] [if SKIPFLAG(L_NO) ne <1> and WHENMOVE@YR ne and OLDPER ne <1>] [if ((L_NO eq RMOV9a1@1 and RMOV9a1@1 onpath) or (L_NO eq RMOV9a1@2 and RMOV9a1@2 onpath) or (L_NO eq RMOV9a1@3 and RMOV9a1@3 onpath))] [if (INTYR - <2>) lt MOVYR or (INTYR - <2>) eq MOVYR and INTMON le movm] [if FAM_GRP ge <1> goto END_MGRP1a12] [make MOVDATE from movm:0 <15> MOVYR] [subdate MOVDATE:0 from MRM:0 into temp] [if {int}temp le <183>] [# within 1st 6 month period [store <2> in FAM_GRP] [# assigned to group 2 from 1st prev residence [store <2> in FAMGRP(L_NO)] [# assigned to household level array [store <2> in MV_RP] [# creates mover loop 2 [add <1> to MVCNT2] [# adds people count to mover group 2 [store L_NO in MVLN2] [# puts lno in mover group 2 from 1st prev residence [endif][endif][endif] [if ((L_NO eq RMOV9a1@4 and RMOV9a1@4 onpath) or (L_NO eq RMOV9a1@5 and RMOV9a1@5 onpath) or (L_NO eq RMOV9a1@6 and RMOV9a1@6 onpath))] [if (INTYR - <2>) lt MOVYR or (INTYR -<2>) eq MOVYR and INTMON le movm] [if FAM_GRP ge <1> goto END_MGRP1a12] [make MOVDATE from movm:0 <15> MOVYR] [subdate MOVDATE:0 from MRM:0 into temp] [if {int}temp le <183>] [# within 1st 6 month period [store <2> in FAM_GRP] [# assigned to group 2 from 1st prev residence [store <2> in FAMGRP(L_NO)] [# assigned to household level array [store <2> in MV_RP] [# creates mover loop 2 [add <1> to MVCNT2]