Routine: LEXSRC2

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

Package	Total	Caller Graph
Lexicon Utility	16	LEX10CX2 LEX10CX3 LEX10DBR LEX10DBT LEX10PL LEX10TAX LEXABC LEXAR5 LEXCODE LEXNDX8 LEXRXG LEXTRAN LEXTRAN1 LEXU LEXU2 LEXXFQ
Problem List	1	GMPLENFM

Entry Points

Name	Comments	DBIA/ICR reference
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 ; ; ASTM Triplet in array LEX passed by reference (optional) ; ; ASTM Triplet with Major Concept Map and Semantic ; Map in array LEX passed by reference (optional) ;	ICR #4083 Status: Active Usage: Supported
CPT(LEXC,LEXVDT)	; Return Pointer to Active CPT ; ; Input CPT Code ; Output IEN file 81 of Active Codes only
SAB(X)	; Resolve SAB
INIT(X,Y)	; Inital Activation Dates (revised codes only)
UPD	; Update Array
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
ADJ	; Do we have adjacent dates for SAB
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+90
$$FMADD^XLFDT	ADJ+1, INIT+4

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+94, STATCHK+96, STATCHK+97, STATCHK+98, STATCHK+100, STATCHK+101, STATCHK+104, STATCHK+105, STATCHK+106, ADJ+3 , ADJ+4, INIT+2, INIT+5, INIT+6, 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+117
$$SAB	STATCHK+91
ADJ	STATCHK+116
UPD	STATCHK+89, STATCHK+109, STATCHK+111, STATCHK+119

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CDT	STATCHK~, STATCHK+90
CODE	STATCHK~, STATCHK+89
LEX	STATCHK~, STATCHK+89, STATCHK+111, STATCHK+119, STATCHK+120
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+5, INIT+6, INIT+7, PI+1~, PI+7*, PI+8
LEXAE	STATCHK+87~, STATCHK+94, STATCHK+102, STATCHK+113
LEXAP	STATCHK+87~, STATCHK+94, STATCHK+102, STATCHK+109, STATCHK+111, STATCHK+113, STATCHK+114
LEXC	CPT~, CPT+4, CPT+5, CPT+6, ICD~, ICD+4, ICD+5, ICD+6, ICD+7, STATCHK+87~ , STATCHK+89, STATCHK+94, STATCHK+96, STATCHK+97, STATCHK+100, STATCHK+104, STATCHK+105, STATCHK+117, ADJ+3, INIT+1~* , INIT+2, INIT+5, INIT+6, 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+87~, STATCHK+90*, STATCHK+91, STATCHK+109
LEXE	STATCHK+87~, STATCHK+96~, STATCHK+97, STATCHK+99, UPD+1~, UPD+2, UPD+4, PI+1~, PI+5*, PI+6 , PI+7
LEXED	STATCHK+87~, STATCHK+94, STATCHK+96, STATCHK+97, STATCHK+98, STATCHK+99, STATCHK+109
LEXEE	STATCHK+87~, STATCHK+94, STATCHK+96, STATCHK+97, STATCHK+98, STATCHK+99, STATCHK+109
LEXF	PI+1~, PI+2, PI+4
LEXFL	PI+1~, PI+4*, PI+9
LEXI	STATCHK+87~, STATCHK+97~, STATCHK+98, STATCHK+99, STATCHK+100~, STATCHK+101, STATCHK+102, STATCHK+105~, STATCHK+106, STATCHK+107 , INIT+1~, INIT+6, INIT+7, 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+87~, STATCHK+104~, STATCHK+107, STATCHK+114
LEXINIT	STATCHK+88~, STATCHK+117*, STATCHK+120
LEXIP	STATCHK+87~, STATCHK+104~, STATCHK+107, STATCHK+109, STATCHK+111, STATCHK+113, STATCHK+114
LEXLA	PI+1~, PI+5, PI+8, PI+9
LEXM	UPD+1~, UPD+3*, UPD+6, UPD+7
LEXMR	STATCHK+87~, STATCHK+113, STATCHK+114, STATCHK+117, STATCHK+119, STATCHK+120, ADJ+1, ADJ+5, INIT+1~, INIT+2* , INIT+3, INIT+4, INIT+8
LEXMRI	STATCHK+88~, STATCHK+113, STATCHK+114, STATCHK+119, ADJ+4, ADJ+5*
LEXN	STATCHK+88~, STATCHK+98~, STATCHK+101~, STATCHK+106~, 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+88~, STATCHK+94, STATCHK+95, STATCHK+100, STATCHK+102, STATCHK+104~, STATCHK+105, STATCHK+107
LEXOFF	INIT+1~, INIT+4*, INIT+7
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+88~, STATCHK+91*, STATCHK+98, STATCHK+101, STATCHK+106, ADJ+5
LEXSTAT	STATCHK+88~, STATCHK+113, STATCHK+114, STATCHK+117, STATCHK+119, STATCHK+120, ADJ+2, ADJ+5*
LEXT	UPD+8~*, UPD+9, UPD+10, UPD+11
LEXTDT	STATCHK+88~, STATCHK+91*, STATCHK+94, STATCHK+96, STATCHK+104
LEXTT	UPD+8~, UPD+9*, UPD+10, UPD+11
LEXVDT	CPT~, CPT+4, CPT+5, ICD~, ICD+4, ICD+5
SAB	STATCHK~, STATCHK+91
X	STATCHK+88~, STATCHK+89, STATCHK+109, STATCHK+111, STATCHK+119, STATCHK+120, STATCHK+121, SAB~, SAB+1, INIT~ , INIT+1, INIT+7, INIT+8, INIT+9, 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: 17

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: