LR462A ;DALOI/FHS - LR*5.2*462 PATCH ENVIRONMENT CHECK ROUTINE;15-DEC-2015 ;09/01/16 15:52
;;5.2;LAB SERVICE;**462**;Sep 27, 1994;Build 44
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
;Set up CPRS AP ORDER MESSAGE LOG -
;CPRS AP ORDER MESSAGE IS STORE HERE FOR PROCESSING BY "TASKAP1^LR7OAPKM"
I '$G(^XTMP("LRAP1",0)) D
. S ^XTMP("LRAP1",0)=$$FMADD^XLFDT(DT+365)_U_DT_U_"CPRS AP ORDER MESSAGE LOG"
. S ^XTMP("LRAP1",1,0)=10
S $P(^XTMP("LRAP1",0),U,3)="CPRS AP ORDER MESSAGE LOG"
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
MAIL ;Send message to G.LMI local mail group of added 64 codes
N DIFROM,XMSUB,XMDUZ,XMTEXT,XMY,LRIEN,LRN
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLR462A 2031 printed Sep 23, 2025@19:39:44 Page 2
LR462A ;DALOI/FHS - LR*5.2*462 PATCH ENVIRONMENT CHECK ROUTINE;15-DEC-2015 ;09/01/16 15:52
+1 ;;5.2;LAB SERVICE;**462**;Sep 27, 1994;Build 44
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 ;Set up CPRS AP ORDER MESSAGE LOG -
+2 ;CPRS AP ORDER MESSAGE IS STORE HERE FOR PROCESSING BY "TASKAP1^LR7OAPKM"
+3 IF '$GET(^XTMP("LRAP1",0))
Begin DoDot:1
+4 SET ^XTMP("LRAP1",0)=$$FMADD^XLFDT(DT+365)_U_DT_U_"CPRS AP ORDER MESSAGE LOG"
+5 SET ^XTMP("LRAP1",1,0)=10
End DoDot:1
+6 SET $PIECE(^XTMP("LRAP1",0),U,3)="CPRS AP ORDER MESSAGE LOG"
+7 Begin DoDot:1
+8 DO BMES("Sending install completion alert to mail group G.LMI")
+9 SET XQAMSG="Installation of patch "_$GET(XPDNM,"Unknown patch")_" Installed on "_$$HTE^XLFDT($HOROLOG)
+10 SET XQA("G.LMI")=""
+11 DO SETUP^XQALERT
End DoDot:1
+12 KILL LRDA,LRPRT,LRVR
+13 QUIT
BMES(STR) ;Write BMES^XPDUTL statements
+1 DO BMES^XPDUTL($$CJ^XLFSTR(STR,IOM))
+2 QUIT
MAIL ;Send message to G.LMI local mail group of added 64 codes
+1 NEW DIFROM,XMSUB,XMDUZ,XMTEXT,XMY,LRIEN,LRN
+2 QUIT
