| [613] | 1 | YTDESC ;SLC/TGA-LIST TEST/INTERVIEW DESCRIPTIONS ; 7/14/89 12:36 ;
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
|---|
| 3 | ;
|
|---|
| 4 | 1 ;
|
|---|
| 5 | W @IOF S P0=$S(IOST?1"P".E:1,1:0),P1=$S(P0:8,1:3)
|
|---|
| 6 | S YSINS="TEST",YSN="" F S YSN=$O(^YTT(601,"ATN","T",YSN)) Q:YSN=""!YSLFT S T=$O(^YTT(601,"ATN","T",YSN,0)) D TC,TL
|
|---|
| 7 | G:YSLFT END S YSINS="INTERVIEW",YSN="" F S YSN=$O(^YTT(601,"ATN","I",YSN)) Q:YSN=""!YSLFT S T=$O(^YTT(601,"ATN","I",YSN,0)) D TC,IL
|
|---|
| 8 | END ;
|
|---|
| 9 | K K,P0,P1,T,X,Y,YSINS,YSN Q
|
|---|
| 10 | TC ;
|
|---|
| 11 | D:$Y+P1+5>IOSL CK Q:YSLFT W:P0 !! S X=$P(^YTT(601,T,"P"),U) W ?(80-$L(X)\2),X S X=^YTT(601,T,0) W !! W YSINS," CODE = ",$P(X,U),! Q
|
|---|
| 12 | TL ;
|
|---|
| 13 | W !,"AUTHOR : " W:$D(^YTT(601,T,1)) ^(1)
|
|---|
| 14 | W !,"PUBLISHER : " W:$D(^YTT(601,T,2)) ^(2)
|
|---|
| 15 | W !,"FORM : " W:$D(^YTT(601,T,3)) ^(3)
|
|---|
| 16 | W !,"NO. ITEMS : " W $P(X,U,11)
|
|---|
| 17 | D:$Y+P1+3>IOSL CK Q:YSLFT W !!,"--- S C A L E S ---",! F K=1:1 Q:'$D(^YTT(601,T,"S",K,0)) S X=$P(^(0),U,2) Q:X="" D:$Y+P1>IOSL CK Q:YSLFT W !,X
|
|---|
| 18 | D:$Y+P1+3>IOSL CK Q:YSLFT W !!,"NORMATIVE DATA:",! F K=1:1 Q:'$D(^YTT(601,T,6,K,0)) D:$Y+P1>IOSL CK Q:YSLFT W !?5,^(0)
|
|---|
| 19 | D:$Y+P1+3>IOSL CK Q:YSLFT W !!,"TEST USES:",! F K=1:1 Q:'$D(^YTT(601,T,7,K,0)) D:$Y+P1>IOSL CK Q:YSLFT W !?5,^(0)
|
|---|
| 20 | G:'$D(^YTT(601,T,8)) T1 D:$Y+P1+3>IOSL CK Q:YSLFT W !!,"INTERPRETIVE REPORT: ",! F K=1:1 Q:'$D(^YTT(601,T,8,K,0)) D:$Y+P1>IOSL CK Q:YSLFT W !,^(0)
|
|---|
| 21 | T1 ;
|
|---|
| 22 | D:'P0 CK Q
|
|---|
| 23 | IL ;
|
|---|
| 24 | W !,"NUMBER OF ITEMS: ",$P(X,U,11)
|
|---|
| 25 | W !,"SOURCE:",! F K=1:1 Q:'$D(^YTT(601,T,4,K,0)) D:$Y+P1>IOSL CK Q:YSLFT W !?5,^(0)
|
|---|
| 26 | W !!,"DESCRIPTION:" F K=1:1 Q:'$D(^YTT(601,T,5,K,0)) D:$Y+P1>IOSL CK Q:YSLFT W !?5,^(0)
|
|---|
| 27 | D:'P0 CK Q
|
|---|
| 28 | CK ;
|
|---|
| 29 | D:'P0 WAIT^YSUTL Q:YSLFT W @IOF Q
|
|---|
