BKM2ENV.m

BKM2ENV ;VNGT/HS/ALA-Environment check program ; 12 Mar 2009  2:31 PM

 ;;2.0;HIV MANAGEMENT SYSTEM;;May 29, 2009

 ;

ENV ; Environment check

 ;

 ; Check for versions

 I $$VERSION^XPDUTL("BKM")'="1.0" D  Q

 . I $$VERSION^XPDUTL("BKM")="2.0" Q

 . I $$VERSION^XPDUTL("BKM")="1.1" Q

 . S XPDQUIT=3

 ;

 I '$$PATCH^XPDUTL("BKM*1.0*4") S XPDQUIT=3

 Q

BKM2ENV   ;VNGT/HS/ALA-Environment check program ; 12 Mar 2009  2:31 PM

 +1       ;;2.0;HIV MANAGEMENT SYSTEM;;May 29, 2009

 +2       ;

ENV       ; Environment check

 +1       ;

 +2       ; Check for versions

 +3        IF $$VERSION^XPDUTL("BKM")'="1.0"

               Begin DoDot:1

 +4                IF $$VERSION^XPDUTL("BKM")="2.0"

                       QUIT 

 +5                IF $$VERSION^XPDUTL("BKM")="1.1"

                       QUIT 

 +6                SET XPDQUIT=3

               End DoDot:1

               QUIT 

 +7       ;

 +8        IF '$$PATCH^XPDUTL("BKM*1.0*4")

               SET XPDQUIT=3

 +9        QUIT