Routine: LEXAR8

Information

LEXAR8 ;ISL/KER - Look-up Response (CONCEPT USAGE update) ;05/23/2017

Package	Total	Call Graph
Kernel	4	HOME^%ZIS ^%ZTLOAD $$DT^XLFDT $$UP^XLFSTR
VA FileMan	4	(FILE,UPDATE)^DIE (IX1,IX2)^DIK $$IENS^DILF $$GET1^DIQ
DRG Grouper	1	($$CODEC,$$CSI,$$SAB)^ICDEX
Lexicon Utility	1	$$STATCHK^LEXSRC2

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Lexicon Utility	1	LEXA

Entry Points

Name	Comments	DBIA/ICR reference
UPDT	; Update CONCEPT USAGE file 757.001 (TaskMan)
UPD	; Update CONCEPT USAGE file 757.001 (using Problem List)
UPDF(M,S,X,Y)	; Update CONCEPT USAGE file 757.001 (FileMan)
CLEART	; Set the Frequency to the Original Value (TaskMan)
CLEAR	; Set the Frequency to the Original Value
POPT	; Populate the Original Value (ONLY) (TaskMan)
POP	; Populate the Original Value (ONLY)
EDIT(M,S,X,Y)	; Edit CONCEPT USAGE file 757.001 (FileMan) ; M Major Concept IEN ; S System/Type of Edit ; X Originating Value ; Y Frequency
ORIG(X)	; Get frequency based on codes and semantics
INC(X)	; Increment Expression
ENV(X)	; Check environment

External References

Name	Field # of Occurrence
HOME^%ZIS	ENV+1
^%ZTLOAD	UPDT+4, CLEART+4, POPT+4
FILE^DIE	UPDF+7, EDIT+11
UPDATE^DIE	EDIT+15
IX1^DIK	POP+6, POP+17, INC+22
IX2^DIK	POP+5, POP+15, INC+20
$$IENS^DILF	UPDF+5, EDIT+10
$$GET1^DIQ	UPD+14, ENV+3
$$CODEC^ICDEX	UPD+6
$$CSI^ICDEX	UPD+7
$$SAB^ICDEX	UPD+8
$$STATCHK^LEXSRC2	UPD+9, UPD+15
$$DT^XLFDT	UPD+2, ENV+1
$$UP^XLFSTR	ORIG+26

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"CONCEPT USAGE update tasked (Task #"_+($G(ZTSK))_"). " Line Location: UPDT+6
Function Call: WRITE	Prompt: !,LEXS,?15,LEXMIEN,?25,LEXORG,?30,LEXFRQ Line Location: UPDF+9
Function Call: WRITE	Prompt: ?35,"(formerly ",LEXOFQ,")" Line Location: UPDF+10
Function Call: WRITE	Prompt: !,"CONCEPT USAGE update tasked (Task #"_+($G(ZTSK))_"). " Line Location: CLEART+6
Function Call: WRITE	Prompt: !,"CONCEPT USAGE update tasked (Task #"_+($G(ZTSK))_"). " Line Location: POPT+6
Function Call: WRITE	Prompt: !,"Populate",?15,LEXMIEN,?25,LEXORG,?30,LEXFRQ,?35,"(new)" Line Location: POP+8
Function Call: WRITE	Prompt: !,"Populate",?15,LEXMIEN,?25,LEXORG Line Location: POP+19
Function Call: WRITE	Prompt: ?35,"(formerly ",LEXOFQ,")" Line Location: EDIT+18
Function Call: WRITE	Prompt: !!,?5,"DUZ not defined" Line Location: ENV+2
Function Call: WRITE	Prompt: !!,?5,"DUZ not valid" Line Location: ENV+4
Routine Call	%ZIS Line Location: ENV+1
Routine Call	DIE Line Location: UPDF+7 EDIT+11
Routine Call	DIE Line Location: EDIT+15

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^LEX(757.001 - [#757.001]	Classic Fileman Calls
^AUPNPROB - [#9000011]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB("B"	UPD+2, UPD+3
^LEX(757 - [#757]	UPD+40, CLEAR+1, POP+1, ORIG+1, INC+17
^LEX(757.001 - [#757.001]	UPD+43, UPDF+2, UPDF+3, UPDF+4, UPDF+6, CLEAR+4, POP+3, POP+5, POP+9, POP+13 , POP+14, POP+16, EDIT+6, EDIT+7, EDIT+8, EDIT+9, EDIT+13, INC+17, INC+18, INC+19 , INC+21*
^LEX(757.01 - [#757.01]	UPD+41, ORIG+25, ORIG+26, INC+16
^LEX(757.02 - [#757.02]	UPD+21, UPD+30, UPD+37, UPD+38, ORIG+2, ORIG+3
^LEX(757.1 - [#757.1]	ORIG+18, ORIG+19
^TMP("LEXPL"	UPD+1!, UPD+11, UPD+12, UPD+13, UPD+17, UPD+18, UPD+19, UPD+22!, UPD+23, UPD+24 , UPD+25, UPD+28, UPD+31!, UPD+32, UPD+33, UPD+39, UPD+45!, UPDF+3, UPDF+8, CLEAR+6! , POP+21!, EDIT+7, EDIT+17*

Label References

Name	Line Occurrences
$$ENV	UPDT+2, CLEART+2, POPT+2
$$ORIG	UPD+24, UPD+33, UPD+42, CLEAR+2, POP+4, POP+11
@(	UPDT+4, CLEART+4, POPT+4
EDIT	CLEAR+5
UPDF	UPD+27, UPD+34, UPD+43

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	UPDF+1~, UPDF+4, UPDF+5, POP+5~, POP+6~, POP+14~, POP+15, POP+17~, EDIT+10~, EDIT+14~ , INC+15~, INC+20, INC+22
DIK	POP+5~, POP+6~, POP+14~, POP+15, POP+17~, INC+15~, INC+20, INC+22
DT	ENV+1*
DUZ	ENV+2, ENV+3
LEXBD	ORIG+1~, ORIG+19~*, ORIG+22, ORIG+24
LEXBUILD	UPDT+5, UPDF+1~, CLEART+5, POPT+5
LEXCL	ORIG+1~, ORIG+3~, ORIG+7, ORIG+10, ORIG+12, ORIG+14, ORIG+16, ORIG+17, ORIG+19~, ORIG+22* , ORIG+24*
LEXCOD	UPD+6, UPD+9, UPD+14, UPD+15, UPD+20~, UPD+29~
LEXCT	UPD+1~, UPD+44, UPD+45, UPDF+8, CLEAR+1~, CLEAR+6, CLEAR+7, POP+1~, POP+6, POP+17 , POP+21, POP+22, EDIT+12, EDIT+16
LEXDA	EDIT+10~, EDIT+14~
LEXDA(1	EDIT+14*
LEXDES	UPD+20~, UPD+29~
LEXDIF	POP+2~, POP+10*, POP+11
LEXEIEN	UPD+20~, UPD+21, UPD+29~, UPD+30, UPD+38~, UPD+40, UPD+41, INC+15~, INC+16
LEXENV	UPDT+1~, UPDT+2, CLEART+1~, CLEART+2, POPT+1~, POPT+2*
LEXERR	UPDF+1~, UPDF+7!, UPDF+8, EDIT+5~, EDIT+9!, EDIT+10~, EDIT+11!, EDIT+12, EDIT+14~, EDIT+15! , EDIT+16
LEXFDA	UPDF+1~, EDIT+10~, EDIT+14~
LEXFDA(	UPDF+5, UPDF+7, EDIT+10, EDIT+11, EDIT+14, EDIT+15
LEXFQ	INC+15~, INC+19*, INC+21
LEXFRQ	UPD+20~, UPD+25, UPD+26, UPD+29~, UPD+33, UPD+38~, UPD+42, UPD+43, UPDF+1~, UPDF+2 , UPDF+3, UPDF+6, UPDF+7, UPDF+9, UPDF+10, CLEAR+2~, CLEAR+3, CLEAR+5, POP+2~, POP+4~ , POP+8, POP+9, POP+10, POP+11, POP+12, POP+14, EDIT+5~, EDIT+6*, EDIT+7, EDIT+8 , EDIT+11, EDIT+15, EDIT+18
LEXFS	ORIG+1~, ORIG+2, ORIG+34, ORIG+35
LEXID	UPDF+9~*, EDIT+5~
LEXIENS	UPDF+1~, UPDF+5, UPDF+7, EDIT+10~, EDIT+11, EDIT+14~
LEXIGHF	UPDT+5, UPDF+1~, CLEART+5, POPT+5
LEXIIEN	UPD+1~, UPD+2*, UPD+3, UPD+5, UPD+6, UPD+7
LEXLEX	UPD+4~
LEXMC	INC+15~, INC+18*, INC+19, INC+21
LEXMIEN	UPD+20~, UPD+22, UPD+23, UPD+24, UPD+27, UPD+29~, UPD+31, UPD+32, UPD+33, UPD+34 , UPD+38~, UPD+39, UPD+40, UPD+42, UPD+43, UPDF+1~, UPDF+2, UPDF+3, UPDF+4, UPDF+5 , UPDF+6, UPDF+8, UPDF+9, CLEAR+1~, CLEAR+2, CLEAR+3, CLEAR+4, CLEAR+5, POP+1~, POP+3 , POP+4, POP+5, POP+6, POP+8, POP+9, POP+11, POP+12, POP+13, POP+14, POP+15 , POP+16, POP+17, POP+19, EDIT+5~, EDIT+6, EDIT+7, EDIT+8, EDIT+9, EDIT+10, EDIT+13 , EDIT+14, EDIT+17, EDIT+18, ORIG+1~, ORIG+2, ORIG+18, ORIG+25, INC+15~, INC+16*, INC+17 , INC+18, INC+19, INC+20, INC+21, INC+22
LEXND	UPD+38~, UPD+42, UPD+43, CLEAR+2~, CLEAR+3, CLEAR+5, POP+2~, POP+4~, POP+5, POP+9 , POP+12*, POP+13, POP+16
LEXNEW	UPD+20~, UPD+26, UPD+27, UPD+29~, UPD+33, UPD+34, UPDF+1~, UPDF+6, POP+14~, POP+20 , EDIT+5~, EDIT+8*, EDIT+9
LEXNM	ENV+1~, ENV+3*, ENV+4
LEXNOD	UPD+20~, UPD+21, UPD+22, UPD+29~, UPD+30, UPD+31, ORIG+1~, ORIG+3~*
LEXNOT	UPD+1~
LEXNOT(	UPD+5
LEXNOT(521774	UPD+1*
LEXNOT(5570	UPD+1*
LEXOFQ	UPDF+1~, UPDF+4, UPDF+10, CLEAR+2~, CLEAR+4, EDIT+5~, EDIT+8, EDIT+15, EDIT+18
LEXOLD	UPDF+1~, UPDF+6, CLEAR+2~, CLEAR+4, CLEAR+5, POP+14~, POP+20, EDIT+5~, EDIT+9
LEXOR	INC+15~, INC+18*, INC+21
LEXORG	UPD+20~, UPD+24, UPD+26, UPD+27, UPD+29~, UPD+33, UPD+34, UPD+38~, UPD+42, UPD+43 , UPDF+1~, UPDF+2, UPDF+3, UPDF+5, UPDF+6, UPDF+9, CLEAR+2~, CLEAR+3, CLEAR+5, POP+2~ , POP+4~, POP+8, POP+9, POP+10, POP+11, POP+12, POP+19, EDIT+5~, EDIT+6*, EDIT+7 , EDIT+8, EDIT+11, EDIT+14, EDIT+18
LEXPIEN	UPD+3~*, UPD+14
LEXREQP	UPDT+5, UPDF+1~, CLEART+5, POPT+5
LEXS	UPD+36~, UPD+37, UPD+43, UPDF+1~, UPDF+2, UPDF+9, EDIT+5~, EDIT+6, EDIT+18*
LEXSAB	UPD+8, UPD+9, UPD+12, UPD+13, UPD+20~, UPD+24, UPD+29~, UPD+33, UPD+35, UPD+36 , UPD+37, ORIG+1~, ORIG+3~*, ORIG+7, ORIG+10, ORIG+12, ORIG+14, ORIG+16
LEXSCT	ORIG+1~, ORIG+26~, ORIG+29, ORIG+30, ORIG+31, ORIG+33*, ORIG+34
LEXSCTC	UPD+4~
LEXSIEN	UPD+4~, UPD+10, UPD+11, UPD+12, UPD+13, UPD+16, UPD+17, UPD+18, UPD+19, UPD+21 , UPD+22, UPD+24, UPD+25, UPD+28, UPD+30, UPD+31, UPD+33, UPD+36~, UPD+37*, UPD+38
LEXSM	ORIG+1~, ORIG+2, ORIG+24, ORIG+35
LEXSO	ORIG+1~, ORIG+2, ORIG+17, ORIG+35
LEXSTA	UPD+4~, UPD+9, UPD+10, UPD+15, UPD+16, UPD+20~, UPD+29~
LEXSYS	UPD+7*, UPD+8, UPD+20~, UPD+29~
LEXTD	UPD+1~, UPD+2*, UPD+9, UPD+15
LEXTEST	UPDT+4, UPDF+8, CLEART+4, POPT+4, POP+7, POP+18, EDIT+17, ENV+1~
LEXTIEN	ORIG+1~, ORIG+2, ORIG+3, ORIG+18, ORIG+19, ORIG+25*, ORIG+26
LEXTX	ORIG+1~, ORIG+26~*, ORIG+29, ORIG+30, ORIG+31, ORIG+33
M	UPDF~, UPDF+2, EDIT~, EDIT+6
S	UPDF~, EDIT~
U	ORIG+3, ORIG+19, ENV+1*
X	UPDT+1~, UPDF~, UPDF+2, CLEART+1~, POPT+1~, EDIT~, EDIT+6, ORIG~, ORIG+1, ORIG+2* , ORIG+35*, ORIG+36, INC~, INC+16, ENV~
XPDENV	UPDT+5, UPDF+1~, CLEART+5, POPT+5
Y	UPDT+1~, UPDF~, UPDF+2, CLEART+1~, POPT+1~, EDIT~, EDIT+6
ZTDESC	UPDT+1~, UPDT+3, CLEART+1~, CLEART+3, POPT+1~, POPT+3*
ZTDTH	UPDT+1~, UPDT+2, CLEART+1~, CLEART+2, POPT+1~, POPT+2*
ZTIO	UPDT+1~, UPDT+2, CLEART+1~, CLEART+2, POPT+1~, POPT+2*
ZTPRI	UPDT+1~, UPDT+2, CLEART+1~, CLEART+2, POPT+1~, POPT+2*
ZTQUEUED	UPDT+1~, UPD+44, UPD+45, UPDF+8, CLEART+1~, CLEAR+6, CLEAR+7, POPT+1~, POP+7, POP+18 , POP+21, POP+22, EDIT+17
ZTREQ	UPDT+1~, CLEART+1~, POPT+1~
ZTRTN	UPDT+1~, UPDT+2, UPDT+4, CLEART+1~, CLEART+2, CLEART+4, POPT+1~, POPT+2*, POPT+4
ZTSAVE	UPDT+1~, CLEART+1~, POPT+1~
ZTSK	UPDT+1~, UPDT+5, UPDT+6, CLEART+1~, CLEART+5, CLEART+6, POPT+1~, POPT+5, POPT+6

Customize PDF page

Package: Lexicon Utility