AUTP3PRE.m

AUTP3PRE ; IHS/ASDST/GTH - PREINIT, CHK RQMNTS, ETC. ; [ 09/27/1999  1:13 PM ]

 ;;98.1;IHS DICTIONARIES (POINTERS);**3**;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,",")),!

 F %=4:1 S X=$P($T(AUTP3MSG+%),";",3) Q:X=""  W !?5,X

 ;

 W !!,$$C("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_" Patch "_$P($T(+2),";",5)_".")

 ;

 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^XBDIR("E")

 .Q

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

 ;

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

 I '$$DIR^XBDIR("E","","","","","",1) KILL DIFQ Q

 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

 ;

AUTP3MSG ;

 ;;AUT v 98.1, Patch 3, Correct BPA I/T in VENDOR file.

 ;; --- AUT v 98.1, Patch 3, has been installed into this uci ---

 ;;  

 ;;AUT v 98.1, Patch 3, corrects the Input Transform of the BPA number

 ;;in the VENDOR file.  The previous I/T restricted the range of the

 ;;BPA number from 910000 to 999999.  The I/T included in Patch 3

 ;;modifies that restriction by allowing entry of BPA numbers from

 ;;000000 to 999999.  The only affected application is the Contract

 ;;Health System (CHS), which uses the first 2 digits of the number

 ;;to indicate the year of the agreement.

AUTP3PRE  ; IHS/ASDST/GTH - PREINIT, CHK RQMNTS, ETC. ; [ 09/27/1999  1:13 PM ]

 +1       ;;98.1;IHS DICTIONARIES (POINTERS);**3**;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,",")),!

 +9        FOR %=4:1

               SET X=$PIECE($TEXT(AUTP3MSG+%),";",3)

               IF X=""

                   QUIT 

               WRITE !?5,X

 +10      ;

 +11       WRITE !!,$$C("Checking Environment for "_$PIECE($TEXT(+2),";",4)_" V "_$PIECE($TEXT(+2),";",3)_" Patch "_$PIECE($TEXT(+2),";",5)_".")

 +12      ;

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

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

 +15       IF X<98.1

               DO SORRY

               QUIT 

 +16      ;

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

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

 +19       IF X<21

               DO SORRY

               QUIT 

 +20      ;

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

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

 +23       IF X<8

               DO SORRY

               QUIT 

 +24      ;

 +25       NEW DA,DIC

 +26       SET X="AUT"

           SET DIC="^DIC(9.4,"

           SET DIC(0)=""

           SET D="C"

 +27       DO IX^DIC

 +28       IF Y<0

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

                   Begin DoDot:1

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

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

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

 +32                   DO SORRY

 +33                   IF $$DIR^XBDIR("E")

 +34                   QUIT 

                   End DoDot:1

                   QUIT 

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

 +36      ;

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

 +38       IF '$$DIR^XBDIR("E","","","","","",1)

               KILL DIFQ

               QUIT 

 +39       QUIT 

 +40      ;

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       ;

AUTP3MSG  ;

 +1       ;;AUT v 98.1, Patch 3, Correct BPA I/T in VENDOR file.

 +2       ;; --- AUT v 98.1, Patch 3, has been installed into this uci ---

 +3       ;;  

 +4       ;;AUT v 98.1, Patch 3, corrects the Input Transform of the BPA number

 +5       ;;in the VENDOR file.  The previous I/T restricted the range of the

 +6       ;;BPA number from 910000 to 999999.  The I/T included in Patch 3

 +7       ;;modifies that restriction by allowing entry of BPA numbers from

 +8       ;;000000 to 999999.  The only affected application is the Contract

 +9       ;;Health System (CHS), which uses the first 2 digits of the number

 +10      ;;to indicate the year of the agreement.