Print Page as PDF
LEXICON CODE STATUS ICR (4083)

LEXICON CODE STATUS    ICR (4083)

Name Value
NUMBER 4083
IA # 4083
DATE CREATED 2003/04/14
CUSTODIAL PACKAGE LEXICON UTILITY
CUSTODIAL ISC Dallas
USAGE Supported
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE LEXSRC2
NAME LEXICON CODE STATUS
STATUS Active
KEYWORDS
  • LEXSRC2
  • STATCHK
DURATION Till Otherwise Agreed
ID LEXSRC2
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
$$STATCHK(CODE,DATE,.LEX,SAB)
This entry point is used to check the activation
status of a code in the Lexicon Utility.
VARIABLES TYPE VARIABLES DESCRIPTION
CODE ['Input', 'VARIABLE SEQUENCE NUMBER: 1']
This is a code taken from a classification system
contained in the Lexicon (i.e., ICD, CPT, etc.)
DATE ['Input', 'VARIABLE SEQUENCE NUMBER: 2']
This is the date used to determine if a code was
either active or inactive on a specific date.  If not supplied, TODAY will be
used as the date.
.LEX ['Input', 'VARIABLE SEQUENCE NUMBER: 3']
(Optional) This is a local array, passed by
reference.  When passed it will return information about the code.
SAB ['Input', 'VARIABLE SEQUENCE NUMBER: 4']
(Optional) This is the source of the code.  It is
either a pointer to the CODING SYSTEMS file 757.03 or the source abbreviation
expressed as the first 3 characters of the source in file 757.03.
$$STATCHK Output
This is a two piece "^" delimiteds tring in the
following formats:

RETURNS                    INDICATES
-----------------          ---------------------------------
1 ^ IEN ^ Date             The code is active on the date returned and
stored in ^LEX(757.02,IEN,0)

0 ^ IEN ^ Date             The code is inactive on the date returned and
stored in ^LEX(757.02,IEN,0)

0 ^ -1                     Code is not found in the Lexicon
LEX Output
(Optional) This is a local array passed by reference.
If passed it will contain information about the code in the following
formatted subscripts:

LEX(0) = <ien 757.02> ^ <code>
2-piece String containing the IEN of the code and the code

LEX(1) = <ien 757.01> ^ <expression>
2-piece String containing the IEN of the code's expression
and the expression

LEX(2) = <ien 757.03> ^ <abbr> ^ <nomen> ^ <name>
4-peice String containing the IEN of the code's classification
system, the source abbreviation, Nomenclature and the name of
the classification system
DATE ACTIVATED 2008/09/18