Routine: LEXWUP

Package	Total	Call Graph
Kernel	3	HOME^%ZIS ^%ZTLOAD ($$DT,$$FMDIFF,$$FMTE,$$NOW)^XLFDT
VA FileMan	2	^DIK $$GET1^DIQ
Lexicon Utility	1	($$RUN2,DT,STOP)^LEXWUM

Name	Comments	DBIA/ICR reference
EN	; Main Entry Point (tasked)
EN2	; Entry Point (tasked - purge selected keyword - LEXKEY) ; ; Needs LEXKEY One Keyword ; <or> ; LEXKEY(LEXKEY1) Selected Keywords ; LEXKEY(LEXKEY2) ; LEXKEY(LEXKEYn) ;
PUR	; Purge Keywords
SEL	; Selected Keywords (For Post-Install)
ICD	; ICD Diagnosis/Procedures
LEX	; Lexicon
DEND	; Display End Totals
DEXP	; Display Expression
DINA	; Display Inactive Keyword
ABT(X)	; Abort
INA(X)	; Inactive before Today or after LEXAFT (optional)
ACT(X)	; Active before Today or after LEXAFT (optional)
DT	; Display ^TMP
STOP	; Stop Task
GO	; Remove Stop
CLR	; Clear
ENV(X)	; Environment

Name	Field # of Occurrence
HOME^%ZIS	EN+11, EN2+18, ENV+1
^%ZTLOAD	EN+9, EN2+16
^DIK	ICD+20, LEX+26
$$GET1^DIQ	ENV+2
$$RUN2^LEXWUM	EN+3, EN2+10
DT^LEXWUM	DT+1
STOP^LEXWUM	STOP+1
$$DT^XLFDT	PUR+7, SEL+7, INA+1, ACT+1, ENV+1
$$FMDIFF^XLFDT	DEND+1
$$FMTE^XLFDT	DEND+32, DEND+33, DINA+2
$$NOW^XLFDT	PUR+7, SEL+7, DEND+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?4,$G(LEXNAM)," tasked (#",+($G(ZTSK)),")",! Line Location: EN+10
Function Call: WRITE	Prompt: !," LEXKEY keyword variable not defined",! Line Location: EN2+9
Function Call: WRITE	Prompt: !!,?4,$G(LEXNAM)," tasked (#",+($G(ZTSK)),")",! Line Location: EN2+17
Function Call: WRITE	Prompt: !,?3,"Lexicon Changes ",?35,$J(LEXLEXC,8) Line Location: DEND+7
Function Call: WRITE	Prompt: !,?5,"ICD-9 Diagnosis Changes ",?35,$J(LEXL01C,8) Line Location: DEND+8
Function Call: WRITE	Prompt: !,?5,"ICD-9 Procedure Changes ",?35,$J(LEXL02C,8) Line Location: DEND+9
Function Call: WRITE	Prompt: !,?5,"ICD-10 Diagnosis Changes ",?35,$J(LEXL30C,8) Line Location: DEND+10
Function Call: WRITE	Prompt: !,?5,"ICD-10 Procedure Changes ",?35,$J(LEXL31C,8) Line Location: DEND+11
Function Call: WRITE	Prompt: !,?5,"SNOMED CT Changes ",?35,$J(LEXL56C,8) Line Location: DEND+12
Function Call: WRITE	Prompt: !,?5,"TITLE 38 Changes ",?35,$J(LEXL17C,8) Line Location: DEND+13
Function Call: WRITE	Prompt: !,?5,"CPT-4 Procedure Changes ",?35,$J(LEXL03C,8) Line Location: DEND+14
Function Call: WRITE	Prompt: !,?5,"HCPCS Procedure Changes ",?35,$J(LEXL04C,8) Line Location: DEND+15
Function Call: WRITE	Prompt: ! Condition for execution: +($G(LEXLEXC))>0 Line Location: DEND+20
Function Call: WRITE	Prompt: !,?3,"ICD* File Changes",?35,$J(LEXSDOC,8) Line Location: DEND+20
Function Call: WRITE	Prompt: !,?5,LEXTAB,"ICD-9 Diagnosis Changes ",?35,$J(LEXI01C,8) Line Location: DEND+23
Function Call: WRITE	Prompt: !,?5,LEXTAB,"ICD-10 Diagnosis Changes ",?35,$J(LEXI30C,8) Line Location: DEND+24
Function Call: WRITE	Prompt: !,?5,LEXTAB,"ICD-9 Procedure Changes ",?35,$J(LEXI02C,8) Line Location: DEND+27
Function Call: WRITE	Prompt: !,?5,LEXTAB,"ICD-10 Procedure Changes ",?35,$J(LEXI31C,8) Line Location: DEND+28
Function Call: WRITE	Prompt: !,?3,"Total Changes ",?35,$J(LEXTTT,8) Line Location: DEND+31
Function Call: WRITE	Prompt: ! Line Location: DEND+32
Function Call: WRITE	Prompt: !,?3,"Start: ",?14,$TR($$FMTE^XLFDT(LEXBEG,"5Z"),"@"," ") Line Location: DEND+32
Function Call: WRITE	Prompt: !,?3,"Finish: ",?14,$TR($$FMTE^XLFDT(LEXEND,"5Z"),"@"," ") Line Location: DEND+33
Function Call: WRITE	Prompt: !,?3,"Elapsed: ",?14,$TR(LEXELP," ","0"),! Line Location: DEND+34
Function Call: WRITE	Prompt: !,"Expression: ",LEXEXP,!,"Include/Keyword: ",LEXINC,"/",LEXKEY Line Location: DEXP+3
Function Call: WRITE	Prompt: !,"IEN: ",LEXRT,LEXOIEN,"," Line Location: DEXP+4
Function Call: WRITE	Prompt: ! Line Location: DEXP+5
Function Call: WRITE	Prompt: !,"Keyword: ",LEXKEY,!,"Effective: ",$$FMTE^XLFDT(LEXEFF,"5Z"),!,"Inactive: ",$$FMTE^XLFDT(LEXINA,"5Z"),! Line Location: DINA+2
Function Call: WRITE	Prompt: !!,?5,"Invalid/Missing DUZ" Line Location: ENV+3
Routine Call	%ZIS Line Location: EN+11 EN2+18 ENV+1

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^LEX(757.01 - [#757.01]	LEX+3, LEX+4, LEX+5, LEX+18, LEX+19, LEX+20
^LEX(757.02 - [#757.02]	LEX+7, LEX+8
^LEX(757.071 - [#757.071]	PUR+8, PUR+10, PUR+12, PUR+13, SEL+9, SEL+12, SEL+13, SEL+18, SEL+21, SEL+22 , INA+1, INA+2, ACT+1, ACT+2
^TMP("LEXWU"	EN+8!, EN2+15!, PUR+2!, PUR+15!, SEL+2, SEL+24!, ABT+1, GO+1!, CLR+1!

Name	Line Occurrences
$$ABT	PUR+8, PUR+10, SEL+9, SEL+18
$$ENV	PUR+2
$$INA	PUR+11, SEL+10, SEL+19
@(	EN+9, EN2+16
CLR	SEL+2, SEL+24
DEND	PUR+15, SEL+24
DEXP	ICD+20, LEX+20
DINA	PUR+14, SEL+14, SEL+23
ICD	PUR+14, SEL+14, SEL+23
LEX	PUR+14, SEL+14, SEL+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	ICD+1~, ICD+14~, ICD+20, LEX+2~, LEX+19~, LEX+26, CLR+1!
DA(1	ICD+20, LEX+26
DA(2	ICD+20*
DIC	PUR+3~, SEL+3~, LEX+2~, CLR+1!
DICI	ICD+1~, CLR+1!
DIK	PUR+3~, SEL+3~, ICD+1~, ICD+14~, ICD+20, LEX+2~, LEX+19~, LEX+26, CLR+1!
DT	ENV+1*
DTIME	ENV+1*
DUZ	ENV+2
I	EN+1~, EN2+8~, PUR+3~, SEL+3~, LEX+2~, CLR+1!
LEX1	INA+1~, INA+4, INA+6, INA+8, INA+10, ACT+1~, ACT+4, ACT+6, ACT+8, ACT+10 , CLR+1!
LEX2	INA+1~, INA+2, INA+4, INA+6, INA+8, INA+10, ACT+1~, ACT+2, ACT+4, ACT+6 , ACT+8, ACT+10, CLR+1!
LEX3	CLR+1!
LEXA	INA+1~, INA+2, INA+4, INA+6, INA+8, ACT+1~, ACT+2, ACT+4, ACT+6, ACT+8 , CLR+1!
LEXAFT	EN+8, EN+11!, EN2+15, EN2+18!, PUR+7, SEL+7, INA+2, ACT+2, CLR+1!
LEXASRC	LEX+2~*, LEX+9
LEXBEG	PUR+3~, PUR+7, SEL+3~, SEL+7, DEND+1, DEND+2, DEND+32, CLR+1!
LEXC	CLR+1!
LEXCAP	CLR+1!
LEXCDT	CLR+1!
LEXCHK	EN+1~, EN+2, EN+4, EN+5, EN2+8~, EN2+11, ICD+1~, ICD+14~, ICD+17*, CLR+1!
LEXCOM	EN+1~, EN+6, EN+7!, EN+11!, EN2+8~, EN2+14!, EN2+18!, PUR+7!, SEL+7!, ICD+20 , LEX+26
LEXCT	CLR+1!
LEXCTR	PUR+3~, PUR+6, SEL+6, CLR+2!
LEXD	CLR+2!
LEXDIEN	ICD+1~, ICD+10~, ICD+11, ICD+13, ICD+15, ICD+16, ICD+18, ICD+19, ICD+20, CLR+2!
LEXEFF	PUR+3~, PUR+11~, PUR+12, SEL+10~, SEL+12, SEL+19~, SEL+21, ICD+1~, ICD+5~, ICD+9* , ICD+10, ICD+11, ICD+13, ICD+15, DINA+1, DINA+2, CLR+2!
LEXEIEN	LEX+4~*, LEX+5, LEX+6, LEX+16, CLR+2!
LEXELP	SEL+3~, DEND+1, DEND+2, DEND+34, CLR+2!
LEXEND	SEL+3~, DEND+1*, DEND+2, DEND+33, CLR+2!
LEXENV	PUR+2*, PUR+3~, CLR+2!
LEXEXC	PUR+3~, PUR+11~, PUR+13, SEL+10~, SEL+13, SEL+19~, SEL+22*, CLR+2!
LEXEXP	ICD+1~, ICD+14~, ICD+16, ICD+17, LEX+19~, DEXP+1, DEXP+3, CLR+2!
LEXFND	LEX+6~, LEX+9, CLR+2!
LEXI	ICD+1~, ICD+14~, ICD+17, INA+1~, INA+2, ACT+1~*, ACT+2, CLR+2!
LEXI01C	PUR+4~, PUR+5, SEL+4~, SEL+5, ICD+22*, DEND+17, DEND+18, DEND+21, DEND+22, DEND+23 , CLR+2!
LEXI02C	PUR+4~, PUR+5, SEL+4~, SEL+5, ICD+22*, DEND+17, DEND+18, DEND+25, DEND+26, DEND+27 , CLR+2!
LEXI30C	PUR+4~, PUR+5, SEL+4~, SEL+5, ICD+23*, DEND+17, DEND+18, DEND+21, DEND+22, DEND+24 , CLR+2!
LEXI31C	PUR+4~, PUR+5, SEL+4~, SEL+5, ICD+23*, DEND+17, DEND+18, DEND+25, DEND+26, DEND+28 , CLR+2!
LEXICDC	PUR+3~, PUR+6, SEL+6, ICD+21, DEND+3~, DEND+18, DEND+21*, DEND+22, CLR+2!
LEXICPC	PUR+3~, PUR+6, SEL+6, ICD+22, DEND+18, DEND+25*, DEND+26, CLR+2!
LEXIEN	CLR+3!
LEXIENA	LEX+6~, LEX+16!
LEXIENA(	LEX+16*, LEX+17
LEXII	DEND+2~*, CLR+3!
LEXIIEN	ICD+1~, ICD+3~, ICD+4, ICD+5, ICD+9, ICD+11, ICD+13, ICD+15, ICD+16, ICD+18 , ICD+19, ICD+20, CLR+3!
LEXINA	PUR+3~, PUR+11~, PUR+12, SEL+10~, SEL+12, SEL+19~, SEL+21*, DINA+1, DINA+2, CLR+3!
LEXINC	PUR+3~, PUR+11~, PUR+13, SEL+10~, SEL+13, SEL+19~, SEL+22*, ICD+2, ICD+17, LEX+1 , DEXP+1, DEXP+3, CLR+3!
LEXKEY	EN2+9, EN2+13, PUR+3~, PUR+7, PUR+8, PUR+10, SEL+2, SEL+8, SEL+9, SEL+17~* , SEL+18, ICD+2, ICD+4, ICD+9, ICD+11, ICD+13, ICD+15, ICD+19, LEX+1, LEX+3 , LEX+4, LEX+5, LEX+18, LEX+20, DEXP+1, DEXP+3, DINA+1, DINA+2, CLR+3!
LEXKEY(	SEL+16
LEXKEY(""	EN2+9, EN2+13, SEL+2, SEL+15
LEXKIEN	PUR+3~, PUR+9~, PUR+10, PUR+11, PUR+12, PUR+13, SEL+3~, SEL+9, SEL+10, SEL+12 , SEL+13, SEL+17~, SEL+18, SEL+19, SEL+21, SEL+22, LEX+18~, LEX+26, CLR+3!
LEXL01C	PUR+4~, PUR+5, SEL+4~, SEL+5, LEX+24*, DEND+5, DEND+8, CLR+3!
LEXL02C	PUR+4~, PUR+5, SEL+4~, SEL+5, LEX+25*, DEND+5, DEND+9, CLR+3!
LEXL03C	PUR+4~, PUR+5, SEL+4~, SEL+5, LEX+23*, DEND+5, DEND+14, CLR+3!
LEXL04C	PUR+4~, PUR+5, SEL+4~, SEL+5, LEX+23*, DEND+5, DEND+15, CLR+3!
LEXL17C	PUR+4~, PUR+5, SEL+4~, SEL+5, LEX+22*, DEND+5, DEND+13, CLR+1!, CLR+3!
LEXL30C	PUR+4~, PUR+5, SEL+4~, SEL+5, LEX+24*, DEND+5, DEND+10, CLR+3!
LEXL31C	PUR+4~, PUR+5, SEL+4~, SEL+5, LEX+25*, DEND+5, DEND+11, CLR+3!
LEXL56C	PUR+4~, PUR+5, SEL+4~, SEL+5, LEX+22*, DEND+5, DEND+12, CLR+3!
LEXLEXC	PUR+3~, PUR+6, SEL+6, DEND+3~, DEND+5*, DEND+6, DEND+7, DEND+20, DEND+29, DEND+30 , DEND+31, CLR+3!
LEXM	CLR+3!
LEXMIEN	LEX+2~, LEX+3, LEX+4, LEX+5, LEX+6, LEX+16, CLR+4!
LEXNAM	EN+1~, EN+2, EN+4, EN+10, EN2+8~, EN2+11*, EN2+17, CLR+4!
LEXND	ICD+1~, ICD+14~, ICD+15, ICD+16, ICD+18*, ICD+19, CLR+4!
LEXNM	CLR+4!, ENV+2~*, ENV+3
LEXO	INA+1~, INA+2, ACT+1~, ACT+2, CLR+4!
LEXOIEN	ICD+14~, ICD+18, LEX+19~, DEXP+4, CLR+4!
LEXOK	ICD+1~, ICD+14~, ICD+16, ICD+17, ICD+18, LEX+6~, LEX+9, CLR+4!
LEXORD	CLR+4!
LEXPUR	EN+5, EN+11!, EN2+12, EN2+18!, PUR+11, SEL+11, SEL+20
LEXQUIET	DEND+1, DEXP+1, DINA+1, CLR+4!
LEXRT	ICD+1~, ICD+3~, ICD+4, ICD+5, ICD+9, ICD+11, ICD+13, ICD+15, ICD+16, ICD+18 , ICD+19, ICD+20, LEX+2~, DEXP+4, CLR+4!
LEXRUN	EN+1~, EN+3, EN2+8~, EN2+10, CLR+4!
LEXS	LEX+21~*, LEX+22, LEX+23, LEX+24, LEX+25, CLR+4!
LEXSDOC	ICD+21, DEND+3~, DEND+17, DEND+19, DEND+20, DEND+29, DEND+30, CLR+4!
LEXSF	PUR+3~, PUR+7!, SEL+3~, SEL+7!, LEX+6!, CLR+4!
LEXSF(	LEX+15*, LEX+21
LEXSF(0	LEX+20
LEXSIEN	ICD+1~, ICD+12~, ICD+13, ICD+15, ICD+18, ICD+20, LEX+7~*, LEX+8, CLR+4!
LEXSRC	ICD+1~, ICD+5~, ICD+6, ICD+7, ICD+8, ICD+21, ICD+22, ICD+23, LEX+8~, LEX+9 , LEX+10, LEX+11, LEX+12, LEX+13, LEX+15, CLR+4!
LEXSS	LEX+2~, CLR+4!
LEXSTA	PUR+11~, SEL+10~, SEL+11, SEL+19~*, SEL+20, CLR+4!
LEXSUP	ICD+1~, ICD+14~, ICD+19, LEX+5~, CLR+5!
LEXSYS	ICD+5~, ICD+6, ICD+7, LEX+6~, LEX+10, LEX+11, LEX+12, LEX+13*, DEXP+2, CLR+5!
LEXT	INA+1~, ACT+1~, CLR+5!
LEXTAB	DEND+20~, DEND+21, DEND+22, DEND+23, DEND+24, DEND+25, DEND+26, DEND+27, DEND+28
LEXTD	PUR+3~, PUR+7, SEL+3~, SEL+7, ICD+2, LEX+1, CLR+5!
LEXTEST	EN+3, EN+7, EN+9, EN+11!, EN2+10, EN2+14, EN2+16, EN2+18!, PUR+7, SEL+7
LEXTIEN	LEX+6~, LEX+7, LEX+17, LEX+18, LEX+19, LEX+20, LEX+26, CLR+5!
LEXTKEY	SEL+16~*, SEL+17, CLR+5!
LEXTT	DEND+2~*, CLR+5!
LEXTTT	DEND+3~, DEND+29*, DEND+31, CLR+5!
LEXTYPE	ICD+5~, ICD+8, LEX+14, DEXP+2, CLR+5!
LEXY	CLR+5!
NEXKEY	CLR+5!
POP	CLR+5!, ENV+1!
U	ENV+1*
X	EN+1~, EN2+8~, PUR+3~, SEL+3~, ABT~, INA~, INA+1, ACT~, ACT+1, CLR+5! , ENV~
Y	EN+1~, EN2+8~, CLR+5!
ZT	EN+1~, EN2+8~, CLR+5!
ZTDESC	EN+1~, EN+2, EN+4, EN2+8~, EN2+11*, CLR+5!
ZTDTH	EN+1~, EN+8, EN2+8~, EN2+16, CLR+5!
ZTIO	EN+1~, EN+8, EN2+8~, EN2+16, CLR+5!
ZTKEY	EN+1~, EN2+8~, CLR+5!
ZTQUEUED	EN+1~, EN2+8~, PUR+1, SEL+1, DEND+1, DEXP+1, DINA+1, CLR+5!
ZTREQ	EN+1~, EN2+8~, PUR+1, SEL+1, CLR+6!
ZTRTN	EN+1~, EN+5, EN+9, EN2+8~, EN2+12, EN2+16, CLR+6!
ZTSAVE	EN+1~, EN2+8~, CLR+6!
ZTSAVE("LEXAFT"	EN+8, EN2+15
ZTSAVE("LEXCOM"	EN+6, EN+7!, EN2+14!
ZTSAVE("LEXKEY"	EN2+13*
ZTSAVE("LEXKEY("	EN2+13*
ZTSAVE("LEXPUR"	EN+5, EN2+12
ZTSAVE("LEXTEST"	EN+7, EN2+14
ZTSK	EN+1~, EN+10, EN2+8~, EN2+17, CLR+6!
ZTUCI	EN+1~, EN2+8~, CLR+6!

Customize PDF page

Package: Lexicon Utility

Routine: LEXWUP

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: