PSBRPC3.m

PSBRPC3 ;BIRMINGHAM/VRN - BCMA RPC BROKER CALLS ;30-Apr-2014 13:35;DU

 ;;3.0;BAR CODE MED ADMIN;**6,3,4,16,13,10,32,28,42,1017**;Mar 2004;Build 40

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

 ;

 ;Modified - IHS/MSC/PLS - 04/30/2014 - Line GUICHK+

GUICHK(RESULTS,DUMMY) ;

 ;

 ; RPC : PSB VERSION CHECK

 ;

 K RESULTS

 N PSBCURR,PSBPREV,PSBCNT

 ;IHS/MSC/PLS - 04/30/2014

 ;S PSBCURR="3.0.42.*",PSBPREV="",PSBCNT=0

 S PSBCURR="3.0.42.40",PSBPREV="",PSBCNT=0

 S PSBCNT=PSBCNT+1

 S RESULTS(PSBCNT)=PSBCURR_U_PSBPREV

 S RESULTS(0)=PSBCNT

 Q

 ;

PSBRPC3   ;BIRMINGHAM/VRN - BCMA RPC BROKER CALLS ;30-Apr-2014 13:35;DU

 +1       ;;3.0;BAR CODE MED ADMIN;**6,3,4,16,13,10,32,28,42,1017**;Mar 2004;Build 40

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

 +3       ;

 +4       ;Modified - IHS/MSC/PLS - 04/30/2014 - Line GUICHK+

GUICHK(RESULTS,DUMMY) ;

 +1       ;

 +2       ; RPC : PSB VERSION CHECK

 +3       ;

 +4        KILL RESULTS

 +5        NEW PSBCURR,PSBPREV,PSBCNT

 +6       ;IHS/MSC/PLS - 04/30/2014

 +7       ;S PSBCURR="3.0.42.*",PSBPREV="",PSBCNT=0

 +8        SET PSBCURR="3.0.42.40"

           SET PSBPREV=""

           SET PSBCNT=0

 +9        SET PSBCNT=PSBCNT+1

 +10       SET RESULTS(PSBCNT)=PSBCURR_U_PSBPREV

 +11       SET RESULTS(0)=PSBCNT

 +12       QUIT 

 +13      ;