DGBUL ;ALB/MRL - SEND DG BULLETIN ; 22 MAY 1987
;;5.3;Registration;**31,244,545,730**;Aug 13, 1993;Build 2
;
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.
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGBUL 1627 printed Sep 11, 2024@03:01:33 Page 2
DGBUL ;ALB/MRL - SEND DG BULLETIN ; 22 MAY 1987
+1 ;;5.3;Registration;**31,244,545,730**;Aug 13, 1993;Build 2
+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.
