Print Page as PDF
DBIA149-B ICR (617)

DBIA149-B    ICR (617)

Name Value
NUMBER 617
IA # 617
FILE NUMBER 50.6
GLOBAL ROOT PSNDF(
DATE CREATED 1995/02/27
CUSTODIAL PACKAGE NATIONAL DRUG FILE
CUSTODIAL ISC Birmingham
USAGE Private
TYPE File
DBIC APPROVAL STATUS APPROVED
NAME DBIA149-B
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
DEV using Microsoft Outlook.

This DBIA retirement only applies to non-pharmacy packages. Pharmacy packages
are still allowed to utilize this agreement past the expiration date of June
1, 2006.

The Adverse Reaction Tracking (ART) package will point to the National Drug
(50.6) file.

The ART package will do a direct global read of the VA DRUG CLASSIFICATION (3)
field of the DOSAGE FORM subfield (2) multiple of the NATIONAL DRUG (50.6)
file to get all the VA Drug Classes for an entry, e.g.,
D0=$O(^PSNDF(DA,2,D0)) ;loop through DOSAGE FORM subfield
Drug Class=$P(^PSNDF(DA,2,D0,0),"^",3)

The ART package can loop through the "B" and "T" cross-references. The "T"
cross-reference is on the TRADE NAME field which is field #2 on the subfile
50.67.
GLOBAL REFERENCE
GLOBAL REFERENCE FIELD NUMBER GLOBAL DESCRIPTION
PSNDF(D0,2,D1,0)
FIELD NUMBER ACCESS FIELD NAME LOCATION
3 Direct Global Read & w/Fileman VA DRUG CLASSIFICATION 0;3
PSNDF(D0,2,D1)
Direct global read used to $ORDER through the DOSAGE
FORM subfield.
PSNDF('B',
Direct global read access to the "B" cross-reference
will be used to get the internal entry number of the entry.
PSNDF('T',
Direct global read access to the "T" cross-reference
will be used to look up a drug by its TRADE NAME.
PSNDF(D0,0)
FIELD NUMBER ACCESS FIELD NAME LOCATION
.01 Read w/Fileman VA GENERIC NAME 0;1
.01 Pointed to VA GENERIC NAME 0;1
.01 Direct Global Read & w/Fileman VA GENERIC NAME 0;1
STATUS Active
DURATION Till Otherwise Agreed
EXPIRATION DATE 2006/06/01
ID PSNDF(
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
ADVERSE REACTION TRACKING Hines
INPATIENT MEDICATIONS Birmingham