XU8P693.m

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 ---XU8P693   761     printed  Mar 13, 2025@21:13:28                                                                                                                                                                                                      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      ;