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