| [613] | 1 | YTSCL9R1 ;ALB/ASF-SCL90 R CONTINUED ;1/5/96 08:54
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;**10**;Dec 30, 1994
|
|---|
| 3 | D DTA^YTREPT ;header
|
|---|
| 4 | W !?25,"SCL-90-R CLINICAL PROFILE",!?3,"T-score",?70,"Percentile"
|
|---|
| 5 | A ;
|
|---|
| 6 | K YSAST S YSNS=12,YSTV=80,YSBV=30,YSINC=1,YSLE=5 S X=S(2),YSLFT=0
|
|---|
| 7 | F J=1:1:9,11,12,13 S A(J)=$P(X,U,J),YSAST(J)="" S:A(J)>YSTV!(A(J)<YSBV) YSAST(J)=">"
|
|---|
| 8 | S YSVS=3,YSHS="80,50,30^"
|
|---|
| 9 | F I=1:1 S J=$P(YSHS,",",I) Q:J="" S H(I)=+J
|
|---|
| 10 | S YSLM=80-(YSNS*4+20)\2+5
|
|---|
| 11 | S YSLC1=9999,YSLV=YSTV,YSIN2=YSINC/2
|
|---|
| 12 | S YSHS=$O(H(-1)),H(-1)=-999
|
|---|
| 13 | L ;
|
|---|
| 14 | F I=1:1:9,11,12,13 S B(I)=(A(I)'<(YSLV-YSIN2))&(A(I)<(YSLV+YSIN2))
|
|---|
| 15 | S YSLL=$S(YSLC1'<YSLE:$J(YSLV,5,0),1:" ")
|
|---|
| 16 | W ;
|
|---|
| 17 | S YSWS=(H(YSHS)>(YSLV-YSIN2))&(H(YSHS)<(YSLV+YSIN2)) I YSWS D WS G:YSLFT END S YSHS=$O(H(YSHS))
|
|---|
| 18 | I 'YSWS D WL G:YSLFT END
|
|---|
| 19 | S YSLC1=YSLC1+1 S:YSLC1>YSLE YSLC1=1
|
|---|
| 20 | I YSLV>YSBV S YSLV=YSLV-YSINC GOTO L
|
|---|
| 21 | END ;
|
|---|
| 22 | K A,B,YSA,YSTV,YSTVL,YSBV,YSINC,YSIN2,YSLE,YSVS,YSHS,V,H,YSLL,YSLC1,YSWS Q
|
|---|
| 23 | WL ;
|
|---|
| 24 | D:IOST?1"C-".E SCR^YTREPT:$Y>(IOSL-4) Q:YSUOUT!YSTOUT
|
|---|
| 25 | W !?5,YSLL,"|"
|
|---|
| 26 | F I=1:1:9,11,12,13 W $S(B(I):" *"_$E(YSAST(I)_" ",1,2),1:" ") W:I=9 "|"
|
|---|
| 27 | ;W "|",YSLL Q
|
|---|
| 28 | W "|",$S(YSLV=30:2,YSLV=35:7,YSLV=40:16,YSLV=45:30,YSLV=50:50,YSLV=55:70,YSLV=60:84,YSLV=65:93,YSLV=70:98,YSLV=75:99,1:"") Q
|
|---|
| 29 | WS ;
|
|---|
| 30 | D:IOST?1"C-".E SCR^YTREPT:$Y>(IOSL-4) Q:YSUOUT!YSTOUT
|
|---|
| 31 | W !?5,YSLL,"|"
|
|---|
| 32 | F I=1:1:9,11,12,13 W $S(B(I):"--*"_$E(YSAST(I)_"--",1,2),1:"-----") W:I=9 "|"
|
|---|
| 33 | W "|",$S(YSLV=30:2,YSLV=35:7,YSLV=40:16,YSLV=45:30,YSLV=50:50,YSLV=55:70,YSLV=60:84,YSLV=65:93,YSLV=70:98,YSLV=75:99,1:"") Q
|
|---|
| 34 | Q
|
|---|
| 35 | BOTTOM ;
|
|---|
| 36 | W !,?11 F I=1:1:9,11,12,13 W " "_$P($P(^YTT(601,YSTEST,"S",I,0),U,2),";")_" "
|
|---|
| 37 | W !!," T non-pt." F I=1:1:9,11,12,13 W $J($P(S(2),U,I),5,0) W $S(I=6:" ",I=11:" ",1:"")
|
|---|
| 38 | W !," Raw Score" F I=1:1:9,11,12 W $J($P(R,U,I),5,2) W $S(I=6:" ",I=11:" ",1:"")
|
|---|
| 39 | W $J($P(R,U,13),5,0)
|
|---|
| 40 | W !," T out-pt." F I=1:1:9,11,12,13 W $J($P(S(1),U,I),5,0) W $S(I=6:" ",I=11:" ",1:"")
|
|---|
| 41 | W !," T in-pt. " F I=1:1:9,11,12,13 W $J($P(S(3),U,I),5,0) W $S(I=6:" ",I=11:" ",1:"")
|
|---|
| 42 | D:IOST?1"C-".E SCR^YTREPT Q:YSUOUT!YSTOUT
|
|---|
| 43 | Q
|
|---|
| 44 | NOTE ;symptoms of note (4 or 3)
|
|---|
| 45 | D DTA^YTREPT
|
|---|
| 46 | D RD^YTSCL9R
|
|---|
| 47 | W !!?10,"SYMPTOMS OF NOTE"
|
|---|
| 48 | W !!?3,"The patient endorsed 'Extremely' distressd for the following:"
|
|---|
| 49 | I $L(X,4)=1 W !!?5,"No items endorsed 'extremely' distressed."
|
|---|
| 50 | E F I=1:1:90 W:$E(X,I)=4 !?3,$J(I,2)_". "_^YTT(601,YSTEST,"Q",I,"T",3,0) D:IOST?1"C-".E&($Y>21) SCR^YTREPT Q:YSTOUT!YSUOUT
|
|---|
| 51 | Q:YSUOUT!YSTOUT
|
|---|
| 52 | W !!?3,"The patient endorsed 'moderately' distressd for the following:"
|
|---|
| 53 | I $L(X,3)=1 W !!?5,"No items endorsed 'moderately' distressed."
|
|---|
| 54 | E F I=1:1:90 W:$E(X,I)=3 !?3,$J(I,2)_". "_^YTT(601,YSTEST,"Q",I,"T",3,0) D:IOST?1"C-".E&($Y>21) SCR^YTREPT Q:YSTOUT!YSUOUT
|
|---|
| 55 | W !!?3,$L(X,"X")-1," item"_$S($L(X,"X")=2:" was",1:"s were")_" ommitted."
|
|---|
