Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSNDEA

PSNDEA.m

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