RCY275PO ;ALB/BI - Post-Installation for PRCA patch 275 ;25-AUG-2011
;;4.5;Accounts Receivable;**275**;AUG 25, 2011;Build 72
D MGAEXT
Q
;
MGAEXT ; Add external mail address to mail group.
N DO,DD,DA,DLAYGO,DIC,X,RCSITE
S RCSITE=$G(^XMB("NETNAME")) Q:RCSITE="" ; SITE DOMAIN NAME
S X="S.PRCA MDA SERVER@"_RCSITE ; SERVER NAME WITH SITE DOMAIN NAME
S DA(1)=$O(^XMB(3.8,"B","MDA",0)) ; MAIL GROUP IEN
I $D(^XMB(3.8,DA(1),6,"B",$E(X,1,30))) Q ; MAIL ADDRESS ALREADY EXISTS.
S DLAYGO=3.812,DIC(0)="L",DIC="^XMB(3.8,"_DA(1)_",6,"
D FILE^DICN ; FILE THE ADDRESS
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCY275PO 646 printed Nov 22, 2024@17:00:09 Page 2
RCY275PO ;ALB/BI - Post-Installation for PRCA patch 275 ;25-AUG-2011
+1 ;;4.5;Accounts Receivable;**275**;AUG 25, 2011;Build 72
+2 DO MGAEXT
+3 QUIT
+4 ;
MGAEXT ; Add external mail address to mail group.
+1 NEW DO,DD,DA,DLAYGO,DIC,X,RCSITE
+2 ; SITE DOMAIN NAME
SET RCSITE=$GET(^XMB("NETNAME"))
if RCSITE=""
QUIT
+3 ; SERVER NAME WITH SITE DOMAIN NAME
SET X="S.PRCA MDA SERVER@"_RCSITE
+4 ; MAIL GROUP IEN
SET DA(1)=$ORDER(^XMB(3.8,"B","MDA",0))
+5 ; MAIL ADDRESS ALREADY EXISTS.
IF $DATA(^XMB(3.8,DA(1),6,"B",$EXTRACT(X,1,30)))
QUIT
+6 SET DLAYGO=3.812
SET DIC(0)="L"
SET DIC="^XMB(3.8,"_DA(1)_",6,"
+7 ; FILE THE ADDRESS
DO FILE^DICN
+8 QUIT
