TIUPT329 ;;LB/PB - CCRA POST INSTALL;NOV 4, 2019
;;1.0;TEXT INTEGRATION UTILITIES;**329**;NOV 4, 2019;Build 42
;;Per VA directive 6402, this routine should not be modified.
;Post install routine for patch TIU*1.0*329.
;Checks for the TIUCCRA logical link, if it exists, edits the link to remove
;the institution and to add the dns domain for the HC server
Q
D LINK
Q
LINK ; update the TMP_Send Link
N LIEN,VAL,SDERR,FDA,DNS
D MES^XPDUTL("Checking VistA system for TIUCCRA logical link setup...")
S VAL="TIUCCRA"
S LIEN=$$FIND1^DIC(870,,"B",.VAL)
I $G(LIEN)'>0 D MES^XPDUTL("Link doesn't exists") Q
S DNS=$$GET1^DIQ(870,$G(LIEN)_",",400.01,"I")
D MES^XPDUTL("")
D MES^XPDUTL("")
D MES^XPDUTL("")
D MES^XPDUTL("TIUCCRA logical link being set up now. ")
D MES^XPDUTL("")
D MES^XPDUTL("")
D MES^XPDUTL("")
;
; file link with IP address and port entered
K FDA,SDERR
S FDA(870,$G(LIEN)_",",.02)="@" ; delete the station number
S FDA(870,$G(LIEN)_",",.08)=$G(DNS) ; add dns domain for HealthConnect server
D UPDATE^DIE(,"FDA",$G(LIEN)_",","SDERR") K FDA
D MES^XPDUTL("")
I $D(SDERR) D Q ; something went wrong
.D MES^XPDUTL("FileMan error when editing the TIUCCRA Link.")
D MES^XPDUTL("TIUCCRA Link has been updated.")
Q
QEND K DIR,SDERR Q
QABORT S XPDABORT=1 K DIR,SDERR Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUPT329 1337 printed Dec 13, 2024@02:44:32 Page 2
TIUPT329 ;;LB/PB - CCRA POST INSTALL;NOV 4, 2019
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**329**;NOV 4, 2019;Build 42
+2 ;;Per VA directive 6402, this routine should not be modified.
+3 ;Post install routine for patch TIU*1.0*329.
+4 ;Checks for the TIUCCRA logical link, if it exists, edits the link to remove
+5 ;the institution and to add the dns domain for the HC server
+6 QUIT
+7 DO LINK
+8 QUIT
LINK ; update the TMP_Send Link
+1 NEW LIEN,VAL,SDERR,FDA,DNS
+2 DO MES^XPDUTL("Checking VistA system for TIUCCRA logical link setup...")
+3 SET VAL="TIUCCRA"
+4 SET LIEN=$$FIND1^DIC(870,,"B",.VAL)
+5 IF $GET(LIEN)'>0
DO MES^XPDUTL("Link doesn't exists")
QUIT
+6 SET DNS=$$GET1^DIQ(870,$GET(LIEN)_",",400.01,"I")
+7 DO MES^XPDUTL("")
+8 DO MES^XPDUTL("")
+9 DO MES^XPDUTL("")
+10 DO MES^XPDUTL("TIUCCRA logical link being set up now. ")
+11 DO MES^XPDUTL("")
+12 DO MES^XPDUTL("")
+13 DO MES^XPDUTL("")
+14 ;
+15 ; file link with IP address and port entered
+16 KILL FDA,SDERR
+17 ; delete the station number
SET FDA(870,$GET(LIEN)_",",.02)="@"
+18 ; add dns domain for HealthConnect server
SET FDA(870,$GET(LIEN)_",",.08)=$GET(DNS)
+19 DO UPDATE^DIE(,"FDA",$GET(LIEN)_",","SDERR")
KILL FDA
+20 DO MES^XPDUTL("")
+21 ; something went wrong
IF $DATA(SDERR)
Begin DoDot:1
+22 DO MES^XPDUTL("FileMan error when editing the TIUCCRA Link.")
End DoDot:1
QUIT
+23 DO MES^XPDUTL("TIUCCRA Link has been updated.")
+24 QUIT
QEND KILL DIR,SDERR
QUIT
QABORT SET XPDABORT=1
KILL DIR,SDERR
QUIT
