Routine: PSDPSTK

Package

Total

Call Graph

PRINT^PSDPSTK1 ^PSDSET

NOW^%DTC

Package	Total	Caller Graph
Controlled Substances	1	PSD STOCK PRINT

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
START	;compile data for stock drug report
PRTQUE	;queues print after data is compiled
END	;
DEV	;ask device and queueing information

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report lists data stored for CS Stock Drugs.",!!,"This report is designed for a 132 column format.",!,"You may queue this report to print at a later time.",!! Line Location: PSDPSTK+3
Function Call: WRITE	Prompt: !!,"You MUST create NAOUs before running this report!" Line Location: PSDPSTK+4
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+1
Routine Call	%ZIS Line Location: DEV+1

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	PSDPSTK+4, START+2, START+3, START+5, START+6, START+7, START+8
^PSDRUG - [#50]	START+4
^TMP("PSDPSTK"	START+1!, START+5, START+9, START+10*, END+2!, PRTQUE+2!

Name	Line Occurrences
END	DEV+1, DEV+2, PRTQUE+2
PRTQUE	START+2

Name	Field # of Occurrence
^("I"	START+5
^(0	START+2, START+4

Name	Field # of Occurrence
%	END+1!
%H	END+1!
%I	END+1!
%ZIS	DEV+1!*, END+1!
%ZIS("B"	DEV+1*
DA	END+1!
DATEI	END+1!
DIK	END+1!
DRUG	START+2*, START+3, START+4, START+6, START+7, START+8, END+1!
DRUGN	START+4*, START+5, START+9, START+10, END+1!
IO	DEV+3
IO("Q"	DEV+1!, DEV+2!, END+1!
ION	DEV+2
IOP	DEV+1!
LOC	START+6*, START+9, END+1!
NAOU	START+2*, START+3, START+5, START+6, START+7, START+8, START+9, START+10, END+1!
NODE	START+6*, END+1!
POP	DEV+1!, END+1!
PSDIO	DEV+2*, END+1!, PRTQUE+1
>> PSDSITE	PSDPSTK+2, START+2
PSDT	PSDPSTK+5*, START+5, END+1!
STK	START+6*, START+9, END+1!
TYP	START+7*, END+1!
TYPE	START+7, START+9, END+1!
WARD	START+8, START+9, START+10, END+1!
WRD	START+8*, END+1!
X	PSDPSTK+5, START+3, END+2!
Y	END+2!
ZTDESC	DEV+2, END+2!, PRTQUE+1
ZTDTH	DEV+2!, END+2!, PRTQUE+1*
ZTIO	DEV+2, END+2!, PRTQUE+1!
>> ZTQUEUED	START+2, END+3
>> ZTREQ	END+3*
ZTRTN	DEV+2, END+2!, PRTQUE+1
ZTSAVE	DEV+2!, END+2!, PRTQUE+1!
ZTSAVE("PSDIO"	DEV+2*
ZTSAVE("PSDSITE"	DEV+2*
ZTSAVE("PSDT"	DEV+2*
ZTSAVE("^TMP(""PSDPSTK"",$J,"	PRTQUE+1*
ZTSK	DEV+2!, PRTQUE+2!

Information