source: WorldVistAEHR/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBD3KENV.m@ 1311

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

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1IBD3KENV ;ALB/MLI - AICS 3.0 Environment Checker ; 4 OCT 1996
2 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
3EN ;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 ;
13ENV ; 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 ;
23PATCH ;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 ;
33BLDCHK ;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"
48LIST ;
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
56BUILD ;
57 ;;PCE V1.0^PX^1.0
Note: See TracBrowser for help on using the repository browser.