Print Page as PDF
Lexicon/VBA APIs ICR (5252)

Lexicon/VBA APIs    ICR (5252)

Name Value
NUMBER 5252
IA # 5252
DATE CREATED 2008/08/08
CUSTODIAL PACKAGE LEXICON UTILITY
USAGE Supported
TYPE Routine
ROUTINE LEXASCD
NAME Lexicon/VBA APIs
GENERAL DESCRIPTION
LEXASCD contains APIs for supporting the Automated
Service Connected Designation (ASCD) project.

STATUS Pending
KEYWORDS
  • LEXASCD
  • VBA
  • TITLE 38
  • ASCD
DURATION Till Otherwise Agreed
ID LEXASCD
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
$$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