Routine: IBDFU4

Information

IBDFU4 ;ALB/CJM - ENCOUNTER FORM - BUILD FORM(write single form block to array for display,position & size copied block) ; 08-JAN-1993

Source file <IBDFU4.m>

Package	Total	Call Graph
Automated Information Collection System	4	DRWBLOCK^IBDF2A1 BLNKFORM^IBDF5A $$BLKDESCR^IBDFU1B DLTBLK^IBDFU3
VA Fileman	3	^DIC ^DIE ^DIR
Registration	2	FULL^VALM1 KILL^VALM10

Package	Total	Caller Graph
Automated Information Collection System	26	IBDE1 IBDE3 IBDECLN1 IBDF13 IBDF17 IBDF18 IBDF3 IBDF5B IBDF5C IBDF5D IBDF6 IBDF6A IBDF7 IBDF8 IBDF9 IBDF9A IBDF9A1 IBDF9B IBDF9B2 IBDF9B3 IBDF9B4 IBDF9D IBDF9E IBDFC IBDFC1 IBDFGRP

Name	Comments	DBIA/ICR reference
CURX()	;returns the current X position (top left corner of displayed poriton of the form - internal column value)
POS(NEWBLOCK,DFLTX,DFLTY)	;allows the user to position and size the block
CLINICS(FORM,ARY)	;finds the list of clinics using FORM
CURY()	;returns the current Y position (top left corner of displayed poriton of the form - internal row value)
LIST(ARY,SCRNSIZE)	;
IDXBLOCK	; create list containing block rows for list processor
SLCTFORM(TK,NODE)	;allows the user to select a form and returns the IEN

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"... BUILDING THE FORM BLOCK ..." Line Location: IDXBLOCK+3
Routine Call	DIE Line Location: POS+13
Routine Call	DIC Line Location: SLCTFORM+21
Routine Call	DIR Line Location: SLCTFORM+14 LIST+4 LIST+7 LIST+8

Name	Line Occurrences (* Changed, ! Killed)
^IBE(357.1 - [#357.1]	POS+9, POS+11*
^SC - [#44]	CLINICS+11
^SD(409.95 - [#409.95]	CLINICS+8, CLINICS+9

Name	Field # of Occurrence
ARY	CLINICS~, CLINICS+5, CLINICS+13, CLINICS+14, LIST~, LIST+7
CLINIC	CLINICS+4~, CLINICS+9, CLINICS+10, CLINICS+11, CLINICS+13, LIST+2~, LIST+5, LIST+7*
COUNT	CLINICS+4~, CLINICS+6, CLINICS+13, CLINICS+14, LIST+2~, LIST+5, LIST+7, LIST+8
DA	POS+12*, POS+13!
DFLTX	POS~, POS+5
DFLTY	POS~, POS+6
DIC	SLCTFORM+19!*, SLCTFORM+23!
DIC("A"	SLCTFORM+20*
DIC("S"	SLCTFORM+19*
DIC(0	SLCTFORM+19*
DIE	POS+12!*, POS+13!
DIR	SLCTFORM+13!, SLCTFORM+23!, LIST+2~, LIST+4!
DIR("A"	SLCTFORM+13, LIST+3
DIR("B"	LIST+3*
DIR(0	SLCTFORM+13, LIST+3, LIST+6*
>> DIRUT	SLCTFORM+15, LIST+4
DR	POS+12*, POS+13!
FORM	SLCTFORM+10~, SLCTFORM+21, SLCTFORM+22, SLCTFORM+24, CLINICS~, CLINICS+8
I	IDXBLOCK+2~, IDXBLOCK+11*, IDXBLOCK+12
IB	CURX+1~, CURX+2, CURX+3, CURY+1~, CURY+2, CURY+3
IBBLK	IDXBLOCK+4, IDXBLOCK+14, POS+7~, POS+8*
IBBLK("H"	IDXBLOCK+10, IDXBLOCK+12, IDXBLOCK+13
IBBLK("W"	IDXBLOCK+10, IDXBLOCK+11
>> IBDEVICE("LISTMAN"	SLCTFORM+18
IBDONE	POS+7~, POS+11*, POS+14
>> IBFORM	POS+14
IBX	POS+4~
IBY	POS+4~
IDX	CLINICS+4~, CLINICS+7*, CLINICS+8
NAME	CLINICS+4~, CLINICS+11*, CLINICS+12, CLINICS+13
NEWBLOCK	POS~, POS+8, POS+9, POS+11, POS+12, POS+14
NODE	POS+5, POS+6, POS+7~, POS+9, POS+11, SLCTFORM~, SLCTFORM+19, SLCTFORM+22
SCRNSIZE	LIST~, LIST+7
SETUP	CLINICS+4~, CLINICS+8*, CLINICS+9
TK	SLCTFORM~, SLCTFORM+11, SLCTFORM+12, SLCTFORM+15, SLCTFORM+17, SLCTFORM+19
>> VALMAR	IDXBLOCK+9, IDXBLOCK+12
>> VALMBG	CURY+2
>> VALMCNT	IDXBLOCK+13*
>> VALMLFT	CURX+2
Y	SLCTFORM+10~, SLCTFORM+15, SLCTFORM+21, SLCTFORM+23!, LIST+4, LIST+7
Y(0	SLCTFORM+22