Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: DIKKUTL1

Package: VA FileMan

Routine: DIKKUTL1


Information

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

Source Information

Source file <DIKKUTL1.m>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls