source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTMMPI2D.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1YTMMPI2D ;ASF/ASB=MMPI2 EXERIMENTAL CONTENT COMPONENTS ;1/17/96 14:20
2 ;;5.01;MENTAL HEALTH;**10**;Dec 30, 1994
3SCOR ;
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
10NV ;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
15ASS ;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
20ECC ;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
24ECCW ;
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)
Note: See TracBrowser for help on using the repository browser.