Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Lexicon Utility 3 ^LEXA1  ($$CHANGE,$$EXP,$$SAVE,RESTORE,SHOT,SNAP)^LEXEDF2  $$ADR^LEXU  
VA Fileman 2 YN^DICN  ^DIE  
MailMan 1 ^XMD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lexicon Utility 1 LEX MGR EDIT DEFN  

Entry Points

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

External References

Name Field # of Occurrence
YN^DICN AGAIN+1
^DIE EDIT+15
^LEXA1 ASK+2
$$CHANGE^LEXEDF2 EDIT+16
$$EXP^LEXEDF2 ASK+5
$$SAVE^LEXEDF2 EDIT+17
RESTORE^LEXEDF2 EDIT+18
SHOT^LEXEDF2 EDIT+15
SNAP^LEXEDF2 EDIT+15
$$ADR^LEXU SENDDEF+1
^XMD SENDDEF+4

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
Routine Call
  • DIE
  • Line Location:
    • EDIT+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LEX(757.01 - [#757.01] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LEX(757.01 - [#757.01] ASK+4, AGAIN+9, EDIT+1, EDIT+3, EDIT+5, EDIT+6, EDIT+8, EDIT+11, EDIT+19, EDIT+20
, EDIT+21, EDIT+24, EDIT+27, EDIT+29, EDIT+30, DISP+1, DISP+2, DISP+3
^TMP("LEXDEF" EDIT+1!, EDIT+4*, EDIT+5*, EDIT+8*, EDIT+21*, EDIT+22*, EDIT+25*, EDIT+26*, EDIT+27*, EDIT+30*
, EDITQ+3!, EXIT+3!, SENDDEF+1, SENDDEF+5!

Label References

Name Line Occurrences
AGAIN AGAIN+3
ASK ASK+7
EDIT AGAIN+9
EDITQ EDIT+2, EDIT+12
EXIT LEXEDF1+14, ASK+2, ASK+3, ASK+5, ASK+7, AGAIN+9
RESULTS EDIT+19
SENDDEF EDIT+32

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % AGAIN+1*, AGAIN+2, AGAIN+3
DA LEXEDF1+11~, EDIT+9*, EXIT+1!
DIC LEXEDF1+11~, EDITQ+1!, EXIT+1!
DIC("A" ASK+1*
DIC(0 ASK+2*, AGAIN+1*, EDIT+10*
DIE LEXEDF1+11~, EDIT+9*, EDITQ+1!, EXIT+1!
DIFROM SENDDEF+1~
DIR LEXEDF1+11~, EDITQ+1!, EXIT+1!
DIROUT LEXEDF1+11~
DIRUT LEXEDF1+11~
DLAYGO LEXEDF1+11~, EDIT+10*, EDIT+19!, EDITQ+1!, EXIT+1!
DR LEXEDF1+11~, EDIT+9*, EDITQ+1!, EXIT+1!
DTOUT LEXEDF1+11~
DUOUT LEXEDF1+11~
DUZ LEXEDF1+14
LEX LEXEDF1+12~, EDIT+16*, EDIT+17, EDIT+18, EDIT+19, EDIT+32, RESULTS+2, RESULTS+4, EDITQ+1!, EXIT+1!
, SENDDEF+2
LEXADR SENDDEF+1~*, SENDDEF+3
LEXAID LEXEDF1+12~, EDITQ+1!, EXIT+1!
LEXAP ASK+1~, ASK+2*
LEXC LEXEDF1+12~, EDITQ+1!, EXIT+1!
LEXDIC0 LEXEDF1+12~, EDIT+9~, EDIT+10*, EDIT+19!, EDITQ+1!, EXIT+1!
LEXE LEXEDF1+12~, ASK+5*, ASK+7, AGAIN+2*!, AGAIN+9, EDIT~, EDIT+1, EDIT+2, EDIT+3, EDIT+5
, EDIT+6, EDIT+8, EDIT+9, EDIT+11, EDIT+15, EDIT+18, EDIT+19, EDIT+20, EDIT+21, EDIT+22
, EDIT+24, EDIT+27, EDIT+29, EDIT+30, EDITQ+2!, EXIT+2!
LEXI LEXEDF1+12~, EDITQ+2!, EXIT+2!
LEXL LEXEDF1+12~, EDITQ+2!, EXIT+2!
LEXLC LEXEDF1+12~, EDIT+5*, EDIT+6*, EDIT+7, EDIT+8, EDIT+29*, EDIT+30, EDITQ+2!, EXIT+2!
LEXMC LEXEDF1+13~, EDITQ+2!, EXIT+2!
LEXME LEXEDF1+13~, EDITQ+2!, EXIT+2!
LEXMP LEXEDF1+13~, EDIT+3*, EDIT+5*, EDIT+7*, EDIT+8, EDIT+23*, EDIT+25, EDIT+26, EDIT+27, EDIT+28*
, EDIT+30, EDIT+31*, EDITQ+2!, EXIT+2!
LEXS LEXEDF1+13~, EDITQ+2!, EXIT+2!
LEXSAV LEXEDF1+13~, EDIT+15*, EDIT+17*, EDIT+18, EDIT+19, EDIT+32, RESULTS+1, RESULTS+4, EDITQ+3!, EXIT+3!
LEXST LEXEDF1+13~, EDITQ+3!, EXIT+3!
LEXTY LEXEDF1+13~, EDITQ+3!, EXIT+3!
LEXX LEXEDF1+13~, EDITQ+3!, DISP~, DISP+1, DISP+2, DISP+3, EXIT+3!
U RESULTS+4, SENDDEF+2
X LEXEDF1+11~, LEXEDF1+14!, ASK+2, DISP+2~*, DISP+3, EXIT+1!
XCNP SENDDEF+5!
XMDUZ SENDDEF+4*, SENDDEF+5!
XMSUB SENDDEF+2*, SENDDEF+6!
XMTEXT SENDDEF+4*, SENDDEF+6!
XMY SENDDEF+6!
XMY( SENDDEF+3*
XMY("G.LEXICON@ISC-SLC.VA.GOV" SENDDEF+5!
XMZ SENDDEF+1!, SENDDEF+5!
Y LEXEDF1+11~, ASK+2, ASK+3, ASK+4, ASK+5, EXIT+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All