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

Customize PDF page

Package: Automated Information Collection System

Routine: IBDF19

Call Graph Total: 9

Caller Graph Total: 32