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: DITCP

Package: VA FileMan

Routine: DITCP


Information

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

Source Information

Source file <DITCP.m>

Entry Points

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 ;

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