Routine: XMUTERM1

Information

XMUTERM1 ;ISC-SF/GMB-Delete Mailbox (cont.) ;12/04/2002 13:51

Name	Comments	DBIA/ICR reference
ALL1TASK	; Deletions
HEADER1	;
CHECK1(XMI,XMGRACE,XMCUTOFF,XMTERM,XMNAME,XMWHY)	;
GETDATA(XMI,XMADDED,XMAC,XMVC,XMPM,XMLASTON,XMTDATE,XMDELM,XMNEW,XMFWD,XMDIS)	;
ALL2TASK	; Suggestions
PAGE2(XMABORT)	;
HEADER2	;
CHECK2(XMI,XMCUTOFF,XMTERM,XMNAME,XMWHY)	;
TERMINAT(XMDUZ)	; Remove user from MailMan

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Condition for execution: $X>50 Line Location: ALL1TASK+9
Function Call: WRITE	Prompt: "." Line Location: ALL1TASK+9
Function Call: WRITE	Prompt: @IOF Line Location: ALL1TASK+14
Function Call: WRITE	Prompt: !,$J(XMI,XMLEN)," ",$E(XMNAME,1,32-XMLEN),?34,XMADDED,?44,XMAC,?47,XMVC,?50,XMPM,?53,XMLASTON,?63,XMTDATE,?76,XMDELM Line Location: ALL1TASK+15
Function Call: WRITE	Prompt: !,$$EZBLD^DIALOG(36347),$$EZBLD^DIALOG(38004),XMFWD Line Location: ALL1TASK+16
Function Call: WRITE	Prompt: ! Condition for execution: $X>50 Line Location: ALL2TASK+9
Function Call: WRITE	Prompt: "." Line Location: ALL2TASK+9
Function Call: WRITE	Prompt: !,$J(XMI,XMLEN)," ",XMNAME,?27,$P(XMREC,U,1),?30,$P(XMREC,U,2),?33,$P(XMREC,U,3),?35,$P(XMREC,U,4),?44,$P(XMREC,U,5),?54,$P(XMREC,U,6),?58,$P(XMREC,U,7),?60,$J($P(XMREC,U,8),6) Line Location: ALL2TASK+25
Function Call: WRITE	Prompt: " ",$E(XMSNAM,1,12) Line Location: ALL2TASK+29
Function Call: WRITE	Prompt: !,?XMLEN+1,$$EZBLD^DIALOG(38004),$P(XMREC,U,9) Line Location: ALL2TASK+30
Function Call: WRITE	Prompt: @IOF Line Location: PAGE2+2