LA90A ;DSS/FHS - VLE MICRO ENHANCEMENT INSTALL SUPPORT;12/06/16 10:27
;;5.2;AUTOMATED LAB INSTRUMENTS;**90**;Sep 27, 1994;Build 17
EN ; Does not prevent loading of the transport global.
; Environment check is done only during the install.
Q:'$G(XPDENV)
D CHECK
D EXIT
Q
;
CHECK ; Perform environment check
N VER
I $S('$G(IOM):1,'$G(IOSL):1,$G(U)'="^":1,1:0) D Q
. D BMES("Terminal Device is not defined")
. S XPDQUIT=2
I $S('$G(DUZ):1,$D(DUZ)[0:1,$D(DUZ(0))[0:1,1:0) D Q
. D BMES("Please log in to set local DUZ... variables")
. S XPDQUIT=2
I '$D(^VA(200,+$G(DUZ),0))#2 D Q
. D BMES("You are not a valid user on this system")
. S XPDQUIT=2
S XPDIQ("XPZ1","B")="NO"
Q
;
EXIT ;
I $G(XPDQUIT) D BMES("--- Install Environment Check FAILED ---")
I '$G(XPDQUIT) D BMES("--- Environment Check is Ok ---")
Q
;
PRE ; KIDS Pre install for LA*5.2*90
N XQA,XQAMSG,MSG,LRCROSS,LRROOT,LRMSG
S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")
S XQAMSG=XQAMSG_" started on "_$$HTE^XLFDT($H)
S XQA("G.LMI")=""
D SETUP^XQALERT
;
S MSG="Sending install started alert to mail group G.LMI"
D BMES(MSG)
D BMES("*** Pre install started ***")
S LRCROSS=0
F S LRCROSS=+$O(^DD(62.41,.01,1,LRCROSS)) Q:LRCROSS<1 Q:$P(^(LRCROSS,0),U,3)="TRIGGER"
I LRCROSS<1 D BMES("--- No actions required for pre install ---")
I LRCROSS D
. D BMES("Deleting Traditional Cross Reference")
. D DELIX^DDMOD(62.41,.01,LRCROSS,"K","LRROOT","LRMSG")
D BMES("*** Pre install completed ***")
Q
;
POST ; KIDS Post install for LA*5.2*90
S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")
S XQAMSG=XQAMSG_" completed on "_$$HTE^XLFDT($H)
S XQA("G.LMI")=""
D SETUP^XQALERT
;
D BMES("Installation completed")
Q
BMES(STR) ;Print string to screen and package install file
D BMES^XPDUTL($$CJ^XLFSTR(STR,IOM))
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLA90A 1881 printed Sep 23, 2025@19:17:16 Page 2
LA90A ;DSS/FHS - VLE MICRO ENHANCEMENT INSTALL SUPPORT;12/06/16 10:27
+1 ;;5.2;AUTOMATED LAB INSTRUMENTS;**90**;Sep 27, 1994;Build 17
EN ; Does not prevent loading of the transport global.
+1 ; Environment check is done only during the install.
+2 if '$GET(XPDENV)
QUIT
+3 DO CHECK
+4 DO EXIT
+5 QUIT
+6 ;
CHECK ; Perform environment check
+1 NEW VER
+2 IF $SELECT('$GET(IOM):1,'$GET(IOSL):1,$GET(U)'="^":1,1:0)
Begin DoDot:1
+3 DO BMES("Terminal Device is not defined")
+4 SET XPDQUIT=2
End DoDot:1
QUIT
+5 IF $SELECT('$GET(DUZ):1,$DATA(DUZ)[0:1,$DATA(DUZ(0))[0:1,1:0)
Begin DoDot:1
+6 DO BMES("Please log in to set local DUZ... variables")
+7 SET XPDQUIT=2
End DoDot:1
QUIT
+8 IF '$DATA(^VA(200,+$GET(DUZ),0))#2
Begin DoDot:1
+9 DO BMES("You are not a valid user on this system")
+10 SET XPDQUIT=2
End DoDot:1
QUIT
+11 SET XPDIQ("XPZ1","B")="NO"
+12 QUIT
+13 ;
EXIT ;
+1 IF $GET(XPDQUIT)
DO BMES("--- Install Environment Check FAILED ---")
+2 IF '$GET(XPDQUIT)
DO BMES("--- Environment Check is Ok ---")
+3 QUIT
+4 ;
PRE ; KIDS Pre install for LA*5.2*90
+1 NEW XQA,XQAMSG,MSG,LRCROSS,LRROOT,LRMSG
+2 SET XQAMSG="Installation of patch "_$GET(XPDNM,"Unknown patch")
+3 SET XQAMSG=XQAMSG_" started on "_$$HTE^XLFDT($HOROLOG)
+4 SET XQA("G.LMI")=""
+5 DO SETUP^XQALERT
+6 ;
+7 SET MSG="Sending install started alert to mail group G.LMI"
+8 DO BMES(MSG)
+9 DO BMES("*** Pre install started ***")
+10 SET LRCROSS=0
+11 FOR
SET LRCROSS=+$ORDER(^DD(62.41,.01,1,LRCROSS))
if LRCROSS<1
QUIT
if $PIECE(^(LRCROSS,0),U,3)="TRIGGER"
QUIT
+12 IF LRCROSS<1
DO BMES("--- No actions required for pre install ---")
+13 IF LRCROSS
Begin DoDot:1
+14 DO BMES("Deleting Traditional Cross Reference")
+15 DO DELIX^DDMOD(62.41,.01,LRCROSS,"K","LRROOT","LRMSG")
End DoDot:1
+16 DO BMES("*** Pre install completed ***")
+17 QUIT
+18 ;
POST ; KIDS Post install for LA*5.2*90
+1 SET XQAMSG="Installation of patch "_$GET(XPDNM,"Unknown patch")
+2 SET XQAMSG=XQAMSG_" completed on "_$$HTE^XLFDT($HOROLOG)
+3 SET XQA("G.LMI")=""
+4 DO SETUP^XQALERT
+5 ;
+6 DO BMES("Installation completed")
+7 QUIT
BMES(STR) ;Print string to screen and package install file
+1 DO BMES^XPDUTL($$CJ^XLFSTR(STR,IOM))
