GMRCP146.m

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 ---GMRCP146   1312     printed  Apr 09, 2024@20:52:58                                                                                                                                                                                                    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      ;