PSBRPC3 ;BIRMINGHAM/VRN-BCMA RPC BROKER CALLS ;Mar 2004
 ;;3.0;BAR CODE MED ADMIN;**6,3,4,16,13,10,32**;Mar 2004;Build 32
 ;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.32.*",PSBPREV="",PSBCNT=0
 S PSBCNT=PSBCNT+1
 S RESULTS(PSBCNT)=PSBCURR_U_PSBPREV
 S RESULTS(0)=PSBCNT
 Q
 ;