| 1 | YSWZ ;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
|
|---|
| 7 | A K DIC W !! S DIC="^DOPT(""YSWAIT"",",DIC(0)="QEAM" D ^DIC Q:Y<0 D @+Y G A
|
|---|
| 8 | ;
|
|---|
| 9 | 1 ; 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
|
|---|
| 12 | 11 D LP^YSWX,DSP^YSWX,KILL^%ZTLOAD,^%ZISC,END Q
|
|---|
| 13 | ;
|
|---|
| 14 | 2 ; 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 | ;
|
|---|
| 18 | 3 ; 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 | ;
|
|---|
| 22 | 4 ; 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 | ;
|
|---|
| 26 | 5 ; 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
|
|---|
| 29 | END ;
|
|---|
| 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
|
|---|
