16 lines
1.1 KiB
Mathematica
16 lines
1.1 KiB
Mathematica
YTDP1 ;SLC/TGA-STAFF COMMENTS ON TEST/INTERVIEWS ; 10/20/88 08:36 ;
|
|
;;5.01;MENTAL HEALTH;**37**;Dec 30, 1994
|
|
;
|
|
S YSLFT=0,P0=$S(IOST?1"C-".E:0,1:1) D DTA^YTREPT,HDR
|
|
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
|
|
K D,DIW,DIWF,DIWL,DIWR,DIWT,DN,DW2,DWI,I,YSI,YSJ,YSU Q
|
|
PC1 ;
|
|
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
|
|
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"
|
|
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)
|
|
I P0 W !,"NOT VALID UNLESS SIGNED" Q
|
|
HDR ;
|
|
W !!,"Staff Remarks on ",$P(^YTT(601,YSTEST,0),U)," of ",$$FMTE^XLFDT(YSED,"5ZD") Q
|
|
CK ;
|
|
D:'P0 WAIT^YSUTL Q:YSLFT D:P0 DTA^YTREPT,HDR Q
|