| 1 | DGBUL ;ALB/MRL - SEND DG BULLETIN ; 22 MAY 1987
|
|---|
| 2 | ;;5.3;Registration;**31,244,545,730**;Aug 13, 1993;Build 2
|
|---|
| 3 | ;
|
|---|
| 4 | N DIC,DIX,DIY,DO,DD
|
|---|
| 5 | I '$D(DGB),'$D(XMSUB) G Q
|
|---|
| 6 | K:$D(DGTEXT) XMTEXT I '$D(DGTEXT)&('$D(XMTEXT)) G Q
|
|---|
| 7 | S DGB=+$P($G(^DG(43,1,"NOT")),"^",DGB)
|
|---|
| 8 | I '$D(^XMB(3.8,DGB,0)) G Q
|
|---|
| 9 | ;
|
|---|
| 10 | ;Protect Fileman from Mailman call
|
|---|
| 11 | N DICRREC,DIDATA,DIEFAR,DIEFCNOD,DIEFDAS,DIEFECNT,DIEFF,DIEFFLAG
|
|---|
| 12 | N DIEFFLD,DIEFFLST,DIEFFREF,DIEFFVAL,DIEFFXR,DIEFI,DIEFIEN,DIEFLEV
|
|---|
| 13 | N DIEFNODE,DIEFNVAL,DIEFOUT,DIEFOVAL,DIEFRFLD,DIEFRLST,DIEFSORK
|
|---|
| 14 | N DIEFSPOT,DIEFTMP,DIEFTREF,DIFLD,DIFM,DIQUIET,DISYS,D,D0,DA
|
|---|
| 15 | ;next line from DG*730
|
|---|
| 16 | K:$D(XMY) XMY
|
|---|
| 17 | ;
|
|---|
| 18 | S XMY("G."_$P($G(^XMB(3.8,DGB,0)),"^",1))="" ; pass mailgroup
|
|---|
| 19 | 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)
|
|---|
| 20 | Q K DGSM,DGB,DGTEXT,XMR,DGII,XMY,XMTEXT,XMDUZ,XMSUB Q
|
|---|
| 21 | ;
|
|---|
| 22 | EDIT ;
|
|---|
| 23 | F I=1:1 S J=$P($T(T+I),";;",2) Q:J']"" W !,J
|
|---|
| 24 | 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
|
|---|
| 25 | T ;
|
|---|
| 26 | ;;This option is used to specify the mailgroup you desire specific types of
|
|---|
| 27 | ;;notification to be made to. The mailgroup can be one created locally or a
|
|---|
| 28 | ;;distributed 'DG' mailgroup. If a mailgroup is selected notification concerning
|
|---|
| 29 | ;;that specific action will be made in the form of a mailman bulletin. If no
|
|---|
| 30 | ;;notification is desired for a specific action no mailgroup should be specified.
|
|---|
| 31 | ;;If you have any questions concerning the purpose of a specific type of
|
|---|
| 32 | ;;notification enter a question mark at the applicable prompt.
|
|---|
