- TIUPT329 ;;LB/PB - CCRA POST INSTALL;NOV 4, 2019
- ;;1.0;TEXT INTEGRATION UTILITIES;**329**;NOV 4, 2019;Build 42
- ;;Per VA directive 6402, this routine should not be modified.
- ;Post install routine for patch TIU*1.0*329.
- ;Checks for the TIUCCRA logical link, if it exists, edits the link to remove
- ;the institution and to add the dns domain for the HC server
- Q
- D LINK
- Q
- LINK ; update the TMP_Send Link
- N LIEN,VAL,SDERR,FDA,DNS
- D MES^XPDUTL("Checking VistA system for TIUCCRA logical link setup...")
- S VAL="TIUCCRA"
- 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("TIUCCRA 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 TIUCCRA Link.")
- D MES^XPDUTL("TIUCCRA 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[HTIUPT329 1337 printed Jan 18, 2025@03:45:41 Page 2
- TIUPT329 ;;LB/PB - CCRA POST INSTALL;NOV 4, 2019
- +1 ;;1.0;TEXT INTEGRATION UTILITIES;**329**;NOV 4, 2019;Build 42
- +2 ;;Per VA directive 6402, this routine should not be modified.
- +3 ;Post install routine for patch TIU*1.0*329.
- +4 ;Checks for the TIUCCRA 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
- +7 DO LINK
- +8 QUIT
- LINK ; update the TMP_Send Link
- +1 NEW LIEN,VAL,SDERR,FDA,DNS
- +2 DO MES^XPDUTL("Checking VistA system for TIUCCRA logical link setup...")
- +3 SET VAL="TIUCCRA"
- +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("TIUCCRA 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 TIUCCRA Link.")
- End DoDot:1
- QUIT
- +23 DO MES^XPDUTL("TIUCCRA Link has been updated.")
- +24 QUIT
- QEND KILL DIR,SDERR
- QUIT
- QABORT SET XPDABORT=1
- KILL DIR,SDERR
- QUIT