/* coded by Janel Hanmer, February 2005 */

/* The EQ-5D has five questions.  I presume that all five items are scored so that 1= no problems,
2= some problems, 3= severe problems.  I have labeled the questions in the same order as the questionnaire:
eq5d1 = mobility
eq5d2 = self-care
eq5d3 = usual activities
eq5d4 = pain/discomfort
eq5d5 = anxious/depressed 

if any question is not answered ("."), then the score is not computed.  */

/* This weighting is from Dolan P. Modeling valuations for EuroQol health states. 
Medical Care Vol 35, No. 11, pp. 1095-1108. 1997

This STATA code is based off SPSS code supplied by Rosalind Rabin EQ Group Business Management :
	compute value = 1.0.
	if (mob eq 2) value = value - .069.
	If (mob eq 3) value = value - .314.
	if (selfc eq 2) value = value - .104.
	if (selfc eq 3) value = value - .214.
	if (uact eq 2) value = value - .036.
	if (uact eq 3) value = value - .094.
	if (pain eq 2) value = value - .123.
	if (pain eq 3) value = value - .386.
	if (mood eq 2) value = value - .071.
	if (mood eq 3) value = value - .236.
	if (mob ne 1 or uact ne 1 or selfc ne 1 or pain ne 1 or mood ne 1) 
	 value = value - .081.
	if (mob eq 3 or selfc eq 3 or uact eq 3 or mood eq 3 or pain eq 3) 
	 value = value - .269.
	if (missing(mob) or missing(uact) or missing(selfc) or missing(pain) or missing(mood))
	 value = 9.
	missing values value (9).
*/

/* insert the location of your dataset below */

clear

use "C:. . ."

gen EQUK =1.0

replace EQUK = EQUK - .069 if eq5d1==2
replace EQUK = EQUK - .314 if eq5d1==3

replace EQUK = EQUK - .104 if eq5d2==2
replace EQUK = EQUK - .214 if eq5d2==3

replace EQUK = EQUK - .036 if eq5d3==2
replace EQUK = EQUK - .094 if eq5d3==3

replace EQUK = EQUK - .123 if eq5d4==2
replace EQUK = EQUK - .386 if eq5d4==3

replace EQUK = EQUK - .071 if eq5d5==2
replace EQUK = EQUK - .236 if eq5d5==3



gen any=0
replace any=1 if eq5d1>1
replace any=1 if eq5d2>1 
replace any=1 if eq5d3>1 
replace any=1 if eq5d4>1 
replace any=1 if eq5d5>1 
	
replace EQUK = EQUK - .081 if any==1

gen bad=0
replace bad=1 if eq5d1==3 
replace bad=1 if eq5d2==3 
replace bad=1 if eq5d3==3 
replace bad=1 if eq5d4==3 
replace bad=1 if eq5d5==3 

replace EQUK = EQUK - .269 if bad==1

replace EQUK=. if eq5d1==.
replace EQUK=. if eq5d2==.
replace EQUK=. if eq5d3==.
replace EQUK=. if eq5d4==.
replace EQUK=. if eq5d5==.