©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
IBDF3 ;ALB/CJM - ENCOUNTER FORM - EDIT SELECTION LIST ;NOV 16,1992
Source file <IBDF3.m>
| Package | Total | Caller Graph |
|---|---|---|
| Automated Information Collection System | 4 | IBDF4 IBDF4A IBDFGRP IBDFQEA |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SLCTNCNT(GRP) | ;
|
|
| ONEXIT | ;
|
|
| EDITGRP | ;
|
|
| IDXGRP | ;build an index of groups in print order for list processor
|
|
| ADDGRP | ;
|
|
| DELGRP | ;delete a group and all of its selections
|
|
| DELSLCTN | ;deletes a group's selections
|
|
| LMGRPHDR | ;sets the screen hdr
|
|
| ADDEMPTY | ;adds a blank group - a place holder that takes up space on the form
|
|
| ADDBLANK() | ;
|
|
| EDTSLCTN | ;
|
|
| DISPLAY(GRP,ROW) | ;
|
|
| ONENTRY | ;
|
|
| EDITLIST | ;expects IBBLK to be defined
|
|
| LISTNAME() | ;
|
|
| SELECT | ;
; -- dic("s") passed in from ibdfgrp |
| Name | Field # of Occurrence |
|---|---|
| IX^DIC | SELECT+5 |
| FILE^DICN | ADDBLANK+5, ADDGRP+7, ADDEMPTY+8 |
| ^DIE | ADDBLANK+7, ADDGRP+9, ADDEMPTY+10, EDITGRP+7 |
| ^DIK | DELSLCTN+3, DELGRP+7 |
| IX^DIK | IDXGRP+8 |
| ^DIR | ADDGRP+4, ADDEMPTY+5 |
| UNCMPBLK^IBDF19 | EDITLIST+9 |
| SLCTNS^IBDF4 | EDTSLCTN+8 |
| $$PADRIGHT^IBDFU | DISPLAY+6 |
| $$LSTDSCR2^IBDFU1 | EDITLIST+5 |
| IDXBLOCK^IBDFU4 | EDITLIST+11 |
| $$RUSURE^IBDFU5 | DELGRP+6 |
| PAUSE^IBDFU5 | EDITLIST+6 |
| EN^VALM | EDITLIST+7 |
| PAUSE^VALM1 | ADDGRP+8, ADDEMPTY+9 |
| FLDCTRL^VALM10 | IDXGRP+12 |
| EN^VALM2 | EDTSLCTN+3, EDITGRP+3, DELGRP+3 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^IBE(357.2 - [#357.2] | Classic Fileman Calls |
| ^IBE(357.3 - [#357.3] | Classic Fileman Calls |
| ^IBE(357.4 - [#357.4] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE(357.2 - [#357.2] | LISTNAME+1 |
| ^IBE(357.3 - [#357.3] | SLCTNCNT+3, DELSLCTN+3 |
| ^IBE(357.4 - [#357.4] | ADDBLANK+2, IDXGRP+4, IDXGRP+5, IDXGRP+8!, DISPLAY+2, DELGRP+6 |
| Name | Line Occurrences |
|---|---|
| $$ADDBLANK | EDTSLCTN+6 |
| $$DISPLAY | IDXGRP+11 |
| $$LISTNAME | LMGRPHDR+1 |
| $$SLCTNCNT | DISPLAY+6 |
| DELSLCTN | EDITGRP+8, DELGRP+7 |
| IDXGRP | ONENTRY+1, ADDGRP+11, ADDEMPTY+12, EDTSLCTN+8, EDITGRP+10, DELGRP+8 |
| SELECT | EDITLIST+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | SLCTNCNT+1~, SLCTNCNT+2*, SLCTNCNT+3*, SLCTNCNT+4 |
| >> D | SELECT+4* |
| DA | ADDBLANK+7!*, IDXGRP+8!*, ADDGRP+7!, ADDGRP+9!*, ADDEMPTY+8!, ADDEMPTY+10!*, EDITGRP+7!*, EDITGRP+8, EDITGRP+9!, DELSLCTN+3!* , DELSLCTN+4!, DELGRP+7!* |
| DD | ADDBLANK+4!, ADDGRP+6!, ADDEMPTY+7! |
| DIC | SELECT+4*, SELECT+5!, ADDBLANK+4!*, ADDBLANK+5!, ADDGRP+6!*, ADDGRP+7!, ADDGRP+9!, ADDEMPTY+7!*, ADDEMPTY+8!, ADDEMPTY+10! , EDITGRP+9! |
| DIC(0 | SELECT+4*, ADDBLANK+4*, ADDGRP+6*, ADDEMPTY+7* |
| DIE | ADDBLANK+7!*, ADDGRP+7!, ADDGRP+9*!, ADDEMPTY+8!, ADDEMPTY+10*!, EDITGRP+7!*, EDITGRP+9! |
| DIE("NO^" | ADDGRP+9*, ADDEMPTY+10* |
| DIK | IDXGRP+8!*, DELSLCTN+2*, DELSLCTN+4!, DELGRP+7*! |
| DINUM | ADDBLANK+4!, ADDGRP+6!, ADDEMPTY+7! |
| DIR | ADDGRP+4!, ADDEMPTY+5! |
| DIR("B" | ADDGRP+4*, ADDEMPTY+5* |
| DIR(0 | ADDGRP+4*, ADDEMPTY+5* |
| >> DIRUT | ADDGRP+4, ADDEMPTY+5 |
| DO | ADDBLANK+4!, ADDGRP+6!, ADDEMPTY+7! |
| DR | ADDBLANK+7*!, ADDGRP+9*!, ADDEMPTY+10*!, EDITGRP+7*, EDITGRP+9! |
| GRP | ADDBLANK+2*, ADDBLANK+3, ADDBLANK+6*, ADDBLANK+7, ADDBLANK+8, IDXGRP+1~, IDXGRP+5*, IDXGRP+8, IDXGRP+11, DISPLAY~ , DISPLAY+2, DISPLAY+6, SLCTNCNT~, SLCTNCNT+3, ADDGRP+1~, ADDEMPTY+2~, EDITGRP+1~, EDITGRP+5*, EDITGRP+6, EDITGRP+7 , DELSLCTN+3, DELGRP+1~, DELGRP+5*, DELGRP+6, DELGRP+7 |
| GRPODR | IDXGRP+1~, IDXGRP+4*, IDXGRP+5, IDXGRP+8 |
| >> IBBLK | EDITLIST+9, SELECT+3, SELECT+4 |
| >> IBFASTXT | EDITLIST+10 |
| IBGRP | EDTSLCTN+1~, EDTSLCTN+6*, EDTSLCTN+7*, EDTSLCTN+8 |
| IBLIST | EDITLIST+1~, EDITLIST+4, EDITLIST+5, EDITLIST+8!, SELECT+2*, SELECT+6*, ADDBLANK+2, ADDBLANK+7, IDXGRP+4, IDXGRP+5 , IDXGRP+8, LISTNAME+1, ADDGRP+9, ADDEMPTY+10 |
| IBLIST("DYNAMIC" | EDITLIST+6 |
| IBVALMBG | EDITLIST+1~, EDITLIST+2*, EDITLIST+12 |
| IGRP | ADDBLANK+1~ |
| INV | DISPLAY+1~, DISPLAY+2*, DISPLAY+4, DISPLAY+5 |
| NAME | DISPLAY+1~, DISPLAY+2*, DISPLAY+3*, DISPLAY+4*, DISPLAY+5*, DISPLAY+6, ADDGRP+1~, ADDGRP+5*, ADDGRP+6 |
| NODE0 | DISPLAY+1~, DISPLAY+2*, DISPLAY+6 |
| ORDER | ADDEMPTY+2~, ADDEMPTY+6*, ADDEMPTY+10 |
| QUIT | ADDGRP+1~, ADDGRP+2*, ADDGRP+3, ADDGRP+4*, ADDGRP+8*, ADDEMPTY+2~, ADDEMPTY+3*, ADDEMPTY+4, ADDEMPTY+5*, ADDEMPTY+9* |
| ROW | DISPLAY~, DISPLAY+6 |
| SEL | EDTSLCTN+1~*, EDTSLCTN+4*, EDTSLCTN+5, EDTSLCTN+7, EDITGRP+1~, EDITGRP+4*, EDITGRP+5, DELGRP+1~, DELGRP+4*, DELGRP+5 |
| SLCTN | SLCTNCNT+1~, SLCTNCNT+2*, SLCTNCNT+3*, DELSLCTN+1~, DELSLCTN+2*, DELSLCTN+3* |
| >> VALMAR | ONEXIT+1, IDXGRP+2, IDXGRP+11, EDTSLCTN+7, EDITGRP+5, DELGRP+5 |
| >> VALMBCK | EDITLIST+2*, EDITLIST+12*, ADDGRP+12*, ADDEMPTY+13*, EDTSLCTN+9*, EDITGRP+2*, EDITGRP+11*, DELGRP+2*, DELGRP+9* |
| >> VALMBG | EDITLIST+2, EDITLIST+12* |
| >> VALMCNT | IDXGRP+3*, IDXGRP+10*, IDXGRP+11, IDXGRP+12, EDTSLCTN+2 |
| >> VALMHDR(1 | LMGRPHDR+1* |
| >> VALMY( | EDITGRP+4, DELGRP+4 |
| >> VALMY("" | EDTSLCTN+4 |
| >> X | SELECT+4*, ADDBLANK+4*, ADDGRP+6*, ADDEMPTY+7* |
| >> XQORNOD(0 | EDTSLCTN+3, EDITGRP+3, DELGRP+3 |
| >> Y | SELECT+6, ADDBLANK+6, ADDGRP+5, ADDGRP+8, ADDGRP+9, ADDEMPTY+5, ADDEMPTY+6, ADDEMPTY+9, ADDEMPTY+10 |