Routine: LEXSRC2

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

Package

Total

Call Graph

DRG Grouper

($$STATCHK,$$SYS)^ICDEX $$STATCHK^ICPTAPIU

Kernel

($$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

Package

Total

Caller Graph

Lexicon Utility

LEX10CX2 LEX10CX3 LEX10DBR LEX10DBT LEX10PL LEX10TAX LEXABC LEXAR5
LEXCODE LEXNDX8 LEXRXG LEXTRAN LEXTRAN1 LEXU LEXU2 LEXXFQ

Problem List

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

Global Variables Directly Accessed

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: