Last change
on this file since 1714 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
519 bytes
|
Rev | Line | |
---|
[613] | 1 | PSNDEA ;BIR/CCH&WRT-CHECKS DEA FIELD TO SEE IF IT CAN BE MATCHED ;01/12/98 5:18 PM
|
---|
| 2 | ;;4.0; NATIONAL DRUG FILE;; 30 Oct 98
|
---|
| 3 | K PSNINACT I $D(^PSDRUG(PSNB,"I")),$P(^PSDRUG(PSNB,"I"),"^",1)]"" S:+^PSDRUG(PSNB,"I")<DT PSNINACT=1
|
---|
| 4 | S PSNDEA=$P(^PSDRUG(PSNB,0),"^",3)
|
---|
| 5 | F VV=0,"I","M" I PSNDEA[VV W !!,$P(^PSDRUG(PSNB,0),"^")," IS ",$P($T(@VV),";",3),!,"AND CANNOT BE MATCHED!",!! S ^PSNTRAN(PSNB,0)="0^^^^^^^"_DUZ K VV,PSNDEA Q
|
---|
| 6 | K VV Q
|
---|
| 7 | 0 ;;A MANUFACTURED IN PHARMACY ITEM
|
---|
| 8 | M ;;A BULK COMPOUND ITEM
|
---|
| 9 | I ;;AN INVESTIGATIONAL DRUG
|
---|
Note:
See
TracBrowser
for help on using the repository browser.