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

Package: VA FileMan

Routine: DIKCUTL1


Information

DIKCUTL1 ;SFISC/MKO-UTILITY OPTION TO MODIFY INDEX ;9:10 AM 7 Aug 2001

Source Information

Source file <DIKCUTL1.m>

Entry Points

Name Comments DBIA/ICR reference
CREATE(DIKCTOP,DIKCFILE) ;Create a new index
TYPE() ;Prompt for index type (regular or MUMPS)
FILE01(DIKCTOP,DIKCFILE) ;Return file on which to store xref
USE(DIKCTYPE) ;Prompt for Use (Lookup or Lookup & Sorting)
NAME(DIKCF01,DIKCUSE) ;Get next available index name
NAMERR(MSG) ;Invalid index name error
ADD(DIKCF01,DIKCFILE,DIKCNAME,DIKCTYPE,DIKCUSE,DIXR) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," Index definition deleted."
  • Line Location: CREATE+20
Function Call: WRITE
  • Prompt: !
  • Line Location: TYPE+5
Function Call: WRITE
  • Prompt: !,$C(7)_"Only programmers can create MUMPS cross references."
  • Line Location: TYPE+7
Function Call: WRITE
  • Prompt: !,$C(7)_"Cannot create MUMPS cross references on archived files."
  • Line Location: TYPE+9
Function Call: WRITE
  • Prompt: !
  • Line Location: FILE01+12
Function Call: WRITE
  • Prompt: !
  • Line Location: USE+13
Function Call: WRITE
  • Prompt: !
  • Line Location: NAME+15
Function Call: WRITE
  • Prompt: !!,$C(7)_$G(MSG),!
  • Line Location: NAMERR+1
Info |  Source |  Entry Points |  Interaction Calls