14 lines
1007 B
Mathematica
14 lines
1007 B
Mathematica
|
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
|