Routine: XPDCOMF

Package	Total	Call Graph
VA Fileman	7	GET^DIBTED GET^DIETED $$CREF^DILF $$UP^DILIBF GET^DIPTED S^DIQ ^DIR
Kernel	1	EN^XPDCOML

Package	Total	Caller Graph
Kernel	2	XPDCOMG XPDCOML

Entry Points

External References

Name	Field # of Occurrence
GET^DIBTED	SORT, SORT+4
GET^DIETED	INPUT, INPUT+1
$$CREF^DILF	E+1
$$UP^DILIBF	MISMATCH+6
GET^DIPTED	PRINT, PRINT+1
S^DIQ	EXT
^DIR	LF+3
EN^XPDCOML	DITCPL

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?IOM-$L(X)\2,X,"..." Line Location: WPD+0
Function Call: WRITE	Prompt: ?IOM\2 Line Location: DIO1+3
Function Call: WRITE	Prompt: !,$J("",DIL),$E(DIO,1,IOM\2-DIL-1) Line Location: DIO1+4
Function Call: WRITE	Prompt: DIO Line Location: DIO1+4
Function Call: WRITE	Prompt: ?IOM\2 Condition for execution: D=2 Line Location: WB+1
Function Call: WRITE	Prompt: $J("",DIL),$E(@X,1,IOM\2-DIL-1) Line Location: WB+1
Function Call: WRITE	Prompt: ! Line Location: LF+0
Function Call: WRITE	Prompt: ! Line Location: LF+3
Function Call: WRITE	Prompt: @IOF Line Location: LF+4
Routine Call	DIR Line Location: LF+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	KILL, S+5, NEXTD+1, D2, D2+1, ENTRY+12, BIX+1, BIX+3, XTRAM+3, ID , MISMATCH, MISMATCH+1, XTRA+1, XTRA+2, GL, TITLE, TITLE+6, FLDNUM, EXT, EXT+1
^DIBT(	SORT+3!*, SORT+4!
^DIC - [#1]	N+5, XTRAM+3, E+1
^DIST(	BLOCK
^UTILITY("DITCP"	KILL, KILL+7, S!, ENTRY+6, ENTRY+11, NEW, N2+2, MATCH+1, OLD*, LEFT+2! , LEFT+4, LEFT+5!

Label References

Name	Line Occurrences
$$EXT	S+5, ENTRY+10, BIX+1, DIO+2, DIO12+5
$$FLDNUM	TITLE, DIO+2, DIO12+5
$$MATCH	BIX, BIX+1, BIX+3, BI+1
$$MISMATCH	MATCH+2, MATCH+3, MATCH+4, ID+1
$$NS	ENTRY+10, EXT+1, E+2
$$TITLE	NEXTD+4, GL+3
BI	BI+2
BLOCK	NEXTD+3, ENTRY+9
D2	NEXTD
DIO	XTRAM+5, XTRA+2, GL+4
DIO1	DIO1+5
DIO12	NEXTD+4, NEXTD+5
DIT	XTRAM+5, TITLE+6
DITCPL	KILL+11, KILL+12, INPUT+2, SORT+5, SORT+6, PRINT+2
DN	D2+1, OLD+1
E	BLOCK
EN	E+4
END	KILL+7, NEXTD, NEXTD+6, N2+3, UP+1
ENTRY	S, D2, N2, END+1
GET2D	NEXTD, D2+2, WP+2, WPD+1
GL	XTRA, GL, GL+1, GL+3, GL+4
ID	ID+2
INPUT	S+8
LEFT	UP+3, END
LF	DIO1+1, DIO1+3, WB+1, SUBHD+3, SUBHD+4
N2	UP+2
NEW	ENTRY+13, BIX, BIX+1, BIX+3, BI
NEXTD	NEXTD+6, UP+4
NEXTENT	ENTRY, ENTRY+2, ENTRY+8, ENTRY+9
OLD	ENTRY+13, BIX, BIX+1, BIX+3, BI+1
PRINT	S+8
Q	GL+1, SUBHD+3
RIGHT	KILL+4, N2+2
S	D2+1, OLD+1
SORT	S+8
SUBHD	WPD, DIO+2, WB
U	UP+2, UP+4
UP	NEXTD, ENTRY+12, N2+3, INPUT+2, SORT+7, PRINT+2
WB	KILL+2, KILL+3, KILL+6
WP	D2+1
WPD	WP+1
X	NEXTD+6
XTRA	XTRA1+1, XTRA2
XTRA1	X
XTRA2	X, X+1
XTRAM	RIGHT+1, LEFT+2, LEFT+5

Naked Globals

Name	Field # of Occurrence
^(	KILL!, WP+1, BIX+1, BIX+3, MISMATCH+4, MISMATCH+5, XTRA+1, GL, LEFT+2, LEFT+5 , EXT+1
^(0	D2+1, WP, WP+1, ENTRY, ENTRY+13, BI+1, RIGHT, RIGHT+1, MISMATCH+2, XTRA+2 , GL, EXT+1
^(5	TITLE+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	KILL+9, KILL+10, MISMATCH+2*, MISMATCH+4, MISMATCH+5
%X	NEXTD+2, WP+1, DN+1~*
>> %Y	NEXTD+2, WP, WP+1*, WP+2
>> A	KILL+10, MISMATCH, MISMATCH+2*, MISMATCH+3
B	MISMATCH!, MISMATCH+1*, MISMATCH+2, MISMATCH+3
C	EXT~, EXT+1
D	S+3~, S+4, S+5, DIO12+1~, DIO12+3, DIO12+4, DIO12+5, WB+1, BLOCK~*
D1	N+1~, KILL+2, KILL+6, NEXTD+2, NEXTD+3, NEXTD+4, NEXTD+5*, DIO12+2, DIO12+6, WB+1
D2	N+1~, KILL+2, KILL+3, KILL+6, NEXTD+2, NEXTD+3, NEXTD+4, NEXTD+5, DIO12+2, DIO12+6 , WB+1
DHD	SORT+1~, PRINT+1~
DI1	EN~, N, N+7, KILL+1, KILL+7, KILL+12, S, S+5, GET2D, NEXTD , WP+1, ENTRY, ENTRY+2, ENTRY+4, ENTRY+13, NEXTENT, MISMATCH+2, UP+2, U, XTRA1+1 , END+2
DI2	EN~, N, N+6, N+7, KILL+2, KILL+4, KILL+5, KILL+12, S+3, S+6 , GET2D, NEXTD, WP+1, WP+2, ENTRY+13, BIX, BIX+1, BIX+3, BI, BI+1 , N2+1, N2+2, MISMATCH+2, UP+3, U, XTRA2, END+2
DIBT0	SORT+1~, SORT+3*, SORT+4
DIBTA	SORT+1~, SORT+2*, SORT+4
DID	N+1~, XTRAM~, XTRAM+2, XTRA+2, GL+1, GL+2, DIO+2
DIDD	EN~, N+5, KILL, KILL+7, KILL+8, S+3, S+8, NEXTD+1, NEXTD+3, NEXTD+5 , D2, D2+1, ENTRY+6, ENTRY+8, ENTRY+9, ENTRY+12, ENTRY+13, BIX+1, BIX+3, NEW , RIGHT, RIGHT+1, XTRAM, XTRAM+2, XTRAM+3, MATCH+2, MATCH+3, MATCH+4, MATCH+5, ID , MISMATCH, MISMATCH+1, DN, UP+3, XTRA+1, GL, END+1~, END+2*, LEFT+2, LEFT+4 , LEFT+5, TITLE, TITLE+2, TITLE+3, TITLE+4, TITLE+5, TITLE+6, FLDNUM, EXT, BLOCK
DIDD(	S+3, DN, UP+3, BLOCK
DIDDN	N+1~, XTRAM+3, XTRAM+4, XTRA+2, GL+3, DIO+2, DIO1+1
DIFL	E~, E+3
DIFLAG	EN~, N+3, KILL+11, KILL+12, S+2, NEXTD+4, N2+1, XTRA2, END+1
DIGL	N+1~, KILL+4, KILL+7, NEXTD, NEXTD+1, NEXTD+5, ENTRY, XTRA1, XTRA2, XTRA+1 , GL, TITLE+3, TITLE+4, FLDNUM
DIL	N+1~, N+3, N+4, KILL, KILL+3, KILL+6, KILL+8, S, S+2, S+3 , S+7, D2, ENTRY+11, N2+2, XTRAM+1, MATCH+1, OLD, DN, DN+1, DN+2 , UP+1, UP+2, UP+3, U, DIO1+4, WB+1, SUBHD+3, SUBHD+4, BLOCK~, E+4
DIN	N+1~, KILL+4, KILL+7, NEXTD, NEXTD+1, NEXTD+2, NEXTD+3, ENTRY, XTRA, XTRA+1* , GL*, GL+1, GL+2, FLDNUM
DIN1	N+1~, S, S+1, GET2D, NEXTD, D2, WP+1, ENTRY, ENTRY+4, ENTRY+6 , ENTRY+13, BIX, NEW, NEXTENT, N2, MATCH, MISMATCH+3, UP+2, X, X+1 , XTRA1, XTRA1+1, END+2, LEFT+1~, LEFT+2, LEFT+5*
DIN2	N+1~, KILL+4, S+1, GET2D, NEXTD, WP+1, WP+2, ENTRY+13, BIX, BIX+1 , BIX+3, BI, BI+1, N2+1, N2+2, MATCH, MATCH+1, MISMATCH+3, OLD, UP+3 , X, X+1, XTRA2, END+2
DIO	N+1~, GL, DIO+2, DIO1+3, DIO1+4*
DIOX	N+1~, KILL, XTRA+2, DIO+2, DIO1+3, DIO1+4, DIO1+5*
DIOX(1	DIO1+1*, DIO1+3!
DIR	N+1~, XTRA*, LF+2~
DIR(0	LF+3*
DIRUT	N+2!, KILL, NEXTD, NEXTD+1, NEXTD+5, NEXTD+6, N2+1, N2+3, UP+3, GL+4 , END, LEFT+2, LEFT+5, DIO+2, DIO1+2, DIO1+3, WB+1, SUBHD+3, SUBHD+4, LF , LF+4
DISH	PRINT+1~
DIT	N+1~, XTRA+2, DIT+1
DITCPIF	ENTRY+8, RIGHT, END+1~, END+2*
DITCPL	KILL+9~, KILL+12!, INPUT+1~, SORT+1~, SORT+2, SORT+3, SORT+6!, PRINT+1~
DITCPL(	KILL+10*, INPUT+1, SORT+2, PRINT+1
DITCPL(1	KILL+11, KILL+12*
DITCPL(2	KILL+12*
DITCPT	EN~, N+4, UP+2, SUBHD+2, SUBHD+5!, BLOCK*, E+4
DITCPT(	S+7*, XTRAM+1!, SUBHD+4
DITCPT(""	SUBHD+1
DITCPT(1	N+4, N+5, N+6
DITM	N+1~, MATCH+6, ID, ID+1
DIV	N+1~, KILL, S+6, ENTRY+12, BIX, XTRAM+3, MATCH, XTRA*, GL+1, GL+2
DIV1	N+1~, NEXTD*, NEXTD+2, NEXTD+3, NEXTD+5, TITLE+5
DIV2	N+1~, NEXTD*, NEXTD+2, NEXTD+3, NEXTD+5
H	DITCPL~
I	N+1~, N+7, N+8, WP+1, XTRAM+1, ID+1, MISMATCH~, MISMATCH+1, XTRA+1, XTRA+2 , DIT+1
IOF	LF+4
IOM	KILL*, WPD, DIO1+3, DIO1+4, WB+1, SUBHD+4
IOSL	LF
IOST	LF+1
L	SUBHD+1~, SUBHD+2, SUBHD+3, SUBHD+4*, SUBHD+5
MSC	E~
MSC(	E+2*
MSC(1	E+4
MSC(2	E+4
>> MSCF	E+1*, E+2
>> MSCP	BIX+1*
MSCS	SORT+1~, SORT+6
MSCS(	SORT+3*
MSCSIDE	EXT~, EXT+1, NS~
N	NS~, E~, E+2, E+3
NAME	E~, E+3
O	S+3~, S+4, S+5, S+6, S+7
P	KILL+9~, KILL+10, KILL+12*, XTRAM~, XTRAM+4
P(	KILL+9*
S	E~, E+2, E+3
T	DIO12~, DIO12+2, DIO12+5
U	N+5, KILL*, KILL+7, KILL+10, S+3, S+5, NEXTD+3, NEXTD+5, D2+1, WP , ENTRY, BIX, BIX+1, BIX+3, RIGHT+1, XTRAM+2, MISMATCH, MISMATCH+2, MISMATCH+4, XTRA+2 , GL, GL+1, TITLE+6, DIT+1, EXT, EXT+1, NS+1, BLOCK, E+3
V	ENTRY+10~, DIO12+1~, DIO12+4, DIO12+5
W	N+1~, MISMATCH+1, MISMATCH+2, MISMATCH+3, MISMATCH+4, MISMATCH+5, MISMATCH+6, DN+1
W(	DN+1*
W(1	U
W(2	UP+1, U
X	N+6, N+8, KILL, KILL+9, KILL+10, WP, WPD, ENTRY, ENTRY+6, ENTRY+8 , ENTRY+9, ENTRY+10, ENTRY+11, ENTRY+13, BIX, BIX+1, BIX+3, BI, BI+1, NEW , RIGHT~, XTRAM~, XTRAM+2, XTRAM+3, DN+1~, XTRA1, XTRA2, XTRA, EXT~, EXT+2 , DIO+2, DIO1+1, DIO1+3, DIO1+4, WB+1, LF+2~, BLOCK~, E~, E+2*
XPDI	E~, E+1, E+3, E+4
Y	KILL+9, KILL+10, D2, D2+1, ENTRY+2, ENTRY+4, ENTRY+6, XTRAM+3, U, GL* , TITLE, TITLE+2, TITLE+3, TITLE+4, TITLE+5, TITLE+6, DIT+1, EXT~, EXT+1, SUBHD+1~* , SUBHD+3*, LF+2~
Y1	EXT~, EXT+1

Marked Items

Customize PDF page

Package: Kernel

Routine: XPDCOMF

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
NEXTD
DN
DIO	;X=1 MEANS LEFT SIDE, X=2 MEANS RIGHT SIDE
MATCH()
XTRAM(DID,X,P)
XTRA
BI
E(XPDI,NAME,DIFL)
PRINT
TITLE()
KILL
NEXTENT
X
WP
DIT	;
NEW
INPUT
NS(MSCSIDE)
DITCPL(H)
WB
LF
EXT(X,C,MSCSIDE)
GL
OLD
2	;
DIO1	;DIO IS OUTPUT
BIX
WPD
XTRA1
DIO12(T)	;WRITE D1 AND D2 SIDE BY SIDE
LEFT	;display left side; "X1" subscript, these are new records
SORT
END
MISMATCH(I)
XTRA2
N
Q
S
RIGHT(X)
U
ENTRY
N2
GET2D
ID
SUBHD	;
EN(DI1,DI2,DIDD,DIFLAG,DITCPT)	;
UP	;
BLOCK(X)
FLDNUM()
D2