Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: LEXSRC2

Package: Lexicon Utility

Routine: LEXSRC2


Information

LEXSRC2 ;ISL/KER - Classification Code Source Util ;05/23/2017

Source Information

Source file <LEXSRC2.m>

Call Graph

Call Graph

Call Graph Total: 3

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

Caller Graph

Caller Graph Total: 39

Package Total Caller Graph
Lexicon Utility 30 LEX10CX2  LEX10CX3  LEX10DBR  LEX10DBT  LEX10PL  LEX10TAX  LEXABC  LEXAR5  
LEXAR8  LEXCODE  LEXINF2  LEXINF3  LEXNDX8  LEXQCP  LEXQCP2  LEXQID2  
LEXQID4  LEXQIP2  LEXQIP3  LEXQSC  LEXQSC2  LEXQSCA  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  

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

    External References

    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

    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+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

    Label References

    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
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All