Routine: DITCP

Information

DITCP ;MSC/GFT - Namespace/UCI comparer run code ;26JAN2016

Source file <DITCP.m>

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

Name	Line Occurrences
Function Call: WRITE	Prompt: !?IOM-$L(X)\2,X,"..." Line Location: WPD+0
Function Call: WRITE	Prompt: ?IOM\2 Line Location: O+3
Function Call: WRITE	Prompt: $J("",DIL),$E(DIO,1,IOM\2-DIL-1) Line Location: O+4
Function Call: WRITE	Prompt: DIO Line Location: O+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