use "PKIR61FL.DTA", clear 

keep caseid v001 v002 v003 v005 v008 v011 v012 v013 v021 v022 v023 v024 v025 v201 v208 v211 v212 v218 v222 v224 v225 v228 v229 v230 v231 v232 v233 v234 v235 v239 v240 v241 v242 idx97_* ord97_* s2*_* 

rename *_0* *_*

local varlist idx97_ ord97_ s215_ s216_ s217_ s219_ s220m_ s220y_ s220c_ s220f_ s225c_ s225f_ s221_ s222_ s223_ s224_ s225u_ s225n_ s226m_ s226y_ s227_ s228_ s229_

* capture the variable labels
foreach v of local varlist { 
di "`v'"
	local l`v' : variable label `v'1
} 

reshape long `varlist', i(caseid) j(idx)

* copy the variable labels back to the variables
foreach v of local varlist {
  label variable `v' `"`l`v''"'
}

rename s*_ s*
rename idx97_ idx97
rename ord97_ ord97

drop if idx97==. 

keep if v008-s220c < 60

gen type = .
replace type = 1 if s216==1 | s217==1
replace type = 2 if type==. & s227 >= 7 & s227 < 98 
replace type = 3 if type==. & (s227 < 7 | s227 >= 98) & s228 == 1
replace type = 4 if type==. & (s227 < 7 | s227 >= 98)
lab def type 1 "Live birth" 2 "Stillbirth" 3 "Abortion" 4 "Miscarriage"
lab val type type
lab var type "Type of pregnancy"

tab type [iw=v005/1000000]