EDP2ENV ;SLC/BWF - Environment check ;2/28/12 08:33am
;;2.0;EMERGENCY DEPARTMENT;;May 2, 2012;Build 103
;
EN ;
N VER
S VER=$$VERSION^XPDUTL("EDP")
I VER'=1.0 D Q
.I VER<1 S XPDABORT=1 D MSG Q
Q
MSG ;
W !!,"Version 1.0 is required and must be installed to continue."
W !,"Please install and configure version 1.0 before continuing.",!
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEDP2ENV 360 printed Dec 13, 2024@01:51:24 Page 2
EDP2ENV ;SLC/BWF - Environment check ;2/28/12 08:33am
+1 ;;2.0;EMERGENCY DEPARTMENT;;May 2, 2012;Build 103
+2 ;
EN ;
+1 NEW VER
+2 SET VER=$$VERSION^XPDUTL("EDP")
+3 IF VER'=1.0
Begin DoDot:1
+4 IF VER<1
SET XPDABORT=1
DO MSG
QUIT
End DoDot:1
QUIT
+5 QUIT
MSG ;
+1 WRITE !!,"Version 1.0 is required and must be installed to continue."
+2 WRITE !,"Please install and configure version 1.0 before continuing.",!
+3 QUIT
