Routine: LEXSRC2

Package	Total	Call Graph
CPT HCPCS Codes	1	$$STATCHK^ICPTAPIU
DRG Grouper	1	($$STATCHK,$$SYS)^ICDEX
Kernel	1	($$DT,$$FMADD)^XLFDT

Package	Total	Caller Graph
Lexicon Utility	33	LEX10CX2 LEX10CX3 LEX10DBR LEX10DBT LEX10PL LEX10TAX LEXABC LEXAR5 LEXAR8 LEXCODE LEXINF2 LEXINF3 LEXNDX8 LEXQCP LEXQCP2 LEXQID2 LEXQID4 LEXQIP2 LEXQIP3 LEXQSC LEXQSC2 LEXQSCA LEXQVSE LEXQVSE2 LEXQVSEA LEXRXG LEXTRAN LEXTRAN1 LEXU LEXU2 LEXU6 LEXXFQ LEXXGI3
Problem List	6	GMPLBLD GMPLBLD2 GMPLBLD3 GMPLBLDC GMPLENFM GMPLINTR
Order Entry Results Reporting	3	ORQQPL ORQQPL3 ORWPCE2
Clinical Reminders	1	PXRMPDX

Entry Points

Name	Comments	DBIA/ICR reference
CPT(LEXC,LEXVDT)	; Return Pointer to Active CPT ; ; Input CPT Code ; Output IEN file 81 of Active Codes only
ICD(LEXC,LEXVDT)	; Return Pointer to Active ICD/ICP ; ; Input ICD Diagnosis or Procedure ; Output IEN file 80 or 80.1 of Active Codes only
STATCHK(CODE,CDT,LEX,SAB)	; Check Status of a Code ; ; Input: ; CODE - Any Code (ICD/CPT/DSM etc) (Required) ; CDT - Date to screen against (Optional, default TODAY) ; LEX - Output Array, passed by reference (Optional) ; SAB - Source Abbreviation or pointer to 757.03 (Optional) ; ; Output: ; ; 2, 3 or 4 Piece String containing the code's status, ; the IEN, and if the status exist, the effective ; date, else -1 in lieu of the IEN. ; ; The following are possible outputs: ; ; 1 ^ IEN ^ Active Date ^ Initial Date Active Code ; 1 ^ IEN ^ Revision Date ^ Initial Date Revised Code ; 0 ^ IEN ^ Effective Date Inactive Code ; 0 ^ IEN Not Yet Active ; 0 ^ -1 Code not Found ; ; LEX passed by reference (optional) ; ; Code, Expression, Coding System, Major ; Concept Map and Semantic Map in array LEX ; ; LEX(0) = Code, a 2 Piece String containing:	ICR #4083 Status: Active Usage: Supported
SAB(X)	; Resolve SAB
ADJ	; Do we have adjacent dates for SAB
INIT(X,Y)	; Inital Activation Dates (revised codes only)
UPD	; Update Array
PI(X)	; Preferred IEN for code X

Name	Field # of Occurrence
$$STATCHK^ICDEX	ICD+5
$$SYS^ICDEX	ICD+5
$$STATCHK^ICPTAPIU	CPT+5
$$DT^XLFDT	CPT+4, ICD+4, STATCHK+83
$$FMADD^XLFDT	ADJ+1, INIT+3

Name	Line Occurrences (* Changed, ! Killed)
^LEX(757 - [#757]	UPD+6
^LEX(757.01 - [#757.01]	UPD+4, UPD+6
^LEX(757.02 - [#757.02]	STATCHK+87, STATCHK+89, STATCHK+90, STATCHK+91, STATCHK+93, STATCHK+94, STATCHK+97, STATCHK+98, STATCHK+99, ADJ+3 , ADJ+4, INIT+2, INIT+4, INIT+5, UPD+2, PI+3, PI+4, PI+5, PI+6, PI+7
^LEX(757.03 - [#757.03]	SAB+1, UPD+5
^LEX(757.1 - [#757.1]	UPD+7, UPD+8
^LEX(757.11 - [#757.11]	UPD+9
^LEX(757.12 - [#757.12]	UPD+9

Name	Line Occurrences
$$INIT	STATCHK+110
$$SAB	STATCHK+84
ADJ	STATCHK+109
UPD	STATCHK+82, STATCHK+102, STATCHK+104, STATCHK+112

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CDT	STATCHK~, STATCHK+83
CODE	STATCHK~, STATCHK+82
LEX	STATCHK~, STATCHK+82, STATCHK+104, STATCHK+112, STATCHK+113
LEX(0	UPD+3*
LEX(1	UPD+4*
LEX(2	UPD+5*
LEX(3	UPD+6*
LEX(4	UPD+11*
LEXA	INIT+1~, INIT+3, INIT+4, INIT+5, INIT+6, PI+1~, PI+7*, PI+8
LEXAE	STATCHK+59~, STATCHK+87, STATCHK+95, STATCHK+106
LEXAP	STATCHK+59~, STATCHK+87, STATCHK+95, STATCHK+102, STATCHK+104, STATCHK+106, STATCHK+107
LEXC	CPT~, CPT+4, CPT+5, CPT+6, ICD~, ICD+4, ICD+5, ICD+6, ICD+7, STATCHK+59~ , STATCHK+82, STATCHK+87, STATCHK+89, STATCHK+90, STATCHK+93, STATCHK+97, STATCHK+98, STATCHK+110, ADJ+3, INIT+1~* , INIT+2, INIT+4, INIT+5, UPD+1~, UPD+2, UPD+3, UPD+8~, UPD+9, UPD+10, UPD+11 , PI+1~, PI+2*, PI+3
LEXCT	UPD+8~, UPD+9*, UPD+10, UPD+11
LEXDT	STATCHK+59~, STATCHK+83*, STATCHK+84, STATCHK+102
LEXE	STATCHK+59~, STATCHK+89~, STATCHK+90, STATCHK+92, UPD+1~, UPD+2, UPD+4, PI+1~, PI+5*, PI+6 , PI+7
LEXED	STATCHK+59~, STATCHK+87, STATCHK+89, STATCHK+90, STATCHK+91, STATCHK+92, STATCHK+102
LEXEE	STATCHK+59~, STATCHK+87, STATCHK+89, STATCHK+90, STATCHK+91, STATCHK+92, STATCHK+102
LEXF	PI+1~, PI+2, PI+4
LEXFL	PI+1~, PI+4*, PI+9
LEXI	STATCHK+59~, STATCHK+90~, STATCHK+91, STATCHK+92, STATCHK+93~, STATCHK+94, STATCHK+95, STATCHK+98~, STATCHK+99, STATCHK+100 , INIT+1~, INIT+5, INIT+6, UPD+1~, UPD+2, UPD+3, UPD+7, UPD+11, PI+1~, PI+2 , PI+3*, PI+4, PI+5, PI+6, PI+7, PI+9
LEXIE	STATCHK+59~, STATCHK+97~, STATCHK+100, STATCHK+107
LEXINIT	STATCHK+60~, STATCHK+110*, STATCHK+113
LEXIP	STATCHK+59~, STATCHK+97~, STATCHK+100, STATCHK+102, STATCHK+104, STATCHK+106, STATCHK+107
LEXLA	PI+1~, PI+5, PI+8, PI+9
LEXM	UPD+1~, UPD+3*, UPD+6, UPD+7
LEXMR	STATCHK+59~, STATCHK+106, STATCHK+107, STATCHK+110, STATCHK+112, STATCHK+113, ADJ+1, ADJ+5, INIT+1~, INIT+2* , INIT+3, INIT+7
LEXMRI	STATCHK+60~, STATCHK+106, STATCHK+107, STATCHK+112, ADJ+4, ADJ+5*
LEXN	STATCHK+60~, STATCHK+91~, STATCHK+94~, STATCHK+99~, ADJ+1~, ADJ+4, ADJ+5, UPD+1~, UPD+2, UPD+3 , UPD+8~
LEXND	ADJ+1~*, ADJ+2, ADJ+3, ADJ+5
LEXNI	ADJ+1~, ADJ+3*, ADJ+4, ADJ+5
LEXNO	ADJ+1~, ADJ+2*, ADJ+5
LEXNS	ADJ+1~, ADJ+2*, ADJ+3
LEXO	STATCHK+60~, STATCHK+87, STATCHK+88, STATCHK+93, STATCHK+95, STATCHK+97~, STATCHK+98, STATCHK+100
LEXOFF	INIT+1~, INIT+3*, INIT+6
LEXP	PI+1~, PI+2*, PI+3
LEXPF	PI+1~
LEXPF(	PI+9*
LEXPF(0	PI+2*, PI+11
LEXPF(1	PI+10, PI+11
LEXS	ICD+4~, ICD+5, UPD+1~, UPD+3, UPD+5, UPD+7, UPD+8, UPD+11, PI+1~, PI+6
LEXSAB	STATCHK+60~, STATCHK+84*, STATCHK+91, STATCHK+94, STATCHK+99, ADJ+5
LEXSTAT	STATCHK+60~, STATCHK+106, STATCHK+107, STATCHK+110, STATCHK+112, STATCHK+113, ADJ+2, ADJ+5*
LEXT	UPD+8~*, UPD+9, UPD+10, UPD+11
LEXTDT	STATCHK+60~, STATCHK+84*, STATCHK+87, STATCHK+89, STATCHK+97
LEXTT	UPD+8~, UPD+9*, UPD+10, UPD+11
LEXVDT	CPT~, CPT+4, CPT+5, ICD~, ICD+4, ICD+5
SAB	STATCHK~, STATCHK+84
X	STATCHK+60~, STATCHK+82, STATCHK+102, STATCHK+104, STATCHK+112, STATCHK+113, STATCHK+114, SAB~, SAB+1, INIT~ , INIT+1, INIT+6, INIT+7, INIT+8, UPD+1, PI~, PI+2, PI+10, PI+11*, PI+12
Y	SAB+1~*, INIT~, INIT+1

Customize PDF page

Package: Lexicon Utility

Routine: LEXSRC2

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 43

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: