| $$SC(ICD,VBA,EFF,.ARY) |
This function determines if there is a partial or
full service connection for an ICD code based on the ICD codes and disability
codes in the Lexicon.
|
| VARIABLES |
TYPE |
VARIABLES DESCRIPTION |
ICD |
Input |
(Required) ICD-9-CM Diagnosis Code
|
VBA |
Input |
(Required) VA Disability code (Title 38)
|
EFF |
Input |
(Optional) Effective Date - This is the date that
service was provided to the patient (aka, encounter date) and is used to check
to see if the ICD code was mapped to the Disability code on that date.
|
.ARY |
Input |
(Optional) This is a local array, passed by
reference. When passed it will return information about the ICD code and
Disability codes.
|
$$SC |
Output |
If the ICD code is mapped to a VA disability, then
the return value is a 5 piece "^" delimited string as follows:
# Content Value
1 Service Connected 1=Yes
2 Connection (Match) 1=Full 0=Partial
3 Mapping Status 1=Active 0=Inactive
4 ICD Code Status 1=Active 0=Inactive
5 Code Status 1=Active 0=Inactive
If the ICD Code is not mapped to a VA disability, then the return value is a
negative 2 piece "^" delimited string as follows:
-1 ^ Not Found or Error Message
|
ARY |
Output |
(Optional) This is a local array passed by reference.
If passed it will contain detailed information about the ICD code and
Disability code. The local array will contain the following 2 subscripts:
ARY(1)=<ICD status>^<Date>^<Code>^<Term>
ARY(2)=<Disability status>^<Date>^<Code>^<Term>
Where status is either a 1 (active) or 0 (inactive) and date is the effective
date the code became either active or inactive.
|
|
$$DI(ICD,EFF,ARY) |
Return the number of Disability codes an ICD code is
mapped to. Optionally return an array of Disability codes an ICD code is
mapped to in a local array passed by reference.
|
| VARIABLES |
TYPE |
VARIABLES DESCRIPTION |
ICD |
Input |
(Required) ICD-9-CM Code
|
EFF |
Input |
(Optional) Effective Date (default TODAY)
|
.ARY |
Input |
(Optional) Local array passed by reference, returns a
list of Disability codes mapped to the ICD code.
|
$$DI |
Output |
Returns the number of Disability codes mapped to an
ICD code.
|
ARY |
Output |
(Optional) Local Array of Disability Codes passed by
reference
ARY(0) = 5 Piece String detailing input
Diagnosis code
1 Number of Disability Codes found
2 ICD Code
3 Status of ICD Code 1 = Active 0 = Inactive
4 Effective Date of ICD Code Status
5 Versioned Text of ICD Code
ARY(#) = 6 Piece String detailing output
Disability codes
1 Mapping 1 = Full 0 = Partial
2 Effective Date of Mapping
3 Disability Code
4 Status of Disability Code
5 Effective Date of Disability Code Status
6 Versioned Text of Disability Code
ARY("B",MAP,#)="" Index of Local Array
MAP Mapping 1 = Full 0 = Partial
# Entry Number in Array
|
|
$$DX(VBA,EFF,ARY) |
Return the number of ICD Diagnosis codes a Disability
code is mapped to. Optionally return an array of ICD codes a Disability code
is mapped to in a local array passed by reference.
|
| VARIABLES |
TYPE |
VARIABLES DESCRIPTION |
VBA |
Input |
(Required) Disability Code (Title 38)
|
EFF |
Input |
(Optional) Effective Date (default TODAY)
|
.ARY |
Input |
(Optional) Local array passed by reference, return a
list of ICD codes mapped to a Disability code.
|
$$DX |
Output |
The number of Diagnosis codes mapped to a Disability
code.
|
ARY |
Output |
(Optional) Local Array of Diagnosis Codes passed by
reference
ARY(0) = 5 Piece String detailing input
Disability code
1 Number of Diagnosis Codes found
2 Disability Code
3 Status of Code 1 = Active 0 = Inactive
4 Effective Date of Disability Code Status
5 Versioned Text of Disability Code
ARY(#) = 6 Piece String detailing output
Diagnosis codes
1 Mapping 1 = Full 0 = Partial
2 Effective Date of Mapping
3 ICD-9-CM Code
4 Status of ICD-9-CM Code
5 Effective Date of ICD-9-CM Code Status
6 Versioned Text of ICD-9-CM Code
ARY("B",MAP,#)="" Index of Local Array
MAP Mapping 1 = Full 0 = Partial
# Entry Number in Array
|
|
