source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGBUL.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1DGBUL ;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)
20Q K DGSM,DGB,DGTEXT,XMR,DGII,XMY,XMTEXT,XMDUZ,XMSUB Q
21 ;
22EDIT ;
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
25T ;
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.
Note: See TracBrowser for help on using the repository browser.