Routine: LEX10PL

Package	Total	Call Graph
Kernel	4	HOME^%ZIS (ENDR,KILL)^%ZISS ($$DT,$$FMADD)^XLFDT $$UP^XLFSTR
Lexicon Utility	3	$$PCSDIG^LEX10CS ($$SEL,PR)^LEX10PLS $$STATCHK^LEXSRC2
VA Fileman	3	^DIM $$GET1^DIQ ^DIR
DRG Grouper	1	($$ICDOP,$$IMP)^ICDEX

Package	Total	Caller Graph
Lexicon Utility	1	LEX10PLS

Entry Points

Name	Comments	DBIA/ICR reference
SOP(X)	; Code Pre-Processing
CUR(X)	; Current Array
END(X,Y)	; End Search, display results
BEG	; Begin Recursive Loop
RET(X,Y,LEXN,LEXC)	; Retrieve Defaults
FND(X)	; Found
TOT(X,Y)	; Total Possible
ATTR	; Screen Attributes
SOH	; Select a Code Help
ROK(X)	; Routine OK
SAV(X,Y,LEXN,LEXC,LEXV)	; Save Defaults
SO(X)	; Enter a Code/Code Fragment
GETO(X)	; Get One
NXT	; Next
EN	; Main Entry Point ; ; Input ; ; None ; ; Output ; ; Y 2 Piece "^" delimited string ; 1 IEN to the Expression File 757.01 ; 2 Expression Display Text ; ; Y("ICD") 2 Piece "^" delimited string ; 1 IEN ICD OPERATION/PROCEDURE File #80.1 ; 2 ICD Code ;
KATTR	; Kill Screen Attributes
NAM(X)	; Descriptive Dane
SN(X,EFF)	; Short Name
LOOK	; Lookup
GCUR(X,LEXA)	; Get Current Array
ENV(X)	; Check environment
TAG(X)	; Sub-Routine OK

External References

Name	Field # of Occurrence
HOME^%ZIS	ENV+1
ENDR^%ZISS	ATTR+1
KILL^%ZISS	KATTR+1
^DIM	TAG+4
$$GET1^DIQ	SAV+3, RET+4, ENV+2
^DIR	SO+7
$$ICDOP^ICDEX	LOOK+31
$$IMP^ICDEX	EN+25, NAM+2, SN+2
$$PCSDIG^LEX10CS	LOOK+2, TOT+2
$$SEL^LEX10PLS	LOOK+4
PR^LEX10PLS	END+2
$$STATCHK^LEXSRC2	LOOK+24
$$DT^XLFDT	EN+24, SO+2, SAV+3, RET+4, SN+2, ENV+1
$$FMADD^XLFDT	SAV+3, RET+4
$$UP^XLFSTR	SOP+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?3,"Try later",! Line Location: SO+8
Function Call: WRITE	Prompt: !!,?3,"No selection made",! Line Location: SO+9
Function Call: WRITE	Prompt: !!,?3,"Selection aborted",! Line Location: SO+11
Function Call: WRITE	Prompt: !," Enter either: " Line Location: SOH+2
Function Call: WRITE	Prompt: !," Example" Line Location: SOH+3
Function Call: WRITE	Prompt: !," ICD-10 Procedure code 04LE0CT" Line Location: SOH+4
Function Call: WRITE	Prompt: !," Partial ICD-10 Procedure code 00C6",! Line Location: SOH+5
Function Call: WRITE	Prompt: !," May not exceed 7 characters. Enter return or ""^""" Line Location: SOH+6
Function Call: WRITE	Prompt: !," to exit." Line Location: SOH+7
Function Call: WRITE	Prompt: !,?2,$G(LEXTERM(LEXI)) Line Location: END+5
Function Call: WRITE	Prompt: ! Line Location: END+6
Function Call: WRITE	Prompt: !,$G(BOLD),$G(LEXC),$G(NORM),!," ",$G(LEXS) Line Location: END+6
Function Call: WRITE	Prompt: !," ",$G(LEXC(LEXI)) Line Location: END+7
Function Call: WRITE	Prompt: !! Line Location: END+8
Function Call: WRITE	Prompt: @IOF Condition for execution: $L($G(IOF)) Line Location: CUR+3
Function Call: WRITE	Prompt: !,$G(BOLD),$G(LEXC),$G(NORM),!,$G(LEXS) Line Location: CUR+3
Function Call: WRITE	Prompt: !,$G(LEXC(LEXI)) Line Location: CUR+4
Function Call: WRITE	Prompt: !!,?5,"DUZ not defined" Line Location: ENV+1
Function Call: WRITE	Prompt: !!,?5,"DUZ not valid" Line Location: ENV+2
Routine Call	%ZIS Line Location: ENV+1
Routine Call	DIR Line Location: SO+7

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	ROK+1
^LEX(757.01 - [#757.01]	LOOK+30
^LEX(757.02 - [#757.02]	LOOK+28, SOP+7, SOP+12, SOP+17, SOP+23, SOP+28, SOP+33, SOP+38
^LEX(757.033 - [#757.033]	GCUR+2, NAM+1, NAM+3, NAM+4, SN+3, SN+4, SN+5
^XTMP(	SAV+4*, RET+5

Label References

Name	Line Occurrences
$$ENV	EN+16
$$FND	LOOK+2, TOT+2
$$NAM	GCUR+4
$$RET	SO+5
$$ROK	SAV+1, RET+1
$$SN	NAM+5
$$SO	EN+25
$$TAG	SAV+1, RET+2
$$TOT	LOOK+38
ATTR	END+6, CUR+3, GCUR+1
BEG	EN+26
END	LOOK+33
GCUR	END+2, CUR+1
KATTR	END+6, CUR+3, GCUR+9
LOOK	LOOK+13, LOOK+35, NXT+4
NXT	LOOK+36
SAV	SO+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BOLD	EN+17~, END+6, CUR+3, GCUR+6, ATTR+1*, KATTR+1!
CDT	SN+1~, SN+2, SN+3
DIR	EN+17~, SO+1~
DIR("?"	SO+7*
DIR("??"	SO+7*
DIR("A"	SO+4*
DIR("PRE"	SO+6*
DIR(0	SO+4*
DIRB	EN+17~, SO+1~, SO+5*
DIROUT	EN+17~, BEG+1~, LOOK+8, LOOK+11, LOOK+13, LOOK+16, LOOK+17, SO+1~, SO+10, SOP+3*
DIRUT	EN+17~, LOOK+11, LOOK+13, LOOK+16, SO+1~
DT	ENV+1*
DTOUT	EN+17~, BEG+1~, LOOK+8, SO+1~, SO+8
DUOUT	EN+17~, BEG+1~, LOOK+11, LOOK+13, LOOK+16, LOOK+17, LOOK+19, SO+1~, SO+10, SOP+3* , SOP+4*
DUZ	SO+5, SO+12, ENV+1, ENV+2
EFF	SN~, SN+1~, SN+3*, SN+4
HIS	SN+1~, SN+4*, SN+5
IEN	SN+1~*, SN+3, SN+4, SN+5
IMP	SN+1~, SN+2*
IOF	END+4, CUR+3
IOINHI	EN+17~, ATTR+1~
IOINORM	EN+17~, ATTR+1~
LEX	EN+17~, SO+1~, SO+12, SOP+1~, SOP+2, SOP+3, SOP+4, SOP+5, SOP+6, SOP+7 , SOP+9, SOP+10, SOP+11, SOP+14, SOP+15, SOP+16, SOP+21, SOP+22, SOP+26, SOP+27 , SOP+31, SOP+32, SOP+36, SOP+37, SOP+41, ENV+1~, ENV+2*
LEXA	EN+18~, GCUR~, GCUR+1!, GCUR+3*, GCUR+10!
LEXA(	GCUR+8*
LEXB	EN+18~, SOP+1~
LEXBEG	BEG+2~
LEXC	EN+18~, SOP+7, SOP+9, SOP+11, SOP+14, SOP+16, SOP+20, SOP+22, SOP+25, SOP+27* , SOP+30, SOP+32, SOP+35, SOP+37, SOP+40, SAV~, SAV+2, RET~, RET+3, END+1~ , END+2, END+3, END+6, CUR+1~!, CUR+2*, CUR+3
LEXC(	END+7, CUR+4
LEXC(0	CUR+1
LEXCHR	EN+18~, LOOK+4, LOOK+5, LOOK+12, LOOK+19, LOOK+21, LOOK+22, LOOK+35, GCUR+4~, GCUR+5 , GCUR+6
LEXCODE	EN+18~, LOOK+23~, LOOK+29, LOOK+31, LOOK+32, LOOK+33, END+1~, END+2
LEXCOM	EN+18~, SO+1~, SO+3, SO+4, SO+5, SO+12, SAV+1~, SAV+2, SAV+4, RET+1~ , RET+3*
LEXDT	EN+16~, EN+18~, EN+24, EN+25, BEG+4, LOOK+2, LOOK+24, LOOK+38, NXT+2, NXT+3~* , TOT+1~, TOT+2, NAM+1~, NAM+2, NAM+3
LEXE	EN+18~, TAG+1~, TAG+4*
LEXEFF	EN+18~, LOOK+23~, LOOK+26, NAM+1~, NAM+3, NAM+4
LEXELP	BEG+2~
LEXEND	BEG+2~
LEXENV	EN+16~*, EN+19~
LEXERR	EN+19~, SO+1~, SOH+1, SOH+8!, SOP+1!, SOP+5, SOP+6, SOP+8, SOP+9, SOP+13* , SOP+14, SOP+18, SOP+19, SOP+20, SOP+24, SOP+25, SOP+29, SOP+30, SOP+34, SOP+35 , SOP+39, SOP+40
LEXFD	EN+19~, SAV+1~, SAV+3, SAV+4, RET+1~, RET+4
LEXI	EN+19~, END+1~, END+4, END+5, END+7, CUR+1~, CUR+2~, CUR+4, FND+1~
LEXICD	EN+19~, LOOK+23~, LOOK+31*, LOOK+32
LEXID	EN+19~, SAV+1~, SAV+3, SAV+4, RET+1~, RET+4, RET+5
LEXIEN	EN+19~, LOOK+23~, LOOK+29, LOOK+30, LOOK+32, NAM+1~, NAM+4, NAM+5
LEXIM	EN+16~, EN+19~, EN+25*
LEXIN	EN+19~, GCUR+1~, GCUR+2, GCUR+3, GCUR+4, NAM+1~, NAM+3, NAM+4
LEXIT	EN+20~, BEG+1~, BEG+4, LOOK+1, LOOK+8, LOOK+12, LOOK+13, LOOK+14, LOOK+16, LOOK+19 , LOOK+31*, LOOK+35, NXT+1
LEXKEY	EN+20~, SAV+1~, SAV+2, SAV+3, RET+1~, RET+3, RET+4
LEXL	EN+20~, TAG+1~, TAG+4*, TAG+5
LEXN	EN+20~, SOP+7, SOP+9, SOP+12, SOP+14, SOP+17, SOP+20, SOP+23, SOP+25, SOP+28* , SOP+30, SOP+33, SOP+35, SOP+38, SOP+40, SAV~, SAV+2, RET~, RET+2
LEXNAM	EN+20~, GCUR+4~*, GCUR+5, GCUR+7
LEXND	EN+20~, LOOK+23~, LOOK+28, LOOK+29, NXT+1~, NXT+2, NXT+3
LEXNM	EN+20~, SAV+1~, SAV+3, RET+1~, RET+4
LEXNT	EN+20~, LOOK+12!, LOOK+15, LOOK+17, NXT+1~, NXT+2, NXT+3
LEXO	EN+20~, SOP+1~, SOP+7, SOP+11, SOP+12, SOP+16, SOP+17, SOP+22, SOP+23, SOP+27* , SOP+28, SOP+32, SOP+33, SOP+37, SOP+38
LEXOFF	EN+21~, GCUR+1~, GCUR+2*, GCUR+7
LEXOK	EN+21~, SOP+1~, GCUR+1~, GCUR+3, GCUR+5, GCUR+10
LEXPCDAT	EN+21~, TOT+1~
LEXPCDAT("NEXLEV"	LOOK+4, FND+1, GETO+1
LEXPSN	EN+21~, GCUR+1~, GCUR+3*, GCUR+4, GCUR+6, GCUR+7, GCUR+8
LEXR	EN+21~, SOP+1~, SOP+7, SOP+8, SOP+11, SOP+13, SOP+14, SOP+16, SOP+18, SOP+19 , SOP+20, SOP+22, SOP+24, SOP+25, SOP+27, SOP+29, SOP+30, SOP+32, SOP+34, SOP+35 , SOP+37*, SOP+39, SOP+40
LEXRTN	EN+21~, SAV+1~, SAV+3, RET+1~, RET+2, RET+4
LEXS	EN+21~, END+1~, END+3, END+6, CUR+1~, CUR+2~, CUR+3
LEXSBR	EN+21~, SO+1~, SO+5*
LEXSEC	EN+22~, BEG+2~, GCUR+4~*, GCUR+5
LEXSIEN	EN+22~, LOOK+23~, LOOK+25*, LOOK+28
LEXSTA	EN+22~, LOOK+23~, LOOK+24, LOOK+25, LOOK+26, LOOK+27
LEXT	EN+22~, TAG+1~, TAG+4*
LEXTAG	EN+22~, SAV+1~, SAV+4, RET+1~, RET+2, RET+5
LEXTD	EN+22~, SO+1~, SO+2, SAV+1~, SAV+3, SAV+4, RET+1~, RET+4*
LEXTERM	EN+22~, LOOK+23~, LOOK+30*, LOOK+32, LOOK+33, END+1~, END+2
LEXTERM(	END+4, END+5
LEXTERM(1	END+1*
LEXTEST	EN+26~
LEXTOT	EN+22~, LOOK+2*
LEXTXT	EN+23~, BEG+1~, BEG+3, LOOK+2, LOOK+3, LOOK+4, LOOK+11, LOOK+12, LOOK+14, LOOK+16 , LOOK+22, LOOK+24, LOOK+37, LOOK+38, NXT+2, NXT+3~, GCUR+4~, GCUR+6, GCUR+7, GCUR+8
LEXUP	EN+23~, BEG+1~, LOOK+3*, LOOK+12!, LOOK+13, LOOK+14, LOOK+16
LEXUSR	EN+23~, SAV+1~, SAV+2, SAV+3, RET+1~, RET+2, RET+4
LEXV	EN+23~, SAV~, SAV+2
LEXVAL	EN+23~, SAV+1~, SAV+2*, SAV+4
LEXVDT	EN+23~, EN+24, BEG+1~, BEG+4*, SO+2, NAM+2, SN+1
LEXX	EN+23~, BEG+1~
LEXY	EN+23~, EN+26!, BEG+1~, LOOK+1!, LOOK+2, TOT+1~, TOT+2
NORM	EN+23~, END+6, CUR+3, GCUR+6, ATTR+1*, KATTR+1!
U	BEG+3, ENV+1
X	EN+16~, EN+23~, EN+25, EN+26, BEG+3, LOOK+8!, LOOK+12!, LOOK+14!, LOOK+16!, LOOK+17! , TOT~, TOT+1, TOT+2, TOT+3, SO~, SO+9, SO+10, SO+11, SO+12, SO+13 , SOP~, SOP+1, SOP+2, SOP+3, SOP+4, SOP+10, SOP+15, SOP+20, SOP+21, SOP+25 , SOP+26, SOP+30, SOP+31, SOP+35, SOP+36, SOP+40, SOP+41, SOP+42, SAV~, SAV+1 , RET~, RET+1, RET+5, RET+6, ROK~, ROK+1, TAG~, TAG+1, TAG+2, TAG+3 , TAG+4, TAG+5, TAG+6, END~, END+1, CUR~, CUR+1, GCUR~, GCUR+2, NAM~ , NAM+1, NAM+5, NAM+6, SN~, SN+1, SN+5, SN+6, FND~, FND+1, FND+2 , GETO~, GETO+1, GETO+2, ATTR+1~*, ENV~
Y	EN+26!, BEG+3!, LOOK+21, LOOK+22!, LOOK+32, LOOK+36, TOT~, TOT+1, SO+1~, SO+9 , SO+12, SAV~, SAV+1, RET~, RET+2, END~, END+1
Y("ICD"	LOOK+32*

Customize PDF page

Package: Lexicon Utility

Routine: LEX10PL

Information

Source Information

Call Graph

Call Graph Total: 11

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: