Routine: DIU1

Package	Total	Call Graph
VA Fileman	11	(CHIX,DD,WAIT)^DICD YN^DICN WR^DIDH (DISKIPIN,IXALL)^DIK CNT^DIK1 INDEX^DIKC $$SUB^DIKCU ($$CHOOSE,$$TYPE,GETXR,LIST)^DIKCUTL2 $$CREF^DILF ^DIR DI^DIU

Package	Total	Caller Graph
VA Fileman	1	DIU

Entry Points

External References

Name	Field # of Occurrence
CHIX^DICD	ONE+4
DD^DICD	IND+1, REDO
WAIT^DICD	ALL+4
YN^DICN	ALL+4, ONE, ONE+6
WR^DIDH	UP+1
DISKIPIN^DIK	4+2, ALL+8
IXALL^DIK	ALL+10, DD+1
CNT^DIK1	ALL+8
INDEX^DIKC	ALL+9, ONEXR+17
$$SUB^DIKCU	ONEXR+4
$$CHOOSE^DIKCUTL2	ONEXR+9
$$TYPE^DIKCUTL2	ONE+1
GETXR^DIKCUTL2	DW+3, ONEXR+7
LIST^DIKCUTL2	Q+1, ONEXR+8
$$CREF^DILF	KWREG+9
^DIR	LOGIC+8, LOGIC+15
DI^DIU	ONE+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: 4+2
Function Call: WRITE	Prompt: "OK, ARE YOU SURE YOU WANT TO KILL OFF THE EXISTING " Line Location: ALL+0
Function Call: WRITE	Prompt: "'"_$P(DIUCNT($O(DIUCNT(""))),U,3)_"' INDEX" Line Location: ALL+1
Function Call: WRITE	Prompt: $P(^DD(+X(1,0),$P(X(1,0),U,2),0),U,1)_" INDEX" Line Location: ALL+2
Function Call: WRITE	Prompt: X+DIUCNT_" INDICES" Line Location: ALL+3
Function Call: WRITE	Prompt: !,"DO YOU THEN WANT TO 'RE-CROSS-REFERENCE'" Line Location: ALL+4
Function Call: WRITE	Prompt: !,$C(7),"FILE WILL NOW BE 'RE-CROSS-REFERENCED'..." Line Location: ALL+10
Function Call: WRITE	Prompt: "." Line Location: DD+1
Function Call: WRITE	Prompt: "THERE ARE "_(X+DIUCNT)_$P(" RE-RUNNABLE",U,DINO>0)_" INDICES WITHIN THIS FILE",!,"DO YOU WISH TO RE-CROSS-REFERENCE ONE PARTICULAR INDEX" Line Location: ONE+0
Function Call: WRITE	Prompt: ! Line Location: ONE+0
Function Call: WRITE	Prompt: !,"SORRY. ",%," IS LISTED AS NOT RE-RUNNABLE" Line Location: ONE+5
Function Call: WRITE	Prompt: !,"ARE YOU SURE YOU WANT TO DELETE AND RE-CROSS-REFERENCE "_% Line Location: ONE+6
Function Call: WRITE	Prompt: $C(7)," ...DONE!" Line Location: REDO+0
Function Call: WRITE	Prompt: !,"FIELD " Line Location: Q+0
Function Call: WRITE	Prompt: J_" ('"_$P(^DD(+%,J,0),U,1)_"'" Line Location: Q+0
Function Call: WRITE	Prompt: ", "_$O(^DD(+%,0,"NM",0))_" SUBFILE" Condition for execution: %-DI Line Location: Q+0
Function Call: WRITE	Prompt: ") IS ",$S(X(I):"'"_$P(X(I),U,2)_"' INDEX",1:$P(X(I),U,3)) Line Location: Q+0
Function Call: WRITE	Prompt: !! Line Location: Q+1
Function Call: WRITE	Prompt: " OF "_$O(^("NM",0))_" "_$P("SUB",U,%>0)_"FILE" Line Location: UP+0
Function Call: WRITE	Prompt: ! Condition for execution: $X>44 Line Location: UP+1
Function Call: WRITE	Prompt: " OF " Line Location: UP+1
Function Call: WRITE	Prompt: !?7,$C(7),"<NO ACTION TAKEN>" Line Location: NO+0
Function Call: WRITE	Prompt: !!?10,"File: "_$O(^DD(DI,0,"NM",""))_" (#"_DI_")" Line Location: ONEXR+3
Function Call: WRITE	Prompt: ! Line Location: ONEXR+8
Function Call: WRITE	Prompt: $C(7)_" ...DONE!" Line Location: ONEXR+18
Function Call: WRITE	Prompt: ! Line Location: LOGIC+8
Routine Call	DIR Line Location: LOGIC+8 LOGIC+15

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	ALL+2, DD!, DD+1, ONE+5, ONE+7, IND+1, REDO, Q, UP, UP+1 , ONEXR+3
^DIC - [#1]	ALL+10, DD+1, IND+1
^UTILITY("DIK"	4+2!, DW, DW+1, DW+2, DW+5!

Label References

Name	Line Occurrences
$$LOGIC	ONEXR+13
4	Q+2
ALL	ONE
DD	DW+5, ALL+10, DD+1
DW	DW+1
IND	ONE+7
KWREG	IND, KWREG+15
NO	ALL+4, ONE, ONE+2, ONE+4, ONE+5, ONE+6, ONEXR+4, ONEXR+10, ONEXR+14
ONE	DW+5
ONEXR	ONE+3
Q	ALL+4, ONE
REDO	ONE+8, IND
UP	Q

Naked Globals

Name	Field # of Occurrence
^(	DW+2
^("GL"	DD!
^("GR"	DD!
^("IX"	DD!
^("NM"	UP
^("RQ"	DD!
^("SB"	DD!
^(0	DW+2, DD+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DW+4, ALL+4, ALL+5, ONE, ONE+5, ONE+6, ONE+7, Q, UP, UP+1
>> %F	UP+1*
>> %Y	ONE+7*
CROOT	KWREG+8~, KWREG+9*, KWREG+10, KWREG+11, KWREG+15
DA	ALL+8, ONE+4, ONE+5, ONE+7, IND+1, KWREG+13~, KWREG+14, KWREG+15
DA(1	DD*
>> DCNT	ALL+8*
DH	DW+1*, DW+2, NO!
DI	4+2, DW+3, ALL+5, DD, DD+1*, ONE+3, ONE+5, ONE+7, Q, UP , ONEXR~, ONEXR+3, ONEXR+4, ONEXR+16, ONEXR+17
DIC	ALL+11!
DICD	ONE+4*, ONE+5, IND+1, REDO, NO!
DIK	4+2, ALL+5, ALL+10, ALL+11!, DD*, ONE+8
DIK(0	ALL+8*
DIKJ	4+1~
DINO	4+1~, 4+2, ALL+8, ONE
DIR	LOGIC+1~, LOGIC+8!, LOGIC+15!
DIR("?"	LOGIC+7, LOGIC+14
DIR("A"	LOGIC+6, LOGIC+13
DIR(0	LOGIC+5, LOGIC+12
DIROUT	LOGIC+1~
DIRUT	LOGIC+1~, LOGIC+8, LOGIC+15
>> DIU	4+2, IND, IND+1*
DIUCNT	4+1~, DW+3, DW+5, ALL+1, ALL+2, ALL+3, ALL+9, ONE, ONE+1, ONE+3! , Q+1, ONEXR+2~, ONEXR+7, ONEXR+8, ONEXR+9
DIUCNT(	ALL+1, ONEXR+13
DIUCNT(""	ALL+1
DIUCTRL	ONEXR+2~, ONEXR+13, ONEXR+14, ONEXR+16, ONEXR+17
>> DIUF	4+2*, ALL+9, ALL+10, DD+1, ONE+8, IND+1
DIUFILE	ONEXR+2~, ONEXR+4*, ONEXR+7, ONEXR+16
DIULOG	ONEXR+2~, LOGIC+1~, LOGIC+2, LOGIC+9, LOGIC+16*, LOGIC+17
DIUNAME	LOGIC~, LOGIC+6, LOGIC+13
DIUTYPE	4+1~, ONE+1*, ONE+2, ONE+3
DIUXR	ONEXR+2~, ONEXR+9*, ONEXR+10, ONEXR+13, ONEXR+17
>> DL	ONE+4*, REDO
DTOUT	LOGIC+1~
DU	4+1~, DW+1*
DUOUT	LOGIC+1~
DV	4+1~, DW, DW+1, DW+2
DW	4+1~, 4+2, DW, DW+1, DW+2
I	ONE+5, ONE+7, ONE+8, IND, Q*, UP, UP+1, KWREG~, KWREG+11, KWREG+15
I(	KWREG+15
J	IND, Q*, KWREG~, KWREG+15
J(	IND+1, REDO, KWREG+11
LEV	KWREG~, KWREG+11, KWREG+15
>> N	ALL+4*, ALL+10, IND+1, REDO
ROOT	KWREG~, KWREG+9, KWREG+15
U	DW+2, ALL+1, ALL+2, ALL+5, ONE, ONE+5, ONE+8, IND, Q, UP , UP+1, KWREG+11, ONEXR+13
X	4+2!, DW+2, DW+4, DW+5, ALL+1, ALL+2, ALL+3, ALL+5, ALL+8, ALL+10! , ONE, ONE+1, ONE+4!, ONE+5, ONE+7, ONE+8, IND, IND+1, REDO*, Q , NO!, LOGIC+1~
X(	DW+2, DW+4!, ALL+5!, Q, UP, UP+1
X(0	ALL+8
X(1	ALL+2
Y	DW+1, DW+2, DW+4, ONE+4, UP+1, LOGIC+1~, LOGIC+9, LOGIC+16

Customize PDF page

Package: VA Fileman

Routine: DIU1

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
ALL
ONEXR(DI)	;Re-index one cross reference
NO
KWREG(ROOT,LEV,I,J)	;Kill entire regular index
DD
UP
ONE
Q
LOGIC(DIUNAME)	;
4	;RE-CROSS-REFERENCING -- UTILITY OPTION 4
IND
DW
REDO