©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
IBDF9B4 ;ALB/CJM - ENCOUNTER FORM - (edit,delete,add Hand Print fields) ;JUL 20,1994
Source file <IBDF9B4.m>
| Package | Total | Caller Graph |
|---|---|---|
| Automated Information Collection System | 1 | IBDF9B |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| AGAIN | ||
| DLTFLD | ;expects IBBLK to be defined
|
|
| SHIFT | ;expects IBBLK to be defined - shifts all hand print fields within range supplied by user
|
|
| HFIELD | ;Create, Edit, or Delete a Hand Print field from the form
|
|
| NEWFLD | ;adds a new field, expects IBBLK to be defined
|
|
| LENGTHDT(TYPE) | ;
|
|
| EDITFLD | ;expects IBBLK to be defined
|
|
| SELECT | ;
|
| Name | Field # of Occurrence |
|---|---|
| IX^DIC | AGAIN+2 |
| FILE^DICN | NEWFLD+6 |
| ^DIE | EDITFLD+8, NEWFLD+12 |
| ^DIK | NEWFLD+13 |
| ^DIR | HFIELD+12, AGAIN+4 |
| SHIFT^IBDF10 | SHIFT+1 |
| UNCMPBLK^IBDF19 | SHIFT+2, EDITFLD+9, DLTFLD+6, NEWFLD+14 |
| $$NEWNAME^IBDF9B | NEWFLD+3 |
| DLTHFLD^IBDFU3 | DLTFLD+5 |
| IDXBLOCK^IBDFU4 | SHIFT+2, EDITFLD+9, DLTFLD+6, NEWFLD+14 |
| $$RUSURE^IBDFU5 | DLTFLD+4 |
| PAUSE^IBDFU5 | SELECT+3, NEWFLD+9 |
| FULL^VALM1 | HFIELD+8 |
| RE^VALM4 | HFIELD+15, EDITFLD+5 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^IBE(359.94 - [#359.94] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE(359.1 - [#359.1] | LENGTHDT+3 |
| ^IBE(359.94 - [#359.94] | EDITFLD+7, SELECT+3, DLTFLD+4 |
| Name | Line Occurrences |
|---|---|
| @( | HFIELD+14 |
| AGAIN | AGAIN+4 |
| SELECT | EDITFLD+3, DLTFLD+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> D | AGAIN* |
| DA | EDITFLD+8!*, NEWFLD+6!, NEWFLD+12!*, NEWFLD+13!* |
| DD | NEWFLD+5! |
| DIC | AGAIN!*, AGAIN+2!, NEWFLD+5!*, NEWFLD+6!, NEWFLD+12! |
| DIC("B" | AGAIN* |
| DIC("S" | AGAIN+1* |
| DIC(0 | AGAIN*, NEWFLD+5* |
| DIE | EDITFLD+8!*, NEWFLD+5!, NEWFLD+6!, NEWFLD+12!* |
| DIE("NO^" | EDITFLD+8*, NEWFLD+12* |
| DIK | NEWFLD+13*! |
| DINUM | NEWFLD+5! |
| DIR | HFIELD+9!, HFIELD+12!, AGAIN+4! |
| DIR("?" | HFIELD+9*, HFIELD+10 |
| DIR("A" | HFIELD+11*, AGAIN+4* |
| DIR("B" | HFIELD+11*, AGAIN+4* |
| DIR(0 | HFIELD+11*, AGAIN+4* |
| >> DIRUT | HFIELD+12, AGAIN+4 |
| DLAYGO | NEWFLD+1~, NEWFLD+5* |
| DO | NEWFLD+5! |
| DR | EDITFLD+8!*, NEWFLD+12!* |
| >> DTOUT | AGAIN+4 |
| >> DUOUT | AGAIN+4 |
| FIELD | NEWFLD+1~, NEWFLD+7*, NEWFLD+8, NEWFLD+10, NEWFLD+12, NEWFLD+13 |
| >> IBBLK | SHIFT+2, EDITFLD+9, SELECT+2, SELECT+3, AGAIN, DLTFLD+5, DLTFLD+6, NEWFLD+14 |
| IBDELETE | EDITFLD+2~, NEWFLD+2~, NEWFLD+11*, NEWFLD+13 |
| IBFIELD | EDITFLD+1~, EDITFLD+4, EDITFLD+7, EDITFLD+8, SELECT+1*, AGAIN+3*, AGAIN+4, DLTFLD+1~, DLTFLD+3, DLTFLD+4 , DLTFLD+5 |
| IBLEN | EDITFLD+2~, EDITFLD+6*, NEWFLD+2~, NEWFLD+4* |
| IBOLD | EDITFLD+2~, EDITFLD+7*, NEWFLD+2~, NEWFLD+4* |
| IBRTN | NEWFLD+1~ |
| IBTYPE | EDITFLD+2~, EDITFLD+7*, NEWFLD+2~ |
| IBVALMBG | HFIELD+2~, HFIELD+3*, HFIELD+16 |
| IBX | EDITFLD+2~, EDITFLD+6*, NEWFLD+2~, NEWFLD+4* |
| IBY | EDITFLD+2~, EDITFLD+6*, NEWFLD+2~, NEWFLD+4* |
| LEN | LENGTHDT+2~, LENGTHDT+4*, LENGTHDT+5*, LENGTHDT+6*, LENGTHDT+7 |
| NAME | NEWFLD+1~, NEWFLD+3*, NEWFLD+5 |
| NODE | EDITFLD+1~, NEWFLD+1~, LENGTHDT+2~, LENGTHDT+3*, LENGTHDT+4, LENGTHDT+6 |
| QUIT | HFIELD+2~, HFIELD+4*, HFIELD+7, HFIELD+12*, HFIELD+13* |
| RTN | EDITFLD+1~ |
| TYPE | LENGTHDT~, LENGTHDT+1, LENGTHDT+3 |
| >> VALMBCK | HFIELD+5*, HFIELD+16* |
| >> VALMBG | HFIELD+3, HFIELD+16* |
| >> X | AGAIN*, NEWFLD+5* |
| >> Y | HFIELD+12, HFIELD+13, HFIELD+14, AGAIN+3, AGAIN+4, NEWFLD+7 |