LA72 ;DALOI/JMC - LA*5.2*72 PATCH ENVIRONMENT CHECK ROUTINE ; 8/30/05 12:01pm
;;5.2;AUTOMATED LAB INSTRUMENTS;**72**;Sep 27, 1994
EN ;
; Does not prevent loading of the transport global.
; Environment check is done only during the install.
;
N XQA,XQAMSG
;
I '$G(XPDENV) D Q
. S XQAMSG="Transport global for patch "_$G(XPDNM,"Unknown patch")_" loaded on "_$$HTE^XLFDT($H)
. S XQA("G.LMI")=""
. D SETUP^XQALERT
. D BMES^XPDUTL($$CJ^XLFSTR("Sending transport global loaded alert to mail group G.LMI",80))
;
S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")_" started on "_$$HTE^XLFDT($H)
S XQA("G.LMI")=""
D SETUP^XQALERT
D CHECK
D EXIT
Q
;
CHECK ;
; Perform environment check
; Device Defined
I $S('$G(IOM):1,'$G(IOSL):1,$G(U)'="^":1,1:0) D Q
. D BMES^XPDUTL($$CJ^XLFSTR("Terminal Device is not defined",80))
. S XPDQUIT=2
; DUZ setup
I $S('$G(DUZ):1,$D(DUZ)[0:1,$D(DUZ(0))[0:1,1:0) D Q
. D BMES^XPDUTL($$CJ^XLFSTR("Please log in to set local DUZ... variables",80))
. S XPDQUIT=2
; Active User
I $P($$ACTIVE^XUSER(DUZ),"^")'=1 D Q
. D BMES^XPDUTL($$CJ^XLFSTR("You are not a valid user on this system",80))
. S XPDQUIT=2
S XPDIQ("XPZ1","B")="NO"
Q
;
EXIT ;
;
I $G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Install Environment Check FAILED ---",80))
I '$G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check is Ok ---",80))
Q
;
PRE ;
;; KIDS Pre Install
N DA,DIK
D BMES^XPDUTL($$CJ^XLFSTR("Sending install started alert to mail group G.LMI",80))
D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install started ***",80))
D BMES^XPDUTL($$CJ^XLFSTR("--- No actions required for pre install ---",80))
D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install completed ***",80))
Q
;
POST ;
;; KIDS Post Install
N DA,DIK,FDA,LA7X,LA7ERR,XQA,XQAMSG
D BMES^XPDUTL($$CJ^XLFSTR("*** Post install started ***",80))
D BMES^XPDUTL($$CJ^XLFSTR("*** Post install completed ***",80))
D BMES^XPDUTL($$CJ^XLFSTR("Sending install completion alert to mail group G.LMI",80))
; Send alert
S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")_" completed on "_$$HTE^XLFDT($H)
S XQA("G.LMI")=""
D SETUP^XQALERT
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLA72 2206 printed Dec 13, 2024@01:38:53 Page 2
LA72 ;DALOI/JMC - LA*5.2*72 PATCH ENVIRONMENT CHECK ROUTINE ; 8/30/05 12:01pm
+1 ;;5.2;AUTOMATED LAB INSTRUMENTS;**72**;Sep 27, 1994
EN ;
+1 ; Does not prevent loading of the transport global.
+2 ; Environment check is done only during the install.
+3 ;
+4 NEW XQA,XQAMSG
+5 ;
+6 IF '$GET(XPDENV)
Begin DoDot:1
+7 SET XQAMSG="Transport global for patch "_$GET(XPDNM,"Unknown patch")_" loaded on "_$$HTE^XLFDT($HOROLOG)
+8 SET XQA("G.LMI")=""
+9 DO SETUP^XQALERT
+10 DO BMES^XPDUTL($$CJ^XLFSTR("Sending transport global loaded alert to mail group G.LMI",80))
End DoDot:1
QUIT
+11 ;
+12 SET XQAMSG="Installation of patch "_$GET(XPDNM,"Unknown patch")_" started on "_$$HTE^XLFDT($HOROLOG)
+13 SET XQA("G.LMI")=""
+14 DO SETUP^XQALERT
+15 DO CHECK
+16 DO EXIT
+17 QUIT
+18 ;
CHECK ;
+1 ; Perform environment check
+2 ; Device Defined
+3 IF $SELECT('$GET(IOM):1,'$GET(IOSL):1,$GET(U)'="^":1,1:0)
Begin DoDot:1
+4 DO BMES^XPDUTL($$CJ^XLFSTR("Terminal Device is not defined",80))
+5 SET XPDQUIT=2
End DoDot:1
QUIT
+6 ; DUZ setup
+7 IF $SELECT('$GET(DUZ):1,$DATA(DUZ)[0:1,$DATA(DUZ(0))[0:1,1:0)
Begin DoDot:1
+8 DO BMES^XPDUTL($$CJ^XLFSTR("Please log in to set local DUZ... variables",80))
+9 SET XPDQUIT=2
End DoDot:1
QUIT
+10 ; Active User
+11 IF $PIECE($$ACTIVE^XUSER(DUZ),"^")'=1
Begin DoDot:1
+12 DO BMES^XPDUTL($$CJ^XLFSTR("You are not a valid user on this system",80))
+13 SET XPDQUIT=2
End DoDot:1
QUIT
+14 SET XPDIQ("XPZ1","B")="NO"
+15 QUIT
+16 ;
EXIT ;
+1 ;
+2 IF $GET(XPDQUIT)
DO BMES^XPDUTL($$CJ^XLFSTR("--- Install Environment Check FAILED ---",80))
+3 IF '$GET(XPDQUIT)
DO BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check is Ok ---",80))
+4 QUIT
+5 ;
PRE ;
+1 ;; KIDS Pre Install
+2 NEW DA,DIK
+3 DO BMES^XPDUTL($$CJ^XLFSTR("Sending install started alert to mail group G.LMI",80))
+4 DO BMES^XPDUTL($$CJ^XLFSTR("*** Pre install started ***",80))
+5 DO BMES^XPDUTL($$CJ^XLFSTR("--- No actions required for pre install ---",80))
+6 DO BMES^XPDUTL($$CJ^XLFSTR("*** Pre install completed ***",80))
+7 QUIT
+8 ;
POST ;
+1 ;; KIDS Post Install
+2 NEW DA,DIK,FDA,LA7X,LA7ERR,XQA,XQAMSG
+3 DO BMES^XPDUTL($$CJ^XLFSTR("*** Post install started ***",80))
+4 DO BMES^XPDUTL($$CJ^XLFSTR("*** Post install completed ***",80))
+5 DO BMES^XPDUTL($$CJ^XLFSTR("Sending install completion alert to mail group G.LMI",80))
+6 ; Send alert
+7 SET XQAMSG="Installation of patch "_$GET(XPDNM,"Unknown patch")_" completed on "_$$HTE^XLFDT($HOROLOG)
+8 SET XQA("G.LMI")=""
+9 DO SETUP^XQALERT
+10 QUIT