XM40PST.m

XM40PST ;ALB/JDG - XM*8.0*40 POST INIT: DOMAIN FILE UPDATE(#4.2); 04/26/10 ; 5/24/10 4:58pm

 ;;8.0;MAILMAN;**40**;26-APR-10;Build 11

 ;;Per VHA Directive 2004-038, this routine should not be modified.

 ;

 Q

 ;

EN ;LOCATES IEN FOR THE LRN.DOMAIN.EXT DOMAIN AND STUFF'S A "CN" FOR CLOSE  AND NO-FORWARD INACTIVATING THE DOMAIN.

 ;

 N XMDOM,XMFLG

 S (XMDOM,XMFLG)=0

 D BMES^XPDUTL("Closing the LRN.DOMAIN.EXT domain...")

 S XMDOM=+$O(^DIC(4.2,"B","LRN.DOMAIN.EXT",XMDOM))  I XMDOM D

 .S XMFLG=1

 .S DR="1///CN"

 .S DIE="^DIC(4.2,",DA=XMDOM D ^DIE

 .D BMES^XPDUTL("Domain updated successfully!")

 .Q

 I 'XMFLG D BMES^XPDUTL("Unable to locate LRN.DOMAIN.EXT domain entry. Nothing updated.")

 K DIE,DA,DR,XMDOM,XMFLG

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XM40PST   734     printed  Apr 09, 2024@21:14:31                                                                                                                                                                                                      Page 2

XM40PST   ;ALB/JDG - XM*8.0*40 POST INIT: DOMAIN FILE UPDATE(#4.2); 04/26/10 ; 5/24/10 4:58pm

 +1       ;;8.0;MAILMAN;**40**;26-APR-10;Build 11

 +2       ;;Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;

 +4        QUIT 

 +5       ;

EN        ;LOCATES IEN FOR THE LRN.DOMAIN.EXT DOMAIN AND STUFF'S A "CN" FOR CLOSE  AND NO-FORWARD INACTIVATING THE DOMAIN.

 +1       ;

 +2        NEW XMDOM,XMFLG

 +3        SET (XMDOM,XMFLG)=0

 +4        DO BMES^XPDUTL("Closing the LRN.DOMAIN.EXT domain...")

 +5        SET XMDOM=+$ORDER(^DIC(4.2,"B","LRN.DOMAIN.EXT",XMDOM))

           IF XMDOM

               Begin DoDot:1

 +6                SET XMFLG=1

 +7                SET DR="1///CN"

 +8                SET DIE="^DIC(4.2,"

                   SET DA=XMDOM

                   DO ^DIE

 +9                DO BMES^XPDUTL("Domain updated successfully!")

 +10               QUIT 

               End DoDot:1

 +11       IF 'XMFLG

               DO BMES^XPDUTL("Unable to locate LRN.DOMAIN.EXT domain entry. Nothing updated.")

 +12       KILL DIE,DA,DR,XMDOM,XMFLG

 +13       QUIT