Routine: PSDEA

Information

PSDEA ;BIR/JPW-List Drug Name & DEA Special Handling ; 2 Aug 94

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD
VA Fileman	2	^%DT ^DIR

Package	Total	Caller Graph
Controlled Substances	1	PSD DEA LIST

Name	Comments	DBIA/ICR reference
END	;
HEADER	;prints header information
DEV	;asks device and queueing information
START	;compiles and prints data for report
DONE
PRINT	;print from ^tmp

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report lists Drug name, DEA Special Handling, and NDC information",!,"for all drugs marked for Controlled Substances use.",! Line Location: PSDEA+2
Function Call: WRITE	Prompt: !,"This report is designed for an 80 column format.",! Line Location: DEV+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+2
Function Call: WRITE	Prompt: !!,?10,"NO DATA FOR THE DEA SPECIAL HANDLING REPORT!!",!! Line Location: PRINT+2
Function Call: WRITE	Prompt: ! Line Location: PRINT+6
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: ! Line Location: DONE+1
Function Call: WRITE	Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),U),"." Line Location: HEADER+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HEADER+3
Function Call: WRITE	Prompt: !,?15,"DEA SPECIAL HANDLING FOR CS PHARM DRUGS",!,?29,RPDT,?70,"PAGE: "_PG Line Location: HEADER+3
Function Call: WRITE	Prompt: !!,?48,"DEA SPECIAL",!,"DRUG NAME",?49,"HANDLING",?70,"NDC",!,LN,! Line Location: HEADER+4
Routine Call	%ZIS Line Location: DEV+3
Routine Call	DIR Line Location: DONE+1 HEADER+1
Routine Call	%ZIS Line Location: DEV+2

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	START+2
^PSDRUG - [#50]	START+3, START+4, START+5
^PSDRUG("AIUN"	START+3
^TMP("PSDEA"	START+1!, START+6*, PRINT+2, PRINT+3, PRINT+4, END+2!
^VA(200 - [#200]	HEADER+2

Name	Field # of Occurrence
^(2	START+5

Name	Field # of Occurrence
%DT	START+2*, END+1!
%ZIS	DEV+2!*, END+1!
%ZIS("B"	DEV+2*
DA	END+1!, HEADER+1!
DEA	END+1!
DIR	DONE+1!, END+1!, HEADER+1!
DIR("A"	DONE+1*
DIR(0	DONE+1, HEADER+1
DIROUT	END+1!
DIRUT	DONE+1!, END+1!
DTOUT	END+1!
DUOUT	END+1!
DUZ	HEADER+2
IO	DEV+4
IO("Q"	DEV+2!, DEV+3!
IOF	DONE, HEADER+3
IOP	DEV+2!
IOSL	PRINT+3
IOST	DONE, DONE+1, HEADER+1
LN	PRINT+1!*, END+1!, HEADER+4
NODE	START+4, PRINT+4, PRINT+5, END+1!
NUM	START+3, START+4, START+5, START+6, PRINT+3, PRINT+4, END+1!
PG	START+2, END+1!, HEADER+1, HEADER+3
POP	DEV+2!
PSD	START+3*, END+1!
PSDEA	START+4*, START+6, END+1!
PSDN	START+4, START+6, PRINT+3, PRINT+4, PRINT+5, END+1!
PSDNDC	START+5*, START+6, END+1!
PSDOUT	START+2, PRINT+3, DONE+1, END+1!, HEADER+1, HEADER+2*
RPDT	START+2*, END+1!, HEADER+3
U	HEADER+2
X	START+2*, END+1!
Y	START+2, END+1!, HEADER+1
ZTDESC	DEV+3*, END+1!, HEADER+2
ZTDTH	DEV+3!
ZTIO	DEV+3!, END+1!
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
ZTRTN	DEV+3*, END+1!
ZTSAVE	DEV+3!
ZTSK	DEV+3!, END+1!, HEADER+2