- XMDB1P3 ;ALB/FJF - MAILMAN DOMAIN POST INSTALL UPDATE; 30 Aug 2021
- ;;1.0;MAILMAN DOMAIN UPDATES;**3**;Nov 8, 2016;Build 5
- ;
- Q
- ;
- POST ;post install entry point
- ;
- D BMES^XPDUTL(">>>Adding new entries to the DOMAIN (#4.2) file...")
- ;
- N XMDBCNT,XMDBREC,XMDBNAME,XMDBFLAG,XMDBRELAY,XMDBNOTE,X,Y,DIC
- F XMDBCNT=1:1 S XMDBREC=$P($T(UPDDOM+XMDBCNT),";;",2) Q:XMDBREC="QUIT" D
- .S XMDBNAME=$P(XMDBREC,"^")
- .S XMDBFLAG=$P(XMDBREC,"^",2)
- .S XMDBRELAY=$P(XMDBREC,"^",3)
- .S XMDBNOTE=$P(XMDBREC,"^",4)
- .I $O(^DIC(4.2,"B",XMDBNAME,"")) D BMES^XPDUTL("*** Entry "_XMDBNAME_" already added to the file. ***") Q
- .S DIC=4.2,DIC(0)="EZL",X=XMDBNAME
- .S DIC("DR")="1///"_XMDBFLAG_";2///"_XMDBRELAY_";4.2///"_XMDBNOTE
- .D FILE^DICN
- .I Y=-1 D Q
- ..D BMES^XPDUTL("*** Error adding entry "_XMDBNAME_". ***")
- ..D MES^XPDUTL("*** Please contact support for assistance. ***")
- .D BMES^XPDUTL(" Domain "_XMDBNAME_" successfully added to the file")
- ;
- D BMES^XPDUTL("...update complete<<<")
- Q
- ;
- UPDDOM ;name^flags^disable turn command^relay domain^notes^dhcp routing indicator
- ;;Q-IFM.DOMAIN.EXT^NS^FOC-AUSTIN.DOMAIN.EXT^This is the Production queue for FMBT data transmissions.^IFM
- ;;Q-IFT.DOMAIN.EXT^NS^FOC-AUSTIN.DOMAIN.EXT^This queue is for testing FMBT data transmissions in a non-Production account.^IFT
- ;;QUIT
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMDB1P3 1343 printed Feb 18, 2025@23:37:40 Page 2
- XMDB1P3 ;ALB/FJF - MAILMAN DOMAIN POST INSTALL UPDATE; 30 Aug 2021
- +1 ;;1.0;MAILMAN DOMAIN UPDATES;**3**;Nov 8, 2016;Build 5
- +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 XMDBCNT,XMDBREC,XMDBNAME,XMDBFLAG,XMDBRELAY,XMDBNOTE,X,Y,DIC
- +5 FOR XMDBCNT=1:1
- SET XMDBREC=$PIECE($TEXT(UPDDOM+XMDBCNT),";;",2)
- if XMDBREC="QUIT"
- QUIT
- Begin DoDot:1
- +6 SET XMDBNAME=$PIECE(XMDBREC,"^")
- +7 SET XMDBFLAG=$PIECE(XMDBREC,"^",2)
- +8 SET XMDBRELAY=$PIECE(XMDBREC,"^",3)
- +9 SET XMDBNOTE=$PIECE(XMDBREC,"^",4)
- +10 IF $ORDER(^DIC(4.2,"B",XMDBNAME,""))
- DO BMES^XPDUTL("*** Entry "_XMDBNAME_" already added to the file. ***")
- QUIT
- +11 SET DIC=4.2
- SET DIC(0)="EZL"
- SET X=XMDBNAME
- +12 SET DIC("DR")="1///"_XMDBFLAG_";2///"_XMDBRELAY_";4.2///"_XMDBNOTE
- +13 DO FILE^DICN
- +14 IF Y=-1
- Begin DoDot:2
- +15 DO BMES^XPDUTL("*** Error adding entry "_XMDBNAME_". ***")
- +16 DO MES^XPDUTL("*** Please contact support for assistance. ***")
- End DoDot:2
- QUIT
- +17 DO BMES^XPDUTL(" Domain "_XMDBNAME_" successfully added to the file")
- End DoDot:1
- +18 ;
- +19 DO BMES^XPDUTL("...update complete<<<")
- +20 QUIT
- +21 ;
- UPDDOM ;name^flags^disable turn command^relay domain^notes^dhcp routing indicator
- +1 ;;Q-IFM.DOMAIN.EXT^NS^FOC-AUSTIN.DOMAIN.EXT^This is the Production queue for FMBT data transmissions.^IFM
- +2 ;;Q-IFT.DOMAIN.EXT^NS^FOC-AUSTIN.DOMAIN.EXT^This queue is for testing FMBT data transmissions in a non-Production account.^IFT
- +3 ;;QUIT