************************************************************************************************** ************************************************************************************************** ************************************************************************************************** *** REM Computing the AQoL-8. *** REM Scoring algorithm prepared by A/Professor Graeme Hawthorne *** REM Department of Psychiatry, The University of Melbourne *** REM Version 1 23 June 2008. *** REM *** REM This algorithm will display best if the font is set to Courier 10. *** REM *** REM The variables QA1......QA8 are replaced by the names of your variables. *** REM *** REM This algorithm assumes that there are no missing data in your dataset. If there *** REM are missing data you should impute these before using this algorithm. *** REM *** REM All enquiries regarding the use of the AQoL-8 *** REM please contact A/Professor Graeme Hawthorne *** REM Email: graemeeh@unimelb.edu.au ************************************************************************************************** ************************************************************************************************** ************************************************************************************************** Compute SU1 = QA1. Compute SU2 = QA2. Compute SU3 = QA3. Compute SU4 = QA4. Compute SU5 = QA5. Compute SU6 = QA6. Compute SU7 = QA7. Compute SU8 = QA8. Variable labels SU1 "When doing household tasks" SU2 "Thinking about how easily I can get around my home and community" SU3 "Thinking about my relationship with other people" SU4 "Thinking about my health and my relationship with my family" SU5 "Thinking about my hearing, including using my hearing aid if needed" SU6 "When I communicate with others" SU7 "Thinking about how I generally feel" SU8 "How much pain or discomfort do I experience?". Execute. Compute SU9 = RND(Mean.2(SU1, SU2)). Compute SU10 = RND(Mean.3(SU3, SU4, SU7)). Compute SU11 = RND(Mean.4(SU1, SU2, SU5, SU7)). Compute SU12 = RND(Mean.2(SU7, SU8)). Execute. If (SU1 eq 1)SU1 = 0.000. If (SU1 eq 2)SU1 = 0.244. If (SU1 eq 3)SU1 = 0.343. If (SU1 eq 4)SU1 = 1.000. If (SU2 eq 1)SU2 = 0.000. If (SU2 eq 2)SU2 = 0.326. If (SU2 eq 3)SU2 = 0.415. If (SU2 eq 4)SU2 = 1.000. If (SU3 eq 1)SU3 = 0.000. If (SU3 eq 2)SU3 = 0.169. If (SU3 eq 3)SU3 = 0.396. If (SU3 eq 4)SU3 = 1.000. If (SU4 eq 1)SU4 = 0.000. If (SU4 eq 2)SU4 = 0.147. If (SU4 eq 3)SU4 = 0.297. If (SU4 eq 4)SU4 = 1.000. If (SU5 eq 1)SU5 = 0.000. If (SU5 eq 2)SU5 = 0.253. If (SU5 eq 3)SU5 = 0.478. If (SU5 eq 4)SU5 = 1.000. If (SU6 eq 1)SU6 = 0.000. If (SU6 eq 2)SU6 = 0.219. If (SU6 eq 3)SU6 = 0.343. If (SU6 eq 4)SU6 = 1.000. If (SU7 eq 1)SU7 = 0.000. If (SU7 eq 2)SU7 = 0.141. If (SU7 eq 3)SU7 = 0.199. If (SU7 eq 4)SU7 = 1.000. If (SU8 eq 1)SU8 = 0.000. If (SU8 eq 2)SU8 = 0.104. If (SU8 eq 3)SU8 = 0.312. If (SU8 eq 4)SU8 = 1.000. If (SU9 eq 1)SU9 = 0.000. If (SU9 eq 2)SU9 = 0.154. If (SU9 eq 3)SU9 = 0.403. If (SU9 eq 4)SU9 = 1.000. If (SU10 eq 1)SU10 = 0.000. If (SU10 eq 2)SU10 = 0.095. If (SU10 eq 3)SU10 = 0.191. If (SU10 eq 4)SU10 = 1.000. If (SU11 eq 1)SU11 = 0.000. If (SU11 eq 2)SU11 = 0.145. If (SU11 eq 3)SU11 = 0.288. If (SU11 eq 4)SU11 = 1.000. If (SU12 eq 1)SU12 = 0.000. If (SU12 eq 2)SU12 = 0.107. If (SU12 eq 3)SU12 = 0.109. If (SU12 eq 4)SU12 = 1.000. Compute DU1 = (1.0989*(1-(1-0.6097*SU9)*(1-0.4641*SU1)*(1-0.5733*SU2))). Compute DU2 = (1.0395*(1-(1-0.7023*SU10)*(1-0.6253*SU3)*(1-0.6638*SU4))). Compute DU3 = (1.6556*(1-(1-0.2476*SU11)*(1-0.2054*SU5)*(1-0.3382*SU6))). Compute DU4 = (1.2920*(1-(1-0.1703*SU12)*(1-0.2554*SU7)*(1-0.6347*SU8))). Compute AQoL8 = ((1.04*((1-(0.841*DU1))* (1-(0.855*DU2))* (1-(0.931*DU3))* (1-(0.997*DU4)))) - 0.04). Execute.