IBDFU4 ;ALB/CJM - ENCOUNTER FORM - BUILD FORM(write single form block to array for display,position & size copied block) ; 08-JAN-1993
Source file <IBDFU4.m>
| Package | Total | Call Graph | 
|---|---|---|
| Automated Information Collection System | 4 | DRWBLOCK^IBDF2A1 BLNKFORM^IBDF5A $$BLKDESCR^IBDFU1B DLTBLK^IBDFU3 | 
| VA Fileman | 3 | ^DIC ^DIE ^DIR | 
| Registration | 2 | FULL^VALM1 KILL^VALM10 | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| CURX() | ;returns the current X position (top left corner of displayed poriton of the form - internal column value) | |
| POS(NEWBLOCK,DFLTX,DFLTY) | ;allows the user to position and size the block | |
| CLINICS(FORM,ARY) | ;finds the list of clinics using FORM | |
| CURY() | ;returns the current Y position (top left corner of displayed poriton of the form - internal row value) | |
| LIST(ARY,SCRNSIZE) | ; | |
| IDXBLOCK | ; create list containing block rows for list processor | |
| SLCTFORM(TK,NODE) | ;allows the user to select a form and returns the IEN | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^IBE(357.1 - [#357.1] | POS+9, POS+11* | 
| ^SC - [#44] | CLINICS+11 | 
| ^SD(409.95 - [#409.95] | CLINICS+8, CLINICS+9 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| ARY | CLINICS~, CLINICS+5, CLINICS+13, CLINICS+14, LIST~, LIST+7 | 
| CLINIC | CLINICS+4~, CLINICS+9*, CLINICS+10, CLINICS+11, CLINICS+13, LIST+2~, LIST+5*, LIST+7* | 
| COUNT | CLINICS+4~, CLINICS+6*, CLINICS+13*, CLINICS+14, LIST+2~, LIST+5*, LIST+7*, LIST+8 | 
| DA | POS+12*, POS+13! | 
| DFLTX | POS~, POS+5 | 
| DFLTY | POS~, POS+6 | 
| DIC | SLCTFORM+19!*, SLCTFORM+23! | 
| DIC("A" | SLCTFORM+20* | 
| DIC("S" | SLCTFORM+19* | 
| DIC(0 | SLCTFORM+19* | 
| DIE | POS+12!*, POS+13! | 
| DIR | SLCTFORM+13!, SLCTFORM+23!, LIST+2~, LIST+4! | 
| DIR("A" | SLCTFORM+13*, LIST+3* | 
| DIR("B" | LIST+3* | 
| DIR(0 | SLCTFORM+13*, LIST+3*, LIST+6* | 
| >> DIRUT | SLCTFORM+15, LIST+4 | 
| DR | POS+12*, POS+13! | 
| FORM | SLCTFORM+10~*, SLCTFORM+21*, SLCTFORM+22, SLCTFORM+24, CLINICS~, CLINICS+8 | 
| I | IDXBLOCK+2~, IDXBLOCK+11*, IDXBLOCK+12 | 
| IB | CURX+1~, CURX+2*, CURX+3, CURY+1~, CURY+2*, CURY+3 | 
| IBBLK | IDXBLOCK+4, IDXBLOCK+14, POS+7~, POS+8* | 
| IBBLK("H" | IDXBLOCK+10, IDXBLOCK+12, IDXBLOCK+13 | 
| IBBLK("W" | IDXBLOCK+10, IDXBLOCK+11 | 
| >> IBDEVICE("LISTMAN" | SLCTFORM+18 | 
| IBDONE | POS+7~, POS+11*, POS+14 | 
| >> IBFORM | POS+14 | 
| IBX | POS+4~ | 
| IBY | POS+4~ | 
| IDX | CLINICS+4~, CLINICS+7*, CLINICS+8 | 
| NAME | CLINICS+4~, CLINICS+11*, CLINICS+12, CLINICS+13 | 
| NEWBLOCK | POS~, POS+8, POS+9, POS+11, POS+12, POS+14 | 
| NODE | POS+5*, POS+6*, POS+7~, POS+9*, POS+11, SLCTFORM~, SLCTFORM+19, SLCTFORM+22* | 
| SCRNSIZE | LIST~, LIST+7 | 
| SETUP | CLINICS+4~, CLINICS+8*, CLINICS+9 | 
| TK | SLCTFORM~, SLCTFORM+11*, SLCTFORM+12, SLCTFORM+15*, SLCTFORM+17, SLCTFORM+19 | 
| >> VALMAR | IDXBLOCK+9, IDXBLOCK+12 | 
| >> VALMBG | CURY+2 | 
| >> VALMCNT | IDXBLOCK+13* | 
| >> VALMLFT | CURX+2 | 
| Y | SLCTFORM+10~, SLCTFORM+15, SLCTFORM+21, SLCTFORM+23!, LIST+4, LIST+7 | 
| Y(0 | SLCTFORM+22 |