Routine: XPDCOML

Package	Total	Call Graph
Kernel	1	SUBHD^XPDCOMF

Package	Total	Caller Graph
Kernel	2	XPDCOM XPDCOMF

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;If we haven't written subheader, do so
PARTIAL
D
W2(DITCPLLF)	;WRITE RIGHT SIDE, line G
STRIP(X)
GET(RL,LINE)	;RETURNS RIGHT OR LEFT LINE
Q
SBS(L1,L2)	;SIDE BY SIDE PRINT
W1	;WRITE LEFT SIDE, line G
E1	;Go down to line I on rt side
EN(LEFT,RIGHT,HEADER)	;

Name	Field # of Occurrence
SUBHD^XPDCOMF	HEAD+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !?L+3,"^",?L+C+4,"^" Line Location: SBS+4
Function Call: WRITE	Prompt: $S(Z:$J(G,3),1:" "),"{",$E(X,1,C-5),$C(125) Line Location: W1+1
Function Call: WRITE	Prompt: ?C+1 Line Location: W2+1
Function Call: WRITE	Prompt: $S(Z:$J(G,3),1:" "),"{",$E(X,1,C-5),$C(125) Line Location: W2+1
Function Call: WRITE	Prompt: !,?IOM-$L(HEADER)\2,HEADER Line Location: HEAD+2

Name	Field # of Occurrence
C	EN+5~, EN+7*, SBS+3, SBS+4, W1+1, W2+1
DI	EN+3~
DI(	GET+1, GET+2
DI(1	EN+3*, EN+6
DI(2	EN+3*, EN+6
DITCPLLF	W2~, W2+1
E1	EN+5~, EN+6*, D, D+2, E1+2
E2	EN+5~, EN+6*, D, D+1, D+5
G	EN+5~, D+1, D+2, D+7, E1+3, SBS+3*, W1+1, W2+1
H	EN+4~, HEAD+1, HEAD+3*
HEADER	EN~, HEAD+2
I	EN+5~, D+1, D+2, D+5*, E1+2, E1+3
IFE	EN+5~, D+4, D+5, E1+4, SBS+3*
IFN	EN+5~, D+4, D+5, E1+2
IFP	EN+5~, D+4, PARTIAL
IOM	EN+7, HEAD+2
J	EN+5~, E1+2*
K	EN+5~, PARTIAL, SBS+3
L	EN+5~, SBS+2, SBS+3, SBS+4
L1	EN+5~, EN+7, D, D+2, D+3, D+4, D+6, D+7, E1+2, E1+4 , SBS~, SBS+2, SBS+3
L2	EN+5~, EN+7, D, D+1, D+3, D+5, D+6, D+7, E1+2, E1+3 , E1+4, SBS~, SBS+2, SBS+3
LEFT	EN~, EN+3
LINE	GET~, GET+1, GET+2
RIGHT	EN~, EN+3
RL	GET~, GET+1, GET+2
S	EN+5~, EN+7*, SBS+3
S1	SBS+1~, SBS+2, SBS+3
S2	SBS+1~, SBS+2, SBS+3
SHORT	EN+2~*, D+6, PARTIAL, E1+2
V1	EN+5~, D+4*, D+7, PARTIAL, E1+4
V2	EN+5~, D+5*, PARTIAL, E1+4
WINDOW	EN+1~*, D+5, E1+2
X	EN+5~, D+1, D+2, D+7, STRIP~, STRIP+1, E1+2, E1+3, SBS+3, SBS+4 , W1+1, W2+1*
>> XPDHEAD	HEAD+3*
Y	EN+5~, E1+2, SBS+3, SBS+4
Z	EN+5~, D+1, D+2, D+7, E1+3, SBS+2, SBS+3, W1+1, W2+1