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