LR325 ;VA/DALOI/JMC - LR*5.2*325 PATCH ENVIRONMENT CHECK ROUTINE ; 4/17/07 3:41am
;;5.2;LAB SERVICE;**1031**;NOV 01, 1997
;
;;VA LR Patche(s): 325
;
;Reference to $$FIND1^DIC supported by IA #2051
;Reference to UPDATE^DIE supported by IA #2053
;Reference to $$HTE^XLFDT supported by IA #10103
;Reference to $$CJ^XLFSTR supported by IA #10104
;Reference to BMES^XPDUTL supported by IA #10141
;Reference to SETUP^XQALERT supported by IA #10081
;Reference to $$ACTIVE^XUSER supported by IA #2343
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 ; IHS/MSC/MKK
. ; D BMES^XPDUTL($$CJ^XLFSTR("Sending transport global loaded alert to mail group G.LMI",IOM)) ; IHS/MSC/MKK
;
D BMES^XPDUTL($$CJ^XLFSTR("--- Installation of patch "_$G(XPDNM,"Unknown patch")_" started on "_$$HTE^XLFDT($H)_" ---",IOM)) ; IHS/MSC/MKK
;
S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")_" started on "_$$HTE^XLFDT($H)
S XQA("G.LMI")=""
; D SETUP^XQALERT ; IHS/MSC/MKK
; D BMES^XPDUTL($$CJ^XLFSTR("Sending install started alert to mail group G.LMI",IOM)) ; IHS/MSC/MKK
;
D CHECK
D EXIT
Q
;
CHECK ; Perform environment check
D BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check for "_$G(XPDNM,"Unknown patch")_" ---",80)) ; IHS/MSC/MKK
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
. D BMES^XPDUTL($$CJ^XLFSTR("Please log in to set local DUZ... variables",80))
. S XPDQUIT=2
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 ---",IOM)) ; IHS/MSC/MKK
; I '$G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check is Ok ---",IOM)) ; IHS/MSC/MKK
;
I $G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Install Environment Check for "_$G(XPDNM,"Unknown patch")_" FAILED ---",80)) ; IHS/MSC/MKK
I '$G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Install Environment Check for "_$G(XPDNM,"Unknown patch")_" is Ok ---",80)) ; IHS/MSC/MKK
Q
;
PRE ; KIDS Pre install
;
Q
N DA,DIK
D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install started ***",IOM))
;
D BMES^XPDUTL($$CJ^XLFSTR("Nothing required",IOM))
D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install completed ***",IOM))
Q
;
POST ; KIDS Post install
N ANS,FDA,LROUTINE,LRTST,TST,XQA,XQAMSG
D BMES^XPDUTL($$CJ^XLFSTR("*** Post install started ***",IOM))
S LROUTINE=$$FIND1^DIC(62.05,,"B","ROUTINE","B",,"ANS")
I 'LROUTINE S LROUTINE=$O(^LAB(62.05,0))
S LRTST=$$FIND1^DIC(60,,"B","VBEC QA/QC","B",,"ANS")
I 'LRTST D
. K FDA(1)
. S FDA(1,60,"?+1,",.01)="VBEC QA/QC"
. S FDA(1,60,"?+1,",3)="N"
. S FDA(1,60,"?+1,",4)="WK"
. S FDA(1,60,"?+1,",17)=LROUTINE
. S FDA(1,60,"?+1,",51)="V QA/QC"
. D UPDATE^DIE("SE","FDA(1)","TST","ANS")
. D BMES^XPDUTL($$CJ^XLFSTR("Added test [VBEC QA/QC] to LABORATORY TEST file",IOM))
S LRTST=$$FIND1^DIC(60,,"B","VBEC UNIT PROCESSING","B",,"ANS")
I 'LRTST D
. K FDA(2),TST
. S FDA(2,60,"?+1,",.01)="VBEC UNIT PROCESSING"
. S FDA(2,60,"?+1,",3)="N"
. S FDA(2,60,"?+1,",4)="WK"
. S FDA(2,60,"?+1,",17)=LROUTINE
. S FDA(2,60,"?+1,",51)="V UNIT"
. D UPDATE^DIE("SE","FDA(2)","TST","ANS")
. D BMES^XPDUTL($$CJ^XLFSTR("Added test [VBEC UNIT PROCESSING] to LABORTORY TEST file",IOM))
S LRTST=$$FIND1^DIC(60,,"B","VBEC DONOR","B",,"ANS")
I 'LRTST D
. K FDA(3),TST
. S FDA(3,60,"?+1,",.01)="VBEC DONOR"
. S FDA(3,60,"?+1,",3)="N"
. S FDA(3,60,"?+1,",4)="WK"
. S FDA(3,60,"?+1,",17)=LROUTINE
. S FDA(3,60,"?+1,",51)="V DONOR"
. D UPDATE^DIE("SE","FDA(3)","TST","ANS")
. D BMES^XPDUTL($$CJ^XLFSTR("Added Test [VBEC DONOR] to LABORATORY TEST file",IOM))
; D BMES^XPDUTL($$CJ^XLFSTR("Sending install completion alert to LMI mail group ",IOM)) ; IHS/MSC/MKK
S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")_" completed on "_$$HTE^XLFDT($H)
S XQA("G.LMI")=""
; D SETUP^XQALERT ; IHS/MSC/MKK
S XQAMSG="LIM: Review description for "_$G(XPDNM,"Unknown patch")_" use KIDS:Utilities:Build File Print"
S XQA("G.LMI")=""
; D SETUP^XQALERT ; IHS/MSC/MKK
D BMES^XPDUTL($$CJ^XLFSTR("*** Post install completed. ***",IOM)) ; IHS/MSC/MKK
Q
LR325 ;VA/DALOI/JMC - LR*5.2*325 PATCH ENVIRONMENT CHECK ROUTINE ; 4/17/07 3:41am
+1 ;;5.2;LAB SERVICE;**1031**;NOV 01, 1997
+2 ;
+3 ;;VA LR Patche(s): 325
+4 ;
+5 ;Reference to $$FIND1^DIC supported by IA #2051
+6 ;Reference to UPDATE^DIE supported by IA #2053
+7 ;Reference to $$HTE^XLFDT supported by IA #10103
+8 ;Reference to $$CJ^XLFSTR supported by IA #10104
+9 ;Reference to BMES^XPDUTL supported by IA #10141
+10 ;Reference to SETUP^XQALERT supported by IA #10081
+11 ;Reference to $$ACTIVE^XUSER supported by IA #2343
EN ; Does not prevent loading of the transport global.
+1 ; Environment check is done only during the install.
+2 ;
+3 NEW XQA,XQAMSG
+4 ;
+5 IF '$GET(XPDENV)
Begin DoDot:1
+6 SET XQAMSG="Transport global for patch "_$GET(XPDNM,"Unknown patch")_" loaded on "_$$HTE^XLFDT($HOROLOG)
+7 SET XQA("G.LMI")=""
+8 ; D SETUP^XQALERT ; IHS/MSC/MKK
+9 ; D BMES^XPDUTL($$CJ^XLFSTR("Sending transport global loaded alert to mail group G.LMI",IOM)) ; IHS/MSC/MKK
End DoDot:1
QUIT
+10 ;
+11 ; IHS/MSC/MKK
DO BMES^XPDUTL($$CJ^XLFSTR("--- Installation of patch "_$GET(XPDNM,"Unknown patch")_" started on "_$$HTE^XLFDT($HOROLOG)_" ---",IOM))
+12 ;
+13 SET XQAMSG="Installation of patch "_$GET(XPDNM,"Unknown patch")_" started on "_$$HTE^XLFDT($HOROLOG)
+14 SET XQA("G.LMI")=""
+15 ; D SETUP^XQALERT ; IHS/MSC/MKK
+16 ; D BMES^XPDUTL($$CJ^XLFSTR("Sending install started alert to mail group G.LMI",IOM)) ; IHS/MSC/MKK
+17 ;
+18 DO CHECK
+19 DO EXIT
+20 QUIT
+21 ;
CHECK ; Perform environment check
+1 ; IHS/MSC/MKK
DO BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check for "_$GET(XPDNM,"Unknown patch")_" ---",80))
+2 IF $SELECT('$GET(IOM):1,'$GET(IOSL):1,$GET(U)'="^":1,1:0)
Begin DoDot:1
+3 DO BMES^XPDUTL($$CJ^XLFSTR("Terminal Device is not defined",80))
+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^XPDUTL($$CJ^XLFSTR("Please log in to set local DUZ... variables",80))
+7 SET XPDQUIT=2
End DoDot:1
QUIT
+8 IF $PIECE($$ACTIVE^XUSER(DUZ),"^")'=1
Begin DoDot:1
+9 DO BMES^XPDUTL($$CJ^XLFSTR("You are not a valid user on this system",80))
+10 SET XPDQUIT=2
End DoDot:1
QUIT
+11 SET XPDIQ("XPZ1","B")="NO"
+12 QUIT
+13 ;
EXIT ;
+1 ; I $G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Install Environment Check FAILED ---",IOM)) ; IHS/MSC/MKK
+2 ; I '$G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check is Ok ---",IOM)) ; IHS/MSC/MKK
+3 ;
+4 ; IHS/MSC/MKK
IF $GET(XPDQUIT)
DO BMES^XPDUTL($$CJ^XLFSTR("--- Install Environment Check for "_$GET(XPDNM,"Unknown patch")_" FAILED ---",80))
+5 ; IHS/MSC/MKK
IF '$GET(XPDQUIT)
DO BMES^XPDUTL($$CJ^XLFSTR("--- Install Environment Check for "_$GET(XPDNM,"Unknown patch")_" is Ok ---",80))
+6 QUIT
+7 ;
PRE ; KIDS Pre install
+1 ;
+2 QUIT
+3 NEW DA,DIK
+4 DO BMES^XPDUTL($$CJ^XLFSTR("*** Pre install started ***",IOM))
+5 ;
+6 DO BMES^XPDUTL($$CJ^XLFSTR("Nothing required",IOM))
+7 DO BMES^XPDUTL($$CJ^XLFSTR("*** Pre install completed ***",IOM))
+8 QUIT
+9 ;
POST ; KIDS Post install
+1 NEW ANS,FDA,LROUTINE,LRTST,TST,XQA,XQAMSG
+2 DO BMES^XPDUTL($$CJ^XLFSTR("*** Post install started ***",IOM))
+3 SET LROUTINE=$$FIND1^DIC(62.05,,"B","ROUTINE","B",,"ANS")
+4 IF 'LROUTINE
SET LROUTINE=$ORDER(^LAB(62.05,0))
+5 SET LRTST=$$FIND1^DIC(60,,"B","VBEC QA/QC","B",,"ANS")
+6 IF 'LRTST
Begin DoDot:1
+7 KILL FDA(1)
+8 SET FDA(1,60,"?+1,",.01)="VBEC QA/QC"
+9 SET FDA(1,60,"?+1,",3)="N"
+10 SET FDA(1,60,"?+1,",4)="WK"
+11 SET FDA(1,60,"?+1,",17)=LROUTINE
+12 SET FDA(1,60,"?+1,",51)="V QA/QC"
+13 DO UPDATE^DIE("SE","FDA(1)","TST","ANS")
+14 DO BMES^XPDUTL($$CJ^XLFSTR("Added test [VBEC QA/QC] to LABORATORY TEST file",IOM))
End DoDot:1
+15 SET LRTST=$$FIND1^DIC(60,,"B","VBEC UNIT PROCESSING","B",,"ANS")
+16 IF 'LRTST
Begin DoDot:1
+17 KILL FDA(2),TST
+18 SET FDA(2,60,"?+1,",.01)="VBEC UNIT PROCESSING"
+19 SET FDA(2,60,"?+1,",3)="N"
+20 SET FDA(2,60,"?+1,",4)="WK"
+21 SET FDA(2,60,"?+1,",17)=LROUTINE
+22 SET FDA(2,60,"?+1,",51)="V UNIT"
+23 DO UPDATE^DIE("SE","FDA(2)","TST","ANS")
+24 DO BMES^XPDUTL($$CJ^XLFSTR("Added test [VBEC UNIT PROCESSING] to LABORTORY TEST file",IOM))
End DoDot:1
+25 SET LRTST=$$FIND1^DIC(60,,"B","VBEC DONOR","B",,"ANS")
+26 IF 'LRTST
Begin DoDot:1
+27 KILL FDA(3),TST
+28 SET FDA(3,60,"?+1,",.01)="VBEC DONOR"
+29 SET FDA(3,60,"?+1,",3)="N"
+30 SET FDA(3,60,"?+1,",4)="WK"
+31 SET FDA(3,60,"?+1,",17)=LROUTINE
+32 SET FDA(3,60,"?+1,",51)="V DONOR"
+33 DO UPDATE^DIE("SE","FDA(3)","TST","ANS")
+34 DO BMES^XPDUTL($$CJ^XLFSTR("Added Test [VBEC DONOR] to LABORATORY TEST file",IOM))
End DoDot:1
+35 ; D BMES^XPDUTL($$CJ^XLFSTR("Sending install completion alert to LMI mail group ",IOM)) ; IHS/MSC/MKK
+36 SET XQAMSG="Installation of patch "_$GET(XPDNM,"Unknown patch")_" completed on "_$$HTE^XLFDT($HOROLOG)
+37 SET XQA("G.LMI")=""
+38 ; D SETUP^XQALERT ; IHS/MSC/MKK
+39 SET XQAMSG="LIM: Review description for "_$GET(XPDNM,"Unknown patch")_" use KIDS:Utilities:Build File Print"
+40 SET XQA("G.LMI")=""
+41 ; D SETUP^XQALERT ; IHS/MSC/MKK
+42 ; IHS/MSC/MKK
DO BMES^XPDUTL($$CJ^XLFSTR("*** Post install completed. ***",IOM))
+43 QUIT
