PSNDEA ;BIR/CCH&WRT-CHECKS DEA FIELD TO SEE IF IT CAN BE MATCHED ;01/12/98   5:18 PM
 ;;4.0; NATIONAL DRUG FILE;; 30 Oct 98
 K PSNINACT I $D(^PSDRUG(PSNB,"I")),$P(^PSDRUG(PSNB,"I"),"^",1)]"" S:+^PSDRUG(PSNB,"I")<DT PSNINACT=1
 S PSNDEA=$P(^PSDRUG(PSNB,0),"^",3)
 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
 K VV Q
0 ;;A MANUFACTURED IN PHARMACY ITEM
M ;;A BULK COMPOUND ITEM
I ;;AN INVESTIGATIONAL DRUG