Routine: PSIVMAN

Package	Total	Call Graph
Inpatient Medications	4	ENIVKV^PSGSETU ^PSIVHLP ENT^PSIVMAN1 ^PSIVWL1
Kernel	1	^%ZTLOAD
VA Fileman	1	^%DT

Package	Total	Caller Graph
Inpatient Medications	2	PSIVSUS1 PSJI MAN

Name	Comments	DBIA/ICR reference
SETS
SETA
RGY
RGY1
Q
START
ENS	;
SETP
DEQ	;MANUFACTURING LIST START HERE
QUE

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: START+0
Function Call: WRITE	Prompt: !!,"Run manufacturing list for DATE: TODAY//" Line Location: START+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: DEQ+1
Function Call: WRITE	Prompt: !!,"**WARNING --- MANUFACTURING LIST NOT RUN**" Line Location: DEQ+1

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.6 - [#52.6]	SETA
^PS(52.7 - [#52.7]	SETS
^PS(55 - [#55]	DEQ+1, DEQ+2!, Q, RGY, RGY1, SETP, ENS+1, SETS, SETA, SETA+1

Name	Field # of Occurrence
^(	RGY1, SETS, SETA, SETA+1*
^(0	SETS, SETA, SETA+1*

Name	Field # of Occurrence
%	Q+1!
%DT	START*, Q+1!
%T	Q+1!
ADD	Q+1!
D	Q+1!
DA	Q+1!
DFN	Q+1!, RGY*, RGY1, SETP, ENS+1, SETS, SETA, SETA+1
DTIME	START
>> HELP	START+2*
I	DEQ+2, Q+1!, QUE
IOF	DEQ+1, Q
ION	START+4
IOP	Q+1!
JJ	DEQ+3*, Q+1!
JJ1	Q+1!
NOFLG	Q+1!
ON	Q+1!, RGY1*, SETP, ENS+1, SETS, SETA, SETA+1
P	Q+1!
P(	SETP*
P(17	RGY1
P(23	SETA+1
P(4	ENS+1*, SETA+1
PSCT	Q+1!
PSIV	Q+1!
PSIV1	Q+1!
PSIVADD	SETA*, SETA+1, SETA+2!
PSIVCD	START+3, Q+1!
PSIVDT	START+3*, Q+1!
PSIVGL1	DEQ+2*, Q+1!, SETA+1
PSIVGL2	DEQ+2, DEQ+3, Q+1!, SETA+1
PSIVMT	Q+1!
PSIVMT(	QUE
PSIVOD	START+3, Q+1!
PSIVOD(	DEQ+2, DEQ+3, RGY, RGY1
>> PSIVPR	START+4, Q, QUE
PSIVSL	Q+1!
>> PSIVSN	DEQ+1, DEQ+2, Q, RGY, RGY1, SETA+1
PSIVSOL	SETS*, SETA+1, SETA+2!
PSIVT	DEQ+2, Q+1!, RGY, RGY1, QUE
PSIVTTM	DEQ+3, Q+1!, RGY1, SETA+1, SETA+2!
TOTAL	Q+1!
VAERR	Q+1!
WRD	DEQ+2*, Q+1!, RGY, RGY1
X	START, START+2, Q+1!, SETP, QUE+1
Y	START, START+1, START+3, Q+1!, SETP
Z	Q+1!
>> ZTDESC	QUE*
>> ZTIO	QUE*
ZTM	Q+1!
>> ZTQUEUED	Q
>> ZTREQ	Q*
>> ZTRTN	QUE*
>> ZTSAVE(	QUE+1*
>> ZTSAVE("PSIVCD("""	QUE*
>> ZTSAVE("PSIVMT("""	QUE*
>> ZTSAVE("PSIVOD("""	QUE*
ZTSK	Q+1!, QUE+2

Information