HLOPRSR2 ;ALB/CJM - Visual Parser 12 JUN 1997 10:00 am ;08/17/2009
Source file <HLOPRSR2.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Health Level Seven | 2 | HLOPRSR1 HLOPRSR3 |
Name | Comments | DBIA/ICR reference |
---|---|---|
WRITELN(LINE,Y) | ;writes one line to the screen
|
|
RIGHT | ;
|
|
GORIGHT | ;
|
|
LEFT | ;
|
|
GOLEFT | ;
|
|
MSGSIZE() | ;
|
|
SCRNSIZE() | ;
|
|
TOP(INC) | ;msg line at the top of the scrolling area
|
|
LINE(TO,INC) | ;msg line
|
|
X(TO,INC) | ;current position within the line
|
|
Y(LINE) | ;screen line of msg line = LINE
|
|
SEG(INC) | ;returns the current segement #
|
|
FLD(SET) | ;returns the currrent field #
|
|
REP(SET) | ;returns the current repitition #
|
|
COMP(SET) | ;returns the current component #
|
|
SUB(SET) | ;returns the current sub-component #
|
|
SEGSTART(SEGMENT) | ;
|
|
IOXY(Y,X) | ; moves to screen position line=Y, col=X
|
|
HILITE(LINE1,CHAR1,LINE2,CHAR2) | ;does hightlighting
|
|
LITE | ||
UNLITE | ;
|
|
DOWN | ;
|
|
UP | ;
|
|
SCROLL(COUNT) | ; Scrolls up (COUNT positive) or down (COUNT negative)
|
|
GETCHAR(INC) | ;returns a message character, can go forward or backward but will not cross the segment boundary.
|
|
LJ(STRING,LENGTH) | ;
|
Name | Field # of Occurrence |
---|---|
$$BOT^HLOPRSR1 | SCROLL+8, SCROLL+10 |
$$COMP^HLOPRSR1 | COMP+1 |
$$FLD^HLOPRSR1 | FLD+1 |
$$LINE^HLOPRSR1 | LINE+1 |
$$MSGSIZE^HLOPRSR1 | MSGSIZE+1 |
$$REP^HLOPRSR1 | REP+1 |
$$SCRNSIZE^HLOPRSR1 | SCRNSIZE+1 |
$$SEG^HLOPRSR1 | SEG+1 |
$$SEGSTART^HLOPRSR1 | SEGSTART+1 |
$$SUB^HLOPRSR1 | SUB+1 |
$$TOP^HLOPRSR1 | TOP+1 |
$$X^HLOPRSR1 | X+2 |
$$Y^HLOPRSR1 | Y+1 |
IOXY^HLOPRSR1 | IOXY+1 |
WRITELN^HLOPRSR1 | WRITELN+1 |
DESCRIBE^HLOPRSR3 | GORIGHT+4, GOLEFT+4, DOWN+16, UP+16 |
$$LJ^XLFSTR | LJ+1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Name | Line Occurrences |
---|---|
$$COMP | RIGHT+12, RIGHT+25, RIGHT+27, RIGHT+29, LEFT+15, LEFT+23, LEFT+27, LEFT+35, LEFT+46, LEFT+47 , LEFT+48, LEFT+61, LEFT+63, LEFT+65 |
$$FLD | RIGHT+12, RIGHT+25, LEFT+15, LEFT+23, LEFT+27, LEFT+35, LEFT+46, LEFT+61, LEFT+63, LEFT+65 |
$$GETCHAR | RIGHT+22, RIGHT+33, LEFT+42, LEFT+58, LEFT+69, HILITE+22 |
$$LINE | RIGHT+7, RIGHT+8, RIGHT+9, RIGHT+10, RIGHT+11, RIGHT+20, RIGHT+34, RIGHT+35, RIGHT+38, RIGHT+41 , LEFT+6, LEFT+9, LEFT+11, LEFT+12, LEFT+13, LEFT+14, LEFT+19, LEFT+20, LEFT+21, LEFT+22 , LEFT+27, LEFT+29, LEFT+30, LEFT+32, LEFT+33, LEFT+34, LEFT+35, LEFT+39, LEFT+40, LEFT+41 , LEFT+44, LEFT+52, LEFT+53, LEFT+55, LEFT+70, LEFT+74, LEFT+77, LEFT+78, HILITE+17, DOWN+5 , DOWN+7, DOWN+13, DOWN+14, DOWN+15, DOWN+17, UP+5, UP+7, UP+13, UP+14, UP+15 , UP+17, SCROLL+10, GETCHAR+8, GETCHAR+13, GETCHAR+19, GETCHAR+20, GETCHAR+31, GETCHAR+35 |
$$MSGSIZE | DOWN+7, UP+7 |
$$REP | RIGHT+12, RIGHT+25, RIGHT+27, LEFT+15, LEFT+23, LEFT+35, LEFT+46, LEFT+47, LEFT+61, LEFT+63 , LEFT+65 |
$$SEG | RIGHT+6, LEFT+9, LEFT+27, DOWN+4, DOWN+5, DOWN+15, UP+4, UP+5, UP+15, GETCHAR+13 , GETCHAR+19 |
$$SEGSTART | RIGHT+6, LEFT+9, LEFT+27, DOWN+4, DOWN+5, DOWN+15, UP+4, UP+5, UP+15, GETCHAR+13 , GETCHAR+19 |
$$SUB | RIGHT+12, RIGHT+25, RIGHT+27, RIGHT+29, RIGHT+31, LEFT+15, LEFT+23, LEFT+27, LEFT+35, LEFT+46 , LEFT+47, LEFT+48, LEFT+49, LEFT+61, LEFT+63, LEFT+65, LEFT+67 |
$$TOP | SCROLL+7, SCROLL+17 |
$$X | RIGHT+12, RIGHT+20, RIGHT+34, RIGHT+35, RIGHT+41, LEFT+6, LEFT+9, LEFT+10, LEFT+15, LEFT+23 , LEFT+27, LEFT+35, LEFT+44, LEFT+52, LEFT+53, LEFT+55, LEFT+70, LEFT+77, LEFT+78, HILITE+17 , HILITE+24, DOWN+17, UP+17, GETCHAR+9, GETCHAR+11, GETCHAR+13, GETCHAR+16, GETCHAR+18, GETCHAR+20, GETCHAR+24 , GETCHAR+31, GETCHAR+35 |
$$Y | GORIGHT+2, GOLEFT+2, HILITE+17, HILITE+24, LITE+2, LITE+3, DOWN+9, DOWN+10, DOWN+12, UP+9 , UP+10, UP+12 |
DOWN | RIGHT+18 |
GOLEFT | LEFT+9, LEFT+26 |
GORIGHT | RIGHT+6 |
HILITE | GORIGHT+5, GOLEFT+5, DOWN+17, UP+17 |
IOXY | HILITE+17, HILITE+24, LITE+3, DOWN+10, UP+10, SCROLL+4, SCROLL+9, SCROLL+14, SCROLL+18 |
LITE | HILITE+11, UNLITE+7 |
SCROLL | GORIGHT+2, GOLEFT+2, DOWN+12, UP+12 |
UNLITE | HILITE+7 |
UP | LEFT+6, LEFT+73 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CHAR | RIGHT+1~, RIGHT+22*, RIGHT+24, RIGHT+26, RIGHT+28, RIGHT+30, RIGHT+33*, RIGHT+34, RIGHT+36, RIGHT+40 , LEFT+1~, LEFT+42*, LEFT+43, LEFT+46, LEFT+47, LEFT+48, LEFT+49, LEFT+51, LEFT+58*, LEFT+60 , LEFT+62, LEFT+64, LEFT+66, LEFT+69*, LEFT+70, LEFT+71, LEFT+76 |
CHAR1 | HILITE~, HILITE+8, HILITE+10, LITE+3, LITE+4, UNLITE+1~, UNLITE+4*, UNLITE+6, UNLITE+8 |
CHAR2 | HILITE~, HILITE+8, HILITE+10, LITE+4, UNLITE+1~, UNLITE+4* |
>> COMP | RIGHT+28, LEFT+48, LEFT+64 |
COUNT | SCROLL~, SCROLL+3, SCROLL+5, SCROLL+13, SCROLL+15 |
>> DELIM | RIGHT+34, LEFT+43, LEFT+70 |
END | GETCHAR+6~, GETCHAR+7*, GETCHAR+16*, GETCHAR+22*, GETCHAR+24*, GETCHAR+31*, GETCHAR+34 |
>> FLD | RIGHT+8, RIGHT+9, RIGHT+24, LEFT+9, LEFT+12, LEFT+19, LEFT+32, LEFT+35, LEFT+46, LEFT+60 |
HILITE | HILITE+7, HILITE+10*, UNLITE+3, UNLITE+4, UNLITE+5! |
I | DOWN+1~, DOWN+8*, UP+1~, UP+8*, SCROLL+2~, SCROLL+5*, SCROLL+15* |
INC | TOP~, TOP+1, LINE~, LINE+1, X~, X+2, SEG~, SEG+1, GETCHAR~, GETCHAR+10 , GETCHAR+17, GETCHAR+31 |
>> IOBM | GORIGHT+2, LITE+2, DOWN+9, DOWN+12, SCROLL+4, SCROLL+9 |
>> IOCUON | HILITE+25 |
>> IOIND | SCROLL+6 |
>> IOINHI | HILITE+21, UNLITE+6 |
>> IOINORM | HILITE+23, UNLITE+8 |
>> IORI | SCROLL+16 |
>> IORVOFF | HILITE+12, UNLITE+2 |
>> IORVON | HILITE+9 |
>> IOTM | GOLEFT+2, LITE+2, UP+9, UP+12 |
LASTPART | DOWN+2!, UP+2! |
LASTPART( | LEFT+61, LEFT+63, LEFT+65 |
LASTPART(1 | RIGHT+13*, LEFT+16*, LEFT+36* |
LASTPART(2 | RIGHT+14*, LEFT+17*, LEFT+37* |
LENGTH | LJ~, LJ+1 |
LINE | WRITELN~, WRITELN+1, RIGHT+1~, LEFT+1~, Y~, Y+1, LITE~, LITE+1*, LITE+2, LITE+3 , LITE+4 |
LINE1 | HILITE~, HILITE+8, HILITE+10, LITE+1, LITE+3, LITE+4, UNLITE+1~, UNLITE+4* |
LINE2 | HILITE~, HILITE+8, HILITE+10, LITE+1, LITE+4, UNLITE+1~, UNLITE+4*, UNLITE+6, UNLITE+8 |
>> MSG | RIGHT+8, RIGHT+9, LEFT+9, LEFT+12, LEFT+19, LEFT+29, LEFT+32, LEFT+35, LITE+4, DOWN+13 , UP+13, SCROLL+8, SCROLL+17, GETCHAR+20, GETCHAR+35 |
>> POS( | DOWN+8*, UP+8* |
>> POS("CHAR" | SCROLL+11*, SCROLL+19* |
>> POS("CURRENT | DELIMITER" , RIGHT+6, RIGHT+7*, RIGHT+17*, RIGHT+18, RIGHT+20, LEFT+5, LEFT+11*, LEFT+20*, LEFT+26 , LEFT+35*, LEFT+39*, LEFT+44*, LEFT+55, LEFT+70*, LEFT+74*, HILITE+13, HILITE+17, DOWN+14*, UP+14* |
>> POS("NEXT DEL | IMITER" , RIGHT+8*, RIGHT+17, RIGHT+34*, RIGHT+38*, LEFT+5*, LEFT+40*, DOWN+15*, UP+15* |
QUIT | RIGHT+1~, RIGHT+3*, RIGHT+33, RIGHT+34*, RIGHT+37*, LEFT+1~, LEFT+3*, LEFT+69, LEFT+70*, LEFT+72* |
>> REP | RIGHT+26, LEFT+47, LEFT+62 |
>> SEGLINE( | UNLITE+6, UNLITE+8 |
SEGMENT | SEGSTART~, SEGSTART+1 |
>> SEGTYPE | RIGHT+6, LEFT+9, LEFT+29*, LEFT+31, LEFT+41, DOWN+3*, DOWN+13*, UP+3*, UP+13* |
SET | FLD~, FLD+1, REP~, REP+1, COMP~, COMP+1, SUB~, SUB+1 |
STRING | LJ~, LJ+1 |
>> SUB | RIGHT+30, LEFT+49, LEFT+66 |
TMP | GETCHAR+6~ |
TMP("LINE" | GETCHAR+8*, GETCHAR+31 |
TMP("X" | GETCHAR+9*, GETCHAR+31 |
TO | LINE~, LINE+1, X~, X+2 |
VALUE | RIGHT+2!, RIGHT+3*, RIGHT+9*, RIGHT+11, RIGHT+35, RIGHT+40*, LEFT+2!, LEFT+3*, LEFT+12*, LEFT+14 , LEFT+19*, LEFT+28!*, LEFT+32*, LEFT+34, LEFT+41*, LEFT+45!*, LEFT+51*, LEFT+52, LEFT+73, LEFT+76* , LEFT+77 |
VALUE("END" | RIGHT+11*, RIGHT+35*, RIGHT+41*, GORIGHT+5, LEFT+14*, LEFT+22*, LEFT+34*, LEFT+41*, LEFT+53*, LEFT+77* , GOLEFT+5 |
VALUE("START" | RIGHT+10*, RIGHT+35*, GORIGHT+5, LEFT+13*, LEFT+21*, LEFT+33*, LEFT+41*, LEFT+52*, LEFT+78*, GOLEFT+5 |
X | IOXY~, IOXY+1, HILITE+6~, HILITE+13*, HILITE+17, HILITE+20 |
Y | WRITELN~, WRITELN+1, IOXY~, IOXY+1 |