©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
IBDF9E ;ALB/CJM - ENCOUNTER FORM (create/edit/delete text areas);MARCH 20, 1993
Source file <IBDF9E.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| AGAIN | ||
| FORMAT | ;formats the word-processing field of IBTEXT
|
|
| TEXT | ;Create, Edit, or Delete a text area on a block
|
|
| NEWNAME() | ;
|
|
| MAXHT() | ;returns the maximum ht. of IBTEXT text area fits in the block IBBLK
|
|
| SELECT | ;select a text area on the block
|
|
| MAXW() | ;returns the maximum width of IBTEXT text area fits in the block IBBLK
|
|
| EDITTEXT | ;expects IBBLK to be defined
|
|
| NEWTEXT | ;adds a new text area, expects IBBLK to be defined
|
|
| DLTTEXT | ;delete a text area - expects IBBLK to be defined
|
| Name | Field # of Occurrence |
|---|---|
| IX^DIC | AGAIN+1 |
| FILE^DICN | NEWTEXT+5 |
| ^DIE | EDITTEXT+7, NEWTEXT+10 |
| ^DIK | NEWTEXT+11 |
| ^DIR | TEXT+4, AGAIN+3, NEWNAME+2 |
| UNCMPBLK^IBDF19 | EDITTEXT+8, DLTTEXT+7, NEWTEXT+12 |
| $$MAXX^IBDFU1B | MAXW+3 |
| $$MAXY^IBDFU1B | MAXHT+3 |
| DLTTEXT^IBDFU3 | DLTTEXT+6 |
| IDXBLOCK^IBDFU4 | EDITTEXT+8, DLTTEXT+7, NEWTEXT+12 |
| $$RUSURE^IBDFU5 | DLTTEXT+5 |
| PAUSE^IBDFU5 | SELECT+3, NEWTEXT+8, FORMAT+6 |
| FORMAT^IBDFU6 | FORMAT+4 |
| FULL^VALM1 | EDITTEXT+3, DLTTEXT+2 |
| RE^VALM4 | EDITTEXT+6 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^IBE(357.8 - [#357.8] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE(357.8 - [#357.8] | SELECT+3, DLTTEXT+5, FORMAT+2, FORMAT+5!, FORMAT+9*, FORMAT+11*, MAXHT+2, MAXW+2 |
| ^UTILITY($J | FORMAT+6, FORMAT+7, FORMAT+12! |
| Name | Line Occurrences |
|---|---|
| $$NEWNAME | NEWTEXT+3 |
| @( | TEXT+5 |
| AGAIN | AGAIN+3 |
| SELECT | EDITTEXT+4, DLTTEXT+3 |
| Name | Field # of Occurrence |
|---|---|
| ^( | FORMAT+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| COUNT | FORMAT+1~, FORMAT+7*, FORMAT+10*, FORMAT+11 |
| >> D | AGAIN* |
| D0 | NEWTEXT+4! |
| DA | EDITTEXT+7!*, NEWTEXT+5!, NEWTEXT+10!*, NEWTEXT+11!* |
| DD | NEWTEXT+4! |
| DIC | AGAIN*, AGAIN+1!, NEWTEXT+4!*, NEWTEXT+5! |
| DIC("B" | AGAIN* |
| DIC(0 | AGAIN*, NEWTEXT+4* |
| DIE | EDITTEXT+7!*, NEWTEXT+4!, NEWTEXT+5!, NEWTEXT+10!* |
| DIE("NO^" | EDITTEXT+7*, NEWTEXT+10* |
| DIK | NEWTEXT+11*! |
| DINUM | NEWTEXT+4! |
| DIR | TEXT+2!, TEXT+4!, AGAIN+3!, NEWNAME+1!, NEWNAME+2! |
| DIR("?" | TEXT+2* |
| DIR("A" | TEXT+3*, AGAIN+3*, NEWNAME+1* |
| DIR("B" | TEXT+3*, AGAIN+3*, NEWNAME+1* |
| DIR(0 | TEXT+3*, AGAIN+3*, NEWNAME+1* |
| >> DIRUT | TEXT+4, AGAIN+3, NEWNAME+2 |
| DLAYGO | NEWTEXT+1~, NEWTEXT+4* |
| DR | EDITTEXT+7*!, NEWTEXT+10*! |
| DT | FORMAT+11 |
| >> DTOUT | AGAIN+3 |
| >> DUOUT | AGAIN+3 |
| HT | FORMAT+1~, FORMAT+3*, FORMAT+6 |
| >> IBBLK | EDITTEXT+8, SELECT+2, SELECT+3, AGAIN, DLTTEXT+6, DLTTEXT+7, NEWTEXT+12 |
| IBDELETE | EDITTEXT+1~, NEWTEXT+1~, NEWTEXT+11 |
| IBTEXT | EDITTEXT+1~, EDITTEXT+5, EDITTEXT+7, SELECT+1*, AGAIN+2*, AGAIN+3, DLTTEXT+1~, DLTTEXT+4, DLTTEXT+5, DLTTEXT+6 , NEWTEXT+1~, NEWTEXT+6*, NEWTEXT+7, NEWTEXT+9, NEWTEXT+10, NEWTEXT+11, FORMAT+2, FORMAT+5, FORMAT+9, FORMAT+11 , MAXHT+2, MAXW+2 |
| LINE | FORMAT+1~, FORMAT+7*, FORMAT+9 |
| NAME | NEWTEXT+1~, NEWTEXT+3*, NEWTEXT+4 |
| NODE | NEWTEXT+1~, FORMAT+1~, FORMAT+2*, FORMAT+3, MAXHT+1~, MAXHT+2*, MAXW+1~, MAXW+2* |
| >> NUM | FORMAT+7*, FORMAT+9 |
| >> VALMBCK | TEXT+1*, TEXT+6* |
| W | FORMAT+1~, FORMAT+3*, FORMAT+4, FORMAT+9 |
| X | AGAIN*, NEWTEXT+4*, MAXW+1~, MAXW+2*, MAXW+3 |
| Y | TEXT+4, TEXT+5, AGAIN+2, AGAIN+3, NEWTEXT+6, NEWNAME+3, MAXHT+1~, MAXHT+2*, MAXHT+3 |