Derivation
<Spouse listing (from co-parent links and gen_spouse) are merged into residency episodes, those where there is overlap for the wife and husband in the same household are kept. The start & end dates of the overlapping period are compared to the start and end dates of the wife's/husband's episode to see who moved in/out:>
use ${tempfiles}\parlinks_checked, clear
*add in spouse links
append using ${tempfiles}\spouse_pairs_all_data, keep(wife husband)
duplicates drop
drop if wife=="" | husband==""
rename wife ident
*merge to residency data (wife)
joinby ident using ${gendata}\crs_residency_episodes_clean_poly, unmatched(both) _merge(wifem)
rename (ident startdate stopdate starttype stoptype rsnmovecenm rsnmovedep crshse) (wife w_startdate w_stopdate w_starttype w_stoptype w_rsnstart w_rsnstop w_crshse)
drop sex birth_date
rename husband ident
joinby ident using ${gendata}\crs_residency_episodes_clean_poly, unmatched(both) _merge(husbandm)
rename (ident startdate stopdate starttype stoptype rsnmovecenm rsnmovedep crshse) (husband h_startdate h_stopdate h_starttype h_stoptype h_rsnstart h_rsnstop h_crshse)
drop sex birth_date
keep if w_crshse==h_crshse & h_startdate~=. & h_stopdate~=. & w_startdate~=. & w_stopdate~=. & ((h_startdate>=w_startdate & h_startdate<=w_stopdate) | (h_stopdate>=w_startdate & h_stopdate<=w_stopdate) | (w_startdate>=h_startdate & w_startdate<=h_stopdate) | (w_stopdate>=h_startdate & w_stopdate<=h_stopdate))
egen resstartdt=rowmax(w_startdate h_startdate)
egen resstopdt=rowmin(w_stopdate h_stopdate)
format %td resstartdt resstopdt
la def whost 1 "wife" 2 "husband" 3 "both"
foreach st in start stop {
gen who`st'=1 if res`st'dt==w_`st'date
replace who`st'=2 if res`st'dt==h_`st'date
replace who`st'=3 if res`st'dt==w_`st'date & res`st'dt==h_`st'date
la val who`st' whost
replace h_`st'rsn=. if who`st'==1
replace w_`st'rsn=. if who`st'==2
}
