| 1 | YTMCMI2D ;ALB/ASF- MCMI2 REPORT CONTINUED; ;4/11/91 15:41
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
|---|
| 3 | VAR ;
|
|---|
| 4 | S V1="-------:--:---:---:----:---:---------:---------:----------:--------------------"
|
|---|
| 5 | S V2="CATEGORY RAW BR 35 60 75 85 100",V3="",$P(V3,"*",41)=""
|
|---|
| 6 | S V4="^M^O I^D N^I D^F I^I C^E E^R S^^ P^C E^L R P^I S A^N O T^I N T^C A E^A L R^L I N^ T^ Y^ ^^ P P^S E A^E R T^V S H^E N L^R L O^E T G^ Y Y^^C S^L Y^I N^N D^I R^C O^A M^L E^^ S^S Y^E N^V D^E R^R O^E M^ E^^"
|
|---|
| 7 | S V5="^^1^^2^^3^^^^^4^5^6^7^8^9^10^11^12^13^^^^14^^15^^16^^^^^17^18^19^20^21^22^^^^23^^24^^25"
|
|---|
| 8 | GRAPH ;
|
|---|
| 9 | W !?12,"SCORES",?29,"PROFILE OF BR SCORES",?59,"DIAGNOSTIC SCALES",!,V2
|
|---|
| 10 | F V6=1:1:50 D GRAPH1 D:IOST?1"C-".E&($Y+3>IOSL) SCR Q:YSLFT=1
|
|---|
| 11 | W:'YSLFT !,V2 Q
|
|---|
| 12 | GRAPH1 ;
|
|---|
| 13 | I $P(V4,U,V6)="" W !,V1 Q
|
|---|
| 14 | W !,$P(V4,U,V6),?7,":"
|
|---|
| 15 | S X=$P(V5,U,V6) I 'X D CLN Q
|
|---|
| 16 | S X1=$P(^YTT(601,YSTEST,"S",X,0),U,2),YSSP=$P(X1," "),YSPN=$P(X1," ",2,99) S:X>16&(X<23) YSPN=$P(YSPN," DIS")
|
|---|
| 17 | S X1=$P(S,U,X),X2=0 S:X1<0 X1=0
|
|---|
| 18 | W YSSP,?10,":",$J($P(R,U,X),3),":",$J(X1,3),":"
|
|---|
| 19 | BAR ;
|
|---|
| 20 | I X1>99 S X2=40 G PLOT
|
|---|
| 21 | I X1>85 S X2=X1-85*$J(11/15,0,2)+29 G PLOT
|
|---|
| 22 | I X1>75 S X2=X1-75*$J(10/10,0,2)+19 G PLOT
|
|---|
| 23 | I X1>60 S X2=X1-60*$J(10/15,0,2)+9 G PLOT
|
|---|
| 24 | I X1>35 S X2=X1-35*$J(4/25,0,2)+5 G PLOT
|
|---|
| 25 | S X2=X1*5/35
|
|---|
| 26 | PLOT ;
|
|---|
| 27 | S X2=X2\1 S:X2<1&(X1>0) X2=1 I +R'>590,+R'<145,$P(R,U,26)<2 W $E(V3,1,X2)
|
|---|
| 28 | D CLN W ?60,YSPN
|
|---|
| 29 | K YSPN
|
|---|
| 30 | Q
|
|---|
| 31 | CLN ;
|
|---|
| 32 | F I=7,10,14,18,23,27,37,47,58 I I'<$X W ?I,":"
|
|---|
| 33 | Q
|
|---|
| 34 | SCR ;
|
|---|
| 35 | ; Added 5/6/94 LJA
|
|---|
| 36 | N A,B,B1,C,D,E,E1,F,F1,G,G1,H,I,J,J1,J2,J3,J4,K,L,L1,L2,M,N
|
|---|
| 37 | N N1,N2,N3,N4,P,P0,P1,P3,R,R1,S,S1,T,T1,T2,TT,V,V1,V2,V3
|
|---|
| 38 | N V4,V5,V6,W,X,X0,X1,X2,X3,X4,X7,X8,X9,Y,Y1,Y2,Z,Z1,Z3
|
|---|
| 39 | ;
|
|---|
| 40 | F I0=1:1:(IOSL-$Y-2) W !
|
|---|
| 41 | S DIR(0)="E" D ^DIR K DIR S YSTOUT=$D(DTOUT),YSUOUT=$D(DUOUT),YSLFT=$D(DIRUT)
|
|---|
| 42 | W @IOF Q
|
|---|
