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 ---[H[J[2J[HPSNDEA 528 printed Dec 13, 2024@02:23:52 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
