EDP2ENV.m

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 ---EDP2ENV   360     printed  Apr 09, 2024@20:57:31                                                                                                                                                                                                      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