KMPDENV.m

KMPDENV ;OAK/RAK - CM Tools Environmnet Check ;4/21/04

 ;;3.0;KMPD;;Jan 22, 2009;Build 42

 ;

EN ;-entry point

 ; if version 2.0

 I $P($$VERSION^KMPDUTL,U)="2.0" D  Q

 .D MES^XPDUTL("     Version 2.0 detected. Environment check successful!")

 ; if not version 2.0

 S XPDQUIT=1

 D MES^XPDUTL("     Must have Version 2.0 installed.  Install can not continue!")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---KMPDENV   372     printed  Dec 13, 2024@01:40:32                                                                                                                                                                                                      Page 2

KMPDENV   ;OAK/RAK - CM Tools Environmnet Check ;4/21/04

 +1       ;;3.0;KMPD;;Jan 22, 2009;Build 42

 +2       ;

EN        ;-entry point

 +1       ; if version 2.0

 +2        IF $PIECE($$VERSION^KMPDUTL,U)="2.0"

               Begin DoDot:1

 +3                DO MES^XPDUTL("     Version 2.0 detected. Environment check successful!")

               End DoDot:1

               QUIT 

 +4       ; if not version 2.0

 +5        SET XPDQUIT=1

 +6        DO MES^XPDUTL("     Must have Version 2.0 installed.  Install can not continue!")

 +7        QUIT