Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DGBUL

DGBUL.m

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