Routine: YTMMPI2D

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

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"

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"

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

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  Mar 13, 2025@21:22:41                                                                                                                                                                                                    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)

YTMMPI2D.m