©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
IBDF5C ;ALB/CJM - ENCOUNTER FORM (creating a new block) ;MARCH 22,1993
Source file <IBDF5C.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Information Collection System | 8 | $$SELECT2^IBDF13 (UNCMPALL,UNCMPBLK)^IBDF19 JUSTDATA^IBDF2A IDXFORM^IBDF5A $$COPYBLK^IBDFU2 DLTCNTNT^IBDFU3 ($$CURX,$$CURY,IDXBLOCK,POS)^IBDFU4 (PAUSE,TOPNBOT)^IBDFU5 |
| VA Fileman | 5 | NOW^%DTC FILE^DICN ^DIE ^DIK ^DIR |
| Registration | 2 | FULL^VALM1 RE^VALM4 |
| Package | Total | Caller Graph |
|---|---|---|
| Automated Information Collection System | 2 | IBDF13 IBDF5D |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PATIENT() | ;asks for a patient, returns the DFN
|
|
| CREATE() | ;creates the new block and allows the user to edit it
|
|
| VIEW | ;toggles between viewing form with data and without data
|
|
| NEWNAME() | ;
|
|
| NEWBLOCK | ;adds a new block, expects IBFORM to be defined
|
|
| REDRAW | ;redraws the ;entire form
|
|
| COPYBLK | ;copies a block from another form,whether in the toolkit or not, expects IBFORM=current work form to be defined
|
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | VIEW+6 |
| FILE^DICN | CREATE+10 |
| ^DIE | CREATE+20 |
| ^DIK | CREATE+21 |
| ^DIR | NEWNAME+2, PATIENT+2 |
| $$SELECT2^IBDF13 | COPYBLK+2 |
| UNCMPALL^IBDF19 | REDRAW+2 |
| UNCMPBLK^IBDF19 | VIEW+12 |
| JUSTDATA^IBDF2A | VIEW+11 |
| IDXFORM^IBDF5A | NEWBLOCK+6, REDRAW+3, COPYBLK+7 |
| $$COPYBLK^IBDFU2 | COPYBLK+3 |
| DLTCNTNT^IBDFU3 | CREATE+16 |
| $$CURX^IBDFU4 | COPYBLK+3 |
| $$CURY^IBDFU4 | COPYBLK+3 |
| IDXBLOCK^IBDFU4 | VIEW+12 |
| POS^IBDFU4 | COPYBLK+5 |
| PAUSE^IBDFU5 | CREATE+13 |
| TOPNBOT^IBDFU5 | NEWBLOCK+5, COPYBLK+6 |
| FULL^VALM1 | VIEW+4 |
| RE^VALM4 | COPYBLK+4 |
| FileNo | Call Tags |
|---|---|
| ^IBE(357.1 - [#357.1] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE(357.1 - [#357.1] | CREATE+18* |
| ^TMP("IB" | VIEW+11! |
| Name | Line Occurrences |
|---|---|
| $$CREATE | NEWBLOCK+3 |
| $$NEWNAME | CREATE+8 |
| $$PATIENT | VIEW+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | VIEW+6! |
| %H | VIEW+6! |
| %I | VIEW+6! |
| BOT | NEWBLOCK+1~, NEWBLOCK+5, NEWBLOCK+6, COPYBLK+1~, COPYBLK+6, COPYBLK+7 |
| DA | CREATE+10!, CREATE+20!*, CREATE+21*! |
| DA(1 | CREATE+21! |
| DD | CREATE+9! |
| >> DFN | VIEW+5*, VIEW+6 |
| DIC | CREATE+9!*, CREATE+10!, CREATE+13!, CREATE+20! |
| DIC(0 | CREATE+9* |
| DIE | CREATE+9!, CREATE+10!, CREATE+13!, CREATE+20!* |
| DIE("NO^" | CREATE+20* |
| DIK | CREATE+21*! |
| DINUM | CREATE+9! |
| DIR | NEWNAME+1!, NEWNAME+2!, PATIENT+1!, PATIENT+2! |
| DIR("A" | NEWNAME+1*, PATIENT+1* |
| DIR("B" | NEWNAME+1* |
| DIR(0 | NEWNAME+1*, PATIENT+1* |
| >> DIRUT | NEWNAME+2, PATIENT+2 |
| DLAYGO | CREATE+4~, CREATE+9* |
| DO | CREATE+9! |
| DR | CREATE+20*! |
| >> IBAPPT | VIEW+6* |
| IBBG | CREATE+4~, CREATE+5*, CREATE+7*, CREATE+18 |
| IBBLK | NEWBLOCK+1~, NEWBLOCK+3*, NEWBLOCK+4, NEWBLOCK+5, CREATE+4~, CREATE+11*, CREATE+12, CREATE+14, CREATE+16, CREATE+18 , CREATE+20, CREATE+21, CREATE+22, COPYBLK+1~, COPYBLK+2*, COPYBLK+3, VIEW+10, VIEW+12 |
| IBDFDONE | CREATE+4~, CREATE+21 |
| >> IBFORM | REDRAW+2, COPYBLK+3 |
| IBLFT | CREATE+4~, CREATE+5*, CREATE+7*, CREATE+18 |
| >> IBPRINT("WITH_DATA" | VIEW+2, VIEW+3, VIEW+6*, VIEW+7*, VIEW+11 |
| >> IBTKBLK | CREATE+7 |
| NAME | CREATE+4~, CREATE+8*, CREATE+9 |
| NEWBLOCK | COPYBLK+1~, COPYBLK+3*, COPYBLK+5, COPYBLK+6 |
| NODE | CREATE+4~ |
| STARTVAL | VIEW+1~, VIEW+2*, VIEW+11 |
| TOP | NEWBLOCK+1~, NEWBLOCK+5, NEWBLOCK+6, COPYBLK+1~, COPYBLK+6, COPYBLK+7 |
| >> VALMBCK | NEWBLOCK+2*, CREATE+6*, REDRAW+1*, COPYBLK+8*, VIEW+13* |
| >> VALMBG | CREATE+7 |
| >> VALMLFT | CREATE+7 |
| X | CREATE+9*, VIEW+6! |
| >> Y | CREATE+11, NEWNAME+3, PATIENT+2, PATIENT+3 |