| [613] | 1 | YTPIT ;SLC/TGA-Print test/interview items ;11/15/90 17:06 ;
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
|---|
| 3 | ;
|
|---|
| 4 | ; Called from the top by MENU option YSPIT
|
|---|
| 5 | ;
|
|---|
| 6 | W @IOF,!!,"Print Test/Interview Items"
|
|---|
| 7 | PIT ;
|
|---|
| 8 | R !!,"Instrument: ",YSTS:DTIME
|
|---|
| 9 | S YSTOUT='$T,YSUOUT=YSTS["^"
|
|---|
| 10 | G:YSTOUT!YSUOUT!(YSTS']"") FIN
|
|---|
| 11 | I YSTS["?" S YSTESTN="?",YSXT="",YSORD=DUZ D ^YTLIST K YSTESTN,YSXT G PIT
|
|---|
| 12 | S YSTEST=$O(^YTT(601,"B",YSTS,0))
|
|---|
| 13 | I 'YSTEST W $C(7)," [Not found]" G PIT
|
|---|
| 14 | ;
|
|---|
| 15 | ; Don't print batteries!!!
|
|---|
| 16 | I $P($G(^YTT(601,+YSTEST,0)),U,9)="B" W " Battery selection not allowed..." G PIT ;->
|
|---|
| 17 | ;
|
|---|
| 18 | S %ZIS="Q" D ^%ZIS G:POP FIN I $D(IO("Q")) S ZTRTN="ENP^YTPIT",(ZTSAVE("YSTS"),ZTSAVE("YSTEST"))="",ZTDESC="YS INST ITEM PRINT" D ^%ZTLOAD G FIN
|
|---|
| 19 | ENP ;
|
|---|
| 20 | K Y D ENDTM^YSUTL S YSLFT=0,YSTNM=$P($P(^YTT(601,YSTEST,"P"),U),"---",2),P0=$S(IOST?1"P".E:1,1:0),P1=$S(P0:8,1:3)
|
|---|
| 21 | U IO W @IOF W !!?4,YSTNM," (",YSTS,")"," ",YSDT(1),! F I=1:1 Q:'$D(^YTT(601,YSTEST,"Q",I,"T")) D
|
|---|
| 22 | .D CK:$Y+1+P1>IOSL Q:YSLFT W !!,$J(I,4,0),?7,^YTT(601,YSTEST,"Q",I,"T",1,0)
|
|---|
| 23 | .F J=2:1 Q:'$D(^YTT(601,YSTEST,"Q",I,"T",J,0)) D CK:$Y+P1>IOSL Q:YSLFT W !?7,^(0)
|
|---|
| 24 | W ! D KILL^%ZTLOAD,^%ZISC G FIN
|
|---|
| 25 | CK ;
|
|---|
| 26 | D:'P0 WAIT^YSUTL Q:YSLFT W @IOF W:P0 !!?4,YSTNM," (",YSTS,")"," ",YSDT(1),! Q
|
|---|
| 27 | FIN ;
|
|---|
| 28 | K %ZIS,I,I0,IO("Q"),J,P0,P1,YSDTM,YSLFT,YSORD,YSTM,YSTNM,YSTEST,YSTS,ZTSK Q
|
|---|
