Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
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>

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
    Info |  Source |  Entry Points