*SAS syntax code for the computation of index values with the Canadian value set (TTO)*;


data WORK.CAT;
set WORK.CAT;

if mobility eq 1 then disut_mo=0.0389;
if mobility eq 2 then disut_mo=0.0778;
if mobility eq 3 then disut_mo=0.1167;
if mobility eq 4 then disut_mo=0.1556;
if mobility eq 5 then disut_mo=0.1945;

if selfcare eq 1 then disut_sc=0.0458;
if selfcare eq 2 then disut_sc=0.0916;
if selfcare eq 3 then disut_sc=0.1374;
if selfcare eq 4 then disut_sc=0.1832;
if selfcare eq 5 then disut_sc=0.2290;

if activity eq 1 then disut_ua=0.0195;
if activity eq 2 then disut_ua=0.0390;
if activity eq 3 then disut_ua=0.0585;
if activity eq 4 then disut_ua=0.0780;
if activity eq 5 then disut_ua=0.0975;

if pain eq 1 then disut_pd=0.0444;
if pain eq 2 then disut_pd=0.0888;
if pain eq 3 then disut_pd=0.1332;
if pain eq 4 then disut_pd=0.1776;
if pain eq 5 then disut_pd=0.2220;

if anxiety eq 1 then disut_ad=0.0376;
if anxiety eq 2 then disut_ad=0.0752;
if anxiety eq 3 then disut_ad=0.1128;
if anxiety eq 4 then disut_ad=0.1504;
if anxiety eq 5 then disut_ad=0.1880;

disut_mo45=0;
if mobility=4 or mobility=5 then disut_mo45=0.051;

disut_sc45=0;
if selfcare=4 or selfcare=5 then disut_sc45=0.0584;

disut_ua45=0;
if activity=4 or activity=5 then disut_ua45=0.1103;

disut_pd45=0;
if pain=4 or pain=5 then disut_pd45=0.1409;

disut_ad45=0;
if anxiety=4 or anxiety=5 then disut_ad45=0.1277;

num45=0;
if mobility=4 or mobility=5 then num45+1;
if selfcare=4 or selfcare=5 then num45+1;
if activity=4 or activity=5 then num45+1;
if pain=4 or pain=5 then num45+1;
if anxiety=4 or anxiety=5 then num45+1;

num45sq=0;
if num45>=2 then num45sq=((num45-1)**2)*0.0085;


disut_total=disut_mo+disut_sc+disut_ua+disut_pd+disut_ad+disut_mo45+disut_sc45+disut_ua45+disut_pd45+disut_ad45;
            
EQ_index=1+0.1351-disut_total+num45sq;
EQ_index=ROUND(EQ_index,0.001);

run;