source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSPROBR1.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 1007 bytes
Line 
1YSPROBR1 ;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
7END ; Called by routine YSPROBR
8 D KILL^%ZTLOAD D:YST ENFT^YSFORM D:'IOST?1"P".E WAIT^YSUTL
9FIN ; 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
Note: See TracBrowser for help on using the repository browser.