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

Package: VA FileMan

Routine: DITCPL


Information

DITCPL ;MSC/GFT;COMPARE TWO LISTS, LEFT/RIGHT;24JAN2013

Source Information

Source file <DITCPL.m>

Entry Points

Name Comments DBIA/ICR reference
EN(LEFT,RIGHT,HEADER) ; Main Entry Point
D
GET(RL,LINE) ;RETURNS RIGHT OR LEFT LINE
STRIP(X) ;F Q:X'?.E1" " S X=$E(X,1,$L(X)-1) ;Take off trailing spaces
PARTIAL
E1 ;Go down to line I on rt side
Q
SBS(L1,L2) ;SIDE BY SIDE PRINT
W1 ;WRITE LEFT SIDE, line G
W2(DITCPLLF) ;WRITE RIGHT SIDE, line G
HEAD ;If we haven't written subheader, do so

Interaction Calls

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