VIAAMB2.m

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 ---VIAAMB2   825     printed  Feb 18, 2025@23:59:46                                                                                                                                                                                                      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