BQI2ENV.m

BQI2ENV ;VNGT/HS/ALA-Environment Check ; 12 Mar 2009  1:48 PM

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

 ;

ENV ; Environment check

 ; Save off users

 I '$D(^XTMP("BKM 2.0")) M ^XTMP("BKM 2.0",11)=^BKM(90450,1,11)

 ;

 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 D MES^XPDUTL($$CJ^XLFSTR("**HIV Management System must have at least BKM version 1.0 patch 4 or version 1.1 installed.**",IOM))

 ;

 I '$$PATCH^XPDUTL("BKM*1.0*4") S XPDQUIT=3 D MES^XPDUTL($$CJ^XLFSTR("**HIV Management System must have at least BKM version 1.0 patch 4 or version 1.1 installed.**",IOM))

 Q

BQI2ENV   ;VNGT/HS/ALA-Environment Check ; 12 Mar 2009  1:48 PM

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

 +2       ;

ENV       ; Environment check

 +1       ; Save off users

 +2        IF '$DATA(^XTMP("BKM 2.0"))

               MERGE ^XTMP("BKM 2.0",11)=^BKM(90450,1,11)

 +3       ;

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

               Begin DoDot:1

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

                       QUIT 

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

                       QUIT 

 +7                SET XPDQUIT=3

                   DO MES^XPDUTL($$CJ^XLFSTR("**HIV Management System must have at least BKM version 1.0 patch 4 or version 1.1 installed.**",IOM))

               End DoDot:1

               QUIT 

 +8       ;

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

               SET XPDQUIT=3

               DO MES^XPDUTL($$CJ^XLFSTR("**HIV Management System must have at least BKM version 1.0 patch 4 or version 1.1 installed.**",IOM))

 +10       QUIT