// Creates w_scdata_dv - Self-completion module completed
// INPUT FILE - w_indresp.dta 
// OUTPUT FILE - w_scdata_dv.dta

// WRITE FILEPATH WHERE YOU HAVE DOWNLOADED THE DATA
global in ""
// WRITE FILEPATH WHERE YOU WOULD LIKE TO SAVE THE OUTPUT FILE
global outpath ""


// 1 is for BHPS, 2 is for UKHLS
global cohort "2" 
// INCLUDE WAVE LETTERS FOR THE WAVES NEEDED
global waves g h i j k l

 
**** Don’t make changes after this point ****
foreach w of global waves {
global wave "`w'_"
global num=strpos("abcdefghijklmnopqrstuvwxyz","`w'")
global dta ""
global waveno=$num
global inpath "${in}/bhps_w${num}"
if $cohort==2 {
	global waveno=$num+18	
	global inpath "${in}/ukhls"
}


use "${inpath}/${wave}indresp${dta}", clear
drop ${wave}scdata_dv 



/*-------------ORIGINAL CODE--------------*/
gen ${wave}scdata_dv=-9
merge 1:1 pidp using ${inpath}/${wave}indall, keepus(${wave}scflag_dv) keep(3) nogen
recode ${wave}scdata_dv (-9=1) if (${wave}indmode==1 & ${wave}scflag_dv==1) | ${wave}indmode==2 | ${wave}indmode==3
recode ${wave}scdata_dv (-9=2) if (${wave}scflag_dv==0 ) // no adult self-completion available
lab def ${wave}scdata_dv -9"missing" 1"yes" 2"no", replace
lab val ${wave}scdata_dv  ${wave}scdata_dv
lab var ${wave}scdata_dv "Self-completion module completed"
save "${outpath}/${wave}scdata_dv", replace
}