source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSWZ.m@ 789

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1YSWZ ;ALB/ASF-MENTAL HEALTH WAIT LIST SUB MENU DRIVER ; 7/10/89 11:17 ;
2 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
3 ;
4 D DT^DICRW S DIK="^DOPT(""YSWAIT"","
5 G:$D(^DOPT("YSWAIT",5)) A S ^DOPT("YSWAIT",0)="WAIT LIST OPTION^1N^" F I=1:1 S X=$T(@I) Q:X="" S ^DOPT("YSWAIT",I,0)=$P(X,";",2,99)
6 D IXALL^DIK
7A K DIC W !! S DIC="^DOPT(""YSWAIT"",",DIC(0)="QEAM" D ^DIC Q:Y<0 D @+Y G A
8 ;
91 ; Called from MENU option YSWAITP
10 ; PRINT WAIT LISTS
11 D 1^YSWX G:Y<1 END S %ZIS="Q" D ^%ZIS G:POP END K IOP I $D(IO("Q")) S ZTRTN="11^YSWZ",ZTSAVE("N")="",ZTDESC="YS WAIT LIST PT" D ^%ZTLOAD,END Q
1211 D LP^YSWX,DSP^YSWX,KILL^%ZTLOAD,^%ZISC,END Q
13 ;
142 ; Called from MENU option YSWAITE
15 ; ADD PATIENT TO WAITING LIST
16 S YSM=1 D 1^YSWX S DIC(0)="AELMQ",DLAYGO=617 D:Y>0 2^YSWX D END Q
17 ;
183 ; Called from MENU option YSWAITEDI
19 ; EDIT PATIENT LIST DATA
20 D 1^YSWX S DIC(0)="AEQM" D:Y>0 2^YSWX D:Y>0 3^YSWX D END Q
21 ;
224 ; Called from MENU option YSWAITSHUF
23 ; MOVE PATIENT ON LIST
24 D 1^YSWX S DIC(0)="AEQM" D:Y>0 2^YSWX D:Y>0 LP^YSWX,4^YSWX D END Q
25 ;
265 ; Called from MENU option YSWAITREM
27 ; TAKE PATIENT OFF LIST
28 D 1^YSWX S DIC(0)="AEQM" D:Y>0 2^YSWX D:Y>0 5^YSWX
29END ;
30 K %Y,DA,DIC,DIE,DIK,DR,E1,H1,I,I1,I8,IO("Q"),N,N1,N2,N3,S1,S2,V,V1,V2,W2,W3,W4,X,X1,X2,X3,X8,X9,Y,YSAGE,YSBY,YSCAT,YSCOMM,YSCONT,YSDFN,YSDOB,YSELIG,YSLFT,YSM,YSNM,YSOND,YSPROM,YSSEX,YSSSN,ZTSK Q
Note: See TracBrowser for help on using the repository browser.