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