source: WorldVistAEHR/trunk/r/NATIONAL_DRUG_FILE-PSN/PSNDEA.m@ 767

Last change on this file since 767 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 519 bytes
Line 
1PSNDEA ;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
70 ;;A MANUFACTURED IN PHARMACY ITEM
8M ;;A BULK COMPOUND ITEM
9I ;;AN INVESTIGATIONAL DRUG
Note: See TracBrowser for help on using the repository browser.