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 ---[H[J[2J[HPSOEPVR 498 printed Oct 16, 2024@18:28:17 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
