Routine: XMUT5Q1

Information

XMUT5Q1 ;(WASH ISC)/CAP-Delivery Queue Analysis (start/init) ;04/17/2002 12:02

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
MailMan	2	^XMUT5B (GET,GO,NOTASK,QUIT,REC,ZTSK,ZTSK0)^XMUT5Q
VA FileMan	2	^DIC ^DIE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
MailMan	2	XMMGR-DELIVERY-STATS-COLL XMUT5Q

Entry Points

Name	Comments	DBIA/ICR reference
0
1
2
TASKED	;Don't queue task if $D(XMUT5NO)
GO
GO2	;
QUIT	;End process
NOTASK	;Run in foreground once
OPTION	;

Name	Field # of Occurrence
^DIC	GO2+3
^DIE	GO2+4
^XMUT5B	GO2+10, OPTION+1
GET^XMUT5Q	0, 0+1
GO^XMUT5Q	OPTION+2
NOTASK^XMUT5Q	NOTASK+1
QUIT^XMUT5Q	QUIT+1
REC^XMUT5Q	OPTION+1
ZTSK^XMUT5Q	TASKED+4
ZTSK0^XMUT5Q	GO2+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Run at 30-minute intervals !!",!! Line Location: 1+0
Function Call: WRITE	Prompt: !,"This is the interval that backgroud tasks will be rescheduled.",!,"Long intervals may not pick up any data. Short intervals are best,",!,"because the times collected may be off by as much as the interval for the" Line Location: 1+1
Function Call: WRITE	Prompt: !,"interval a message was in the queue for. ENTER THE NUMBER OF SECONDS !" Line Location: 1+2
Function Call: WRITE	Prompt: " Enter a time in seconds" Line Location: 1+4
Function Call: WRITE	Prompt: " Intervals must be at least 5 minutes apart." Line Location: 1+5
Function Call: WRITE	Prompt: " Intervals must be less than 1/2 hour." Line Location: 1+6
Function Call: READ	Formatting: !! Prompt: "How many times do you want to analyze the message delivery queue: 4//" Variable: X Timeout: DTIME Line Location: 2+0
Function Call: WRITE	Prompt: !,"The analysis will be automatically rescheduled this number of times." Line Location: 2+1
Function Call: WRITE	Prompt: $C(7),!,"Type in a number between 0 and 9999999." Line Location: 2+2
Function Call: WRITE	Prompt: !!,"I am queuing this job to run on the next half-hour. It will run every half-hour",!,"on the hour until the task is deleted or it is stopped by setting",!,"^XMBPOST(""XMUT5STOP"")=1." Line Location: TASKED+3
Function Call: WRITE	Prompt: !!,"QUEUED !!! TASK # "_ZTSK,!! Line Location: TASKED+4
Function Call: WRITE	Prompt: !!,"Analysis of queue starts now !!!",! Line Location: GO2+6
Function Call: WRITE	Prompt: !!,"Stats collected. If you would like them to be collected automatically",! Line Location: OPTION+3
Function Call: WRITE	Prompt: !,"every 1/2 hour, please schedule this option via TaskMan.",!! Line Location: OPTION+4
Routine Call	DIC Line Location: GO2+3
Routine Call	DIE Line Location: GO2+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(19 - [#19]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^XMB(1 - [#4.3]	GO
^XMBPOST("XMUT5STOP"	TASKED+4!, GO2+7

Label References

Name	Line Occurrences
2	2+1, 2+2
GO	2, TASKED+1
TASKED	0+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	GO*
A	GO2+7!, GO2+8*
B	GO2+7!
C	0!, GO2+8*
C("MGROUPS"	0, GO
C("RGROUPS"	0+1, GO
>> DA	GO2+4*
DIC	GO2+3*, GO2+5!
DIC(0	GO2+3*
DIE	GO2+3*, GO2+5!
DR	GO2+4*, GO2+5!
DTIME	2
>> I	0, 0+1, GO2+9*
M	GO2+7!, GO2+8*
M(	GO2+9*
M("O"	GO2+9*
R	GO2+7!, GO2+8*
R(	GO2+9*
R("O"	GO2+9*
RSP	GO2+7!
U	0, 0+1
>> X	0, 0+1, 1+7, 2, 2+1, 2+2, 2+3, GO2+3
>> XMUT5	GO2+7*
>> XMUT5F	2, 2+3
XMUT5NO	XMUT5Q1+15!, 0+2, TASKED+1
>> XMUT5S	1+7, GO2+10
>> Y	GO2+4
>> ZTQUEUED	GO2+6, OPTION+2
>> ZTREQ	OPTION+2*
>> ZTRTN	OPTION+2*
>> ZTSK	TASKED+4

Customize PDF page

Package: MailMan