XUEPCSVR ;BIRMINGHAM/VRN - ePCS VERSION CHECK ;7/8/21 14:57
;;8.0;KERNEL;**689**;Jul 10, 1995;Build 113
;Per VHA Directive 2004-038 (or future revisions regarding same), this routine should not be modified.
;
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.0.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[HXUEPCSVR 580 printed Dec 13, 2024@02:09:22 Page 2
XUEPCSVR ;BIRMINGHAM/VRN - ePCS VERSION CHECK ;7/8/21 14:57
+1 ;;8.0;KERNEL;**689**;Jul 10, 1995;Build 113
+2 ;Per VHA Directive 2004-038 (or future revisions regarding same), this routine should not be modified.
+3 ;
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.0.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
