Routine: XMP3

Package	Total	Call Graph
MailMan	7	SUBJ^XMJMS TOWHOM^XMJMT SEND^XMKP CHECK^XMKPL (CLEANUP,INIT)^XMXADDR (CRE8XMZ,MOVEPART)^XMXSEND ($$NAME,KILLMSG)^XMXUTIL
Kernel	1	($$DOW,$$FMTE,$$NOW)^XLFDT
VA FileMan	1	^DIR

Package	Total	Caller Graph
MailMan	1	XMP2

Entry Points

Name	Comments	DBIA/ICR reference
ENTER	; This routine backs up what's on disk into a packman message.
QBACKUP(Y,XMABORT)	;
BACKUP(XMDUZ,XMZ,XMSELECT,XMABORT)	;
BTEXT(XMZ,XMSELECT,XMPXMZ)	;
ROU	;save routine
BROU	;
GLO	;New global section
GLB	;global...save the part to be updated
DDD	;data dictionary...
DAT	;fileman data...what to do
OPT	;Options
HEL	;Help Frames
BUL	;Bulletins
KEY	;Security Keys
FUN	;Functions
PKG	;Package File
RTN	;Routine Documentation
DIE	;Input Templates
DIP	;Print Templates
DIB	;Sort Templates
NO	;no way
BINIT(XMDUZ,XMPXMZ,XMINSTR,XMABORT)	; setup for first routine

External References

Name	Field # of Occurrence
^DIR	QBACKUP+13
$$DOW^XLFDT	BINIT+9
$$FMTE^XLFDT	BINIT+9
$$NOW^XLFDT	BINIT+8
SUBJ^XMJMS	BINIT+2
TOWHOM^XMJMT	BINIT+5
SEND^XMKP	BACKUP+6
CHECK^XMKPL	BACKUP+7
CLEANUP^XMXADDR	BACKUP+8
INIT^XMXADDR	BINIT+4
CRE8XMZ^XMXSEND	BINIT+3
MOVEPART^XMXSEND	BACKUP+5
$$NAME^XMXUTIL	BINIT+10
KILLMSG^XMXUTIL	BINIT+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No backup message built.",! Line Location: ENTER+6
Function Call: WRITE	Prompt: !!,"Routines are the only parts that are backed up. NO other parts" Line Location: QBACKUP+2
Function Call: WRITE	Prompt: !,"are backed up, not even globals. You may use the 'Summarize Message'" Line Location: QBACKUP+3
Function Call: WRITE	Prompt: !,"option of PackMan to see what parts the message contains." Line Location: QBACKUP+4
Function Call: WRITE	Prompt: !,"Those parts that are not routines should be backed up separately" Line Location: QBACKUP+5
Function Call: WRITE	Prompt: !,"if they need to be preserved.",!! Line Location: QBACKUP+6
Function Call: WRITE	Prompt: !,"PackMan backup message [",XMPXMZ,"] sent." Line Location: BACKUP+9
Function Call: WRITE	Prompt: !,"Routine ",X," is not on the disk." Line Location: ROU+3
Function Call: WRITE	Prompt: !,"GLOBAL..................NO BACKUP" Line Location: GLB+1
Function Call: WRITE	Prompt: !,"DATA DICTIONARY.........NO BACKUP" Line Location: DDD+1
Function Call: WRITE	Prompt: !,"FILEMAN DATA............NO BACKUP" Line Location: DAT+1
Function Call: WRITE	Prompt: !,"OPTIONS.................NO BACKUP" Line Location: OPT+1
Function Call: WRITE	Prompt: !,"HELP FRAMES.............NO BACKUP" Line Location: HEL+1
Function Call: WRITE	Prompt: !,"BULLETINS...............NO BACKUP" Line Location: BUL+1
Function Call: WRITE	Prompt: !,"SECURITY KEYS...........NO BACKUP" Line Location: KEY+1
Function Call: WRITE	Prompt: !,"FUNCTIONS...............NO BACKUP" Line Location: FUN+1
Function Call: WRITE	Prompt: !,"PACKAGE FILE............NO BACKUP" Line Location: PKG+1
Function Call: WRITE	Prompt: !,"ROUTINE DOCUMENTATION...NO BACKUP" Line Location: RTN+1
Function Call: WRITE	Prompt: !,"INPUT TEMPLATES.........NO BACKUP" Line Location: DIE+1
Function Call: WRITE	Prompt: !,"PRINT TEMPLATES.........NO BACKUP" Line Location: DIP+1
Function Call: WRITE	Prompt: !,"SORT TEMPLATES..........NO BACKUP" Line Location: DIB+1
Function Call: WRITE	Prompt: !,"UNDEFINED FUNCTION" Line Location: NO+1
Function Call: WRITE	Prompt: !,"Building PackMan backup message with subject ",XMSUBJ,!! Line Location: BINIT+7
Routine Call	DIR Line Location: QBACKUP+13

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("LOAD"	BROU+5
^%ZOSF("TEST"	ROU+3
^VA(200 - [#200]	BINIT+10
^XMB("NETNAME"	BINIT+11
^XMB(3.9 - [#3.9]	BTEXT+3, BROU+4, BROU+6, BROU+7, BINIT+12, BINIT+13*

Label References

Name	Line Occurrences
@(	BTEXT+7
BACKUP	ENTER+7
BINIT	BACKUP+3
BROU	ROU+4, ROU+7
BTEXT	BACKUP+4
QBACKUP	ENTER+5

Naked Globals

Name	Field # of Occurrence
^(	BTEXT+3
^("NETNAME"	BINIT+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIF	BROU+1~, BROU+2*
DIR	QBACKUP+1~
DIR("?"	QBACKUP+10, QBACKUP+11, QBACKUP+12*
DIR("A"	QBACKUP+8*
DIR("B"	QBACKUP+9*
DIR(0	QBACKUP+7*
DIRUT	QBACKUP+1~, QBACKUP+13
DT	BROU+7
DUZ	BINIT+10
U	ENTER+5, ENTER+7, BTEXT+5, ROU+2, BROU+7, BINIT+11
X	ENTER+1, ENTER+5, ENTER+7, QBACKUP+1~, ROU+1~, ROU+2, ROU+3, ROU+6, BROU+4, BROU+6
XCNP	BTEXT+1~, BTEXT+2, BROU+3, BROU+4, BROU+6, BROU+7
XMABORT	ENTER+3~, ENTER+4, ENTER+5, ENTER+7, QBACKUP~, QBACKUP+13, BACKUP~, BACKUP+3, BINIT~, BINIT+2 , BINIT+3*, BINIT+5, BINIT+6
XMANSER	ENTER+3~, ENTER+5, ENTER+6
XMCN	BTEXT+1~, BTEXT+2, BTEXT+3
XMDT	BINIT+1~, BINIT+8*, BINIT+9
XMDUZ	ENTER+7, BACKUP~, BACKUP+3, BACKUP+5, BACKUP+6, BINIT~, BINIT+5
XMINSTR	BACKUP+2~, BACKUP+3, BACKUP+5, BACKUP+6, BINIT~, BINIT+5
>> XMP2	ENTER+7
>> XMPKIDS	ENTER+2
XMPXMZ	BACKUP+2~, BACKUP+3, BACKUP+4, BACKUP+5, BACKUP+6, BACKUP+9, BTEXT~, BROU+4, BROU+6, BROU+7 , BINIT~, BINIT+3, BINIT+6, BINIT+12, BINIT+13
XMREC	BTEXT+1~, BTEXT+3, BTEXT+4, BTEXT+5, BTEXT+6, ROU+2, BINIT+1~, BINIT+9, BINIT+10, BINIT+11 , BINIT+13
XMROU	ROU+1~, ROU+5, ROU+6, ROU+7
XMSELECT	BACKUP~, BACKUP+4, BTEXT~
XMSELECT(	ROU+6
XMSELECT(""	ROU+4
XMSUBJ	BINIT+1~, BINIT+2, BINIT+3, BINIT+7
XMTYPE	BTEXT+1~, BTEXT+6*, BTEXT+7
XMZ	ENTER+7, BACKUP~, BACKUP+4, BTEXT~, BTEXT+3
Y	QBACKUP~

Customize PDF page

Package: MailMan

Routine: XMP3

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: