/* THIS is the file containing all created variables for the
Thai Community Questionnaire: COMMVAR.SAS 
Last updated: 7/5/98 */

/* Getting rid of 'bad' numbers */

if ctlpop1 = 9998 then ctlpop1 = . ;
if cmpop1 = 998 then cmpop1 = . ;
if cfpop1 = 998 then cfpop1 = . ;
if ctlpop2 = 9998 then ctlpop2 = . ;
if cmpop2 = 998 then cmpop2 = . ;
if cfpop2 = 998 then cfpop2 = . ;
if ctlpop3 = 9998 then ctlpop3 = . ;
if cmpop3 = 998 then cmpop3 = . ;
if cfpop3 = 998 then cfpop3 = . ;
if cq4 = 9999 then cq4 = .;

/* CREATED VARIABLES
******************** */

/* 1.	COMMUNITY SETTING: page 1*/

ctlpop = ctlpop1 + ctlpop2 + ctlpop3;
	label ctlpop = 'Total population (where available)';

if 0 <ctlpop<436 then comsiz = 1;
if 436<ctlpop<731 then comsiz = 2;
if 731 < ctlpop then comsiz = 3;
if comsiz = . then comsiz = 2;
	label comsiz = 'Comsiz: 1 Small 2 Medium 3 Large';

	/* Community: Q.10, p 3) */

if cq10 =1 then livalone = 1; else livalone = 0;
	label livalone = 'Whether any elderly living without children';

if cq10_2a =1 then lival1 = 1; else lival1 = 0;
if cq10_2b =1 then lival2 = 1; else lival2 = 0;
if cq10_2c =1 then lival3 = 1; else lival3 = 0;
if cq10_2d =1 then lival4 = 1; else lival4 = 0;
if cq10_2e =1 then lival5 = 1; else lival5 = 0;
if cq10_2f =1 then lival6 = 1; else lival6 = 0;
if cq10_2g =1 then lival7 = 1; else lival7 = 0;

if  lival4 = 1 | lival7 = 1 then
brkdown = 1; else brkdown = 0;
label brkdown='break-down of social norms';





	/* Community: Q.11, p 4) */

if cq11 = 0 then commold = 0;
if cq11 = . then commold = 0.558;
if cq11 =1 then commold = 1; 

	label commold = 'Existence of old age care in village';

if cq12a1 = 9 then rentland = .; 
if cq12a1 = 1 then rentland = 1; 
if cq12a1 = 2 then rentland = 0;
	label rentland = 'Existence of rental markets';

if rentland = 0 then numrent = 0;
if cq12a2 = 3 then numrent = 1;
if cq12a2 = 2 then numrent = 2;
if cq12a2 = 1 then numrent = 3;
	label numrent = 'Propn of hh renting land';

rentmkt = rentland * numrent;
	label rentmkt = 'Active market for renting land';

nfamsold = cq16_1;
if cq16_1 = 97 then nfamsold = .;
if cq16_1 = 99 then nfamsold = .;

prf1 = (nfamsold/cq2)*100;

if 0.1 < prf1 < 15 then prf1a = 1;
if 16< prf1 < 35 then prf1a = 2;
if 36< prf1 < 65 then prf1a = 3;
if 66<prf1<85 then prf1a = 4;
if 86<prf1 then prf1a = 5;

prldsold = cq16_1a;
if cq16_1a = 7 then prldsold = .;
if cq16_1a = 9 then prldsold = .;

nlndsal5 = cq17;
if cq17 = 97 then nlndsal5 = .;
if cq17 = 99 then nlndsal5 = .;

prf2 = (nlndsal5/cq2)*100;

if 0.1 < prf2 < 15 then prf2a = 1;
if 16< prf2 < 35 then prf2a = 2;
if 36< prf2 < 65 then prf2a = 3;
if 66<prf2<85 then prf2a = 4;
if 86<prf2 then prf2a = 5;

if cq17a = 7 then plndsal5 = .;
else plndsal5 = cq17a;

/* land variables were not considered since there is no variation, 
with most villages either having missing values for sale of land,
or a very low proportion */

/* 2. TRANSPORTATION AND FACILITIES: Page 9 */

	/* Community: Q. 24, p. 11 */

urbdist =cq24b1;
	label urbdist = 'distance from urban area';

	/* Community: Q.26, p 13) */

/* (Note: The corr between bank and agbank is 1.0; hence agbank is dropped) */

yesbank = cq26a1; if cq26a1 = 9 then yesbank = .; 
 
yescoop = cq26d1; if cq26d1 = 9 then yescoop = .; 

if cq26a3 = 9 then savuse1 = .;
	else savuse1 = cq26a3;

if cq26d3 = 9 then savuse3 = .;
	else savuse3 = cq26d3;

savuse12 = 2 * savuse1;

savuse = sum (savuse12, savuse3);
	label savuse  = 'Measure of use of savings facilities';

/* This measure was not used since the use is actually
quite private, and not easily known to village headman, second, it 
is use is endogenous, while access is exogenous */

if cq26a2 = 999 then distbank = .; else distbank = cq26a2;
if cq26d2 = 999 then distcoop = .; else distcoop = cq26d2;

if yesbank = 1 then savdist1 = 0;  else savdist1 = distbank;
if yescoop = 1 then savdist3 = 0; else savdist3 = distcoop;

savdist = sum (savdist1, savdist3);
	label savdist = 'Measure of distance of savings facilities';

if 0<= savdist <= 5 then svaccess = 10;
if 6<= savdist<=10 then svaccess = 8;
if 11<= savdist <= 15 then svaccess = 6;
if 16 <=  savdist <= 20 then svaccess = 4;
if 21 <=  savdist <= 30 then svaccess = 2;
if 31 <=  savdist <= 50 then svaccess = 1;
if 51 <= savdist then svaccess = 0;

/* try a log; also weight bank as twice the coop */


	label svaccess = 'Access to savings institutions';

sav2dist = savdist * savdist;

	/* Community: Q.26, p 13) */

if (cq26c2 < 5) then commins = 3;
if (cq26c2 < 10) then commins = 2;
if (cq26c2 < 15) then commins = 1; else commins = 0;
	label commins = 'Access to insurance';

/* 3. ELECTRICITY: Page 14 */

nelect0 = cq30;
	if cq30 = 997 then nelect10 = .;
	
nnelect = (nelect30/cq4)*100;

if nnelect = 0 then npelect = 0;
if 0 < nnelect <= 15 then npelect = 1;
if 16 < nnelect <= 35 then npelect = 2;
if 36 < nnelect <= 65 then npelect = 3;
if 66 < nnelect <= 85 then npelect = 4;
if 86 < nnelect then npelect = 5;

if npelect ne . then pelect10 = npelect;
if npelect = . then pelect10 = cq30a;
if cq30a = 9 then pelect10 = .;
	label pelect10 = 'Propn. houses with electric 10 yrs ago'; */

ptvown = cq31;
	if cq31 = 9 then ptvown = .;
	label ptvown = 'Propn. houses with electric 10 yrs ago';





/* 4. EDUCATION : Page 16 */

/* 5. SOCIAL INSTITUTIONS AND DEVELOPMENT PROGRAMS: Page 18 */

/* 6. ENVIRONMENT: Page 19 */

/* 7. AGRICULTURE: Page 21 */

/* 8. NON-AGRICULTURAL JOB MARKET: Page 23 */

if cq43 = 1 then nonag = 1; else nonag = 0;
	label nonag = 'Existence of non-agril opp  20 km';


if cq46 = 1 then chgempl = 1;
if cq46 = 2 then chgempl = .5;
if cq46 = 3 then chgempl = 0;
if cq46 = 4 then chgempl = -0.5;
if cq46 = 5 then chgempl = -1;

inc_chg = sum(minc1 + finc1)/ sum(minc2+finc2);
	label inc_chg = 'Ratio of incomes today and 10yrs ago';

chg_opp = sum (inc_chg + chgempl);
	label chg_opp = 'Change in opportunity in community';

/* 9. FERTILITY, MORTALITY AND FAMILY PLANNING: Page 25 */

	/* Q. 48, p. 25 */
if ctlpop = . then ctlpop = 600;
cfertil = (cq48/ctlpop)*1000; 

if 0 < cfertil < 9.63 then ferlev = 1;
if 9.63<cfertil < 16.2443 then ferlev = 2;
if 16.24 <cfertil then ferlev = 3;
	label ferlev = 'Ferlev: 1 Low 2 Medium 3 High';

	/* q.49 p 25 */

if cq49 = . then imort = .; else imort = cq49;

cimr = (imort/ctlpop)*1000;
	label cimr = 'Community infant mortality rate';

	/* q.61, p. 28 */

if cq60a = . then largefam = .;  else largefam = cq60a;
	label largefam = 'Propn of large families in village';	

/* 10. HEALTH AND FAMILY PLANNING SERVICES Page 29*/

if cq62 = 1 then doctor = 1; else doctor = 0;

if cq63 =1 then mobile = 1; else mobile = 0;

if cq64 = 1 then hvolunt = 1; else hvolunt = 0;

if doctor = 1 then score1 = 0;
if doctor = 0 then score1 = 3;

if cq63 = 1 and (cq63_1f = 2 | cq63_1f = 3) then score2 = 1;
if cq63 = 1 and (cq63_1f = 1) then score2 = 2;
if cq63 = 2 then score2 = 4;
	/* Effect of a mobile clinic */

if cq64 = 1 and cq64_1 = 1 then score3 = 0;
if cq64 = 1 and cq64_1 = 2 then score3 = 1;
if cq64 = 2 then score3 = 3;
	/* Effect of a health volunteer */

if mobile = 1 and hvolunt = 1 then rc1 = 0;
if mobile = 1 and hvolunt = 0 then rc1 = 1;
if mobile = 0 and hvolunt = 1 then rc1 = 1;
if mobile = 0 and hvolunt = 0 then rc1 = 3;
	/* joint effect of mobile + heal.volunt */

if thc1 = . then rc3 = .;
if 0 <= thc1 <= 4 then rc3 = 0;
if 4< thc1 <8 then rc3 = 2;
if thc1 >= 8 then rc3 = 3;
if thc1 =99 then rc3 = .;
	/* effect of distance to health center */

if thc3 = . then rc2 = .;
if thc3 = 1 then rc2 = 0;
if thc3 = 2 | thc3 = 3 then rc2 = 1;
if thc3 = 4 | thc3 = 5  then rc2 = 2;
if thc3 = 6 | thc3 = 7 then rc2 = 3;
if thc3 = 9 then rc2 = .;
	/* effect of time taken to reach health center */

rc = sum (rc1, rc3);
	label rc = 'Cost of fertility regulation';

rc_old = sum(score2, score3);