©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
IBDF13 ;ALB/CJM - ENCOUNTER FORM - EDITING TOOLKIT BLKS ; 24-JUN-1993
Source file <IBDF13.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Information Collection System | 11 | ($$ASKSAVE,COPYBLK,DLTCOPY,SAVECOPY)^IBDF5B $$CREATE^IBDF5C IDXBLKS^IBDF7 PRNTPRMS^IBDFU1C $$COPYBLK^IBDFU2 $$TKFORM^IBDFU2C (DLTBLK,DLTCNTNT)^IBDFU3 $$SLCTFORM^IBDFU4 $$RUSURE^IBDFU5 $$SLCTBLK^IBDFU8 DEVICE^IBDFUA |
| Registration | 4 | EN^VALM FULL^VALM1 EN^VALM2 RE^VALM4 |
| VA Fileman | 2 | ^DIE ^DIR |
| Package | Total | Caller Graph |
|---|---|---|
| Automated Information Collection System | 7 | IBD3KPT IBDE3 IBDE4 IBDF EDIT TOOL KIT BLOCKS IBDF5C IBDY336 IBDY338 |
| Integrated Billing | 1 | IBDF EDIT TOOL KIT BLOCKS |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SELECT() | ;allows the user to select from the displayed list of TK blocks
|
|
| SELECT2(TK) | ;allows the user to select a form, then a block from it
|
|
| LIST | ;displays list of toolkit blocks, then allows editng
|
|
| DLTBLOCK | ;allows user to select a blk, then deletes it
|
|
| CHGORDER | ;allows user to select a blk, then change it's order in the toolkit
|
|
| NEWBLK | ;creates a new toolkit block
|
|
| EDITBLK | ;allows user to select a blk, then displays it for edit
|
|
| TKORDER() | ;returns an unused number for the list of toolkit blocks
|
|
| COPYBLK | ;allows the user to select a block to copy
|
| Name | Field # of Occurrence |
|---|---|
| ^DIE | CHGORDER+4, COPYBLK+14 |
| ^DIR | COPYBLK+6 |
| $$ASKSAVE^IBDF5B | EDITBLK+15 |
| COPYBLK^IBDF5B | EDITBLK+12 |
| DLTCOPY^IBDF5B | EDITBLK+17 |
| SAVECOPY^IBDF5B | EDITBLK+16 |
| $$CREATE^IBDF5C | NEWBLK+3 |
| IDXBLKS^IBDF7 | EDITBLK+19, DLTBLOCK+4, CHGORDER+5, NEWBLK+4, COPYBLK+17 |
| PRNTPRMS^IBDFU1C | LIST+7 |
| $$COPYBLK^IBDFU2 | COPYBLK+13 |
| $$TKFORM^IBDFU2C | LIST+8 |
| DLTBLK^IBDFU3 | DLTBLOCK+4 |
| DLTCNTNT^IBDFU3 | COPYBLK+15 |
| $$SLCTFORM^IBDFU4 | SELECT2+6 |
| $$RUSURE^IBDFU5 | DLTBLOCK+4 |
| $$SLCTBLK^IBDFU8 | SELECT2+9 |
| DEVICE^IBDFUA | LIST+5 |
| EN^VALM | LIST+9, EDITBLK+13 |
| FULL^VALM1 | COPYBLK+3 |
| EN^VALM2 | SELECT+3 |
| RE^VALM4 | COPYBLK+9 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE(357.1 - [#357.1] | DLTBLOCK+4, TKORDER+2 |
| Name | Line Occurrences |
|---|---|
| $$SELECT | EDITBLK+9, DLTBLOCK+3, CHGORDER+3, COPYBLK+10 |
| $$SELECT2 | COPYBLK+11, COPYBLK+12 |
| $$TKORDER | COPYBLK+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BLKLIST | LIST+1~ |
| CHOICE | SELECT+1~, SELECT+4*, COPYBLK+1~, COPYBLK+8*, COPYBLK+9, COPYBLK+10, COPYBLK+11, COPYBLK+12 |
| D0 | LIST+1~ |
| DA | LIST+1~, CHGORDER+4!*, COPYBLK+14!*, COPYBLK+15, COPYBLK+16! |
| DIC | CHGORDER+4!, COPYBLK+16! |
| DIE | CHGORDER+4!*, COPYBLK+14!*, COPYBLK+16! |
| DIR | COPYBLK+4!, COPYBLK+6! |
| DIR("A" | COPYBLK+5* |
| DIR(0 | COPYBLK+4* |
| >> DIRUT | COPYBLK+7 |
| DR | CHGORDER+4*!, COPYBLK+14*, COPYBLK+16! |
| IBBLK | LIST+1~, LIST+2*, SELECT+1~, SELECT+2*, SELECT+4*, SELECT+5, EDITBLK+5~, EDITBLK+9*, EDITBLK+10, EDITBLK+12* , EDITBLK+14, EDITBLK+16*, EDITBLK+17*, DLTBLOCK+1~, DLTBLOCK+3*, DLTBLOCK+4, CHGORDER+1~, CHGORDER+3*, CHGORDER+4, NEWBLK+1~ , NEWBLK+3*, NEWBLK+4, COPYBLK+1~, COPYBLK+8*, COPYBLK+10*, COPYBLK+11*, COPYBLK+12*, COPYBLK+13, SELECT2+4~, SELECT2+5* , SELECT2+9*, SELECT2+10 |
| IBBLK2 | EDITBLK+5~, EDITBLK+8*, EDITBLK+11*, EDITBLK+12*, EDITBLK+13, EDITBLK+14, EDITBLK+16*, EDITBLK+17* |
| IBDEVICE | LIST+1~, LIST+5 |
| IBFASTXT | LIST+1~, LIST+2*, EDITBLK+19 |
| IBFORM | LIST+1~, LIST+8*, DLTBLOCK+4, COPYBLK+13, SELECT2+4~, SELECT2+6*, SELECT2+7, SELECT2+9 |
| IBFORM("COMPILED" | LIST+3* |
| IBFORM("HT" | LIST+3* |
| IBFORM("NAME" | LIST+3* |
| IBFORM("PAGES" | LIST+3* |
| IBFORM("PAGE_HT" | LIST+3* |
| IBFORM("SCAN" | LIST+3* |
| IBFORM("TOOLKIT" | LIST+3* |
| IBFORM("WIDTH" | LIST+3* |
| IBJUNK | EDITBLK+5~, EDITBLK+11*, EDITBLK+12 |
| >> IBPRINT | LIST+7 |
| >> IBPRINT("WITH_DATA" | EDITBLK+18* |
| IBTKBLK | LIST+1~, LIST+2* |
| IBTKFORM | LIST+1~, LIST+2* |
| IBTKODR | EDITBLK+5~, EDITBLK+11*, EDITBLK+12, EDITBLK+16 |
| IFSAVE | EDITBLK+5~, EDITBLK+15*, EDITBLK+16, EDITBLK+17 |
| IOBLC | LIST+1~ |
| IOBRC | LIST+1~ |
| IOHL | LIST+1~ |
| IOSL | SELECT2+9 |
| IOTLC | LIST+1~ |
| IOTRC | LIST+1~ |
| IOVL | LIST+1~ |
| NEWBLK | COPYBLK+1~, COPYBLK+13*, COPYBLK+14, COPYBLK+15 |
| NUMBER | TKORDER+1~, TKORDER+2*, TKORDER+3 |
| TK | SELECT2~, SELECT2+6 |
| >> VALMAR | SELECT+4 |
| >> VALMBCK | EDITBLK+7*, DLTBLOCK+2*, CHGORDER+2*, NEWBLK+2*, COPYBLK+2*, COPYBLK+18* |
| VALMEVL | LIST+6! |
| >> VALMY("" | SELECT+4 |
| >> XQORNOD(0 | SELECT+3 |
| XQORS | LIST+6! |
| >> Y | COPYBLK+7, COPYBLK+8 |