Routine: DICU

Information

DICU ;SEA/TOAD-VA FileMan: Lookup Utilities ;5/15/97 08:31

Source file <DICU.m>

Package	Total	Call Graph
VA Fileman	5	BLD^DIALOG $$IEN^DIDU1 INIZE^DIEFU $$ROOT^DILFD $$CREF^DIQGU

Package	Total	Caller Graph
VA Fileman	4	DDMP1 DICA1 DILFD DIQGDDU

Name	Comments	DBIA/ICR reference
REQIDS(DIFILE,DITARGET)	; ; return REQUIRED IDENTIFIERS file attribute ; DIFILE = file#, DITARGET = target array
30
RID(DIFILE)	; ; return a string listing a file's required identifiers ; DIFILE = file#
RECALLX	; input from DILFD
RECALL(DIFILE,DIEN,DIUSER)	;
ENTRY
32
STRIP
FILE(DIFILE,DIDA,DIFLAGS,DIROOT)	; ; entry point -- given a root, calculate the file # and DA ; DO NOT USE UNTIL $QS & $QL AVAILABLE
ERR(DIERN,DIFILE,DIIENS,DIFIELD,DI1,DI2,DI3,DIROOT)	;
LOOP

Name	Line Occurrences (* Changed, ! Killed)
^DD(	REQIDS+6, REQIDS+7, RID+4, RID+5, 32+1
^DISV(	32+5*

Name	Line Occurrences
ERR	30+1, 30+3, 32+1, 32+4

Name	Field # of Occurrence
DA	FILE+6~, ENTRY+1, ENTRY+2, ENTRY+3
DI	ERR+5~, ERR+6*
DI1	ERR~
DI2	ERR~
DI3	ERR~
DIATTRBT	REQIDS+3~*, REQIDS+4, REQIDS+7
DICHAR	LOOP~, STRIP+6*, STRIP+7, STRIP+8
DICLERR	RECALLX+7~*, 32+6, 32+7, ERR+8
DID	RID+4~*, RID+5
DIDA	FILE~, FILE+5*
DIDA(	ENTRY+3*
DIEN	RECALL~, 30+2*, 30+3, 32+2, 32+5
DIENTRY	FILE+6~, ENTRY, ENTRY+4
DIERN	ERR~, ERR+7
DIERR	RECALLX+7!, 32+6, 32+7, ERR+8
DIFIELD	REQIDS+5~, REQIDS+6*, REQIDS+7, ERR~
DIFILE	REQIDS~, REQIDS+6, REQIDS+7, RID~, RID+4, RID+5, RECALL~, 30, 30+1, 32+1 , 32+2, 32+4, FILE~, FILE+5, ERR~
DIFILE(	ENTRY+1*
DIFLAGS	FILE~, FILE+3
DIFM	RECALLX+6~*
DIGLOBAL	FILE+3~, FILE+4, FILE+5, STRIP+4, STRIP+5, STRIP+6, STRIP+7, STRIP+8, STRIP+9, ENTRY+1 , ENTRY+2
DIIENS	ERR~
DIL	LOOP~, STRIP+4*, STRIP+5
DILEAD	LOOP~, STRIP+4*, STRIP+5, STRIP+6, STRIP+7, STRIP+8
DILIST	RID+3~, RID+5, RID+6
DIOROOT	32~, 32+2*, 32+3, 32+4, 32+5
DIOUT	32~, 32+1, 32+4*
DIPE	ERR+5~, ERR+7
DIPE(	ERR+6*
DIQL	LOOP~, STRIP+9*
DIQS	LOOP~, STRIP+3, ENTRY+3
DIQSL	LOOP~, STRIP+3~*, STRIP+4
DIQUIET	RECALLX+5~*
DIROOT	FILE~, FILE+3, FILE+4*, ERR~
DIROOT(	ENTRY+2*
DITARGET	REQIDS~, REQIDS+4, REQIDS+7
DIUSER	RECALL~, 30+4*, 32+5
U	RID+5, 32+7, FILE+5, ENTRY+1, ERR+8