SDPST714 ;;MS/PB - CCRA PRE INSTALL;NOV 19, 2019
;;5.3;Scheduling;**714**;NOV 19, 2019;Build 80
;;Per VA directive 6402, this routine should not be modified.
;Pre install routine for patch SD*5.3*714.
;Checks for the TMP_SEND logical link, if it exists, edits the link to remove
;the institution
Q
LINK ; update the TMP_Send Link
N LIEN,VAL,SDERR,FDA,DNS
D MES^XPDUTL("Checking VistA system for CCRA-NAK logical link setup...")
S VAL="TMP_SEND"
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("TMP_SEND 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 TMP_SEND Link.")
D MES^XPDUTL("TMP_SEND 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[HSDPST714 1269 printed Sep 15, 2024@22:23:43 Page 2
SDPST714 ;;MS/PB - CCRA PRE INSTALL;NOV 19, 2019
+1 ;;5.3;Scheduling;**714**;NOV 19, 2019;Build 80
+2 ;;Per VA directive 6402, this routine should not be modified.
+3 ;Pre install routine for patch SD*5.3*714.
+4 ;Checks for the TMP_SEND logical link, if it exists, edits the link to remove
+5 ;the institution
+6 QUIT
LINK ; update the TMP_Send Link
+1 NEW LIEN,VAL,SDERR,FDA,DNS
+2 DO MES^XPDUTL("Checking VistA system for CCRA-NAK logical link setup...")
+3 SET VAL="TMP_SEND"
+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("TMP_SEND 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 TMP_SEND Link.")
End DoDot:1
QUIT
+23 DO MES^XPDUTL("TMP_SEND Link has been updated.")
+24 QUIT
QEND KILL DIR,SDERR
QUIT
QABORT SET XPDABORT=1
KILL DIR,SDERR
QUIT
