XMDB1P0 ;ALB/DE - MAILMAN DOMAIN POST INSTALL UPDATE;11/08/2016
;;1.0;MAILMAN DOMAIN UPDATES;**0**;Nov 8, 2016;Build 9
;
Q
;
POST ;post install entry point
;
D BMES^XPDUTL(">>>Adding new entries to the DOMAIN (#4.2) file...")
;
N XMCNT,XMREC,XMNAME,XMFLAG,XMDISTRN,XMRELAY,XMNOTE,XMDHCP,X,Y,DIC
F XMCNT=1:1 S XMREC=$P($T(UPDDOM+XMCNT),";;",2) Q:XMREC="QUIT" D
.S XMNAME=$P(XMREC,"^"),XMFLAG=$P(XMREC,"^",2),XMDISTRN=$P(XMREC,"^",3),XMRELAY=$P(XMREC,"^",4),XMNOTE=$P(XMREC,"^",5),XMDHCP=$P(XMREC,"^",6)
.I $O(^DIC(4.2,"B",XMNAME,"")) D BMES^XPDUTL("*** Entry "_XMNAME_" already added to the file. ***") Q
.S DIC=4.2,DIC(0)="EZL",X=XMNAME
.S DIC("DR")="1///"_XMFLAG_";1.7///"_XMDISTRN_";2///"_XMRELAY_";4.2///"_XMNOTE_";6.2///"_XMDHCP
.D FILE^DICN
.I Y=-1 D Q
..D BMES^XPDUTL("*** Error adding entry "_XMNAME_". ***")
..D MES^XPDUTL("*** Please contact support for assistance. ***")
.E D Q
..D BMES^XPDUTL(" Domain "_XMNAME_" successfully added to the file")
;
D BMES^XPDUTL("...update complete<<<")
Q
;
UPDDOM ;name^flags^disable turn command^relay domain^notes^dhcp routing indicator
;;Q-CCT.DOMAIN.EXT^S^YES^FOC-AUSTIN.DOMAIN.EXT^Test queue for transmission to send monthly mailman transmissions containing daily Payment records to the Consolidated Billing Statement System (CBSS) in Austin.^CCT
;;Q-CPT.DOMAIN.EXT^S^YES^FOC-AUSTIN.DOMAIN.EXT^Test queue for transmission to send monthly mailman transmissions containing daily Payment records to the Consolidated Billing Statement System (CBSS) in Austin.^CPT
;;Q-CAT.DOMAIN.EXT^S^YES^FOC-AUSTIN.DOMAIN.EXT^Test queue for transmission to send monthly mailman transmissions containing daily Payment records to the Consolidated Billing Statement System (CBSS) in Austin.^CAT
;;Q-CBS.DOMAIN.EXT^S^YES^FOC-AUSTIN.DOMAIN.EXT^Test queue for transmission to send monthly mailman transmissions containing daily Payment records to the Consolidated Billing Statement System (CBSS) in Austin.^CBS
;;Q-CPP.DOMAIN.EXT^S^YES^FOC-AUSTIN.DOMAIN.EXT^Test queue for transmission to send monthly mailman transmissions containing daily Payment records to the Consolidated Billing Statement System (CBSS) in Austin.^CPP
;;Q-CAP.DOMAIN.EXT^S^YES^FOC-AUSTIN.DOMAIN.EXT^Test queue for transmission to send monthly mailman transmissions containing daily Payment records to the Consolidated Billing Statement System (CBSS) in Austin.^CAP
;;QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMDB1P0 2442 printed Nov 22, 2024@17:21:34 Page 2
XMDB1P0 ;ALB/DE - MAILMAN DOMAIN POST INSTALL UPDATE;11/08/2016
+1 ;;1.0;MAILMAN DOMAIN UPDATES;**0**;Nov 8, 2016;Build 9
+2 ;
+3 QUIT
+4 ;
POST ;post install entry point
+1 ;
+2 DO BMES^XPDUTL(">>>Adding new entries to the DOMAIN (#4.2) file...")
+3 ;
+4 NEW XMCNT,XMREC,XMNAME,XMFLAG,XMDISTRN,XMRELAY,XMNOTE,XMDHCP,X,Y,DIC
+5 FOR XMCNT=1:1
SET XMREC=$PIECE($TEXT(UPDDOM+XMCNT),";;",2)
if XMREC="QUIT"
QUIT
Begin DoDot:1
+6 SET XMNAME=$PIECE(XMREC,"^")
SET XMFLAG=$PIECE(XMREC,"^",2)
SET XMDISTRN=$PIECE(XMREC,"^",3)
SET XMRELAY=$PIECE(XMREC,"^",4)
SET XMNOTE=$PIECE(XMREC,"^",5)
SET XMDHCP=$PIECE(XMREC,"^",6)
+7 IF $ORDER(^DIC(4.2,"B",XMNAME,""))
DO BMES^XPDUTL("*** Entry "_XMNAME_" already added to the file. ***")
QUIT
+8 SET DIC=4.2
SET DIC(0)="EZL"
SET X=XMNAME
+9 SET DIC("DR")="1///"_XMFLAG_";1.7///"_XMDISTRN_";2///"_XMRELAY_";4.2///"_XMNOTE_";6.2///"_XMDHCP
+10 DO FILE^DICN
+11 IF Y=-1
Begin DoDot:2
+12 DO BMES^XPDUTL("*** Error adding entry "_XMNAME_". ***")
+13 DO MES^XPDUTL("*** Please contact support for assistance. ***")
End DoDot:2
QUIT
+14 IF '$TEST
Begin DoDot:2
+15 DO BMES^XPDUTL(" Domain "_XMNAME_" successfully added to the file")
End DoDot:2
QUIT
End DoDot:1
+16 ;
+17 DO BMES^XPDUTL("...update complete<<<")
+18 QUIT
+19 ;
UPDDOM ;name^flags^disable turn command^relay domain^notes^dhcp routing indicator
+1 ;;Q-CCT.DOMAIN.EXT^S^YES^FOC-AUSTIN.DOMAIN.EXT^Test queue for transmission to send monthly mailman transmissions containing daily Payment records to the Consolidated Billing Statement System (CBSS) in Austin.^CCT
+2 ;;Q-CPT.DOMAIN.EXT^S^YES^FOC-AUSTIN.DOMAIN.EXT^Test queue for transmission to send monthly mailman transmissions containing daily Payment records to the Consolidated Billing Statement System (CBSS) in Austin.^CPT
+3 ;;Q-CAT.DOMAIN.EXT^S^YES^FOC-AUSTIN.DOMAIN.EXT^Test queue for transmission to send monthly mailman transmissions containing daily Payment records to the Consolidated Billing Statement System (CBSS) in Austin.^CAT
+4 ;;Q-CBS.DOMAIN.EXT^S^YES^FOC-AUSTIN.DOMAIN.EXT^Test queue for transmission to send monthly mailman transmissions containing daily Payment records to the Consolidated Billing Statement System (CBSS) in Austin.^CBS
+5 ;;Q-CPP.DOMAIN.EXT^S^YES^FOC-AUSTIN.DOMAIN.EXT^Test queue for transmission to send monthly mailman transmissions containing daily Payment records to the Consolidated Billing Statement System (CBSS) in Austin.^CPP
+6 ;;Q-CAP.DOMAIN.EXT^S^YES^FOC-AUSTIN.DOMAIN.EXT^Test queue for transmission to send monthly mailman transmissions containing daily Payment records to the Consolidated Billing Statement System (CBSS) in Austin.^CAP
+7 ;;QUIT
