Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: XUTMK

Package: Kernel

Routine: XUTMK


Information

XUTMK ;SEA/RDS - Taskman: Option, ZTMCLEAN/ZTMQCLEAN ;11/1/07 14:44

Source Information

Source file <XUTMK.m>

Entry Points

Name Comments DBIA/ICR reference
SETUP ;Setup Variables And Synchronize ^%ZTSK With ^%ZTSCH
SX
CLEAN ;Delete Obsolete Entries
1 ;keep active tasks
2 ;keep young inactive tasks
3 ;delete old inactive tasks
NEXT
FINAL ;Final Steps.
CLIST ;Clean up the C list
TASK ;Clean the TASK nodes.
SUB ;Sync the SUB nodes
CLEARIO ;Clear any empty IO lists
MONITOR ;Move any Monitor data,
OPTION ;Entry Point For ZTMCLEAN Option
ZTKEEP ;ask user how long to keep inactive tasks
ZTDTH ;ask user when to start the cleanup
QUEUE ;queue the cleanup task
HELP1 ;ZTKEEP--?? help for first prompt
HELP2 ;ZTDTH--?? help for second prompt
NOTQED ;OPTION--feedback when task is canceled

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option queues a task to clean up the Task file."
  • Line Location: OPTION+1
Function Call: WRITE
  • Prompt: !,"All tasks that have been inactive for a certain number of days are deleted.",!
  • Line Location: OPTION+2
Function Call: WRITE
  • Prompt: !!?5,"Task file cleanup queued!"
  • Line Location: QUEUE+3
Function Call: WRITE
  • Prompt: !!?5,"Answer how many days inactive tasks should be kept."
  • Line Location: HELP1+1
Function Call: WRITE
  • Prompt: !?5,"Any task currently scheduled, waiting, or running is still active."
  • Line Location: HELP1+2
Function Call: WRITE
  • Prompt: !!?5,"Answer exactly when the task should begin the cleanup."
  • Line Location: HELP2+1
Function Call: WRITE
  • Prompt: !!?5,"Task file cleanup NOT queued!"
  • Line Location: NOTQED+1
Info |  Source |  Entry Points |  Interaction Calls