PSOEPVR.m

PSOEPVR ;BIRMINGHAM/VRN - ePCS VERSION CHECK ;7/8/21  14:57

 ;;7.0;OUTPATIENT PHARMACY;**545,735,731**;DEC 1997;Build 18

 ;

 Q

 ;

GUICHK(RESULTS,EPCSARY)   ; Return server version and minimum GUI client version

 ;

 ; RPC : ePCS VERSION CHECK

 ;

 K RESULTS

 I $G(EPCSARY)="" Q

 N EPCSLST,EPCSMINV

 S EPCSMINV="2.2.2.0"

 D FIND^DIC(19,"",1,"X",EPCSARY,1,,,,"EPCSLST")

 I 'EPCSLST("DILIST",0) Q

 S RESULTS=EPCSLST("DILIST","ID",1,1)

 S RESULTS=$P(RESULTS,"version ",2)_U_EPCSMINV

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSOEPVR   498     printed  Apr 09, 2024@21:34:12                                                                                                                                                                                                      Page 2

PSOEPVR   ;BIRMINGHAM/VRN - ePCS VERSION CHECK ;7/8/21  14:57

 +1       ;;7.0;OUTPATIENT PHARMACY;**545,735,731**;DEC 1997;Build 18

 +2       ;

 +3        QUIT 

 +4       ;

GUICHK(RESULTS,EPCSARY) ; Return server version and minimum GUI client version

 +1       ;

 +2       ; RPC : ePCS VERSION CHECK

 +3       ;

 +4        KILL RESULTS

 +5        IF $GET(EPCSARY)=""

               QUIT 

 +6        NEW EPCSLST,EPCSMINV

 +7        SET EPCSMINV="2.2.2.0"

 +8        DO FIND^DIC(19,"",1,"X",EPCSARY,1,,,,"EPCSLST")

 +9        IF 'EPCSLST("DILIST",0)

               QUIT 

 +10       SET RESULTS=EPCSLST("DILIST","ID",1,1)

 +11       SET RESULTS=$PIECE(RESULTS,"version ",2)_U_EPCSMINV

 +12       QUIT