Routine: XMRPCTS0

Package	Total	Call Graph
MailMan	8	TRAN^XMC1 ^XMD $$TSKEXIST^XMKPR SCRIPT^XMKPR1 DSP^XMRPCTS INIT^XMRPCTSA ($$OBE,PLAY)^XMTDR ZAPIT^XMXMSGS2
Kernel	2	($$FMDIFF,$$NOW)^XLFDT ($$LJ,$$RJ)^XLFSTR
VA Fileman	1	^%DT

Package

Total

Call Graph

TRAN^XMC1 ^XMD $$TSKEXIST^XMKPR SCRIPT^XMKPR1 DSP^XMRPCTS INIT^XMRPCTSA ($$OBE,PLAY)^XMTDR ZAPIT^XMXMSGS2

($$FMDIFF,$$NOW)^XLFDT ($$LJ,$$RJ)^XLFSTR

^%DT

Package	Total	Caller Graph
MailMan	3	XMNET-TWIX-TRANSMIT XMRPCTS XMRPCTS1

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: "MREQ",!,XMZ,!,"PCTS",!,"AMS",!,"TAB",!,XMET,XMCR Line Location: WALK+3
Function Call: READ	Timeout: 5 Variable: X Line Location: MREQ+0
Function Call: READ	Timeout: 3 Variable: X Line Location: MREQ+1
Function Call: READ	Timeout: 3 Variable: X Line Location: REM+0
Function Call: WRITE	Prompt: "MDTA",!,XMZ,!,XMMN,!,XMSH Line Location: MDTA+3
Function Call: WRITE	Prompt: Z,! Line Location: MDTA+5
Function Call: WRITE	Prompt: $C(25),XMLPC,XMET,XMCR Line Location: MDTA+8
Function Call: READ	Timeout: 5 Variable: X Line Location: MAK2+0
Function Call: READ	Timeout: 3 Variable: X Line Location: MAK2+1
Function Call: READ	Timeout: 3 Variable: X Line Location: MAK2+2
Function Call: WRITE	Prompt: "MEND",! Line Location: EXIT+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("LPC"	MDTA+5
^DIC(4.2 - [#4.2]	XMRPCTS0+11, STAT+1, RQ+5
^XMB(3.7 - [#3.7]	WALK+1
^XMB(3.9 - [#3.9]	WALK+2, MDTA+4, STAT+1, STAT+2*
^XMBS(4.2999 - [#4.2999]	MDTA+2, STAT+3

Name	Line Occurrences
$$DT	STAT+2
DSP	WALK, WALK+3, MREQ+2, REM+1, MDTA+1, MAK2+5, ERR+1, EXIT, QQ+1
ERR	MAK2+2
EXIT	WALK+1, MREQ+1, MREQ+2, MREQ+3, REM, MAK2+6
MAK2	MAK2+3
MREQ	MREQ+3
QQ	RQ+6, RQ+8, RQ+10
REM	MREQ+1
STAT	MAK2+1, MAK2+2
WALK	WALK+2, MAK2+1, MAK2+2

Name	Field # of Occurrence
^(	MDTA+4
^(0	MDTA+4

Name	Field # of Occurrence
%	WALK+3, MREQ+3, MDTA+8, MAK2+3, DSP+2*, ERR~, RQ+2~
%DT	DT~*
DIC	ERR+3~, QQ+4!
>> I	MREQ, MAK2
U	XMRPCTS0+12*, STAT+1, STAT+2
X	MREQ, MREQ+1, MREQ+2, REM, MDTA+4, MDTA+5~, MAK2, MAK2+1, MAK2+2, STAT+1* , STAT+2, ERR~, DT~*, QQ+4!
XMB	RQ+2~, RQ+9, RQ+11
XMB("SCR IEN"	, RQ+10
>> XMCI	QQ+6*
>> XMCR	WALK+3, MDTA+5, MDTA+8
XMDDD	JD+1~, JD+4*, JD+6
XMDF	ERR+3~, ERR+4*
>> XMDH	MDTA+7
XMDT	JD+1~, JD+3*, JD+4, QQ+4!
XMDUZ	XMRPCTS0+12, RQ+2~, RQ+3
>> XMET	WALK+3, MREQ+1, MREQ+2, REM, MDTA+8
XMHHMM	JD+1~, JD+5*, JD+6
XMINST	XMRPCTS0+11, XMRPCTS0+12, MDTA+2, STAT+1, STAT+3, RQ+2~, RQ+5, RQ+6, RQ+8, RQ+9 , RQ+11
>> XMK	XMRPCTS0+12*, WALK, WALK+1, WALK+2, STAT+4
>> XMLF	MREQ+1, REM, MDTA+5, MAK2+2
>> XMLPC	MDTA+3, MDTA+5, MDTA+7*, MDTA+8
>> XMMN	MREQ+1, REM, REM+1, MDTA+3, MAK2+1
XMNOW	JD+1~, JD+2*, JD+3, JD+5
>> XMRPCTS("S"	XMRPCTS0+12, MAK2+1
>> XMRPCTS0	QQ+5, QQ+6
>> XMSH	MDTA+3
XMSITE	RQ+2~, RQ+4*, RQ+5, RQ+9, RQ+11
>> XMSTAT	MAK2+1, MAK2+2, STAT+2, ERR+1, ERR+4
XMSUB	ERR~, ERR+4*
XMTEXT	ERR~, ERR+2*
XMTRAN	DSP~
XMY	ERR~
XMY(	ERR+6*
XMY("G.PCTS"	ERR+5*
XMZ	XMRPCTS0+12, WALK+1, WALK+2, WALK+3, MREQ+1, MDTA+1, MDTA+2, MDTA+3, MDTA+4, STAT+1 , STAT+2, STAT+4, ERR+1, ERR+2, ERR+3~
Y	MDTA+5~, ERR~, DT~, QQ+4!
>> Z	MDTA+4*, MDTA+5
ZTPAR	QQ+4!
>> ZTQUEUED	RQ+6
>> ZTREQ	RQ+7*

Information

Name	Comments	DBIA/ICR reference
QQ	;
STAT	;Update the Mailman Status
RQ	;Force this domain to play its script, it plays regardless...
ERR
DSP(XMTRAN)	;
DT()
WALK
MDTA	;
EXIT
REM
MREQ
MAK2
JD()	; Returns today's Julian date