Routine: XUTMK

Information

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

Source Information

Source file <XUTMK.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	5	(,$$S)^%ZTLOAD ($$H0,$$H3)^%ZTM SUBCHK^%ZTMS5 $$HTFM^XLFDT $$PURGE^XUTMKE
VA Fileman	3	UPDATE^DIE ^DIK ^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Kernel	2	XUTM CLEAN XUTM QCLEAN

Entry Points

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

External References

Name	Field # of Occurrence
^%ZTLOAD	QUEUE+2
$$S^%ZTLOAD	CLEAN+1
$$H0^%ZTM	SETUP+4, 1+3
$$H3^%ZTM	1+3
SUBCHK^%ZTMS5	SUB+1
UPDATE^DIE	MONITOR+10
^DIK	MONITOR+17
^DIR	ZTKEEP+6, ZTDTH+3
$$HTFM^XLFDT	MONITOR+8, MONITOR+15
$$PURGE^XUTMKE	FINAL+7

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
Routine Call	DIE Line Location: MONITOR+10
Routine Call	DIR Line Location: ZTKEEP+6 ZTDTH+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(14.5 - [#14.5]	SETUP+7, SETUP+8, ZTKEEP+2, ZTKEEP+3
^%ZIS(14.71 - [#14.71]	MONITOR+2*, MONITOR+16
^%ZOSF("VOL"	SETUP+7, ZTKEEP+2
^%ZTSCH(	SETUP+2, SETUP+3!, 1+4
^%ZTSCH("C"	CLIST+2, CLIST+3!, CLEARIO+13, CLEARIO+14!
^%ZTSCH("DEVTRY"	CLEARIO+7!
^%ZTSCH("IO"	1+8, CLEARIO+1, CLEARIO+3, CLEARIO+5, CLEARIO+6, CLEARIO+8, CLEARIO+9!
^%ZTSCH("JOB"	1+5
^%ZTSCH("LINK"	1+7
^%ZTSCH("MON"	MONITOR+3
^%ZTSCH("TASK"	1+1, TASK+2, TASK+3, TASK+4, TASK+5, TASK+6!, TASK+7, TASK+9!
^%ZTSCH("WAIT"	CLEARIO+2*, CLEARIO+16!
^%ZTSCH(0	FINAL+9!
^%ZTSK - [#14.4]	SETUP+3!, SETUP+4, SETUP+5, CLEAN+2, CLEAN+4, CLEAN+5!, 1+2, 1+6, 2+1, 3+1! , NEXT, FINAL+1, FINAL+3*, FINAL+4, CLIST+3
^%ZTSK(0	FINAL+2*

Label References

Name	Line Occurrences
2	1+2
CLEAN	CLEAN+4, NEXT+1
CLEARIO	FINAL+5
CLIST	FINAL+5
FINAL	CLEAN+2
MONITOR	FINAL+5
NEXT	CLEAN+5, 1+1, 1+4, 1+5, 1+7, 1+8, 2+2, 2+6
NOTQED	ZTKEEP+8, ZTDTH+5
SUB	FINAL+5
SX	SETUP+6
TASK	FINAL+5

Naked Globals

Name	Field # of Occurrence
^(	TASK+4, MONITOR+16
^(0	SETUP+4*, SETUP+8, ZTKEEP+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	FINAL+7*, ZTKEEP+8!, ZTDTH+5!
%ZTIO	CLEARIO+4~, CLEARIO+5, CLEARIO+6, CLEARIO+7, CLEARIO+8, CLEARIO+9
%ZTPAIR	CLEARIO+4~, CLEARIO+12, CLEARIO+13, CLEARIO+14
DA	MONITOR+1~, MONITOR+17*
DIK	MONITOR+1~, MONITOR+17*
>> DILOCKTM	SUB+1
DIR	ZTKEEP+7!, ZTDTH+4!
DIR("?"	ZTKEEP+5, ZTDTH+2
DIR("??"	ZTKEEP+5, ZTDTH+2
DIR("A"	ZTKEEP+1, ZTDTH+1
DIR("B"	ZTKEEP+1, ZTKEEP+3, ZTKEEP+4, ZTDTH+1
DIR(0	ZTKEEP+1, ZTDTH+1
DIRUT	ZTKEEP+7!, ZTDTH+4!
DTOUT	ZTKEEP+6, ZTKEEP+7!, ZTDTH+3, ZTDTH+4!
DUOUT	ZTKEEP+7!, ZTDTH+4!
>> I	MONITOR+9*
IEN	MONITOR+1~, MONITOR+3, MONITOR+6
U	SETUP+4, SETUP+8, 1+2, 1+6, 2+2, 2+3, 2+5, TASK+4, TASK+8, TASK+9 , MONITOR+9, MONITOR+16, ZTKEEP+3
X	MONITOR+1~, ZTKEEP+8!, ZTDTH+5!
Y	MONITOR+7*, MONITOR+9, ZTKEEP+8!, ZTKEEP+9, ZTDTH+5!, ZTDTH+6
>> Z1	2+1*, 2+2, 2+3
ZFDA	MONITOR+1~, MONITOR+11!
ZFDA(	MONITOR+6
ZR	MONITOR+1~, MONITOR+3*, MONITOR+4, MONITOR+5, MONITOR+7, MONITOR+11
ZR2	MONITOR+1~, MONITOR+6, MONITOR+8, MONITOR+9, MONITOR+15, MONITOR+16
ZT	FINAL+10!
ZT1	CLIST+1, CLIST+2, CLIST+3, TASK+1~, TASK+2, TASK+3, TASK+4, TASK+5, TASK+6, TASK+7 , TASK+9, MONITOR+1~, MONITOR+3, MONITOR+4, MONITOR+5, MONITOR+7, MONITOR+8, MONITOR+11, MONITOR+15, MONITOR+16* , MONITOR+17
ZT2	CLIST+2, CLIST+3, TASK+1~, TASK+4, TASK+6, TASK+8, TASK+9, MONITOR+1~, MONITOR+4, MONITOR+5 , MONITOR+7, MONITOR+8, MONITOR+11, MONITOR+16*
>> ZT3	CLIST+2, CLIST+3
>> ZTCNT	SX, CLEAN+1, CLEAN+3, FINAL+2
>> ZTCNTPU	1+6*, 1+7
>> ZTDESC	QUEUE+1*
ZTDTH	SETUP+1, SETUP+2, SETUP+3, SETUP+4, 1+2, 1+3, 2+4, FINAL+10!, ZTDTH+6*
>> ZTDTH3	1+3*, 1+4, 1+5, 1+7, 1+8
ZTF	2+3, 2+4, 2+5*, 2+6, FINAL+10!
ZTI	SETUP+7, SETUP+8, FINAL+10!, ZTKEEP+2, ZTKEEP+3, ZTKEEP+7!
>> ZTIO	1+6, 1+8, QUEUE+1
ZTKEEP	SETUP+6, SETUP+7, SETUP+8, SX, 2+3, 2+4, 2+5, FINAL+7, FINAL+10!, ZTKEEP+9
>> ZTMAX	SX, CLEAN+3, FINAL+2
>> ZTQUEUED	CLEAN+5, 3+1
>> ZTREC	1+2*, 1+6, 2+5
>> ZTRTN	QUEUE+1*
ZTS	SETUP+2, SETUP+3, SETUP+4, SETUP+5, SX, CLEAN+2*, CLEAN+3, CLEAN+4, CLEAN+5, 1+1 , 1+2, 1+4, 1+5, 1+6, 1+7, 1+8, 2+1, 3+1, NEXT, FINAL+10!
>> ZTSAVE("ZTKEEP"	QUEUE+1*
ZTSK	QUEUE+4!
>> ZTSTOP	CLEAN+1*
ZTV	SETUP+7, FINAL+10!, ZTKEEP+2, ZTKEEP+7!

Customize PDF page

Package: Kernel

Routine: XUTMK

Call Graph Total: 8

Caller Graph Total: 2