Routine: IBDF13

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

IBDF13 ;ALB/CJM - ENCOUNTER FORM - EDITING TOOLKIT BLKS ; 24-JUN-1993

Source Information

Source file <IBDF13.m>

Call Graph

Call Graph Total: 17

Package	Total	Call Graph
Automated Information Collection System	11	($$ASKSAVE,COPYBLK,DLTCOPY,SAVECOPY)^IBDF5B $$CREATE^IBDF5C IDXBLKS^IBDF7 PRNTPRMS^IBDFU1C $$COPYBLK^IBDFU2 $$TKFORM^IBDFU2C (DLTBLK,DLTCNTNT)^IBDFU3 $$SLCTFORM^IBDFU4 $$RUSURE^IBDFU5 $$SLCTBLK^IBDFU8 DEVICE^IBDFUA
Registration	4	EN^VALM FULL^VALM1 EN^VALM2 RE^VALM4
VA Fileman	2	^DIE ^DIR

Caller Graph

Caller Graph Total: 8

Package	Total	Caller Graph
Automated Information Collection System	7	IBD3KPT IBDE3 IBDE4 IBDF EDIT TOOL KIT BLOCKS IBDF5C IBDY336 IBDY338
Integrated Billing	1	IBDF EDIT TOOL KIT BLOCKS

Entry Points

Name	Comments	DBIA/ICR reference
SELECT()	;allows the user to select from the displayed list of TK blocks
SELECT2(TK)	;allows the user to select a form, then a block from it
LIST	;displays list of toolkit blocks, then allows editng
DLTBLOCK	;allows user to select a blk, then deletes it
CHGORDER	;allows user to select a blk, then change it's order in the toolkit
NEWBLK	;creates a new toolkit block
EDITBLK	;allows user to select a blk, then displays it for edit
TKORDER()	;returns an unused number for the list of toolkit blocks
COPYBLK	;allows the user to select a block to copy

External References

Name	Field # of Occurrence
^DIE	CHGORDER+4, COPYBLK+14
^DIR	COPYBLK+6
$$ASKSAVE^IBDF5B	EDITBLK+15
COPYBLK^IBDF5B	EDITBLK+12
DLTCOPY^IBDF5B	EDITBLK+17
SAVECOPY^IBDF5B	EDITBLK+16
$$CREATE^IBDF5C	NEWBLK+3
IDXBLKS^IBDF7	EDITBLK+19, DLTBLOCK+4, CHGORDER+5, NEWBLK+4, COPYBLK+17
PRNTPRMS^IBDFU1C	LIST+7
$$COPYBLK^IBDFU2	COPYBLK+13
$$TKFORM^IBDFU2C	LIST+8
DLTBLK^IBDFU3	DLTBLOCK+4
DLTCNTNT^IBDFU3	COPYBLK+15
$$SLCTFORM^IBDFU4	SELECT2+6
$$RUSURE^IBDFU5	DLTBLOCK+4
$$SLCTBLK^IBDFU8	SELECT2+9
DEVICE^IBDFUA	LIST+5
EN^VALM	LIST+9, EDITBLK+13
FULL^VALM1	COPYBLK+3
EN^VALM2	SELECT+3
RE^VALM4	COPYBLK+9

Name	Line Occurrences (* Changed, ! Killed)
^IBE(357.1 - [#357.1]	DLTBLOCK+4, TKORDER+2

Name	Line Occurrences
$$SELECT	EDITBLK+9, DLTBLOCK+3, CHGORDER+3, COPYBLK+10
$$SELECT2	COPYBLK+11, COPYBLK+12
$$TKORDER	COPYBLK+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BLKLIST	LIST+1~
CHOICE	SELECT+1~, SELECT+4, COPYBLK+1~, COPYBLK+8, COPYBLK+9, COPYBLK+10, COPYBLK+11, COPYBLK+12
D0	LIST+1~
DA	LIST+1~, CHGORDER+4!, COPYBLK+14!, COPYBLK+15, COPYBLK+16!
DIC	CHGORDER+4!, COPYBLK+16!
DIE	CHGORDER+4!, COPYBLK+14!, COPYBLK+16!
DIR	COPYBLK+4!, COPYBLK+6!
DIR("A"	COPYBLK+5*
DIR(0	COPYBLK+4*
>> DIRUT	COPYBLK+7
DR	CHGORDER+4!, COPYBLK+14, COPYBLK+16!
IBBLK	LIST+1~, LIST+2, SELECT+1~, SELECT+2, SELECT+4, SELECT+5, EDITBLK+5~, EDITBLK+9, EDITBLK+10, EDITBLK+12* , EDITBLK+14, EDITBLK+16, EDITBLK+17, DLTBLOCK+1~, DLTBLOCK+3, DLTBLOCK+4, CHGORDER+1~, CHGORDER+3, CHGORDER+4, NEWBLK+1~ , NEWBLK+3, NEWBLK+4, COPYBLK+1~, COPYBLK+8, COPYBLK+10, COPYBLK+11, COPYBLK+12, COPYBLK+13, SELECT2+4~, SELECT2+5 , SELECT2+9*, SELECT2+10
IBBLK2	EDITBLK+5~, EDITBLK+8, EDITBLK+11, EDITBLK+12, EDITBLK+13, EDITBLK+14, EDITBLK+16, EDITBLK+17*
IBDEVICE	LIST+1~, LIST+5
IBFASTXT	LIST+1~, LIST+2*, EDITBLK+19
IBFORM	LIST+1~, LIST+8, DLTBLOCK+4, COPYBLK+13, SELECT2+4~, SELECT2+6, SELECT2+7, SELECT2+9
IBFORM("COMPILED"	LIST+3*
IBFORM("HT"	LIST+3*
IBFORM("NAME"	LIST+3*
IBFORM("PAGES"	LIST+3*
IBFORM("PAGE_HT"	LIST+3*
IBFORM("SCAN"	LIST+3*
IBFORM("TOOLKIT"	LIST+3*
IBFORM("WIDTH"	LIST+3*
IBJUNK	EDITBLK+5~, EDITBLK+11*, EDITBLK+12
>> IBPRINT	LIST+7
>> IBPRINT("WITH_DATA"	EDITBLK+18*
IBTKBLK	LIST+1~, LIST+2*
IBTKFORM	LIST+1~, LIST+2*
IBTKODR	EDITBLK+5~, EDITBLK+11*, EDITBLK+12, EDITBLK+16
IFSAVE	EDITBLK+5~, EDITBLK+15*, EDITBLK+16, EDITBLK+17
IOBLC	LIST+1~
IOBRC	LIST+1~
IOHL	LIST+1~
IOSL	SELECT2+9
IOTLC	LIST+1~
IOTRC	LIST+1~
IOVL	LIST+1~
NEWBLK	COPYBLK+1~, COPYBLK+13*, COPYBLK+14, COPYBLK+15
NUMBER	TKORDER+1~, TKORDER+2*, TKORDER+3
TK	SELECT2~, SELECT2+6
>> VALMAR	SELECT+4
>> VALMBCK	EDITBLK+7, DLTBLOCK+2, CHGORDER+2, NEWBLK+2, COPYBLK+2, COPYBLK+18
VALMEVL	LIST+6!
>> VALMY(""	SELECT+4
>> XQORNOD(0	SELECT+3
XQORS	LIST+6!
>> Y	COPYBLK+7, COPYBLK+8

Customize PDF page

Package: Automated Information Collection System

Routine: IBDF13

Call Graph Total: 17

Caller Graph Total: 8