D. Domaine de la psychopathologie

DEFINE AUTDESTR Indice de conduites auto-destructrices :

autdestr=odsh + (2 * nbts) + (2 * odh)

RECODE autdestr 0-3=0 4-hi=1

DEFINE PSYAD Indice d'antécédents psychiatriques :

let psyad=0

if epispsy =. or autdestr =. or consult =. or psyadol =. then psyad =.

if (epispsy <>. and autdestr <>.) and ((consult =3 or =4 or =5 or =8 and <>50) or autdestr =1 or epispsy <>0 or psyadol <>0) then psyad =1

DEFINE DEPRCUR Dépression durant la cure :

if epispsy=1 or =6 or =11 then deprcur=1

if epispsy=0 or =10 or =3 or =30 or =5 or =50 then deprcur=0