DG53P942 ;ALB/LLS-Update DNS DOMAIN for HL Logical Link ;7/26/17 08:20
;;5.3;Registration;**942**;Aug 13, 1993;Build 11
; Uses ICRs:
; #4440 KERNEL Supported DBIA4440
Q
EN ;Post install entry point
D CHG
Q
;
CHG ;Change DNS DOMAIN field of the HL LOGICAL LINK file (#870) for entry DG HT CC
N DIC,DR,DA,DGIEN,DIE
I '$$PROD^XUPROD(1) D BMES^XPDUTL("Install was done in a non-production environment."),BMES^XPDUTL("DNS DOMAIN, TCP/IP ADDRESS, and MAILMAN DOMAIN fields not updated.") Q
S DGIEN=$O(^HLCS(870,"B","DG HT CC",""))
I DGIEN']"" D BMES^XPDUTL("'DG HT CC' record not found in HL LOGICAL LINK file (#870). DNS DOMAIN not updated.") Q ; DG HT CC entry not found in file 870
K ^UTILITY("DIQ1",$J)
S DIC=870,DR=".08",DA=DGIEN D EN^DIQ1 ; populate ^UTILITY("DIQ1",$J,870,DGIEN,.08)
S DIE="^HLCS(870,",DA=DGIEN,DR=".08///VAWW.HL7.200T7.CC.DOMAIN.EXT" D ^DIE
D BMES^XPDUTL("DNS DOMAIN changed from '"_^UTILITY("DIQ1",$J,870,DGIEN,.08)_"' to 'VAWW.HL7.200T7.CC.DOMAIN.EXT' for entry 'DG HT CC' of the HL LOGICAL LINK file (#870).")
K ^UTILITY("DIQ1",$J)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53P942 1094 printed Dec 13, 2024@02:40:25 Page 2
DG53P942 ;ALB/LLS-Update DNS DOMAIN for HL Logical Link ;7/26/17 08:20
+1 ;;5.3;Registration;**942**;Aug 13, 1993;Build 11
+2 ; Uses ICRs:
+3 ; #4440 KERNEL Supported DBIA4440
+4 QUIT
EN ;Post install entry point
+1 DO CHG
+2 QUIT
+3 ;
CHG ;Change DNS DOMAIN field of the HL LOGICAL LINK file (#870) for entry DG HT CC
+1 NEW DIC,DR,DA,DGIEN,DIE
+2 IF '$$PROD^XUPROD(1)
DO BMES^XPDUTL("Install was done in a non-production environment.")
DO BMES^XPDUTL("DNS DOMAIN, TCP/IP ADDRESS, and MAILMAN DOMAIN fields not updated.")
QUIT
+3 SET DGIEN=$ORDER(^HLCS(870,"B","DG HT CC",""))
+4 ; DG HT CC entry not found in file 870
IF DGIEN']""
DO BMES^XPDUTL("'DG HT CC' record not found in HL LOGICAL LINK file (#870). DNS DOMAIN not updated.")
QUIT
+5 KILL ^UTILITY("DIQ1",$JOB)
+6 ; populate ^UTILITY("DIQ1",$J,870,DGIEN,.08)
SET DIC=870
SET DR=".08"
SET DA=DGIEN
DO EN^DIQ1
+7 SET DIE="^HLCS(870,"
SET DA=DGIEN
SET DR=".08///VAWW.HL7.200T7.CC.DOMAIN.EXT"
DO ^DIE
+8 DO BMES^XPDUTL("DNS DOMAIN changed from '"_^UTILITY("DIQ1",$JOB,870,DGIEN,.08)_"' to 'VAWW.HL7.200T7.CC.DOMAIN.EXT' for entry 'DG HT CC' of the HL LOGICAL LINK file (#870).")
+9 KILL ^UTILITY("DIQ1",$JOB)
+10 QUIT
