Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSBRPC3

PSBRPC3.m

Go to the documentation of this file.
PSBRPC3 ;BIRMINGHAM/VRN - BCMA RPC BROKER CALLS ; 5/14/18 2:42pm
 ;;3.0;BAR CODE MED ADMIN;**6,3,4,16,13,10,32,28,42,58,68,70,83,97,96,118**;Mar 2004;Build 2
 ;Per VHA Directive 2004-038 (or future revisions regarding same), this routine should not be modified.
 ;
GUICHK(RESULTS,DUMMY) ;
 ;
 ; RPC : PSB VERSION CHECK
 ;
 K RESULTS
 N PSBCURR,PSBPREV,PSBCNT
 S PSBCURR="3.0.118.*"
 S PSBPREV="",PSBCNT=0
 S PSBCNT=PSBCNT+1
 S RESULTS(PSBCNT)=PSBCURR_U_PSBPREV
 S RESULTS(0)=PSBCNT
 Q
 ;