SDPST735.m

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 ---SDPST735   1385     printed  Feb 19, 2025@00:26:25                                                                                                                                                                                                    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