Routine: IBDF5A

Information

IBDF5A ;ALB/CJM - ENCOUNTER FORM ;NOV 16,1992

Source file <IBDF5A.m>

Package	Total	Call Graph
Automated Information Collection System	2	DRWBLOCK^IBDF2A1 (PAUSE,TOPNBOT)^IBDFU5
Registration	2	$$SETSTR^VALM1 (CNTRL,KILL,SET)^VALM10

Package	Total	Caller Graph
Automated Information Collection System	7	IBDF5 IBDF5B IBDF5C IBDF5D IBDF7 IBDF9C IBDFU4

Name	Comments	DBIA/ICR reference
ANCHORS	;blanks out the areas near the anchors
IDXFORM(IBTOPLN,IBBOTLN)	;creates an array for the list processor
BLNKFORM(TOP,BOT,W)	;
PGBNDRY(ROW,HT,PGHT,NAME)	;checks the if the block=NAME starting at ROW and of hight HT overlaps a page boundry - if so a warning is displayed
WHITEOUT(IBY,IBX,LEN)	;erases at (IBY,IBX) for LEN characters
BETWEEN(BLOCK,TOP1,BOT1,BLKTOP)	;determines if the block=BLOCK falls between TOP1 and BOT!, also returns BLKTOP

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"... BUILDING THE FORM ..." Line Location: IDXFORM+7
Function Call: WRITE	Prompt: "." Line Location: IDXFORM+19
Function Call: WRITE	Prompt: "." Line Location: IDXFORM+24
Function Call: WRITE	Prompt: !,"WARNING: The block = ",NAME," overlaps page boundries!" Line Location: PGBNDRY+1

Name	Line Occurrences (* Changed, ! Killed)
^IBE(357.1 - [#357.1]	IDXFORM+21, IDXFORM+23

Name	Line Occurrences
$$BETWEEN	IDXFORM+22
ANCHORS	IDXFORM+29
BLNKFORM	IDXFORM+13, IDXFORM+19
PGBNDRY	IDXFORM+25
WHITEOUT	ANCHORS+3, ANCHORS+4, ANCHORS+5, ANCHORS+6, ANCHORS+7, ANCHORS+8

Name	Field # of Occurrence
BLKTOP	IDXFORM+6~, IDXFORM+22, IDXFORM+23, BETWEEN~, BETWEEN+2
BLOCK	BETWEEN~, BETWEEN+2
BOT	BLNKFORM~, BLNKFORM+4
BOT1	BETWEEN~, BETWEEN+3
BOT2	BETWEEN+1~*, BETWEEN+2, BETWEEN+3
CURLINE	WHITEOUT+1~, WHITEOUT+2, WHITEOUT+3, WHITEOUT+4
HT	PGBNDRY~, PGBNDRY+1
I	IDXFORM+14, IDXFORM+15, IDXFORM+20, BLNKFORM+3~, BLNKFORM+4*
IBBLK	IDXFORM+6~, IDXFORM+21*, IDXFORM+22, IDXFORM+23, IDXFORM+24
IBBLK("H"	IDXFORM+25
IBBLK("NAME"	IDXFORM+25
IBBLK("Y"	IDXFORM+25
IBBOTLN	IDXFORM~, IDXFORM+9, IDXFORM+18, IDXFORM+19, IDXFORM+20, IDXFORM+22, IDXFORM+23
>> IBFORM	IDXFORM+21
>> IBFORM("HT"	IDXFORM+11, IDXFORM+13, IDXFORM+15, IDXFORM+20
>> IBFORM("NAME"	IDXFORM+8
>> IBFORM("PAGES"	ANCHORS+2
>> IBFORM("PAGE_HT"	IDXFORM+25, BLNKFORM+4, ANCHORS+3, ANCHORS+4, ANCHORS+5, ANCHORS+6, ANCHORS+7, ANCHORS+8
>> IBFORM("SCAN"	ANCHORS+2
>> IBFORM("WIDTH"	IDXFORM+13, IDXFORM+14, IDXFORM+19, IDXFORM+20
IBTOPLN	IDXFORM~, IDXFORM+9, IDXFORM+18, IDXFORM+19, IDXFORM+20, IDXFORM+22, IDXFORM+23
IBX	WHITEOUT~, WHITEOUT+3
IBY	WHITEOUT~, WHITEOUT+2, WHITEOUT+4
>> IORVOFF	BLNKFORM+4
>> IORVON	BLNKFORM+4
LEN	WHITEOUT~, WHITEOUT+3
>> LN	IDXFORM+18*
NAME	PGBNDRY~, PGBNDRY+1
PAGE	ANCHORS+1~, ANCHORS+2*, ANCHORS+3, ANCHORS+4, ANCHORS+5, ANCHORS+6, ANCHORS+7, ANCHORS+8
PGHT	PGBNDRY~, PGBNDRY+1
ROW	PGBNDRY~, PGBNDRY+1
TOP	BLNKFORM~, BLNKFORM+4
TOP1	BETWEEN~, BETWEEN+3
TOP2	BETWEEN+1~*, BETWEEN+2, BETWEEN+3
>> VALMAR	IDXFORM+10, IDXFORM+15, IDXFORM+20, BLNKFORM+4, WHITEOUT+2
>> VALMCNT	IDXFORM+11*
>> VALMSG	IDXFORM+8*
W	BLNKFORM~, BLNKFORM+4