GMRCP146 ;;COG/PB/MJ - CCRA PRE INSTALL;NOV 7, 2019
;;3.0;Consult Tracking;**146**;NOV 7, 2019;Build 12
;;Per VA directive 6402, this routine should not be modified.
;Pre install routine for patch GMRC*3.0*146.
;Checks for the GMRCCCRA logical link, if it exists, edits the link to remove
;the institution and to add the dns domain for the HC server
Q
EN ; Entry point
D LINK
Q
LINK ; update the TMP_Send Link
N LIEN,VAL,GMRCERR,FDA,DNS
D MES^XPDUTL("Checking VistA system for GMRCCCRA logical link setup...")
S VAL="GMRCCCRA"
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("GMRCCCRA logical link being updated now. ")
D MES^XPDUTL("")
D MES^XPDUTL("")
D MES^XPDUTL("")
;
; file link with IP address and port entered
K FDA,GMRCERR
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)_",","GMRCERR") K FDA
D MES^XPDUTL("")
I $D(GMRCERR) D Q ; something went wrong
.D MES^XPDUTL("FileMan error when editing the GMRCCCRA Link.")
D MES^XPDUTL("GMRCCCRA Link has been updated.")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRCP146 1312 printed Dec 13, 2024@01:46:25 Page 2
GMRCP146 ;;COG/PB/MJ - CCRA PRE INSTALL;NOV 7, 2019
+1 ;;3.0;Consult Tracking;**146**;NOV 7, 2019;Build 12
+2 ;;Per VA directive 6402, this routine should not be modified.
+3 ;Pre install routine for patch GMRC*3.0*146.
+4 ;Checks for the GMRCCCRA 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
EN ; Entry point
+1 DO LINK
+2 QUIT
LINK ; update the TMP_Send Link
+1 NEW LIEN,VAL,GMRCERR,FDA,DNS
+2 DO MES^XPDUTL("Checking VistA system for GMRCCCRA logical link setup...")
+3 SET VAL="GMRCCCRA"
+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("GMRCCCRA logical link being updated 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,GMRCERR
+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)_",","GMRCERR")
KILL FDA
+20 DO MES^XPDUTL("")
+21 ; something went wrong
IF $DATA(GMRCERR)
Begin DoDot:1
+22 DO MES^XPDUTL("FileMan error when editing the GMRCCCRA Link.")
End DoDot:1
QUIT
+23 DO MES^XPDUTL("GMRCCCRA Link has been updated.")
+24 QUIT
+25 ;
