©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
SDUL40 ;ALB/MJK - Screen Malipulation Utilities (cont.) ; 12/1/91
Source file <SDUL40.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 3 | REFRESH^SDUL ($$UPPER,INSTR,PAUSE)^SDUL1 (FINISH,LST,PAINT,PGUPD,RESET)^SDUL4 |
| VA Fileman | 1 | ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| UPD(LINE,TEXT,ATTR) | ; -- set/unset video attribute on text
; input: LINE := number of line ; TEXT := chars to set attribute on ; ATTR := attribute to use |
|
| BEG() | ; -- ask if ok to start from top
|
|
| SEARCH(START,FINISH) | ; -- search to end or first hit
; input: START := line to start search on ; FINISH := line to end search on |
|
| UPDQ | ||
| SEARCHQ | ||
| FIND | ; -- find text in list
|
|
| FINDQ |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences |
|---|---|
| $$BEG | FIND+9 |
| FINDQ | FIND+4 |
| SEARCH | FIND+6 |
| SEARCHQ | SEARCH+8 |
| UPD | FIND+6, SEARCH+11 |
| UPDQ | UPD+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ATTR | UPD~, UPD+8 |
| ATTROFF | UPD+5~, UPD+7*, UPD+8*, UPD+9 |
| ATTRON | UPD+5~, UPD+7*, UPD+8*, UPD+9 |
| BEG | FIND+1~, FIND+5*, FIND+7, FIND+8, FIND+9*, FIND+10 |
| CNT | SEARCH+4~, SEARCH+5*, SEARCH+7* |
| DIR | FIND+4!, FIND+11!, BEG+3! |
| DIR("?" | FIND+3* |
| DIR("A" | FIND+2*, FIND+11*, BEG+2* |
| DIR("B" | FIND+2*, FIND+11*, BEG+2* |
| DIR(0 | FIND+2*, FIND+11*, BEG+2* |
| FINISH | FIND+5*, FIND+6, FIND+9*, SEARCH~, SEARCH+7 |
| >> I | SEARCH+7* |
| >> IORVOFF | UPD+8 |
| >> IORVON | UPD+8 |
| L | SEARCH+4~ |
| LEN | UPD+5~, UPD+7*, UPD+9 |
| LINE | UPD~, UPD+7, UPD+9 |
| POS | UPD+5~, UPD+7*, UPD+9* |
| SDQUIT | FIND+1~, FIND+6, FIND+7*, FIND+8*, FIND+10*, FIND+13* |
| >> SDUL("TM" | UPD+9 |
| >> SDULAR | SEARCH+7, UPD+7 |
| >> SDULBCK | SEARCH+6* |
| >> SDULBG | FIND+5, SEARCH+10*, SEARCH+13*, UPD+9 |
| >> SDULCC | SEARCH+6, SEARCH+9, SEARCH+13, UPD+6 |
| >> SDULCNT | FIND+5, FIND+8, FIND+9, FIND+10 |
| >> SDULFIND | FIND+2, FIND+5*, FIND+6, FIND+11, SEARCH+6, SEARCH+7, SEARCH+11 |
| SDULHIT | FIND+1~, FIND+6, FIND+7, FIND+8, FIND+9, FIND+10, FIND+12, SEARCH+5*, SEARCH+7*, SEARCH+8 , SEARCH+10, SEARCH+11, SEARCH+13 |
| >> SDULST | SEARCH+10 |
| START | FIND+1~, FIND+5*, FIND+6, FIND+9*, FIND+12*, SEARCH~, SEARCH+7 |
| TEXT | UPD~, UPD+7, UPD+9 |
| X | SEARCH+4~ |
| Y | FIND+4, FIND+5, FIND+12, BEG+4, SEARCH+4~, UPD+5~, UPD+7*, UPD+9 |