Routine: IBDF9B

Information

IBDF9B ;ALB/CJM - ENCOUNTER FORM - (edit,delete,add data fields) ;FEB 1,1993

Source Information

Source file <IBDF9B.m>

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Automated Information Collection System	8	SHIFT^IBDF10 UNCMPBLK^IBDF19 MFIELD^IBDF9B2 LABELS^IBDF9B3 HFIELD^IBDF9B4 DLTFLD^IBDFU3 IDXBLOCK^IBDFU4 ($$RUSURE,PAUSE)^IBDFU5
VA Fileman	6	IX^DIC MIX^DIC1 FILE^DICN ^DIE ^DIK ^DIR
Registration	2	FULL^VALM1 RE^VALM4

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Automated Information Collection System	4	IBDF9B2 IBDF9B3 IBDF9B4 IBDXI5
Integrated Billing	1	IBXFI5

Entry Points

Name	Comments	DBIA/ICR reference
AGAIN
DLTFLD	;expects IBBLK to be defined
SHIFT	;expects IBBLK to be defined - shifts all fields within range supplied by user
NEWNAME()	;
FIELD	;Create, Edit, or Delete a data field from the form
DATATYPE(RTN)	;
NEWFLD	;adds a new field, expects IBBLK to be defined
LOOKUP()	;does a lookup on the package interface file using the E cross-reference, which uses the name with the prefix=namespace removed
EDITFLD	;expects IBBLK to be defined
SELECT	;

External References

Name	Field # of Occurrence
IX^DIC	AGAIN+2
MIX^DIC1	LOOKUP+2
FILE^DICN	NEWFLD+7
^DIE	EDITFLD+10, NEWFLD+13
^DIK	NEWFLD+14
^DIR	FIELD+6, FIELD+21, AGAIN+4, NEWNAME+2
SHIFT^IBDF10	SHIFT+1
UNCMPBLK^IBDF19	SHIFT+2, EDITFLD+11, DLTFLD+6, NEWFLD+15
MFIELD^IBDF9B2	FIELD+7
LABELS^IBDF9B3	FIELD+9
HFIELD^IBDF9B4	FIELD+8
DLTFLD^IBDFU3	DLTFLD+5
IDXBLOCK^IBDFU4	SHIFT+2, EDITFLD+11, DLTFLD+6, NEWFLD+15
$$RUSURE^IBDFU5	DLTFLD+4
PAUSE^IBDFU5	SELECT+3, NEWFLD+10
FULL^VALM1	FIELD+2, FIELD+17
RE^VALM4	FIELD+24, EDITFLD+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,DIR("?",1),!,DIR("?"),!! Line Location: FIELD+4
Function Call: WRITE	Prompt: !,"There is no data field!" Line Location: SELECT+3
Routine Call	DIE Line Location: EDITFLD+10 NEWFLD+13
Routine Call	DIR Line Location: FIELD+6 FIELD+21 AGAIN+4 NEWNAME+2
Routine Call	DIC Line Location: AGAIN+2

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

Name	Line Occurrences (* Changed, ! Killed)
^IBE(357.5 - [#357.5]	EDITFLD+8, SELECT+3, DLTFLD+4
^IBE(357.6 - [#357.6]	DATATYPE+9, DATATYPE+12, DATATYPE+13

Name	Line Occurrences
$$LOOKUP	NEWFLD+4
$$NEWNAME	NEWFLD+3
@(	FIELD+23
AGAIN	AGAIN+4
DATATYPE	EDITFLD+9
SELECT	EDITFLD+4, DLTFLD+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
D	AGAIN, LOOKUP+2!
DA	EDITFLD+10!, NEWFLD+7!, NEWFLD+13!, NEWFLD+14!*, LOOKUP+2!
DATATYPE	DATATYPE+6~, DATATYPE+9*
DD	NEWFLD+6!
DIC	AGAIN!, AGAIN+2!, NEWFLD+6!, NEWFLD+7!, NEWFLD+13!, LOOKUP+1!, LOOKUP+2*!
DIC("A"	LOOKUP+2*
DIC("B"	AGAIN*
DIC("S"	AGAIN+1, LOOKUP+1
DIC(0	AGAIN, NEWFLD+6, LOOKUP+2*
DIE	EDITFLD+10!, NEWFLD+6!, NEWFLD+7!, NEWFLD+13!
DIE("NO^"	EDITFLD+10, NEWFLD+13
DIK	NEWFLD+14*!
DINUM	NEWFLD+6!
DIR	FIELD+3!, FIELD+6!, FIELD+18!, FIELD+21!, AGAIN+4!, NEWNAME+1!, NEWNAME+2!
DIR("?"	FIELD+3, FIELD+4, FIELD+18, FIELD+19
DIR("A"	FIELD+5, FIELD+20, AGAIN+4, NEWNAME+1
DIR("B"	FIELD+5, FIELD+20, AGAIN+4, NEWNAME+1
DIR(0	FIELD+5, FIELD+20, AGAIN+4, NEWNAME+1
>> DIRUT	FIELD+6, FIELD+21, AGAIN+4, NEWNAME+2
DLAYGO	NEWFLD+1~, NEWFLD+6*
DO	NEWFLD+6!
DR	EDITFLD+10!, NEWFLD+13!
>> DTOUT	AGAIN+4, LOOKUP+3
>> DUOUT	AGAIN+4, LOOKUP+3
FIELD	NEWFLD+1~, NEWFLD+8*, NEWFLD+9, NEWFLD+11, NEWFLD+13, NEWFLD+14
>> IBBLK	SHIFT+2, EDITFLD+11, SELECT+2, SELECT+3, AGAIN, DLTFLD+5, DLTFLD+6, NEWFLD+15
IBDELETE	EDITFLD+2~, NEWFLD+2~, NEWFLD+12*, NEWFLD+14
IBFIELD	EDITFLD+1~, EDITFLD+5, EDITFLD+8, EDITFLD+10, SELECT+1, AGAIN+3, AGAIN+4, DLTFLD+1~, DLTFLD+3, DLTFLD+4 , DLTFLD+5
IBI	EDITFLD+2~
IBLEN	EDITFLD+2~, NEWFLD+2~
IBLEN(	DATATYPE+12*
IBLEN(1	DATATYPE+13*
IBLIST	EDITFLD+2~, EDITFLD+7, NEWFLD+2~, DATATYPE+7, DATATYPE+9*
IBMF	EDITFLD+2~, EDITFLD+7, NEWFLD+2~, DATATYPE+7, DATATYPE+9*
IBOLD	EDITFLD+2~, EDITFLD+7, NEWFLD+2~, NEWFLD+5
IBP	EDITFLD+2~, NEWFLD+2~
IBRTN	NEWFLD+1~, NEWFLD+4*
IBSUB	DATATYPE+6~
IBVALMBG	FIELD+11~, FIELD+13*, FIELD+25
IBW	EDITFLD+2~, NEWFLD+2~
IBWP	EDITFLD+2~, EDITFLD+7, NEWFLD+2~, DATATYPE+7, DATATYPE+9*, DATATYPE+10
IBX	EDITFLD+2~, EDITFLD+7, NEWFLD+2~, NEWFLD+5
IBY	EDITFLD+2~, EDITFLD+7, NEWFLD+2~, NEWFLD+5
IEN	DATATYPE+11~, DATATYPE+12*
NAME	NEWFLD+1~, NEWFLD+3*, NEWFLD+6
NODE	EDITFLD+1~, NEWFLD+1~, DATATYPE+6~, DATATYPE+12*
QUIT	FIELD+11~, FIELD+12, FIELD+16, FIELD+21, FIELD+22*
RTN	EDITFLD+1~, EDITFLD+8*, EDITFLD+9, DATATYPE~, DATATYPE+8, DATATYPE+9, DATATYPE+12, DATATYPE+13
>> VALMBCK	FIELD+1, FIELD+14, FIELD+25*
>> VALMBG	FIELD+13, FIELD+25*
>> X	AGAIN, NEWFLD+6
>> Y	FIELD+6, FIELD+7, FIELD+8, FIELD+9, FIELD+21, FIELD+22, FIELD+23, AGAIN+3, AGAIN+4, NEWFLD+8 , NEWNAME+3, LOOKUP+3

Customize PDF page

Package: Automated Information Collection System

Routine: IBDF9B

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: