Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBD(357.95 - [#357.95] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call