VIAAMB1 ;ALB/CR - RTLS Ping Test Utility ;5/4/16 10:54am
;;1.0;RTLS;**3**;April 22, 2013;Build 20
;
; Access to file #6910 covered by IA #5920
; This RPC is a simple test to verify that the VistA system is up
; and running along with the VIAA patch installed. No input is
; required from the calling application.
;
PINGRP(RETSTA) ; - Test that VistA is up with VIAA patch installed
; RPC: VIAA ENG GET PRIMARY STATION
; Output: passed via the variable RETSTA consists of the primary
; station number for the site
N PSTATION
; the Engineering package must have one entry that reflects
; the primary station for the site
S PSTATION=+$P($G(^DIC(6910,1,0)),U,2)
S RETSTA=PSTATION ; primary station # for the site
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVIAAMB1 756 printed Sep 23, 2025@20:09:35 Page 2
VIAAMB1 ;ALB/CR - RTLS Ping Test Utility ;5/4/16 10:54am
+1 ;;1.0;RTLS;**3**;April 22, 2013;Build 20
+2 ;
+3 ; Access to file #6910 covered by IA #5920
+4 ; This RPC is a simple test to verify that the VistA system is up
+5 ; and running along with the VIAA patch installed. No input is
+6 ; required from the calling application.
+7 ;
PINGRP(RETSTA) ; - Test that VistA is up with VIAA patch installed
+1 ; RPC: VIAA ENG GET PRIMARY STATION
+2 ; Output: passed via the variable RETSTA consists of the primary
+3 ; station number for the site
+4 NEW PSTATION
+5 ; the Engineering package must have one entry that reflects
+6 ; the primary station for the site
+7 SET PSTATION=+$PIECE($GET(^DIC(6910,1,0)),U,2)
+8 ; primary station # for the site
SET RETSTA=PSTATION
+9 QUIT
