PSNDEA.m

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSNDEA   528     printed  Apr 09, 2024@21:22:24                                                                                                                                                                                                       Page 2

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

 +2        KILL PSNINACT

           IF $DATA(^PSDRUG(PSNB,"I"))

               IF $PIECE(^PSDRUG(PSNB,"I"),"^",1)]""

                   if +^PSDRUG(PSNB,"I")<DT

                       SET PSNINACT=1

 +3        SET PSNDEA=$PIECE(^PSDRUG(PSNB,0),"^",3)

 +4        FOR VV=0,"I","M"

               IF PSNDEA[VV

                   WRITE !!,$PIECE(^PSDRUG(PSNB,0),"^")," IS ",$PIECE($TEXT(@VV),";",3),!,"AND CANNOT BE MATCHED!",!!

                   SET ^PSNTRAN(PSNB,0)="0^^^^^^^"_DUZ

                   KILL VV,PSNDEA

                   QUIT 

 +5        KILL VV

           QUIT 

0         ;;A MANUFACTURED IN PHARMACY ITEM

M         ;;A BULK COMPOUND ITEM

I         ;;AN INVESTIGATIONAL DRUG