DVBAENVR ;ALB/JLU;environment check routine.;10/17/94
;;2.7;AMIE;;Apr 10, 1995
EN ;the main entry point of the enviroment check routine.
N VAR,DVBA
S VAR(1,0)="0,0,0,2,0^"
D WR^DVBAUTL4("VAR")
K VAR
I '$D(DUZ)#2 DO Q
.S VAR(1,0)="1,0,0,1:2,0^DUZ must be set to a valid user to run this init."
.D WR^DVBAUTL4("VAR")
.K VAR,DIFQ
.Q
I '$D(DUZ(0)) DO Q
.S VAR(1,0)="1,0,0,1:2,0^DUZ(0) must be defined"
.D WR^DVBAUTL4("VAR")
.K VAR,DIFQ
.Q
I DUZ(0)'="@" DO Q
.S VAR(1,0)="1,0,0,1:2,0^DUZ(0) must be equal to '@'"
.D WR^DVBAUTL4("VAR")
.K VAR,DIFQ
.Q
EN1 ;around the normal DUZ checks
;FM CHECK
S DVBA=$$VERSION^XPDUTL("VA FILEMAN")
I +DVBA<20 DO Q
.S VAR(1,0)="1,0,0,1,0^Your site seems to be running a version of FileMan that is less than 20."
.S VAR(2,0)="0,0,0,1:2,0^Please investigate the version of FileMan."
.D WR^DVBAUTL4("VAR")
.K VAR,DIFQ
.Q
;KERNEL CHECK
S DVBA=$$VERSION^XPDUTL("XU")
I +DVBA<7.1 DO Q
.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"
.S VAR(2,0)="0,0,0,1:2,0^Please investigate the version of Kernel."
.D WR^DVBAUTL4("VAR")
.K VAR,DIFQ
.Q
;MAILMAN CHECK
S DVBA=$$VERSION^XPDUTL("XM")
I +DVBA<7.1 DO Q
.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"
.S VAR(2,0)="0,0,0,1:2,0^Please investigate the version of MailMan."
.D WR^DVBAUTL4("VAR")
.K VAR,DIFQ
.Q
;KERNEL TOOL KIT
S DVBA=$$VERSION^XPDUTL("XT")
I +DVBA<7.2 DO Q
.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."
.S VAR(2,0)="0,0,0,1:2,0^Please investigate the version of Kernel Tool Kit."
.D WR^DVBAUTL4("VAR")
.K VAR,DIFQ
.Q
;LAB
S DVBA=$$VERSION^XPDUTL("LR")
I +DVBA<5.0 DO Q
.S VAR(1,0)="1,0,0,1,0^Your site seems to be running a version of LAB. less than 5.0."
.S VAR(2,0)="0,0,0,1:2,0^Please investigate the version of LAB."
.D WR^DVBAUTL4("VAR")
.K VAR,DIFQ
.Q
;PIMS CHECK
S DVBA=$$VERSION^XPDUTL("REGISTRATION")
I +DVBA<5.3 DO Q
.S VAR(1,0)="1,0,0,1,0^Your site seems to be running a version of PIMS less than 5.3."
.S VAR(2,0)="0,0,0,1:2,0^Please investigate the version of PIMS."
.D WR^DVBAUTL4("VAR")
.K VAR,DIFQ
.Q
;HINQ check
S DVBA=$$VERSION^XPDUTL("HINQ")
I +DVBA<4.0 DO Q
.S VAR(1,0)="1,0,0,1,0^Your site seems to be running a version of HINQ less than 4.0."
.S VAR(2,0)="0,0,0,1:2,0^Please investigate the version of HINQ."
.D WR^DVBAUTL4("VAR")
.K VAR,DIFQ
.Q
;
S VAR(1,0)="0,0,0,2,0^Environment check completed OK!"
D WR^DVBAUTL4("VAR")
K VAR
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBAENVR 2661 printed Nov 22, 2024@16:51:24 Page 2
DVBAENVR ;ALB/JLU;environment check routine.;10/17/94
+1 ;;2.7;AMIE;;Apr 10, 1995
EN ;the main entry point of the enviroment check routine.
+1 NEW VAR,DVBA
+2 SET VAR(1,0)="0,0,0,2,0^"
+3 DO WR^DVBAUTL4("VAR")
+4 KILL VAR
+5 IF '$DATA(DUZ)#2
Begin DoDot:1
+6 SET VAR(1,0)="1,0,0,1:2,0^DUZ must be set to a valid user to run this init."
+7 DO WR^DVBAUTL4("VAR")
+8 KILL VAR,DIFQ
+9 QUIT
End DoDot:1
QUIT
+10 IF '$DATA(DUZ(0))
Begin DoDot:1
+11 SET VAR(1,0)="1,0,0,1:2,0^DUZ(0) must be defined"
+12 DO WR^DVBAUTL4("VAR")
+13 KILL VAR,DIFQ
+14 QUIT
End DoDot:1
QUIT
+15 IF DUZ(0)'="@"
Begin DoDot:1
+16 SET VAR(1,0)="1,0,0,1:2,0^DUZ(0) must be equal to '@'"
+17 DO WR^DVBAUTL4("VAR")
+18 KILL VAR,DIFQ
+19 QUIT
End DoDot:1
QUIT
EN1 ;around the normal DUZ checks
+1 ;FM CHECK
+2 SET DVBA=$$VERSION^XPDUTL("VA FILEMAN")
+3 IF +DVBA<20
Begin DoDot:1
+4 SET VAR(1,0)="1,0,0,1,0^Your site seems to be running a version of FileMan that is less than 20."
+5 SET VAR(2,0)="0,0,0,1:2,0^Please investigate the version of FileMan."
+6 DO WR^DVBAUTL4("VAR")
+7 KILL VAR,DIFQ
+8 QUIT
End DoDot:1
QUIT
+9 ;KERNEL CHECK
+10 SET DVBA=$$VERSION^XPDUTL("XU")
+11 IF +DVBA<7.1
Begin DoDot:1
+12 SET VAR(1,0)="1,0,0,1,0^Your site seems to be running a version of Kernel that is less than 7.1"
+13 SET VAR(2,0)="0,0,0,1:2,0^Please investigate the version of Kernel."
+14 DO WR^DVBAUTL4("VAR")
+15 KILL VAR,DIFQ
+16 QUIT
End DoDot:1
QUIT
+17 ;MAILMAN CHECK
+18 SET DVBA=$$VERSION^XPDUTL("XM")
+19 IF +DVBA<7.1
Begin DoDot:1
+20 SET VAR(1,0)="1,0,0,1,0^Your site seems to be running a version of MailMan that is less than 7.1"
+21 SET VAR(2,0)="0,0,0,1:2,0^Please investigate the version of MailMan."
+22 DO WR^DVBAUTL4("VAR")
+23 KILL VAR,DIFQ
+24 QUIT
End DoDot:1
QUIT
+25 ;KERNEL TOOL KIT
+26 SET DVBA=$$VERSION^XPDUTL("XT")
+27 IF +DVBA<7.2
Begin DoDot:1
+28 SET VAR(1,0)="1,0,0,1,0^Your site seems to be running a version of Kernel Tool Kit less than 7.2."
+29 SET VAR(2,0)="0,0,0,1:2,0^Please investigate the version of Kernel Tool Kit."
+30 DO WR^DVBAUTL4("VAR")
+31 KILL VAR,DIFQ
+32 QUIT
End DoDot:1
QUIT
+33 ;LAB
+34 SET DVBA=$$VERSION^XPDUTL("LR")
+35 IF +DVBA<5.0
Begin DoDot:1
+36 SET VAR(1,0)="1,0,0,1,0^Your site seems to be running a version of LAB. less than 5.0."
+37 SET VAR(2,0)="0,0,0,1:2,0^Please investigate the version of LAB."
+38 DO WR^DVBAUTL4("VAR")
+39 KILL VAR,DIFQ
+40 QUIT
End DoDot:1
QUIT
+41 ;PIMS CHECK
+42 SET DVBA=$$VERSION^XPDUTL("REGISTRATION")
+43 IF +DVBA<5.3
Begin DoDot:1
+44 SET VAR(1,0)="1,0,0,1,0^Your site seems to be running a version of PIMS less than 5.3."
+45 SET VAR(2,0)="0,0,0,1:2,0^Please investigate the version of PIMS."
+46 DO WR^DVBAUTL4("VAR")
+47 KILL VAR,DIFQ
+48 QUIT
End DoDot:1
QUIT
+49 ;HINQ check
+50 SET DVBA=$$VERSION^XPDUTL("HINQ")
+51 IF +DVBA<4.0
Begin DoDot:1
+52 SET VAR(1,0)="1,0,0,1,0^Your site seems to be running a version of HINQ less than 4.0."
+53 SET VAR(2,0)="0,0,0,1:2,0^Please investigate the version of HINQ."
+54 DO WR^DVBAUTL4("VAR")
+55 KILL VAR,DIFQ
+56 QUIT
End DoDot:1
QUIT
+57 ;
+58 SET VAR(1,0)="0,0,0,2,0^Environment check completed OK!"
+59 DO WR^DVBAUTL4("VAR")
+60 KILL VAR
+61 QUIT
