Routine: DIKCUTL1

Package	Total	Call Graph
VA Fileman	10	^DDS MSG^DIALOG TRIG^DICR UPDATE^DIE ^DIK LOADXREF^DIKC1 FINFO^DIKCU1 GETFLIST^DIKCUTL (DIEZ,KSC)^DIKCUTL3 ^DIR

Package

Total

Call Graph

VA Fileman

^DDS MSG^DIALOG TRIG^DICR UPDATE^DIE ^DIK LOADXREF^DIKC1 FINFO^DIKCU1 GETFLIST^DIKCUTL
(DIEZ,KSC)^DIKCUTL3 ^DIR

Package	Total	Caller Graph
VA Fileman	2	DIKCUTL DIKKUTL1

Package

Total

Caller Graph

VA Fileman

DIKCUTL DIKKUTL1

Entry Points

Name	Comments	DBIA/ICR reference
NAME(DIKCF01,DIKCUSE)	;Get next available index name
NAMERR(MSG)	;Invalid index name error
CREATE(DIKCTOP,DIKCFILE)	;Create a new index
TYPE()	;Prompt for index type (regular or MUMPS)
ADD(DIKCF01,DIKCFILE,DIKCNAME,DIKCTYPE,DIKCUSE,DIXR)	;
USE(DIKCTYPE)	;Prompt for Use (Lookup or Lookup & Sorting)
FILE01(DIKCTOP,DIKCFILE)	;Return file on which to store xref

External References

Name	Field # of Occurrence
^DDS	CREATE+15
MSG^DIALOG	ADD+16
TRIG^DICR	CREATE+26
UPDATE^DIE	ADD+14
^DIK	CREATE+19
LOADXREF^DIKC1	CREATE+28
FINFO^DIKCU1	FILE01+9
GETFLIST^DIKCUTL	CREATE+25
DIEZ^DIKCUTL3	CREATE+27
KSC^DIKCUTL3	CREATE+29
^DIR	TYPE+5, FILE01+17, USE+13, NAME+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," Index definition deleted." Line Location: CREATE+20
Function Call: WRITE	Prompt: ! Line Location: TYPE+5
Function Call: WRITE	Prompt: !,$C(7)_"Only programmers can create MUMPS cross references." Line Location: TYPE+7
Function Call: WRITE	Prompt: !,$C(7)_"Cannot create MUMPS cross references on archived files." Line Location: TYPE+9
Function Call: WRITE	Prompt: ! Line Location: FILE01+12
Function Call: WRITE	Prompt: ! Line Location: USE+13
Function Call: WRITE	Prompt: ! Line Location: NAME+15
Function Call: WRITE	Prompt: !!,$C(7)_$G(MSG),! Line Location: NAMERR+1
Routine Call	DIE Line Location: ADD+14
Routine Call	DDS Line Location: CREATE+15
Routine Call	DIALOG Line Location: ADD+16
Routine Call	DIR Line Location: TYPE+5 FILE01+17 USE+13 NAME+19

Name	Line Occurrences (* Changed, ! Killed)
^DD(	TYPE+8, NAME+9, NAME+30
^DD("IX" - [#.11]	CREATE+16, CREATE+17, NAME+8, NAME+28

Name	Line Occurrences
$$FILE01	CREATE+6
$$NAME	CREATE+8
$$TYPE	CREATE+5
$$USE	CREATE+7
ADD	CREATE+11
NAMERR	NAME+23, NAME+25, NAME+27, NAME+29, NAME+31

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	CREATE+2~, CREATE+15!, CREATE+18~, CREATE+19
DDSFILE	CREATE+2~, CREATE+15*!
>> DIERR	ADD+15
DIK	CREATE+18~, CREATE+19*
DIKCASC	NAME+1~, NAME+6*, NAME+7
DIKCF01	CREATE+1~, CREATE+6*, CREATE+8, CREATE+11, NAME~, NAME+8, NAME+9, NAME+28, NAME+30, ADD~ , ADD+4, ADD+10
DIKCFDA	ADD+3~
DIKCFDA(	ADD+4, ADD+5, ADD+6, ADD+7, ADD+8, ADD+9, ADD+10, ADD+11, ADD+12, ADD+13
DIKCFILE	CREATE~, CREATE+6, CREATE+11, CREATE+28, FILE01~, FILE01+2, FILE01+9, FILE01+20, ADD~, ADD+10 , ADD+11
DIKCFLIS	CREATE+1~, CREATE+25, CREATE+26, CREATE+29
DIKCIEN	ADD+3~
DIKCIEN(1	ADD+15
DIKCNAME	CREATE+1~, CREATE+8, CREATE+11, NAME+1~, NAME+6, NAME+7, NAME+8, NAME+9, NAME+12, NAME+17 , ADD~, ADD+5
DIKCNEW	CREATE+1~, CREATE+29
DIKCSTRT	NAME+1~, NAME+5*, NAME+7
DIKCTLIS	CREATE+1~, CREATE+26!, CREATE+27
DIKCTOP	CREATE~, CREATE+6, CREATE+29, TYPE+8, FILE01~, FILE01+2
DIKCTYPE	CREATE+1~, CREATE+5, CREATE+7, CREATE+11, TYPE+1~, TYPE+4, TYPE+10, TYPE+12, USE~, USE+5 , ADD~, ADD+6
DIKCUSE	CREATE+1~, CREATE+7*, CREATE+8, CREATE+11, NAME~, NAME+5, NAME+22, NAME+24, NAME+26, ADD~ , ADD+9
DIR	TYPE+1~, FILE01+6~, USE+3~, USE+13!, NAME+2~
DIR("?"	FILE01+14*
DIR("A"	TYPE+3, FILE01+16, USE+6, USE+9, USE+10, NAME+17
DIR("B"	TYPE+3, FILE01+13, USE+7, USE+11, NAME+17*
DIR(0	TYPE+3, FILE01+13, USE+4, USE+12, NAME+16*
DIROUT	TYPE+1~, FILE01+6~, USE+3~, NAME+2~
DIRUT	TYPE+1~, TYPE+4, TYPE+5, TYPE+12, FILE01+6~, FILE01+15, FILE01+17, FILE01+20, USE+3~, NAME+2~ , NAME+18, NAME+19, NAME+33
DIXR	CREATE+1~, CREATE+11, CREATE+15, CREATE+16, CREATE+17, CREATE+19, CREATE+25, CREATE+28, ADD~, ADD+15* , ADD+16*
DR	CREATE+2~, CREATE+15*!
DTOUT	TYPE+1~, FILE01+6~, USE+3~, USE+14, NAME+2~
DUOUT	FILE01+6~, USE+3~, USE+14, NAME+2~
DUZ(0	TYPE+6, NAME+12
FILE01	FILE01+5~, FILE01+15, FILE01+18*, FILE01+20
FINFO	FILE01+5~, FILE01+9
FINFO(	FILE01+16, FILE01+18
FINFO(""	FILE01+15
LEV	FILE01+5~, FILE01+15*, FILE01+16, FILE01+18
MSG	NAMERR~, NAMERR+1
U	CREATE+17, TYPE+8, FILE01+16, FILE01+18
X	TYPE+1~, FILE01+6~, USE+3~, NAME+2~, NAME+18, NAME+22, NAME+24, NAME+26, NAME+28, NAME+30 , NAME+33, NAMERR+2!
Y	TYPE+1~, TYPE+6, TYPE+8, TYPE+10, FILE01+6~, FILE01+17, USE+3~, USE+14, NAME+2~

Customize PDF page

Package: VA Fileman

Routine: DIKCUTL1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: