Routine: DITMGMRG

Package	Total	Call Graph
VA Fileman	4	^DITMGM1 ^DITMGM2 INIT^DITMGMRI CHKIT^DITMU4

Package	Total	Caller Graph
Toolkit	1	XDRMRG
VA Fileman	1	DITM2

Name	Comments	DBIA/ICR reference
FILES	; CALLED RECURSIVELY
PTCHK	; MAKE SURE "PT" CORRECT
EN	; EXTERNAL ENTRY POINT
EOJ2	; List errors
FIELDS	;
RECURSE	;
START	;
EOJ	;
STACK	;STACK ALL FILES POINTING TO POINTED TO FILE AND IF .01 FIELD

Name	Line Occurrences
Function Call: WRITE	Prompt: "]" Line Location: PTCHK+6
Function Call: WRITE	Prompt: !!,"The following errors occurred during the merge: ",! Line Location: EOJ2+1
Function Call: WRITE	Prompt: !,DITMGMRG("ERROR",%) Line Location: EOJ2+2
Function Call: WRITE	Prompt: ! Line Location: EOJ2+3

Name	Line Occurrences (* Changed, ! Killed)
^%ZTSK - [#14.4]	EOJ+7!
^DD(	FILES+2, FIELDS+2, FIELDS+11, PTCHK+4
^UTILITY("DITMGMRG"	EN+6!, STACK+5!, FIELDS+9*

Name	Field # of Occurrence
%	EOJ+2!, EOJ2+2*, EOJ2+4!
AUPNDAYS	EOJ+5!
AUPNDOB	EOJ+5!
AUPNDOD	EOJ+5!
AUPNPAT	EOJ+5!
AUPNSEX	EOJ+5!
DIPGM	EOJ+2!
DITMGFLE	STACK+4~, STACK+6, FILES+2, FIELDS+2, FIELDS+9, RECURSE+2~, RECURSE+3, PTCHK+3
>> DITMGM2("NOTALK"	EN+4*, EN+5!
DITMGMF	EOJ+4!
DITMGMFG	EOJ+4!
DITMGMFL	EOJ+4!
DITMGMQF	EN+2, EOJ+3, EOJ+4!
DITMGMRG	START+2!, START+4!
DITMGMRG("ERROR"	EOJ+8!, EOJ2+2
DITMGMRG("EXCLUDE"	FILES+4
DITMGMRG("FILE"	STACK+6
DITMGMRG("GO"	START+2
DITMGMRG("NOTALK"	EN+4, EN+7, STACK+3, PTCHK+1, EOJ+8
DITMGMRG("PACKAGE"	FILES+6, FILES+7
DITMGMRG("QFLG"	EOJ+3*
DITMGMT	EOJ+4!
DITMGPFD	STACK+4~, FIELDS+2*, FIELDS+7, FIELDS+9, FIELDS+11, RECURSE+4~
DITMGPFL	STACK+4~, FILES+2*, FILES+4, FILES+7, FIELDS+2, FIELDS+7, FIELDS+9, FIELDS+11, RECURSE+3, RECURSE+4~
DITMSKP	STACK+4~, FILES+2, FILES+3, FILES+4, FILES+7*
>> DITMU4("NOTALK"	PTCHK+2*, PTCHK+5!
DITMU4FI	PTCHK+3*, PTCHK+4, PTCHK+5!
DITMU4L	PTCHK+5!
DITMU4PD	PTCHK+4*, PTCHK+5!
DITMU4PF	PTCHK+4*, PTCHK+5!
DITMU4X	PTCHK+5!
U	FIELDS+11
X	EOJ+1!
Y	EOJ+1!
>> ZTQUEUED	EOJ+6
>> ZTREQ	EOJ+6*
ZTSK	EOJ+7!

Information