Routine: DIKKUTL1

Package	Total	Call Graph
VA Fileman	12	MSG^DIALOG FILE^DICN (FILE,UPDATE)^DIE ^DIK LOADXREF^DIKC1 ($$FLEVDIFF,$$FROOTDA)^DIKCU WRAP^DIKCU2 GETFLIST^DIKCUTL $$NAME^DIKCUTL1 KSC^DIKCUTL3 EDIT^DIKKUTL ^DIR

Package	Total	Caller Graph
VA Fileman	1	DIKKUTL

Entry Points

Name	Comments	DBIA/ICR reference
NAMERR(MSG)	;Invalid Index Name error
KEYID(KEY,TOP,FILE)	;Return string of text that identifies the key
NAME(DIKKFILE)	;Get next available Key name
ADDCRV(DIXR,DIKKFLD,DIKKERR)	;Add fields to Cross-Reference Values multiple
GETFLD(KEY,FLD)	;Get list fields in key
STUFF(DIXR,DIKKF01,DIKKFILE,DIKKNAM,DIKKFLD,DIKKID)	;Stuff other values into
ADDUI(DIKKFILE,DIKKNAM,DIXR)	;Add new entry to Index file
UIMOD(DIXR,DIKKEY,DIKKTOP,DIKKFILE)	;Modify the UI to match the Key
CREATE(DIKKTOP,DIKKFILE)	;Create a new key
DELCRV(DIXR)	;Delete all entries in CRV multiple
UICREATE(DIKKEY,DIKKTOP,DIKKFILE,DIKKNO)	;Create a new UI for key
BLDLOG(DIKKF01,DIKKFILE,DIKKNAM,DIKKFLD,DIKKSET,DIKKILL,DIKKWKIL)	;

External References

Name	Field # of Occurrence
MSG^DIALOG	CREATE+11, UICREATE+25, ADDUI+5, STUFF+19, ADDCRV+17
FILE^DICN	ADDCRV+8
FILE^DIE	UICREATE+25, STUFF+18, ADDCRV+16
UPDATE^DIE	CREATE+11, ADDUI+5
^DIK	DELCRV+3
LOADXREF^DIKC1	UIMOD+9, UIMOD+23, UICREATE+31
$$FLEVDIFF^DIKCU	BLDLOG+6
$$FROOTDA^DIKCU	BLDLOG+8
WRAP^DIKCU2	UICREATE+10
GETFLIST^DIKCUTL	UIMOD+8, UIMOD+22, UICREATE+30
$$NAME^DIKCUTL1	UICREATE+15
KSC^DIKCUTL3	UIMOD+24, UICREATE+32
EDIT^DIKKUTL	CREATE+14
^DIR	NAME+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !," Creating new Key '"_DIKKNAME_"' ..." Line Location: CREATE+7
Function Call: WRITE	Prompt: !!," Modifying Uniqueness Index ..." Line Location: UIMOD+5
Function Call: WRITE	Prompt: " DONE!" Line Location: UIMOD+18
Function Call: WRITE	Prompt: !,DIKKMSG(I) Line Location: UICREATE+11
Function Call: WRITE	Prompt: !!," One moment please ..." Line Location: ADDUI+2
Function Call: WRITE	Prompt: ! Line Location: NAME+10
Function Call: WRITE	Prompt: !!,$C(7)_$G(MSG),! Line Location: NAMERR+1
Routine Call	DIE Line Location: CREATE+11 ADDUI+5
Routine Call	DIE Line Location: UICREATE+25 STUFF+18 ADDCRV+16
Routine Call	DIALOG Line Location: CREATE+11 UICREATE+25 ADDUI+5 STUFF+19 ADDCRV+17
Routine Call	DIR Line Location: NAME+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	ADDCRV+3
^DD("IX" - [#.11]	UIMOD+15, DELCRV+3
^DD("KEY" - [#.31]	CREATE+10, GETFLD+9, GETFLD+10, GETFLD+11, GETFLD+12, GETFLD+13, NAME+4, NAME+12, KEYID+1

Label References

Name	Line Occurrences
$$KEYID	UIMOD+2, UICREATE+5
$$NAME	CREATE+4
ADDCRV	UIMOD+17, UICREATE+21
ADDUI	UICREATE+19
BLDLOG	STUFF+5
DELCRV	UIMOD+16
GETFLD	UIMOD+12, UICREATE+16
NAMERR	NAME+13
STUFF	UIMOD+15, UICREATE+20

Naked Globals

Name	Field # of Occurrence
^(0	UIMOD+15, KEYID+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	ADDCRV+1~, ADDCRV+8!, DELCRV+1~, DELCRV+3, GETFLD+7~, GETFLD+12, GETFLD+13
DA(1	ADDCRV+6, DELCRV+2
DD	ADDCRV+1~, ADDCRV+8!
DIC	ADDCRV+1~, ADDCRV+6*, ADDCRV+8!
DIC("P"	ADDCRV+3*
DIC(0	ADDCRV+6*
DIERR	CREATE+11, UICREATE+2~, UICREATE+25, ADDUI+5, STUFF+2~, STUFF+19, ADDCRV+1~, ADDCRV+17
DIK	DELCRV+1~, DELCRV+2*
DIKKERR	UIMOD+1~, UICREATE+2~, UICREATE+21, ADDCRV~, ADDCRV+4, ADDCRV+9, ADDCRV+17
DIKKEY	CREATE+1~, CREATE+13*, CREATE+14, UIMOD~, UIMOD+2, UIMOD+12, UICREATE~, UICREATE+5, UICREATE+16, UICREATE+24
DIKKF01	STUFF~, STUFF+5, STUFF+13, BLDLOG~, BLDLOG+6, BLDLOG+8
DIKKFDA	CREATE+1~, UICREATE+2~, UICREATE+26!, ADDUI+1~, STUFF+2~, ADDCRV+1~
DIKKFDA(	CREATE+8, CREATE+9, CREATE+10, UICREATE+24, ADDUI+3, ADDUI+4, STUFF+8, STUFF+9, STUFF+10, STUFF+11 , STUFF+12, STUFF+13, STUFF+14, STUFF+15, STUFF+16, STUFF+17, ADDCRV+12, ADDCRV+13, ADDCRV+14, ADDCRV+15
DIKKFILE	CREATE~, CREATE+4, CREATE+8, CREATE+10, CREATE+14, UIMOD~, UIMOD+2, UIMOD+9, UIMOD+15, UIMOD+23 , UICREATE~, UICREATE+5, UICREATE+15, UICREATE+19, UICREATE+20, UICREATE+31, ADDUI~, ADDUI+3, STUFF~, STUFF+5 , STUFF+13, STUFF+14, BLDLOG~, BLDLOG+6, NAME~, NAME+4, NAME+12
DIKKFLD	UIMOD+1~, UIMOD+12, UIMOD+15, UIMOD+17, UICREATE+16, UICREATE+20, UICREATE+21, STUFF~, STUFF+5, STUFF+10 , ADDCRV~, BLDLOG~, BLDLOG+3, BLDLOG+13
DIKKFLD(	ADDCRV+4, ADDCRV+14, ADDCRV+15, BLDLOG+12
DIKKFLIS	UIMOD+1~, UIMOD+8, UIMOD+22, UIMOD+24, UICREATE+2~, UICREATE+30, UICREATE+32
DIKKID	UIMOD+1~, UIMOD+2, UIMOD+15, UICREATE+2~, UICREATE+5, UICREATE+9, UICREATE+20, STUFF~, STUFF+8
DIKKIEN	CREATE+1~, CREATE+13!, ADDUI+1~
DIKKIEN(1	CREATE+13, ADDUI+6
DIKKILL	STUFF+2~, STUFF+5, STUFF+16, BLDLOG~, BLDLOG+3, BLDLOG+20
DIKKLDIF	BLDLOG+2~, BLDLOG+6, BLDLOG+7, BLDLOG+8, BLDLOG+16
DIKKMSG	UIMOD+1~, UICREATE+2~, UICREATE+8!, UICREATE+10, UICREATE+12!
DIKKMSG(	UICREATE+11
DIKKMSG(0	UICREATE+9*
DIKKNAM	UICREATE+2~, UICREATE+15*, UICREATE+19, UICREATE+20, ADDUI~, ADDUI+4, STUFF~, STUFF+5, BLDLOG~, BLDLOG+8
DIKKNAME	CREATE+1~, CREATE+4, CREATE+7, CREATE+9, NAME+1~, NAME+4, NAME+5*, NAME+9
DIKKNEW	UIMOD+1~, UIMOD+24, UICREATE+2~, UICREATE+32
DIKKNO	UICREATE~, UICREATE+4!, UICREATE+15, UICREATE+19, UICREATE+21, UICREATE+25
DIKKOLD	UIMOD+1~, UIMOD+24
DIKKROOT	BLDLOG+2~, BLDLOG+8, BLDLOG+9, BLDLOG+13, BLDLOG+16, BLDLOG+17, BLDLOG+20
DIKKSET	STUFF+2~, STUFF+5, STUFF+15, BLDLOG~, BLDLOG+3, BLDLOG+20
DIKKSS	ADDCRV+1~, ADDCRV+4, ADDCRV+7, ADDCRV+12, ADDCRV+13, ADDCRV+14, ADDCRV+15, BLDLOG+2~, BLDLOG+12, BLDLOG+13
DIKKTOP	CREATE~, CREATE+14, UIMOD~, UIMOD+2, UIMOD+24, UICREATE~, UICREATE+5, UICREATE+32
DIKKWKIL	STUFF+2~, STUFF+5, STUFF+17, BLDLOG~, BLDLOG+3, BLDLOG+9
DINUM	ADDCRV+1~, ADDCRV+7*, ADDCRV+8!
DIR	NAME+2~
DIR("A"	NAME+8*
DIR("B"	NAME+9*
DIR(0	NAME+7*
DIROUT	NAME+2~
DIRUT	NAME+2~, NAME+10, NAME+11, NAME+14
DIXR	UIMOD~, UIMOD+8, UIMOD+9, UIMOD+15, UIMOD+16, UIMOD+17, UIMOD+22, UIMOD+23, UICREATE+2~, UICREATE+19 , UICREATE+20, UICREATE+21, UICREATE+24, UICREATE+30, UICREATE+31, ADDUI~, ADDUI+6*, STUFF~, STUFF+8, STUFF+9 , STUFF+10, STUFF+11, STUFF+12, STUFF+13, STUFF+14, STUFF+15, STUFF+16, STUFF+17, ADDCRV~, ADDCRV+6 , ADDCRV+12, ADDCRV+13, ADDCRV+14, ADDCRV+15, DELCRV~, DELCRV+2, DELCRV+3
DO	ADDCRV+1~, ADDCRV+8!
DTOUT	NAME+2~
DUOUT	NAME+2~
FD	GETFLD+7~, GETFLD+10*, GETFLD+11, GETFLD+12, GETFLD+14
FI	GETFLD+7~, GETFLD+11*, GETFLD+12, GETFLD+14
FILE	KEYID~, KEYID+1
FLD	GETFLD~, GETFLD+8!, GETFLD+14
FLD(	GETFLD+14*
I	UICREATE+2~, UICREATE+11*, UICREATE+12!
KEY	GETFLD~, GETFLD+9, GETFLD+10, GETFLD+11, GETFLD+12, GETFLD+13, KEYID~, KEYID+1
L	BLDLOG+2~, BLDLOG+16*
MSG	NAMERR~, NAMERR+1
SQ	GETFLD+7~, GETFLD+8, GETFLD+9, GETFLD+10, GETFLD+11, GETFLD+12
TOP	KEYID~, KEYID+1
U	UIMOD+15, ADDCRV+3, ADDCRV+14, ADDCRV+15, GETFLD+14, KEYID+1
X	ADDCRV+1~, ADDCRV+7*, NAME+2~, NAME+10, NAME+12, NAME+14, NAMERR+2!
Y	ADDCRV+1~, ADDCRV+9, NAME+2~

Customize PDF page

Package: VA Fileman

Routine: DIKKUTL1

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: