BSTS10P4 ;GDIT/HS/BEE-Version 1.0 Patch 4 Post (and Pre) Install ; 19 Nov 2012 9:41 AM
;;1.0;IHS STANDARD TERMINOLOGY;**4**;Sep 10, 2014;Build 32
;
ENV ;EP - Environmental Checking Routine
;
N VERSION,EXEC,BMWDT
;
;Check for BSTS*1.0*3
I '$$INSTALLD("BSTS*1.0*3") D BMES^XPDUTL("Version 1.0 Patch 3 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
;
;Display install message
D BMES^XPDUTL("Kicking off process to retrieve terms for Description Ids")
;
RESTART ;Restart from here if check below fails
;
;Kick off process if not already running
L +^XTMP("BSTSCFIX"):0 E G XEN
;
;Verify that DTS is working
NEW STS,VAR
D RESET^BSTSWSV1 ;Reset the DTS link to on
S STS=$$VERSIONS^BSTSAPI("VAR",36)
I (+STS'=2)!$G(ERR) D W !!,"DTS is not working properly. Please contact the BSTS Support Group - Aborting Installation" H 10 S XPDABORT=1 Q
. ;
. ;Quit if a restart
. Q:'$G(KIDS)
. ;
. ;Allow logins again
. NEW LIEN,LOG,ERR
. S LIEN=$O(^%ZIS(14.5,0)) Q:'+LIEN
. S LOG(14.5,LIEN_",",1)="N"
. D FILE^DIE("","LOG","ERR")
;
;Kick off background process
D FIX1^BSTSCFIX
;
XEN ;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)
BSTS10P4 ;GDIT/HS/BEE-Version 1.0 Patch 4 Post (and Pre) Install ; 19 Nov 2012 9:41 AM
+1 ;;1.0;IHS STANDARD TERMINOLOGY;**4**;Sep 10, 2014;Build 32
+2 ;
ENV ;EP - Environmental Checking Routine
+1 ;
+2 NEW VERSION,EXEC,BMWDT
+3 ;
+4 ;Check for BSTS*1.0*3
+5 IF '$$INSTALLD("BSTS*1.0*3")
DO BMES^XPDUTL("Version 1.0 Patch 3 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 ICD9 to SNOMED compile isn't running
+12 LOCK +^TMP("BSTSICD2SMD"):0
IF '$TEST
DO BMES^XPDUTL("An ICD9 to SNOMED Background Compile is Running. Please Try later")
SET XPDQUIT=2
QUIT
+13 LOCK -^TMP("BSTSICD2SMD")
+14 ;
+15 ;Make sure another install isn't running
+16 LOCK +^TMP("BSTSINSTALL"):3
IF '$TEST
DO BMES^XPDUTL("A BSTS Install is Already Running")
SET XPDQUIT=2
QUIT
+17 LOCK -^TMP("BSTSINSTALL")
+18 ;
+19 QUIT
+20 ;
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 ;Display install message
+18 DO BMES^XPDUTL("Kicking off process to retrieve terms for Description Ids")
+19 ;
RESTART ;Restart from here if check below fails
+1 ;
+2 ;Kick off process if not already running
+3 LOCK +^XTMP("BSTSCFIX"):0
IF '$TEST
GOTO XEN
+4 ;
+5 ;Verify that DTS is working
+6 NEW STS,VAR
+7 ;Reset the DTS link to on
DO RESET^BSTSWSV1
+8 SET STS=$$VERSIONS^BSTSAPI("VAR",36)
+9 IF (+STS'=2)!$GET(ERR)
Begin DoDot:1
+10 ;
+11 ;Quit if a restart
+12 IF '$GET(KIDS)
QUIT
+13 ;
+14 ;Allow logins again
+15 NEW LIEN,LOG,ERR
+16 SET LIEN=$ORDER(^%ZIS(14.5,0))
IF '+LIEN
QUIT
+17 SET LOG(14.5,LIEN_",",1)="N"
+18 DO FILE^DIE("","LOG","ERR")
End DoDot:1
WRITE !!,"DTS is not working properly. Please contact the BSTS Support Group - Aborting Installation"
HANG 10
SET XPDABORT=1
QUIT
+19 ;
+20 ;Kick off background process
+21 DO FIX1^BSTSCFIX
+22 ;
XEN ;Unlock installation entry
+1 LOCK -^TMP("BSTSINSTALL")
+2 ;
+3 QUIT
+4 ;
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)
