#delimit;
clear;
set more off;
set linesize 240;

set mem 150m;

global path ~/data;

capture log close;
*log using $path/taiwan/kap/kapsurveys.log, replace;

/*================================================
 Program: kapsurveys.do
 Author:  Avi Ebenstein
 Created: April 2006
 Purpose: Creates moms_china1982, moms_china1990,
	    moms_us, moms_vietnam
=================================================*/

local kapyears "1965 1967 1970 1973 1979 1986";
foreach i of local kapyears{;
use $path/taiwan/kap/kap`i'/kap_`i'.dta, clear;
do $path/taiwan/kap/dofiles/kap`i'.do;
save $path/taiwan/kap/kapdata/k`i', replace;
};

*====================================================;
* Women's marriage, fertility, and employment survey ;
*====================================================;

qui infile using $path/taiwan/kap/dofiles/kap1993.dct, using($path/taiwan/kap/dgbas/rawdata/Women1993) clear;
gen mbirthyear=1993-mage;
save $path/taiwan/kap/kapdata/k1993, replace;

qui infile using $path/taiwan/kap/dofiles/kap2003.dct, using($path/taiwan/kap/dgbas/rawdata/Women2000) clear;
gen mbirthyear=2000-mage;
save $path/taiwan/kap/kapdata/k2000, replace;

qui infile using $path/taiwan/kap/dofiles/kap2003.dct, using($path/taiwan/kap/dgbas/rawdata/Women2003) clear;
gen mbirthyear=2003-mage;
save $path/taiwan/kap/kapdata/k2003, replace;

*========================;
* Create pooled KAP data ;
*========================;

local kapyears "1965 1967 1970 1973 1979 1986 1993 2000 2003";
foreach i of local kapyears{;
use $path/taiwan/kap/kapdata/k`i', replace;

*******************************************;
* Get rid of variables I want to construct ;
*******************************************;

capture drop mage;
capture drop myrsed;

***********************************;
* Chinese calendar recode for year ;
***********************************;

replace mbirthyear=mbirthyear+1911 if mbirthyear<1000;

***********************************;
* Year and birthyear               ;
***********************************;

capture gen year=.;
replace year=`i';
gen mage=`i'-mbirthyear;

*==========================================;
* Family type designation for ICPSR Data   ;
*==========================================;

if year==1965{;
for num 1/7: gen bX=kX==1;
for num 1/7: gen gX=kX==2;
gen kids=0;
for num 1/7: replace kids=X if kX==1|kX==2;
drop k1 k2 k3 k4 k5 k6 k7;
do ~/research/abortion/dofiles/famtype.do;
gen agefirst=(yearfirst+1911)-mbirthyear;
};

if year==1967{;
for num 1/7: gen bX=kX==1;
for num 1/7: gen gX=kX==2;
gen kids=0;
for num 1/7: replace kids=X if kX==1|kX==2;
drop k1 k2 k3 k4 k5 k6 k7;
do ~/research/abortion/dofiles/famtype.do;              
gen agefirst=(yearfirst+1911)-mbirthyear;
};

/* No info in 1970 */
if year==1973{;
for num 1/5: gen bX=sexX==1;
for num 1/5: gen gX=sexX==2;
for num 1/5: gen kX=sexX==1|sexX==2;
gen kids=0;
for num 1/5: replace kids=X if kX==1;
drop k1 k2 k3 k4 k5;
do ~/research/abortion/dofiles/famtype.do;              
gen agefirst=(yearfirst+1911)-mbirthyear;
};

if year==1979{;
for num 1/5: gen bX=sexX==1;
for num 1/5: gen gX=sexX==2;
for num 1/5: gen kX=sexX==1|sexX==2;
gen kids=0;
for num 1/5: replace kids=X if kX==1;
drop k1 k2 k3 k4 k5;
do ~/research/abortion/dofiles/famtype.do;              
gen agefirst=(yearfirst+1911)-mbirthyear;
};

if year==1986{;
for num 1/5: gen bX=sexX==1;
for num 1/5: gen gX=sexX==2;
for num 1/5: gen kX=sexX==1|sexX==2;
gen kids=0;
for num 1/5: replace kids=X if kX==1;
drop k1 k2 k3 k4 k5;
do ~/research/abortion/dofiles/famtype.do;              
gen agefirst=mage-age1;

replace kstar=kstar8 if kstar==8;
drop if bstar==8;
replace gstar=. if gstar==8;
};

***********************************;
* Newest KAP data has special code ;
***********************************;

if year==1993|year==2000|year==2003{;
gen mworking=empstat==1|empstat==2|empstat==3;
gen kids=boys+girls;
gen yearfirst=(year1+1911);
gen yearsecond=(year2+1911);
gen yearthird=(year3+1911);
gen yearfourth=(year4+1911);

gen agefirst=yearfirst-mbirthyear;
gen agesecond=yearsecond-mbirthyear;
gen agethird=yearthird-mbirthyear;
gen agefourth=yearfourth-mbirthyear;

gen gap1=(year2-year1)+(month2-month1)/12;
gen gap2=(year3-year2)+(month3-month2)/12;
gen gap3=(year4-year3)+(month4-month3)/12;

for any agefirst agesecond agethird agefourth gap1 gap2 gap3: replace X=. if X<0;

**********************;
* Recode indiffirence ;
**********************;
capture gen indiff=.;
replace indiff=1 if indiff==2;
};

*===============================================;
* 		End of Special Code  	        ;
*===============================================;

***********************;
* Education categories ;
***********************;

gen myrsed=.;
do $path/taiwan/kap/dofiles/myrsed.do;

*****************************************;
* Convert education back into categories ;
*****************************************;

gen edcat=0;
replace edcat=1 if inrange(myrsed,0,5);
replace edcat=2 if inrange(myrsed,6,7);
replace edcat=3 if inrange(myrsed,8,10); 
replace edcat=4 if inrange(myrsed,11,15);/* 11 is vocational */
replace edcat=5 if inrange(myrsed,16,20);

***********;

label values meduc meduc`i';
capture gen gstar=kstar-bstar;
capture drop VAR*;
save $path/taiwan/kap/kapdata/kap`i', replace;
};

*=========================;
* Combine into 1 data set ;
*=========================;

clear;
set obs 1;
gen a=1;
foreach i of local kapyears{;
append using $path/taiwan/kap/kapdata/kap`i';
};
drop if a==1;
keep year county town myrsed meduc mage mbirthyear kstar bstar gstar indiff edcat famtype* kids boys girls k* b* g* agefirst;

************************;
* Birth cohort category ;
************************;

egen birthcat=cut(mbirthyear), at(1900(5)1985);

gen agecat=.;
replace agecat=1 if mage>=21 & mage<=40;
replace agecat=2 if mage>=41 & mage<=55;
label var year "Year";

save $path/taiwan/kap/kapdata, replace;
exit;