Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBDF19

Package: Automated Information Collection System

Routine: IBDF19


Information

IBDF19 ;ALB/CJM - ENCOUNTER FORM (compile forms,delete workcopy);NOV 22,1993

Source Information

Source file <IBDF19.m>

Call Graph

Call Graph Total: 9

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  

Caller Graph

Caller Graph Total: 32

Package Total Caller Graph
Automated Information Collection System 30 IBD3KPT  IBDF MISCELLANEOUS CLEANUP  IBDF RECOMPILE ALL FORMS  IBDF19  IBDF2A  IBDF2A1  IBDF3  IBDF5  
IBDF5B  IBDF5C  IBDF6  IBDF6C  IBDF9  IBDF9A  IBDF9A1  IBDF9B  
IBDF9B2  IBDF9B3  IBDF9B4  IBDF9C  IBDF9D  IBDF9E  IBDFC2  IBDFM1  
IBDFQSL  IBDFU10  IBDFU2C  IBDFUTL2  IBDFUTL3  IBDY314  
Integrated Billing 2 IBDF MISCELLANEOUS CLEANUP  IBDF RECOMPILE ALL FORMS  

Entry Points

Name Comments DBIA/ICR reference
BLKCHNG(FORM,BLOCK) ;call this if the block is edited - uncompiles the block and form
ASKCMPL(IBFORM) ;ask if the form should be compiled or uncompiled
KILL(TYPE) ;deletes the form definition=TYPE
UNCMPL(IBFORM,FAILED) ;marks the form as not compiled and deletes or marks for deletion the FORM DEFINITION TABLE
GARBAGE ;delete unused blocks (belonging to WORKCOPY form)
KILLTBL(IBFORM) ;
; -- marks the FORM DEFINITION TABLE for deletion
; IBFORM("TYPE") is reset to "", pass IBFORM by reference
RECMPALL ;causes all forms to be recompiled
COMPILE ;compiles IBFORM at the form level - leaves blocks already compiled alone
CMPLACTN ;action for compiling a form listed on the screen
UNCMPALL(IBFORM) ;uncompile the form and it's blocks
UNCMPBLK(BLOCK) ;delete the compiled version of the block

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Blocks not belonging to any form have been deleted"
  • Line Location: GARBAGE+8
Function Call: WRITE
  • Prompt: !,"Extraneous cross-references on non-existant forms have been deleted"
  • Line Location: GARBAGE+12
Function Call: WRITE
  • Prompt: !!,"Okay, nothing recompiled"
  • Line Location: RECMPALL+7
Routine Call
  • DIR
  • Line Location:
    • ASKCMPL+6
    • RECMPALL+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBD(357.95 - [#357.95] Classic Fileman Calls

Global Variables Directly Accessed

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!

Label References

Name Line Occurrences
ASKCMPL CMPLACTN+3
KILLTBL UNCMPL+9
UNCMPALL ASKCMPL+10, RECMPALL+13
UNCMPBLK BLKCHNG+1
UNCMPL COMPILE+9, UNCMPALL+2, BLKCHNG+2

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All