Routine: XMA21

Information

XMA21 ;ISC-SF/GMB-Address lookup APIs ;07/17/2003 13:03

Source Information

Source file <XMA21.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
MailMan	3	TOWHOM^XMJMT INITAPI^XMVVITAE (CHKADDR,CLEANUP,INIT)^XMXADDR
VA Fileman	2	%XY^%RCR $$EZBLD^DIALOG

Caller Graph

Caller Graph Total: 29

Package	Total	Caller Graph
IHS Changes To Lab	7	BLRPRE27 BLRPRE30 BLRPRE31 BLRPST BLRTASKS BLRUTIL3 BLRUTIL8
MailMan	5	XMA21ACP XMA21C XMAH1CP XMAPHOCP XMDXNAME
Lab Service	3	LREPI2 LREPIAK LRRMM
Registration	3	DGPMVBM DGPTFTR VAFCMGB4
IHS Changes To Pharmacy	2	APSQCK APSQCK1
IHS Generic Interface System	2	INHOM INHU
Order Entry Results Reporting	2	ORY141ED ORY182
Emergency Room	1	AMERXMB
Integrated Billing	1	IBARXEC2
Kernel	1	XUTMTZ2
Medicine	1	MCARPCS4
SAGG Project	1	KMPSGE

Entry Points

Name	Comments	DBIA/ICR reference
DES	; Interactive addressing. Set next default recipient. ; XMY is not killed upon entry. ; Needs: ; XMMG Next default recipient ; See entry point TO for other needs and outputs associated with ; this entry point.	ICR #709 Status: Retired Usage: Private ICR #10067 Status: Active Usage: Supported
DEST	; Interactive addressing. Set first default recipient. ; XMY is killed upon entry. ; Needs: ; XMDUN First default recipient ; See entry point TO for other needs and outputs associated with ; this entry point.	ICR #10067 Status: Active Usage: Supported
CHK	; Check to see if a user is a member of a mail group. ; Sets $T if member. ; Needs: ; XMDUZ DUZ of the user ; Y IEN of the mail group	ICR #10067 Status: Active Usage: Supported
SW	;
INST	; Non-interactive addressing (Just fall thru to WHO)	ICR #10067 Status: Active Usage: Supported
DX	;
WHO	; Non-interactive addressing ; Needs: ; XMDUZ user's DUZ ; X local or remote address ; (-X will remove address) ; XMDF if $D(XMDF) then do not restrict addressees ; XMLOC if $D(XMLOC), forces output of XMMG error message if error ; Output: ; XMY address: XMY(address)="" ; Y if Y=-1, then lookup has failed ; = <DUZ^full name> if local addressee ; = <domain ien^domain name> if remote addressee ; XMMG contains error message if Y=-1 ; = "" if local addressee ; = via domain message if remote addressee	ICR #10067 Status: Active Usage: Supported
TO(XMTO)	; ; Entry points DES and DEST also Need: ; XMDUZ DUZ of user ; XMDF if $D(XMDF) then do not restrict addressees ; Output: ; XMY( Array of addressees: XMY(addressee)="" ; XMOUT if $D(XMOUT) user aborted addressing ; X if X="^" user aborted addressing, else X=""

External References

Name	Field # of Occurrence
%XY^%RCR	SW+2
$$EZBLD^DIALOG	DX+5, TO+15, WHO+42
TOWHOM^XMJMT	DX+5, TO+15
INITAPI^XMVVITAE	DX+2, TO+11, WHO+17
CHKADDR^XMXADDR	WHO+22
CLEANUP^XMXADDR	DX+6, TO+18, TO+25, WHO+28, WHO+35, WHO+43, WHO+55
INIT^XMXADDR	DX+4, TO+14, WHO+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " ",XMMG Line Location: WHO+27
Routine Call	DIALOG Line Location: DX+5 TO+15 WHO+42

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4.2 - [#4.2]	WHO+41
^TMP("XMERR"	WHO+21!, WHO+24, WHO+25!
^TMP("XMY"	WHO+33, WHO+38
^XMB(3.8 - [#3.8]	CHK+5, WHO+47

Label References

Name	Line Occurrences
SW	TO+21, WHO+44
TO	DES+6, DEST+7

Local Variables

Name	Field # of Occurrence
%X	SW+1~, SW+2*
%Y	SW+1~, SW+2*
DUZ	TO+10, WHO+16
U	TO+17, WHO+41, WHO+42, WHO+47, WHO+50, WHO+53
>> X	TO+17, TO+20, WHO+20, WHO+22, WHO+31, WHO+40, WHO+45, WHO+46, WHO+47, WHO+48 , WHO+49, WHO+50, WHO+52
XMABORT	DX+1~, DX+3, DX+5, TO+8~, TO+9, TO+15, TO+16
XMADDR	WHO+30~, WHO+32, WHO+33
>> XMDF	TO+12, WHO+18
XMDUN	DEST+7, TO+8~
XMDUZ	CHK+5, DX+5, TO+10~, TO+15, TO+22, WHO+16~, WHO+22
XMERR	WHO+21!, WHO+23, WHO+25!
XMIEN	WHO+37~, WHO+38*, WHO+39, WHO+41
XMINSTR	DX+1~, DX+5, TO+8~, TO+15, WHO+15~, WHO+22
XMINSTR("ADDR	FLAGS" , TO+12, WHO+18
XMINSTR("SELF	BSKT" , TO+22
XMINSTR("SHAR	E BSKT" , TO+23, E DATE" , TO+24
XMINSTR("TO P	ROMPT" , TO+13*
>> XMLOC	WHO+27
>> XMMG	DES+6, WHO+24, WHO+27, WHO+34, WHO+42, WHO+54
XMOUT	TO+17*, TO+19!
XMSTRIKE	WHO+15~, WHO+20*, WHO+29
XMTO	TO~, TO+13
XMV	DX+1~, TO+8~, WHO+15~
XMY	DEST+6!
XMY(	TO+22, TO+23, TO+24, WHO+33!, WHO+39, WHO+50
XMY(""	WHO+53
>> Y	CHK+5, WHO+22, WHO+26, WHO+31, WHO+36, WHO+38, WHO+39, WHO+40, WHO+41, WHO+42 , WHO+46, WHO+47, WHO+49, WHO+50, WHO+52, WHO+53*

Customize PDF page

Package: MailMan

Routine: XMA21

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 29

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed