DGBUL.m

DGBUL ;ALB/MRL - SEND DG BULLETIN ; 22 MAY 1987

 ;;5.3;Registration;**31,244,545,730,1015**;Aug 13, 1993;Build 21

 ;

 N DIC,DIX,DIY,DO,DD

 I '$D(DGB),'$D(XMSUB) G Q

 K:$D(DGTEXT) XMTEXT I '$D(DGTEXT)&('$D(XMTEXT)) G Q

 S DGB=+$P($G(^DG(43,1,"NOT")),"^",DGB)

 I '$D(^XMB(3.8,DGB,0)) G Q

 ;

 ;Protect Fileman from Mailman call

 N DICRREC,DIDATA,DIEFAR,DIEFCNOD,DIEFDAS,DIEFECNT,DIEFF,DIEFFLAG

 N DIEFFLD,DIEFFLST,DIEFFREF,DIEFFVAL,DIEFFXR,DIEFI,DIEFIEN,DIEFLEV

 N DIEFNODE,DIEFNVAL,DIEFOUT,DIEFOVAL,DIEFRFLD,DIEFRLST,DIEFSORK

 N DIEFSPOT,DIEFTMP,DIEFTREF,DIFLD,DIFM,DIQUIET,DISYS,D,D0,DA

 ;next line from DG*730

 K:$D(XMY) XMY

 ;

 S XMY("G."_$P($G(^XMB(3.8,DGB,0)),"^",1))="" ; pass mailgroup

 G Q:'$D(DUZ) S:'$D(DGSM) DGSM=1 S XMTEXT=$S('$D(XMTEXT):"DGTEXT(",1:XMTEXT),XMDUZ=$S(($D(DUZ)#2):DUZ,1:.5) S:$D(DUZ)#2&(DGSM) XMY(DUZ)="" K:'$D(XMY) DGSM D ^XMD:$D(XMY)

Q K DGSM,DGB,DGTEXT,XMR,DGII,XMY,XMTEXT,XMDUZ,XMSUB Q

 ;

EDIT ;

 F I=1:1 S J=$P($T(T+I),";;",2) Q:J']""  W !,J

 W ! S DIE="^DG(43,",(DA,Y)=1,DR="500:513" D ^DIE K D,D0,DI,DIC,DQ,X,DR,DIE,DA,Y,I,J Q

T ;

 ;;This option is used to specify the mailgroup you desire specific types of

 ;;notification to be made to.  The mailgroup can be one created locally or a

 ;;distributed 'DG' mailgroup.  If a mailgroup is selected notification concerning

 ;;that specific action will be made in the form of a mailman bulletin.  If no

 ;;notification is desired for a specific action no mailgroup should be specified.

 ;;If you have any questions concerning the purpose of a specific type of

 ;;notification enter a question mark at the applicable prompt.

DGBUL     ;ALB/MRL - SEND DG BULLETIN ; 22 MAY 1987

 +1       ;;5.3;Registration;**31,244,545,730,1015**;Aug 13, 1993;Build 21

 +2       ;

 +3        NEW DIC,DIX,DIY,DO,DD

 +4        IF '$DATA(DGB)

               IF '$DATA(XMSUB)

                   GOTO Q

 +5        IF $DATA(DGTEXT)

               KILL XMTEXT

           IF '$DATA(DGTEXT)&('$DATA(XMTEXT))

               GOTO Q

 +6        SET DGB=+$PIECE($GET(^DG(43,1,"NOT")),"^",DGB)

 +7        IF '$DATA(^XMB(3.8,DGB,0))

               GOTO Q

 +8       ;

 +9       ;Protect Fileman from Mailman call

 +10       NEW DICRREC,DIDATA,DIEFAR,DIEFCNOD,DIEFDAS,DIEFECNT,DIEFF,DIEFFLAG

 +11       NEW DIEFFLD,DIEFFLST,DIEFFREF,DIEFFVAL,DIEFFXR,DIEFI,DIEFIEN,DIEFLEV

 +12       NEW DIEFNODE,DIEFNVAL,DIEFOUT,DIEFOVAL,DIEFRFLD,DIEFRLST,DIEFSORK

 +13       NEW DIEFSPOT,DIEFTMP,DIEFTREF,DIFLD,DIFM,DIQUIET,DISYS,D,D0,DA

 +14      ;next line from DG*730

 +15       IF $DATA(XMY)

               KILL XMY

 +16      ;

 +17      ; pass mailgroup

           SET XMY("G."_$PIECE($GET(^XMB(3.8,DGB,0)),"^",1))=""

 +18       IF '$DATA(DUZ)

               GOTO Q

           IF '$DATA(DGSM)

               SET DGSM=1

           SET XMTEXT=$SELECT('$DATA(XMTEXT):"DGTEXT(",1:XMTEXT)

           SET XMDUZ=$SELECT(($DATA(DUZ)#2):DUZ,1:.5)

           IF $DATA(DUZ)#2&(DGSM)

               SET XMY(DUZ)=""

           IF '$DATA(XMY)

               KILL DGSM

           IF $DATA(XMY)

               DO ^XMD

Q          KILL DGSM,DGB,DGTEXT,XMR,DGII,XMY,XMTEXT,XMDUZ,XMSUB

           QUIT 

 +1       ;

EDIT      ;

 +1        FOR I=1:1

               SET J=$PIECE($TEXT(T+I),";;",2)

               IF J']""

                   QUIT 

               WRITE !,J

 +2        WRITE !

           SET DIE="^DG(43,"

           SET (DA,Y)=1

           SET DR="500:513"

           DO ^DIE

           KILL D,D0,DI,DIC,DQ,X,DR,DIE,DA,Y,I,J

           QUIT 

T         ;

 +1       ;;This option is used to specify the mailgroup you desire specific types of

 +2       ;;notification to be made to.  The mailgroup can be one created locally or a

 +3       ;;distributed 'DG' mailgroup.  If a mailgroup is selected notification concerning

 +4       ;;that specific action will be made in the form of a mailman bulletin.  If no

 +5       ;;notification is desired for a specific action no mailgroup should be specified.

 +6       ;;If you have any questions concerning the purpose of a specific type of

 +7       ;;notification enter a question mark at the applicable prompt.