53 lines
1.3 KiB
Mathematica
53 lines
1.3 KiB
Mathematica
LR365 ;DALOI/CKA - LR*5.2*365 PATCH ENVIRONMENT CHECK ROUTINE ;05/7/07
|
|
;;5.2;LAB SERVICE;**365**;Sep 27, 1994;Build 9
|
|
EN ; Does not prevent loading of the transport global.
|
|
; Environment check is done only during the install.
|
|
;
|
|
I '$G(XPDENV) D Q
|
|
.N XQA,XQAMSG
|
|
.S XQAMSG="Transport global for patch "_$G(XPDNM,"Unknown patch")
|
|
.S XQAMSG=XQAMSG_" loaded on "_$$HTE^XLFDT($H)
|
|
.S XQA("G.LMI")=""
|
|
.D SETUP^XQALERT
|
|
.S MSG="Sending transport global loaded alert to mail group G.LMI"
|
|
.D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
|
|
;
|
|
D CHECK
|
|
D EXIT
|
|
Q
|
|
;
|
|
CHECK ; Perform environment check
|
|
;
|
|
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
|
|
;
|
|
I $S('$G(DUZ):1,$D(DUZ)[0:1,$D(DUZ(0))[0:1,1:0) D Q
|
|
.S MSG="Please log in to set local DUZ... variables"
|
|
.D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
|
|
.S XPDQUIT=2
|
|
;
|
|
I '$D(^VA(200,$G(DUZ),0))#2 D Q
|
|
.S MSG="You are not a valid user on this system"
|
|
.D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
|
|
.S XPDQUIT=2
|
|
;
|
|
S XPDIQ("XPZ1","B")="NO"
|
|
;
|
|
Q
|
|
;
|
|
EXIT ;
|
|
I $G(XPDQUIT) D
|
|
.S MSG="--- Install Environment Check FAILED ---"
|
|
.D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
|
|
I '$G(XPDQUIT) D
|
|
.D BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check is Ok ---",80))
|
|
Q
|
|
;
|
|
PRE ; KIDS Pre install for LR*5.2*365
|
|
Q
|
|
;
|
|
POST ; KIDS Post install for LR*5.2*365
|
|
;
|
|
Q
|