SDPST735 ;;CCRA/PB - CCRA PRE INSTALL;NOV 4, 2019
;;5.3;Scheduling;**735**;NOV 4, 2019;Build 21
;;Per VA directive 6402, this routine should not be modified.
;Post install routine for patch SD*5.3*735.
;Checks for the CCRA-NAK logical link, if it exists, edits the link to remove
;the institution and adds the COM CARE-OTHER non count clinic to the
;Hospital Location File (#44)
Q
EN ; Entry point
;D CLINIC
LINK ; update the CCRA-NAK Link
N LIEN,VAL,SDERR,FDA,DNS
D MES^XPDUTL("Checking VistA system for CCRA-NAK logical link setup...")
S VAL="CCRA-NAK"
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("CCRA-NAK 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 CCCRA-NAK Link.")
D MES^XPDUTL("CCRA-NAK 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[HSDPST735 1385 printed Dec 13, 2024@02:59:55 Page 2
SDPST735 ;;CCRA/PB - CCRA PRE INSTALL;NOV 4, 2019
+1 ;;5.3;Scheduling;**735**;NOV 4, 2019;Build 21
+2 ;;Per VA directive 6402, this routine should not be modified.
+3 ;Post install routine for patch SD*5.3*735.
+4 ;Checks for the CCRA-NAK logical link, if it exists, edits the link to remove
+5 ;the institution and adds the COM CARE-OTHER non count clinic to the
+6 ;Hospital Location File (#44)
+7 QUIT
EN ; Entry point
+1 ;D CLINIC
LINK ; update the CCRA-NAK Link
+1 NEW LIEN,VAL,SDERR,FDA,DNS
+2 DO MES^XPDUTL("Checking VistA system for CCRA-NAK logical link setup...")
+3 SET VAL="CCRA-NAK"
+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("CCRA-NAK 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 CCCRA-NAK Link.")
End DoDot:1
QUIT
+23 DO MES^XPDUTL("CCRA-NAK Link has been updated.")
+24 QUIT
QEND KILL DIR,SDERR
QUIT
QABORT SET XPDABORT=1
KILL DIR,SDERR
QUIT
