©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
IBDF9A1 ;ALB/CJM - ENCOUNTER FORM - (create,edit,delete selection list - continued) ;FEB 1,1993
Source file <IBDF9A1.m>
| Package | Total | Caller Graph |
|---|---|---|
| Automated Information Collection System | 2 | IBDFQEA IBDFQEA1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SUBCOL() | ;ask what subcolumn to format
|
|
| CHANGE(SLCTN,SUBCOL,TYPE) | ;
|
|
| FORMAT | ;allows the user to format all of the selections on the list in mass
|
|
| NEWLIST | ;creates a new list
|
|
| CAPS(STR) | ;returns STR with each word in it capitalized
|
|
| TYPE() | ;ask the user what type of formatting
|
|
| ADDGROUP(NAME,ORDER) | ;adds a group to the selection list=IBLIST
|
|
| FORMAT2 | ;allows the user to format all of the selections in the group in mass
|
|
| AGAIN |
| Name | Field # of Occurrence |
|---|---|
| FILE^DICN | NEWLIST+18, ADDGROUP+5 |
| ^DIE | NEWLIST+12, NEWLIST+24 |
| ^DIK | NEWLIST+25 |
| IX1^DIK | ADDGROUP+9 |
| ^DIR | TYPE+4 |
| UNCMPBLK^IBDF19 | NEWLIST+13, NEWLIST+27 |
| IDXSLCTN^IBDF4 | FORMAT2+17 |
| $$NEWNAME^IBDF9A | NEWLIST+14 |
| $$RTN^IBDF9A | NEWLIST+5 |
| $$COPYLIST^IBDFU2 | NEWLIST+10 |
| DLISTCNT^IBDFU3 | NEWLIST+23 |
| IDXBLOCK^IBDFU4 | NEWLIST+13, NEWLIST+27 |
| $$DFLTS^IBDFU5 | NEWLIST+6 |
| PAUSE^IBDFU5 | NEWLIST+21 |
| FULL^VALM1 | NEWLIST+4 |
| $$LOW^XLFSTR | CHANGE+9, CAPS+7 |
| $$UP^XLFSTR | CHANGE+8, CAPS+5 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^IBE(357.2 - [#357.2] | Classic Fileman Calls |
| ^IBE(357.4 - [#357.4] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE(357.1 - [#357.1] | NEWLIST+7 |
| ^IBE(357.2 - [#357.2] | NEWLIST+8 |
| ^IBE(357.3 - [#357.3] | FORMAT+15, FORMAT2+15, CHANGE+3, CHANGE+5, CHANGE+11* |
| ^IBE(357.4 - [#357.4] | ADDGROUP+8* |
| Name | Line Occurrences |
|---|---|
| $$CAPS | CHANGE+10 |
| $$SUBCOL | FORMAT+9, FORMAT2+9 |
| $$TYPE | FORMAT+12, FORMAT2+12 |
| ADDGROUP | NEWLIST+26 |
| AGAIN | AGAIN+4 |
| CHANGE | FORMAT+15, FORMAT2+15 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ANS | SUBCOL+3~, AGAIN+1*, AGAIN+2, AGAIN+3, AGAIN+5 |
| CHAR | CAPS+1~, CAPS+3*, CAPS+4, CAPS+5*, CAPS+6, CAPS+7*, CAPS+9 |
| DA | NEWLIST+12!*, NEWLIST+15!, NEWLIST+18!, NEWLIST+24!*, NEWLIST+25!*, ADDGROUP+2!, ADDGROUP+5!, ADDGROUP+9*!, CHANGE+2~, CHANGE+3* , CHANGE+4, CHANGE+5, CHANGE+11 |
| DD | NEWLIST+15!, ADDGROUP+2! |
| DIC | NEWLIST+15!, NEWLIST+17*, NEWLIST+18!, ADDGROUP+2!, ADDGROUP+4*, ADDGROUP+5! |
| DIC(0 | NEWLIST+17*, ADDGROUP+4* |
| DIE | NEWLIST+12!*, NEWLIST+15!, NEWLIST+24!*, ADDGROUP+2! |
| DIE("NO^" | NEWLIST+12*, NEWLIST+24* |
| DIK | NEWLIST+25*!, ADDGROUP+9*! |
| DINUM | NEWLIST+15!, ADDGROUP+2! |
| DIR | TYPE+2!, TYPE+4! |
| DIR("A" | TYPE+3* |
| DIR("B" | TYPE+3* |
| DIR(0 | TYPE+2* |
| >> DIRUT | TYPE+5 |
| DLAYGO | NEWLIST+16~, NEWLIST+17*, ADDGROUP+3~, ADDGROUP+4* |
| DO | NEWLIST+15!, ADDGROUP+2! |
| DR | NEWLIST+12!*, NEWLIST+24!* |
| DTIME | AGAIN+1 |
| FIRST | CAPS+1~, CAPS+2*, CAPS+4, CAPS+5*, CAPS+8* |
| GROUP | ADDGROUP+1~, ADDGROUP+6*, ADDGROUP+7, ADDGROUP+8, ADDGROUP+9 |
| I | CAPS+1~, CAPS+3*, CAPS+9 |
| >> IBBLK | NEWLIST+10, NEWLIST+13, NEWLIST+27 |
| IBDELETE | NEWLIST+2~, NEWLIST+25, NEWLIST+26 |
| IBDFLTB | NEWLIST+2~, NEWLIST+3*, NEWLIST+7*, NEWLIST+8, NEWLIST+10 |
| IBDFLTF | NEWLIST+2~, NEWLIST+3*, NEWLIST+6*, NEWLIST+7 |
| IBDFLTL | NEWLIST+2~, NEWLIST+3*, NEWLIST+7, NEWLIST+8*, NEWLIST+9, NEWLIST+10 |
| IBDYN | NEWLIST+2~ |
| >> IBGRP | FORMAT2+15 |
| IBINPUT | NEWLIST+2~ |
| IBLEN | NEWLIST+2~ |
| IBLIST | NEWLIST+2~, NEWLIST+3*, NEWLIST+9, NEWLIST+10*, NEWLIST+11, NEWLIST+12, NEWLIST+19*, NEWLIST+20, NEWLIST+22, NEWLIST+23 , NEWLIST+24, NEWLIST+25, NEWLIST+26, ADDGROUP+8, FORMAT+15 |
| IBLIST("SCEDITABLE" | SUBCOL+6 |
| IBLIST("SCTYPE" | SUBCOL+6 |
| IBLIST("SCW" | SUBCOL+6 |
| >> IBOLD | NEWLIST+3* |
| IBP | NEWLIST+2~ |
| IBRTN | NEWLIST+2~, NEWLIST+5*, NEWLIST+8 |
| LEN | CAPS+1~, CAPS+2*, CAPS+9 |
| NAME | NEWLIST+2~, NEWLIST+14*, NEWLIST+17, ADDGROUP~, ADDGROUP+4 |
| NODE | ADDGROUP+8*, CHANGE+2~, CHANGE+5*, CHANGE+6, SUBCOL+3~ |
| ORDER | ADDGROUP~, ADDGROUP+8 |
| SCLIST | SUBCOL+3~, SUBCOL+5*, SUBCOL+6*, SUBCOL+8, AGAIN, AGAIN+3 |
| SLCTN | FORMAT+6~, FORMAT+15*, FORMAT2+6~, FORMAT2+15*, CHANGE~, CHANGE+3, CHANGE+5, CHANGE+11 |
| STR | CHANGE+2~, CHANGE+6*, CHANGE+7, CHANGE+8*, CHANGE+9*, CHANGE+10*, CHANGE+11, CAPS~, CAPS+2, CAPS+3 , CAPS+9*, CAPS+10 |
| SUBCOL | FORMAT+6~, FORMAT+9*, FORMAT+12, FORMAT+15, FORMAT2+6~, FORMAT2+9*, FORMAT2+12, FORMAT2+15, CHANGE~, CHANGE+3 , SUBCOL+3~, SUBCOL+5*, SUBCOL+6* |
| TYPE | FORMAT+6~, FORMAT+12*, FORMAT+15, FORMAT2+6~, FORMAT2+12*, FORMAT2+15, TYPE+1~*, TYPE+5*, TYPE+6, CHANGE~ , CHANGE+8, CHANGE+9, CHANGE+10 |
| >> VALMBCK | NEWLIST+3*, NEWLIST+13*, NEWLIST+28*, FORMAT+17*, FORMAT2+18* |
| >> X | NEWLIST+17*, ADDGROUP+4* |
| >> Y | NEWLIST+19, ADDGROUP+6, TYPE+5 |