ADGMAIL.m

ADGMAIL ; IHS/ADC/PDW/ENM - EDIT MEMBERS OF ADT MAIL GROUPS ; [ 03/25/1999  11:48 AM ]

 ;;5.0;ADMISSION/DISCHARGE/TRANSFER;;MAR 25, 1999

 ;

 ;

 W !!,"You may now add mail groups to any bulletin you've turned on."

BNAME W ! K DIC S DIC(0)="AEQMZ",DIC=3.6

 S DIC("S")="I $P(^XMB(3.6,+Y,0),U)?1""DG IHS "".E"

 S DIC("A")="Select ADT BULLETIN NAME:  " D ^DIC G END:'$T,END:Y<0

 ;

BEDIT K DIE,DIC S DIE=3.6,DA=+Y,DR="4",DR(2,3.62)=".01"

 L +^XMB(3.6,DA):3 I '$T D  G BNAME

 . W !,*7,"SOMEONE ELSE IS UPDATING THIS BULLETIN; TRY AGAIN LATER"

 D ^DIE L -^XMB(3.6,DA)

 W ! G BNAME

 ;

END K DIC,DIE,DA,DR,X,Y Q

ADGMAIL   ; IHS/ADC/PDW/ENM - EDIT MEMBERS OF ADT MAIL GROUPS ; [ 03/25/1999  11:48 AM ]

 +1       ;;5.0;ADMISSION/DISCHARGE/TRANSFER;;MAR 25, 1999

 +2       ;

 +3       ;

 +4        WRITE !!,"You may now add mail groups to any bulletin you've turned on."

BNAME      WRITE !

           KILL DIC

           SET DIC(0)="AEQMZ"

           SET DIC=3.6

 +1        SET DIC("S")="I $P(^XMB(3.6,+Y,0),U)?1""DG IHS "".E"

 +2        SET DIC("A")="Select ADT BULLETIN NAME:  "

           DO ^DIC

           IF '$TEST

               GOTO END

           IF Y<0

               GOTO END

 +3       ;

BEDIT      KILL DIE,DIC

           SET DIE=3.6

           SET DA=+Y

           SET DR="4"

           SET DR(2,3.62)=".01"

 +1        LOCK +^XMB(3.6,DA):3

           IF '$TEST

               Begin DoDot:1

 +2                WRITE !,*7,"SOMEONE ELSE IS UPDATING THIS BULLETIN; TRY AGAIN LATER"

               End DoDot:1

               GOTO BNAME

 +3        DO ^DIE

           LOCK -^XMB(3.6,DA)

 +4        WRITE !

           GOTO BNAME

 +5       ;

END        KILL DIC,DIE,DA,DR,X,Y

           QUIT