Routine: XUTMK

Information

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

Source file <XUTMK.m>

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

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