Various bugs fixed by George Timson.

NO.: 14601                              VERSION: 22.2
  TAG: CHKSUB+5                         ROUTINE NAME OR GLOBAL REF: DICATTDM
  REPORTER: SAM HABIEL                  DATE CHANGED: JAN 16,2013
  PROGRAMMER: GEORGE TIMSON
  CHANGE: Maximum permitted length of node is now dynamically calculated from ^D
D("STRING_LIMIT")                       DOCUMENTATION NEEDED: YES
  DOCUMENTATION NOTES: NOTE THE PRESENCE OF THIS NEW FEATURE
  NEW VERSION: <22.2>
 LONG DESCRIPTION:
 Before:
 >       I $G(DICATTLN),$$MAX(DICATTLN,X)>250 Q "Too much to store at the
 '"_X_"' subscript"

 After:
 <  I $G(DICATTLN),$$MAX(DICATTLN,X)>($G(^DD("STRING_LIMIT"),255)-5) Q
 "Too much to store at the '"_X_"' subscript"
 DETAILED TESTING INSTRUCTIONS:
 Set ^DD("STRING_LIMIT") to a value larger than 255.

 In Modify File Attributes, Keep making fields in the zero node until you
 reach 250 characters. You should be able to exceed that.

Type <Enter> to continue or '^' to exit:

NO.: 14602                              VERSION: 22.2
  TAG: 4                                ROUTINE NAME OR GLOBAL REF: DICATT6
  REPORTER: SAM HABIEL                  DATE CHANGED: JAN 16,2013
  PROGRAMMER: GEORGE TIMSON
  CHANGE: Maximum permitted length of a free text field is now dynamically calcu
lated from ^DD("STRING_LIMIT")          DOCUMENTATION NEEDED: YES
  DOCUMENTATION NOTES: Note presence of this feature.
  NEW VERSION: <22.2>
 LONG DESCRIPTION:
 Before:
 > 4     K DG,DE,M S L=250,P=$P($P($P(^DD(A,DA,0),U,4),";",2),"E",2) I P S
 M=$P(P,",",2) I M S L=M-P+1

 After:
 < 4 K DG,DE,M S
 L=$G(^DD("STRING_LIMIT"),255)-5,P=$P($P($P(^DD(A,DA,0),U,4),";",2),"E",2)
 I P S M=$P(P,",",2) I M S L=M-P+1
 DETAILED TESTING INSTRUCTIONS:
 This only applies to the roll and scroll mode of Modify File Attributes.

 Set ^DD("STRING_LIMIT") to a value larger than 255.

 On the roll and scroll mode, create a field that is larger than 255
 characters long. Now you should be able to.

NO.: 14603                              VERSION: 22.2
  TAG: 2+2ff                            ROUTINE NAME OR GLOBAL REF: DIAU
  REPORTER: SAM HABIEL                  DATE CHANGED: JAN 16,2013
  PROGRAMMER: GEORGE TIMSON
  CHANGE: Select AUDIT file will not display the last user selected file if the
file has no audit activity              DOCUMENTATION NEEDED: NO
  NEW VERSION: <22.2>
 LONG DESCRIPTION:
 Before:
 >       D R1^DICRW S DIC("S")=DIC("S")_" I
 $D(^DIA(+Y,""D"",DIAUSR))",DIC=1,DIC(0)="QAEI",DIC("A")="Select AUDITED
 File: ",DIC("B")=$G(^DISV(DUZ,"^DIC(")) D ^DIC K DIC

 After:
 <  D R1^DICRW ;Creates a DIC("S") that screens out files user has no
 access to
 <  S DIC("S")=DIC("S")_" I
 $D(^DIA(+Y,""D"",DIAUSR))",DIC=1,DIC(0)="QAEI",DIC("A")="Select AUDITED
 File: "
 <  S Y=$G(^DISV(DUZ,"^DIC(")) I Y X DIC("S") I  S DIC("B")=Y
 <  D ^DIC K DIC
 DETAILED TESTING INSTRUCTIONS:
 Anywhere in Fileman, select any file that does not have auditing on it.
 You don't need to do anything after that.

 Go to OTHER > AUDITING > MONITOR A USER.

 You should not be displayed your last selected file.