| [613] | 1 | YSPROBR1 ;SLC/TGA-PRINTS PROBLEM LIST (CONT.) ;11/15/90 16:45 ;
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
|---|
| 3 | ;
|
|---|
| 4 | ; Called by routine YSPROBR
|
|---|
| 5 | 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
|
|---|
| 6 | 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
|
|---|
| 7 | END ; Called by routine YSPROBR
|
|---|
| 8 | D KILL^%ZTLOAD D:YST ENFT^YSFORM D:'IOST?1"P".E WAIT^YSUTL
|
|---|
| 9 | FIN ; Called by routine YSPRBR1, YSPROBR
|
|---|
| 10 | 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
|
|---|
| 11 | 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
|
|---|
| 12 | K DX1,DX2,DX3,RDT,ST,ST1,YSDXNN,YSDTM,YSHDX,YSLC,YSPHDX,YSTM,STDT,YSINTU
|
|---|
| 13 | Q
|
|---|
