Routine: BSTS10P7

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

 ;;1.0;IHS STANDARD TERMINOLOGY;**6,7**;Sep 10, 2014;Build 34

ENV ;EP - Environmental Checking Routine

 N VERSION,EXEC,BMWDT

 ;Check for BSTS*1.0*6

 I '$$INSTALLD("BSTS*1.0*6") D BMES^XPDUTL("Version 1.0 Patch 6 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 Description Id fix compile isn't running

 L +^XTMP("BSTSCFIX"):0 E  D BMES^XPDUTL("A Description Id Population Utility Process is Running.  Please Try later") S XPDQUIT=2 Q

 L -^XTMP("BSTSCFIX")

 ;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")

EN ;EP

 ;Load the classes

 N TRIEN,EXEC,ERR,X,VAR

 ;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")

 ;Pull the namespace and version

 S X=$$CODESETS^BSTSAPI("VAR")

 S X=$$VERSIONS^BSTSAPI("VAR",32779)

 S X=$$VERSIONS^BSTSAPI("VAR",32780)

 ;Fix 32772 Codeset and schedule refresh

 D 32772

 ;Kick off the Equivalency update

 ;Needed in order to pull down conditional mappings and concept default statuses

 D QUEUE^BSTSVOFL(32780) ;Put it on the queue

 D JOBNOW^BSTSVOFL  ;Kick off now

32772 ;EP - Fix 32772 entries and kick off process

 NEW CONC,CIEN

 S CONC="" F  S CONC=$O(^BSTS(9002318.4,"C",32772,CONC)) Q:CONC=""  S CIEN="" F  S CIEN=$O(^BSTS(9002318.4,"C",32772,CONC,CIEN)) Q:CIEN=""  D

. ;

 . NEW DTSID,DA,DIK,TIEN

. ;

 . S DTSID=$$GET1^DIQ(9002318.4,CIEN_",",.08,"I")

. ;

 . ;Skip valid ones

 . I DTSID>570,DTSID<1147 Q

. ;

 . ;Remove codeset entry

 . S DA=CIEN,DIK="^BSTS(9002318.4," D ^DIK

. ;

 . ;Remove terms

 . S TIEN="" F  S TIEN=$O(^BSTS(9002318.3,"C",32772,CIEN,TIEN)) Q:TIEN=""  D

 .. NEW DA,DIK

 .. S DA=TIEN,DIK="^BSTS(9002318.3," D ^DIK

 ;Put 32772 refresh task on queue

 D QUEUE^BSTSVOFL(32772)

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 and new conversion file

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

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)

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

 +1       ;;1.0;IHS STANDARD TERMINOLOGY;**6,7**;Sep 10, 2014;Build 34

 +2       ;

ENV       ;EP - Environmental Checking Routine

 +1       ;

 +2        NEW VERSION,EXEC,BMWDT

 +3       ;

 +4       ;Check for BSTS*1.0*6

 +5        IF '$$INSTALLD("BSTS*1.0*6")

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

               SET XPDQUIT=2

               QUIT

 +6       ;

 +7       ;Make sure a refresh is not running already

 +8        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

 +9        LOCK -^BSTS(9002318.1,0)

 +10      ;

 +11      ;Make sure an Description Id fix compile isn't running

 +12       LOCK +^XTMP("BSTSCFIX"):0

          IF '$TEST

               DO BMES^XPDUTL("A Description Id Population Utility Process is Running.  Please Try later")

               SET XPDQUIT=2

               QUIT

 +13       LOCK -^XTMP("BSTSCFIX")

 +14      ;

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

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

          IF '$TEST

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

               SET XPDQUIT=2

               QUIT

 +17       LOCK -^TMP("BSTSICD2SMD")

 +18      ;

 +19      ;Make sure another install isn't running

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

          IF '$TEST

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

               SET XPDQUIT=2

               QUIT

 +21       LOCK -^TMP("BSTSINSTALL")

 +22      ;

 +23       QUIT

 +24      ;

EN        ;EP

 +1       ;

 +2       ;Load the classes

 +3       ;

 +4        NEW TRIEN,EXEC,ERR,X,VAR

 +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      ;Pull the namespace and version

 +21       SET X=$$CODESETS^BSTSAPI("VAR")

 +22       SET X=$$VERSIONS^BSTSAPI("VAR",32779)

 +23       SET X=$$VERSIONS^BSTSAPI("VAR",32780)

 +24      ;

 +25      ;Fix 32772 Codeset and schedule refresh

 +26       DO 32772

 +27      ;

 +28      ;Kick off the Equivalency update

 +29      ;Needed in order to pull down conditional mappings and concept default statuses

 +30      ;Put it on the queue

           DO QUEUE^BSTSVOFL(32780)

 +31      ;Kick off now

           DO JOBNOW^BSTSVOFL

 +32      ;

 +33       QUIT

 +34      ;

32772     ;EP - Fix 32772 entries and kick off process

 +1       ;

 +2        NEW CONC,CIEN

 +3       ;

 +4        SET CONC=""

FOR

               SET CONC=$ORDER(^BSTS(9002318.4,"C",32772,CONC))

               IF CONC=""

                   QUIT

               SET CIEN=""

FOR

                   SET CIEN=$ORDER(^BSTS(9002318.4,"C",32772,CONC,CIEN))

                   IF CIEN=""

                       QUIT

                   Begin DoDot:1

 +5       ;

 +6                    NEW DTSID,DA,DIK,TIEN

 +7       ;

 +8                    SET DTSID=$$GET1^DIQ(9002318.4,CIEN_",",.08,"I")

 +9       ;

 +10      ;Skip valid ones

 +11                   IF DTSID>570

                           IF DTSID<1147

                               QUIT

 +12      ;

 +13      ;Remove codeset entry

 +14                   SET DA=CIEN

                       SET DIK="^BSTS(9002318.4,"

                       DO ^DIK

 +15      ;

 +16      ;Remove terms

 +17                   SET TIEN=""

FOR

                           SET TIEN=$ORDER(^BSTS(9002318.3,"C",32772,CIEN,TIEN))

                           IF TIEN=""

                               QUIT

                           Begin DoDot:2

 +18                           NEW DA,DIK

 +19                           SET DA=TIEN

                               SET DIK="^BSTS(9002318.3,"

                               DO ^DIK

                           End DoDot:2

                   End DoDot:1

 +20      ;

 +21      ;Put 32772 refresh task on queue

 +22       DO QUEUE^BSTSVOFL(32772)

 +23      ;

 +24       QUIT

 +25      ;

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 and new conversion file

 +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)

BSTS10P7.m