- AUTP5PRE ; IHS/ASDST/GTH - AUT 98.1 PATCH 5 ENVIRON CHECK ; [ 02/10/2000 1:36 PM ]
- ;;98.1;IHS DICTIONARIES (POINTERS);**5**;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
- ;
- AUTP5MSG ;
- ;;AUT*98.1*5, 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 5, has been installed into this uci ---
- HELLO ;;
- ;;AUT v 98.1, Patch 5, 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.
- AUTP5PRE ; IHS/ASDST/GTH - AUT 98.1 PATCH 5 ENVIRON CHECK ; [ 02/10/2000 1:36 PM ]
- +1 ;;98.1;IHS DICTIONARIES (POINTERS);**5**;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 ;
- AUTP5MSG ;
- +1 ;;AUT*98.1*5, 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 5, has been installed into this uci ---
- HELLO ;;
- +1 ;;AUT v 98.1, Patch 5, 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.
