Listing 8.  "Update Categories" Global Routine



    1 *************
    2 * Global routine "Update Categories"
    3   Let CurrentDocument = DocumentName
    4   Nop ;If "Categories" was changed, update appropriate document
    5   If ChangedCategories = TRUE
    6     Let NewCategoryDocument = TextFromDocument("Categories")
    7     WorkWithDocument "Categories."||ChosenAccount
    8     Clear DOCUMENT 
    9     Type NewCategoryDocument
   10     Let ChangedCategories = FALSE
   11   EndIf
   12   WorkWithDocument CurrentDocument
   13 * End of routine "Update Categories"
   14 *************