Routine: IBDF9A

Information

IBDF9A ;ALB/CJM - ENCOUNTER FORM - (create,edit,delete selection list) ;FEB 1,1993

Source Information

Source file <IBDF9A.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Automated Information Collection System	5	(BLKCHNG,UNCMPBLK)^IBDF19 (ADDSC,DELSC,GETSC)^IBDF9A3 DLTLIST^IBDFU3 IDXBLOCK^IBDFU4 ($$RUSURE,PAUSE)^IBDFU5
VA Fileman	5	IX^DIC MIX^DIC1 ^DIE IX^DIK ^DIR
Registration	1	FULL^VALM1

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Automated Information Collection System	4	IBDF9A1 IBDFC2A IBDXI2 IBDXI22

Entry Points

Name	Comments	DBIA/ICR reference
AGAIN
MSG1	;called by the input template
DATASIZE(RTN)	;IBLEN() stores the lengths of the pieces of the record returned by the package interface
MSG3	;called by the input template
MSG2	;called by the input template
RTN()	;does a lookup on the package interface file using the E cross-reference, which uses the name with the prefix=namespace removed
LIST	;Create, Edit, or Delete a selection list from the form
NOSUCH	;
NEWNAME()	;
COLUMNS	;allows the user to place and size the columns of the list
SWITCH(IBLIST,IBARRY)	;FOR loops thru selection list and changes all subcolumn numbers from old to new (called only once)
LISTTYPE(RTN)	;sets IBDYN=1 if the rtn is dynamic selection,IBINPUT to the input interface
DLTLIST	;expects IBBLK to be defined
EDITLIST	;allows editing of the structure of a list
OTHEROK(PI)	;returns 1 if the selection interface=PI allows 'other', 0 otherwise
SELECT	;

External References

Name	Field # of Occurrence
IX^DIC	AGAIN+2
MIX^DIC1	RTN+2
^DIE	EDITLIST+13, COLUMNS+7, SWITCH+9
IX^DIK	SWITCH+13
^DIR	LIST+9, AGAIN+4, NEWNAME+2
BLKCHNG^IBDF19	EDITLIST+24
UNCMPBLK^IBDF19	COLUMNS+8, DLTLIST+7
ADDSC^IBDF9A3	EDITLIST+23
DELSC^IBDF9A3	EDITLIST+17, EDITLIST+22
GETSC^IBDF9A3	EDITLIST+11, EDITLIST+21
DLTLIST^IBDFU3	DLTLIST+6
IDXBLOCK^IBDFU4	EDITLIST+25, COLUMNS+8, DLTLIST+7
$$RUSURE^IBDFU5	DLTLIST+5
PAUSE^IBDFU5	SELECT+3
FULL^VALM1	EDITLIST+5, COLUMNS+4, DLTLIST+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,DIR("?",1),!,DIR("?"),! Line Location: LIST+8
Function Call: WRITE	Prompt: !,"There is no selection list!" Line Location: SELECT+3
Function Call: WRITE	Prompt: !!,"Entering the number of list columns is optional. By default the list will be",!,"given as many columns as the block has space for.",! Line Location: MSG1+1
Function Call: WRITE	Prompt: !!,"Entering the information on the position of the columns and their",!,"height is optional. Appropriate default values will be used. However,",!,"you may specify your own values for up to 4 coulmns.",! Line Location: MSG2+1
Function Call: WRITE	Prompt: !!,"You can now specify the subcolumns the list should contain.",!,"There can be at most 6 subcolumns, numbered 1-6.",! Line Location: MSG3+1
Routine Call	DIE Line Location: EDITLIST+13 COLUMNS+7 SWITCH+9
Routine Call	DIR Line Location: LIST+9 AGAIN+4 NEWNAME+2
Routine Call	DIC Line Location: AGAIN+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBE(357.2 - [#357.2]	Classic Fileman Calls
^IBE(357.3 - [#357.3]	Classic Fileman Calls
^IBE(357.6 - [#357.6]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBE(357.2 - [#357.2]	LIST+5, EDITLIST+9, SELECT+3, DLTLIST+5
^IBE(357.3 - [#357.3]	SWITCH+2, SWITCH+3, SWITCH+7*, SWITCH+12!
^IBE(357.6 - [#357.6]	DATASIZE+3, DATASIZE+5, LISTTYPE+3, OTHEROK+5, OTHEROK+8

Label References

Name	Line Occurrences
@(	LIST+10
AGAIN	AGAIN+4
DATASIZE	EDITLIST+12
LISTTYPE	EDITLIST+10
SELECT	EDITLIST+6, COLUMNS+5, DLTLIST+3
SWITCH	EDITLIST+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EDITLIST+13!
>> D	AGAIN, RTN+2
DA	EDITLIST+13!, COLUMNS+7!, SWITCH+8!, SWITCH+13!, SWITCH+14!, RTN+2!
DA(1	SWITCH+8, SWITCH+13
DIC	AGAIN!, AGAIN+2!, RTN+1!, RTN+2!
DIC("A"	RTN+2*
DIC("S"	AGAIN+1, RTN+1
DIC(0	AGAIN, RTN+2
DIE	EDITLIST+13!, COLUMNS+7!, SWITCH+8!*, SWITCH+14!
DIE("NO^"	EDITLIST+13, COLUMNS+7
DIK	SWITCH+13!*, SWITCH+14!
DIR	LIST+3!, LIST+9!, AGAIN+4!, NEWNAME+1!, NEWNAME+2!
DIR("?"	LIST+3*, LIST+8
DIR("A"	LIST+7, AGAIN+4, NEWNAME+1*
DIR("B"	LIST+4, LIST+5, AGAIN+4, NEWNAME+1
DIR(0	LIST+7, AGAIN+4, NEWNAME+1*
>> DIRUT	LIST+9, AGAIN+4, NEWNAME+2
DR	EDITLIST+13!, COLUMNS+7!, SWITCH+8!*, SWITCH+14!
>> DTOUT	AGAIN+4, RTN+3
>> DUOUT	AGAIN+4, RTN+3
FROM	EDITLIST+3~, EDITLIST+16*, EDITLIST+19
I	EDITLIST+13!
IBARRY	SWITCH~
IBARRY(	SWITCH+6
>> IBBLK	LIST+4, LIST+5, EDITLIST+24, COLUMNS+8, SELECT+2, SELECT+3, AGAIN, DLTLIST+6, DLTLIST+7
IBD	EDITLIST+3~
IBDELETE	EDITLIST+3~
IBDYN	EDITLIST+3~, LISTTYPE+2, LISTTYPE+3
>> IBFORM	EDITLIST+24
IBINPUT	EDITLIST+3~, LISTTYPE+2, LISTTYPE+3
IBLEN	EDITLIST+3~
IBLEN(	DATASIZE+3*
IBLEN(0	DATASIZE+4*
IBLEN(1	DATASIZE+5*
IBLIST	EDITLIST+3~, EDITLIST+7, EDITLIST+9, EDITLIST+11, EDITLIST+13, EDITLIST+17, EDITLIST+20, EDITLIST+21, EDITLIST+22, EDITLIST+23 , COLUMNS+2~, COLUMNS+6, COLUMNS+7, SELECT+1, AGAIN+3, AGAIN+4, SWITCH~, SWITCH+2, DLTLIST+1~, DLTLIST+4 , DLTLIST+5, DLTLIST+6
IBOLD	EDITLIST+3~, EDITLIST+4*
IBRTN	EDITLIST+3~, EDITLIST+9*, EDITLIST+10, EDITLIST+12
IBSC	EDITLIST+3~
IBSC(	SWITCH+3*, SWITCH+4
IBSC1	EDITLIST+3~, SWITCH+3, SWITCH+4, SWITCH+6, SWITCH+12
IBSC2	EDITLIST+3~, SWITCH+6*, SWITCH+8
IBSCNEW	EDITLIST+3~, EDITLIST+8*, EDITLIST+21
IBSCNEW(	EDITLIST+22, EDITLIST+23
IBSCOLD	EDITLIST+3~, EDITLIST+8*, EDITLIST+11
IBSCOLD(	EDITLIST+17, EDITLIST+19*!, EDITLIST+22, EDITLIST+23
IBSCRAY	EDITLIST+3~
IBSWITCH	EDITLIST+3~, EDITLIST+4, EDITLIST+16
IBSWITCH(	EDITLIST+16
IBSWT	EDITLIST+3~, EDITLIST+20
IBSWT(	EDITLIST+16*
IBVALMBG	LIST+1~, LIST+2*, LIST+11
IEN	DATASIZE+1~, DATASIZE+3*
NODE	DATASIZE+1~, DATASIZE+3, LISTTYPE+1~, LISTTYPE+3, OTHEROK+1~, OTHEROK+8*, OTHEROK+9
PI	OTHEROK~, OTHEROK+2, OTHEROK+5, OTHEROK+8
PIECE	DATASIZE+1~, DATASIZE+3*
RTN	DATASIZE~, DATASIZE+2, DATASIZE+3, DATASIZE+5, LISTTYPE~, LISTTYPE+2, LISTTYPE+3
SC	EDITLIST+22~, EDITLIST+23, SWITCH+1~, SWITCH+3, SWITCH+4, SWITCH+8, SWITCH+12, SWITCH+13
SLCTN	SWITCH+1~, SWITCH+2*, SWITCH+3, SWITCH+7, SWITCH+8, SWITCH+12, SWITCH+13
TO	EDITLIST+3~, EDITLIST+16*, EDITLIST+17, EDITLIST+19
>> VALMBCK	LIST+2, EDITLIST+4, EDITLIST+26, COLUMNS+3, COLUMNS+9*
>> VALMBG	LIST+2, LIST+11*
>> X	AGAIN*
>> Y	LIST+9, LIST+10, AGAIN+3, AGAIN+4, NEWNAME+3, RTN+3

Customize PDF page

Package: Automated Information Collection System

Routine: IBDF9A

Call Graph Total: 11

Caller Graph Total: 4