©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
IBDF9D ;ALB/CJM - ENCOUNTER FORM (create/edit/delete lines);MARCH 20, 1993
Source file <IBDF9D.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Information Collection System | 5 | UNCMPBLK^IBDF19 ($$MAXX,$$MAXY)^IBDFU1B DLTLINE^IBDFU3 IDXBLOCK^IBDFU4 ($$RUSURE,PAUSE)^IBDFU5 |
| VA Fileman | 5 | IX^DIC FILE^DICN ^DIE ^DIK ^DIR |
| Registration | 2 | FULL^VALM1 RE^VALM4 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| AGAIN | ||
| MAXLEN() | ;returns the maximum length of the line=IBLINE that will fit in the block=IBBLK
|
|
| NEWLINE | ;adds a new line, expects IBBLK to be defined
|
|
| NEWNAME(IBLINE) | ;
|
|
| DLTLINE | ;expects IBBLK to be defined - deletes one of the blocks lines
|
|
| TOOMANY() | ;are there too many lines in the box? returns 0 or 1
|
|
| LINE | ;Create, Edit, or Delete a line on the block
|
|
| EDITLINE | ;expects IBBLK to be defined - edits an already existing line
|
|
| SELECT | ;select a line on the block
|
| Name | Field # of Occurrence |
|---|---|
| IX^DIC | AGAIN+2 |
| FILE^DICN | NEWLINE+5 |
| ^DIE | EDITLINE+7, NEWLINE+10 |
| ^DIK | NEWLINE+11 |
| ^DIR | LINE+4, AGAIN+4 |
| UNCMPBLK^IBDF19 | EDITLINE+8, DLTLINE+7, NEWLINE+12 |
| $$MAXX^IBDFU1B | MAXLEN+5 |
| $$MAXY^IBDFU1B | MAXLEN+5, TOOMANY+8 |
| DLTLINE^IBDFU3 | DLTLINE+6 |
| IDXBLOCK^IBDFU4 | EDITLINE+8, DLTLINE+7, NEWLINE+12 |
| $$RUSURE^IBDFU5 | DLTLINE+5 |
| PAUSE^IBDFU5 | SELECT+3, NEWLINE+8 |
| FULL^VALM1 | EDITLINE+3, DLTLINE+2 |
| RE^VALM4 | EDITLINE+6 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^IBE(357.7 - [#357.7] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE(357.7 - [#357.7] | SELECT+3, DLTLINE+5, NEWNAME+1, MAXLEN+2, TOOMANY+5 |
| Name | Line Occurrences |
|---|---|
| @( | LINE+5 |
| AGAIN | AGAIN+4 |
| SELECT | EDITLINE+4, DLTLINE+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> D | AGAIN* |
| DA | EDITLINE+7!*, NEWLINE+5!, NEWLINE+10!*, NEWLINE+11!* |
| DD | NEWLINE+4! |
| DIC | AGAIN!*, AGAIN+2!, NEWLINE+4!*, NEWLINE+5! |
| DIC("B" | AGAIN* |
| DIC("S" | AGAIN+1* |
| DIC(0 | AGAIN*, NEWLINE+4* |
| DIE | EDITLINE+7!*, NEWLINE+4!, NEWLINE+5!, NEWLINE+10!* |
| DIE("NO^" | EDITLINE+7*, NEWLINE+10* |
| DIK | NEWLINE+11*! |
| DINUM | NEWLINE+4! |
| DIR | LINE+2!, LINE+4!, AGAIN+4! |
| DIR("?" | LINE+2* |
| DIR("A" | LINE+3*, AGAIN+4* |
| DIR("B" | LINE+3*, AGAIN+4* |
| DIR(0 | LINE+3*, AGAIN+4* |
| >> DIRUT | LINE+4, AGAIN+4 |
| DLAYGO | NEWLINE+1~, NEWLINE+4* |
| DO | NEWLINE+4!, NEWLINE+5! |
| DR | EDITLINE+7*!, NEWLINE+10*! |
| >> DTOUT | AGAIN+4 |
| >> DUOUT | AGAIN+4 |
| >> IBBLK | EDITLINE+8, SELECT+2, SELECT+3, AGAIN, DLTLINE+6, DLTLINE+7, NEWLINE+12, TOOMANY+4 |
| IBDFDONE | EDITLINE+1~, NEWLINE+1~, NEWLINE+11 |
| IBLINE | EDITLINE+1~, EDITLINE+5, EDITLINE+7, SELECT+1*, AGAIN+3*, AGAIN+4, DLTLINE+1~, DLTLINE+4, DLTLINE+5, DLTLINE+6 , NEWLINE+1~, NEWLINE+6*, NEWLINE+7, NEWLINE+9, NEWLINE+10, NEWLINE+11, NEWNAME~, NEWNAME+1, MAXLEN+2, TOOMANY+3 , TOOMANY+5 |
| LEN | MAXLEN+1~ |
| NAME | NEWNAME+1~, NEWNAME+3*, NEWNAME+4 |
| NODE | NEWLINE+1~, NEWNAME+1~*, NEWNAME+2, NEWNAME+3, MAXLEN+1~, MAXLEN+2*, MAXLEN+3, MAXLEN+4, TOOMANY+2~, TOOMANY+5* , TOOMANY+6 |
| NUMBER | TOOMANY+2~, TOOMANY+6*, TOOMANY+8 |
| POS | MAXLEN+1~, MAXLEN+4*, MAXLEN+5 |
| SPACING | TOOMANY+2~, TOOMANY+6*, TOOMANY+7*, TOOMANY+8 |
| START | TOOMANY+2~, TOOMANY+6*, TOOMANY+8 |
| TYPE | MAXLEN+1~, MAXLEN+3*, MAXLEN+4, MAXLEN+5 |
| >> VALMBCK | LINE+1*, LINE+6* |
| >> X | AGAIN*, NEWLINE+4* |
| >> Y | LINE+4, LINE+5, AGAIN+3, AGAIN+4, NEWLINE+6 |