source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTDP1.m@ 1710

Last change on this file since 1710 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
RevLine 
[613]1YTDP1 ;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
7PC1 ;
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
12HDR ;
13 W !!,"Staff Remarks on ",$P(^YTT(601,YSTEST,0),U)," of ",$$FMTE^XLFDT(YSED,"5ZD") Q
14CK ;
15 D:'P0 WAIT^YSUTL Q:YSLFT D:P0 DTA^YTREPT,HDR Q
Note: See TracBrowser for help on using the repository browser.