XU8P693 ;OAK_BP/BDT - POST ROUTINE 693 create a email group; 11/14/18
;;8.0;KERNEL;**693**;Jul 10, 1995;Build 13
;;Per VHA Directive 6402, this routine should not be modified.
;
Q
;
PRE ;
I $D(^DD(200,7,1,2,0)) D DELIX^DDMOD(200,7,2)
Q
;
POST ;
N XUI,XUY,XUZ
S XUY=$$MGTOBULL("ISO SECURITY","XUSERDIS") ;add a new mail group to a bulletin
S XUZ=$$MGTOBULL("ISO SECURITY","XUSERDEAC") ;add a new mail group to a bulletin
Q
;
END K DLAYGO,DA
Q
;
MGTOBULL(XUMAIL,XUBULL) ; ADD A MAIL GROUP TO A BULLETIN
N FDA,XUI,IENS,XUI
S XUI=+$O(^XMB(3.6,"B",XUBULL,0))
I XUI'>0 Q 0
I +$O(^XMB(3.8,"B",XUMAIL,0))'>0 Q 0
S IENS="?+1,"_XUI_","
S FDA(3.62,IENS,.01)=XUMAIL
D UPDATE^DIE("E","FDA",,"ERR")
I $D(ERR) Q 0
Q 1
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P693 761 printed Dec 13, 2024@02:08:35 Page 2
XU8P693 ;OAK_BP/BDT - POST ROUTINE 693 create a email group; 11/14/18
+1 ;;8.0;KERNEL;**693**;Jul 10, 1995;Build 13
+2 ;;Per VHA Directive 6402, this routine should not be modified.
+3 ;
+4 QUIT
+5 ;
PRE ;
+1 IF $DATA(^DD(200,7,1,2,0))
DO DELIX^DDMOD(200,7,2)
+2 QUIT
+3 ;
POST ;
+1 NEW XUI,XUY,XUZ
+2 ;add a new mail group to a bulletin
SET XUY=$$MGTOBULL("ISO SECURITY","XUSERDIS")
+3 ;add a new mail group to a bulletin
SET XUZ=$$MGTOBULL("ISO SECURITY","XUSERDEAC")
+4 QUIT
+5 ;
END KILL DLAYGO,DA
+1 QUIT
+2 ;
MGTOBULL(XUMAIL,XUBULL) ; ADD A MAIL GROUP TO A BULLETIN
+1 NEW FDA,XUI,IENS,XUI
+2 SET XUI=+$ORDER(^XMB(3.6,"B",XUBULL,0))
+3 IF XUI'>0
QUIT 0
+4 IF +$ORDER(^XMB(3.8,"B",XUMAIL,0))'>0
QUIT 0
+5 SET IENS="?+1,"_XUI_","
+6 SET FDA(3.62,IENS,.01)=XUMAIL
+7 DO UPDATE^DIE("E","FDA",,"ERR")
+8 IF $DATA(ERR)
QUIT 0
+9 QUIT 1
+10 ;