VIAAMB2 ;ALB/CR - RTLS Ping Test for Cath Lab ;4/22/16 3:08 pm
;;1.0;RTLS;**4**;April 22, 2013;Build 21
;
;
; This RPC is a simple test to verify that the CATH Lab
; patch VIAA*1.0*4 has been installed at the site and that
; the system is up and running. No input is required from
; the calling application.
;
PINGRP(RETSTA) ; - Test that VistA is up with the patch installed
; RPC: VIAA GET CATHLAB PATCH STATUS
; Output: string passed via the variable RETSTA, consists of
; the RTLS Pkg version installed in VistA and the VistA
; patch number for Cath Lab support
;
N PATCH,PATCHED,RTLSVER
S RETSTA=""
S PATCH="VIAA*1.0*4"
S RTLSVER=$$VERSION^XPDUTL("VIAA")
S PATCHED=$$PATCH^XPDUTL(PATCH)
I +$G(RTLSVER)=1,$G(PATCHED)=1 S RETSTA="RTLS INSTALLED^1^VIAA*1.0*4"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVIAAMB2 825 printed Nov 22, 2024@17:43:15 Page 2
VIAAMB2 ;ALB/CR - RTLS Ping Test for Cath Lab ;4/22/16 3:08 pm
+1 ;;1.0;RTLS;**4**;April 22, 2013;Build 21
+2 ;
+3 ;
+4 ; This RPC is a simple test to verify that the CATH Lab
+5 ; patch VIAA*1.0*4 has been installed at the site and that
+6 ; the system is up and running. No input is required from
+7 ; the calling application.
+8 ;
PINGRP(RETSTA) ; - Test that VistA is up with the patch installed
+1 ; RPC: VIAA GET CATHLAB PATCH STATUS
+2 ; Output: string passed via the variable RETSTA, consists of
+3 ; the RTLS Pkg version installed in VistA and the VistA
+4 ; patch number for Cath Lab support
+5 ;
+6 NEW PATCH,PATCHED,RTLSVER
+7 SET RETSTA=""
+8 SET PATCH="VIAA*1.0*4"
+9 SET RTLSVER=$$VERSION^XPDUTL("VIAA")
+10 SET PATCHED=$$PATCH^XPDUTL(PATCH)
+11 IF +$GET(RTLSVER)=1
IF $GET(PATCHED)=1
SET RETSTA="RTLS INSTALLED^1^VIAA*1.0*4"
+12 QUIT
