TIME(0)

COMMENT: Start time for fertility section

SYMBOL ({COUNT97}=0=INT, {TOTNEW}=0=INT, {YNGSTKID}=""=CHAR, {Q12-22B}=0=INT, {Q12-27A}=0=INT, {TOTBIO3}=0=INT, {^BIOCHILD_MOMDADHH(1)^}=0=INT,
{NEW}=""=CHAR, {PREG1_ILLNESS1_NAME}=""=CHAR)

COMMENT: INITIALIZE SYMBOLS FOR LATER USE IN FERTILITY SECTION

SWITCH ({EVERYA}) BEGIN
CASE 1: {OLD_SIN} = "baby born since " + {LINTDATE~X};
CASE 0: {OLD_SIN} = "oldest";
DEFAULT: {OLD_SIN} = "(oldest) baby (born since " + {LINTDATE~X} + ")"; END

COMMENT: TEXT SUBSTITUTION BASED ON WHEN LAST INTERVIEWED

{RESP_GENDER}

COMMENT: SKIP BASED ON GENDER OF RESPONDENT

SYMBOL ({MOM_DAD}="MOTHER"=CHAR, {MOM_DADLC}="mother"=CHAR, {OR_YOUR}="YOUR"=CHAR, {SHE_YOU}="SHE"=CHAR, {HERBLANK}="HER"=CHAR,{PARHE_SHE}="she"=CHAR)

COMMENT: INITIALIZE SYMBOLS FOR MALE RESPONDENT

SYMBOL ({MOM_DAD}="FATHER"=CHAR, {MOM_DADLC}="father"=CHAR, {OR_YOUR}="YOU"=CHAR, {SHE_YOU}="YOU"=CHAR, {HERBLANK}=""=CHAR,{PARHE_SHE}="he"=CHAR)

COMMENT: INITIALIZE SYMBOLS FOR FEMALE RESPONDENT

SYMBOL ({MOM_DAD}="(MOTHER OR FATHER)"=CHAR, {MOM_DADLC}="(mother or father)"=CHAR, {OR_YOUR}="(YOU(R))"=CHAR, {SHE_YOU}=""=CHAR, {HERBLANK}=""=CHAR,{PARHE_SHE}="he or she"=CHAR)

COMMENT: INITIALIZE SYMBOLS FOR FEMALE RESPONDENT

*************SECTION 12 FERTILITY*************

The next few questions are about fertility. We know that some of these questions may not apply to you, but we need to ask the same questions of all our respondents in order to be complete.

{RESP_GENDER}==1

COMMENT: IF R IS MALE, SKIP PREGNANCY QUESTIONS

{EVERPREG}==1

COMMENT: Machine check: Has R reported being pregnant in previous surveys?

Have you ever been pregnant?

How old were you the first time you became pregnant?

ENTER AGE IN YEARS:

In what month and year did you get pregnant for the first time?

({EVERYA}==1)

COMMENT: WAS R EVER INTERVIEWED AS YA?

We are first going to VERIFY our records of BIOLOGICAL children that you have had, if any, PRIOR TO {lintdate~X} (the date of your LAST interview).

BLANK {*BIOCHILD*}

COMMENT: Blank out the biochild name and bdate variables in case of backing up.

RECCOUNT ({*BIOCHILD*})

XFER OUT {*BIOCHILD*} FIELDS NAME={^BIOCHILD_NAME^}, BDATE={^BIOCHILD_BDATE^},
STATCODE={^BIOCHILD_STATCODE^}

COMMENT: Xfer out information and save total number of children.

{TOTBIO} > 0

COMMENT: Check if there are any children on the info sheet

0

REPEAT

COMMENT: start loop to correct missing names or bdates of biochildren

{Q12-LOOP1} + 1

STRCMP({^BIOCHILD_NAME({Q12-LOOP1})^}, "(MISSING NAME)")

COMMENT: Is the child's name missing?

INTERVIEWER: THIS CHILD'S NAME IS MISSING. ENTER THE CORRECT FIRST NAME, MIDDLE INITIAL (IF A NAME EXISTS) AND LAST NAME.

CHILD'S BIRTHDATE: {^BIOCHILD_BDATE({Q12-LOOP1})^}
CHILD'S ID NUMBER: {^BIOCHILD.ID({Q12-LOOP1})^}

ISVAREMPTY({^BIOCHILD_BDATE({Q12-LOOP1})^})

COMMENT: Is there child's birthdate recorded?

INTERVIEWER: THIS CHILD'S BIRTHDATE IS MISSING. ENTER THE CORRECT BIRTHDATE. YOU MUST ENTER A VALID YEAR IN THIS QUESTION. REPORT ANY UNUSUAL ANSWERS IN A COMMENT.

CHILD'S NAME: {^BIOCHILD_NAME({Q12-LOOP1})^}
CHILD'S ID NUMBER: {^BIOCHILD_ID({Q12-LOOP1})^}

UNTIL({Q12-LOOP1}=={TOTBIO})

COMMENT: loop end to fix names and bdates of biochildren

XFER INTO {*BIOCHILD*} FIELDS NAME={^BIOCHILD_NAME^}, BDATE={^BIOCHILD_BDATE^}

COMMENT: copy child names to roster after any name or bdate corrections

Our records from our interview on {lintdate~X} show that you have (had/given birth to) (a child/children) named (READ FULL NAMES OF CHILDREN BELOW) as of {lintdate~X} ... (CLICK "SUBMIT AND CONTINUE" TO CONTINUE)

Is that correct?

SYMBOL({DELSTAT}=99=INT, {NOLABEL}=""=CHAR, {DELLABEL}="DELETED"=CHAR)

COMMENT: fixed value which may be used to set the status for deleted children.

INTERVIEWER: DOES R HAVE CHILDREN ON THE BIOLOGICAL CHILD ROSTER THAT SHOULD NOT BE LISTED THERE?

XFER OUT {*BIOCHILD*} FIELDS STATCODE={^BIOCHILD_OLDSTAT^}, STATUS={^BIOCHILD_OLDSTATUS^}

COMMENT: Copy child status to save index

RECCOUNT ({*BIOCHILD*})

0

REPEAT

COMMENT: LOOP Begin to delete biochildren who don't belong on roster

{Q12-LOOP2} + 1

{^BIOCHILD_STATCODE({Q12-LOOP2})^}

COMMENT: Is this child a new child? If so, skip out.

INTERVIEWER: {^BIOCHILD_NAME({Q12-LOOP2})^} IS DELETED. IS THIS CORRECT?

INTERVIEWER: DOES {^BIOCHILD_NAME({Q12-LOOP2})^} NEED TO BE DELETED?

SYMBOL({^BIOCHILD_STATCODE^}={^BIOCHILD_OLDSTAT({Q12-LOOP2})^}=INT, {^BIOCHILD_DELETED({Q12-LOOP2})^}={NOLABEL}=CHAR, {^BIOCHILD_STATUS( {Q12-LOOP2})^}={^BIOCHILD_OLDSTATUS({Q12-LOOP2})^}=CHAR)

COMMENT: Change the child status back to the oldstatus from deleted status.

SYMBOL({^BIOCHILD_STATCODE({Q12-LOOP2})^}=0=INT, {^BIOCHILD_DELETED( {Q12-LOOP2})^}={NOLABEL}=CHAR, {^BIOCHILD_STATUS({Q12-LOOP2})^}=" "=CHAR)

COMMENT: Change the child status back to zero from deleted status.

SYMBOL({^BIOCHILD_STATCODE({Q12-LOOP2})^}={DELSTAT}=INT, {^BIOCHILD_DELETED({Q12-LOOP2})^}={DELLABEL}=CHAR, {^BIOCHILD_STATUS({Q12-LOOP2})^}="DELETED"=CHAR)

COMMENT: Change the child status to deleted

UNTIL({Q12-LOOP2}=={TOTBIO})

COMMENT: Loop end for deleting children currently on biochild roster

XFER INTO {*BIOCHILD*} FIELDS STATCODE={^BIOCHILD_STATCODE^}, DELETED={^BIOCHILD_DELETED^}, STATUS={^BIOCHILD_STATUS^}

COMMENT: XFER into biochild roster any deletions

INTERVIEWER: DOES R HAVE ANY CHILDREN WHO WERE BORN BEFORE {lintdate~X} WHO ARE NOT LISTED ON THE BIOLOGICAL CHILD ROSTER, THAT SHOULD BE LISTED THERE?

({EVERYA}==1)

COMMENT: WAS R EVER INTERVIEWED AS YA?

Our records show that you had NOT (had/given birth to) any children of your own as of {lintdate~X}. Is that correct?

0

REPEAT

COMMENT: Loop begin to add missing biochildren

{Q12-LOOP3} + 1

SWITCH ({Q12-LOOP3}) BEGIN
CASE 1: {Q9_TEXT3} = "first";
DEFAULT: {Q9_TEXT3} = "next"; END

COMMENT: switch for text subs

What is the name of the {Q9_TEXT3} child that you have (had/given birth to) as of {lintdate~X} who we do not have listed?

(INTERVIEWER: ENTER FIRST NAME, MIDDLE INITIAL, LAST NAME.)

Is {^missbio_name({Q12-LOOP3})^} a boy or a girl?

DECODE({^MISSBIO_GENCODE({Q12-LOOP3})^}, {%D1001%}, 1)

COMMENT: Fix numeric code for child's gender

When was {^missbio_name({Q12-LOOP3})^} born?

(INTERVIEWER: IN CASE OF INVALID DATE, VERIFY CHILDS BIRTH DATE WITH R. EXPLAIN TO RESPONDENT THAT RIGHT NOW, WE ARE ONLY COLLECTING INFORMATION ABOUT CHILDREN BORN PRIOR TO {lintdate~X}. WE WILL ASK ABOUT CHILDREN BORN SINCE {lintdate~X} IN A FEW MOMENTS.)

(INTERVIEWER: YOU MUST ENTER A VALID YEAR IN THIS QUESTION. REPORT ANY UNUSUAL ANSWERS IN A COMMENT.)

SYMBOL({^MISSBIO_STATCODE({Q12-LOOP3})^}=98=INT, {^MISSBIO_FOODQ({Q12-LOOP3})^}=1=INT)

COMMENT: enter the special 'added' code for this child's status.

DATE2DAY ({^MISSBIO_BIRTH({Q12-LOOP3})^})

COMMENT: change the birthdate to a day number to compare against the last interview date.

{TOTBIO}+{Q12-LOOP3}

COMMENT: Set the ID number as the number of those already on the biochild roster plus the number of missing children.

Did you have another child that was born PRIOR to {lintdate~X} who we do not have listed?

UNTIL([Q12-16L({Q12-LOOP3})]==0)

COMMENT: Loop end for entering missing bio children

XFER INTO {*MISSBIO*} FIELDS NAME={^MISSBIO_NAME^}, ID={^MISSBIO_IDNUM^}, GENDER={^MISSBIO_SEX^}, FOODQ={^MISSBIO_FOODQ^}, BDATE={^MISSBIO_BIRTH^}, STATCODE={^MISSBIO_STATCODE^}, GENCODE={^MISSBIO_GENCODE^}

COMMENT: Copy for missing biological children into MISSBIO Roster.

CLEAN ROSTER ({*BIOCHILD2*})

COMMENT: Clean BIOCHILD2 Roster.

CLONE ROSTER {*BIOCHILD*} TO {*BIOCHILD2*}

COMMENT: Copy for missing biological children into BIOCHILD Roster.

({EVERYA}==1)

COMMENT: WAS R EVER INTERVIEWED AS YA?

APPEND * FROM {*MISSBIO*} INTO {*BIOCHILD2*}

COMMENT: Copy for missing biological children into BIOCHILD2 Roster.

COMPRESS ROSTER {*BIOCHILD2*} ON NAME

COMMENT: create new updated and corrected bio roster

XFER OUT {*BIOCHILD2*} FIELDS NAME={^BIOCHILD_NAME^}, ID={^BIOCHILD_ID^}, BDATE={^BIOCHILD_BDATE^}, GENCODE={^BIOCHILD_GENCODE^}, GENDER={^BIOCHILD_GENDER^}

COMMENT: Copy bio child information out of BIOCHILD Roster.

RECCOUNT ({*BIOCHILD2*})

COMMENT: Copy bio child information out of BIOCHILD Roster.

"ALL (OTHER) INFO CORRECT"

COMMENT: Provide choice if all child names, genders and birthdates are correct.

CLEAN ROSTER ({*BIOTMP*})

COMMENT: Clean biotmp roster.

XFER INTO {*BIOTMP*} FIELDS NAME={^BIOTMP_NAME(1)^}

COMMENT: Copy children's information for verification.

APPEND * FROM {*BIOCHILD2*} INTO {*BIOTMP*}

XFER OUT {*BIOTMP*} FIELDS NAME={^BIOCHILDCHG_NAME^}, ID={^BIOCHILDCHG_ID^}, BDATE={^BIOCHILDCHG_BDATE^}, GENDER={^BIOCHILDCHG_GENDER^}

COMMENT: Copy all information out of BIOTMP Roster.

I'd like to read the information about your children from our records.

0

REPEAT

COMMENT: Start loop to verify final bio Roster.

{Q12-LOOP4} + 1

(FOR EACH CHILD, READ:) Our records show that (CHILD) is a (SEX) and was born on (BIRTHDATE). Is that correct?

(INTERVIEWER: IF ALL INFO CORRECT, CLICK ON THE BUTTON FOR "ALL (OTHER) INFO CORRECT," THEN CLICK "SUBMIT AND CONTINUE" TO CONTINUE.

IF ANY INFORMATION IS INCORRECT , CLICK ON THE BUTTON NEXT TO THE CHILD'S RECORD, THEN CLICK ON "SUBMIT AND CONTINUE". YOU WILL THEN BE ABLE TO CORRECT INFORMATION ON THE NEXT SCREEN FOR THE CHILD YOU SELECTED.)

(INTERVIEWER: MARK INFORMATION THAT IS INCORRECT. IF NECESSARY PROBE:)
Is {^biochildchg_name({^Q12-19({Q12-LOOP4})^})^}'s name correct?
Is {^biochildchg_name({^Q12-19({Q12-LOOP4})^})^}'s birthdate correct? (BIRTHDATE={^biochildchg_bdate({^Q12-19({Q12-LOOP4})^})~X^} )
Is {^biochildchg_name({^Q12-19({Q12-LOOP4})^})^}'s sex correct? (SEX={^biochildchg_gender({^Q12-19({Q12-LOOP4})^})^})


(MARK ALL THAT APPLY)

INSELECTION([Q12-19C({Q12-LOOP4})],1)

COMMENT: Check if answered name was incorrect. ({Q12-LOOP4})

What is the correct name and spelling for {^biochildchg_name({^Q12-19({Q12-LOOP4})^})^}?


(INTERVIEWER: RECORD CORRECT NAME AND/OR SPELLING.)

XFER INTO {*BIOTMP*} TO {^Q12-19({Q12-LOOP4})^} FIELDS NAME={^BIOCHILDCHG_NAME({^Q12-19({Q12-LOOP4})^})^}

COMMENT: Copy first corrected child name into BIOTMP Roster.

INSELECTION([Q12-19C({Q12-LOOP4})],4)

COMMENT: Check if answered birthdate was incorrect. ({Q12-LOOP4})

What is the correct birthdate for {^biochildchg_name({^Q12-19({Q12-LOOP4})^})^}?


(INTERVIEWER: RECORD CORRECTED BIRTHDATE.)

(INTERVIEWER: YOU MUST ENTER A VALID YEAR IN THIS QUESTION. REPORT ANY UNUSUAL ANSWERS IN A COMMENT.)

XFER INTO {*BIOTMP*} TO {^Q12-19({Q12-LOOP4})^} FIELDS BDATE={^BIOCHILDCHG_BDATE({^Q12-19({Q12-LOOP4})^})^}

COMMENT: Copy corrected child birthdate into BIOTMP Roster.

INSELECTION([Q12-19C({Q12-LOOP4})],5)

COMMENT: Check if answered sex was incorrect. ({Q12-LOOP4})

(INTERVIEWER: IF NOT OBVIOUS, ASK:) What is the correct sex of {^biochildchg_name({^Q12-19({Q12-LOOP4})^})^}?

(INTERVIEWER: RECORD CORRECTED GENDER.)

DECODE ({^BIOCHILDCHG_GENCODE({^Q12-19({Q12-LOOP4})^})^},
{%D1001%}, 1)

COMMENT: Fix numeric code for child's gender

XFER INTO {*BIOTMP*} TO {^Q12-19({Q12-LOOP4})^} FIELDS GENDER={^BIOCHILDCHG_GENDER({^Q12-19({Q12-LOOP4})^})^}, GENCODE={^BIOCHILDCHG_GENCODE({^Q12-19({Q12-LOOP4})^})^}

COMMENT: Copy corrected child gender into BIOTMP Roster.

UNTIL({^Q12-19({Q12-LOOP4})^}==1)

COMMENT: End loop to verify final bio roster

CLONE ROSTER {*BIOTMP*} TO {*BIOCHILD3*}

COMMENT: create new updated and corrected bio roster

COMPRESS ROSTER {*BIOCHILD3*} ON BDATE

COMMENT: create new updated and corrected bio roster

INTERVIEWER: BELOW IS THE CORRECTED BIOLOGICAL CHILD ROSTER AS OF {lintdate~X}. REVIEW THE ROSTER TO BE SURE THAT IT IS CORRECT. IF THE ROSTER IS NOT CORRECT, RETURN TO THE PREVIOUS QUESTIONS BY CLICKING ON THE BACK ARROW ICON AND CORRECT AS NEEDED.

IF EVERYTHING IS CORRECT, CLICK "SUBMIT AND CONTINUE" TO GO FORWARD.

XFER OUT {*BIOCHILD3*} FIELDS ID={^BIOCHILD_ID^}, NAME={^BIOCHILD_NAME^}, GENDER={^BIOCHILD_GENDER^}, BDATE={^BIOCHILD_BDATE^}, STATCODE={^BIOCHILD_STATCODE^}, GENCODE={^BIOCHILD_GENCODE^}

COMMENT: copy all children from child roster to save indexes

RECCOUNT ({*BIOCHILD3*})

({EVERYA}==1)

COMMENT: WAS R EVER INTERVIEWED AS YA?

Now I would like to ask you about any BIOLOGICAL children you have had, if any, SINCE {lintdate~X}, (the date of your LAST interview).

Please tell me if you have had any biological children since {lintdate~X}, not counting any babies who were stillborn?

How many children have you had since {lintdate~X}? (IF NECESSARY READ: not counting any babies who were stillborn? AND/OR ....or dead at birth?)

CLONE ROSTER {*Biochild2*} TO {*Biochild3*}

COMMENT: Copy for missing biological children into BIOCHILD Roster.

Please tell me if you have had any biological children?

How many children have you had not counting any babies who were dead at birth?

0

REPEAT

COMMENT: Begin Loop for adding new bio children.

{Q12-LOOP11} + 1

SWITCH ({Q12-LOOP11}) BEGIN
CASE 1: {Q9_TEXT11} = "first";
DEFAULT: {Q9_TEXT11} = "next"; END

COMMENT: Switch for Text sub

What did you name your {Q9_TEXT11} {old_sin}?

(INTERVIEWER: ENTER FIRST NAME, MIDDLE INITIAL AND LAST NAME.)

Was the baby a boy or a girl?

DECODE({^NEWBIO_GENCODE({Q12-LOOP11})^}, {%D1001%}, 1)

COMMENT: Fix numeric code for child's gender

When was your child born?

(INTERVIEWER: YOU MUST ENTER A VALID YEAR IN THIS QUESTION. REPORT ANY UNUSUAL ANSWERS IN A COMMENT.)

{^NEWBIO_BIRTH({Q12-LOOP11})^}

COMMENT: Enter child's birth date as minimum for date of death.

SYMBOL ({^NEWBIO_STATCODE({Q12-LOOP11})^}=97=INT, {^NEWBIO_FOODQ({Q12-LOOP11})^}=1=INT)

COMMENT: enter the status code of 97, denoting a new child.

{TOTBIO3} + {Q12-LOOP11}

COMMENT: enter the new child's idnum.

UNTIL({Q12-LOOP11}=={TOTNEW})

COMMENT: loop end about new bio children

XFER INTO {*NEWBIO*} FIELDS NAME={^NEWBIO_NAME^}, ID={^NEWBIO_IDNUM^} ,GENDER={^NEWBIO_SEX^}, BDATE={^NEWBIO_BIRTH^}, STATCODE={^NEWBIO_STATCODE^}, FOODQ={^NEWBIO_FOODQ^}, GENCODE={^NEWBIO_GENCODE^}

COMMENT: Copy for new biological children into NEWBIO Roster.

XFER OUT {*NEWBIO*} FIELDS ID={^NEWBIO_ID^}

COMMENT: transfer out the new child's hhiflag in roster.

CLEAN ROSTER ({*BIOCHILD4*})

COMMENT: Clean Biochild4 roster

CLONE ROSTER {*BIOCHILD3*} TO {*BIOCHILD4*}

COMMENT: Copy Biochild roster onto new roster for appending

APPEND * FROM {*NEWBIO*} INTO {*BIOCHILD4*}

COMMENT: Append new bio children to biochild roster

XFER OUT {*BIOCHILD4*} FIELDS NAME={^BIOCHILD_NAME^}, ID={^BIOCHILD_ID^}, GENDER={^BIOCHILD_GENDER^}, BDATE={^BIOCHILD_BDATE^}, FOODQ={^BIOCHILD_FOODQ^}, STATCODE={^BIOCHILD_STATCODE^}, STATUS={^BIOCHILD_STATUS^}, HHIFLAG={^BIOCHILD_HHIFLAG^}, GENCODE={^BIOCHILD_GENCODE^},
BIRTHRESQ={^BIOCHILD_BIRTHRESQ^},
MATLVQ={^BIOCHILD_MATLVQ^}

COMMENT: Get current number of bio children on roster

RECCOUNT ({*BIOCHILD4*})

{TOTNEW} > 1

COMMENT: Are there at least two kids?

SORT {*BIOCHILD4*} ON BDATE /A

COMMENT: Sort BIOCHILD roster by birthdate to put children in order from oldest to youngest to check for twins/tripletts/etc.

0

REPEAT

COMMENT: Start loop to check for twins/triplets/etc.

{Q12-LOOP15} + 1

(INTERVIEWER: CHECK (AGAIN) FOR CHILDREN WITH THE SAME BIRTHDATE. FOR EACH PAIR OR GROUP OF NON-DELETED CHILDREN WITH THE SAME BIRTHDATE, ASK:)

Is it correct that (READ NAMES OF CHILDREN WITH SAME BIRTHDATES) are (twins/triplets/etc.)?

(ENTER R'S RESPONSE ON NEXT SCREEN. IF NO MORE CHILDREN HAVE SAME BIRTHDATE, ENTER NO ON NEXT SCREEN.)

INTERVIEWER: ARE THERE ANY TWINS/TRIPLETS/ETC. LISTED ON THE ROSTER OF BIOLOGICAL CHILDREN ON PREVIOUS SCREEN? ENTER R'S RESPONSE BELOW.

INTERVIEWER: VERIFY THE BIRTHDATE INFORMATION FOR THE CHILDREN INCORRECTLY LISTED AS TWINS/TRIPLETS/ETC. CLICK ON "MODIFY ROW" AS NECESSARY TO CORRECT CHILD INFORMATION. IF RESPONDENT CONFIRMS BIRTHDATES LISTED, EXPLAIN IN AN INTERVIEWER COMMENT.

(INTERVIEWER: TO VERIFY, SELECT THE NAME OF THE FIRST TWIN CHILD IDENTIFIED ON THE CHILD ROSTER BELOW AND ASK:)

Are (CHILD NAME 1) and (CHILD NAME 2) identical twins or are they fraternal twins?

(CLICK ON "SUBMIT AND CONTINUE" AND ENTER ANSWER ON NEXT SCREEN. IF THEY ARE OF DIFFERENT SEXES, THEY ARE FRATERNAL TWINS.)

(Are (CHILD NAME 1) and (CHILD NAME 2) identical twins or are they fraternal twins?)

(INTERVIEWER: IF TWINS NOT THE SAME SEX, THEY ARE FRATERNAL.)

Are they (REPEAT CHILDREN'S NAMES IF NECESSARY) often mistaken for each other, or are they different enough to tell apart?

(INTERVIEWER: TO VERIFY, SELECT THE NAME OF THE FIRST TRIPLET IDENTIFIED ON THE CHILD ROSTER BELOW AND ASK:)

Are (CHILD NAME 1), (CHILD NAME 2) and (CHILD NAME 3) identical triplets, are they fraternal triplets or is there a combination?

(CLICK "SUBMIT AND CONTINUE" AND ENTER RESPONSE ON NEXT SCREEN)

(Are (CHILD NAME 1), (CHILD NAME 2) and (CHILD NAME 3) identical triplets or are they fraternal triplets?)

Are they (REPEAT CHILDREN'S NAMES IF NECESSARY) often mistaken for each other, or are they different enough to tell apart?

UNTIL([Q12-29J({Q12-LOOP15})]==0)

COMMENT: End loop when no more twins,triplets,etc..

XFER OUT {*BIOCHILD4*} WHERE STATCODE!=99 FIELDS NAME={^SBIOCHILD_NAME^}, ID={^SBIOCHILD_ID^}, GENDER={^SBIOCHILD_GENDER^}, BDATE={^SBIOCHILD_BDATE^}, STATCODE={^SBIOCHILD_STATCODE^}, STATUS={^SBIOCHILD_STATUS^}, HHIFLAG={^SBIOCHILD_HHIFLAG^}, GENCODE={^SBIOCHILD_GENCODE^}

COMMENT: COPY BDAY-SORTED BIO INFO FROM BIOCHILD4 ROSTER

RECCOUNT ({*BIOCHILD4*})

{STOTBIO4} > 0

COMMENT: Is there at least one child on BIOCHILD roster not deleted?

SYMBOL({OLDESTKID}={^SBIOCHILD_NAME({TB4GTZ})^}=CHAR, {OLDESTKIDBDATE}={^SBIOCHILD_BDATE({TB4GTZ})^}=DATE, {YNGSTKID}={^SBIOCHILD_NAME({STOTBIO4})^}=CHAR, {YNGSTKIDBDATE}={^SBIOCHILD_BDATE({STOTBIO4})^}=DATE)

COMMENT: Fix name and birthdate of oldest and youngest child.

SORT {*BIOCHILD4*} ON ID /A

COMMENT: Sort BIOCHILD roster by id to put children in order from first reported to last reported.

{TOTBIO4} > 0

COMMENT: Is there at least one child on BIOCHILD roster?

0

REPEAT

COMMENT: Start loop for future text substitutions

{Q12-LOOP12} + 1

SWITCH ({^BIOCHILD_GENCODE({Q12-LOOP12})^}) BEGIN
CASE 1: {^BIO_HESHE({Q12-LOOP12})^} = "he";
CASE 2: {^BIO_HESHE({Q12-LOOP12})^} = "she";
DEFAULT: {^BIO_HESHE({Q12-LOOP12})^} = "(he/she)"; END

COMMENT: Text subs based on child's gender.

SWITCH ({^BIOCHILD_GENCODE({Q12-LOOP12})^}) BEGIN
CASE 1: {^BIO_HIMHER({Q12-LOOP12})^} = "him";
CASE 2: {^BIO_HIMHER({Q12-LOOP12})^} = "her";
DEFAULT: {^BIO_HIMHER({Q12-LOOP12})^} = "(him/her)"; END

COMMENT: Text substitutions based on child's gender.

SWITCH ({^BIOCHILD_GENCODE({Q12-LOOP12})^}) BEGIN
CASE 1: {^BIO_HISHER({Q12-LOOP12})^} = "his";
CASE 2: {^BIO_HISHER({Q12-LOOP12})^} = "her";
DEFAULT: {^BIO_HISHER({Q12-LOOP12})^} = "(his/her)"; END

UNTIL({Q12-LOOP12}=={TOTBIO4})

COMMENT: Start loop for future text substitutions

0

REPEAT

{Q12-LOOP14} + 1

{^BIOCHILD_ID({Q12-LOOP14})^}

COMMENT: fixed question- child's idnumber.

{^BIOCHILD_NAME({Q12-LOOP14})^}

COMMENT: fixed answer question- child's name.

{^BIOCHILD_GENCODE({Q12-LOOP14})^}

COMMENT: fixed answer question- child's name.

SWITCH ({^BIOCHILD_GENCODE({Q12-LOOP14})^}) BEGIN
CASE 1: {BIOCHILD_HIS_HER} = "his";
CASE 2: {BIOCHILD_HIS_HER} = "her";
DEFAULT : {BIOCHILD_HIS_HER} = "his or her"; END

COMMENT: Switch based on gender to ask about other parent

SWITCH ({^BIOCHILD_GENCODE({Q12-LOOP14})^}) BEGIN
CASE 1: {BIOCHILD_HE_SHE} = "he";
CASE 2: {BIOCHILD_HE_SHE} = "she";
DEFAULT : {BIOCHILD_HE_SHE} = "he or she"; END

COMMENT: Switch based on gender to ask about other parent

1

COMMENT: Set other bio parent deceased flag to zero

99

COMMENT: Set visitation flag to 99

{^BIOCHILD_STATCODE({Q12-LOOP14})^}

COMMENT: Check the status of the child. if deleted skip to the next child. If new or added, ask residence at birth sequence.

{^BIOCHILD_BIRTHRESQ({Q12-LOOP14})^}

COMMENT: Has residence at birth sequence already been completed?

At the time {^BIOCHILD_NAME({Q12-LOOP14})^} was born, what was your relationship to {^BIOCHILD_NAME({Q12-LOOP14})^}'s biological {MOM_DADLC}? Were you...

Did {^BIOCHILD_NAME({Q12-LOOP14})^} live with you immediately after {BIOCHILD_HIS_HER} birth?

{^BIOCHILD_STATCODE({Q12-LOOP14})^}

COMMENT: Check the status of the child. if deceased or deleted, or adopted out skip to the next child. If the child is added, skip to appropriate question

Where does {^BIOCHILD_NAME({Q12-LOOP14})^} usually live?

(INTERVIEWER: CODE WITHOUT READING CATEGORIES)

0

COMMENT: Set other bio parent in HH flag to zero

GETSUBDATE({^BIOCHILD_BDATE({Q12-LOOP14})^}, "MMYYYY", "CHAR")

COMMENT: Enter child's birth date as minimum for date of death in MMYYYY format.

{^BIOCHILD_HHIFLAG({Q12-LOOP14})^}

COMMENT: Enter code for hhiflag.

When did {^BIOCHILD_NAME({Q12-LOOP14})^} die?

SYMBOL({^BIOCHILD_HHIFLAG({Q12-LOOP14})^}=8=INT,{^BIOCHILD_MOMDADHH({Q12-LOOP14})^}=0=INT)

COMMENT: Set HHIFLAG to '08' if child is preprinted deceased.