AMER3E6.m

AMER3E6 ;GDIT/HS/BEE - AMER v3.0 Patch 6 ENVIRONMENT CHECK ; 07 Oct 2013  11:33 AM

 ;;3.0;ER VISIT SYSTEM;**6**;MAR 03, 2009;Build 30

 ;

 ;Check for AMER*3.0*5

 I '$$INSTALLD("AMER*3.0*5") D FIX(2)

 ;

 ;Check for BJPC*2.0*11

 I '$$INSTALLD("BJPC*2.0*11") D FIX(2)

 ;

 ;Check for LEX*2.0*1003

 I '$$INSTALLD("LEX*2.0*1003") D FIX(2)

 ;

 Q

 ;

INSTALLD(AMERSTAL) ;EP - Determine if patch AMERSTAL was installed, where

 ; AMERSTAL is the name of the INSTALL.  E.g "AG*6.0*11".

 ;

 NEW AMERY,INST

 ;

 S AMERY=$O(^XPD(9.7,"B",AMERSTAL,""))

 S INST=$S(AMERY>0:1,1:0)

 D IMES(AMERSTAL,INST)

 Q INST

 ;

IMES(AMERSTAL,Y) ;Display message to screen

 D MES^XPDUTL($$CJ^XLFSTR("Patch """_AMERSTAL_""" is"_$S(Y<1:" *NOT*",1:"")_" installed.",IOM))

 Q

 ;

FIX(X) ;

 KILL DIFQ

 I X=3 S XPDQUIT=2 Q

 S XPDQUIT=X

 W *7,!,$$CJ^XLFSTR("This patch must be installed prior to the installation of AMER*3.0*6",IOM)

 Q

AMER3E6   ;GDIT/HS/BEE - AMER v3.0 Patch 6 ENVIRONMENT CHECK ; 07 Oct 2013  11:33 AM

 +1       ;;3.0;ER VISIT SYSTEM;**6**;MAR 03, 2009;Build 30

 +2       ;

 +3       ;Check for AMER*3.0*5

 +4        IF '$$INSTALLD("AMER*3.0*5")

               DO FIX(2)

 +5       ;

 +6       ;Check for BJPC*2.0*11

 +7        IF '$$INSTALLD("BJPC*2.0*11")

               DO FIX(2)

 +8       ;

 +9       ;Check for LEX*2.0*1003

 +10       IF '$$INSTALLD("LEX*2.0*1003")

               DO FIX(2)

 +11      ;

 +12       QUIT 

 +13      ;

INSTALLD(AMERSTAL) ;EP - Determine if patch AMERSTAL was installed, where

 +1       ; AMERSTAL is the name of the INSTALL.  E.g "AG*6.0*11".

 +2       ;

 +3        NEW AMERY,INST

 +4       ;

 +5        SET AMERY=$ORDER(^XPD(9.7,"B",AMERSTAL,""))

 +6        SET INST=$SELECT(AMERY>0:1,1:0)

 +7        DO IMES(AMERSTAL,INST)

 +8        QUIT INST

 +9       ;

IMES(AMERSTAL,Y) ;Display message to screen

 +1        DO MES^XPDUTL($$CJ^XLFSTR("Patch """_AMERSTAL_""" is"_$SELECT(Y<1:" *NOT*",1:"")_" installed.",IOM))

 +2        QUIT 

 +3       ;

FIX(X)    ;

 +1        KILL DIFQ

 +2        IF X=3

               SET XPDQUIT=2

               QUIT 

 +3        SET XPDQUIT=X

 +4        WRITE *7,!,$$CJ^XLFSTR("This patch must be installed prior to the installation of AMER*3.0*6",IOM)

 +5        QUIT