Routine: IBDF9

Information

IBDF9 ;ALB/CJM - ENCOUNTER FORM - BUILD FORM(display single form block for edit) ; 08-JAN-1993

Package	Total	Call Graph
Automated Information Collection System	4	E^IBDF10 UNCMPBLK^IBDF19 $$PADRIGHT^IBDFU IDXBLOCK^IBDFU4
VA Fileman	2	^DIE ^DIR
Registration	1	FULL^VALM1

Name	Comments	DBIA/ICR reference
INIT	;
EXIT	;
HDR	;
RESIZE	;resize the block
EDITBLK	;edit the name,brief description, header and outline

Name	Line Occurrences (* Changed, ! Killed)
^IBE(357.1 - [#357.1]	EDITBLK+6, EDITBLK+8, EDITBLK+12, EDITBLK+18, EDITBLK+19

Name	Field # of Occurrence
AMOUNT	EDITBLK+16~, EDITBLK+17*
BOTTOM	EDITBLK+16~, EDITBLK+17*
DA	RESIZE+5!, EDITBLK+11!
DIE	RESIZE+5!, EDITBLK+11!
DIR	RESIZE+3!, RESIZE+4!, EDITBLK+8!
DIR("A"	RESIZE+3, RESIZE+4
DIR("B"	RESIZE+3, RESIZE+4, EDITBLK+8*
DIR(0	RESIZE+3, RESIZE+4, EDITBLK+8*
>> DIRUT	RESIZE+3, RESIZE+4, EDITBLK+9
DR	RESIZE+5!, EDITBLK+11!
HDR1	EDITBLK+2~, EDITBLK+7*, EDITBLK+15, EDITBLK+19
HDR2	EDITBLK+2~, EDITBLK+13*, EDITBLK+15, EDITBLK+18
>> I	HDR+2*
>> IBBLK	RESIZE+5, RESIZE+7, EDITBLK+6, EDITBLK+8, EDITBLK+11, EDITBLK+12, EDITBLK+18, EDITBLK+19, EDITBLK+20
>> IBBLK("H"	RESIZE+4, EDITBLK+17
>> IBBLK("W"	RESIZE+3, EDITBLK+17
>> IBFORM("HT"	RESIZE+4
>> IBFORM("WIDTH"	RESIZE+3
IBH	RESIZE+1~, RESIZE+4*
IBNAME	EDITBLK+3~, EDITBLK+10*
IBW	RESIZE+1~, RESIZE+3*
LEFT	EDITBLK+16~, EDITBLK+17*
NODE	EDITBLK+3~, EDITBLK+6, EDITBLK+7, EDITBLK+12, EDITBLK+13, EDITBLK+18, EDITBLK+19
QUIT	EDITBLK+3~, EDITBLK+4, EDITBLK+8, EDITBLK+9
RIGHT	EDITBLK+16~, EDITBLK+17*
TOP	EDITBLK+16~, EDITBLK+17*
>> VALMAR	EXIT+1
>> VALMBCK	RESIZE+2, RESIZE+6, EDITBLK+4*
>> VALMHDR(1	HDR+1, HDR+2
WAY	EDITBLK+16~, EDITBLK+18, EDITBLK+19
>> X	RESIZE+3, RESIZE+4
>> Y	EDITBLK+9, EDITBLK+10