Routine: DICUF

Information

DICUF ;SEA/TOAD,SF/TKW-FileMan: Lookup Tools, Files ;2/6/98 08:13

Source file <DICUF.m>

Package	Total	Call Graph
VA Fileman	3	BLD^DIALOG $$IEN^DIDU1 ($$OREF,$$ROOT)^DIQGU

Package	Total	Caller Graph
VA Fileman	3	DICF DICF4 DICL

Name	Comments	DBIA/ICR reference
SCREEN(DIFLAGS,DIFILE,DISCREEN)	; ; Set user defined and whole file screen variables.
F1	; set and check source file number.
F2	; get the file's .01 definition; quit & error if bad
F3	; set and check the Lister's IENS parameter
F4	; calculate the source file's global root (open & closed)
VPDATA(DINDEX,DISCREEN)	; Add variable pointer info to DINDEX array for executing DIC("V") type screen
FILE(DIFILE,DIFIEN,DIFLAGS)	; ; retrieve and calculate info about indexed file
ERR(DIERN,DIFILE,DIIENS,DIFIELD,DIROOT,DI1,DI2,DI3)	;
E1

Name	Line Occurrences (* Changed, ! Killed)
^DD(	F2+2, F2+3, SCREEN+7, VPDATA+4, VPDATA+5, VPDATA+6
^DIC - [#1]	VPDATA+8

Name	Line Occurrences
ERR	F1+2, F2+3, F2+4, F3+4, F3+5, F3+6, F4+4

Name	Field # of Occurrence
DI	E1+1~*, E1+2, E1+3
DI1	ERR~
DI2	ERR~
DI3	ERR~
DIERN	ERR~, E1+4
>> DIERR	F4+2
DIFIELD	ERR~
DIFIEN	FILE~, F3+2*, F3+3, F3+4, F3+5, F3+6, F4+2, F4+4
DIFILE	FILE~, F1+2*, F2+2, F2+3, F2+4, F4+2, F4+3, F4+4, F4+5, SCREEN~ , SCREEN+6, SCREEN+7, ERR~
DIFILE(	F4+2, F4+3, F4+4, F4+5, SCREEN+6
DIFLAGS	FILE~, SCREEN~, SCREEN+5
DIIENS	ERR~
DINDEX	VPDATA~
DINDEX(	VPDATA+3, VPDATA+9*
DINDEX("#"	VPDATA+2
DINODE	F2+2~*, F2+3, F2+4
DIPE	E1~, E1+4
DIPE(	E1+3*
DIROOT	ERR~
DISCREEN	SCREEN~, SCREEN+3, VPDATA~
DISCREEN("F"	SCREEN+5, SCREEN+7
DISCREEN("S"	SCREEN+3*
DISCREEN("V"	SCREEN+4*, VPDATA+2, VPDATA+7
DISUB	VPDATA+1~, VPDATA+2*, VPDATA+3, VPDATA+7, VPDATA+9
F	VPDATA+1~, VPDATA+4*, VPDATA+5, VPDATA+8
F1	VPDATA+1~, VPDATA+3*, VPDATA+4, VPDATA+5, VPDATA+6
F2	VPDATA+1~, VPDATA+3*, VPDATA+4, VPDATA+5, VPDATA+6
G	VPDATA+1~, VPDATA+8*, VPDATA+9
I	VPDATA+1~, VPDATA+5*, VPDATA+6
P	E1~, E1+2*, E1+3
U	F2+4, SCREEN+6
Y	VPDATA+1~
Y(0	VPDATA+6*