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