©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
VALM10 ;MJK;09:29 PM 17 Jan 1993;
Source file <VALM10.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 4 | ($$MSG,LBAR)^VALM ATRFLD^VALM00 ($$SETFLD,INSTR)^VALM1 (IOXY,WRITE)^VALM4 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RESTORE(LINE) | ; -- restore video cntrls for a line
; input: LINE := line number |
|
| FLDTEXT(LINE,FLD,TEXT) | ; -- set text for field in line
; input: LINE := line number ; FLD := caption field name ; TEXT := text to insert for field |
|
| SWAP(FR,TO,SAVE) | ; -- swap video cntrl arrays
; [not a supported call] |
|
| MSGQ | ||
| WRITE(LINE) | ; -- re-write line to screen
; input: LINE := line number |
|
| SELECT(LINE,MODE) | ; -- highlight/unhighlight a line
; input: LINE := line number ; MODE := 1 to highlight line ; 0 to unhighlight and restore to original state |
|
| CNTRL(LINE,COL,WIDTH,ON,OFF,SAVE) | ; -- set video control chars
; input: LINE := line number ; COL := column to start control ; WIDTH := how many characters should contrl be in effect ; ON := beginninng control code (ex. the value of IOINHI) ; OFF := ending control code (ex. the value of IOINORM) ; SAVE := 1 to save control code for later use ; otherwise 0 [optional] |
|
| FLDCTRL(LINE,FLD,ON,OFF,SAVE) | ; -- set default video ctrls for line
; or just 1 field ; input: LINE := line number ; FLD := caption field name [optional] ; ON := beginninng control code (ex. the value of IOINHI) ; OFF := ending control code (ex. the value of IOINORM) ; SAVE := 1 to save control code for later use ; otherwise 0 [optional] |
|
| KILL(LINE) | ; -- kill off video cntrls for a line
; input: LINE := line number |
|
| CLEAN | ; -- kill off lines and video cntrls
|
|
| FLDCTRLQ | ||
| SET(LINE,TEXT,ENTRY) | ; -- set text in array
; input: LINE := line number ; TEXT := text for line ; ENTRY := entry number assoicated with line [optional] ; >> if defined, then line will also be indexed |
|
| MSG(VALMSG) | ; -- post message immediately
|
|
| SAVE(LINE) | ; -- save video cntrls for a line
; input: LINE := line number |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP( | CNTRL+10*, CNTRL+11* |
| ^TMP("VALM VIDEO SAVE" | KILL+3!, KILL+4! |
| ^TMP("VALM VIDEO" | KILL+3!, KILL+4!, CLEAN+2! |
| Name | Line Occurrences |
|---|---|
| CNTRL | SELECT+7, FLDCTRL+16 |
| FLDCTRLQ | FLDCTRL+9 |
| MSGQ | MSG+1 |
| RESTORE | SELECT+8 |
| SAVE | SELECT+6 |
| SWAP | SAVE+3, RESTORE+3, FLDCTRL+9 |
| WRITE | SELECT+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| COL | CNTRL~, CNTRL+10, CNTRL+11, SWAP+4*, SWAP+5*, SWAP+7, FLDCTRL+11~, FLDCTRL+12*, FLDCTRL+16 |
| DY | WRITE+3~, WRITE+5*, WRITE+6 |
| ENTRY | SET~, SET+7 |
| FLD | FLDTEXT~, FLDTEXT+5, FLDCTRL~, FLDCTRL+9, FLDCTRL+12, FLDCTRL+15 |
| FR | SWAP~, SWAP+5, SWAP+7, SWAP+8 |
| >> IOINHI | SELECT+7 |
| >> IOINORM | SELECT+7 |
| >> IORC | WRITE+7 |
| >> IORVOFF | MSG+1 |
| >> IORVON | MSG+1 |
| >> IOSC | WRITE+4 |
| LINE | CNTRL~, CNTRL+10, CNTRL+11, KILL~, KILL+3, KILL+4, SAVE~, RESTORE~, SELECT~, SELECT+6 , SELECT+7, SELECT+8, SELECT+9, WRITE~, WRITE+5, WRITE+6, FLDTEXT~, FLDTEXT+5, FLDCTRL~, FLDCTRL+16 , SET~, SET+6, SET+7 |
| MODE | SELECT~, SELECT+5, SELECT+8 |
| OFF | CNTRL~, CNTRL+11, FLDCTRL~, FLDCTRL+11~, FLDCTRL+14*, FLDCTRL+15, FLDCTRL+16 |
| ON | CNTRL~, CNTRL+10, FLDCTRL~, FLDCTRL+11~, FLDCTRL+13, FLDCTRL+14*, FLDCTRL+15, FLDCTRL+16 |
| SAVE | CNTRL~, CNTRL+9, SWAP~, SWAP+8, FLDCTRL~, FLDCTRL+16 |
| TEXT | FLDTEXT~, FLDTEXT+5, SET~, SET+6 |
| TO | SWAP~, SWAP+3, SWAP+7 |
| U | FLDCTRL+12 |
| >> VALM("BM" | MSG+1 |
| >> VALM("RM" | SELECT+7 |
| >> VALM("TM" | WRITE+5 |
| >> VALMAR | FLDTEXT+5, SET+6, SET+7, CLEAN+1 |
| >> VALMBG | WRITE+5 |
| >> VALMCC | MSG+1 |
| >> VALMDDF( | FLDCTRL+12 |
| >> VALMEVL | CNTRL+10, CNTRL+11, KILL+3, KILL+4, CLEAN+2 |
| VALMSG | MSG~, MSG+1* |
| WIDTH | CNTRL~, CNTRL+10, CNTRL+11, SWAP+6~*, SWAP+7*, FLDCTRL+11~, FLDCTRL+12*, FLDCTRL+16 |
| X | CNTRL+9*, CNTRL+10, CNTRL+11, FLDCTRL+11~, FLDCTRL+12* |