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: DIKKUTL

Package: VA FileMan

Routine: DIKKUTL


Information

DIKKUTL ;SFISC/MKO-UTILITY OPTION TO DEFINE A KEY ;8:13 AM 7 Jun 2001

Source Information

Source file <DIKKUTL.m>

Entry Points

Name Comments DBIA/ICR reference
MOD ;Create/Modify/Edit a Key
REMOD ;Get and list keys on file DIKKFILE
DELETE(DIKKEY,DIKKTOP,DIKKFILE) ;Delete a Key
EDIT(DIKKEY,DIKKTOP,DIKKFILE) ;Edit a Key
REEDIT ;Come back here, if user chooses to re-edit the key
EDITEND ;
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
KEYID(KEY,TOP,FILE) ;Return string of text that identifies the key
RD() ;Prompt for action
EOP ;Issue Press Return to continue prompt
CHECK() ;Prompt whether to check key integrity

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