- 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 Feb 18, 2025@23:50:01 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