source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LR259.m@ 1604

Last change on this file since 1604 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.4 KB
Line 
1LR259 ;DALOI/WTY - LR*5.2*259 PATCH ENVIRONMENT CHECK ROUTINE ;09/21/02
2 ;;5.2;LAB SERVICE;**259**;Sep 27, 1994
3EN ; Does not prevent loading of the transport global.
4 ; Environment check is done only during the install.
5 ;
6 I '$G(XPDENV) D Q
7 .N XQA,XQAMSG
8 .S XQAMSG="Transport global for patch "_$G(XPDNM,"Unknown patch")
9 .S XQAMSG=XQAMSG_" loaded on "_$$HTE^XLFDT($H)
10 .S XQA("G.LMI")=""
11 .D SETUP^XQALERT
12 .S MSG="Sending transport global loaded alert to mail group G.LMI"
13 .D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
14 ;
15 D CHECK
16 D EXIT
17 Q
18 ;
19CHECK ; Perform environment check
20 ;
21 I $S('$G(IOM):1,'$G(IOSL):1,$G(U)'="^":1,1:0) D Q
22 .D BMES^XPDUTL($$CJ^XLFSTR("Terminal Device is not defined",80))
23 .S XPDQUIT=2
24 ;
25 I $S('$G(DUZ):1,$D(DUZ)[0:1,$D(DUZ(0))[0:1,1:0) D Q
26 .S MSG="Please log in to set local DUZ... variables"
27 .D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
28 .S XPDQUIT=2
29 ;
30 I '$D(^VA(200,$G(DUZ),0))#2 D Q
31 .S MSG="You are not a valid user on this system"
32 .D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
33 .S XPDQUIT=2
34 ;
35 S XPDDIQ("XPZ1")=0
36 ;
37 Q
38 ;
39EXIT ;
40 I $G(XPDQUIT) D
41 .S MSG="--- Install Environment Check FAILED ---"
42 .D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
43 I '$G(XPDQUIT) D
44 .D BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check is Ok ---",80))
45 Q
46 ;
47PRE ; KIDS Pre install for LR*5.2*259
48 ;
49 N XQA,XQAMSG
50 S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")
51 S XQAMSG=XQAMSG_" started on "_$$HTE^XLFDT($H)
52 S XQA("G.LMI")=""
53 D SETUP^XQALERT
54 ;
55 S MSG="Sending install started alert to mail group G.LMI"
56 D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
57 ;
58 D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install started ***",80))
59 ;
60 S Y=$$OPTDE^XPDUTL("LRAP",2)
61 S MSG="Disabling Anatomic Pathology [LRAP] option"
62 D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
63 ;
64 D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install completed ***",80))
65 ;
66 Q
67 ;
68POST ; KIDS Post install for LR*5.2*259
69 ;
70 N XQA,XQAMSG
71 D BMES^XPDUTL($$CJ^XLFSTR("*** Post install started ***",80))
72 ;
73 S Y=$$OPTDE^XPDUTL("LRAP",1)
74 S MSG="Enabling Anatomic Pathology [LRAP] option"
75 D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
76 ;
77 D BMES^XPDUTL($$CJ^XLFSTR("*** Post install completed ***",80))
78 ;
79 S XQAMSG="Installation of patch "_$G(XPDNM,"Unknown patch")
80 S XQAMSG=XQAMSG_" completed on "_$$HTE^XLFDT($H)
81 S XQA("G.LMI")=""
82 D SETUP^XQALERT
83 ;
84 S MSG="Sending install completion alert to mail group G.LMI"
85 D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
86 ;
87 Q
Note: See TracBrowser for help on using the repository browser.