source: WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBAENVR.m@ 1259

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

initial load of WorldVistAEHR

File size: 2.5 KB
Line 
1DVBAENVR ;ALB/JLU;environment check routine.;10/17/94
2 ;;2.7;AMIE;;Apr 10, 1995
3EN ;the main entry point of the enviroment check routine.
4 N VAR,DVBA
5 S VAR(1,0)="0,0,0,2,0^"
6 D WR^DVBAUTL4("VAR")
7 K VAR
8 I '$D(DUZ)#2 DO Q
9 .S VAR(1,0)="1,0,0,1:2,0^DUZ must be set to a valid user to run this init."
10 .D WR^DVBAUTL4("VAR")
11 .K VAR,DIFQ
12 .Q
13 I '$D(DUZ(0)) DO Q
14 .S VAR(1,0)="1,0,0,1:2,0^DUZ(0) must be defined"
15 .D WR^DVBAUTL4("VAR")
16 .K VAR,DIFQ
17 .Q
18 I DUZ(0)'="@" DO Q
19 .S VAR(1,0)="1,0,0,1:2,0^DUZ(0) must be equal to '@'"
20 .D WR^DVBAUTL4("VAR")
21 .K VAR,DIFQ
22 .Q
23EN1 ;around the normal DUZ checks
24 ;FM CHECK
25 S DVBA=$$VERSION^XPDUTL("VA FILEMAN")
26 I +DVBA<20 DO Q
27 .S VAR(1,0)="1,0,0,1,0^Your site seems to be running a version of FileMan that is less than 20."
28 .S VAR(2,0)="0,0,0,1:2,0^Please investigate the version of FileMan."
29 .D WR^DVBAUTL4("VAR")
30 .K VAR,DIFQ
31 .Q
32 ;KERNEL CHECK
33 S DVBA=$$VERSION^XPDUTL("XU")
34 I +DVBA<7.1 DO Q
35 .S VAR(1,0)="1,0,0,1,0^Your site seems to be running a version of Kernel that is less than 7.1"
36 .S VAR(2,0)="0,0,0,1:2,0^Please investigate the version of Kernel."
37 .D WR^DVBAUTL4("VAR")
38 .K VAR,DIFQ
39 .Q
40 ;MAILMAN CHECK
41 S DVBA=$$VERSION^XPDUTL("XM")
42 I +DVBA<7.1 DO Q
43 .S VAR(1,0)="1,0,0,1,0^Your site seems to be running a version of MailMan that is less than 7.1"
44 .S VAR(2,0)="0,0,0,1:2,0^Please investigate the version of MailMan."
45 .D WR^DVBAUTL4("VAR")
46 .K VAR,DIFQ
47 .Q
48 ;KERNEL TOOL KIT
49 S DVBA=$$VERSION^XPDUTL("XT")
50 I +DVBA<7.2 DO Q
51 .S VAR(1,0)="1,0,0,1,0^Your site seems to be running a version of Kernel Tool Kit less than 7.2."
52 .S VAR(2,0)="0,0,0,1:2,0^Please investigate the version of Kernel Tool Kit."
53 .D WR^DVBAUTL4("VAR")
54 .K VAR,DIFQ
55 .Q
56 ;LAB
57 S DVBA=$$VERSION^XPDUTL("LR")
58 I +DVBA<5.0 DO Q
59 .S VAR(1,0)="1,0,0,1,0^Your site seems to be running a version of LAB. less than 5.0."
60 .S VAR(2,0)="0,0,0,1:2,0^Please investigate the version of LAB."
61 .D WR^DVBAUTL4("VAR")
62 .K VAR,DIFQ
63 .Q
64 ;PIMS CHECK
65 S DVBA=$$VERSION^XPDUTL("REGISTRATION")
66 I +DVBA<5.3 DO Q
67 .S VAR(1,0)="1,0,0,1,0^Your site seems to be running a version of PIMS less than 5.3."
68 .S VAR(2,0)="0,0,0,1:2,0^Please investigate the version of PIMS."
69 .D WR^DVBAUTL4("VAR")
70 .K VAR,DIFQ
71 .Q
72 ;HINQ check
73 S DVBA=$$VERSION^XPDUTL("HINQ")
74 I +DVBA<4.0 DO Q
75 .S VAR(1,0)="1,0,0,1,0^Your site seems to be running a version of HINQ less than 4.0."
76 .S VAR(2,0)="0,0,0,1:2,0^Please investigate the version of HINQ."
77 .D WR^DVBAUTL4("VAR")
78 .K VAR,DIFQ
79 .Q
80 ;
81 S VAR(1,0)="0,0,0,2,0^Environment check completed OK!"
82 D WR^DVBAUTL4("VAR")
83 K VAR
84 Q
Note: See TracBrowser for help on using the repository browser.