AUTP4PRE.m

AUTP4PRE ; IHS/ASDST/GTH - AUT 98.1 PATCH 4 ENVIRON CHECK ; [ 12/17/1999  3:55 PM ]

 ;;98.1;IHS DICTIONARIES (POINTERS);**4**;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 %=1:1 S X=$P($T(HELLO+%),";",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

 ;

AUTP4MSG ;

 ;;AUT*98.1*4, modify YTD PAID field in VENDOR file.

 ;;Greetings.  You are receiving this message because you are a

 ;;programmer or are a manager of the ARMS or CHS applications.

 ;;This is for your information, only.  You need not do anything

 ;;in response to this message.

 ;;  

 ;;Questions can be directed to George T. Huggins, RPMS/DBA, at

 ;;520-670-4871, or via IHS Mailman or Exchange.

 ;;  

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

HELLO ;;  

 ;;AUT v 98.1, Patch 4, modifies the field definition of field

 ;;YTD PAID in the VENDOR file, to increase the allowable values in

 ;;the field from a penny short of one million dollars (999999.99)

 ;;to a penny short of one billion dollars (999999999.99).

 ;;  

 ;;The ARMS and CHS applications are the primary users of the VENDOR

 ;;file.  This patch is issued in support of processing the forms

 ;;1099s in ARMS for CY 1999, scheduled for late January 2000.

AUTP4PRE  ; IHS/ASDST/GTH - AUT 98.1 PATCH 4 ENVIRON CHECK ; [ 12/17/1999  3:55 PM ]

 +1       ;;98.1;IHS DICTIONARIES (POINTERS);**4**;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 %=1:1

               SET X=$PIECE($TEXT(HELLO+%),";",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       ;

AUTP4MSG  ;

 +1       ;;AUT*98.1*4, modify YTD PAID field in VENDOR file.

 +2       ;;Greetings.  You are receiving this message because you are a

 +3       ;;programmer or are a manager of the ARMS or CHS applications.

 +4       ;;This is for your information, only.  You need not do anything

 +5       ;;in response to this message.

 +6       ;;  

 +7       ;;Questions can be directed to George T. Huggins, RPMS/DBA, at

 +8       ;;520-670-4871, or via IHS Mailman or Exchange.

 +9       ;;  

 +10      ;; --- AUT v 98.1, Patch 4, has been installed into this uci ---

HELLO     ;;  

 +1       ;;AUT v 98.1, Patch 4, modifies the field definition of field

 +2       ;;YTD PAID in the VENDOR file, to increase the allowable values in

 +3       ;;the field from a penny short of one million dollars (999999.99)

 +4       ;;to a penny short of one billion dollars (999999999.99).

 +5       ;;  

 +6       ;;The ARMS and CHS applications are the primary users of the VENDOR

 +7       ;;file.  This patch is issued in support of processing the forms

 +8       ;;1099s in ARMS for CY 1999, scheduled for late January 2000.