|
Last change
on this file since 789 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
519 bytes
|
| Line | |
|---|
| 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.
