Routine: LEX10CS

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

LEX10CS ;ISL/KER - ICD-10 Code Set ;04/21/2014

Source Information

Source file <LEX10CS.m>

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Lexicon Utility	10	$$CODELIST^LEX10CS2 I10C^LEX10DBC MAJ^LEX10DBR I10T^LEX10DBT ($$ISCAT,DXARY)^LEX10DU I9T^LEX10DX $$FIN^LEX10PR $$TAX^LEX10TAX PTX^LEXTOKN $$IMPDATE^LEXU
Kernel	2	$$DT^XLFDT $$UP^XLFSTR
DRG Grouper	1	($$DTBR,$$ICDOP,$$LD)^ICDEX

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Lexicon Utility	3	LEX10DBT LEX10DL LEX10PL
Clinical Reminders	1	PXRMLEXL
IHS Mods To Patient Care Encounter	1	BPXRMEXT

Entry Points

Name	Comments	DBIA/ICR reference
CODELIST(X,LEXSPEC,LEXSUB,LEXD,LEXL,LEXF)	; ; NOTE: Routine split due to SACC Limits on size, see LEX10CS2	ICR #5681 Status: Active Usage: Supported
PCSOK(X,LEXD)	; PCS data is OK
DIAGSRCH(X,LEXDATA,LEXD,LEXL,LEXF)	; ICD-10 Diagnosis Search	ICR #5681 Status: Active Usage: Supported
PCSDIG(X,LEXD)	; Return ICD-10 Codes Expanding On Input	ICR #5681 Status: Active Usage: Supported
D10(LEX)	; Get One Code (unversioned)
ICDSRCH(X,LEXDATA,LEXD,LEXL,LEXF)	; ICD Diagnosis Search	ICR #5681 Status: Active Usage: Supported
TAX(X,LEXSRC,LEXDT,LEXSUB,LEXVER)	; Taxonomies	ICR #5681 Status: Active Usage: Supported
PCSALL	; Return PCS data for full 7 digit code
OUT	; Out Array
WDS(X)	; Words in String

External References

Name	Field # of Occurrence
$$DTBR^ICDEX	PCSALL+2
$$ICDOP^ICDEX	PCSALL+3
$$LD^ICDEX	PCSALL+7
$$CODELIST^LEX10CS2	CODELIST+2
I10C^LEX10DBC	DIAGSRCH+68
MAJ^LEX10DBR	DIAGSRCH+53
I10T^LEX10DBT	DIAGSRCH+69
$$ISCAT^LEX10DU	DIAGSRCH+55
DXARY^LEX10DU	ICDSRCH+51, OUT+4
I9T^LEX10DX	ICDSRCH+49
$$FIN^LEX10PR	PCSDIG+49
$$TAX^LEX10TAX	TAX+1
PTX^LEXTOKN	WDS+1
$$IMPDATE^LEXU	ICDSRCH+43, PCSOK+2
$$DT^XLFDT	PCSALL+2
$$UP^XLFSTR	ICDSRCH+41, DIAGSRCH+50, DIAGSRCH+53, PCSDIG+33

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LEX(757.01 - [#757.01]	WDS+4, D10+3
^LEX(757.02 - [#757.02]	DIAGSRCH+63, DIAGSRCH+64, PCSOK+4, PCSOK+5, PCSOK+6, D10+4, D10+5, D10+6, D10+7, D10+8
^LEX(757.03 - [#757.03]	PCSDIG+40
^LEX(757.033 - [#757.033]	PCSDIG+34, PCSDIG+39, PCSDIG+42, PCSDIG+48
^TMP("LEXDX"	DIAGSRCH+45!, OUT+1!
^TMP("LEXTKN"	WDS+1!, WDS+2, WDS+3, WDS+5!

Name	Line Occurrences
$$DIAGSRCH	ICDSRCH+46
$$PCSOK	PCSDIG+44
$$WDS	DIAGSRCH+65
OUT	DIAGSRCH+53
PCSALL	PCSDIG+37

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DT	PCSALL+1
ICD10	ICDSRCH+41~, ICDSRCH+43*, ICDSRCH+45
ICDFMT	DIAGSRCH+48~
ICDSYS	DIAGSRCH+48~
ICDVDT	DIAGSRCH+48~
LELXI	PCSDIG+32~
LEX	ICDSRCH+40~, ICDSRCH+51!, DIAGSRCH+46~, PCSDIG+32~, D10~, D10+2, D10+11*, D10+12
LEXA	PCSALL+1~, PCSALL+7, D10+1~
LEXA(	D10+9*, D10+10, D10+11
LEXA(1	PCSALL+8
LEXC	WDS+2~, WDS+4, WDS+5, PCSOK+1~*, PCSOK+4
LEXCD	PCSDIG+32~, PCSALL+3, PCSALL+4, PCSALL+5, PCSALL+6, PCSALL+7, D10+1~, D10+5~, D10+7, D10+9
LEXCS	ICDSRCH+40~, ICDSRCH+46, ICDSRCH+49, DIAGSRCH+47~, DIAGSRCH+50*
LEXCTL	PCSDIG+32~, PCSDIG+41*, PCSDIG+55
LEXD	ICDSRCH~, ICDSRCH+45, DIAGSRCH~, DIAGSRCH+50, PCSDIG~, PCSDIG+44, PCSDIG+49, PCSALL+1, PCSALL+2, PCSALL+3 , PCSALL+7, PCSOK~, PCSOK+2*, PCSOK+5, CODELIST~, CODELIST+2
LEXDATA	ICDSRCH~, ICDSRCH+39!, ICDSRCH+46, DIAGSRCH~, DIAGSRCH+45!
LEXDATA(0	OUT+6*
LEXDT	TAX~, TAX+1
LEXEF	PCSOK+5~, PCSOK+6, D10+1~, D10+5~, D10+8, D10+9, D10+10*, D10+11
LEXEXIT	PCSDIG+32~, PCSDIG+38, PCSDIG+39, PCSDIG+40, PCSDIG+41, PCSDIG+42, PCSDIG+43
LEXF	ICDSRCH~, ICDSRCH+45, ICDSRCH+46, DIAGSRCH~, DIAGSRCH+50, PCSDIG+47~, PCSDIG+49, PCSDIG+53, PCSDIG+54, PCSOK+1~* , PCSOK+3, CODELIST~, CODELIST+2
LEXFA	PCSDIG+47~, PCSDIG+49
LEXFA(2	PCSDIG+50
LEXFA(3	PCSDIG+51
LEXFA(4	PCSDIG+52
LEXFA(5	PCSDIG+53, PCSDIG+54
LEXFI	ICDSRCH+40~, ICDSRCH+51, DIAGSRCH+46~, OUT+4
LEXFIL	ICDSRCH+40~, ICDSRCH+45, ICDSRCH+48, ICDSRCH+49, DIAGSRCH+46~, DIAGSRCH+50, DIAGSRCH+59, DIAGSRCH+60*, DIAGSRCH+68, DIAGSRCH+69
LEXI	WDS+2~, WDS+3, PCSDIG+32~, PCSDIG+38, PCSDIG+39, PCSDIG+40, PCSDIG+48, PCSDIG+49, PCSOK+1~, PCSOK+2*
LEXIEN	D10+1~, D10+2*, D10+3, D10+4
LEXII	PCSDIG+32~, PCSDIG+40*, PCSDIG+42
LEXINC	ICDSRCH+41~, DIAGSRCH+47~
LEXIS	DIAGSRCH+47~, DIAGSRCH+55*, DIAGSRCH+58
LEXK	PCSOK+1~
LEXL	ICDSRCH~, ICDSRCH+46, ICDSRCH+47, DIAGSRCH~, DIAGSRCH+54, CODELIST~, CODELIST+2
LEXLD	PCSALL+1~, PCSALL+7*
LEXLEN	ICDSRCH+40~, ICDSRCH+47, ICDSRCH+49, DIAGSRCH+46~, DIAGSRCH+54, DIAGSRCH+58, DIAGSRCH+68, DIAGSRCH+69, PCSDIG+32~, PCSDIG+35 , PCSDIG+36*, PCSDIG+37, PCSDIG+43, PCSDIG+45
LEXN	PCSOK+1~
LEXNXT	PCSDIG+32~, PCSDIG+45*, PCSDIG+46, PCSDIG+48, PCSDIG+50, PCSDIG+51, PCSDIG+52, PCSDIG+54, PCSDIG+55
LEXO	PCSOK+1~, PCSOK+3, PCSOK+4, PCSOK+5, PCSOK+6
LEXOK	ICDSRCH+40~, DIAGSRCH+46~, DIAGSRCH+62, DIAGSRCH+63, DIAGSRCH+64, DIAGSRCH+65, DIAGSRCH+66, DIAGSRCH+67, DIAGSRCH+68, DIAGSRCH+69 , PCSDIG+44~
LEXOUT	ICDSRCH+40~, ICDSRCH+49!, ICDSRCH+51!, ICDSRCH+53, ICDSRCH+54, DIAGSRCH+46~, DIAGSRCH+53, DIAGSRCH+67!, DIAGSRCH+68, DIAGSRCH+69 , OUT+5, OUT+7*, OUT+8
LEXOUT(0	ICDSRCH+50, OUT+1, OUT+2, OUT+3, OUT+4
LEXPCDAT	PCSDIG+31!, PCSDIG+56*
LEXPCDAT("NEXLEV"	PCSDIG+46, PCSDIG+50, PCSDIG+51, PCSDIG+52, PCSDIG+54
LEXPCDAT("PCSDESC"	PCSALL+8*
LEXPCDAT("STATUS"	PCSALL+5, PCSALL+6
LEXPCS	PCSDIG+32~, PCSDIG+41, PCSDIG+42, PCSDIG+43, PCSDIG+44, PCSDIG+45, PCSDIG+55*
LEXPR	ICDSRCH+41~, ICDSRCH+50, ICDSRCH+52, ICDSRCH+54, DIAGSRCH+47~, OUT+3
LEXS	PCSOK+1~
LEXSAB	D10+1~, D10+2*, D10+5
LEXSIEN	D10+1~, D10+4*, D10+5, D10+6, D10+7, D10+8
LEXSPEC	CODELIST~, CODELIST+2
LEXSRC	TAX~, TAX+1
LEXSUB	CODELIST~, CODELIST+2, TAX~, TAX+1
LEXT	WDS+2~, WDS+3*, WDS+4
LEXTK	DIAGSRCH+63~, DIAGSRCH+65*, DIAGSRCH+66
LEXTLX	DIAGSRCH+47~, OUT+4*, OUT+5, OUT+6
LEXTMP	ICDSRCH+40~, DIAGSRCH+46~, DIAGSRCH+61*, DIAGSRCH+62, DIAGSRCH+63, DIAGSRCH+64, DIAGSRCH+65, DIAGSRCH+66, DIAGSRCH+68
LEXTOT	ICDSRCH+40~, ICDSRCH+50, ICDSRCH+51, ICDSRCH+52, ICDSRCH+54, DIAGSRCH+47~, OUT+3, OUT+7
LEXVDT	ICDSRCH+40~, ICDSRCH+45, ICDSRCH+46, ICDSRCH+49, DIAGSRCH+46~, DIAGSRCH+50, DIAGSRCH+53, DIAGSRCH+59, DIAGSRCH+60, DIAGSRCH+68 , DIAGSRCH+69, D10+1~, D10+2*
LEXVER	TAX~, TAX+1
LEXX	ICDSRCH+40~, ICDSRCH+41, ICDSRCH+42, ICDSRCH+43, ICDSRCH+46, ICDSRCH+49, DIAGSRCH+46~, DIAGSRCH+50, DIAGSRCH+51, DIAGSRCH+52 , DIAGSRCH+53, DIAGSRCH+55, DIAGSRCH+61, DIAGSRCH+69
U	OUT+2
X	ICDSRCH~, ICDSRCH+41, ICDSRCH+43, ICDSRCH+44, ICDSRCH+45, ICDSRCH+46, ICDSRCH+54, ICDSRCH+55, DIAGSRCH~, DIAGSRCH+49 , DIAGSRCH+50, OUT+8, OUT+9, WDS~, WDS+1, WDS+5, WDS+6, PCSDIG~, PCSDIG+33, PCSDIG+34 , PCSDIG+35, PCSDIG+36, PCSDIG+41, PCSDIG+43, PCSDIG+48, PCSALL+3, PCSOK~, PCSOK+1, PCSOK+2, PCSOK+4 , PCSOK+6*, PCSOK+7, CODELIST~, CODELIST+2, TAX~, TAX+1

Customize PDF page

Package: Lexicon Utility

Routine: LEX10CS

Call Graph Total: 13

Caller Graph Total: 5