PSBRPC3.m

PSBRPC3 ;BIRMINGHAM/VRN - BCMA RPC BROKER CALLS ; 6/8/23 8:31am

 ;;3.0;BAR CODE MED ADMIN;**6,3,4,16,13,10,32,28,42,58,68,70,83,97,96,118,101,123,106,140**;Mar 2004;Build 1

 ;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.140.*"

 S PSBPREV="",PSBCNT=0

 S PSBCNT=PSBCNT+1

 S RESULTS(PSBCNT)=PSBCURR_U_PSBPREV

 S RESULTS(0)=PSBCNT

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSBRPC3   520     printed  Apr 09, 2024@20:45:19                                                                                                                                                                                                      Page 2

PSBRPC3   ;BIRMINGHAM/VRN - BCMA RPC BROKER CALLS ; 6/8/23 8:31am

 +1       ;;3.0;BAR CODE MED ADMIN;**6,3,4,16,13,10,32,28,42,58,68,70,83,97,96,118,101,123,106,140**;Mar 2004;Build 1

 +2       ;Per VHA Directive 2004-038 (or future revisions regarding same), this routine should not be modified.

 +3       ;

GUICHK(RESULTS,DUMMY) ;

 +1       ;

 +2       ; RPC : PSB VERSION CHECK

 +3       ;

 +4        KILL RESULTS

 +5        NEW PSBCURR,PSBPREV,PSBCNT

 +6        SET PSBCURR="3.0.140.*"

 +7        SET PSBPREV=""

           SET PSBCNT=0

 +8        SET PSBCNT=PSBCNT+1

 +9        SET RESULTS(PSBCNT)=PSBCURR_U_PSBPREV

 +10       SET RESULTS(0)=PSBCNT

 +11       QUIT 

 +12      ;