LEXSRC2 ;ISL/KER - Classification Code Source Util ;05/23/2017
Source file <LEXSRC2.m>
| 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: |
|
| 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
|
