Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: XPDCOMF

Package: Kernel

Routine: XPDCOMF


Information

XPDCOMF ;SFISC/GFT/MSC - COMPARE FILES ;08/14/2008

Source Information

Source file <XPDCOMF.m>

Entry Points

Name Comments DBIA/ICR reference
EN(DI1,DI2,DIDD,DIFLAG,DITCPT) ;
N
KILL
S
GET2D
NEXTD
D2
WP
WPD
ENTRY
BIX
BI
NMATCH
NEW
NEXTENT
N2
RIGHT(X)
XTRAM(DID,X,P)
MATCH()
ID
MISMATCH(I)
OLD
DN
UP ;
U
2 ;
X
XTRA1
XTRA2
XTRA
GL
END
Q
LEFT ;display left side; "X1" subscript, these are new records
TITLE()
FLDNUM()
DIT ;
EXT(X,C,MSCSIDE)
NS(MSCSIDE)
DIO ;X=1 MEANS LEFT SIDE, X=2 MEANS RIGHT SIDE
DIO1 ;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)

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
Info |  Source |  Entry Points |  Interaction Calls