| 1 | YTMMPI2D ;ASF/ASB=MMPI2 EXERIMENTAL CONTENT COMPONENTS ;1/17/96 14:20
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;**10**;Dec 30, 1994
|
|---|
| 3 | SCOR ;
|
|---|
| 4 | S (R,S)="" F J=107:1:138 D T0^YTMMPI2A S P=YSSX D LK^YTMMPI2A
|
|---|
| 5 | K A,YSTVL S YSSCALE=S,YSRAW=R
|
|---|
| 6 | D NV,WAIT^YTMMPI2B:IOST?1"C-".E Q:YSLFT
|
|---|
| 7 | D ASS,WAIT^YTMMPI2B:IOST?1"C-".E Q:YSLFT
|
|---|
| 8 | D ECC,WAIT^YTMMPI2B:IOST?1"C-".E Q:YSLFT
|
|---|
| 9 | Q
|
|---|
| 10 | NV ;new validity scales
|
|---|
| 11 | D DTA^YTREPT W !!?25,"New Validity Scales",!!,?50,"Raw Score",?65,"T score"
|
|---|
| 12 | 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
|
|---|
| 13 | W !?8,"F(p) interpreted only in Inpatient or Correctional settings"
|
|---|
| 14 | Q
|
|---|
| 15 | ASS ;additional scales
|
|---|
| 16 | W !!!?25,"Additional Supplementary Scales",!!,?50,"Raw Score",?65,"T score"
|
|---|
| 17 | 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
|
|---|
| 18 | W !?8,"MDS interpreted only when individual is married or separated"
|
|---|
| 19 | Q
|
|---|
| 20 | ECC ;experimental content
|
|---|
| 21 | W !!!?25,"Experimental Content Component Scales",!!,?50,"Raw Score",?65,"T score"
|
|---|
| 22 | F J=107:1:133 D ECCW D:$Y+4>IOSL&(IOST?1"C-".E) WAIT^YTMMPI2B Q:YSLFT
|
|---|
| 23 | Q
|
|---|
| 24 | ECCW ;
|
|---|
| 25 | W:J=107 !!,"Fears Subscales"
|
|---|
| 26 | W:J=109 !!,"Depression Subscales"
|
|---|
| 27 | W:J=113 !!,"Health Concerns Subscales"
|
|---|
| 28 | W:J=116 !!,"Bizarre Mentation Subscales"
|
|---|
| 29 | W:J=118 !!,"Anger Subscales"
|
|---|
| 30 | W:J=120 !!,"Cynicism Subscales"
|
|---|
| 31 | W:J=122 !!,"Antisocial Practices Subscales"
|
|---|
| 32 | W:J=124 !!,"Type A Subscales"
|
|---|
| 33 | W:J=126 !!,"Low Self-Esteem Subscales"
|
|---|
| 34 | W:J=128 !!,"Social Discomfort Subscales"
|
|---|
| 35 | W:J=130 !!,"Family Problems Subscales"
|
|---|
| 36 | W:J=132 !!,"Negative Treatment Indicator Subscales"
|
|---|
| 37 | 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)
|
|---|
