PSOEPVER.m

PSOEPVER ;BIRM/VRN - ePCS VERSION CHECK ; 5/28/21 13:56

 ;;7.0;OUTPATIENT PHARMACY;**545**;DEC 1997;Build 270

 ;

GUICHK(RESULTS,DUMMY) ;

 ;

 ; RPC : ePCS VERSION CHECK

 ;

 K RESULTS

 N PSOCURR,PSOPREV,PSOCNT

 S PSOCURR="2.2.0.*"

 S PSOPREV="",PSOCNT=0

 S PSOCNT=PSOCNT+1

 S RESULTS(PSOCNT)=PSOCURR_U_PSOPREV

 S RESULTS(0)=PSOCNT

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSOEPVER   351     printed  Feb 18, 2025@23:54:04                                                                                                                                                                                                     Page 2

PSOEPVER  ;BIRM/VRN - ePCS VERSION CHECK ; 5/28/21 13:56

 +1       ;;7.0;OUTPATIENT PHARMACY;**545**;DEC 1997;Build 270

 +2       ;

GUICHK(RESULTS,DUMMY) ;

 +1       ;

 +2       ; RPC : ePCS VERSION CHECK

 +3       ;

 +4        KILL RESULTS

 +5        NEW PSOCURR,PSOPREV,PSOCNT

 +6        SET PSOCURR="2.2.0.*"

 +7        SET PSOPREV=""

           SET PSOCNT=0

 +8        SET PSOCNT=PSOCNT+1

 +9        SET RESULTS(PSOCNT)=PSOCURR_U_PSOPREV

 +10       SET RESULTS(0)=PSOCNT

 +11       QUIT 

 +12      ;