* Scale ID: 			IQCODE.
* Scale Name: 		IQCODE.
* TILDA Variables: 	IQCODEtotal;IQCODEscore.
* Dataset:      		TILDA Waves 3,4,5,6.
* Author:.
* Institution:  		The Irish Longitudinal Study on Ageing (TILDA).
* .
* Description:.
* Cleans and codes up summed score from the Informant Questionnaire on Cognitive Decline in the Elderly - Short Form.
* .
* Version:      1.0.
* Date:         2026-09-01.
* Language:     SPSS.

COUNT noresponse = ph148 ph149 ph150 ph151 ph152 ph153 ph154 ph155 ph156 ph157 ph158 ph159 ph160 ph161 ph162 ph163 (6).
COUNT responses = ph148 ph149 ph150 ph151 ph152 ph153 ph154 ph155 ph156 ph157 ph158 ph159 ph160 ph161 ph162 ph163 (1,2,3,4,5,6).

RECODE ph148 ph149 ph150 ph151 ph152 ph153 ph154 ph155 ph156 ph157 ph158 ph159 ph160 ph161 ph162 ph163 (-1=SYSMIS).

DO REPEAT src = ph148 ph149 ph150 ph151 ph152 ph153 ph154 ph155 ph156 ph157 ph158 ph159 ph160 ph161 ph162 ph163
 /dst = IQCODE1 IQCODE2 IQCODE3 IQCODE4 IQCODE5 IQCODE6 IQCODE7 IQCODE8 IQCODE9 IQCODE10 IQCODE11 IQCODE12 IQCODE13 IQCODE14 IQCODE15 IQCODE16.
  COMPUTE dst = src.
  RECODE dst (6=SYSMIS) (98 THRU 99=SYSMIS).
END REPEAT.

COMPUTE IQCODEtotal = $SYSMIS.
IF (MISSING(hh005) OR hh005 <> 1)
  IQCODEtotal = SUM(IQCODE1, IQCODE2, IQCODE3, IQCODE4, IQCODE5, IQCODE6, IQCODE7, IQCODE8, IQCODE9, IQCODE10, IQCODE11, IQCODE12, IQCODE13, IQCODE14, IQCODE15, IQCODE16).
IF ((MISSING(hh005) OR hh005 <> 1) AND
    NMISS(IQCODE1, IQCODE2, IQCODE3, IQCODE4, IQCODE5, IQCODE6, IQCODE7, IQCODE8, IQCODE9, IQCODE10, IQCODE11, IQCODE12, IQCODE13, IQCODE14, IQCODE15, IQCODE16) = 16)
  IQCODEtotal = 0.

COMPUTE IQCODEscore = $SYSMIS.
IF (noresponse <= 2 AND (MISSING(hh005) OR hh005 <> 1) AND responses <> 0)
  IQCODEscore = IQCODEtotal / responses.

EXECUTE.