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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LEXEDF1

Package: Lexicon Utility

Routine: LEXEDF1


Information

LEXEDF1 ;ISL/KER - Edit/Display a Definition (Part 1) ;04/21/2014

Source Information

Source file <LEXEDF1.m>

Entry Points

Name Comments DBIA/ICR reference
ASK ; Ask user to select an expression to edit the definition
AGAIN
EDIT(LEXE) ; Edit the expression definition
RESULTS ; Display results of edit
EDITQ ; Quit edit
DISP(LEXX) ; Display a definition
EXIT ; Clean up and exit
SENDDEF ; Send edited definition to ISC

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The definition for ",^LEX(757.01,+Y,0)," is not editable"
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !!,"No selection made, try again using the same concept"
  • Line Location: ASK+8
Function Call: WRITE
  • Prompt: !!,"You were given various forms of an expression "
  • Line Location: AGAIN+4
Function Call: WRITE
  • Prompt: "(concept, synonyms and"
  • Line Location: AGAIN+5
Function Call: WRITE
  • Prompt: !,"lexical variants) to select from. "
  • Line Location: AGAIN+6
Function Call: WRITE
  • Prompt: "Do you wish to try again using"
  • Line Location: AGAIN+7
Function Call: WRITE
  • Prompt: !,"the same concept"
  • Line Location: AGAIN+8
Function Call: WRITE
  • Prompt: !,$E(^LEX(757.01,LEXE,0),1,78),!
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !,"This record is being edited by "
  • Line Location: EDIT+13
Function Call: WRITE
  • Prompt: "another user, try again later"
  • Line Location: EDIT+14
Function Call: WRITE
  • Prompt: !,"Changes to the definition were not saved"
  • Line Location: RESULTS+2
Function Call: WRITE
  • Prompt: !,"No changes made"
  • Line Location: RESULTS+3
Function Call: WRITE
  • Prompt: !,$P(LEX,U,2)
  • Line Location: RESULTS+4
Function Call: WRITE
  • Prompt: !!,"Definition: ",!
  • Condition for execution: X=1
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !,^LEX(757.01,LEXX,3,X,0)
  • Line Location: DISP+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LEX(757.01 - [#757.01] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call