DG53P942.m

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 ---DG53P942   1094     printed  Apr 09, 2024@21:45:37                                                                                                                                                                                                    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