AUTP1PRE.m

AUTP1PRE ; IHS/ASDST/GTH - PREINIT, CHK RQMNTS, ETC. ; [ 06/28/1999  2:45 PM ]

 ;;98.1;IHS DICTIONARIES (POINTERS);**2**;MAR 04, 1998;Build 6

 ;

 I '$G(DUZ) W !,"DUZ UNDEFINED OR 0." D SORRY Q

 ;

 I '$L($G(DUZ(0))) W !,"DUZ(0) UNDEFINED OR NULL." D SORRY Q

 ;

 S X=$P(^VA(200,DUZ,0),U)

 W !!,$$C("Hello, "_$P(X,",",2)_" "_$P(X,",")),!!,$$C("Checking Environment for Version "_$P($T(+2),";",3)_" of "_$P($T(+2),";",4)_".")

 ;

 S X=$G(^DIC(9.4,$O(^DIC(9.4,"C","AUT",0)),"VERSION"))

 W !!,$$C("Need AUT v 98.1.....AUT v "_X_" Present")

 I X<98.1 D SORRY Q

 ;

 S X=$G(^DD("VERSION"))

 W !!,$$C("Need at least FileMan 21.....FileMan "_X_" Present")

 I X<21 D SORRY Q

 ;

 S X=$G(^DIC(9.4,$O(^DIC(9.4,"C","XU",0)),"VERSION"))

 W !!,$$C("Need at least Kernel 8.....Kernel "_X_" Present")

 I X<8 D SORRY Q

 ;

 NEW DA,DIC

 S X="AUT",DIC="^DIC(9.4,",DIC(0)="",D="C"

 D IX^DIC

 I Y<0,$D(^DIC(9.4,"C","AUT")) D  Q

 . W !!,*7,*7,$$C("You Have More Than One Entry In The"),!,$$C("PACKAGE File with an ""AUT"" prefix.")

 . W !,$$C("One entry needs to be deleted.")

 . W !,$$C("FIX IT! Before Proceeding."),!!,*7,*7,*7

 . D SORRY

 . I $$DIR^AUTDIR("E")

 .Q

 W !!,$$C("No 'AUT' dups in PACKAGE file")

 ;

 W !!,$$C("ENVIRONMENT OK.")

 I $D(DIFQ),'$$DIR^AUTDIR("E","","","","","",2) KILL DIFQ

 Q

 ;

C(X,Y) ; Center X in field length Y/IOM/80.

 Q $J("",$S($D(Y):Y,$G(IOM):IOM,1:80)-$L(X)\2)_X

 ;

SORRY ;

 KILL DIFQ

 W *7,!,$$C("Sorry....")

 Q

 ;

AUTP1PRE  ; IHS/ASDST/GTH - PREINIT, CHK RQMNTS, ETC. ; [ 06/28/1999  2:45 PM ]

 +1       ;;98.1;IHS DICTIONARIES (POINTERS);**2**;MAR 04, 1998;Build 6

 +2       ;

 +3        IF '$GET(DUZ)

               WRITE !,"DUZ UNDEFINED OR 0."

               DO SORRY

               QUIT 

 +4       ;

 +5        IF '$LENGTH($GET(DUZ(0)))

               WRITE !,"DUZ(0) UNDEFINED OR NULL."

               DO SORRY

               QUIT 

 +6       ;

 +7        SET X=$PIECE(^VA(200,DUZ,0),U)

 +8        WRITE !!,$$C("Hello, "_$PIECE(X,",",2)_" "_$PIECE(X,",")),!!,$$C("Checking Environment for Version "_$PIECE($TEXT(+2),";",3)_" of "_$PIECE($TEXT(+2),";",4)_".")

 +9       ;

 +10       SET X=$GET(^DIC(9.4,$ORDER(^DIC(9.4,"C","AUT",0)),"VERSION"))

 +11       WRITE !!,$$C("Need AUT v 98.1.....AUT v "_X_" Present")

 +12       IF X<98.1

               DO SORRY

               QUIT 

 +13      ;

 +14       SET X=$GET(^DD("VERSION"))

 +15       WRITE !!,$$C("Need at least FileMan 21.....FileMan "_X_" Present")

 +16       IF X<21

               DO SORRY

               QUIT 

 +17      ;

 +18       SET X=$GET(^DIC(9.4,$ORDER(^DIC(9.4,"C","XU",0)),"VERSION"))

 +19       WRITE !!,$$C("Need at least Kernel 8.....Kernel "_X_" Present")

 +20       IF X<8

               DO SORRY

               QUIT 

 +21      ;

 +22       NEW DA,DIC

 +23       SET X="AUT"

           SET DIC="^DIC(9.4,"

           SET DIC(0)=""

           SET D="C"

 +24       DO IX^DIC

 +25       IF Y<0

               IF $DATA(^DIC(9.4,"C","AUT"))

                   Begin DoDot:1

 +26                   WRITE !!,*7,*7,$$C("You Have More Than One Entry In The"),!,$$C("PACKAGE File with an ""AUT"" prefix.")

 +27                   WRITE !,$$C("One entry needs to be deleted.")

 +28                   WRITE !,$$C("FIX IT! Before Proceeding."),!!,*7,*7,*7

 +29                   DO SORRY

 +30                   IF $$DIR^AUTDIR("E")

 +31                   QUIT 

                   End DoDot:1

                   QUIT 

 +32       WRITE !!,$$C("No 'AUT' dups in PACKAGE file")

 +33      ;

 +34       WRITE !!,$$C("ENVIRONMENT OK.")

 +35       IF $DATA(DIFQ)

               IF '$$DIR^AUTDIR("E","","","","","",2)

                   KILL DIFQ

 +36       QUIT 

 +37      ;

C(X,Y)    ; Center X in field length Y/IOM/80.

 +1        QUIT $JUSTIFY("",$SELECT($DATA(Y):Y,$GET(IOM):IOM,1:80)-$LENGTH(X)\2)_X

 +2       ;

SORRY     ;

 +1        KILL DIFQ

 +2        WRITE *7,!,$$C("Sorry....")

 +3        QUIT 

 +4       ;