* Births, terminations, and completed pregnancies in the calendar (the past 5 years)
 

use "...IAIR7EFL.DTA" , clear
gen B=0
gen T=0
quietly forvalues lcol=1/80 {
replace B=B+1 if substr(vcal_1,`lcol',1)=="B" & (`lcol'-v018)<60
replace T=T+1 if substr(vcal_1,`lcol',1)=="T" & (`lcol'-v018)<60
}
 

* There is one record with T=59; drop it
drop if T==59

gen P=B+T
label variable B "Births"
label variable T "Terminations"
label variable P "Pregnancies"
tab1 B T P