YSPROBR1 ;SLC/TGA-PRINTS PROBLEM LIST (CONT.) ;11/15/90  16:45 ;
 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
 ;
 ;  Called by routine YSPROBR
 G:YSAN'=1!'$D(YSRST) END G:$P(^YS(615,YSDFN,P4,0),U,3)']"" END G:YSRST="" END G:$P(^VA(200,YSRST,0),U)']"" END
 D CK^YSPRBR2:$Y+YSSL+$S(YST:3,1:1)>IOSL G:YSLFT END S Z=YSRSD D DC^YSPRBR1 S YSRSD=Z W !! W:YST !! S X=YSRST D PSIG^YSUTL W ?2,Y,?50,"(last editing list)",?71,YSRSD
END ;  Called by routine YSPROBR
 D KILL^%ZTLOAD D:YST ENFT^YSFORM D:'IOST?1"P".E WAIT^YSUTL
FIN ;  Called by routine YSPRBR1, YSPROBR
 D ^%ZISC,KVAR^VADPT K %ZIS,A,DR,DS,YSDT(0),DX,DXS,I,I0,J,J1,K,L,L1,L2,L3,L4,N1,N2,N5,P4,P5,Q8,Q9,R,S5,X,Y,YSAGE,YSAN,YSCOM,YSCON,YSCSD,YSCST,YSDFN,YSDO,YSDOB,YSDR,YSDS,YSDXH,YSDXN,YSFTR,YSFHDR,YSID,YSIN,YSIND,YSINTL,YSINTN
 K YSINU,YSINUS,YSLL,YSLP,YSLPS,YSNDT,YSNM,YSNP,YSNS,YSPDX,YSPRB,YSPRD,YSRF,YSRSD,YSRST,YSRTL,YSSEX,YSSL,YSSN,YSSSN,YSST,YSSTT,YSSTW,YSUSER,YSUTL,YSUTN,Z,ZTSK
 K DX1,DX2,DX3,RDT,ST,ST1,YSDXNN,YSDTM,YSHDX,YSLC,YSPHDX,YSTM,STDT,YSINTU
 Q