1 | LR331 ;DALOI/JMC - LR*5.2*331 PATCH ENVIRONMENT CHECK ROUTINE ; Feb 25, 2005
|
---|
2 | ;;5.2;LAB SERVICE;**331**;Sep 27, 1994;Build 7
|
---|
3 | EN ; Does not prevent loading of the transport global.
|
---|
4 | ; Environment check is done only during the install.
|
---|
5 | ;
|
---|
6 | N XQA,XQAMSG
|
---|
7 | ;
|
---|
8 | I '$G(XPDENV) D Q
|
---|
9 | . S XQAMSG="Transport global for patch "_$G(XPDNM,"Unknown patch")_" loaded on "_$$HTE^XLFDT($H)
|
---|
10 | . S XQA("G.LMI")=""
|
---|
11 | . D SETUP^XQALERT
|
---|
12 | . D BMES^XPDUTL($$CJ^XLFSTR("Sending transport global loaded alert to mail group G.LMI",80))
|
---|
13 | ;
|
---|
14 | S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")_" started on "_$$HTE^XLFDT($H)
|
---|
15 | S XQA("G.LMI")=""
|
---|
16 | D SETUP^XQALERT
|
---|
17 | D BMES^XPDUTL($$CJ^XLFSTR("Sending install started alert to mail group G.LMI",80))
|
---|
18 | ;
|
---|
19 | D CHECK
|
---|
20 | D EXIT
|
---|
21 | Q
|
---|
22 | ;
|
---|
23 | CHECK ; Perform environment check
|
---|
24 | I $S('$G(IOM):1,'$G(IOSL):1,$G(U)'="^":1,1:0) D Q
|
---|
25 | . D BMES^XPDUTL($$CJ^XLFSTR("Terminal Device is not defined",80))
|
---|
26 | . S XPDQUIT=2
|
---|
27 | I $S('$G(DUZ):1,$D(DUZ)[0:1,$D(DUZ(0))[0:1,1:0) D Q
|
---|
28 | . D BMES^XPDUTL($$CJ^XLFSTR("Please log in to set local DUZ... variables",80))
|
---|
29 | . S XPDQUIT=2
|
---|
30 | I $P($$ACTIVE^XUSER(DUZ),"^")'=1 D Q
|
---|
31 | . D BMES^XPDUTL($$CJ^XLFSTR("You are not a valid user on this system",80))
|
---|
32 | . S XPDQUIT=2
|
---|
33 | S XPDIQ("XPZ1","B")="NO"
|
---|
34 | Q
|
---|
35 | ;
|
---|
36 | EXIT ;
|
---|
37 | I $G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Install Environment Check FAILED ---",80))
|
---|
38 | I '$G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check is Ok ---",80))
|
---|
39 | Q
|
---|
40 | ;
|
---|
41 | PRE ; KIDS Pre install
|
---|
42 | ;
|
---|
43 | N DA,DIK
|
---|
44 | D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install started ***",80))
|
---|
45 | ;
|
---|
46 | D BMES^XPDUTL($$CJ^XLFSTR("Deleting Field #15 in file #68, ACCESSION",80))
|
---|
47 | S DIK="^DD(68.02,",DA=15,DA(1)=68 D ^DIK
|
---|
48 | D BMES^XPDUTL($$CJ^XLFSTR("Field will be installed as part of KIDS installation",80))
|
---|
49 | ;
|
---|
50 | D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install completed ***",80))
|
---|
51 | Q
|
---|
52 | ;
|
---|
53 | POST ; KIDS Post install
|
---|
54 | N XQA,XQAMSG
|
---|
55 | D BMES^XPDUTL($$CJ^XLFSTR("*** Post install started ***",80))
|
---|
56 | D BMES^XPDUTL($$CJ^XLFSTR("*** No action required ***",80))
|
---|
57 | D BMES^XPDUTL($$CJ^XLFSTR("*** Post install completed ***",80))
|
---|
58 | D BMES^XPDUTL($$CJ^XLFSTR("Sending install completion alert to mail group G.LMI",80))
|
---|
59 | S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")_" completed on "_$$HTE^XLFDT($H)
|
---|
60 | S XQA("G.LMI")=""
|
---|
61 | D SETUP^XQALERT
|
---|
62 | S XQAMSG="LIM: Review description for "_$G(XPDNM,"Unknown patch")_" use KIDS:Utilities:Build File Print"
|
---|
63 | S XQA("G.LMI")=""
|
---|
64 | D SETUP^XQALERT
|
---|
65 | Q
|
---|