source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGQEPEN.m@ 1766

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

initial load of WorldVistAEHR

File size: 2.6 KB
Line 
1DGQEPEN ;ALB/JFP - VIC ENVIRONMENT CHECKER; 09/01/96
2 ;;V5.3;REGISTRATION;**73**;DEC 11,1996
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4CHKENV ; -- Main entry point for environment checker
5 ;Input : All variables set by KIDS
6 ;Output : Variables required by KIDS to denote success or failure
7 ; of environment check (XPDQUIT and XPDABORT)
8 ;
9 ; -- Declare variables
10 N VERSION,PATCHED,NODE,PTR,NAME,CHECKED
11 W !!,">>> Beginning environment check",!!
12 ; -- Check for installation of PIMS version 5.3 - required for install
13 W !!," Checking for installation of PIMS version 5.3 ..."
14 S VERSION=+$$VERSION^XPDUTL("REGISTRATION")
15 I (VERSION<5.3) D
16 .W !!," *** Required element missing ***",!
17 .W !," Installation of Veteran ID Card requires that PIMS version"
18 .W !," 5.3 be installed - you have version ",VERSION," installed."
19 .W !," Installation will be aborted at end of environment check."
20 .W !
21 .S XPDABORT=2
22 ;
23 ; -- Check for installation of HL7 version 1.6 - required for install
24 W !!," Checking for installation of HL7 version 1.6 ..."
25 S VERSION=+$$VERSION^XPDUTL("HL")
26 I (VERSION<1.6) D
27 .W !!," *** Required element missing ***",!
28 .W !," Installation of Veteran ID Card requires that HL7 version"
29 .W !," 1.6 be installed - you have version ",VERSION," installed."
30 .W !," Installation will be aborted at end of environment check."
31 .W !
32 .S XPDABORT=2
33 ;
34 ; -- Check for installation of XU*8.0*44 - required for install
35 W !!," Checking for installation of patch XU*8.0*44 ..."
36 S PATCHED=$$PATCH^XPDUTL("XU*8.0*44")
37 I ('PATCHED) D
38 .W !!," *** Required element missing ***",!
39 .W !," Installation of Veteran ID Card requires that Kernel patch"
40 .W !," XU*8.0*44 be installed. Install will be aborted at end of"
41 .W !," environment check."
42 .W !
43 .S XPDABORT=2
44 ;
45 ; -- Check for installation of HL*1.6*8 - required for install
46 W !!," Checking for installation of patch HL*1.6*8 ..."
47 S PATCHED=$$PATCH^XPDUTL("HL*1.6*8")
48 I ('PATCHED) D
49 .W !!," *** Required element missing ***",!
50 .W !," Installation of Veteran ID Card requires that HL7 patch"
51 .W !," HL*1.6*8 be installed. Install will be aborted at end of"
52 .W !," environment check."
53 .W !
54 .S XPDABORT=2
55 ;
56 ; -- End of environment check
57 W !!!,">>> Environment check completed"
58 ; -- Write abort message (if appropriate)
59 I (+$G(XPDABORT)) D
60 .W !!,"*** Element(s) critical to installation of Veteran ID Card are missing"
61 .W !,"*** Installation will be aborted"
62 .W !
63 ; -- Write A-OK message (if appropriate)
64 W:('$G(XPDABORT)) !!,"Installation will proceed as planned",!!
65 ; -- Done
66 Q
Note: See TracBrowser for help on using the repository browser.