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>

Package	Total	Caller Graph
National Drug File	2	PSNCOMP PSNDRUG

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

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

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	PSNDEA+2, PSNDEA+3, PSNDEA+4
^PSNTRAN - [#50.612]	PSNDEA+4*

Name	Field # of Occurrence
$T(@VV	PSNDEA+4