Routine: LEX10CS

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

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

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

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

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

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: