Routine: PSIVWL

Package	Total	Call Graph
Inpatient Medications	2	(,ENINIT,ENRSET,ENT)^PSIVWL1 $$ONE^PSJBCMA
Kernel	2	(T0,T1)^%ZOSV ^%ZTLOAD
VA Fileman	2	^%DT (,C,DW,NOW)^%DTC
Registration	1	INP^VADPT

Package	Total	Caller Graph
Inpatient Medications	4	PSIVCAL PSIVORE1 PSIVSP PSJI WARD
Pharmacy Data Management	1	PSSDDUT3

Entry Points

External References

Name	Field # of Occurrence
^%DT	PSIVWL+6
^%DTC	ENP3+5
C^%DTC	ENT+3
DW^%DTC	ENP4+2
NOW^%DTC	DEQ+2
T0^%ZOSV	DEQ+3
T1^%ZOSV	DEQ+5
^%ZTLOAD	QUE+2
^PSIVWL1	PSIVWL+8
ENINIT^PSIVWL1	DEQ+4
ENRSET^PSIVWL1	PSIVWL+7
ENT^PSIVWL1	DEQ+6
$$ONE^PSJBCMA	SETP+2
INP^VADPT	MAN1

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: PSIVWL+6
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: DEQ+2
Function Call: WRITE	Prompt: !!,"** WARNING --- WARD LIST NOT RUN, LABEL RUN IN PROGRESS **" Line Location: DEQ+2
Function Call: WRITE	Prompt: !!,"**NO DATA FOUND FOR THIS REPORT!*" Line Location: MAN3+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	MAN1
^PS(51.1 - [#51.1]	ENP4+3, ENP4+10
^PS(55 - [#55]	DEQ+2, DEQ+4, Q, SETP, SETP+3, MAN1, MAN2*, MAN2+2, MAN3+2

Label References

Name	Line Occurrences
CHK	ENP3+4
ENP3	MAN3+4
ENP4	ENP3+4
ENT	ENP3+5, ENP3+7
MAN1	DEQ+4
MAN2	MAN3+3, MAN3+4
MAN3	MAN1
PSIVWL	PSIVWL+6, PSIVWL+7
Q	PSIVWL+6, PSIVWL+8, PSIVWL+9, DEQ+2
QSP	ENP3+3, ENP3+4, ENP3+5
QUE	PSIVWL+9
SETP	MAN1

Naked Globals

Name	Field # of Occurrence
^(	SETP+3
^(0	MAN2+2*
^(2	MAN3+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DEQ+2
%DT	PSIVWL+6!*, Q!
%T	Q+1!
A	SETP+1~, SETP+3*
ADM	ENP4+1~, ENP4+7, ENP4+14
ADMSD	ENP4+1~, ENP4+6, ENP4+7, ENP4+13, ENP4+14
ADMTM	ENP4+1~, ENP4+7, ENP4+14
CD	MAN3+4*, ENP3+3, ENP3+6, ENP3+7, QSP!, ENP4, ENP4+2, ENP4+6, ENP4+7, ENP4+13 , ENP4+14, ENP4+17
D	Q+1!
DFN	Q+1!, SETP, SETP+2, SETP+3, MAN1*, MAN2, MAN2+2, MAN3+2
DIC	Q!
DT	PSIVWL+7
DTIME	PSIVWL+6
HOUR	ENT+1*, ENT+3, ENT+5!
HR	ENT+1, ENT+2, ENT+3*, ENT+5!
I	Q+1!, QUE*
IOF	DEQ+2, Q
ION	PSIVWL+9
MI	Q!, ENP4+17, ENT+1, ENT+2, ENT+3, ENT+5!
MIN	ENT+1*, ENT+2, ENT+5!
NOFLG	DEQ+3*, Q!, MAN1
O	ENT+5!
OD	MAN3+4*, ENP3+3, ENP3+5, ENP3+6, ENP3+7, QSP!, ENP4, ENP4+2, ENP4+6, ENP4+7 , ENP4+13, ENP4+14, ENP4+17
ODCDWD	ENP4+1~, ENP4+2*, ENP4+5, ENP4+6, ENP4+12, ENP4+13
ON	Q!, SETP, SETP+2, SETP+3, MAN1*, MAN2, MAN2+2, MAN3+2
P	Q+1!
P(	SETP*
P(11	ENP3+2, ENP3+3, ENP3+4, ENP3+5, CHK, ENP4+7, ENP4+14, ENP4+17
P(15	ENP3+2
P(17	MAN3+2, MAN3+3
P(2	MAN3+4, ENP3+2, ENP4
P(23	ENP3+4
P(3	MAN3+4, ENP3+2, ENP3+7, ENP4+17
P(4	MAN2, MAN3+1, MAN3+2, ENP3+3, ENP3+4
P(5	ENP3+4
P(7	QSP, ENP4+17
P(8	MAN2
P(9	SETP+2, ENP3+3, ENP4+3, ENP4+10
P9	ENP4+1~, ENP4+3, ENP4+4, ENP4+5, ENP4+6, ENP4+10, ENP4+11, ENP4+12, ENP4+13
PSCT	Q!
PSGCNT	Q!, MAN2, MAN2+2, MAN3+3, ENP3+2, QSP*
PSGSA	Q!, MAN2, MAN3+3, ENP3+2, ENP3+3, ENP3+6, ENP3+7, QSP, ENP4+7, ENP4+14* , ENP4+17*
PSIV	Q!
PSIV("NME"	MAN1*
PSIV1	DEQ+4*, Q+1!
PSIVCD	PSIVWL+8, Q+1!
PSIVCD(	MAN3+4
PSIVDT	PSIVWL+7*, Q!
PSIVDT1	DEQ+4*, Q!, MAN1
PSIVMI	ENP3+2, ENP3+5, ENP3+7, QSP!, ENP4+17
PSIVMIN	ENP3+5, ENP3+7, ENT+1, ENT+5!
PSIVMT	Q!
PSIVMT(	QUE
PSIVOD	PSIVWL+8, Q!
PSIVOD(	DEQ+4, MAN2, MAN3+2, MAN3+4
>> PSIVPR	PSIVWL+9, Q, QUE
PSIVRUN	Q!
PSIVSD	ENP3+2, ENP3+3, ENP3+5, ENP3+6, ENP3+7, QSP!, ENP4, ENP4+17*, ENT+1
>> PSIVSN	DEQ+2, Q, MAN2, MAN3+2
>> PSIVT	DEQ+4, MAN3+1, MAN3+4, QUE
PSIVX	ENP4+1~, ENP4+3, ENP4+4, ENP4+9, ENP4+10, ENP4+11, ENP4+16
PSJOK	DEQ+1~, SETP+3*, MAN1
PSJST	SETP+1~, SETP+2*, SETP+3
PSM	Q+1!
U	MAN1, MAN2, ENP4+2
VAERR	Q+1!
>> VAIN(4	MAN2
WRD	PSIVWL+6!
X	PSIVWL+6, Q+1!, SETP, QUE+1, ENP3+3, ENP3+5, ENP3+7, ENP4+2, ENP4+3, ENP4+4 , ENP4+5, ENP4+6, ENP4+10, ENP4+11, ENP4+12, ENP4+13, ENT+3
X1	ENP3+5, ENT+1, ENT+3, ENT+5!
X2	ENP3+5, ENT+1, ENT+3*, ENT+5!
>> XRTL	DEQ+3, DEQ+5
>> XRTN	DEQ+5*
Y	PSIVWL+6, PSIVWL+7, DEQ+2, Q+1!, SETP, ENP3+5, ENP3+6, ENP3+7, CHK, ENP4+17* , ENT+3*
Z	Q+1!
Z1	Q+1!
Z2	Q+1!
>> ZTDESC	QUE*
>> ZTIO	QUE*
>> ZTQUEUED	Q+1
>> ZTREQ	Q+1*
>> ZTRTN	QUE*
>> ZTSAVE(	QUE+1*
>> ZTSAVE("PSIVCD("""	QUE*
>> ZTSAVE("PSIVMT("""	QUE*
>> ZTSAVE("PSIVOD("""	QUE*
ZTSK	Q+1!, QUE+2

Customize PDF page

Package: Inpatient Medications

Routine: PSIVWL

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
MAN1
MAN2
MAN3	;I P(4)=""!(P(4)'=PSIVT) S NOFLG=1 D NOW^%DTC S PSIVRUN=$E(%,1,12) K %,%I,%H D HDR^PSIVWL1 W !!,"**NO DATA FOUND FOR THIS REPORT!*" Q
DEQ	;
CHK
ENP3	;
Q
QSP
SETP
ENP4
QUE
ENT	;PSIVMIN=# of min. to add or sub, PSIVSD=date to add or sub from in FM format -- Answer ret. in 'Y'	ICR #2154 Status: Active Usage: Private