Routine: XMA3

Package	Total	Call Graph
MailMan	5	(AUDIT,DONTPURG,USERSTAT)^XMA30 AUDTPURG^XMA32 (CHKAUDT,INITAUDT)^XMA32A MAILBOX^XMUT4 KILLMSG^XMXUTIL
VA Fileman	4	($$EZBLD,BLD,MSG)^DIALOG WAIT^DICD ^DIK ^DIR
Kernel	2	$$S^%ZTLOAD ($$DOW,$$FMADD,$$FMTE)^XLFDT

Package	Total	Caller Graph
MailMan	4	XMAUTOPURGE XMCLEAN XMPURGE XMSTAT

Entry Points

Name	Comments	DBIA/ICR reference
PURGEIT(XMPARM)	;
STAT	;
EN	;
SCAN	; PURGE MESSAGES
KILLRESP(XMZ,XMKILL)	; Kill response
PDATE(XMDAYS,XMDEFALT)	; Subtract so many days from today and return that date.
PURGE(XMZ,XMKILL)	; Purge message and responses
FINISH(XMIEN,XMCRE8,XMKILL,XMCNT,XMABORT)	;
INIT(XMIEN,XMPARM,XMKILL,XMABORT)	;
CWASTE(XMDUZ,XMCNT,XMABORT)	; Clean a user's WASTE basket
CMBOX	; Clean the mailbox file
MPURGE(XMCRE8,XMPARM,XMKILL,XMCNT,XMABORT)	;
CLEAN	; Clean various files
CARRIVE	; Clean the postmaster's ARRIVING basket
KILLMSG(XMZ,XMKILL)	; Kill message
CSTAT	; Clean Statistics file audits - delete records more than 2 years old
GETPARMS(XMPARM)	;

External References

Name	Field # of Occurrence
$$S^%ZTLOAD	MPURGE+8, CWASTE+3
$$EZBLD^DIALOG	SCAN+26, CMBOX+6, CWASTE+9
BLD^DIALOG	SCAN+5, SCAN+13, SCAN+16, SCAN+25, GETPARMS+19, FINISH+10
MSG^DIALOG	SCAN+22, GETPARMS+20, FINISH+11
WAIT^DICD	SCAN+29
^DIK	CSTAT+8, CARRIVE+7, CARRIVE+12
^DIR	SCAN+4, SCAN+28, SCAN+31
$$DOW^XLFDT	GETPARMS+9
$$FMADD^XLFDT	PDATE+2
$$FMTE^XLFDT	GETPARMS+16, GETPARMS+17, GETPARMS+18
AUDIT^XMA30	STAT+1, SCAN+3
DONTPURG^XMA30	INIT+7
USERSTAT^XMA30	STAT+2
AUDTPURG^XMA32	INIT+6
CHKAUDT^XMA32A	FINISH+13
INITAUDT^XMA32A	INIT+8
MAILBOX^XMUT4	INIT+3
KILLMSG^XMXUTIL	KILLRESP+3, KILLMSG+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SCAN+21
Function Call: WRITE	Prompt: ! Line Location: SCAN+23
Function Call: WRITE	Prompt: !!,"* Stopping prematurely per user request *" Line Location: FINISH+3
Function Call: WRITE	Prompt: ! Line Location: FINISH+9
Function Call: WRITE	Prompt: ! Condition for execution: $X>40 Line Location: MPURGE+7
Function Call: WRITE	Prompt: XMCNT,"." Line Location: MPURGE+7
Function Call: WRITE	Prompt: ! Condition for execution: $X>40 Line Location: CWASTE+2
Function Call: WRITE	Prompt: XMCNT,"." Line Location: CWASTE+2
Routine Call	DIALOG Line Location: SCAN+5 SCAN+13 SCAN+16 SCAN+25 GETPARMS+19 FINISH+10
Routine Call	DIALOG Line Location: SCAN+26 CMBOX+6 CWASTE+9
Routine Call	DIR Line Location: SCAN+4 SCAN+28 SCAN+31
Routine Call	DIALOG Line Location: SCAN+22 GETPARMS+20 FINISH+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^XMB(3.7 - [#3.7]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("XM"	FINISH+1!, MPURGE+11
^XMB("NETNAME"	GETPARMS+11
^XMB(1 - [#4.3]	SCAN+12, INIT+3, GETPARMS+4, GETPARMS+10, CARRIVE+2
^XMB(3.7 - [#3.7]	MPURGE+10, KILLRESP+2, CMBOX+4, CWASTE+4, CWASTE+7!, CWASTE+8!, CWASTE+9, CWASTE+10, CWASTE+11, CARRIVE+3 , CARRIVE+5, CARRIVE+14*, CARRIVE+15
^XMB(3.9 - [#3.9]	INIT+5, GETPARMS+16, MPURGE+3, MPURGE+4, MPURGE+5, MPURGE+9!, MPURGE+12, MPURGE+14, PURGE+3, PURGE+4 , KILLRESP+1, CARRIVE+6, CARRIVE+10
^XMBS(4.2999 - [#4.2999]	CSTAT+4, CSTAT+7

Label References

Name	Line Occurrences
$$PDATE	GETPARMS+5, GETPARMS+6, GETPARMS+13, CARRIVE+2
CARRIVE	CMBOX+2
CMBOX	CLEAN+2
CSTAT	CLEAN+1
CWASTE	CMBOX+5
EN	SCAN+1
FINISH	PURGEIT+4
GETPARMS	SCAN+24, INIT+2
INIT	PURGEIT+2
KILLMSG	PURGE+6
KILLRESP	PURGE+5
MPURGE	PURGEIT+3
PURGE	MPURGE+15
PURGEIT	EN+2, SCAN+30
STAT	SCAN+32

Naked Globals

Name	Field # of Occurrence
^(1	CARRIVE+14*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	CSTAT+1~, CSTAT+8, CARRIVE+7, CARRIVE+12*
DA(1	CSTAT+5, CARRIVE+7, CARRIVE+12*
DA(2	CARRIVE+7, CARRIVE+12
DIK	CSTAT+1~, CSTAT+5, CARRIVE+7, CARRIVE+12*
DIR	SCAN+2~, SCAN+4!, SCAN+31!
DIR("B"	SCAN+26*
DIR(0	SCAN+4, SCAN+27, SCAN+31*
>> DIRUT	SCAN+4, SCAN+31
DT	GETPARMS+9, PDATE+2, CSTAT+2
U	SCAN+12, INIT+3, INIT+5, GETPARMS+5, GETPARMS+6, GETPARMS+10, MPURGE+13, MPURGE+14, PURGE+4, CARRIVE+2 , CARRIVE+10, CARRIVE+14
XMABORT	PURGEIT+1~, PURGEIT+2, PURGEIT+3, PURGEIT+4, INIT~, INIT+1, INIT+3, FINISH~, MPURGE~, MPURGE+6 , MPURGE+8, CMBOX+1~, CMBOX+3, CMBOX+4, CMBOX+5, CWASTE~, CWASTE+1, CWASTE+3
XMAUDT	CSTAT+1~, CSTAT+6, CSTAT+7, CSTAT+8
XMBUFREC	GETPARMS+1~, GETPARMS+4*, GETPARMS+5, GETPARMS+6
XMCNT	PURGEIT+1~, PURGEIT+3, PURGEIT+4, FINISH~, FINISH+6, MPURGE~, MPURGE+2, MPURGE+6, MPURGE+7, CMBOX+1~ , CMBOX+3, CMBOX+5, CWASTE~, CWASTE+1, CWASTE+2, CARRIVE+1~, CARRIVE+4, CARRIVE+13, CARRIVE+14
XMCRE8	PURGEIT+1~, PURGEIT+3, PURGEIT+4, FINISH~, FINISH+13, MPURGE~, MPURGE+3, MPURGE+4, MPURGE+5, MPURGE+9 , MPURGE+14
XMCUTOFF	CSTAT+1~, CSTAT+2*, CSTAT+7
XMDATE	CARRIVE+1~, CARRIVE+10*, CARRIVE+11
XMDAYS	PDATE~, PDATE+1*, PDATE+2
XMDEFALT	PDATE~, PDATE+1
XMDUZ	CMBOX+1~, CMBOX+3, CMBOX+4, CMBOX+5, CWASTE~, CWASTE+4, CWASTE+7, CWASTE+8, CWASTE+9, CWASTE+10 , CWASTE+11
XMIEN	PURGEIT+1~, PURGEIT+2, PURGEIT+4, INIT~, INIT+8, FINISH~, FINISH+13, PURGE+1~, PURGE+2, PURGE+3 , PURGE+4
XMINST	CSTAT+1~, CSTAT+3, CSTAT+4, CSTAT+5, CSTAT+7
XMKILL	PURGEIT+1~, PURGEIT+2, PURGEIT+3, PURGEIT+4, INIT~, FINISH~, FINISH+13, MPURGE~, MPURGE+15, PURGE~ , PURGE+5, PURGE+6, KILLRESP~, KILLMSG~
XMKILL("MSG"	INIT+4, FINISH+2, KILLMSG+2
XMKILL("RESP"	INIT+4, FINISH+2, KILLRESP+4
XMKILL("START"	INIT+5*, FINISH+6, FINISH+7, FINISH+8
XMKILL("TOTAL"	FINISH+2*, FINISH+7, FINISH+8
XMPARM	EN+1~, EN+2, SCAN+2~, SCAN+24, SCAN+30, PURGEIT~, PURGEIT+2, PURGEIT+3, INIT~, INIT+2 , INIT+8, GETPARMS~, MPURGE~, CARRIVE+1~
XMPARM("END"	GETPARMS+5, GETPARMS+17, MPURGE+4, CARRIVE+2, CARRIVE+11
XMPARM("PDATE"	GETPARMS+6*, GETPARMS+18, MPURGE+14
XMPARM("START"	GETPARMS+2, GETPARMS+13, GETPARMS+16, MPURGE+3
XMPARM("TYPE"	GETPARMS+2*
XMSBUF	GETPARMS+1~, GETPARMS+10, GETPARMS+11, GETPARMS+12, GETPARMS+13
XMTEXT	SCAN+2~, GETPARMS+15~, FINISH+5~
XMVAR	GETPARMS+15~, GETPARMS+19, FINISH+5~, FINISH+10
XMVAR(1	GETPARMS+16, FINISH+6
XMVAR(2	GETPARMS+17, FINISH+7
XMVAR(3	GETPARMS+18, FINISH+8
XMZ	MPURGE+1~, MPURGE+2, MPURGE+5, MPURGE+9, MPURGE+10, MPURGE+11, MPURGE+12, MPURGE+14, MPURGE+15, PURGE~ , PURGE+3, PURGE+4, PURGE+6, KILLRESP~, KILLRESP+1, KILLRESP+2, KILLRESP+3, KILLMSG~, KILLMSG+1, CWASTE+5~ , CWASTE+6, CWASTE+7, CARRIVE+1~, CARRIVE+4, CARRIVE+5, CARRIVE+6, CARRIVE+7, CARRIVE+10, CARRIVE+12, CARRIVE+13
XMZLAST	CARRIVE+1~, CARRIVE+4, CARRIVE+13, CARRIVE+14
XMZR	PURGE+1~, PURGE+4*, PURGE+5
XMZREC	MPURGE+1~, MPURGE+12*, MPURGE+13, MPURGE+14
>> Y	SCAN+28
>> ZTQUEUED	EN+3, SCAN+1, GETPARMS+14, FINISH+4, MPURGE+7, CLEAN+3, CMBOX+6, CWASTE+2
>> ZTREQ	EN+3, CLEAN+3
>> ZTSTOP	MPURGE+8, CWASTE+3

Customize PDF page

Package: MailMan

Routine: XMA3

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: