©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
IBDFU1C ;ALB/CJM - ENCOUNTER FORM (sets various parameters);Jan 5, 1995
Source file <IBDFU1C.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ARRAYS(IBFORM,IBARRAY) | ;decide what arrays will be used to contain the form
|
|
| PRNTPRMS(IBPRINT,WITHDATA,ENTIRE,RECMPILE,WRITE) | ;
|
|
| FORMSIZE(IBFORM) | ;pass IBFORM by reference
|
|
| FORMDSCR(IBFORM) | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE(357 - [#357] | FORMDSCR+6, FORMDSCR+24, FORMSIZE+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ENTIRE | PRNTPRMS~, PRNTPRMS+8 |
| IBARRAY | ARRAYS~ |
| IBARRAY("BOXES" | ARRAYS+8*, ARRAYS+26* |
| IBARRAY("BUBBLES" | ARRAYS+9*, ARRAYS+27* |
| IBARRAY("CONTROLS" | ARRAYS+6*, ARRAYS+23* |
| IBARRAY("GRAPHICS" | ARRAYS+7*, ARRAYS+25* |
| IBARRAY("HAND_PRINT" | ARRAYS+10*, ARRAYS+28* |
| IBARRAY("OVERFLOW" | ARRAYS+30* |
| IBARRAY("TEXT" | ARRAYS+15*, ARRAYS+17, ARRAYS+19*, ARRAYS+29* |
| IBARRAY("UNDERLINES" | ARRAYS+5*, ARRAYS+24* |
| IBFORM | FORMDSCR~, FORMDSCR+4, FORMDSCR+6, FORMDSCR+24, FORMSIZE~, FORMSIZE+3, ARRAYS~ |
| IBFORM("COMPILED" | FORMDSCR+14*, ARRAYS+13, ARRAYS+19 |
| IBFORM("HT" | FORMDSCR+12*, FORMSIZE+8* |
| IBFORM("NAME" | FORMDSCR+8* |
| IBFORM("PAGES" | FORMDSCR+11*, FORMDSCR+12, FORMSIZE+7*, FORMSIZE+8 |
| IBFORM("PAGE_HT" | FORMDSCR+10*, FORMDSCR+12, FORMSIZE+6*, FORMSIZE+8 |
| IBFORM("PRINT_MODE" | FORMDSCR+21* |
| IBFORM("SCAN" | FORMDSCR+16*, FORMDSCR+17*, FORMDSCR+24* |
| IBFORM("TOOLKIT" | FORMDSCR+13*, ARRAYS+4, ARRAYS+22 |
| IBFORM("TYPE" | FORMDSCR+18*, ARRAYS+9, ARRAYS+10 |
| IBFORM("WIDTH" | FORMDSCR+9*, FORMSIZE+5* |
| IBPRINT | PRNTPRMS~ |
| IBPRINT("COMPILING_BLOCKS" | PRNTPRMS+9* |
| IBPRINT("ENTIRE" | PRNTPRMS+8* |
| IBPRINT("WITH_DATA" | PRNTPRMS+7* |
| IBPRINT("WRITE_IF_COMPILING" | PRNTPRMS+10* |
| IBROW | ARRAYS+14~, ARRAYS+17* |
| MODE | FORMDSCR+5~, FORMDSCR+20*, FORMDSCR+21 |
| NODE | FORMDSCR+5~, FORMDSCR+6*, FORMDSCR+7, FORMDSCR+8, FORMDSCR+9, FORMDSCR+10, FORMDSCR+11, FORMDSCR+13, FORMDSCR+14, FORMDSCR+16 , FORMDSCR+17, FORMDSCR+18, FORMDSCR+20, FORMDSCR+24*, FORMSIZE+2~, FORMSIZE+3*, FORMSIZE+4, FORMSIZE+5, FORMSIZE+6, FORMSIZE+7 |
| RECMPILE | PRNTPRMS~, PRNTPRMS+9 |
| SUB | FORMDSCR+5~, FORMDSCR+24* |
| TEXT | ARRAYS+14~, ARRAYS+16*, ARRAYS+17 |
| WITHDATA | PRNTPRMS~, PRNTPRMS+7 |
| WRITE | PRNTPRMS~, PRNTPRMS+10 |