Routine: XMJMSA

Information

XMJMSA ;ISC-SF/GMB-Send Anonymous User Suggestion Message ;04/17/2002 10:12

Source file <XMJMSA.m>

Package	Total	Call Graph
MailMan	5	XMDIR^XMJDIR SUBJ^XMJMS SET^XMXSEC2 (ADDRNSND,CRE8XMZ,MOVEBODY)^XMXSEND PAGE^XMXUTIL
VA Fileman	2	($$EZBLD,BLD,MSG)^DIALOG EN^DIWE

Package	Total	Caller Graph
MailMan	1	XMSUGGESTION

Name	Comments	DBIA/ICR reference
ET	; Edit text
WARNING(XMABORT)	; ; * * * * * ATTENTION * * * * * ; Anonymous messages may or may not be totally anonymous. ; Please check with your local IRM ; to find out if your facility has methods in place to identify you.
ES	;
SEND	;
T	; Transmit the message

Name	Line Occurrences
Function Call: WRITE	Prompt: $$EZBLD^DIALOG(34217,XMZ) Line Location: T+7
Function Call: WRITE	Prompt: !,$$EZBLD^DIALOG(34213) Line Location: T+10
Function Call: WRITE	Prompt: @IOF Line Location: WARNING+6
Function Call: WRITE	Prompt: !! Line Location: WARNING+9
Routine Call	DIALOG Line Location: WARNING+7
Routine Call	DIALOG Line Location: SEND+5 T+3 T+5 T+7 T+10
Routine Call	DIALOG Line Location: WARNING+8

Name	Line Occurrences (* Changed, ! Killed)
^TMP("XM"	SEND+11!, SEND+17!, ET+5

Name	Field # of Occurrence
DIC	ET+1~, ET+2*
>> DIWESUB	ET+3*
DUZ	T+1~, T+2*
>> DWLW	ET+2*
>> DWPK	ET+2*
IOF	WARNING+6
XMABORT	SEND+1~, SEND+8, SEND+10, SEND+12, SEND+14, SEND+15, ES+1, ET+5, WARNING~, WARNING+10
XMDIR	SEND+1~, SEND+15
XMDIR("??"	SEND+7*
XMDIR("A"	SEND+5*
XMDIR("B"	SEND+6*
XMDUZ	T+1~, T+2*, T+9
XMFINISH	SEND+1~, SEND+13, SEND+14, T+2
XMINSTR	T+1~, T+9
XMINSTR("FROM"	T+3*
XMINSTR("SHAR	E BSKT" , T+5, E DATE" , T+4
XMOPT	SEND+1~, SEND+2, SEND+3, SEND+4, SEND+15
XMOPT("T"	SEND+6
XMOX	SEND+1~, SEND+2, SEND+3, SEND+4, SEND+15
XMOX("O"	SEND+6
XMSUBJ	SEND+1~, ES+1, ET+3, T+6
XMTEXT	WARNING+5~
XMY	SEND+1~, SEND+15, SEND+16
XMZ	T+1~, T+6, T+7, T+8, T+9