Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XMDB1P3

XMDB1P3.m

Go to the documentation of this file.
  1. XMDB1P3 ;ALB/FJF - MAILMAN DOMAIN POST INSTALL UPDATE; 30 Aug 2021
  1. ;;1.0;MAILMAN DOMAIN UPDATES;**3**;Nov 8, 2016;Build 5
  1. ;
  1. Q
  1. ;
  1. POST ;post install entry point
  1. ;
  1. D BMES^XPDUTL(">>>Adding new entries to the DOMAIN (#4.2) file...")
  1. ;
  1. N XMDBCNT,XMDBREC,XMDBNAME,XMDBFLAG,XMDBRELAY,XMDBNOTE,X,Y,DIC
  1. F XMDBCNT=1:1 S XMDBREC=$P($T(UPDDOM+XMDBCNT),";;",2) Q:XMDBREC="QUIT" D
  1. .S XMDBNAME=$P(XMDBREC,"^")
  1. .S XMDBFLAG=$P(XMDBREC,"^",2)
  1. .S XMDBRELAY=$P(XMDBREC,"^",3)
  1. .S XMDBNOTE=$P(XMDBREC,"^",4)
  1. .I $O(^DIC(4.2,"B",XMDBNAME,"")) D BMES^XPDUTL("*** Entry "_XMDBNAME_" already added to the file. ***") Q
  1. .S DIC=4.2,DIC(0)="EZL",X=XMDBNAME
  1. .S DIC("DR")="1///"_XMDBFLAG_";2///"_XMDBRELAY_";4.2///"_XMDBNOTE
  1. .D FILE^DICN
  1. .I Y=-1 D Q
  1. ..D BMES^XPDUTL("*** Error adding entry "_XMDBNAME_". ***")
  1. ..D MES^XPDUTL("*** Please contact support for assistance. ***")
  1. .D BMES^XPDUTL(" Domain "_XMDBNAME_" successfully added to the file")
  1. ;
  1. D BMES^XPDUTL("...update complete<<<")
  1. Q
  1. ;
  1. 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
  1. ;;Q-IFT.DOMAIN.EXT^NS^FOC-AUSTIN.DOMAIN.EXT^This queue is for testing FMBT data transmissions in a non-Production account.^IFT
  1. ;;QUIT