source: IHS-VA_UTILITIES-XB/trunk/XBPRE.m@ 1400

Last change on this file since 1400 was 642, checked in by Sam Habiel, 15 years ago

Modified directory structure; moved routines.

File size: 1.7 KB
Line 
1XBPRE ; IHS/ADC/GTH - PREINIT, CHK RQMNTS, ETC. ; [ 01/22/2001 11:54 AM ]
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ; XB*3*8 - IHS/ASDST/GTH Add KIDS check to suppress questions.
4 ;
5 I '$G(DUZ) W !,"DUZ UNDEFINED OR 0." D SORRY Q
6 ;
7 I '$L($G(DUZ(0))) W !,"DUZ(0) UNDEFINED OR NULL." D SORRY Q
8 ;
9 S X=$P(^VA(200,DUZ,0),U)
10 W !!,$$C("Hello, "_$P(X,",",2)_" "_$P(X,",")),!!,$$C("Checking Environment for Version "_$P($T(+2),";",3)_" of XB/ZIB.")
11 ;
12 S X=$G(^DD("VERSION"))
13 W !!,$$C("Need at least FileMan 20.....FileMan "_X_" Present")
14 I X<20 D SORRY Q
15 ;
16 S X=$G(^DIC(9.4,$O(^DIC(9.4,"C","XU",0)),"VERSION"))
17 W !!,$$C("Need at least Kernel 7.....Kernel "_X_" Present")
18 I X<7 D SORRY Q
19 ;
20 S X=$S($L($T(STATUS^%ZISH)):"STATUS^%ZISH is Present",1:"")
21 W !!,$$C("Need Patch 25 to Kernel 7 (^%ZISH)....."_X)
22 I '$L($T(STATUS^%ZISH)) D SORRY Q
23 ;
24 NEW DA,DIC
25 S X="XB",DIC="^DIC(9.4,",DIC(0)="",D="C"
26 D IX^DIC
27 I Y<0,$D(^DIC(9.4,"C","XB")) D Q
28 . W !!,*7,*7,$$C("You Have More Than One Entry In The"),!,$$C("PACKAGE File with an ""XB"" prefix.")
29 . W !,$$C("One entry needs to be deleted.")
30 . W !,$$C("FIX IT! Before Proceeding."),!!,*7,*7,*7
31 . D SORRY
32 . I $$DIR^XBDIR("E")
33 .Q
34 W !!,$$C("No 'XB' dups in PACKAGE file")
35 ;
36 W !!,$$C("ENVIRONMENT OK.")
37 I $D(DIFQ),'$$DIR^XBDIR("E","","","","","",2) KILL DIFQ
38 ; The following line prevents the "Disable Options..." and "Move ; XB*3*8 - IHS/ASDST/GTH
39 ; Routines..." questions from being asked during the install. ; XB*3*8 - IHS/ASDST/GTH
40 I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0 ; XB*3*8 - IHS/ASDST/GTH
41 Q
42 ;
43C(X,Y) ; Center X in field length Y/IOM/80.
44 Q $J("",$S($D(Y):Y,$G(IOM):IOM,1:80)-$L(X)\2)_X
45 ;
46SORRY ;
47 KILL DIFQ
48 W *7,!,$$C("Sorry....")
49 Q
50 ;
Note: See TracBrowser for help on using the repository browser.