XUEPCSVR.m

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 ---XUEPCSVR   580     printed  Apr 09, 2024@21:11:02                                                                                                                                                                                                     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