| [613] | 1 | IBD3KENV ;ALB/MLI - AICS 3.0 Environment Checker ; 4 OCT 1996
|
|---|
| 2 | ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
|
|---|
| 3 | EN ;entry point
|
|---|
| 4 | W !,"AICS 3.0 Installation Requirements:",!
|
|---|
| 5 | D ENV ; check environment
|
|---|
| 6 | D PATCH ; check patches
|
|---|
| 7 | D BLDCHK ; check build entries
|
|---|
| 8 | W:$D(XPDABORT) !!,">>> Environment check failed. Installation will not be allowed."
|
|---|
| 9 | W:'$D(XPDABORT) !!,">>> Environment is Ok"
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | ;
|
|---|
| 13 | ENV ; check enviroment for KIDS/programmer variables
|
|---|
| 14 | W !,">>> Checking Environment:"
|
|---|
| 15 | I $G(XPDABORT) W !," Can not proceed. XPDABORT is inappropriately defined."
|
|---|
| 16 | I +$G(DUZ)'>0!($G(DUZ(0))'="@")!($G(U)'="^")!('$D(DT)) D
|
|---|
| 17 | . S XPDABORT=2
|
|---|
| 18 | . W !,"You must first initialize Programmer Environment by running ^XUP",!
|
|---|
| 19 | I '$G(XPDABORT) W !," Environment checks OK"
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | ;
|
|---|
| 23 | PATCH ;check for required patches
|
|---|
| 24 | N LINE,OK,PATCH
|
|---|
| 25 | W !!,">>> Checking PACKAGE File Entries:"
|
|---|
| 26 | F LINE=1:1 S PATCH=$P($T(LIST+LINE),";;",2) Q:(PATCH="QUIT") D
|
|---|
| 27 | . W !," Checking for required patch ",PATCH,"..."
|
|---|
| 28 | . S OK=$$PATCH^XPDUTL(PATCH)
|
|---|
| 29 | . I 'OK S XPDABORT=2 W "not found!!"
|
|---|
| 30 | . I OK W "OK"
|
|---|
| 31 | Q
|
|---|
| 32 | ;
|
|---|
| 33 | BLDCHK ;check build file entries
|
|---|
| 34 | W !,">>> Checking BUILD File Entries:"
|
|---|
| 35 | F IBX=1:1 S IBPATCH=$P($P($T(BUILD+IBX),";;",2),U,1) Q:'$L(IBPATCH) D
|
|---|
| 36 | .W !,?5,IBPATCH
|
|---|
| 37 | .IF '$D(^XPD(9.6,"B",IBPATCH)) D
|
|---|
| 38 | ..N IBPKG,IBVER
|
|---|
| 39 | ..S IBPKG=$P($P($T(BUILD+IBX),";;",2),U,2)
|
|---|
| 40 | ..S IBVER=$P($P($T(BUILD+IBX),";;",2),U,3)
|
|---|
| 41 | ..IF $$VERSION^XPDUTL(IBPKG)'=IBVER D
|
|---|
| 42 | ...S XPDABORT=2
|
|---|
| 43 | ...W !,"Missing Required Package File Entry (Package/Patch): ",IBPATCH
|
|---|
| 44 | ..ELSE D
|
|---|
| 45 | ...W " ...Ok - in Package File"
|
|---|
| 46 | .ELSE D
|
|---|
| 47 | ..W " ...Ok"
|
|---|
| 48 | LIST ;
|
|---|
| 49 | ;;XU*8.0*2
|
|---|
| 50 | ;;XU*8.0*15
|
|---|
| 51 | ;;XU*8.0*16
|
|---|
| 52 | ;;XU*8.0*28
|
|---|
| 53 | ;;XU*8.0*32
|
|---|
| 54 | ;;XU*8.0*44
|
|---|
| 55 | ;;QUIT
|
|---|
| 56 | BUILD ;
|
|---|
| 57 | ;;PCE V1.0^PX^1.0
|
|---|
