Routine: DIKKUTL

Information

DIKKUTL ;SFISC/MKO-UTILITY OPTION TO DEFINE A KEY ;8:13 AM 7 Jun 2001 [ 04/02/2003 8:25 AM ]

Source Information

Source file <DIKKUTL.m>

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
VA Fileman	15	^DDS MSG^DIALOG UPDATE^DIE ^DIK LOADXREF^DIKC1 $$SUB^DIKCU ($$GCMP,WRAP)^DIKCU2 (DELETE,GETFLIST)^DIKCUTL KSC^DIKCUTL3 $$INTEG^DIKK (CREATE,UICREATE,UIMOD)^DIKKUTL1 ($$CHOOSE,GET,GETFLD,LIST)^DIKKUTL2 VERIFY^DIKKUTL3 ($$EDORC,$$EDORI,$$EORD,$$RORM)^DIKKUTL4 ^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
VA Fileman	2	DIKKUTL1 DIU

Entry Points

Name	Comments	DBIA/ICR reference
EOP	;Issue Press Return to continue prompt
EDITEND	;
KEYID(KEY,TOP,FILE)	;Return string of text that identifies the key
EDIT(DIKKEY,DIKKTOP,DIKKFILE)	;Edit a Key
DELUI(DIKKUI,DIKKTOP,DIKKFILE,DIKKID,DIKKEY)	;Delete the Uniqueness Index
DELKEY(DA,DIKKID)	;Call DIK to delete the key
UIID(UI,TOP,FILE)	;Return text that identifies uniqueness index
DELETE(DIKKEY,DIKKTOP,DIKKFILE)	;Delete a Key
CHECK()	;Prompt whether to check key integrity
RD()	;Prompt for action
REMOD	;Get and list keys on file DIKKFILE
REEDIT	;Come back here, if user chooses to re-edit the key
MOD	;Create/Modify/Edit a Key

External References

Name	Field # of Occurrence
^DDS	REEDIT+10
MSG^DIALOG	REEDIT+83
UPDATE^DIE	REEDIT+81
^DIK	REEDIT+71, DELKEY+2
LOADXREF^DIKC1	REEDIT+8, REEDIT+18
$$SUB^DIKCU	MOD+8
$$GCMP^DIKCU2	REEDIT+56
WRAP^DIKCU2	DELUI+10
DELETE^DIKCUTL	DELUI+15
GETFLIST^DIKCUTL	REEDIT+19
KSC^DIKCUTL3	REEDIT+20
$$INTEG^DIKK	EDITEND+4
CREATE^DIKKUTL1	REMOD+24
UICREATE^DIKKUTL1	REEDIT+42
UIMOD^DIKKUTL1	REEDIT+86
$$CHOOSE^DIKKUTL2	REMOD+11, REMOD+16, REMOD+28
GET^DIKKUTL2	REMOD+2
GETFLD^DIKKUTL2	REEDIT+31
LIST^DIKKUTL2	REMOD+3
VERIFY^DIKKUTL3	REMOD+29
$$EDORC^DIKKUTL4	REEDIT+47
$$EDORI^DIKKUTL4	EDITEND+6
$$EORD^DIKKUTL4	REEDIT+35, REEDIT+52
$$RORM^DIKKUTL4	REEDIT+60
^DIR	REMOD+23, DELETE+7, DELUI+14, RD+8, EOP+4, CHECK+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: REMOD+1
Function Call: WRITE	Prompt: ! Line Location: REMOD+3
Function Call: WRITE	Prompt: !,$C(7)_"The definition of the Uniqueness Index was modified." Line Location: REEDIT+17
Function Call: WRITE	Prompt: !!," Modifying fields in Key ..." Line Location: REEDIT+68
Function Call: WRITE	Prompt: " DONE!" Line Location: REEDIT+82
Function Call: WRITE	Prompt: !!,"Checking key integrity ..." Line Location: EDITEND+3
Function Call: WRITE	Prompt: " NO PROBLEMS" Line Location: EDITEND+4
Function Call: WRITE	Prompt: !!?2,$G(DIKKID)_" deleted." Line Location: DELKEY+3
Function Call: WRITE	Prompt: ! Line Location: RD+8
Function Call: WRITE	Prompt: ! Line Location: EOP+4
Function Call: WRITE	Prompt: ! Line Location: CHECK+5
Routine Call	DIE Line Location: REEDIT+81
Routine Call	DDS Line Location: REEDIT+10
Routine Call	DIALOG Line Location: REEDIT+83
Routine Call	DIR Line Location: REMOD+23 DELETE+7 DELUI+14 RD+8 EOP+4 CHECK+5

Name	Line Occurrences (* Changed, ! Killed)
^DD("IX" - [#.11]	REEDIT+16, UIID+1, UIID+2
^DD("KEY" - [#.31]	DELETE+10, DELETE+15, REEDIT+6, REEDIT+11, REEDIT+28, REEDIT+71, DELUI+7, KEYID+1

Label References

Name	Line Occurrences
$$CHECK	EDITEND+1
$$KEYID	DELETE+11, REEDIT+1
$$RD	REMOD+7
$$UIID	DELUI+9
DELETE	REMOD+12, EDITEND+8
DELKEY	DELETE+12, REEDIT+36, REEDIT+48, REEDIT+53
DELUI	DELETE+16, REEDIT+25
EDIT	REMOD+17
EDITEND	REEDIT+39, REEDIT+56
EOP	REEDIT+83, EDITEND+4
REEDIT	REEDIT+34, REEDIT+39, REEDIT+51, REEDIT+63, EDITEND+7
REMOD	REMOD+10, REMOD+15, REMOD+20, REMOD+27

Name	Field # of Occurrence
^(0	UIID+2, KEYID+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	EDIT+2~, REEDIT+9, REEDIT+10!, REEDIT+69~, REEDIT+71, REEDIT+72!, DELKEY~
DA(1	REEDIT+70*
DDSFILE	EDIT+2~, REEDIT+9*, REEDIT+10!
>> DI	MOD+8
>> DIERR	REEDIT+82
DIK	REEDIT+69~, REEDIT+70, REEDIT+72!, DELKEY+1~, DELKEY+2
DIKKCH	EDIT+1~, REEDIT+34, REEDIT+35, REEDIT+39, REEDIT+40, REEDIT+41, REEDIT+47, REEDIT+51, REEDIT+52, REEDIT+60* , REEDIT+63, REEDIT+66, REEDIT+86, EDITEND+1, EDITEND+6, EDITEND+7, EDITEND+8
DIKKCNT	MOD+4~, REMOD+2, REMOD+3, REMOD+6, REMOD+11, REMOD+16, REMOD+23, REMOD+28
DIKKEY	MOD+4~, REMOD+11, REMOD+12, REMOD+16, REMOD+17, REMOD+28*, REMOD+29, DELETE~, DELETE+10, DELETE+11 , DELETE+12, EDIT~, REEDIT+1, REEDIT+6, REEDIT+9, REEDIT+11, REEDIT+25, REEDIT+28, REEDIT+31, REEDIT+36 , REEDIT+42, REEDIT+48, REEDIT+53, REEDIT+70, REEDIT+71, REEDIT+77, REEDIT+86, EDITEND+4, EDITEND+8, DELUI~ , DELUI+6, DELUI+7
DIKKFDA	REEDIT+75~
DIKKFDA(	REEDIT+78, REEDIT+79, REEDIT+80*
DIKKFILE	MOD+4~, MOD+8, MOD+9, REMOD+2, REMOD+12, REMOD+17, REMOD+24, REMOD+29, DELETE~, DELETE+11 , DELETE+16, EDIT~, REEDIT+1, REEDIT+8, REEDIT+16, REEDIT+18, REEDIT+25, REEDIT+42, REEDIT+86, EDITEND+8 , DELUI~, DELUI+9, DELUI+15
DIKKFLD	EDIT+1~, REEDIT+31, REEDIT+34, REEDIT+39, REEDIT+51, REEDIT+60
DIKKFLIS	REEDIT+15~, REEDIT+19, REEDIT+20
DIKKID	DELETE+1~, DELETE+11, DELETE+12, DELETE+16, EDIT+1~, REEDIT+1, REEDIT+25, REEDIT+35, REEDIT+36, REEDIT+48 , REEDIT+52, REEDIT+53, DELUI~, DELUI+9, DELKEY~, DELKEY+3
DIKKIENS	REEDIT+75~, REEDIT+77*, REEDIT+78, REEDIT+79, REEDIT+80
DIKKNEW	REEDIT+15~, REEDIT+20
DIKKNO	EDIT+1~, REEDIT+42, REEDIT+43
DIKKOLD	EDIT+1~, REEDIT+7!, REEDIT+20, REEDIT+21!
DIKKOLD(	REEDIT+16
DIKKQUIT	MOD+4~, REMOD+1, REMOD+23*
DIKKROOT	MOD+4~, MOD+8*
DIKKSEQ	REEDIT+75~, REEDIT+76*, REEDIT+77, REEDIT+78, REEDIT+79, REEDIT+80
DIKKTOP	MOD+4~, MOD+8*, MOD+9, REMOD+12, REMOD+17, REMOD+24, REMOD+29, DELETE~, DELETE+11, DELETE+16 , EDIT~, REEDIT+1, REEDIT+20, REEDIT+25, REEDIT+42, REEDIT+86, EDITEND+4, EDITEND+8, DELUI~, DELUI+9 , DELUI+15
DIKKUFLD	EDIT+1~, REEDIT+31, REEDIT+51, REEDIT+60
DIKKUFLD(	REEDIT+76, REEDIT+78, REEDIT+79
DIKKUI	DELETE+1~, DELETE+10*, DELETE+15, DELETE+16, DELUI~, DELUI+7, DELUI+9, DELUI+15
DIKKUI0	EDIT+1~, REEDIT+6*, REEDIT+8, REEDIT+14, REEDIT+16, REEDIT+18, REEDIT+19, REEDIT+24, REEDIT+25
DIKKUI1	EDIT+1~, REEDIT+11*, REEDIT+14, REEDIT+16, REEDIT+24, REEDIT+31, REEDIT+34, REEDIT+39, REEDIT+86
DIR	MOD+5~, REMOD+23!, DELETE+1~, DELETE+7!, DELUI+2~, DELUI+14!, RD+1~, EOP+1~, CHECK+1~
DIR("?"	RD+4, RD+5, RD+6, RD+7, EOP+3, CHECK+3
DIR("A"	REMOD+22, DELETE+5, DELUI+12, DELUI+13, RD+3, EOP+2, CHECK+2*
DIR("B"	REMOD+21, DELETE+6
DIR(0	REMOD+21, DELETE+4, DELUI+11, RD+2, EOP+2, CHECK+4
DIROUT	MOD+5~, DELETE+1~, DELUI+2~, RD+1~, EOP+1~, CHECK+1~
DIRUT	MOD+5~, REMOD+23, DELETE+1~, DELETE+7, DELUI+2~, RD+1~, RD+8, EOP+1~, CHECK+1~, CHECK+6
>> DIU	MOD+8
DR	EDIT+2~, REEDIT+9*, REEDIT+10!
DTOUT	MOD+5~, DELETE+1~, DELUI+2~, DELUI+14, RD+1~, EOP+1~, CHECK+1~
DUOUT	MOD+5~, DELETE+1~, DELUI+2~, DELUI+14, RD+1~, EOP+1~, CHECK+1~
FILE	UIID~, UIID+2, KEYID~, KEYID+1
I	DELUI+1~, DELUI+6, DELUI+7, DELUI+12, DELUI+13
KEY	KEYID~, KEYID+1
MSG	DELUI+1~, DELUI+10
MSG(	DELUI+12, DELUI+13
MSG(0	DELUI+9*
TOP	UIID~, UIID+2, KEYID~, KEYID+1
U	DELETE+10, REEDIT+6, REEDIT+11, REEDIT+78, REEDIT+79, UIID+2, KEYID+1
UI	UIID~, UIID+1, UIID+2
X	MOD+5~, DELETE+1~, DELUI+2~, RD+1~, EOP+1~, CHECK+1~
Y	MOD+5~, REMOD+6, REMOD+7, REMOD+10, REMOD+15, REMOD+20, REMOD+23, REMOD+27, DELETE+1~, DELETE+7 , DELUI+2~, DELUI+14, RD+1~, RD+8, RD+9, EOP+1~, CHECK+1~, CHECK+6

Customize PDF page

Package: VA Fileman

Routine: DIKKUTL

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: