LR482 ;DALOI/FHS/TFF - LR*5.2*462 PATCH ENVIRONMENT CHECK ROUTINE; [1/25/17 3:17pm]
;;5.2;LAB SERVICE;**482**;Sep 27, 1994;Build 2
ENV ; Does not prevent loading of the transport global.
; Environment check is done only during the install.
;
N XQA,XQAMSG
;
CHKNM ; Make sure the patch name exist
S XUMF=1
I '$D(XPDNM) D G EXIT
. D BMES("No valid patch name exist")
. S XPDQUIT=2
;
D CHECK
D EXIT
Q
;
CHECK ; Perform environment check
I $S('$G(IOM):1,'$G(IOSL):1,$G(U)'="^":1,1:0) D
. 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
. D BMES("Please log in to set local DUZ... variables")
. S XPDQUIT=2
I $P($$ACTIVE^XUSER(DUZ),"^")'=1 D
. D BMES("You are not a valid user on this system")
. S XPDQUIT=2
S XPDIQ("XPZ1","B")="NO" Q
EXIT ;
N XQA
I $G(XPDQUIT) D BMES("--- Install Environment Check FAILED ---") Q
D BMES("--- Environment Check is Ok ---")
S XQAMSG="Loading of patch "_$G(XPDNM,"Unknown patch")_" completed on "_$$HTE^XLFDT($H)
D BMES("Sending install loaded alert to mail group G.LMI")
S XQA("G.LMI")=""
D SETUP^XQALERT
H 5
Q
;
PRE ;Pre-install entry point
Q:'$D(XPDNM)
;
D BMES("*** Preinstall completed ***")
Q
POST ;Post install
D
. D BMES("Sending install completion alert to mail group G.LMI")
. S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")_" Installed on "_$$HTE^XLFDT($H)
. S XQA("G.LMI")=""
. D SETUP^XQALERT
K LRDA,LRPRT,LRVR
Q
BMES(STR) ;Write BMES^XPDUTL statements
D BMES^XPDUTL($$CJ^XLFSTR(STR,IOM))
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLR482 1607 printed Dec 13, 2024@02:04:10 Page 2
LR482 ;DALOI/FHS/TFF - LR*5.2*462 PATCH ENVIRONMENT CHECK ROUTINE; [1/25/17 3:17pm]
+1 ;;5.2;LAB SERVICE;**482**;Sep 27, 1994;Build 2
ENV ; Does not prevent loading of the transport global.
+1 ; Environment check is done only during the install.
+2 ;
+3 NEW XQA,XQAMSG
+4 ;
CHKNM ; Make sure the patch name exist
+1 SET XUMF=1
+2 IF '$DATA(XPDNM)
Begin DoDot:1
+3 DO BMES("No valid patch name exist")
+4 SET XPDQUIT=2
End DoDot:1
GOTO EXIT
+5 ;
+6 DO CHECK
+7 DO EXIT
+8 QUIT
+9 ;
CHECK ; Perform environment check
+1 IF $SELECT('$GET(IOM):1,'$GET(IOSL):1,$GET(U)'="^":1,1:0)
Begin DoDot:1
+2 DO BMES("Terminal Device is not defined")
+3 SET XPDQUIT=2
End DoDot:1
+4 IF $SELECT('$GET(DUZ):1,$DATA(DUZ)[0:1,$DATA(DUZ(0))[0:1,1:0)
Begin DoDot:1
+5 DO BMES("Please log in to set local DUZ... variables")
+6 SET XPDQUIT=2
End DoDot:1
+7 IF $PIECE($$ACTIVE^XUSER(DUZ),"^")'=1
Begin DoDot:1
+8 DO BMES("You are not a valid user on this system")
+9 SET XPDQUIT=2
End DoDot:1
+10 SET XPDIQ("XPZ1","B")="NO"
QUIT
EXIT ;
+1 NEW XQA
+2 IF $GET(XPDQUIT)
DO BMES("--- Install Environment Check FAILED ---")
QUIT
+3 DO BMES("--- Environment Check is Ok ---")
+4 SET XQAMSG="Loading of patch "_$GET(XPDNM,"Unknown patch")_" completed on "_$$HTE^XLFDT($HOROLOG)
+5 DO BMES("Sending install loaded alert to mail group G.LMI")
+6 SET XQA("G.LMI")=""
+7 DO SETUP^XQALERT
+8 HANG 5
+9 QUIT
+10 ;
PRE ;Pre-install entry point
+1 if '$DATA(XPDNM)
QUIT
+2 ;
+3 DO BMES("*** Preinstall completed ***")
+4 QUIT
POST ;Post install
+1 Begin DoDot:1
+2 DO BMES("Sending install completion alert to mail group G.LMI")
+3 SET XQAMSG="Installation of patch "_$GET(XPDNM,"Unknown patch")_" Installed on "_$$HTE^XLFDT($HOROLOG)
+4 SET XQA("G.LMI")=""
+5 DO SETUP^XQALERT
End DoDot:1
+6 KILL LRDA,LRPRT,LRVR
+7 QUIT
BMES(STR) ;Write BMES^XPDUTL statements
+1 DO BMES^XPDUTL($$CJ^XLFSTR(STR,IOM))
+2 QUIT
+3 ;
