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