VIAAMB1.m

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 ---VIAAMB1   756     printed  Apr 23, 2025@18:47:46                                                                                                                                                                                                      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