DITCPL ;MSC/GFT;COMPARE TWO LISTS, LEFT/RIGHT;24JAN2013
Source file <DITCPL.m>
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|