Routine: XMUT1A

Information

XMUT1A ;(WASH ISC)/CAP-Recover msgs for a user (cont.) ;04/17/2002 11:50

Package	Total	Caller Graph
MailMan	3	XMUT-REC-DELETE XMUT-REC-RPT XMUT1

Name	Comments	DBIA/ICR reference
NOKL
D
NO
FX
H
H1
LIST	;LIST MESSAGES FOUND
L
N
ZTSK	;
DEL	;DELETE LIST FROM ^TMP("XMUT1"...
NQ
GO
TABLE	;;;DESCRIPTION^PROGRAM OR TAG^PROGRAM
DQ

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: FX+3
Function Call: WRITE	Prompt: !!,"CHOOSE FROM:",! Line Location: LIST+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: L+0
Function Call: WRITE	Prompt: !!,"WHICH ONE: ",J,"//" Line Location: L+0
Function Call: WRITE	Prompt: !!,"Message removed from list - no longer in 3.9 file.",! Line Location: N+2
Function Call: WRITE	Prompt: !?2,Y,?22,$P(I,"^") Line Location: N+4
Function Call: WRITE	Prompt: @IOF,!,"CONTENTS OF MAILBOXES FOR ",XMA0,?60,"PAGE: ",XMB0,!! Line Location: H+1
Function Call: WRITE	Prompt: " DATE@TIME",?22,"SUBJECT",!! Line Location: H+2
Function Call: WRITE	Prompt: @IOF Line Location: NQ+1
Function Call: WRITE	Prompt: !!,"CHOOSE FROM:",! Line Location: DEL+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: D+0
Function Call: WRITE	Prompt: !!,"WHICH ONE ",J,"//" Line Location: D+0
Function Call: WRITE	Prompt: !," NO SUCH USER !!!",$C(7) Line Location: D+5
Function Call: WRITE	Prompt: " << DELETED !!!" Line Location: DQ+0
Function Call: WRITE	Prompt: !!,"Choose NUMBER from list. Or enter '??' for a list.",!,$C(7) Line Location: H1+0
Function Call: WRITE	Prompt: !!!,"NO MESSAGES RECOVERED FOR ANYBODY !!!" Line Location: NO+0
Routine Call	DIC Line Location: FX
Routine Call	DIR Line Location: N+6 D+7

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ZTSK+1
^DOPT("XMUT1"	NOKL, GO, GO+1
^TMP("XMUT1"	LIST+3, L+3, N, N+2!, DEL+2, D+3, DQ!
^VA(200 - [#200]	LIST+3, DEL+2, D+4
^XMB(3.9 - [#3.9]	N+1

Name	Field # of Occurrence
%	ZTSK+1!
%H	ZTSK+1!
%I	ZTSK+1!
C	LIST+1~, LIST+2, DEL+1
DD	FX+1!
DIC	FX*!
DIC(0	FX*
DIE	FX+3!
DIF	FX+3!
>> DIK	NOKL*
DIR	N+6!, D+7!
DIR("A"	D+6*
DIR("B"	D+6*
DIR(0	N+6, D+6
DIRUT	N+6!, D+7!
DO	FX+1!
DTIME	L, D
F	LIST+1~, LIST+2, DEL+1
I	GO+1, LIST+1~, LIST+3, N+1, N+2, N+3, N+4, DEL+2
IO	N+6
IO(0	N+6
IOF	H+1, NQ+1
IOSL	N+5
IOST	N+5
J	LIST+1~, LIST+2, LIST+3, LIST+4, L, DEL+1, DEL+2, DEL+3, D
U	FX+1
X	GO+1, FX+1, LIST+1~, L, L+1, L+2, L+3, L+4, N+6, D , D+1, D+2, D+3, D+4, D+7
XMA0	ZTSK+2*, H+1, NQ!
XMB0	ZTSK+2, H, H+1, NQ!, D+4*, D+5
XMC0	ZTSK+2, N, N+1, N+2, NQ!
XMD0	N+3, N+5, H, NQ!
XME0	LIST+1~, L+4, ZTSK+2, N, N+2, NQ!, D+4, D+6, DQ!
XMF0	ZTSK+1*, N+3, NQ!
Y	FX, FX+1!, ZTSK+1, ZTSK+2, N+3, N+4
Y(0	FX+1
>> ZTQUEUED	N+6, NQ+1
>> ZTREQ	NQ+1*
>> ZTSAVE	L+5
>> ZTSAVE("XME0"	L+4*
ZTSK	NQ+1!

Name	Field # of Occurrence
$T(TABLE+I	GO+1