Last change
on this file since 1111 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.