Routine: DICF0

Package	Total	Call Graph
VA Fileman	4	XFORM^DICF1 INDEX^DICUIX GET^DICUIX1 $$EXTERNAL^DIDU

Package	Total	Caller Graph
VA Fileman	1	DICF

Entry Points

Name	Comments	DBIA/ICR reference
ALTIDX(DINDEX,DIFILE,DIVALUE,DISCREEN,DINUMBER)	; Find alternate index when lookup value for first subscript is null.
IDXOK(DINDEX,DIFILE,DIX,DIXIEN,DIVALUE)	; Return alternate index name DIX if it has no set/kill conditions and all subscripts are fields from original index DINDEX.
A1	; Find next lookup value
A3	; Rearrange lookup values and for new index
A2
A4	; Build screening logic for fields whose lookup values are not on new index.

External References

Name	Field # of Occurrence
XFORM^DICF1	A4+25
INDEX^DICUIX	A4+24
GET^DICUIX1	A4+12
$$EXTERNAL^DIDU	A4+17

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	A2+1
^DD("IX" - [#.11]	A2+5, A2+6, IDXOK+1, IDXOK+2, IDXOK+4, IDXOK+5, IDXOK+7

Label References

Name	Line Occurrences
IDXOK	ALTIDX+2, A2+8

Naked Globals

Name	Field # of Occurrence
^(	A2+1
^(2.4	IDXOK+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DICODE	A4+11~, A4+12, A4+13, A4+14
DIFIELD	A1+1~, A1+9, A2+1, A2+5, IDXOK+3~, IDXOK+6, IDXOK+10
DIFILE	ALTIDX~, ALTIDX+2, A2+1, A2+5, A2+8, A4+12, A4+14, A4+24, IDXOK~, IDXOK+1 , IDXOK+6
>> DIFLAGS	A4+22, A4+24, A4+25
DINDEX	ALTIDX~, ALTIDX+1, ALTIDX+2, A2+2, A2+7, A2+8, A4+21!*, A4+24, A4+25, IDXOK~
DINDEX(	A1+3, A1+9, A4+12, A4+13, A4+14, A4+17, IDXOK+10
DINDEX("#"	ALTIDX+1, IDXOK+9
DINDEX("OLDSUB"	A4+22*
DINDEX("START"	A4+22*
DINDEX("WAY"	ALTIDX+1, A4+21*
DINODE	A4+11~, A4+12
DINUMBER	ALTIDX~, A4+24
DIS	A3+1~, A4+23!
DIS(	A3+5*
DIS("F"	A3+2*
DIS("S"	A3+2*
DIS("VAL"	A4+2, A4+17, A4+18, A4+19
DIS("X"	A4+10, A4+13, A4+14*
DISAVJ	A4+16~*, A4+17, A4+18, A4+19
DISCREEN	ALTIDX~, A4+23!*, A4+24, A4+25
DISCREEN(	A3+5, A3+6!, A4+3, A4+5, A4+7, A4+8*, A4+10
DISCREEN("F"	A3+2
DISCREEN("S"	A3+2
DISKIP	IDXOK+3~, IDXOK+4, IDXOK+8, IDXOK+9, IDXOK+12, IDXOK+13, IDXOK+15
DISUB	A1+1~, A1+2, A1+3, A1+4, A1+7, A1+8*, A1+9, A2+4
DITYPE	A1+1~, A1+4, A1+7, A1+8
DITYPE(	A1+4*, A1+7, A1+8
DIV	A3+1~, A4+23!
DIV(	A3+5*
DIVALUE	ALTIDX~, A2+8, A4+23!*, A4+24, A4+25, IDXOK~
DIVALUE(	A1+2, A3+4, A3+5, A3+6!, A4+1, A4+2, IDXOK+11
DIVALUE(0	IDXOK+3, IDXOK+8
DIX	ALTIDX+1~, ALTIDX+2, A1+6, A1+7, A2+1, A2+2, A2+3, A2+4, A2+5, A2+6* , A2+7, A2+8, A2+11, A4+21, A4+22, IDXOK~, IDXOK+1, IDXOK+2, IDXOK+15
DIX(	A3+3, IDXOK+12*
DIX("#"	A2+4, A3+3, IDXOK+3, IDXOK+13*
DIX("OLDSUB"	ALTIDX+1*, A4+22
DIX("WAY"	ALTIDX+1*, A4+21
DIX(1	A2+4*
DIXIEN	IDXOK~, IDXOK+1*, IDXOK+2, IDXOK+4, IDXOK+5, IDXOK+7
I	A1+1~, A2+1, A2+5, A2+6, A2+8, A3+3, A3+5, IDXOK+3~, IDXOK+4, IDXOK+5 , IDXOK+6, IDXOK+7, IDXOK+11, IDXOK+12
J	A1+1~, A3+3, A3+4, A3+5, A3+6, A4+1, A4+2, A4+3, A4+5, A4+7 , A4+8, A4+10, A4+12, A4+13, A4+14, A4+16~, A4+18, A4+19, IDXOK+3~, IDXOK+9 , IDXOK+10, IDXOK+11, IDXOK+12
K	A1+1~, A4+5*, A4+7, A4+8
L	A4+6~*
S	A4+6~*, A4+7
U	A2+2, A2+6, IDXOK+6
X	A1+1~, A1+3, A1+4, A2+1, A2+2, A4+4, A4+5, A4+6, A4+8, A4+17 , A4+19, IDXOK+3~, IDXOK+5*, IDXOK+6
Y	A1+1~, A4+5, A4+6, A4+8
Z	A1+1~, A4+4*, A4+6

Customize PDF page

Package: VA Fileman

Routine: DICF0

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: