©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
IBDF6 ;ALB/CJM - ENCOUNTER FORM - ENTRY FOR BUILDING A FORM ;NOV 16,1992
Source file <IBDF6.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Information Collection System | 5 | UNCMPL^IBDF19 PRNTPRMS^IBDFU1C (CLINICS,LIST)^IBDFU4 ($$LOCKFRM2,FREEFRM2,LOCKMSG2)^IBDFU7 DEVICE^IBDFUA |
| Registration | 4 | EN^VALM FULL^VALM1 FLDCTRL^VALM10 EN^VALM2 |
| Kernel | 1 | KILL^%ZISS |
| VA Fileman | 1 | ^DIR |
| Package | Total | Caller Graph |
|---|---|---|
| Automated Information Collection System | 1 | IBDF CLINIC SETUP/EDIT FORMS |
| Integrated Billing | 1 | IBDF CLINIC SETUP/EDIT FORMS |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PR(STR,LEN) | ; pad right
|
|
| CLNCNAME() | ;
|
|
| DISPLAY1(FORM,USE,ID) | ;
|
|
| ONEXIT | ;
|
|
| CHNGCLNC | ;allows the user to change the clinic
|
|
| SELECT | ||
| IDXFORMS | ;build an array of forms used by IBCLINIC for the list processor
|
|
| CLINIC | ;
|
|
| FORMLIST | ;
|
|
| ENTRY | ;adds an entry to the array
|
|
| ONENTRY | ;
|
|
| DISPLAY2(FORM) | ;
|
|
| SP(LEN) | ;
|
|
| EDITFORM | ;allows user to select a form, then displays it for edit
|
|
| HDR | ;
|
| Name | Field # of Occurrence |
|---|---|
| KILL^%ZISS | ONEXIT+1 |
| ^DIR | EDITFORM+7, CLINIC+3 |
| UNCMPL^IBDF19 | EDITFORM+10 |
| PRNTPRMS^IBDFU1C | EDITFORM+10 |
| CLINICS^IBDFU4 | EDITFORM+7 |
| LIST^IBDFU4 | EDITFORM+7 |
| $$LOCKFRM2^IBDFU7 | EDITFORM+9 |
| FREEFRM2^IBDFU7 | EDITFORM+10 |
| LOCKMSG2^IBDFU7 | EDITFORM+9 |
| DEVICE^IBDFUA | FORMLIST+3 |
| EN^VALM | FORMLIST+12, EDITFORM+10 |
| FULL^VALM1 | CHNGCLNC+2 |
| FLDCTRL^VALM10 | ENTRY+3 |
| EN^VALM2 | SELECT+2 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE(357 - [#357] | IDXFORMS+7, DISPLAY1+3, DISPLAY2+3 |
| ^SC - [#44] | CLNCNAME+1 |
| ^SD(409.95 - [#409.95] | IDXFORMS+4, IDXFORMS+5 |
| ^TMP("IB" | ONEXIT+2! |
| ^TMP("IBDF" | ONEXIT+2! |
| Name | Line Occurrences |
|---|---|
| $$CLNCNAME | HDR+1 |
| $$DISPLAY1 | ENTRY+3 |
| $$DISPLAY2 | ENTRY+4 |
| $$PR | DISPLAY1+5 |
| $$SP | DISPLAY1+2, DISPLAY1+5, DISPLAY2+2 |
| CLINIC | FORMLIST+11, CHNGCLNC+4 |
| ENTRY | IDXFORMS+9 |
| HDR | CHNGCLNC+5 |
| IDXFORMS | ONENTRY+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARY | EDITFORM+1~, EDITFORM+2*, EDITFORM+4, EDITFORM+7, EDITFORM+8! |
| B | PR+2~, PR+3*, PR+4 |
| D0 | ONEXIT+2! |
| DA | ONEXIT+2!, CLINIC+1~ |
| DESCR | DISPLAY2+1~, DISPLAY2+4*, DISPLAY2+5 |
| DFN | EDITFORM+1~ |
| DIC | CLINIC+1~ |
| DIE | CLINIC+1~ |
| DIR | FORMLIST+9!, EDITFORM+7!, CLINIC+1~, CLINIC+4! |
| DIR("A" | EDITFORM+7*, CLINIC+2* |
| DIR("B" | EDITFORM+7* |
| DIR(0 | EDITFORM+7*, CLINIC+2* |
| >> DIRUT | EDITFORM+7, CLINIC+5 |
| DR | CLINIC+1~ |
| FORM | IDXFORMS+1~, IDXFORMS+6*, IDXFORMS+7, ENTRY+3, ENTRY+4, DISPLAY1~, DISPLAY1+3, DISPLAY2~, DISPLAY2+3 |
| I | ONEXIT+2! |
| IBAPI | FORMLIST+1~ |
| IBAPI("INDEX" | FORMLIST+5*, CHNGCLNC+6 |
| IBAPI("SELECT" | FORMLIST+6*, EDITFORM+6 |
| IBAPPT | EDITFORM+1~ |
| IBCLINIC | FORMLIST+10*, FORMLIST+12, ONEXIT+2!, CLINIC+6*, IDXFORMS+4, CLNCNAME+1, CHNGCLNC+1, CHNGCLNC+4* |
| IBDEVICE | FORMLIST+1~, FORMLIST+3 |
| IBFASTXT | FORMLIST+7~, FORMLIST+8* |
| IBFORM | FORMLIST+1~, EDITFORM+1~, EDITFORM+7*, EDITFORM+9*, EDITFORM+10, SELECT+4* |
| IBPRINT | EDITFORM+1~, EDITFORM+10 |
| IBQUIT | ONEXIT+2! |
| IBTKFORM | FORMLIST+1~, FORMLIST+4* |
| ID | IDXFORMS+1~, IDXFORMS+3*, ENTRY+3*, ENTRY+4, DISPLAY1~, DISPLAY1+2 |
| IOBLC | FORMLIST+1~ |
| IOBRC | FORMLIST+1~ |
| IOHL | FORMLIST+1~ |
| IOTLC | FORMLIST+1~ |
| IOTRC | FORMLIST+1~ |
| IOVL | FORMLIST+1~ |
| LEN | PR~, PR+1, PR+2, PR+3, SP~, SP+1, SP+2 |
| NAME | DISPLAY1+1~, DISPLAY1+4*, DISPLAY1+5 |
| NODE | IDXFORMS+1~, IDXFORMS+5*, IDXFORMS+6, DISPLAY1+1~, DISPLAY1+3*, DISPLAY1+4, DISPLAY2+1~, DISPLAY2+3*, DISPLAY2+4 |
| RET | DISPLAY1+1~, DISPLAY1+2*, DISPLAY1+5*, DISPLAY1+6, DISPLAY2+1~, DISPLAY2+2*, DISPLAY2+5*, DISPLAY2+6 |
| RTNLIST | EDITFORM+1~ |
| S | SP+2~*, SP+3 |
| SAVECLNC | CHNGCLNC+1~*, CHNGCLNC+4 |
| SEL | SELECT+1~, SELECT+3*, SELECT+4 |
| SETUP | IDXFORMS+1~, IDXFORMS+3*, IDXFORMS+4*, IDXFORMS+5 |
| STR | PR~, PR+2*, PR+3, PR+4 |
| SUB | IDXFORMS+1~, IDXFORMS+6*, ENTRY+1, ENTRY+2, ENTRY+4 |
| SUBREC | IDXFORMS+1~ |
| USE | IDXFORMS+1~, IDXFORMS+8*, ENTRY+1*, ENTRY+2*, ENTRY+3, DISPLAY1~, DISPLAY1+5 |
| >> VALMAR | IDXFORMS+2, ENTRY+3, ENTRY+4, SELECT+4 |
| VALMBCK | ONEXIT+2!, EDITFORM+5*, EDITFORM+11*, CHNGCLNC+3* |
| >> VALMCNT | IDXFORMS+3*, ENTRY+3*, ENTRY+4* |
| VALMEVL | FORMLIST+9! |
| >> VALMHDR(1 | HDR+1* |
| VALMY | ONEXIT+2! |
| VALMY("" | SELECT+3 |
| X | ONEXIT+2! |
| >> XQORNOD(0 | SELECT+2 |
| XQORS | FORMLIST+9! |
| Y | ONEXIT+2!, EDITFORM+7, CLINIC+5, CLINIC+6 |