/*  This program creates the following household variables for Round 19:

  	1. Household size = HHSIZE
  	2. Number of household members less than 6 years old = UNDER6
  	3. Number of household members less than 18 years old = UNDER18
    
    In Investigator, they are called, CV_HH_SIZE, CV_HH_UNDER_6, CV_UNDER_18

The following variables are used:

Variable name            Question
in program   			 in survey

     HAGE01 = HHI_AGE.01_2019
     HAGE02 = HHI_AGE.02_2019
     HAGE03 = HHI_AGE.03_2019
     HAGE04 = HHI_AGE.04_2019
     HAGE05 = HHI_AGE.05_2019
     HAGE06 = HHI_AGE.06_2019
     HAGE07 = HHI_AGE.07_2019
     HAGE08 = HHI_AGE.08_2019
     HAGE09 = HHI_AGE.09_2019
     HAGE10 = HHI_AGE.10_2019
     HAGE11 = HHI_AGE.11_2019
     HAGE12 = HHI_AGE.12_2019
     HAGE13 = HHI_AGE.13_2019
     HAGE14 = HHI_AGE.14_2019
     HAGE15 = HHI_AGE.15_2019
     HAGE16 = HHI_AGE.16_2019
     HAGE17 = HHI_AGE.17_2019
     HUID01 = HHI_UID.01_2019
     HUID02 = HHI_UID.02_2019
     HUID03 = HHI_UID.03_2019
     HUID04 = HHI_UID.04_2019
     HUID05 = HHI_UID.05_2019
     HUID06 = HHI_UID.06_2019
     HUID07 = HHI_UID.07_2019
     HUID08 = HHI_UID.08_2019
     HUID09 = HHI_UID.09_2019
     HUID10 = HHI_UID.10_2019
     HUID11 = HHI_UID.11_2019
     HUID12 = HHI_UID.12_2019
     HUID13 = HHI_UID.13_2019
     HUID14 = HHI_UID.14_2019
     HUID15 = HHI_UID.15_2019
     HUID16 = HHI_UID.16_2019
     HUID17 = HHI_UID.17_2019
;
SAS Code for Variable Creation

ARRAY HAGE 		HAGE01-HAGE17;
ARRAY HUID 		HUID01-HUID17;

/* Create dummy variables HHDUM[I] (I=1 TO 17)  that equal one if the ith member has a member ID, and zero
if the ith member does not have a member ID (i.e.HHID0i=-4). Also create dummies for the age:DUM6[I] (I=1 TO 17)
that equal 1 if the ith household member is under age 6 and DUM18[I] (I=1 TO 17) that equal 1 if the ith
household member is under age 18.*/

ARRAY HHDUM 	HHDUM01-HHDUM17;
ARRAY DUM6  	DUM601-DUM617;
ARRAY DUM18 	DUM1801-DUM1817;

DO I=1 TO 17;
   HHDUM[I]=0;
   DUM6[I]=0;
   DUM18[I]=0;
END;

DO I=1 TO 17;
   IF HUID[I]>-1 THEN HHDUM[I]=1;
   IF -1<HAGE[I]<6 THEN DUM6[I]=1;
   IF -1<HAGE[I]<18 THEN DUM18[I]=1;
   IF -4<HAGE[I]<0 THEN DO;
   	DUM18[I]=-3;
   	UND6=-3;
   END;
END;

/* Create household size HHSIZE by adding up the dummies HHDUM[I] and also add one due to the respondent himself.
Similarly, create variabes UNDER6 AND UNDER18 by adding up the other two dummies.*/

HHSIZE=1;
UNDER6=0;
UNDER18=0;

DO I=1 TO 17;
   HHSIZE=HHSIZE+HHDUM[I];
   UNDER6=UNDER6+DUM6[I];
   UNDER18=UNDER18+DUM18[I];
END;

/* these set various variables to -3 or -5, for example if the hh dummy6 is -3 then under 6 = -3
   and dummy uner18 = -3 then under18 is -3  */

DO I=1 to 17;
   IF DUM6[I]=-3 then UNDER6=-3;
   IF DUM18[I]=-3 then UNDER18=-3;
END;

IF HUID01=-5 THEN HHSIZE=-5;

DO I=1 TO 17;
	IF -4<HUID[I]<0 THEN HHSIZE=-3;
END;

IF HUID01=-5 THEN UNDER6=-5;
IF HUID01=-5 THEN UNDER18=-5;

DO I=1 TO 17;
	IF  -4<HAGE[I]<0  THEN PRT1=-3;
 END;

IF HHSIZE=-3 THEN DO;
   UNDER6=-3;
   UNDER18=-3;
END;

IF UND6=-3 THEN DO;
   UNDER6=-3;
END;