MFA Scoring Program
SPSS for Windows
Program:  SPSSWIN.sps




*RECODING FOR REVERSE ITEMS:

RECODE
  move4  move5  move6  move7  move10  move16  move17  move18
  home2  home4  emot5  emot6  emot7  (1=0)  (0=1).


*RECODING NOT APPLICABLE / MISSING / DON'T KNOW TO "0"
*FOR YES/NO QUESTIONS:

RECODE
  move1  move2  move3  move4  move5  move6  move7  move8  move9  
  move10  move11  move12  move13  move14  move15  move16  move17 
  move18  move19  move20
  fine1  fine2  fine3  fine4  fine5  fine6  fine7
  home1  home2  home3  home4  home5  home6  home7  home8  home9
  adl1  adl2  adl3  adl4  adl5  adl6  adl7  adl8  adl9  adl10  adl11  adl12
  adl13  adl14  adl15  adl16  adl17  adl18
  sleep1  sleep2  sleep3  sleep4  sleep5  sleep6
  leis1  leis2  leis3  leis4
  relat1  relat2  relat3  relat4  relat5  relat6  relat7  relat8  relat9  relat10
  cog1  cog2  cog3  cog4
  emot1  emot2  emot3  emot4  emot5  emot6  emot7  emot8  emot9  emot10
  emot11  emot12  emot13  emot14  emot15  emot16  emot17  emot18
  job1  job2  job3  job4
  (7=0)  (8=0)  (9=0) .


*RECODING FOR NOT APPLICABLE / MISSING / DON'T KNOW TO "88"
*FOR PATIENT RATING QUESTIONS ("88" IS DEFINED AS MISSING)

RECODE
  mover finer homer adlr sleepr leisr relatr cogr emotr jobr
  (7=88) (8=88) (9=88) .

MISSING VALUES  mover  finer  homer  adlr  sleepr  leisr
                                relatr  cogr  emotr  jobr  (88).





MFA Scoring Program for SPSS for Windows - Page 2





*ASSIGNING DEFAULT CODES FOR ITEM MOVE1:

if (move1 = 0) move2  = 1 .
if (move1 = 0) move6  = 1 .
if (move1 = 0) move7  = 1 .
if (move1 = 0) move8  = 1 .
if (move1 = 0) move9  = 1 .
if (move1 = 0) move10 = 1 .
if (move1 = 0) move12 = 1 .
if (move1 = 0) move13 = 1 .
if (move1 = 0) move18 = 1 .


*ASSIGNING DEFAULT CODES FOR ITEM JOBHLTH:

if (jobhlth = 1) job1 = 1 .
if (jobhlth = 1) job2 = 1 .
if (jobhlth = 1) job3 = 1 .
if (jobhlth = 1) job4 = 1 .
if (jobhlth = 1  and  jobyn = 0)  jobr = 5 .
if (jobyn = 0  and  jobhlth = 0)  jobr = 1 .


*COMPUTING RAW CATEGORY SCORES AND 
*STANDARDIZED CATEGORY SCORES:

COMPUTE moveraw  = move1 + move2 + move3 + move4 + move5 + move6 +
                   move7 + move8 + move9 + move10 + move11 + move12 +
                   move13 + move14 + move15 + move16 + move17 +
                   move18 + move19 + move20 .
COMPUTE movestd  = moveraw / 20 * 100 .
COMPUTE fineraw  = fine1 + fine2 + fine3 + fine4 + fine5 + fine6 + fine7 .
COMPUTE finestd  = fineraw / 7 * 100 .
COMPUTE homeraw  = home1 + home2 + home3 + home4 + home5 + home6 + 
	        home7 + home8 + home9 .
COMPUTE homestd  = homeraw / 9 * 100 .
COMPUTE adlraw   = adl1 + adl2 + adl3 + adl4 + adl5 + adl6 + adl7 + adl8 +
                   adl9 + adl10 + adl11 + adl12 + adl13 + adl14 + adl15 +
                   adl16 + adl17 + adl18 .
COMPUTE adlstd   = adlraw / 18 * 100 .
COMPUTE sleepraw = sleep1 + sleep2 + sleep3 + sleep4 + sleep5 + sleep6 .
COMPUTE sleepstd = sleepraw / 6 * 100 .


MFA Scoring Program for SPSS for Windows - Page 3




*COMPUTING RAW CATEGORY SCORES AND 
*STANDARDIZED CATEGORY SCORES (CONTINUED):

COMPUTE leisraw  = leis1 + leis2 + leis3 + leis4 .
COMPUTE leisstd  = leisraw / 4 * 100 .
COMPUTE relatraw = relat1 + relat2 + relat3 + relat4 + relat5 + relat6 +
                   relat7 + relat8 + relat9 + relat10 .
COMPUTE relatstd = relatraw / 10 * 100 .
COMPUTE cograw   = cog1 + cog2 + cog3 + cog4 .
COMPUTE cogstd   = cograw / 4 * 100 .
COMPUTE emotraw  = emot1 + emot2 + emot3 + emot4 + emot5 + emot6 + 
                   emot7 + emot8 + emot9 + emot10 + emot11 + emot12 + emot13 +
                   emot14 + emot15 + emot16 + emot17 + emot18 .
COMPUTE emotstd  = emotraw / 18 * 100 .
COMPUTE jobraw   = job1 + job2 + job3 + job4 .
COMPUTE jobstd   = jobraw / 4 * 100 .
COMPUTE totalraw = moveraw + fineraw + homeraw + adlraw + sleepraw +
                                   leisraw + relatraw + cograw + emotraw + jobraw .



*COMPUTING TOTAL MFA SCORE:

COMPUTE MFASCORE = (moveraw + fineraw + homeraw + adlraw + sleepraw +
                   leisraw + relatraw + cograw + emotraw + jobraw) / 100 * 100 .


*COMPUTING MFA PATIENT RATING SUBSCORE:

COMPUTE PRSCORE  = (mover + finer + homer + adlr + sleepr + 
                                           leisr + relatr + cogr + emotr + jobr) / 10 .

*COMPUTING MEAN (SD) FOR RAW AND STANDARDIZED SCORES
*FOR THE SCORING CHECKS

FREQUENCIES
   VARIABLES  =  moveraw  movestd  fineraw  finestd  homeraw  homestd
                             adlraw  adlstd  sleepraw  sleepstd  leisraw  leisstd  
                             relatraw  relatstd  cograw  cogstd  emotraw  emotstd  jobraw  jobstd
                             totraw  mfascore  prscore
  /STATISTICS = STDDEV MEAN .

EXECUTE .

c:\mfa-L1.0\spsswin.doc