| [613] | 1 | DGQEPEN ;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.
|
|---|
| 4 | CHKENV ; -- 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
|
|---|
