YTMMPI2D ;ASF/ASB=MMPI2 EXERIMENTAL CONTENT COMPONENTS ;1/17/96 14:20
;;5.01;MENTAL HEALTH;**10**;Dec 30, 1994
SCOR ;
S (R,S)="" F J=107:1:138 D T0^YTMMPI2A S P=YSSX D LK^YTMMPI2A
K A,YSTVL S YSSCALE=S,YSRAW=R
D NV,WAIT^YTMMPI2B:IOST?1"C-".E Q:YSLFT
D ASS,WAIT^YTMMPI2B:IOST?1"C-".E Q:YSLFT
D ECC,WAIT^YTMMPI2B:IOST?1"C-".E Q:YSLFT
Q
NV ;new validity scales
D DTA^YTREPT W !!?25,"New Validity Scales",!!,?50,"Raw Score",?65,"T score"
F J=137,138 S YSN=$P(^YTT(601,YSTEST,"S",J,0),U,2),R=$P(YSRAW,U,J-106),S=$P(YSSCALE,U,J-106) W !?3,$E($P(YSN," ",2,9),1,36)," (",$P(YSN," "),")",?50,$J(R,4),?65,$J(S,4) D:$Y+4>IOSL&(IOST?1"C-".E) WAIT^YTMMPI2B Q:YSLFT
W !?8,"F(p) interpreted only in Inpatient or Correctional settings"
Q
ASS ;additional scales
W !!!?25,"Additional Supplementary Scales",!!,?50,"Raw Score",?65,"T score"
F J=134,135,136 S YSN=$P(^YTT(601,YSTEST,"S",J,0),U,2),R=$P(YSRAW,U,J-106),S=$P(YSSCALE,U,J-106) W !?3,$E($P(YSN," ",2,9),1,36)," (",$P(YSN," "),")",?50,$J(R,4),?65,$J(S,4) D:$Y+4>IOSL&(IOST?1"C-".E) WAIT^YTMMPI2B Q:YSLFT
W !?8,"MDS interpreted only when individual is married or separated"
Q
ECC ;experimental content
W !!!?25,"Experimental Content Component Scales",!!,?50,"Raw Score",?65,"T score"
F J=107:1:133 D ECCW D:$Y+4>IOSL&(IOST?1"C-".E) WAIT^YTMMPI2B Q:YSLFT
Q
ECCW ;
W:J=107 !!,"Fears Subscales"
W:J=109 !!,"Depression Subscales"
W:J=113 !!,"Health Concerns Subscales"
W:J=116 !!,"Bizarre Mentation Subscales"
W:J=118 !!,"Anger Subscales"
W:J=120 !!,"Cynicism Subscales"
W:J=122 !!,"Antisocial Practices Subscales"
W:J=124 !!,"Type A Subscales"
W:J=126 !!,"Low Self-Esteem Subscales"
W:J=128 !!,"Social Discomfort Subscales"
W:J=130 !!,"Family Problems Subscales"
W:J=132 !!,"Negative Treatment Indicator Subscales"
S YSN=$P(^YTT(601,YSTEST,"S",J,0),U,2),R=$P(YSRAW,U,J-106),S=$P(YSSCALE,U,J-106) W !?3,$E($P(YSN," ",2,9),1,36)," (",$P(YSN," "),")",?50,$J(R,4),?65,$J(S,4)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HYTMMPI2D 1976 printed Apr 09, 2024@21:20:50 Page 2
YTMMPI2D ;ASF/ASB=MMPI2 EXERIMENTAL CONTENT COMPONENTS ;1/17/96 14:20
+1 ;;5.01;MENTAL HEALTH;**10**;Dec 30, 1994
SCOR ;
+1 SET (R,S)=""
FOR J=107:1:138
DO T0^YTMMPI2A
SET P=YSSX
DO LK^YTMMPI2A
+2 KILL A,YSTVL
SET YSSCALE=S
SET YSRAW=R
+3 DO NV
if IOST?1"C-".E
DO WAIT^YTMMPI2B
if YSLFT
QUIT
+4 DO ASS
if IOST?1"C-".E
DO WAIT^YTMMPI2B
if YSLFT
QUIT
+5 DO ECC
if IOST?1"C-".E
DO WAIT^YTMMPI2B
if YSLFT
QUIT
+6 QUIT
NV ;new validity scales
+1 DO DTA^YTREPT
WRITE !!?25,"New Validity Scales",!!,?50,"Raw Score",?65,"T score"
+2 FOR J=137,138
SET YSN=$PIECE(^YTT(601,YSTEST,"S",J,0),U,2)
SET R=$PIECE(YSRAW,U,J-106)
SET S=$PIECE(YSSCALE,U,J-106)
WRITE !?3,$EXTRACT($PIECE(YSN," ",2,9),1,36)," (",$PIECE(YSN," "),")",?50,$JUSTIFY(R,4),?65,$JUSTIFY(S,4)
if $Y+4>IOSL&(IOST?1"C-".E)
DO WAIT^YTMMPI2B
if YSLFT
QUIT
+3 WRITE !?8,"F(p) interpreted only in Inpatient or Correctional settings"
+4 QUIT
ASS ;additional scales
+1 WRITE !!!?25,"Additional Supplementary Scales",!!,?50,"Raw Score",?65,"T score"
+2 FOR J=134,135,136
SET YSN=$PIECE(^YTT(601,YSTEST,"S",J,0),U,2)
SET R=$PIECE(YSRAW,U,J-106)
SET S=$PIECE(YSSCALE,U,J-106)
WRITE !?3,$EXTRACT($PIECE(YSN," ",2,9),1,36)," (",$PIECE(YSN," "),")",?50,$JUSTIFY(R,4),?65,$JUSTIFY(S,4)
if $Y+4>IOSL&(IOST?1"C-".E)
DO WAIT^YTMMPI2B
if YSLFT
QUIT
+3 WRITE !?8,"MDS interpreted only when individual is married or separated"
+4 QUIT
ECC ;experimental content
+1 WRITE !!!?25,"Experimental Content Component Scales",!!,?50,"Raw Score",?65,"T score"
+2 FOR J=107:1:133
DO ECCW
if $Y+4>IOSL&(IOST?1"C-".E)
DO WAIT^YTMMPI2B
if YSLFT
QUIT
+3 QUIT
ECCW ;
+1 if J=107
WRITE !!,"Fears Subscales"
+2 if J=109
WRITE !!,"Depression Subscales"
+3 if J=113
WRITE !!,"Health Concerns Subscales"
+4 if J=116
WRITE !!,"Bizarre Mentation Subscales"
+5 if J=118
WRITE !!,"Anger Subscales"
+6 if J=120
WRITE !!,"Cynicism Subscales"
+7 if J=122
WRITE !!,"Antisocial Practices Subscales"
+8 if J=124
WRITE !!,"Type A Subscales"
+9 if J=126
WRITE !!,"Low Self-Esteem Subscales"
+10 if J=128
WRITE !!,"Social Discomfort Subscales"
+11 if J=130
WRITE !!,"Family Problems Subscales"
+12 if J=132
WRITE !!,"Negative Treatment Indicator Subscales"
+13 SET YSN=$PIECE(^YTT(601,YSTEST,"S",J,0),U,2)
SET R=$PIECE(YSRAW,U,J-106)
SET S=$PIECE(YSSCALE,U,J-106)
WRITE !?3,$EXTRACT($PIECE(YSN," ",2,9),1,36)," (",$PIECE(YSN," "),")",?50,$JUSTIFY(R,4),?65,$JUSTIFY(S,4)
