| 1 | YTDP1 ;SLC/TGA-STAFF COMMENTS ON TEST/INTERVIEWS ; 10/20/88 08:36 ;
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;**37**;Dec 30, 1994
|
|---|
| 3 | ;
|
|---|
| 4 | S YSLFT=0,P0=$S(IOST?1"C-".E:0,1:1) D DTA^YTREPT,HDR
|
|---|
| 5 | S YSI=0 F S YSI=$O(^YTD(601.2,YSDFN,1,YSET,1,YSED,"R","AD",YSI)) Q:'YSI!(YSLFT) S YSJ=0 F S YSJ=$O(^YTD(601.2,YSDFN,1,YSET,1,YSED,"R","AD",YSI,YSJ)) Q:'YSJ Q:'$D(^YTD(601.2,YSDFN,1,YSET,1,YSED,"R",YSJ,0)) S X=^(0) D PC1 Q:YSLFT
|
|---|
| 6 | K D,DIW,DIWF,DIWL,DIWR,DIWT,DN,DW2,DWI,I,YSI,YSJ,YSU Q
|
|---|
| 7 | PC1 ;
|
|---|
| 8 | S YSU=$P(X,U,4),YSES=$P(X,U,5) Q:YSU<1 Q:YSES=""&(DUZ'=YSU) D:$Y+$S(P0:11,1:6)>IOSL CK Q:YSLFT
|
|---|
| 9 | S Y=YSI D DD^%DT W !!,Y S DIC="^YTD(601.2,YSDFN,1,YSET,1,YSED,""R"",YSJ,1,",DIWL=1,DIWR=80,DIWF="W",DWI="F D=1:1:DW2 S X="_DIC_"D,0) D:$Y+$S(P0:9,1:4)>IOSL CK Q:YSLFT D ^DIWP"
|
|---|
| 10 | S Z=DIC_"0)",DW2=$P(@(Z),U,4) D:$Y+$S(P0:10,1:5)>IOSL CK Q:YSLFT W !! X DWI Q:YSLFT D ^DIWW D:$Y+$S(P0:10,1:4)>IOSL CK Q:YSLFT W ! W:P0 !! W $P($G(^VA(200,+YSU,0)),U)
|
|---|
| 11 | I P0 W !,"NOT VALID UNLESS SIGNED" Q
|
|---|
| 12 | HDR ;
|
|---|
| 13 | W !!,"Staff Remarks on ",$P(^YTT(601,YSTEST,0),U)," of ",$$FMTE^XLFDT(YSED,"5ZD") Q
|
|---|
| 14 | CK ;
|
|---|
| 15 | D:'P0 WAIT^YSUTL Q:YSLFT D:P0 DTA^YTREPT,HDR Q
|
|---|
