XMDB1P0.m

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 ---XMDB1P0   2442     printed  Apr 09, 2024@21:15:45                                                                                                                                                                                                     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