Routine: DIKKUTL1

Information

DIKKUTL1 ;SFISC/MKO-KEY CREATION ;10:08 AM 12 Jan 2001

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

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