Routine: LEXEDF1

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

Package

Total

Call Graph

Lexicon Utility

^LEXA1 ($$CHANGE,$$EXP,$$SAVE,RESTORE,SHOT,SNAP)^LEXEDF2 $$ADR^LEXU

VA Fileman

YN^DICN ^DIE

MailMan

^XMD

Package	Total	Caller Graph
Lexicon Utility	1	LEX MGR EDIT DEFN

Package

Total

Caller Graph

Lexicon Utility

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

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

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!

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!

Customize PDF page

Package: Lexicon Utility

Routine: LEXEDF1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: