IBDF19 ;ALB/CJM - ENCOUNTER FORM (compile forms,delete workcopy);NOV 22,1993
Source file <IBDF19.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Information Collection System | 7 | $$FORMTYPE^IBDF18D UNCMPBLK^IBDF19 DRWBLKS^IBDF2A SCAN^IBDFBKS ($$FORMDSCR,ARRAYS,PRNTPRMS)^IBDFU1C DLTBLK^IBDFU3 ($$LOCKFORM,FREEFORM)^IBDFU7 |
| VA FileMan | 2 | ^DIK ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GARBAGE | ;delete unused blocks (belonging to WORKCOPY form)
|
|
| COMPILE | ;compiles IBFORM at the form level - leaves blocks already compiled alone
|
|
| ASKCMPL(IBFORM) | ;ask if the form should be compiled or uncompiled
|
|
| CMPLACTN | ;action for compiling a form listed on the screen
|
|
| KILLTBL(IBFORM) | ;
; -- marks the FORM DEFINITION TABLE for deletion ; IBFORM("TYPE") is reset to "", pass IBFORM by reference |
|
| UNCMPL(IBFORM,FAILED) | ;marks the form as not compiled and deletes or marks for deletion the FORM DEFINITION TABLE
|
|
| UNCMPALL(IBFORM) | ;uncompile the form and it's blocks
|
|
| BLKCHNG(FORM,BLOCK) | ;call this if the block is edited - uncompiles the block and form
|
|
| UNCMPBLK(BLOCK) | ;delete the compiled version of the block
|
|
| KILL(TYPE) | ;deletes the form definition=TYPE
|
|
| RECMPALL | ;causes all forms to be recompiled
|
| Name | Field # of Occurrence |
|---|---|
| ^DIK | KILL+3 |
| ^DIR | ASKCMPL+6, RECMPALL+6 |
| $$FORMTYPE^IBDF18D | COMPILE+18 |
| UNCMPBLK^IBDF19 | UNCMPALL+4 |
| DRWBLKS^IBDF2A | COMPILE+14 |
| SCAN^IBDFBKS | COMPILE+23 |
| $$FORMDSCR^IBDFU1C | COMPILE+5 |
| ARRAYS^IBDFU1C | COMPILE+11 |
| PRNTPRMS^IBDFU1C | COMPILE+10 |
| DLTBLK^IBDFU3 | GARBAGE+7 |
| $$LOCKFORM^IBDFU7 | COMPILE+3, RECMPALL+12 |
| FREEFORM^IBDFU7 | COMPILE+21, RECMPALL+14 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^IBD(357.95 - [#357.95] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBD(357.95 - [#357.95] | KILLTBL+7*, KILL+1!, KILL+2! |
| ^IBE(357 - [#357] | GARBAGE+5, GARBAGE+11!, COMPILE+16*, COMPILE+18*, COMPILE+19*, ASKCMPL+3, KILLTBL+8!, KILLTBL+9*, UNCMPL+7, UNCMPL+10* , RECMPALL+11 |
| ^IBE(357.1 - [#357.1] | GARBAGE+7, UNCMPALL+4, UNCMPBLK+1! |
| ^TMP("IB" | COMPILE+12!, COMPILE+20! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BLK | GARBAGE+1~, GARBAGE+7*, ASKCMPL+2~, UNCMPALL+1~, UNCMPALL+4* |
| BLOCK | BLKCHNG~, BLKCHNG+1, UNCMPBLK~, UNCMPBLK+1 |
| CR | GARBAGE+1~, GARBAGE+11* |
| DA | KILL+3!* |
| DFN | COMPILE+6~, COMPILE+8* |
| DIK | KILL+3*! |
| DIR | ASKCMPL+5!, ASKCMPL+6!, RECMPALL+1~ |
| DIR("?" | RECMPALL+4* |
| DIR("A" | RECMPALL+5* |
| DIR("B" | ASKCMPL+5* |
| DIR(0 | ASKCMPL+5*, RECMPALL+5* |
| DIRUT | RECMPALL+1~ |
| DT | KILLTBL+7 |
| DTOUT | RECMPALL+1~ |
| DUOUT | ASKCMPL+7, RECMPALL+1~ |
| FAILED | UNCMPL~, UNCMPL+10 |
| FORM | GARBAGE+1~, GARBAGE+11*, BLKCHNG~, BLKCHNG+2 |
| I | COMPILE+20! |
| >> IBAPI("SELECT" | CMPLACTN+2 |
| IBAPPT | COMPILE+6~, COMPILE+8* |
| IBARRAY | COMPILE+6~, COMPILE+11 |
| IBARRAY( | COMPILE+13 |
| IBCLINIC | COMPILE+6~, COMPILE+8* |
| IBDEVICE | COMPILE+6~ |
| IBDEVICE("CRT" | COMPILE+8* |
| IBDEVICE("GRAPHICS" | COMPILE+7* |
| IBDEVICE("LISTMAN" | COMPILE+8* |
| IBDEVICE("PCL" | COMPILE+8* |
| IBDEVICE("RASTER" | COMPILE+7* |
| IBFORM | COMPILE+3, COMPILE+5, COMPILE+9, COMPILE+11, COMPILE+16, COMPILE+18, COMPILE+19, COMPILE+21, ASKCMPL~, ASKCMPL+1 , ASKCMPL+3, ASKCMPL+10, CMPLACTN+1~, CMPLACTN+3, KILLTBL~, KILLTBL+8, KILLTBL+9, UNCMPL~, UNCMPL+5, UNCMPL+7 , UNCMPL+9, UNCMPL+10, UNCMPALL~, UNCMPALL+2, UNCMPALL+4, RECMPALL+1~, RECMPALL+10*, RECMPALL+11*, RECMPALL+12, RECMPALL+13 , RECMPALL+14 |
| IBFORM("COMPILED" | COMPILE+5, COMPILE+15*, COMPILE+16, COMPILE+18, COMPILE+23, UNCMPL+10* |
| IBFORM("SCAN" | COMPILE+18, COMPILE+23, UNCMPL+8* |
| IBFORM("TYPE" | COMPILE+18*, COMPILE+23, KILLTBL+4, KILLTBL+7, KILLTBL+8, KILLTBL+9*, UNCMPL+8*, UNCMPL+9 |
| IBJUNK | GARBAGE+1~, GARBAGE+5*, GARBAGE+7 |
| IBPRINT | COMPILE+6~, COMPILE+10 |
| IBQUIT | RECMPALL+1~, RECMPALL+2*, RECMPALL+6*, RECMPALL+7 |
| NODE | UNCMPL+6~, UNCMPL+7*, UNCMPL+8 |
| QUIT | ASKCMPL+2~*, ASKCMPL+7*, ASKCMPL+8 |
| SUB | COMPILE+6~, COMPILE+13* |
| TYPE | KILL~, KILL+1, KILL+2, KILL+3 |
| >> VALMBCK | CMPLACTN+4* |
| X | COMPILE+20! |
| Y | COMPILE+20!, ASKCMPL+7, RECMPALL+6 |
| >> ZTQUEUED | RECMPALL+3, RECMPALL+9, RECMPALL+15, RECMPALL+16 |
