BSTS10P3.m

BSTS10P3 ;GDIT/HS/BEE-Version 1.0 Patch 3 Post (and Pre) Install ; 19 Nov 2012  9:41 AM

 ;;1.0;IHS STANDARD TERMINOLOGY;**3**;Sep 10, 2014;Build 19

 ;

ENV ;EP - Environmental Checking Routine

 ;

 N VERSION,EXEC,BMWDT

 ;

 ;Check for Version 1.0

 I $$VERSION^XPDUTL("BSTS")<1 D BMES^XPDUTL("Version 1.0 of BSTS is required!") S XPDQUIT=2 Q

 ;

 ;Check for BSTS*1.0*1

 I '$$INSTALLD("BSTS*1.0*2") D BMES^XPDUTL("Version 1.0 Patch 2 of BSTS is required!") S XPDQUIT=2 Q

 ;

 ;Make sure a refresh is not running already

 L +^BSTS(9002318.1,0):0 E  D BMES^XPDUTL("A Local BSTS Cache Refresh is Already Running. Please Try Later") S XPDQUIT=2 Q

 L -^BSTS(9002318.1,0)

 ;

 ;Make sure an ICD9 to SNOMED compile isn't running

 L +^TMP("BSTSICD2SMD"):0 E  D BMES^XPDUTL("An ICD9 to SNOMED Background Compile is Running.  Please Try later") S XPDQUIT=2 Q

 L -^TMP("BSTSICD2SMD")

 ;

 ;Make sure another install isn't running

 L +^TMP("BSTSINSTALL"):3 E  D BMES^XPDUTL("A BSTS Install is Already Running") S XPDQUIT=2 Q

 L -^TMP("BSTSINSTALL")

 ;

 Q

 ;

EN ;EP

 ;

 ;Load the classes

 ;

 N TRIEN,EXEC,ERR

 ;

 ;For each build, set this to the 9002318.5 entry to load

 S TRIEN=1

 ;

 ;Delete existing BSTS Classes

 S EXEC="DO $SYSTEM.OBJ.DeletePackage(""BSTS"")" X EXEC

 ;

 ; Import BSTS classes

 K ERR

 I $G(TRIEN)'="" D IMPORT^BSTSCLAS(TRIEN,.ERR)

 I $G(ERR) Q

 ;

 ;Unlock installation entry

 L -^TMP("BSTSINSTALL")

 ;

 Q

 ;

PRE ;Pre-Install Front End

 ;

 ;Perform Lock so only one install can run and DTS calls will be switched to local

 L +^TMP("BSTSINSTALL"):3 E  D BMES^XPDUTL("A BSTS Install is Already Running - Aborting Installation") S XPDABORT=1 Q

 ;

 N DIU

 ;

 ;Clear out existing transport global

 S DIU="^BSTSCLS(",DIU(0)="DST" D EN^DIU2

 ;

 Q

 ;

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

 ; BSTSSTAL is the name of the INSTALL.  E.g "BSTS*1.0*1".

 ;

 NEW DIC,X,Y,D

 S X=$P(BSTSSTAL,"*",1)

 S DIC="^DIC(9.4,",DIC(0)="FM",D="C"

 D IX^DIC

 I Y<1 Q 0

 S DIC=DIC_+Y_",22,",X=$P(BSTSSTAL,"*",2)

 D ^DIC

 I Y<1 Q 0

 S DIC=DIC_+Y_",""PAH"",",X=$P(BSTSSTAL,"*",3)

 D ^DIC

 Q $S(Y<1:0,1:1)

BSTS10P3  ;GDIT/HS/BEE-Version 1.0 Patch 3 Post (and Pre) Install ; 19 Nov 2012  9:41 AM

 +1       ;;1.0;IHS STANDARD TERMINOLOGY;**3**;Sep 10, 2014;Build 19

 +2       ;

ENV       ;EP - Environmental Checking Routine

 +1       ;

 +2        NEW VERSION,EXEC,BMWDT

 +3       ;

 +4       ;Check for Version 1.0

 +5        IF $$VERSION^XPDUTL("BSTS")<1

               DO BMES^XPDUTL("Version 1.0 of BSTS is required!")

               SET XPDQUIT=2

               QUIT 

 +6       ;

 +7       ;Check for BSTS*1.0*1

 +8        IF '$$INSTALLD("BSTS*1.0*2")

               DO BMES^XPDUTL("Version 1.0 Patch 2 of BSTS is required!")

               SET XPDQUIT=2

               QUIT 

 +9       ;

 +10      ;Make sure a refresh is not running already

 +11       LOCK +^BSTS(9002318.1,0):0

          IF '$TEST

               DO BMES^XPDUTL("A Local BSTS Cache Refresh is Already Running. Please Try Later")

               SET XPDQUIT=2

               QUIT 

 +12       LOCK -^BSTS(9002318.1,0)

 +13      ;

 +14      ;Make sure an ICD9 to SNOMED compile isn't running

 +15       LOCK +^TMP("BSTSICD2SMD"):0

          IF '$TEST

               DO BMES^XPDUTL("An ICD9 to SNOMED Background Compile is Running.  Please Try later")

               SET XPDQUIT=2

               QUIT 

 +16       LOCK -^TMP("BSTSICD2SMD")

 +17      ;

 +18      ;Make sure another install isn't running

 +19       LOCK +^TMP("BSTSINSTALL"):3

          IF '$TEST

               DO BMES^XPDUTL("A BSTS Install is Already Running")

               SET XPDQUIT=2

               QUIT 

 +20       LOCK -^TMP("BSTSINSTALL")

 +21      ;

 +22       QUIT 

 +23      ;

EN        ;EP

 +1       ;

 +2       ;Load the classes

 +3       ;

 +4        NEW TRIEN,EXEC,ERR

 +5       ;

 +6       ;For each build, set this to the 9002318.5 entry to load

 +7        SET TRIEN=1

 +8       ;

 +9       ;Delete existing BSTS Classes

 +10       SET EXEC="DO $SYSTEM.OBJ.DeletePackage(""BSTS"")"

           XECUTE EXEC

 +11      ;

 +12      ; Import BSTS classes

 +13       KILL ERR

 +14       IF $GET(TRIEN)'=""

               DO IMPORT^BSTSCLAS(TRIEN,.ERR)

 +15       IF $GET(ERR)

               QUIT 

 +16      ;

 +17      ;Unlock installation entry

 +18       LOCK -^TMP("BSTSINSTALL")

 +19      ;

 +20       QUIT 

 +21      ;

PRE       ;Pre-Install Front End

 +1       ;

 +2       ;Perform Lock so only one install can run and DTS calls will be switched to local

 +3        LOCK +^TMP("BSTSINSTALL"):3

          IF '$TEST

               DO BMES^XPDUTL("A BSTS Install is Already Running - Aborting Installation")

               SET XPDABORT=1

               QUIT 

 +4       ;

 +5        NEW DIU

 +6       ;

 +7       ;Clear out existing transport global

 +8        SET DIU="^BSTSCLS("

           SET DIU(0)="DST"

           DO EN^DIU2

 +9       ;

 +10       QUIT 

 +11      ;

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

 +1       ; BSTSSTAL is the name of the INSTALL.  E.g "BSTS*1.0*1".

 +2       ;

 +3        NEW DIC,X,Y,D

 +4        SET X=$PIECE(BSTSSTAL,"*",1)

 +5        SET DIC="^DIC(9.4,"

           SET DIC(0)="FM"

           SET D="C"

 +6        DO IX^DIC

 +7        IF Y<1

               QUIT 0

 +8        SET DIC=DIC_+Y_",22,"

           SET X=$PIECE(BSTSSTAL,"*",2)

 +9        DO ^DIC

 +10       IF Y<1

               QUIT 0

 +11       SET DIC=DIC_+Y_",""PAH"","

           SET X=$PIECE(BSTSSTAL,"*",3)

 +12       DO ^DIC

 +13       QUIT $SELECT(Y<1:0,1:1)