Print Page as PDF
DBIA149-C ICR (618)

DBIA149-C    ICR (618)

Name Value
NUMBER 618
IA # 618
FILE NUMBER 50.605
GLOBAL ROOT PS(50.605,
DATE CREATED 1995/02/27
CUSTODIAL PACKAGE NATIONAL DRUG FILE
CUSTODIAL ISC Birmingham
USAGE Private
TYPE File
NAME DBIA149-C
ORIGINAL NUMBER 149
GENERAL DESCRIPTION
This agreement will be retired on 6/1/2006. Please do
not add any additional code that utilizes this Integration Agreement. APIs
have been created that can be used in place of any code needing to make use of
this agreement. These APIs were released with patch PSN*4*94. Documentation
information can be found in the patch description. In addition, any code that
currently utilizes this Integration Agreement must be converted to use the new
API's. If any part of this Integration Agreement cannot be satisfied with the
APIs, please contact the PRE development team mail group at EMAIL GROUP
using Microsoft Outlook.


The Adverse Reaction Tracking (ART) package will point to the VA Drug Class
(50.605) file.

The ART package can do lookups on this file using the "C" cross-reference.
The package can do a direct global read of the the "C" cross-reference node.

The ART package will:
a. Use the "B" cross-reference of the VA Drug Class (50.605) file to
find the internal entry number (IEN) of a record, e. g.,
IEN=$O(^PS(50.605,"B",Class_Code,"")).

b. Use a direct global read on the CLASSIFICATION CODE (.01) field in
the VA Drug Class (50.605), e.g.,
Class_code=$P(PS(50.605,IEN,0),"^").

c. Use a direct global read on the CLASSIFICATION (1) field in the VA
Drug Class (50.605), e. g.,
Class=$P(^PS(50.605,IEN,0),"^",2).
GLOBAL REFERENCE
GLOBAL REFERENCE FIELD NUMBER GLOBAL DESCRIPTION
PS(50.605,D0,0)
FIELD NUMBER ACCESS FIELD NAME LOCATION
.01 Direct Global Read & w/Fileman CLASSIFICATION CODE 0;1
1 Direct Global Read & w/Fileman CLASSIFICATION 0;2
.01 Pointed to CLASSIFICATION CODE 0;1
.01 Read w/Fileman CLASSIFICATION CODE 0;1
PS(50.605,'B',
Direct global read access to the "B" cross-reference
will be used to determine the internal entry number for a record.
PS(50.605,'C',
DIrect global read access to the "C" cross-reference
will be used to lookup an entry by its CLASSIFICATION (#1) value.
STATUS Retired
DURATION Till Otherwise Agreed
EXPIRATION DATE 2006/06/01
ID PS(50.605,
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
ADVERSE REACTION TRACKING Hines