Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: TIUPT329

TIUPT329.m

Go to the documentation of this file.
  1. TIUPT329 ;;LB/PB - CCRA POST INSTALL;NOV 4, 2019
  1. ;;1.0;TEXT INTEGRATION UTILITIES;**329**;NOV 4, 2019;Build 42
  1. ;;Per VA directive 6402, this routine should not be modified.
  1. ;Post install routine for patch TIU*1.0*329.
  1. ;Checks for the TIUCCRA logical link, if it exists, edits the link to remove
  1. ;the institution and to add the dns domain for the HC server
  1. Q
  1. D LINK
  1. Q
  1. N LIEN,VAL,SDERR,FDA,DNS
  1. D MES^XPDUTL("Checking VistA system for TIUCCRA logical link setup...")
  1. S VAL="TIUCCRA"
  1. S LIEN=$$FIND1^DIC(870,,"B",.VAL)
  1. I $G(LIEN)'>0 D MES^XPDUTL("Link doesn't exists") Q
  1. S DNS=$$GET1^DIQ(870,$G(LIEN)_",",400.01,"I")
  1. D MES^XPDUTL("")
  1. D MES^XPDUTL("")
  1. D MES^XPDUTL("")
  1. D MES^XPDUTL("TIUCCRA logical link being set up now. ")
  1. D MES^XPDUTL("")
  1. D MES^XPDUTL("")
  1. D MES^XPDUTL("")
  1. ;
  1. ; file link with IP address and port entered
  1. K FDA,SDERR
  1. S FDA(870,$G(LIEN)_",",.02)="@" ; delete the station number
  1. S FDA(870,$G(LIEN)_",",.08)=$G(DNS) ; add dns domain for HealthConnect server
  1. D UPDATE^DIE(,"FDA",$G(LIEN)_",","SDERR") K FDA
  1. D MES^XPDUTL("")
  1. I $D(SDERR) D Q ; something went wrong
  1. .D MES^XPDUTL("FileMan error when editing the TIUCCRA Link.")
  1. D MES^XPDUTL("TIUCCRA Link has been updated.")
  1. Q
  1. QEND K DIR,SDERR Q
  1. QABORT S XPDABORT=1 K DIR,SDERR Q