source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LR365.m@ 1006

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1LR365 ;DALOI/CKA - LR*5.2*365 PATCH ENVIRONMENT CHECK ROUTINE ;05/7/07
2 ;;5.2;LAB SERVICE;**365**;Sep 27, 1994;Build 9
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 XPDIQ("XPZ1","B")="NO"
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*365
48 Q
49 ;
50POST ; KIDS Post install for LR*5.2*365
51 ;
52 Q
Note: See TracBrowser for help on using the repository browser.