ASDWLE.m

ASDWLE ; IHS/ADC/PDW/ENM - WAITING LIST ENTER/EDIT ; [ 03/25/1999  11:48 AM ]

 ;;5.0;IHS SCHEDULING;;MAR 25, 1999

 ;

 NEW DIC,DIE,DA,DR,DLAYGO,ASDN,Y

 S DIC="^ASDWL(",DIC(0)="AEMQL",DLAYGO=9009015 D ^DIC Q:Y<1

 L +^ASDWL(+Y):3 I '$T D MSG Q

 S (DA,ASDN)=+Y,DIE="^ASDWL(",DR="[ASDWL]",AUPNLK("ALL")="" D ^DIE

 L -^ASDWL(ASDN)

 K AUPNLK("ALL") Q

 ;

MSG ;

 W !!,*7

 W "ANOTHER USER IS UPDATING THIS CLINIC'S WAITING LIST"

 W !,"PLEASE TRY AGAIN IN A FEW SECONDS" Q

ASDWLE    ; IHS/ADC/PDW/ENM - WAITING LIST ENTER/EDIT ; [ 03/25/1999  11:48 AM ]

 +1       ;;5.0;IHS SCHEDULING;;MAR 25, 1999

 +2       ;

 +3        NEW DIC,DIE,DA,DR,DLAYGO,ASDN,Y

 +4        SET DIC="^ASDWL("

           SET DIC(0)="AEMQL"

           SET DLAYGO=9009015

           DO ^DIC

           IF Y<1

               QUIT 

 +5        LOCK +^ASDWL(+Y):3

           IF '$TEST

               DO MSG

               QUIT 

 +6        SET (DA,ASDN)=+Y

           SET DIE="^ASDWL("

           SET DR="[ASDWL]"

           SET AUPNLK("ALL")=""

           DO ^DIE

 +7        LOCK -^ASDWL(ASDN)

 +8        KILL AUPNLK("ALL")

           QUIT 

 +9       ;

MSG       ;

 +1        WRITE !!,*7

 +2        WRITE "ANOTHER USER IS UPDATING THIS CLINIC'S WAITING LIST"

 +3        WRITE !,"PLEASE TRY AGAIN IN A FEW SECONDS"

           QUIT