| [613] | 1 | DVBAENVR ;ALB/JLU;environment check routine.;10/17/94
|
|---|
| 2 | ;;2.7;AMIE;;Apr 10, 1995
|
|---|
| 3 | EN ;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
|
|---|
| 23 | EN1 ;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
|
|---|
