Routine: IB20P475

IB20P475 ;ALB/CXW - Patch Install Routine ; 10/10/12 5:45pm

 ;;2.0;INTEGRATED BILLING;**475**;21-MAR-94;Build 31

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

POST ; Update the TCP/IP address for HL7 Logical Link 'IIV EC' which will

 ; connect to the new server located at FSC in Austin, Texas.

 ; production account-127.0.0.1, test account-127.0.0.18

 N FILE,IBIIV,IBIEN,IBPAD,IBTAD,IBOAD,IBNAD,IB870,IBERR

 D MES^XPDUTL("Update the TCP/IP address of HL7 Logical Link 'IIV EC'")

 ; DBIA #1496

 S FILE=870

 S IBIIV="IIV EC"

 S IBPAD="127.0.0.1",IBTAD="127.0.0.1"

 S IBIEN=$O(^HLCS(870,"B",IBIIV,0))

 I 'IBIEN D  G POSTQ

 . D MES^XPDUTL("IEN of HL7 Logical Link 'IIV EC' not found")

 ; check the account and then update the IP address

 S IBOAD=$$GET1^DIQ(870,IBIEN_",",400.01)

 I IBOAD="" D MES^XPDUTL("Please note that the TCP/IP address is blank")

 S IBNAD=$S($$PROD^XUPROD:IBPAD,1:IBTAD)

 S IB870(870,IBIEN_",",400.01)=IBNAD

 D FILE^DIE("","IB870","IBERR")

 I $D(IBERR) D  G POSTQ

 . D MES^XPDUTL("Update failed")

 D MES^XPDUTL("The TCP/IP address "_IBOAD_" was replaced with "_IBNAD)

POSTQ D MES^XPDUTL(" Done.")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20P475   1187     printed  Feb 18, 2025@23:29:29                                                                                                                                                                                                    Page 2

IB20P475  ;ALB/CXW - Patch Install Routine ; 10/10/12 5:45pm

 +1       ;;2.0;INTEGRATED BILLING;**475**;21-MAR-94;Build 31

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

 +3        QUIT

 +4       ;

POST      ; Update the TCP/IP address for HL7 Logical Link 'IIV EC' which will

 +1       ; connect to the new server located at FSC in Austin, Texas.

 +2       ; production account-127.0.0.1, test account-127.0.0.18

 +3        NEW FILE,IBIIV,IBIEN,IBPAD,IBTAD,IBOAD,IBNAD,IB870,IBERR

 +4        DO MES^XPDUTL("Update the TCP/IP address of HL7 Logical Link 'IIV EC'")

 +5       ; DBIA #1496

 +6        SET FILE=870

 +7        SET IBIIV="IIV EC"

 +8        SET IBPAD="127.0.0.1"

           SET IBTAD="127.0.0.1"

 +9        SET IBIEN=$ORDER(^HLCS(870,"B",IBIIV,0))

 +10       IF 'IBIEN

               Begin DoDot:1

 +11               DO MES^XPDUTL("IEN of HL7 Logical Link 'IIV EC' not found")

               End DoDot:1

               GOTO POSTQ

 +12      ;

 +13      ; check the account and then update the IP address

 +14       SET IBOAD=$$GET1^DIQ(870,IBIEN_",",400.01)

 +15       IF IBOAD=""

               DO MES^XPDUTL("Please note that the TCP/IP address is blank")

 +16       SET IBNAD=$SELECT($$PROD^XUPROD:IBPAD,1:IBTAD)

 +17       SET IB870(870,IBIEN_",",400.01)=IBNAD

 +18       DO FILE^DIE("","IB870","IBERR")

 +19       IF $DATA(IBERR)

               Begin DoDot:1

 +20               DO MES^XPDUTL("Update failed")

               End DoDot:1

               GOTO POSTQ

 +21       DO MES^XPDUTL("The TCP/IP address "_IBOAD_" was replaced with "_IBNAD)

 +22      ;

POSTQ      DO MES^XPDUTL(" Done.")

 +1        QUIT

 +2       ;

IB20P475.m