Routine: DICA3

Package	Total	Call Graph
VA Fileman	6	BLD^DIALOG $$HEADER^DIDU2 XA^DIEFU INDEX^DIKC LOCK^DILF $$ROOT^DILFD

Package	Total	Caller Graph
VA Fileman	3	DICA DICA1 DICA2

Entry Points

Name	Comments	DBIA/ICR reference
SUBFILE(DIFILE)	; ; ENTRY POINT--return whether the file is a subfile ; extrinsic function, passed by value
ERR(DIERN,DIFILE,DIIENS,DIFIELD,DI1,DI2,DI3)	; ; error logging procedure
PROOT(DIFILE,DIEN)	; ; ENTRY POINT--return the global root of a subfile's parent ; extrinsic function, all passed by value
CREATE(DIFILE,DIEN,DIROOT,DIVALUE)	;If DIEN comes in with a leading number, use it as IEN
ZERO
PARENT(DIFILE)	; ; ENTRY POINT--return the file number of a subfile's parent ; extrinsic function, all passed by value
GETNUM	;
SETREC	;

Name	Line Occurrences (* Changed, ! Killed)
^DD(	PARENT+3, SUBFILE+3
^DIA - [#1.1]	GETNUM+1, GETNUM+4

Name	Line Occurrences
$$PARENT	PROOT+4
ERR	GETNUM+6, ZERO+2

Name	Field # of Occurrence
^(	GETNUM+4
^(0	SETREC+4*

Name	Field # of Occurrence
DI	ERR+3~*
DI1	ERR~
DI2	ERR~
DI3	ERR~
DICAFILE	SETREC+1~*, SETREC+7, SETREC+8
DIEN	CREATE~, CREATE+1, CREATE+2, CREATE+4, GETNUM+1, GETNUM+3, GETNUM+4, GETNUM+6, ZERO+2, ZERO+4* , SETREC+4, SETREC+6*, SETREC+7, SETREC+8, PROOT~, PROOT+3
DIENP	CREATE+1~, CREATE+5, GETNUM+6, ZERO+2, SETREC+6, PROOT+3~, PROOT+4
DIERN	ERR~, ERR+4
>> DIERR	CREATE+4, CREATE+6
DIFAIL	GETNUM+2~, GETNUM+6, ZERO+1*, ZERO+4
DIFAUD	GETNUM+1~*, GETNUM+4
DIFIELD	ERR~
DIFILE	CREATE~, CREATE+5, GETNUM+1, GETNUM+6, ZERO+2, SETREC+1~, PROOT~, PROOT+4, PARENT~, PARENT+3 , SUBFILE~, SUBFILE+3, ERR~
DIHEADER	CREATE+5~*, CREATE+6
DIIENS	ERR~
DINEXT	CREATE+3~*, CREATE+4, GETNUM+1
DINUM	GETNUM+1~*, GETNUM+3, GETNUM+6, ZERO+1
DIOUT	GETNUM+2~, ZERO+3
DIPE	ERR+2~, ERR+4
DIPE(	ERR+3*
DIROOT	CREATE~, CREATE+3, CREATE+6, GETNUM+3, GETNUM+5, ZERO, SETREC+2, SETREC+3, SETREC+4, SETREC+5
DIVALUE	CREATE~, SETREC+2, SETREC+7
U	CREATE+3, SETREC+4