Routine: XMAPBLOB

Package	Total	Call Graph
Uncategorized	4	ERASE^MAGAPI ($$IMPORT,IMPORT)^MAGBAPI ^MAGFILE ^MAGOBJ
VA Fileman	1	^DIR

Package

Total

Call Graph

Uncategorized

ERASE^MAGAPI ($$IMPORT,IMPORT)^MAGBAPI ^MAGFILE ^MAGOBJ

VA Fileman

^DIR

Package	Total	Caller Graph
MailMan	1	XMJMOI

Package

Total

Caller Graph

MailMan

XMJMOI

Name	Field # of Occurrence
^DIR	BLIST+3, ASK+3
ERASE^MAGAPI	CLRQ+1
$$IMPORT^MAGBAPI	B+2
IMPORT^MAGBAPI	B+2
^MAGFILE	B+3
^MAGOBJ	BQ+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"=============================================================" Line Location: BLIST+4
Function Call: WRITE	Prompt: !!,"There are non-textual parts (BLOBs) included on this message" Line Location: BLIST+5
Function Call: WRITE	Prompt: !!,"Object Name",?70,"Filename" Line Location: BLIST+6
Function Call: WRITE	Prompt: !,I_". "_$E($P(XMA0(I),U,2),1,68),?70,$E($P(XMA0(I),U,9),1,9) Line Location: BLIST+7
Function Call: WRITE	Prompt: !!,"Pick a BLOB you wish to display from the above list (1-"_XMB0_"): NONE// " Line Location: A+1
Function Call: WRITE	Prompt: !!,"Choose the index number of the BLOB you wish to display or accept the default.",! Line Location: A+3
Function Call: WRITE	Prompt: !!,"Please choose a listed item by typing in its index number." Line Location: A+4
Function Call: WRITE	Prompt: !!,"=================================================================" Line Location: NODISP+2
Function Call: WRITE	Prompt: !,"There are non-textual body parts (BLOBs) attached to this" Line Location: NODISP+3
Function Call: WRITE	Prompt: !,"message. You may not execute them (display...) because you" Line Location: NODISP+4
Function Call: WRITE	Prompt: !,"are not using the proper terminal." Line Location: NODISP+5
Function Call: WRITE	Prompt: !!,"Query the message to see the list of BLOBs attached." Line Location: NODISP+6
Function Call: WRITE	Prompt: !,"=================================================================" Line Location: NODISP+7
Routine Call	DIR Line Location: BLIST+3 ASK+3

Name	Line Occurrences (* Changed, ! Killed)
^XMB(3.9 - [#3.9]	BLOB, B, NODISP+1

Name	Line Occurrences
$$ASK	BQ+2
$$BLIST	BQ+3, PRTQ
A	A+3, A+4
B	B+5
BLOB	PRT+2
BQ	B, BQ+6
CLRQ	BQ+2, BQ+3
PRTQ	BQ+2

Name	Field # of Occurrence
^(	B

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	BLOB+1~, B, B+1, B+2
DIR	BLIST+2~, BLIST+3!, ASK+1~
DIR("A"	ASK+2*
DIR("B"	ASK+2*
DIR(0	BLIST+3, ASK+2
DIRUT	BLIST+2~, BLIST+3!, ASK+1~, ASK+3!
DTIME	A+1
DUOUT	BLIST+2~, ASK+1~
I	BLOB+1~, BLIST+7*
IOSL	BLIST+3
>> IOT	BQ+3, BLIST+1
MAGFILE	BLOB+1~, B+4, PRT+1~
MAGFILE1	PRT+1~
MAGFILE1(	B+4
MAGFILE2	BLOB+1~
MAGOBJ	PRT+1~
MAGROU	PRT+1~
>> MAGXX	B+1*, B+2
U	B+4, BLIST+7, ASK+2
X	BQ, BQ+2, BQ+3, BQ+4, BLIST+2~, A+1, A+2, A+3, A+4, A+5 , PRT+1~, PRTQ
XMA0	BLOB+1~, BLOB+2, B, BQ+2, BQ+3, BQ+5
XMA0(	B+1, B+4, BQ, BQ+5, BLIST+7, A+4, A+5
XMA0(0	BQ, BQ+5
XMA0(1	BQ+2, ASK+2
XMAPBLOB	BLOB+2, BQ+2, CLRQ, BLIST+1, BLIST+3, A, ASK, PRT+1~
XMAPBLOB("D"	BLIST+3, BLIST+4, BLIST+6, NODISP+1
XMAPBLOB("DISPDONE"	BQ, BQ+1*
XMB0	BLOB+1~, BLOB+2, B+1, B+4, BQ+2, BQ+5, A+1
>> XMZ	BLOB, B, NODISP+1
Y	BLIST+2~, ASK+3

Customize PDF page

Package: MailMan

Routine: XMAPBLOB

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
A
CLRQ
B
ASK()
BLIST()	;List BLOBS in the message
PRT	;Print BLOB list
PRTQ
BLOB
NODISP	;If not proper terminal
BQ