©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
VALM40 ;ALB/MJK - Screen Malipulation Utilities (cont.) ;11:25 PM 11 Dec 1992 [ 07/24/98 9:29 AM ]
Source file <VALM40.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 4 | REFRESH^VALM ($$UPPER,PAUSE)^VALM1 (CNTRL,SELECT,WRITE)^VALM10 ($$PAGE,FINISH,IOIL,IOXY,LST,PAINT,PGUPD,PLUS,RESET,SCROLL,START,WRITE)^VALM4 |
| VA Fileman | 1 | ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| UPD(LINE,TEXT) | ; -- set/unset video attribute on text
; input: LINE := number of line ; TEXT := chars to set attribute on |
|
| GOTO | ; -- go to page #
|
|
| RIGHTQ | ||
| DOWNQ | ||
| BEG() | ; -- ask if ok to start from top
|
|
| UP | ; -- display last screen (UP)
|
|
| SEARCH(START,FINISH) | ; -- search to end or first hit
; input: START := line to start search on ; FINISH := line to end search on |
|
| DOWN | ; -- display next line (DN)
|
|
| UPDQ | ||
| RIGHT(VALMNOD) | ; -- move view to right
|
|
| GOTOQ | ||
| LEFTQ | ||
| SEARCHQ | ||
| UPQ | ||
| FIND | ; -- find text in list
|
|
| LEFT(VALMNOD) | ; -- move veiw to left
|
|
| FINDQ |
| Name | Field # of Occurrence |
|---|---|
| ^DIR | FIND+4, FIND+13, BEG+3, GOTO+11 |
| REFRESH^VALM | SEARCH+13, RIGHT+11, LEFT+11 |
| $$UPPER^VALM1 | SEARCH+7, UPD+8 |
| PAUSE^VALM1 | FIND+7, FIND+8 |
| CNTRL^VALM10 | UPD+10 |
| SELECT^VALM10 | FIND+6, UPD+5 |
| WRITE^VALM10 | UPD+16 |
| $$PAGE^VALM4 | GOTO+2 |
| FINISH^VALM4 | FINDQ, UPQ, DOWNQ, RIGHTQ, LEFTQ, GOTOQ+1 |
| IOIL^VALM4 | UP+4 |
| IOXY^VALM4 | DOWN+4 |
| LST^VALM4 | SEARCH+10, UP+3, GOTO+15 |
| PAINT^VALM4 | SEARCH+10, GOTO+15 |
| PGUPD^VALM4 | SEARCH+12, UP+5, DOWN+5, GOTO+15 |
| PLUS^VALM4 | UP+4, DOWN+4 |
| RESET^VALM4 | SEARCH+6, UP+4, DOWN+4 |
| SCROLL^VALM4 | UP+4, DOWN+4 |
| START^VALM4 | UP+1, DOWN+1, RIGHT+1, LEFT+1 |
| WRITE^VALM4 | UP+4, DOWN+4 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences |
|---|---|
| $$BEG | FIND+9 |
| DOWNQ | DOWN+2 |
| FINDQ | FIND+4 |
| GOTOQ | GOTO+3, GOTO+5 |
| LEFT | UPD+13 |
| LEFTQ | LEFT+4 |
| RIGHT | UPD+15 |
| RIGHTQ | RIGHT+4 |
| SEARCH | FIND+6 |
| SEARCHQ | SEARCH+8 |
| UPD | SEARCH+11 |
| UPDQ | UPD+6 |
| UPQ | UP+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BEG | FIND+1~, FIND+5*, FIND+7, FIND+8, FIND+9*, FIND+10 |
| CNT | SEARCH+4~, SEARCH+5*, SEARCH+7* |
| DIR | FIND+4!, FIND+13!, BEG+3!, GOTO+1~, GOTO+11! |
| DIR("?" | FIND+3* |
| DIR("A" | FIND+2*, FIND+13*, BEG+2*, GOTO+10* |
| DIR("B" | FIND+2*, FIND+13*, BEG+2* |
| DIR(0 | FIND+2*, FIND+13*, BEG+2*, GOTO+10* |
| >> DY | UP+4*, DOWN+4* |
| FINISH | FIND+5*, FIND+6, FIND+9*, SEARCH~, SEARCH+7 |
| FIRST | UPD+4~, UPD+7*, UPD+9*, UPD+11, UPD+12, UPD+13, UPD+14, UPD+15 |
| >> I | SEARCH+7* |
| >> IOINHI | UPD+10 |
| >> IORVOFF | UPD+10 |
| >> IORVON | UPD+10 |
| L | SEARCH+4~ |
| LEN | UPD+4~, UPD+7*, UPD+9, UPD+10 |
| LINE | UPD~, UPD+5, UPD+7, UPD+10, UPD+16, GOTO+1~, GOTO+13*, GOTO+14, GOTO+15 |
| LM | LEFT+2~, LEFT+3*, LEFT+4, LEFT+6, LEFT+9 |
| MOVE | RIGHT+2~, RIGHT+3*, RIGHT+5, RIGHT+8*, RIGHT+9, RIGHT+10, LEFT+2~, LEFT+3*, LEFT+5, LEFT+8* , LEFT+9*, LEFT+10 |
| PAGE | GOTO+1~, GOTO+2*, GOTO+3, GOTO+6, GOTO+8*, GOTO+10, GOTO+11*, GOTO+12, GOTO+13 |
| POS | UPD+4~, UPD+7*, UPD+8*, UPD+9, UPD+10 |
| RM | RIGHT+2~, RIGHT+3*, RIGHT+4, RIGHT+6, RIGHT+9 |
| START | FIND+1~, FIND+5*, FIND+6, FIND+9*, FIND+14*, SEARCH~, SEARCH+7 |
| TEXT | UPD~, UPD+7, UPD+8 |
| U | RIGHT+3, LEFT+3, GOTO+4 |
| >> VALM("BM" | DOWN+4 |
| >> VALM("FIXED" | UPD+12, UPD+14, RIGHT+3, RIGHT+8, LEFT+3, LEFT+8, LEFT+9 |
| >> VALM("LINES" | GOTO+2, GOTO+13 |
| >> VALM("RM" | RIGHT+3 |
| >> VALM("TM" | UP+4, RIGHT+11, LEFT+11 |
| >> VALMAR | SEARCH+7, UPD+7 |
| >> VALMBCK | SEARCH+6*, RIGHT+11*, LEFT+11* |
| >> VALMBG | FIND+5, SEARCH+10*, SEARCH+13*, UP+2, UP+3*, UP+4, DOWN+3*, GOTO+14, GOTO+15* |
| >> VALMCC | SEARCH+6, SEARCH+9, SEARCH+13, UPD+6, UP+4, DOWN+4, RIGHT+11, LEFT+11, GOTO+15 |
| >> VALMCNT | FIND+5, FIND+8, FIND+9, FIND+10, DOWN+2, GOTO+2 |
| >> VALMFIND | FIND+2, FIND+5*, SEARCH+6, SEARCH+7, SEARCH+11 |
| >> VALMHDR( | RIGHT+11, LEFT+11 |
| VALMHIT | FIND+1~, FIND+6, FIND+7, FIND+8, FIND+9, FIND+10, FIND+14, SEARCH+5*, SEARCH+7*, SEARCH+8 , SEARCH+10, SEARCH+11, SEARCH+13 |
| >> VALMLFT | UPD+13, UPD+14, UPD+15, RIGHT+4, RIGHT+6*, RIGHT+9*, RIGHT+10*, LEFT+4, LEFT+6*, LEFT+9 , LEFT+10* |
| >> VALMLST | SEARCH+10, DOWN+2, DOWN+3*, DOWN+4 |
| VALMNOD | RIGHT~, RIGHT+3, LEFT~, LEFT+3 |
| VALMOUT | FIND+1~, FIND+6, FIND+7*, FIND+8*, FIND+10*, FIND+15* |
| >> VALMSG | GOTO+3*, GOTO+5, GOTO+6*, GOTO+7*, GOTO+14*, GOTOQ* |
| >> VALMWD | UPD+14, RIGHT+3, RIGHT+8, RIGHT+11, LEFT+8, LEFT+11 |
| X | SEARCH+4~ |
| >> XQORNOD(0 | GOTO+4 |
| Y | FIND+4, FIND+5, FIND+14, BEG+4, SEARCH+4~, UPD+7*, UPD+8, UP+2~*, UP+3, DOWN+2~* , DOWN+3, GOTO+1~, GOTO+4*, GOTO+5, GOTO+6, GOTO+7, GOTO+8, GOTO+9, GOTO+11 |