Routine: DICU1

Package	Total	Call Graph
VA Fileman	3	BLD^DIALOG ($$FORMAT,GETFORM,THROW,WRITEID)^DICU11 GET^DICUIX1

Package	Total	Caller Graph
VA Fileman	4	DICF DICL DICUIX1 DILF

Entry Points

Name	Comments	DBIA/ICR reference
ID1A	; for Lister: add indexed fields to DIDENT array (to build 1 nodes)
ERR202
ID6	; Write Identifiers: add to output processor ; ID Parameter: add ID parameter to output processor
ID4
ID5
ID2	; decide whether to auto-include the .01 in the field list ; will come out in 1 node for Lister, in "ID" nodes for Finder
ID3	; Process auto-included .01 field (if included) on first pass, ; Start loop to process each field from DIFIELDS parameter ; and Identifiers.
ERR(DIERN,DIFILE,DIENS,DIFIELD,DI1)	;
ID1	; prepare to build output processor:
BADIX(DIDENT)	;
IDENTS(DIFLAGS,DIFILE,DIDS,DIWRITE,DIDENT,DINDEX)	; ; get definition of fields to return with each entry
BLD	; get fetch code for value
BLD1	; set up format code and load with fetch code into DIDENT
ID4C
ID4B
ID4A

External References

Name	Field # of Occurrence
BLD^DIALOG	ERR+10
$$FORMAT^DICU11	BLD1+3
GETFORM^DICU11	ID4B+4, ID4C+2
THROW^DICU11	ID1A+4, ID4A+5
WRITEID^DICU11	ID4B+9, ID6+4
GET^DICUIX1	BLD+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	ID3+13, ID5+6, ID5+10

Label References

Name	Line Occurrences
$$BADIX	ID4A+3
BLD	ID3+7, ID5+12
ERR	ID5+6, ERR202
ERR202	ID4A+3, ID4B+7, ID4B+10, ID4B+11, ID5+5, ID5+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DI1	ERR~, ERR+9
DIBAD	BADIX+2~, BADIX+3, BADIX+4
DICODE	ID2+12~, BLD+1, BLD1+1, BLD1+3
DICOUNT	ID1+5~, ID1A+4, ID4+2, ID4+3, ID4+4, ID4A+5, ID4B+4, ID4C+2
DICRSR	ID1+5~, ID1+6, ID1A+4, ID4A+5, ID4B+9, ID6+4, ID6+6, ID6+7, ID6+8, BLD+7 , BLD1+5, BLD1+6, BLD1+7, BLD1+8
DIDEF	ID2+12~, BLD+1, BLD1+2
DIDEFALT	ID1+7~*, ID1A+4, ID4A+5, BLD+2, BLD1+3
DIDENT	IDENTS~, ID1A+3, ID1A+4, ID1A+5, ID2+3, ID2+11, ID3+8, ID3+9, ID3+13, ID3+14 , ID3+15, ID4+3, ID4+4, ID4A+2, ID4A+3, ID4A+5, ID4B+2, ID4B+3, ID4B+4, ID4B+6* , ID4B+7, ID4B+8, ID4B+9, ID4B+10, ID4B+11, ID4C+2, ID4C+5, ID4C+6, ID5+2, ID5+3 , ID5+4, ID5+8, ID5+10, ID6+4, ID6+6, ID6+7, BLD+1, BLD+4, BLD+5, BLD+9 , BLD1+3, BLD1+4, BLD1+6, BLD1+7, BLD1+8, BADIX~, BADIX+2, BADIX+3
DIDENT(	ID1+6, ID1A+3, ID2+11, ID6+7, ID6+8, BLD+7, BLD+9, BLD1+6, BLD1+7, BLD1+8
DIDS	IDENTS~, ID1+2*, ID1+3, ID1+4, ID1A+2, ID1A+4, ID2+4, ID2+6, ID2+13, ID3+15 , ID4+3, ID4A+4, ID4A+5, ID4B+3, ID4B+4, ID4B+8, ID4C+2, ID4C+5, ID4C+6, ID5+8
DIDS("@"	ID1+3*, ID1A+2, ID2+4
DIDS("FID"	ID1+4, ID3+12, ID3+15!, ID4B+5, ID5+9, BLD+5
DIDS("WID"	ID1+4*, ID4B+9!, ID6+4
DIEFROM	ID2+12~
DIENS	ERR~, ERR+7
DIERN	ERR~, ERR+10
>> DIERR	ID3+4, ID6+3, BLD+1
DIETO	ID2+12~
DIFIELD	ERR~, ERR+8
DIFILE	IDENTS~, ID2+9, ID3+13, ID4B+9, ID5+6, ID5+10, ID6+4, BLD+1, ERR~, ERR+6
DIFLAGS	IDENTS~, ID1+6, ID1+7, ID1A+2, ID1A+4, ID2+4, ID2+5, ID4A+5, ID4C+5, ID4C+6 , ID6+6, ID6+8, BLD+7, BLD1+3, BLD1+5
DIFORMAT	ID1+7~, ID3+5, ID4C+2, ID5+11, BLD+2*, BLD+6, BLD1+3, BLD1+6
DIFRMAT2	ID2+12~, ID3+14!, ID4B+4, ID5+11
DILAST	ID5+3~*, ID5+5, ID5+7
DILENGTH	ID2+13~*, ID4+4
DINDEX	IDENTS~, ID1A+4, ID4A+5
DINDEX(	ID2+8, ID2+9
DINDEX("#"	ID2+7
DINDEX("FLIST"	ID4C+6
DINODE	ID2+12~, ID5+9, ID5+10*
DIOUTI	ID2+13~, ID3+4, ID3+15, ID4+4*
DIPE	ERR+5~, ERR+10
DIPE("FIELD"	ERR+8*
DIPE("FILE"	ERR+6*
DIPE("IEN"	ERR+7*
DIPE(1	ERR+9*
DIPIECE	ID2+12~
DIPLUS	ID5+2~*, ID5+3, ID5+6
DISTORE	ID2+12~
DISUB	ID2+7~, ID2+8, ID2+9, BLD1+1~, BLD1+4*, BLD1+6
DITYPE	ID2+12~, BLD1+2*, BLD1+6
DIUSEKEY	ID2+3~, ID2+5, ID2+7, ID2+9, ID2+11, ID3+6, ID3+7, ID3+10, ID4C+5, BLD+2 , BLD+5, BLD+8, BLD1+3, BLD1+4
DIVALUE	BLD+4~, BLD+5, BLD+6, BLD+7, BLD+9, BLD1+1~, BLD1+3*, BLD1+6, BLD1+7
DIWRITE	IDENTS~, ID6+5, ID6+7
U	ID6+8, BLD+7, BLD1+2

Customize PDF page

Package: VA Fileman

Routine: DICU1

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: