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 ---[H[J[2J[HXM40PST 734 printed Dec 13, 2024@02:10:38 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
