- 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 Feb 19, 2025@00:07:39 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.