Routine: IBDFU2C

Package	Total	Call Graph
Automated Information Collection System	5	KILLTBL^IBDF19 $$FORMDSCR^IBDFU1C $$COPYBLK^IBDFU2 DLTBLK^IBDFU3 ($$RUSURE,PAUSE)^IBDFU5
VA Fileman	3	FILE^DICN (,EN1,IX,IX1)^DIK ^DIR

Package	Total	Caller Graph
Automated Information Collection System	12	IBD3KPT IBDE1 IBDE3 IBDE4 IBDF12 IBDF13 IBDF6A IBDFC1 IBDFC2 IBDFC3 IBDY336 IBDY338

Entry Points

Name	Comments	DBIA/ICR reference
COPYFORM(OLDFORM,FROMFILE,TOFILE,NEWNAME,TK)	;
NEWNAME(OLDNAME)	;asks the user to select a unique form name
TKFORM()	;returns the form TOOL KIT that contains all of the tool kit blocs
DELETE(FORM,FILE,ASK)	;deletes the FORM in FILE- if ASK then asks permission first

External References

Name	Field # of Occurrence
FILE^DICN	COPYFORM+14, TKFORM+5
^DIK	DELETE+12
EN1^DIK	TKFORM+12
IX^DIK	COPYFORM+35
IX1^DIK	COPYFORM+23, TKFORM+9
^DIR	NEWNAME+8
KILLTBL^IBDF19	DELETE+8
$$FORMDSCR^IBDFU1C	DELETE+7
$$COPYBLK^IBDFU2	COPYFORM+38
DLTBLK^IBDFU3	COPYFORM+24, DELETE+10
$$RUSURE^IBDFU5	DELETE+3
PAUSE^IBDFU5	COPYFORM+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Unable to create a new form!" Line Location: COPYFORM+16
Function Call: WRITE	Prompt: "." Line Location: COPYFORM+38
Function Call: WRITE	Prompt: "." Line Location: DELETE+10
Routine Call	DIR Line Location: NEWNAME+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBE(357 - [#357]	Classic Fileman Calls
^IBE(357.1 - [#357.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBE(	COPYFORM+8, COPYFORM+21, COPYFORM+22, COPYFORM+23!, COPYFORM+27, COPYFORM+30, COPYFORM+31, COPYFORM+34*, COPYFORM+38, DELETE+3 , DELETE+10
^IBE(357 - [#357]	DELETE+11!, NEWNAME+9, TKFORM+2, TKFORM+8*
^IBE(357.1 - [#357.1]	TKFORM+10, TKFORM+11!, TKFORM+12!*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ASK	DELETE~, DELETE+3
BLKFILE	DELETE+4~, DELETE+9*, DELETE+10
BLOCK	COPYFORM+7~, COPYFORM+21, COPYFORM+22, COPYFORM+23, COPYFORM+24, DELETE+4~, DELETE+10, TKFORM+1~, TKFORM+10*, TKFORM+11 , TKFORM+12
CR	DELETE+4~, DELETE+11*
DA	COPYFORM+23!, COPYFORM+35, DELETE+12!, TKFORM+5!, TKFORM+9, TKFORM+12*
DD	COPYFORM+13!, TKFORM+4!
DIC	COPYFORM+13!, COPYFORM+14!, TKFORM+4!, TKFORM+5!
DIC(0	COPYFORM+13, TKFORM+4
DIE	COPYFORM+14!, TKFORM+5!
DIK	COPYFORM+23!, COPYFORM+35!, DELETE+12!, TKFORM+9!, TKFORM+12!*
DIK(1	TKFORM+12*
DINUM	COPYFORM+13!, TKFORM+4!
DIR	NEWNAME+5!, NEWNAME+12!
DIR("?"	NEWNAME+5*
DIR("A"	NEWNAME+5*
DIR("B"	NEWNAME+6*
DIR(0	NEWNAME+5*
>> DIRUT	NEWNAME+8
DO	COPYFORM+13!, TKFORM+4!
FILE	DELETE~, DELETE+2, DELETE+3, DELETE+6, DELETE+9, DELETE+11, DELETE+12
FORM	DELETE~, DELETE+1, DELETE+3, DELETE+7, DELETE+8, DELETE+10, DELETE+11, DELETE+12, DELETE+13!, TKFORM+12*
FORM("TYPE"	DELETE+8
FROM	COPYFORM+7~, COPYFORM+19*, COPYFORM+38
FROMFILE	COPYFORM~, COPYFORM+3, COPYFORM+4, COPYFORM+8, COPYFORM+19, COPYFORM+30, COPYFORM+31, COPYFORM+34
IBDELETE	COPYFORM+7~
>> IBE(357	NEWNAME+6
NAME	NEWNAME+4~, NEWNAME+11, NEWNAME+13
NEWBLOCK	COPYFORM+7~, COPYFORM+38*
NEWFORM	COPYFORM+7~, COPYFORM+15*, COPYFORM+16, COPYFORM+21, COPYFORM+22, COPYFORM+23, COPYFORM+24, COPYFORM+27, COPYFORM+31, COPYFORM+34 , COPYFORM+35, COPYFORM+38, COPYFORM+39
NEWNAME	COPYFORM~, COPYFORM+9, COPYFORM+10*, COPYFORM+13
NODE	COPYFORM+7~, COPYFORM+8, COPYFORM+9, COPYFORM+10, COPYFORM+11, COPYFORM+12, COPYFORM+27, COPYFORM+30, COPYFORM+31, COPYFORM+34*
OLDBLOCK	COPYFORM+7~, COPYFORM+38*
OLDFORM	COPYFORM~, COPYFORM+3, COPYFORM+6, COPYFORM+8, COPYFORM+30, COPYFORM+31, COPYFORM+34, COPYFORM+38
OLDNAME	NEWNAME~, NEWNAME+6
PAGE	COPYFORM+7~, COPYFORM+31*
QUIT	NEWNAME+4~, NEWNAME+7, NEWNAME+8, NEWNAME+11*
TK	COPYFORM~, COPYFORM+11, TKFORM+1~, TKFORM+11*
TKFORM	TKFORM+1~, TKFORM+2, TKFORM+3, TKFORM+6, TKFORM+7, TKFORM+8, TKFORM+9, TKFORM+12, TKFORM+13
TKORDER	TKFORM+1~, TKFORM+10*, TKFORM+11
TO	COPYFORM+7~, COPYFORM+20*, COPYFORM+22, COPYFORM+23, COPYFORM+24, COPYFORM+38
TOFILE	COPYFORM~, COPYFORM+3, COPYFORM+5, COPYFORM+13, COPYFORM+20, COPYFORM+21, COPYFORM+27, COPYFORM+31, COPYFORM+34, COPYFORM+35
>> X	COPYFORM+13, TKFORM+4
>> Y	COPYFORM+15, NEWNAME+9, NEWNAME+11, TKFORM+6

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFU2C

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Local Variables

Legend: