[#  16 April 1992

[#    family history module - part 1

[# all fh1 -changed ===> to @. bmk]
>tm7<   
	[##label = timestamp, start of family history module]
	[allow 4]
	[define <a> <-3>]
	[define <n> <-4>]
	[define <o> <-5>]
	[define <s> <-6>]
	[define <x> <-7>]
        [if entry mode]
                [#settime tm7]
        [endif]
        [copy tm7 in tm7]

[#  This is a counter to identify first cohab after nsfh1
>M124<  
	[allow 1]
	[store <0> in M124]
	[##label = COUNTER TO IDENTIFY FIRST COHAB AFTER PREVIOUS INTERVIEW]


>izzz<  [#if cid7 is <1> goto i1]
	[if a eq <1>]
	[if same eq <1> goto SE6m]
	[endif]
	[if a eq <1>]
	[if same isnt <1> goto M40a]
	[endif]

[# jasnote 12/27/00 make sure that values of a and same are correct for spouse cases

[# jas 12/18/00
	I think that there is an error in this code


>i1<   [if a eq <1> goto M39]        [# mstat at time 1 married
>i39<  [if a eq <2>]                 [# mstat at time 1 separated
	[if A1ma eq <3> goto M1a]    [# current status divorced
	[goto M1]
	[endif]
>i40a< [if c eq <1> goto M6]         [# cohab at time 1 yes]
>i40b< [if c ne <1> goto M50]        [# cohab at time 1 no]

[# RESPONDENT WAS SEPARATED AT TIME OF FIRST INTERVIEW GET DIVORCE DATE

>M1<
	[##dname = RI1]
	[##label = separated at prev intrvw divorced now]
	[define <d> <-1>] [define <r> <-2>] [missing <-1> <-2>]
	Next I want to ask you about any changes in your marital status since
	(last interview date).  At that time you were separated from your
	(husband/wife).  Since then have you gotten legally divorced?

	<1>     YES        [goto M2]
	<2>     NO         [#PRECODE CONVERSION ITEM M1 5 = 2]

	<d>     DON'T KNOW [goto i2]    <r>     REFUSED    [goto i2]

	@

>i40c<  [if A1ma ne <1> goto i2]

>M1b<
	[##dname = RI2]
	[##label = reunited after separation]
	Did you get back together with your (husband/wife)?

	<1>     YES
	<2>     NO         [goto i2][#PRECODE CONVERSION ITEM M1b 5 = 2]

	<d>     DON'T KNOW [goto i2]    <r>     REFUSED    [goto i2]

	@

[# M1c -removed "month" from d pre-code label. bmk]
[# M1c -added r pre-code. bmk]
>M1c<
	[##dname = RI3M]
	[##label = mo start living tog again]
	In what month and year did you and your (husband/wife)
	start living together again?

	<1> JANUARY     <4> APRIL       <7> JULY        <10> OCTOBER
	<2> FEBRUARY    <5> MAY         <8> AUGUST      <11> NOVEMBER
	<3> MARCH       <6> JUNE        <9> SEPTEMBER   <12> DECEMBER

	<d>     DON'T KNOW      <r>     REFUSED

	@

[# M1d -years need to be changed. bmk]
[# M1d -removed year from d pre-code. bmk]
[# M1d -added r pre-code. bmk]
[#FIXED DNAME, USED MULTIPLE TIMES]
>M1d<
        [##dname = RI3Y]
	[##label = yr start living tog again]
	(INTERVIEWER: ENTER YEAR - 1987-2004) [no erase]

	<d>  DON'T KNOW         <r>  REFUSED

	@
	[@]
		<1987-2004>     1987-2004

>i40d<   [if M1c isnt <-1> goto c70]

>M1e<
	[##dname = RI3F]
	[##label = time of yr start living tog again]
	Do you remember what part of the year it was?

	(ENTER RESPONSE FOLLOWED BY //)[allow 2]

	(INTERVIEWER: PROBE FOR SEASON, PORTION OF YEAR
	IF R SAYS "WINTER"  PROBE:  Do you think it was
	January or February or December?)

	<1>  JANUARY    <5>  MAY      <9>  SEPTEMBER		<-1>	DK
        <2>  FEBRUARY   <6>  JUNE     <10> OCTOBER 		<-2>	REF
        <3>  MARCH      <7>  JULY     <11> NOVEMBER
	<4>  APRIL      <8>  AUGUST   <12> DECEMBER		<99>	OTHER
	                        	
        <21> WINTER     <23> SUMMER   <31> FIRST HALF OF YEAR	
        <22> SPRING     <24> FALL     <32> SECOND HALF OF YEAR	
	@  [#specify] [goto M1f]

>c70<  [allow 10][if M1c eq <1>]
       [store <January> in c70]
       [endif]
       [if M1c eq <2>]
       [store <February> in c70]
       [endif]
	[if M1c eq <3>]
       [store <March> in c70]
       [endif]
       [if M1c eq <4>]
       [store <April> in c70]
       [endif]
       [if M1c eq <5>]
       [store <May> in c70]
       [endif]
       [if M1c eq <6>]
       [store <June> in c70]
       [endif]
       [if M1c eq <7>]
       [store <July> in c70]
       [endif]
       [if M1c eq <8>]
       [store <August> in c70]
       [endif]
       [if M1c eq <9>]
       [store <September> in c70]
       [endif]
       [if M1c eq <10>]
       [store <October> in c70]
       [endif]
       [if M1c eq <11>]
       [store <November> in c70]
       [endif]
       [if M1c eq <12>]
       [store <December> in c70]
       [endif]

>v10<	[allow 5][if M1c is <-1> goto M1f]
>v10z< [if M1d is <-1> goto M1f]
>v10b< [store (<12> * M1d + M1c) in v10]
>v10c< [if v1 le v10 goto v10e]

>v10d<
	[##dname = RI3E
	[##label = error checkpoint]
	ERROR:  DATE OF SEPARATION MUST BE AFTER DATE OF ORIGINAL INTERVIEW

	<1>     RETURN TO DATE OF SEPARATION TO CORRECT [goto M1c]

	OR ENTER

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@

>v10e<  [if v10 le v2 goto M1f]

>v10f<
	[##dname = RI3EE]
	[##label = error checkpoint ii]
	ERROR: DATE OF SEPARATION MUST BE BEFORE TODAY'S DATE

	<1>     RETURN TO DATE OF SEPARATION TO CORRECT [goto M1c]

	OR ENTER

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@

[# M1f -item needs d pre-code. bmk]
>M1f<
	[##dname = RI4]
	[##label = still married and living together]
	Are the two of you still married and living together?

	<1>     YES [goto SE6m]
	<2>     NO  [goto M40][#PRECODE CONVERSION ITEM M1f 5 = 2]

	<r>     REFUSED [goto i6]

	@

[# M1a -removed month from d pre-code. bmk]
[# M1a -added r pre-code. bmk]
[#FIXED DNAME, USED MULTIPLE TIMES]
>M1a<
        [##dname = RI5M]
	[##label = mo got divorced]
	Next I want to ask you about any changes in your marital status since
	(last interview date).  At that time you were separated from your
	(husband/wife).  In what month and year did the two of you get divorced?

	<1> JANUARY     <4> APRIL       <7> JULY        <10> OCTOBER
	<2> FEBRUARY    <5> MAY         <8> AUGUST      <11> NOVEMBER
	<3> MARCH       <6> JUNE        <9> SEPTEMBER   <12> DECEMBER

	<d>     DON'T KNOW      <r>     REFUSED

	@ [goto M3]

[# M2 -removed month from d pre-code. bmk]
[# M2 -added r pre-code. bmk]
[#FIXED DNAME, USED MULTIPLE TIMES]
>M2<
        [##dname = RI6M]
	[##label = mo got divorced]
	In what month and year did you get divorced?

	<1> JANUARY     <4> APRIL       <7> JULY        <10> OCTOBER
	<2> FEBRUARY    <5> MAY         <8> AUGUST      <11> NOVEMBER
	<3> MARCH       <6> JUNE        <9> SEPTEMBER   <12> DECEMBER

	<d>     DON'T KNOW      <r>     REFUSED

	@

>M2z<   [if M2 isnt <>]
	[store M2 in M1a]
	[endif]

[# M3 -removed year from d pre-code. bmk]
[# M3 -added r pre-code. bmk]
>M3<
	[##dname = RI6Y]
	[##label = yr got divorced]
	(INTERVIEWER: ENTER YEAR  - 1987-2004) [no erase]

	<d>  DON'T KNOW         <r>  REFUSED

	@
	[@]
		<1987-2004>     1987-2004

>i11<   [if M1a isnt <-1> goto c71]

>M4<
	[##dname = RI6F]
	[##label = time of yr got divorced]
	Do you remember what part of the year it was?
	(ENTER RESPONSE FOLLOWED BY //) [allow 2]

	(INTERVIEWER:  PROBE FOR SEASON, PORTION OF YEAR
	IF R SAYS "WINTER"  PROBE:  Do you think it was
	January or February or December?)
	<1>  JANUARY    <5>  MAY      <9>  SEPTEMBER		<-1>	DK
        <2>  FEBRUARY   <6>  JUNE     <10> OCTOBER 		<-2>	REF
        <3>  MARCH      <7>  JULY     <11> NOVEMBER
	<4>  APRIL      <8>  AUGUST   <12> DECEMBER		<99>	OTHER
	                        	
        <21> WINTER     <23> SUMMER   <31> FIRST HALF OF YEAR	
        <22> SPRING     <24> FALL     <32> SECOND HALF OF YEAR	
	@ [#specify] [goto i2]

>c71<  [allow 10][if M1a eq <1>]
       [store <January> in c71]
       [endif]
       [if M1a eq <2>]
       [store <February> in c71]
       [endif]
       [if M1a eq <3>]
       [store <March> in c71]
       [endif]
       [if M1a eq <4>]
       [store <April> in c71]
       [endif]
       [if M1a eq <5>]
       [store <May> in c71]
       [endif]
       [if M1a eq <6>]
       [store <June> in c71]
       [endif]
       [if M1a eq <7>]
       [store <July> in c71]
       [endif]
       [if M1a eq <8>]
       [store <August> in c71]
       [endif]
       [if M1a eq <9>]
       [store <September> in c71]
       [endif]
       [if M1a eq <10>]
       [store <October> in c71]
       [endif]
       [if M1a eq <11>]
       [store <November> in c71]
       [endif]
       [if M1a eq <12>]
       [store <December> in c71]
       [endif]

>la07<  [if M1a isnt <>]
	[if M1a isnt <-1>]
	[store c71 in la03]
	[store M3 in la04]
	[store <Divorced> in la00]
	[endif]
	[endif]

>v11<	[allow 5][if M1a is <-1> goto i2]
>v11a< [if M3 is <-1> goto i2]
>v11b< [store (<12> * M3 + M1a) in v11]
>v11c< [if v1 le v11 goto v11e]

>v11d<
	[##dname = RI6E]
	[##label = error checkpoint]
	ERROR:  DATE OF DIVORCE MUST BE AFTER DATE OF ORIGINAL INTERVIEW

	<1>     RETURN TO DATE OF DIVORCE TO CORRECT [goto M1a]

	OR ENTER

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@

>v11e<  [if v11 le v2 goto i2]

>v11f<
	[##dname =RI6EE]
	[##label = error checkpoint ii]
	ERROR: DATE OF DIVORCE MUST BE BEFORE TODAY'S DATE

	<1>     RETURN TO DATE OF DIVORCE TO CORRECT [goto M1a]

	OR ENTER

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@

>i2<    [if c ne <1>]  [# changed 8.21.82
	[if M1 eq <2> goto M53b][#PRECODE CONVERSION ITEM M1 5 = 2]
	[goto M51]
	[endif]

[# M5 -item needs d pre-code. bmk]
>M5<
	[##dname = RI7]
	[##label = cohab at prev intrvw got married since]
	In (last interview date) you were living with (partner's name).
	Did you and (he/she) get married?

	<1>     YES [goto M7]
	<2>     NO  [goto M35][#PRECODE CONVERSION ITEM M5 5 = 2]

	<-4>     R SAYS HE/SHE WAS NOT LIVING WITH THIS PERSON [goto M51]

	<r>     REFUSED [goto M35]

	@

[# RESPONDENT WAS DIVORCED, WIDOWED, OR NEVER MARRIED AT FIRST INTERVIEW
	 AND WAS LIVING WITH A PARTNER

[# M6 -item needs d pre-code. bmk]
>M6<
	[##dname = RI8]
	[##label = cohab at prev intrvw got married since]
	Next I want to ask you about any changes in your marital status since
	(last interview date). At that time you were living with (partner's
	name). Did you and (he/she) get married?

	<1>     YES
	<2>     NO [goto M35][#PRECODE CONVERSION ITEM M6 5 = 2]

	<-4>     R SAYS HE/SHE WAS NOT LIVING WITH THIS PERSON [goto M51]

	<r>     REFUSED [goto M35]

	@

[# M7 -removed month from d pre-code. bmk]
[# M7 -added r pre-code. bmk]
>M7<
	[##dname = RI9M]
	[##label = mo married]
	In what month and year did you get married?

	<1> JANUARY     <4> APRIL       <7> JULY        <10> OCTOBER
	<2> FEBRUARY    <5> MAY         <8> AUGUST      <11> NOVEMBER
	<3> MARCH       <6> JUNE        <9> SEPTEMBER   <12> DECEMBER

	<d>     DON'T KNOW      <r>     REFUSED

	@

[# M8 -item needs expanded years. bmk]
[# M8 -removed year from d pre-code. bmk]
[# M8 -added r pre-code. bmk]
>M8<
	[##dname = RI9Y]
	[##label = yr married]
	(INTERVIEWER: ENTER YEAR  - 1987-2004) [no erase]

	<d>     DON'T KNOW      <r>     REFUSED

	@
	[@]
		<1987-2004>     1987-2004

>i12<   [if M7 isnt <-1> goto c72]

>M9<
	[##dname = RI9F]
	[##label = time of yr married]
	Do you remember what part of the year it was?
	(ENTER RESPONSE FOLLOWED BY //) [allow 2]

	(INTERVIEWER:  PROBE FOR SEASON, PORTION OF YEAR
	IF R SAYS "WINTER"  PROBE: Do you think it was
	January or February or December?

	<1>  JANUARY    <5>  MAY      <9>  SEPTEMBER		<-1>	DK
        <2>  FEBRUARY   <6>  JUNE     <10> OCTOBER 		<-2>	REF
        <3>  MARCH      <7>  JULY     <11> NOVEMBER
	<4>  APRIL      <8>  AUGUST   <12> DECEMBER		<99>	OTHER
	                        	
        <21> WINTER     <23> SUMMER   <31> FIRST HALF OF YEAR	
        <22> SPRING     <24> FALL     <32> SECOND HALF OF YEAR	
	@  [#specify] [goto M10]

>c72<  [allow 10][if M7 eq <1>]
       [store <January> in c72]
       [endif]
       [if M7 eq <2>]
       [store <February> in c72]
       [endif]
       [if M7 eq <3>]
       [store <March> in c72]
       [endif]
       [if M7 eq <4>]
       [store <April> in c72]
       [endif]
       [if M7 eq <5>]
       [store <May> in c72]
       [endif]
       [if M7 eq <6>]
       [store <June> in c72]
       [endif]
       [if M7 eq <7>]
       [store <July> in c72]
       [endif]
       [if M7 eq <8>]
       [store <August> in c72]
       [endif]
       [if M7 eq <9>]
       [store <September> in c72]
       [endif]
       [if M7 eq <10>]
       [store <October> in c72]
       [endif]
       [if M7 eq <11>]
       [store <November> in c72]
       [endif]
       [if M7 eq <12>]
       [store <December> in c72]
       [endif]

>la95<  [if M7 ne <>]
	[if M7 ne <n>]
	[store <Married> in la92]
	[store c72 in la93]
	[store M8 in la94]
	[endif]
	[endif]

>v12<	[allow 5][if M7 is <-1> goto M10]
>v12a< [if M8 is <-1> goto M10]
>v12b< [store (<12> * M8 + M7) in v12]
>v12c< [if v1 le v12 goto v12e]

>v12d<
	[##dname = RI9E]
	[##label = error checkpoint]
	ERROR:  DATE OF MARRIAGE MUST BE AFTER DATE OF ORIGINAL INTERVIEW

	<1>     RETURN TO DATE OF MARRIAGE TO CORRECT [goto M7]

	OR ENTER

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@

>v12e<  [if v12 le v2 goto M10]

>v12f<
	[##dname = RI9EE]
	[##label = error checkpoint ii]
	ERROR: DATE OF MARRIAGE MUST BE BEFORE TODAY'S DATE

	<1>     RETURN TO DATE OF MARRIAGE TO CORRECT [goto M7]

	OR ENTER

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@

[# M10 -item needs d pre-code. bmk]
>M10<
	[##dname = RI10]
	[##label = still marr and live tog]
	Are the two of you still married and living together?

	<1>     YES [goto M21]
	<2>     NO [#PRECODE CONVERSION ITEM M10 5 = 2]

	<r>     REFUSED [goto X1x]

	@

[# M11 -added pre-code labels to question. bmk]
[# M11 -item needs d, r pre-codes. bmk]
>M11<
	[##dname = RI11]
	[##label = how did marr end]
	Did that marriage end in: divorce, separation with no
	divorce, or widowhood?

	<1>     DIVORCE [goto M15]
	<2>     SEPARATION WITH NO DIVORCE [goto M18]
	<3>     WIDOWHOOD

	@

[# M12 -removed month from d pre-code. bmk]
[# M12 -added r pre-code. bmk]
>M12<
	[##dname = RI12M]
	[##label = mo spouse die]
	In what month and year did your (husband/wife) die?

	<1> JANUARY     <4> APRIL       <7> JULY        <10> OCTOBER
	<2> FEBRUARY    <5> MAY         <8> AUGUST      <11> NOVEMBER
	<3> MARCH       <6> JUNE        <9> SEPTEMBER   <12> DECEMBER

	<d>     DON'T KNOW      <r>     REFUSED

	@

[# M13 -removed year from d pre-code. bmk]
[# M13 -added r pre-code. bmk]
>M13<
	[##dname = RI12Y]
	[##label = yr spouse die]
	(INTERVIEWER: ENTER YEAR  - 1987-2004) [no erase]

	<d>     DON'T KNOW      <r>     REFUSED

	@
	[@]
		<1987-2004>     1987-2004


>i13<           [if M12 isnt <-1> goto c73]

>M14<
	[##dname = RI12F]
	[##label = time of yr spouse die]
	Do you remember what part of the year it was?

	(ENTER RESPONSE FOLLOWED BY //)[allow 2]

	(INTERVIEWER:  PROBE FOR SEASON, PORTION OF YEAR
	IF R SAYS "WINTER"  PROBE:  Do you think it was
	January or February or December?)

	<1>  JANUARY    <5>  MAY      <9>  SEPTEMBER		<-1>	DK
        <2>  FEBRUARY   <6>  JUNE     <10> OCTOBER 		<-2>	REF
        <3>  MARCH      <7>  JULY     <11> NOVEMBER
	<4>  APRIL      <8>  AUGUST   <12> DECEMBER		<99>	OTHER
	                        	
        <21> WINTER     <23> SUMMER   <31> FIRST HALF OF YEAR	
        <22> SPRING     <24> FALL     <32> SECOND HALF OF YEAR	
	@  [#specify] [goto M21]

>c73<  [allow 10][if M12 eq <1>]
       [store <January> in c73]
       [endif]
       [if M12 eq <2>]
       [store <February> in c73]
       [endif]
       [if M12 eq <3>]
       [store <March> in c73]
       [endif]
       [if M12 eq <4>]
       [store <April> in c73]
       [endif]
       [if M12 eq <5>]
       [store <May> in c73]
       [endif]
       [if M12 eq <6>]
       [store <June> in c73]
       [endif]
       [if M12 eq <7>]
       [store <July> in c73]
       [endif]
       [if M12 eq <8>]
       [store <August> in c73]
       [endif]
       [if M12 eq <9>]
       [store <September> in c73]
       [endif]
       [if M12 eq <10>]
       [store <October> in c73]
       [endif]
       [if M12 eq <11>]
       [store <November> in c73]
       [endif]
       [if M12 eq <12>]
       [store <December> in c73]
       [endif]

>la05<  [if M12 isnt <>]
	[if M12 isnt <-1>]
	[store c73 in la03]
	[store M13 in la04]
	[store <Widowed> in la00]
	[endif]
	[endif]

>v13<  [allow 5][if M12 is <-1> goto M21]
>v13a< [if M13 is <-1> goto M21]
>v13b< [store (<12> * M13 + M12) in v13]
>v13c< [if v12 le v13 goto v13e]

>v13d<
	[##dname = RI12E]
	[##label = error checkpoint]
	ERROR: DATE OF WIDOWHOOD MUST BE AFTER DATE OF MARRIAGE

	<1>     RETURN TO DATE OF MARRIAGE TO CORRECT [goto M7]

	<2>     RETURN TO DATE OF WIDOWHOOD TO CORRECT [goto M12]

	OR ENTER

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@

>v13e<  [if v13 le v2 goto M21]

>v13f<
	[##dname = RI12EE]
	[##label = error checkpoint ii]
	ERROR: DATE OF WIDOWHOOD MUST BE BEFORE TODAY'S DATE

	<1>     RETURN TO DATE OF WIDOWHOOD TO CORRECT [goto M12]

	OR ENTER

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@ [goto M21]

[# M15 -removed month from d pre-code. bmk]
[# M15 -added r pre-code. bmk]
>M15<  
       [##dname = RI13M]
       [##label = mo divorce]

(M15)   In what month and year did you get divorced?

	<1> JANUARY     <4> APRIL       <7> JULY        <10> OCTOBER
	<2> FEBRUARY    <5> MAY         <8> AUGUST      <11> NOVEMBER
	<3> MARCH       <6> JUNE        <9> SEPTEMBER   <12> DECEMBER

	<d>     DON'T KNOW      <r>     REFUSED

	@

[# M16 -removed year from d pre-code. bmk]
[# M16 -added r pre-code. bmk]
[#FIXED DNAME, USED MULTIPLE TIMES]
>M16<
        [##dname = RI13Y]
	[##label = yr divorce]
	(INTERVIEWER: ENTER YEAR  - 1987-2004) [no erase]

	<d>  DON'T KNOW         <r>  REFUSED

	@
	[@]
		<1987-2004>     1987-2004

>i14<   [if M15 isnt <-1> goto c74]

>M17<
	[##dname = RI13F]
	[##label = time of yr divorce]
	Do you remember what part of the year it was?

	(ENTER RESPONSE FOLLOWED BY //)[allow 2]

	(INTERVIEWER:  PROBE FOR SEASON, PORTION OF YEAR
	IF R SAYS "WINTER"  PROBE:  Do you think it was
	January or February or December?)

	<1>  JANUARY    <5>  MAY      <9>  SEPTEMBER		<-1>	DK
        <2>  FEBRUARY   <6>  JUNE     <10> OCTOBER 		<-2>	REF
        <3>  MARCH      <7>  JULY     <11> NOVEMBER
	<4>  APRIL      <8>  AUGUST   <12> DECEMBER		<99>	OTHER
	                        	
        <21> WINTER     <23> SUMMER   <31> FIRST HALF OF YEAR	
        <22> SPRING     <24> FALL     <32> SECOND HALF OF YEAR	
	@  [#specify] [goto M18]

>c74<  [allow 10][if M15 eq <1>]
       [store <January> in c74]
       [endif]
       [if M15 eq <2>]
       [store <February> in c74]
       [endif]
       [if M15 eq <3>]
       [store <March> in c74]
       [endif]
       [if M15 eq <4>]
       [store <April> in c74]
       [endif]
       [if M15 eq <5>]
       [store <May> in c74]
       [endif]
       [if M15 eq <6>]
       [store <June> in c74]
       [endif]
       [if M15 eq <7>]
       [store <July> in c74]
       [endif]
       [if M15 eq <8>]
       [store <August> in c74]
       [endif]
       [if M15 eq <9>]
       [store <September> in c74]
       [endif]
       [if M15 eq <10>]
       [store <October> in c74]
       [endif]
       [if M15 eq <11>]
       [store <November> in c74]
       [endif]
       [if M15 eq <12>]
       [store <December> in c74]
       [endif]

>la14<  [if M15 isnt <>]
	[if M15 isnt <-1>]
	[store c74 in la03]
	[store M16 in la04]
	[store <Divorced> in la00]
	[endif]
	[endif]

>v14<  [allow 5][if M15 is <-1> goto M18]
>v14a< [if M16 is <-1> goto M18]
>v14b< [store (<12> * M16 + M15) in v14]
>v14c< [if v12 le v14 goto v14e]

>v14d<
	[##dname = RI13E]
	[##label = error checkpoint]
	ERROR: DATE OF DIVORCE MUST BE AFTER DATE OF MARRIAGE

	<1>     RETURN TO DATE OF MARRIAGE TO CORRECT [goto M7]

	<2>     RETURN TO DATE OF DIVORCE TO CORRECT [goto M15]

	OR ENTER

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@

>v14e<  [if v14 le v2 goto M18]

>v14f<
	[##dname = RI13EE]
	[##label = error checkpoint ii]
	ERROR: DATE OF DIVORCE MUST BE BEFORE TODAY'S DATE

	<1>     RETURN TO DATE OF DIVORCE TO CORRECT [goto M15]

	OR ENTER

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@

[# M18 -removed month from d pre-code. bmk]
[# M18 -added r pre-code. bmk]
>M18<  
       [##dname = RI14M]
       [##label = mo separate]

(M18)   In what month and year did you and (partner's name)
	stop living together?

	<1> JANUARY     <4> APRIL       <7> JULY        <10> OCTOBER
	<2> FEBRUARY    <5> MAY         <8> AUGUST      <11> NOVEMBER
	<3> MARCH       <6> JUNE        <9> SEPTEMBER   <12> DECEMBER

	<d>     DON'T KNOW      <r>     REFUSED

	@

[# M19 -removed year from d pre-code. bmk]
[# M19 -added r pre-code. bmk]
>M19<
	[##dname = RI14Y]
	[##label = yr separate]
	(INTERVIEWER: ENTER YEAR  - 1987-2004) [no erase]

	<d>     DON'T KNOW      <r>     REFUSED

	@
	[@]
		<1987-2004>     1987-2004

>i15<  [if M18 isnt <-1> goto c75]

>M20<
	[##dname = RI14F]
	[##label = time of yr separate]
	Do you remember what part of the year it was?

	(ENTER RESPONSE FOLLOWED BY //)[allow 2]

	(INTERVIEWER:  PROBE FOR SEASON, PORTION OF YEAR
	IF R SAYS "WINTER"  PROBE:  Do you think it was
	January or February or December?)

	<1>  JANUARY    <5>  MAY      <9>  SEPTEMBER		<-1>	DK
        <2>  FEBRUARY   <6>  JUNE     <10> OCTOBER 		<-2>	REF
        <3>  MARCH      <7>  JULY     <11> NOVEMBER
	<4>  APRIL      <8>  AUGUST   <12> DECEMBER		<99>	OTHER
	                        	
        <21> WINTER     <23> SUMMER   <31> FIRST HALF OF YEAR	
        <22> SPRING     <24> FALL     <32> SECOND HALF OF YEAR	
	@  [#specify] [goto M21]

>c75<  [allow 10][if M18 eq <1>]
       [store <January> in c75]
       [endif]
       [if M18 eq <2>]
       [store <February> in c75]
       [endif]
       [if M18 eq <3>]
       [store <March> in c75]
       [endif]
       [if M18 eq <4>]
       [store <April> in c75]
       [endif]
       [if M18 eq <5>]
       [store <May> in c75]
       [endif]
       [if M18 eq <6>]
       [store <June> in c75]
       [endif]
       [if M18 eq <7>]
       [store <July> in c75]
       [endif]
       [if M18 eq <8>]
       [store <August> in c75]
       [endif]
       [if M18 eq <9>]
       [store <September> in c75]
       [endif]
       [if M18 eq <10>]
       [store <October> in c75]
       [endif]
       [if M18 eq <11>]
       [store <November> in c75]
       [endif]
       [if M18 eq <12>]
       [store <December> in c75]
       [endif]

>la08<  [if M18 isnt <>]
	[if M18 isnt <-1>]
	[store c75 in la11]
	[store M19 in la12]
	[store <Separated> in la13]
	[endif]
	[endif]

>v15<	[allow 5][if M18 is <-1> goto M21]
>v15a< [if M19 is <-1> goto M21]
>v15b< [store (<12> * M19 + M18) in v15]
>v15n< [allow 16] [store <> in v15n]
>v15p< [allow 2][store <19> in v15p]
>v15o< [if M15 eq <>]
       [store <not relevant> in v15n]
       [store <> in v15p]
       [goto v15c]
       [endif]
>v15q< [if v15 gt v14 goto v15d]
>v15c< [if v12 le v15 goto v15e]

>v15d<
	[##dname = RI14E]
	[##label = error checkpoint]
	ERROR:  DATE OF SEPARATION MUST BE AFTER DATE OF MARRIAGE
		DATE OF DIVORCE MUST BE AFTER DATE OF SEPARATION

	<1>     RETURN TO DATE OF MARRIAGE TO CORRECT [goto M7]
	<2>     RETURN TO DATE OF DIVORCE TO CORRECT [goto M15]
	<3>     RETURN TO DATE OF SEPARATION TO CORRECT [goto M18]

	OR ENTER

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@

>v15e<  [if v15 le v2 goto M21]

>v15f<
	[##dname = RI14EE]
	[##label = error checkpoint ii]
	ERROR: DATE OF SEPARATION MUST BE BEFORE TODAY'S DATE

	<1>     RETURN TO DATE OF SEPARATION TO CORRECT [goto M18]

	OR ENTER

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@

[# CHARACTERISTICS OF SPOUSE

>M21<   [allow 30][store <in your first year of marriage> in M21]
	[if cid7 gt <1> goto i3]
>M21z< [if (v2 - v12) le <12>]
	[store <since your marriage began> in M21]
	[endif]

>M21a<
	[##dname = RI15]
	[##label = age of part when marr]
	How old was (partner's name) when you got married?

	<14-94> 14-94 YEARS

	<d>     DON'T KNOW      <r>     REFUSED

	@

>M22<
	[##dname = RI16]
	[##label = educ of part when marr]
	What was the highest grade or level of education that (partner's
	name)	had completed at the time you got married?

	(INTERVIEWER:  IF R DOES NOT KNOW THE EXACT LEVEL OF EDUCATION,
	PROBE FOR APPROXIMATE LEVEL)

	<0>     NONE
	<1-11>  FIRST THROUGH 11TH GRADE
	<12>    HIGH SCHOOL GRADUATE
	<13-15> ONE TO THREE YEARS OF COLLEGE
	<16>    COLLEGE GRADUATE
	<17>    MASTER'S DEGREE
	<18>    DOCTORATE OR PROFESSIONAL DEGREE

	<-6>     OTHER (ENTER REPLY FOLLOWED BY //)[specify]

	<d>     DON'T KNOW      <r>     REFUSED

	@

>M23<
	[##dname = RI17]
	[##label = parts relig pref when marr]
	What was (partner's name)'s religious preference at the time
	you got married?

	<1>     NO RELIGION
	<2>     ROMAN CATHOLIC
	<3>     JEWISH
	<4>     BAPTIST
	<5>     EPISCOPALIAN
	<6>     LUTHERAN
	<7>     METHODIST
	<8>     LATTER DAY SAINTS (MORMON)
	<9>     PRESBYTERIAN
	<10>    UNITED CHURCH OF CHRIST (CONGREGATIONAL)
        <11>    PROTESTANT (DID NOT SPECIFY DENOMINATION)

	<-6>     OTHER (ENTER REPLY FOLLOWED BY //)[specify]

	<d>     DON'T KNOW      <r>     REFUSED
	@

>M23q< [if M23 ne <11> goto M24]

>M23a<
	[##dname = RI17B]
	[##label = parts religious denomination when marr]
	What denomination was that?   (ENTER REPLY FOLLOWED BY //)[allow 2]

	@

>M24<
	[##dname = RI18]
	[##label = part work full-time since marr]
	At any time (in your first year of marriage/since your marriage began) was
	(partner's name) working full-time?

	<1>     YES
	<2>     NO[#PRECODE CONVERSION ITEM M24 5 = 2]

	<d>     DON'T KNOW      <r>     REFUSED

	@

>M26<
	[##dname = RI19]
	[##label = part work part-time since marr]
	At any time (in your first year of marriage/since your marriage began) was 
	(partner's name) working part-time?

	<1>     YES
	<2>     NO[#PRECODE CONVERSION ITEM M26 5 = 2]

	<d>     DON'T KNOW      <r>     REFUSED

	@

[# M27 -removed "interviewer read if necessary" comment. bmk]
>M27<
	[##dname = RI20]
	[##label = part school since marr] 
	(At any time (in your first year of marriage/since your marriage began) was 
	(partner's name). . .)

	. . .attending school?

	<1>     YES
	<2>     NO[#PRECODE CONVERSION ITEM M27 5 = 2]

	<d>     DON'T KNOW      <r>     REFUSED

	@

[# M28 -removed "interviewer: read if necessary comment". bmk]
>M28<
	[##dname = RI21]
	[##label = part armed forces since marr]
	(At any time (in your first year of marriage/since your marriage began) was 
	(partner's name). . .)

	. . .in the Armed Forces?

	<1>     YES
	<2>     NO[#PRECODE CONVERSION ITEM M28 5 = 2]

	<d>     DON'T KNOW      <r>     REFUSED

	@

[# M29 -removed "interviewer read if necessary" comment. bmk]
>M29<
	[##dname = RI22]
	[##label = part unemployed since marr]
	(At any time (in your first year of marriage/since your marriage began) was 
	(partner's name). . .)

	. . .unemployed and looking for work?

	<1>     YES
	<2>     NO[#PRECODE CONVERSION ITEM M29 5 = 2]

	<d>     DON'T KNOW      <r>     REFUSED

	@

>M30<
	[##dname = RI23]
	[##label = part live w/ nat ps upto 14 yrs old]
	Did (partner's name) live with both of (his/her) natural parents up
	to age 14?

	<1>     YES         [goto M32]
	<2>     NO[#PRECODE CONVERSION ITEM M30 5 = 2]

	<d>     DON'T KNOW  [goto M32]  <r>     REFUSED     [goto M32]

	@

>M31<
	[##dname = RI24]
	[##label = why part not live w/ nat ps]
	Was that because they had divorced or separated, or because
	one of (his/her) parents had died?

	<1>     PARENTS SEPARATED OR DIVORCED
	<2>     A PARENT DIED[#PRECODE CONVERSION ITEM M31 5 = 2]

	<-6>     OTHER  (ENTER RESPONSE FOLLOWED BY)[specify]

	<d>     DON'T KNOW      <r>     REFUSED

	@

>M32<
	[##dname = RI25]
	[##label = part marr before marr r]
	Had (he/she) been married before (he/she) married you?

	<1>     YES
	<2>     NO[#PRECODE CONVERSION ITEM M32 5 = 2]

	<d>     DON'T KNOW      <r>     REFUSED

	@

>M33<
	[##dname = RI26]
	[##label = part had previous children]
	Had (he/she) had any children?

	<1>     YES
	<2>     NO       [goto i3][#PRECODE CONVERSION ITEM M33 5 = 2]

	<d>     DON'T KNOW   [goto i3]  <r>     REFUSED  [goto i3]

	@

>M34<
	[##dname = RI27]
	[##label = part prev children live w r after marr]
	Did any of these children live with you after you got married?

	<1>     YES
	<2>     NO[#PRECODE CONVERSION ITEM M34 5 = 2]

	<d>     DON'T KNOW      <r>     REFUSED

	@

[# this takes those still married to SE-6 and those not still married to did they marry again?

>i3<   [if M10 eq <1> goto SE6m]
       [goto M51]

>M35<
	[##dname = RI28]
	[##label = r and part still live tog]
	Are you and (partner's name) still living together?

	<1>     YES          [goto M132]
	<2>     NO  [#PRECODE CONVERSION ITEM M35 5 = 2]

	<d>     DON'T KNOW   [goto i6]  <r>     REFUSED      [goto i6]

	@

[# M36 -removed month from d pre-code. bmk]
[# M36 added r pre-code. bmk]
>M36<
	[##dname = RI29M]
	[##label = mo separate]
	In what month and year did you separate?

	<1> JANUARY     <4> APRIL       <7> JULY        <10> OCTOBER
	<2> FEBRUARY    <5> MAY         <8> AUGUST      <11> NOVEMBER
	<3> MARCH       <6> JUNE        <9> SEPTEMBER   <12> DECEMBER

	<d>     DON'T KNOW      <r>  REFUSED

	@

[# M37 -removed year from d pre-code. bmk]
[# M37 -added r pre-code. bmk]
>M37<
	[##dname = RI29Y]
	[##label = yr separate]
	(INTERVIEWER: ENTER YEAR  - 1987-2004) [no erase]

	<d>     DON'T KNOW      <r>     REFUSED

	@
	[@]
		<1987-2007>     1987-2004

>i16<   [if M36 isnt <-1> goto c76]

>M38<
	[##dname = RI29F]
	[##label = time of yr separate]
	Do you remember what part of the year it was?
	(ENTER RESPONSE FOLLOWED BY //)[allow 2]

	(INTERVIEWER:  PROBE FOR SEASON, PORTION OF YEAR
	IF R SAYS "WINTER"  PROBE:  Do you think it was
	January or February or December?)

	<1>  JANUARY    <5>  MAY      <9>  SEPTEMBER		<-1>	DK
        <2>  FEBRUARY   <6>  JUNE     <10> OCTOBER 		<-2>	REF
        <3>  MARCH      <7>  JULY     <11> NOVEMBER
	<4>  APRIL      <8>  AUGUST   <12> DECEMBER		<99>	OTHER
	                        	
        <21> WINTER     <23> SUMMER   <31> FIRST HALF OF YEAR	
        <22> SPRING     <24> FALL     <32> SECOND HALF OF YEAR	
	@  [#specify] [goto M51]

>c76<  [allow 10][if M36 eq <1>]
       [store <January> in c76]
       [endif]
       [if M36 eq <2>]
       [store <February> in c76]
       [endif]
       [if M36 eq <3>]
       [store <March> in c76]
       [endif]
       [if M36 eq <4>]
       [store <April> in c76]
       [endif]
       [if M36 eq <5>]
       [store <May> in c76]
       [endif]
       [if M36 eq <6>]
       [store <June> in c76]
       [endif]
       [if M36 eq <7>]
       [store <July> in c76]
       [endif]
       [if M36 eq <8>]
       [store <August> in c76]
       [endif]
       [if M36 eq <9>]
       [store <September> in c76]
       [endif]
       [if M36 eq <10>]
       [store <October> in c76]
       [endif]
       [if M36 eq <11>]
       [store <November> in c76]
       [endif]
       [if M36 eq <12>]
       [store <December> in c76]
       [endif]

>v16<	[allow 5][if M36 is <-1> goto M51]
>v16a< [if M37 is <-1> goto M51]
>v16b< [store (<12> * M37 + M36) in v16]

>v16c< [if v1 le v16 goto v16e]

>v16d<
	[##dname = RI29E]
	[##label = error checkpoint]
	ERROR:  DATE OF SEPARATION MUST BE AFTER DATE OF ORIGINAL INTERVIEW

	<1>     RETURN TO DATE OF SEPARATION TO CORRECT [goto M36]

	OR ENTER

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@

>v16e<  [if v16 le v2 goto M51]

>v16f<
	[##dname = RI29EE]
	[##label = error checkpoint ii]
	ERROR: DATE OF SEPARATION MUST BE BEFORE TODAY'S DATE

	<1>     RETURN TO DATE OF SEPARATION TO CORRECT [goto M36]

	OR ENTER

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@ [goto M51]

[# SECTION FOR PERSONS WHO WERE MARRIED AT FIRST INTERVIEW

>M39<  [if A1ma ne <1> goto M40a]
[# identifies Married-spouse absent other
>M39w<  [allow 15][store <and living with> in M39w]
	[if Rms eq <1>]
	[if mspp eq <0>]
	[store <to> in M39w]
	[endif]
	[endif]

[# M39a -item needs d pre-code. bmk]
[#FIXED DNAME, USED MULTIPLE TIMES]
>M39a<
        [##dname = RI30a]
	[##label = still marr same part since prev intrvw]
	Next we want to find out about any changes in your marital status
	since (last interview date).  At that time you were married to
	(spouse's name). Are you still married (to/and living with) (him/her)?

	<1>     YES [goto SE6m]
	<2>     NO [goto M40][#PRECODE CONVERSION ITEM M39a 5 = 2]

	<-6>     R SAYS THEY WERE MARRIED TO SOMEONE ELSE

	<r>     REFUSED [goto i6]

	@

[#FIXED DNAME, USED MULTIPLE TIMES]
>M39z<
        [##dname = RI30b]
	[##label = spouses name]
	What was that spouse's name?
	(ENTER RESPONSE FOLLOWED BY //)[allow 1]

	@ [specify]

>M39y<
        [##dname = RI30c]
	When did you and (he/she) get married? [allow 1]

	(ENTER RESPONSE VERBATIM FOLLOWED BY //)

	@ [specify]

[# M39X -item needs d pre-code. bmk]
>M39X<
	[##dname = RI33]
	[##label = still married]
	Are you and (he/she) still married?

	<1>     YES [goto SE6m]
	<2>     NO [goto M40][#PRECODE CONVERSION ITEM M39X 5 = 2]

	<r>     REFUSED [goto i6]

	@

[# M40 -added pre-code labels to question. bmk]
[# M40 -item needs d, r pre-codes. bmk]
>M40<
	[##dname = RI34]
	[##label = how marriage ended]
	Did that marriage end in: divorce, separation with no
	divorce, or widowhood?

	<1>     DIVORCE [goto M44]
	<2>     SEPARATION WITH NO DIVORCE [goto M47]
	<3>     WIDOWHOOD [goto M41]

	@
[# chnaged fill e to fill CSnm2 here and later
[# M40a -added pre-code labels to question. bmk]
[#ADDED REFUSED FOR CODING INSTRUMENT BBD]
>M40a<
	[##dname = RI35]
	[##label = how marriage ended]
	Next we want to find out about any changes in your marital status
	since (last interview date).  At that time you were married to
	(spouse's name).  Did your marriage end in: divorce, separation with no
	divorce, or widowhood?

	<1>     DIVORCE [goto M44]
	<2>     SEPARATION WITH NO DIVORCE [goto M47]
	<3>     WIDOWHOOD

        <9>     REFUSED TO ANSWER
	@

[# M41 -removed month from d pre-code. bmk]
[# M41 -added r pre-code. bmk]
>M41<
	[##dname = RI36M]
	[##label = mo spouse die]
	In what month and year did (spouse's name) die?

	<1> JANUARY     <4> APRIL       <7> JULY        <10> OCTOBER
	<2> FEBRUARY    <5> MAY         <8> AUGUST      <11> NOVEMBER
	<3> MARCH       <6> JUNE        <9> SEPTEMBER   <12> DECEMBER

	<d>     DON'T KNOW      <r>     REFUSED

	@

[# M42 -removed year from d pre-code. bmk]
[# M42 -added r pre-code. bmk]
>M42<
	[##dname = RI36Y]
	[##label = yr spouse die]
	(INTERVIEWER: ENTER YEAR  - 1987-2004) [no erase]

	<d>     DON'T KNOW      <r>     REFUSED

	@
	[@]
		<1987-2004>     1987-2004

>i17z<          [if M41 isnt <-1> goto c77]

>M43<
	[##dname = RI36F]
	[##label = time of yr spouse die]
	Do you remember what part of the year it was?
	(ENTER RESPONSE FOLLOWED BY //)[allow 2]

	(INTERVIEWER:  PROBE FOR SEASON, PORTION OF YEAR
	IF R SAYS "WINTER"  PROBE:  Do you think it was
	January or February or December?)

	<1>  JANUARY    <5>  MAY      <9>  SEPTEMBER		<-1>	DK
        <2>  FEBRUARY   <6>  JUNE     <10> OCTOBER 		<-2>	REF
        <3>  MARCH      <7>  JULY     <11> NOVEMBER
	<4>  APRIL      <8>  AUGUST   <12> DECEMBER		<99>	OTHER
	                        	
        <21> WINTER     <23> SUMMER   <31> FIRST HALF OF YEAR	
        <22> SPRING     <24> FALL     <32> SECOND HALF OF YEAR	
	@  [#specify] [goto M51]

>c77<  [allow 10][if M41 eq <1>]
       [store <January> in c77]
       [endif]
       [if M41 eq <2>]
       [store <February> in c77]
       [endif]
       [if M41 eq <3>]
       [store <March> in c77]
       [endif]
       [if M41 eq <4>]
       [store <April> in c77]
       [endif]
       [if M41 eq <5>]
       [store <May> in c77]
       [endif]
       [if M41 eq <6>]
       [store <June> in c77]
       [endif]
       [if M41 eq <7>]
       [store <July> in c77]
       [endif]
       [if M41 eq <8>]
       [store <August> in c77]
       [endif]
       [if M41 eq <9>]
       [store <September> in c77]
       [endif]
       [if M41 eq <10>]
       [store <October> in c77]
       [endif]
       [if M41 eq <11>]
       [store <November> in c77]
       [endif]
       [if M41 eq <12>]
       [store <December> in c77]
       [endif]

>la06<  [if M41 isnt <>]
	[if M41 isnt <-1>]
	[store c77 in la03]
	[store M42 in la04]
	[store <Widowed> in la00]
	[endif]
	[endif]

>v17<	[allow 5][if M41 is <-1> goto M51]
>v17a< [if M42 is <-1> goto M51]
>v17b< [store (<12> * M42 + M41) in v17]

>v17c< [if v1 le v17 goto v17e]

>v17d<
	[##dname = RI36E]
	[##label = error checkpoint]
	ERROR:  DATE OF WIDOWHOOD MUST BE AFTER DATE OF ORIGINAL INTERVIEW

	<1>     RETURN TO DATE OF WIDOWHOOD TO CORRECT [goto M41]

	OR ENTER

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@


>v17e<  [if v17 le v2 goto M51]

>v17f<
	[##dname = RI36EE]
	[##label = error checkpoint ii]
	ERROR: DATE OF WIDOWHOOD MUST BE BEFORE TODAY'S DATE

	<1>     RETURN TO DATE OF WIDOWHOOD TO CORRECT [goto M41]

	OR ENTER

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@ [goto M51]

[# M44 -removed month from d pre-code. bmk]
[# M44 -added r pre-code. bmk]
>M44<
	[##dname = RI37M]
	[##label = mo divorce]
	In what month and year did you get divorced?

	<1> JANUARY     <4> APRIL       <7> JULY        <10> OCTOBER
	<2> FEBRUARY    <5> MAY         <8> AUGUST      <11> NOVEMBER
	<3> MARCH       <6> JUNE        <9> SEPTEMBER   <12> DECEMBER

	<d>     DON'T KNOW      <r>     REFUSED

	@

[# M45 -removed year from d pre-code. bmk]
[# M45 -added r pre-code. bmk]
>M45<
	[##dname = RI37Y]
	[##label = yr divorce]
	(INTERVIEWER: ENTER YEAR  - 1987-2004) [no erase]

	<d>  DON'T KNOW         <r>  REFUSED

	@
	[@]
		<1987-2004>     1987-2004

>i18<   [if M44 isnt <-1> goto c79]

>M46<
	[##dname = RI37F]
	[##label = time of yr divorce]
	Do you remember what part of the year it was?
	(ENTER RESPONSE FOLLOWED BY //)[allow 2]

	(INTERVIEWER:  PROBE FOR SEASON, PORTION OF YEAR
	IF R SAYS "WINTER"  PROBE:  Do you think it was
	January or February or December?)

	<1>  JANUARY    <5>  MAY      <9>  SEPTEMBER		<-1>	DK
        <2>  FEBRUARY   <6>  JUNE     <10> OCTOBER 		<-2>	REF
        <3>  MARCH      <7>  JULY     <11> NOVEMBER
	<4>  APRIL      <8>  AUGUST   <12> DECEMBER		<99>	OTHER
	                        	
        <21> WINTER     <23> SUMMER   <31> FIRST HALF OF YEAR	
        <22> SPRING     <24> FALL     <32> SECOND HALF OF YEAR	
	@  [#specify] [goto M47]

>c79<  [allow 10][if M44 eq <1>]
       [store <January> in c79]
       [endif]
       [if M44 eq <2>]
       [store <February> in c79]
       [endif]
       [if M44 eq <3>]
       [store <March> in c79]
       [endif]
       [if M44 eq <4>]
       [store <April> in c79]
       [endif]
       [if M44 eq <5>]
       [store <May> in c79]
       [endif]
       [if M44 eq <6>]
       [store <June> in c79]
       [endif]
       [if M44 eq <7>]
       [store <July> in c79]
       [endif]
       [if M44 eq <8>]
       [store <August> in c79]
       [endif]
       [if M44 eq <9>]
       [store <September> in c79]
       [endif]
       [if M44 eq <10>]
       [store <October> in c79]
       [endif]
       [if M44 eq <11>]
       [store <November> in c79]
       [endif]
       [if M44 eq <12>]
       [store <December> in c79]
       [endif]

>la15<  [if M44 isnt <>]
	[if M44 isnt <-1>]
	[store c79 in la03]
	[store M45 in la04]
	[store <Divorced> in la00]
	[endif]
	[endif]

>v18<	[allow 5][if M44 is <-1> goto M47]
>v18a< [if M45 is <-1> goto M47]
>v18b< [store (<12> * M45 + M44) in v18]

>v18c< [if v1 le v18 goto v18e]

>v18d<
	[##dname = RI37E]
	[##label = error checkpoint]
	ERROR:  DATE OF DIVORCE MUST BE AFTER DATE OF ORIGINAL INTERVIEW

	<1>     RETURN TO DATE OF DIVORCE TO CORRECT [goto M44]

	OR ENTER

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@

>v18e<  [if v18 le v2 goto M47]

>v18f<
	[##dname = RI37EE]
	[##label = error checkpoint ii]

	ERROR: DATE OF DIVORCE MUST BE BEFORE TODAY'S DATE

	<1>     RETURN TO DATE OF DIVORCE TO CORRECT [goto M44]

	OR ENTER

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@

[# M47 -removed month from d pre-code. bmk]
[# M47 -added r pre-code. bmk]
>M47<
	[##dname = RI38M]
	[##label = mo separate]
	In what month and year did you and (spouse's name)
	stop living together?

	<1> JANUARY     <4> APRIL       <7> JULY        <10> OCTOBER
	<2> FEBRUARY    <5> MAY         <8> AUGUST      <11> NOVEMBER
	<3> MARCH       <6> JUNE        <9> SEPTEMBER   <12> DECEMBER

	<d>     DON'T KNOW      <r>     REFUSED

	@

[# M48 -removed year from d pre-code. bmk]
[# M48 -added r pre-code. bmk]
>M48<
	[##dname = RI38Y]
	[##label = yr separate]
	(INTERVIEWER: ENTER YEAR  - 1987-2004) [no erase]

	<d>     DON'T KNOW         <r>     REFUSED

	@
	[@]
		<1987-2004>     1987-2004

>i19<   [if M47 isnt <-1> goto c78]

>M49<
	[##dname = RI38F]
	[##label = time of yr separate]
	Do you remember what part of the year it was?

	(ENTER RESPONSE FOLLOWED BY //)[allow 2]

	(INTERVIEWER:  PROBE FOR SEASON, PORTION OF YEAR
	IF R SAYS "WINTER"  PROBE:  Do you think it was
	January or February or December?)
	<1>  JANUARY    <5>  MAY      <9>  SEPTEMBER		<-1>	DK
        <2>  FEBRUARY   <6>  JUNE     <10> OCTOBER 		<-2>	REF
        <3>  MARCH      <7>  JULY     <11> NOVEMBER
	<4>  APRIL      <8>  AUGUST   <12> DECEMBER		<99>	OTHER
	                        	
        <21> WINTER     <23> SUMMER   <31> FIRST HALF OF YEAR	
        <22> SPRING     <24> FALL     <32> SECOND HALF OF YEAR	
	@  [#specify] [goto M51]

>c78<  [allow 10][if M47 eq <1>]
       [store <January> in c78]
       [endif]
       [if M47 eq <2>]
       [store <February> in c78]
       [endif]
       [if M47 eq <3>]
       [store <March> in c78]
       [endif]
       [if M47 eq <4>]
       [store <April> in c78]
       [endif]
       [if M47 eq <5>]
       [store <May> in c78]
       [endif]
       [if M47 eq <6>]
       [store <June> in c78]
       [endif]
       [if M47 eq <7>]
       [store <July> in c78]
       [endif]
       [if M47 eq <8>]
       [store <August> in c78]
       [endif]
       [if M47 eq <9>]
       [store <September> in c78]
       [endif]
       [if M47 eq <10>]
       [store <October> in c78]
       [endif]
       [if M47 eq <11>]
       [store <November> in c78]
       [endif]
       [if M47 eq <12>]
       [store <December> in c78]
       [endif]

>la09<  [if M47 isnt <>]
	[if M47 isnt <-1>]
	[store c78 in la11]
	[store M48 in la12]
	[store <Separated> in la13]
	[endif]
	[endif]

>v19<	[allow 5][if M47 is <-1> goto M51]
>v19a< [if M48 is <-1> goto M51]
>v19b< [store (<12> * M48 + M47) in v19]
>v19n< [allow 16] [store <> in v19n]
>v19p< [allow 2][store <19> in v19p]
>v19o< [if M44 eq <>]
       [store <not relevant> in v19n]
       [store <> in v19p]
       [goto v19c]
       [endif]
>v19q< [if v19 le v18 goto v19e]
>v19c< [if v1 le v19 goto v19e]

>v19d<
	[##dname = RI38E]
	[##label = error checkpoint]
	ERROR: DATE OF SEPARATION MUST BE AFTER DATE OF INTERVIEW
	       DATE OF DIVORCE MUST BE AFTER DATE OF SEPARATION

	<1>     RETURN TO DATE OF SEPARATION TO CORRECT [goto M47]

	<2>     RETURN TO DATE OF DIVORCE TO CORRECT [goto M44]

	OR ENTER

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@

>v19e<  [if v19 le v2 goto M51]

>v19f<
	[##dname = RI38EE]
	[##label = error checkpoint ii]
	ERROR: DATE OF DIVORCE MUST BE BEFORE TODAY'S DATE

	<1>     RETURN TO DATE OF DIVORCE TO CORRECT [goto M47]

	OR ENTER

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@ [goto M51]

[# RESPONDENT WAS DIVORCED, WIDOWED, OR NEVER MARRIED AT FIRST
     INTERVIEW AND WAS NOT LIVING WITH A PARTNER

>M50<  [allow 3] [store <> in M50]
>M50a< [if a ne <5>]
	[store <re-> in M50]
	[endif]

>m35<   [allow 25] [if a eq <1>]
	   [store <were married> in m35]
	   [endif]
	[if a eq <2>]
	[store <were separated> in m35]
	[endif]
	[if a eq <4>]
	[store <were widowed> in m35]
	[endif]
	[if a eq <3>]
	[store <were divorced> in m35]
	[endif]
	[if a eq <5>]
	[store <had never been married> in m35]
	[endif]

>M50b<
	[##dname = RI39]
	[##label = married since last interview]
	Next I want to ask you about any changes in your marital
	status since (last interview date).  At that time you
	(were married/separated/widowed/divorced/had never been 
	married).  Since then have you (re-)married?

	<1>     YES        [goto M52]
	<2>     NO         [goto M53][#PRECODE CONVERSION ITEM M50b 5 = 2]

	<d>     DON'T KNOW [goto i6]    <r>     REFUSED    [goto i6]

	@

[#  this is where the separated at nsfh1 rejoin

>M51<  [allow 3] [store <> in M51]
>M51a< [if a ne <5>]
	[store <re-> in M51]
	[endif]

[#  In some situations M51b should not be since then; should be since date
    but I think it will work ok.

[# M51b -item needs d, r pre-codes. bmk]
>M51b<
	[##dname = RI40]
	[##label = married since nsfh1]
	Since then have you (re-)married?

	<1>  YES        <2>  NO  [goto M53][#PRECODE CONVERSION ITEM M51b 5 = 2]

	@

[# fill in m52 is not right if go through sep/cohab sequence
>M52<
	[##dname = RI41]
	[##label = times married since last interview]
	How many times have you gotten married since (last interview date)?

	<1>     ONCE  [goto M55]
	<2>     TWICE  [goto M55a]
	<3>     THREE OR MORE TIMES  [goto M55a]

	<d>     DON'T KNOW [goto i6]    <r>     REFUSED [goto i6]

	@

>M53<   [allow 7] [store <a> in M53]
>M53a<  [if c eq <1>]
	[store <another> in M53]
	[endif]

>M53b<
	[##dname = RI42]
	[##label = lived w/ opp sex partner]
	Since then have you lived with (a/another) partner of the
	opposite sex?

	<1>     YES [goto M112]
	<2>     NO  [goto i6][#PRECODE CONVERSION ITEM M53b 5 = 2]

	<8>     R HAS LIVED OR LIVES WITH SAME SEX PARTNER [goto i6]

	<d>     DON'T KNOW [goto i6]    <r>     REFUSED [goto i6]

	@

[# if only one marriage
>M55<   [allow 13]
	[if A1ma eq <1>]
	[store CSnm in M55]
	[if CSnm eq <>]
	[if A1sa eq <1>] [store <your wife> in M55] [endif]
	[if A1sa eq <2>] [store <your husband> in M55] [endif]
	[endif]
	[goto i20]
	[endif]

>M55l<
	[##dname = RI42A]
	[##label = partner since last intvws name]
	What was this (husband/wife)'s first name? [allow 13]

	    _____________
	@

>M55m<  [if M55l isnt <>]
	[store M55l in M55]
	[endif]
	[goto i20]

[# if more than one marriage
>M55a<
	[##dname = RI42B] 
	[##label = name of first partner]
	What was the first name of the first of these (wive/husband)s?
	 [allow 13]
	    _____________
	@

	[# jas added this store statement 10/18/00 jas
>i20<   [if M55a isnt <>]
	[store M55a in M55]
	[endif]

	[if M52 eq <1> goto mn]

>M56l<   [allow 13][if M52 eq <2>]
	[if A1ma eq <1>]
	[store CSnm in M56l]
	[goto M56m]
	[endif]
	[endif]

[#FIXED DNAME, USED MULTIPLE TIMES]
>M56<
        [##dname = RI42C]
	[##label = name of second partner]
	What was first name of the second of these (wive/husband)s?
       [allow 13]
	    _____________
	@ [goto i21]

>M56m<  [if M56l isnt <>]
	[store M56l in M56]
	[endif]

>i21<   [if M52 eq <2> goto mn]

>M57l<   [allow 13][if M52 eq <3>]
	[if A1ma eq <1>]
	[store CSnm in M57l]
	[goto M57m]
	[endif]
	[endif]

[#FIXED DNAME, USED MULTIPLE TIMES]
>M57<
        [##dname = RI42D]
	[##label = name of third partner]
	What was first name of the third of these (wive/husband)'s?
       [allow 13]
	    _____________
	@ [goto mn]
>M57m<  [if M57l isnt <>]
	[store M57l in M57]
	[endif]
[# first Marriage

[# may need to do something similar between end of first marriage and
	beginning of second marriage.

[# these are relevant to comparisons to be used with M58 for persons who
	experienced marriage followed by separation, widowhood, or
	divorce, or who became divorced after being separated at NSFH1

>mn<    [allow 10] [store <> in mn]
>yr<    [allow 4] [store <> in yr]
>ev<    [allow 10] [store <> in ev]
>mn1<   [allow 2] [store <> in mn1]
>19<    [allow 2][store <> in 19]

>i21a<  [if M15 isnt <>]
	[store M15 in mn1]
	[store c74 in mn]
	[store M16 in yr]
	[store <Divorce> in ev]
	[store <19> in 19]
	[endif]

>i21b<  [if M1a isnt <>]
	[store c71 in mn]
	[store M1a in mn1]
	[store M3 in yr]
	[store <Divorce> in ev]
	[store <19> in 19]
	[endif]

>i21c<  [if M44 isnt <>]
	[store c79 in mn]
	[store M44 in mn1]
	[store M45 in yr]
	[store <Divorce> in ev]
	[store <19> in 19]
	[endif]

>i21d<  [if M12 isnt <>]
	[store c72 in mn]
	[store M12 in mn1]
	[store M13 in yr]
	[store <Widowhood> in ev]
	[store <19> in 19]
	[endif]

>i21e<  [if M41 isnt <>]
	[store c77 in mn]
	[store M41 in mn1]
	[store M42 in yr]
	[store <Widowhood> in ev]
	[store <19> in 19]
	[endif]

>i21f<  [if M18 isnt <>]
	[if M15 is <>]
	[store c75 in mn]
	[store M18 in mn1]
	[store M42 in yr]
	[store <Separation> in ev]
	[store <19> in 19]
	[endif]
	[endif]

[# i21g is century month of end of previous marriage
>i21g<  [allow 5] [store <> in i21g]
	[##label = CENTURY MONTH OF DIVORCE/SPOUSE DEATH/SEPARATION]
	
>i21h<  [if mn1 isnt <>]
	[store (<12> * yr + mn1) in i21g]
	[endif]
>i21q<  [allow 16] [if  ev is <>]
	[store <not relevant> in i21q]
	[endif]

[# M58 -removed month from d pre-code. bmk]
[# M58 -added r pre-code. bmk]
>M58<
	[##dname = RI47M]
	[##label = mo married]

(M58)   In what month and year did you and (your husband/wife)
	get married?

	<1> JANUARY     <4> APRIL       <7> JULY        <10> OCTOBER
	<2> FEBRUARY    <5> MAY         <8> AUGUST      <11> NOVEMBER
	<3> MARCH       <6> JUNE        <9> SEPTEMBER   <12> DECEMBER

	<d>     DON'T KNOW      <r>     REFUSED

	@
[# M59 -removed year from d pre-code. bmk]
[# M59 -added r pre-code. bmk]
>M59<
	[##dname = RI47Y]
	[##label = yr married]
	(INTERVIEWER: ENTER YEAR  - 1987-2004) [no erase]

	<d>     DON'T KNOW      <r>     REFUSED

	@
	[@]
		<1987-2004>     1987-2004

>i23<   [if M58 isnt <-1> goto c47]

>m60<
	[##dname = RI47F]
	[##label = time of yr married]
	Do you remember what part of the year it was?

	(ENTER RESPONSE FOLLOWED BY //)[allow 2]

	(INTERVIEWER:  PROBE FOR SEASON, PORTION OF YEAR
	IF R SAYS "WINTER"  PROBE: Do you think it was
	January or February or December?)

	<1>  JANUARY    <5>  MAY      <9>  SEPTEMBER		<-1>	DK
        <2>  FEBRUARY   <6>  JUNE     <10> OCTOBER 		<-2>	REF
        <3>  MARCH      <7>  JULY     <11> NOVEMBER
	<4>  APRIL      <8>  AUGUST   <12> DECEMBER		<99>	OTHER
	                        	
        <21> WINTER     <23> SUMMER   <31> FIRST HALF OF YEAR	
        <22> SPRING     <24> FALL     <32> SECOND HALF OF YEAR	
	@  [#specify] [goto M61]

>c47<  [allow 9][if M58 eq <1>]
       [store <January> in c47]
       [endif]
       [if M58 eq <2>]
       [store <February> in c47]
       [endif]
       [if M58 eq <3>]
       [store <March> in c47]
       [endif]
       [if M58 eq <4>]
       [store <April> in c47]
       [endif]
       [if M58 eq <5>]
       [store <May> in c47]
       [endif]
       [if M58 eq <6>]
       [store <June> in c47]
       [endif]
       [if M58 eq <7>]
       [store <July> in c47]
       [endif]
       [if M58 eq <8>]
       [store <August> in c47]
       [endif]
       [if M58 eq <9>]
       [store <September> in c47]
       [endif]
       [if M58 eq <10>]
       [store <October> in c47]
       [endif]
       [if M58 eq <11>]
       [store <November> in c47]
       [endif]
       [if M58 eq <12>]
       [store <December> in c47]
       [endif]

>v20<	[allow 5][if M58 is <-1> goto M61]
>v20a< [if M59 is <-1> goto M61]
>v20b< [store (<12> * M59 + M58) in v20]

>v20c< [if v1 gt v20 goto v20d]
>v20q< [if i21g lt v20 goto v20e]

>v20d<
	[##dname = RI47E]
	[##label = error checkpoint]
	ERROR:  DATE OF MARRIAGE MUST BE AFTER DATE OF ORIGINAL INTERVIEW
		AND, WHERE APPROPRIATE, AFTER DATE OF END OF PREVIOUS
		MARRIAGE

	<1>     RETURN TO DATE OF MARRIAGE TO CORRECT [goto M58]

	OR ENTER

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@

>v20e<  [if v20 le v2 goto M61]

>v20f<
	[##dname = RI47EE]
	[##label = error checkpoint ii]
	ERROR: DATE OF MARRIAGE MUST BE BEFORE TODAY'S DATE

	<1>     RETURN TO DATE OF MARRIAGE TO CORRECT [goto M58]

	OR ENTER

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@

>M61<
	[##dname = RI48]
	[##label = live tog before married]
	Did the two of you live together before you got married?

	<1>     YES
	<2>     NO         [goto i0w][#PRECODE CONVERSION ITEM M61 5 = 2]

	<d>     DON'T KNOW [goto i0w]   <r>     REFUSED    [goto i0w]

	@

[# M62 -removed month from d pre-code. bmk]
[# M62 -added r pre-code. bmk]
>M62<
	[##dname = RI49M]
	[##label = mo start cohab]
	In what month and year did you begin living together?

	<1> JANUARY     <4> APRIL       <7> JULY        <10> OCTOBER
	<2> FEBRUARY    <5> MAY         <8> AUGUST      <11> NOVEMBER
	<3> MARCH       <6> JUNE        <9> SEPTEMBER   <12> DECEMBER

	<d>     DON'T KNOW      <r>     REFUSED

	@

[# M63 -removed year from d pre-code. bmk]
[# M63 -added r pre-code. bmk]
>M63<
	[##dname = RI49Y]
	[##label = yr start cohab]
	(INTERVIEWER: ENTER YEAR  - 1987-2004) [no erase]

	<d>     DON'T KNOW      <r>     REFUSED

	@
	[@]
		<1987-2004>     1987-2004

>i24<   [if M62 isnt <-1> goto c48]

>M64<
	[##dname = RI49F]
	[##label = time of yr start cohab]
	Do you remember what part of the year it was?

	(ENTER RESPONSE FOLLOWED BY //)[allow 2]

	(INTERVIEWER:  PROBE FOR SEASON, PORTION OF YEAR
	IF R SAYS "WINTER"  PROBE: Do you think it was
	January or February or December?)

	<1>  JANUARY    <5>  MAY      <9>  SEPTEMBER		<-1>	DK
        <2>  FEBRUARY   <6>  JUNE     <10> OCTOBER 		<-2>	REF
        <3>  MARCH      <7>  JULY     <11> NOVEMBER
	<4>  APRIL      <8>  AUGUST   <12> DECEMBER		<99>	OTHER
	                        	
        <21> WINTER     <23> SUMMER   <31> FIRST HALF OF YEAR	
        <22> SPRING     <24> FALL     <32> SECOND HALF OF YEAR	
	@  [#specify] [goto M65]

>c48<  [allow 9][if M62 eq <1>]
       [store <January> in c48]
       [endif]
       [if M62 eq <2>]
       [store <February> in c48]
       [endif]
       [if M62 eq <3>]
       [store <March> in c48]
       [endif]
       [if M62 eq <4>]
       [store <April> in c48]
       [endif]
       [if M62 eq <5>]
       [store <May> in c48]
       [endif]
       [if M62 eq <6>]
       [store <June> in c48]
       [endif]
       [if M62 eq <7>]
       [store <July> in c48]
       [endif]
       [if M62 eq <8>]
       [store <August> in c48]
       [endif]
       [if M62 eq <9>]
       [store <September> in c48]
       [endif]
       [if M62 eq <10>]
       [store <October> in c48]
       [endif]
       [if M62 eq <11>]
       [store <November> in c48]
       [endif]
       [if M62 eq <12>]
       [store <December> in c48]
       [endif]

>v21<	[allow 5][if M62 is <-1> goto M65]
>v21a< [if M63 is <-1> goto M65]
>v21b< [store (<12> * M63 + M62) in v21]
>v21c< [if v21 le v20 goto v21e]

>v21d<
	[##dname = RI49E]
	[##label = error checkpoint]
	ERROR:  DATE BEGAN LIVING TOGETHER MUST BE BEFORE DATE OF MARRIAGE

	<1>     RETURN TO DATE BEGAN LIVING TOGETHER TO CORRECT [goto M62]

	<2>     RETURN TO DATE OF MARRIAGE TO CORRECT [goto M58]

	OR ENTER

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@

>v21e<  [if v21 le v2 goto M65]

>v21f<
	[##dname = RI49EE]
	[##label = error checkpoint ii]
	ERROR: DATE BEGAN LIVING TOGETHER MUST BE BEFORE TODAY'S DATE

	<1>     RETURN TO DATE BEGAN LIVING TOGETHER TO CORRECT [goto M62]

	OR ENTER

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@

>M65<
	[##dname = RI50]
	[##label = cohab continuous until marr]
	Did you live together continuously until your marriage?

	<1>     YES
	<2>     NO[#PRECODE CONVERSION ITEM M65 5 = 2]

	<d>     DON'T KNOW      <r>     REFUSED

	@

[# this may not work right if cohabited and then married; don't
[#        know how those get through the sequence

>i0w<  [if a ne <5> goto M66]

>M66z<
	[##dname = RI51]
	[##label = live w othr part btw lst intrvw and marr]
	Did you live with any other partner between (last interview date)
	and when you married (your husband/wife)?

	<1>     YES         [goto M67]
	<2>     NO         [goto i60][#PRECODE CONVERSION ITEM M66z 5 = 2]

	<d>     DON'T KNOW [goto i60]   <r>     REFUSED [goto i60]

	@

>M66<
	[##dname = RI52]
	[##label = live w/ othr part btw divrce and re-marr]
	Did you live with any other partner between the end of your previous
	marriage and when you married (your husband/wife)?

	<1>     YES
	<2>     NO         [goto i60][#PRECODE CONVERSION ITEM M66 5 = 2]

	<d>     DON'T KNOW [goto i60]   <r>     REFUSED [goto i60]

	@

>M67<
	[##dname = RI53]
	[##label = how many other parts live w/]
	How many other partners did you live with in this period?

	<1-5>   1 TO 5 PARTNERS
	<6>     6 OR MORE

	<d>     DON'T KNOW  [goto i60]  <r>     REFUSED     [goto i60]

	@

>i66<  [allow 9] [store <> in i66]
>i66a<  [if M67 eq <1>]
	[store <this> in i66]
	[goto M68]
	[endif]
>i66b<  [store <the first> in i66]

[# M68 -removed month from d pre-code. bmk]
[# M68 -added r pre-code. bmk]
>M68<
	[##dname = RI54M]
	[##label = mo live w/ first part]
	In what month and year did you start living with (this/the first) 
	partner?

	<1> JANUARY     <4> APRIL       <7> JULY        <10> OCTOBER
	<2> FEBRUARY    <5> MAY         <8> AUGUST      <11> NOVEMBER
	<3> MARCH       <6> JUNE        <9> SEPTEMBER   <12> DECEMBER

	<d>     DON'T KNOW      <r>     REFUSED

	@
[# M69 -removed year from d pre-code. bmk]
[# M69 -added r pre-code. bmk]
>M69<
	[##dname = RI54Y]
	[##label = yr live w/ first part]
	(INTERVIEWER: ENTER YEAR  - 1987-2004) [no erase]

	<d>     DON'T KNOW      <r>     REFUSED

	@
	[@]
		<1950-2004>     1950-2004

>i25<   [if M68 isnt <-1> goto c49]

>M70<
	[##dname = RI54F]
	[##label = time of yr live w/ first part]
	Do you remember what part of the year it was?
	(ENTER RESPONSE FOLLOWED BY //)[allow 2]

	(INTERVIEWER:  PROBE FOR SEASON, PORTION OF YEAR
	IF R SAYS "WINTER"  PROBE:  Do you think it was
	January or February or December?)

	<1>  JANUARY    <5>  MAY      <9>  SEPTEMBER		<-1>	DK
        <2>  FEBRUARY   <6>  JUNE     <10> OCTOBER 		<-2>	REF
        <3>  MARCH      <7>  JULY     <11> NOVEMBER
	<4>  APRIL      <8>  AUGUST   <12> DECEMBER		<99>	OTHER
	                        	
        <21> WINTER     <23> SUMMER   <31> FIRST HALF OF YEAR	
        <22> SPRING     <24> FALL     <32> SECOND HALF OF YEAR	
	@  [#specify] [goto M71]

[# jim  put the characteristics here

>c49<  [allow 9][if M68 eq <1>]
       [store <January> in c49]
       [endif]
       [if M68 eq <2>]
       [store <February> in c49]
       [endif]
       [if M68 eq <3>]
       [store <March> in c49]
       [endif]
       [if M68 eq <4>]
       [store <April> in c49]
       [endif]
       [if M68 eq <5>]
       [store <May> in c49]
       [endif]
       [if M68 eq <6>]
       [store <June> in c49]
       [endif]
       [if M68 eq <7>]
       [store <July> in c49]
       [endif]
       [if M68 eq <8>]
       [store <August> in c49]
       [endif]
	[if M68 eq <9>]
       [store <September> in c49]
       [endif]
       [if M68 eq <10>]
       [store <October> in c49]
       [endif]
       [if M68 eq <11>]
       [store <November> in c49]
       [endif]
       [if M68 eq <12>]
       [store <December> in c49]
       [endif]

>v22<  [allow 5][if M68 is <-1> goto M71]
>v22a< [if M69 is <-1> goto M71]
>v22b< [store (<12> * M69 + M68) in v22]
>v22c< [if v22 le v20 goto v22e]

>v22d<
	[##dname = RI54E]
	[##label = error checkpoint]
	ERROR:  DATE BEGAN LIVING TOGETHER MUST BE BEFORE DATE OF MARRIAGE

	<1>     RETURN TO DATE BEGAN LIVING TOGETHER TO CORRECT [goto M68]

	<2>     RETURN TO DATE OF MARRIAGE TO CORRECT [goto M58]

	OR ENTER  

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@

>v22e<  [if v22 le v2 goto M71]

>v22f<
	[##dname = RI54EE]
	[##label = error checkpoint ii]
	ERROR: DATE OF MARRIAGE MUST BE BEFORE TODAY'S DATE

	<1>     RETURN TO DATE BEGAN LIVING TOGETHER TO CORRECT [goto M68]

	OR ENTER  

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@

[# M71 -removed month from d pre-code. bmk]
[# M71 -added r pre-code. bmk]
>M71<
	[##dname = RI55M]
	[##label = mo stop live w/ first]
	In what month and year did you stop living with (him/her)?

	<1> JANUARY     <4> APRIL       <7> JULY        <10> OCTOBER
	<2> FEBRUARY    <5> MAY         <8> AUGUST      <11> NOVEMBER
	<3> MARCH       <6> JUNE        <9> SEPTEMBER   <12> DECEMBER

	<d>     DON'T KNOW      <r>     REFUSED 

	@
[# M72 removed year from d pre-code. bmk]
[# M72 added r pre-code. bmk]
>M72<
	[##dname = RI55Y]
	[##label = yr stop live w/ first]
	(INTERVIEWER: ENTER YEAR  - 1987-2004) [no erase]

	<d>  DON'T KNOW         <r>  REFUSED

	@ 
	[@]
		<1987-2004>     1987-2004

>i26<   [if M77 isnt <-1> goto c50]

[#FIXED DNAME, USED MULTIPLE TIMES]
>M73<
        [##dname = RI55F]
	[##label = time of yr stop live w/ first]
	Do you remember what part of the year it was?

	(ENTER RESPONSE FOLLOWED BY //)[allow 2]

	(INTERVIEWER:  PROBE FOR SEASON, PORTION OF YEAR
	IF R SAYS "WINTER"  PROBE:  DO YOU THINK IT WAS 
	JANUARY OR FEBRUARY OR DECEMBER?)

	<1>  JANUARY    <5>  MAY      <9>  SEPTEMBER		<-1>	DK
        <2>  FEBRUARY   <6>  JUNE     <10> OCTOBER 		<-2>	REF
        <3>  MARCH      <7>  JULY     <11> NOVEMBER
	<4>  APRIL      <8>  AUGUST   <12> DECEMBER		<99>	OTHER
	                        	
        <21> WINTER     <23> SUMMER   <31> FIRST HALF OF YEAR	
        <22> SPRING     <24> FALL     <32> SECOND HALF OF YEAR	
	@  [#specify] [goto i7]
			
>c50<  [allow 9][if M71 eq <1>]
       [store <January> in c50]
       [endif]
       [if M71 eq <2>]
       [store <February> in c50]
       [endif]
       [if M71 eq <3>]
       [store <March> in c50]
       [endif]
       [if M71 eq <4>]
       [store <April> in c50]
       [endif]
       [if M71 eq <5>]
       [store <May> in c50]
       [endif]
       [if M71 eq <6>]
       [store <June> in c50]
       [endif]
       [if M71 eq <7>]
       [store <July> in c50]
       [endif]
       [if M71 eq <8>]
       [store <August> in c50]
       [endif]
       [if M71 eq <9>]
       [store <September> in c50]
       [endif]
       [if M71 eq <10>]
       [store <October> in c50]
       [endif]
       [if M71 eq <11>]
       [store <November> in c50]
       [endif]
       [if M71 eq <12>]
       [store <December> in c50]
       [endif]

>v23<  [allow 5][if M71 is <-1> goto i7]
>v23a< [if M72 is <-1> goto i7]
>v23b< [store (<12> * M72 + M71) in v23]
>v23c< [if v22 le v23 goto v23e]

[#FIXED DNAME, USED MULTIPLE TIMES]
>v23d<
        [##dname = RI55E]
	[##label = error checkpoint]
	ERROR:  DATE BEGAN LIVING WITH PARTNER MUST BE BEFORE DATE
		STOPPED LIVING WITH PARTNER

	<1>     RETURN TO DATE BEGAN LIVING TOGETHER TO CORRECT [goto M68]

	<2>     RETURN TO DATE STOPPED LIVING TOGETHER [goto M71]

	OR ENTER  

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@

>v23e<  [if v23 le v2 goto i7]

>v23f<
	[##dname = RI55EE]
	[##label = error checkpoint ii]
	ERROR: DATE MUST BE BEFORE TODAY'S DATE

	<1>     RETURN TO DATE STOPPED LIVING TOGETHER [goto M71]

	OR ENTER  

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@

>i7<   [if M67 eq <1> goto i60]
				  
[# M74 -removed month from d pre-code. bmk]
[# M74 -added r pre-code. bmk]
>M74<
	[##dname = RI56M]
	[##label = mo live w/ second part]
	In what month and year did you start living with the second 
	partner?

	<1> JANUARY     <4> APRIL       <7> JULY        <10> OCTOBER
	<2> FEBRUARY    <5> MAY         <8> AUGUST      <11> NOVEMBER
	<3> MARCH       <6> JUNE        <9> SEPTEMBER   <12> DECEMBER

	<d>     DON'T KNOW      <r>     REFUSED 

	@

[# M75 -removed year from d pre-code. bmk]
[# M75 -added r pre-code. bmk]
>M75<
	[##dname = RI56Y]
	[##label = yr live w/ second part]
	(INTERVIEWER: ENTER YEAR  - 1987-2004) [no erase]

	<d>     DON'T KNOW         <r>     REFUSED

	@ 
	[@]
		<1987-2004>     1987-2004

>i27<   [if M74 isnt <-1> goto c51]

>M76<
	[##dname = RI56F]
	[##label = time of yr live w/ second part]
	Do you remember what part of the year it was?

	(ENTER RESPONSE FOLLOWED BY //)[allow 2]

	(INTERVIEWER:  PROBE FOR SEASON, PORTION OF YEAR
	IF R SAYS "WINTER"  PROBE:  Do you think it was 
	January or February or December?)

	<1>  JANUARY    <5>  MAY      <9>  SEPTEMBER		<-1>	DK
        <2>  FEBRUARY   <6>  JUNE     <10> OCTOBER 		<-2>	REF
        <3>  MARCH      <7>  JULY     <11> NOVEMBER
	<4>  APRIL      <8>  AUGUST   <12> DECEMBER		<99>	OTHER
	                        	
        <21> WINTER     <23> SUMMER   <31> FIRST HALF OF YEAR	
        <22> SPRING     <24> FALL     <32> SECOND HALF OF YEAR	
	@  [#specify] [goto M77]

>c51<  [allow 9][if M74 eq <1>]
       [store <January> in c51]
       [endif]
       [if M74 eq <2>]
       [store <February> in c51]
       [endif]
       [if M74 eq <3>]
       [store <March> in c51]
       [endif]
       [if M74 eq <4>]
       [store <April> in c51]
       [endif]
       [if M74 eq <5>]
       [store <May> in c51]
       [endif]
       [if M74 eq <6>]
       [store <June> in c51]
       [endif]
       [if M74 eq <7>]
       [store <July> in c51]
       [endif]
       [if M74 eq <8>]
       [store <August> in c51]
       [endif]
       [if M74 eq <9>]
       [store <September> in c51]
       [endif]
       [if M74 eq <10>]
       [store <October> in c51]
       [endif]
       [if M74 eq <11>]
       [store <November> in c51]
       [endif]
       [if M74 eq <12>]
       [store <December> in c51]
       [endif]

>v24<	[allow 5][if M74 is <-1> goto M77]
>v24a< [if M75 is <-1> goto M77]
>v24b< [store (<12> * M75 + M74) in v24]
>v24c< [if v23 le v24 goto v24e]

>v24d<
	[##dname = RI56E]
	[##label = error checkpoint]
	ERROR:  DATE STOPPED LIVING WITH PREVIOUS PARTNER MUST BE BEFORE
		DATE BEGAN LIVING WITH NEXT PARTNER

	<1>     RETURN TO DATE STOPPED LIVING TOGETHER [goto M71]

	<2>     RETURN TO DATE BEGAN LIVING TOGETHER TO CORRECT [goto M74]

	OR ENTER  

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@

>v24e<  [if v24 le v2 goto M77]

>v24f<
	[##dname = RI56EE]
	[##label = error checkpoint ii]
	ERROR: DATE MUST BE BEFORE TODAY'S DATE

	<1>     RETURN TO DATE BEGAN LIVING TOGETHER TO CORRECT [goto M74]

	OR ENTER  

	 u      UNABLE TO RECONCILE
	<9>     UNABLE TO RECONCILE

	@