Routine: PSNDEA

Information

PSNDEA ;BIR/CCH&WRT-CHECKS DEA FIELD TO SEE IF IT CAN BE MATCHED ;01/12/98 5:18 PM

Source file <PSNDEA.m>

Name	Comments	DBIA/ICR reference
0	;;A MANUFACTURED IN PHARMACY ITEM
M	;;A BULK COMPOUND ITEM
I	;;AN INVESTIGATIONAL DRUG

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$P(^PSDRUG(PSNB,0),"^")," IS ",$P($T(@VV),";",3),!,"AND CANNOT BE MATCHED!",!! Line Location: PSNDEA+4