Routine: PSIVWRP

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: S Line Location: Q+0
Function Call: WRITE	Prompt: D Line Location: W+0
Function Call: WRITE	Prompt: !,$C(7),"No data." Line Location: W+0
Function Call: WRITE	Prompt: !,"IV ROOM: "_$P(^PS(59.5,V,0),U),! Line Location: W+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: H+1
Function Call: WRITE	Prompt: ?95,NOW,!!!,?56,"WARD/DRUG USAGE REPORT:",?99,"PG",?102,$J(PC,4),!,?56,H Line Location: H+1
Function Call: WRITE	Prompt: !?56,I11,", ",I10 Line Location: H+2
Function Call: WRITE	Prompt: !!!?1," DRUG NAME",?38," DISPENSED",?57,"(DESTROYED)",?77,"RECYCLED",?95,"CANCELLED",?123,"DRUG COST" Line Location: H+3
Function Call: WRITE	Prompt: ! Line Location: H+3
Function Call: WRITE	Prompt: "=" Line Location: H+4
Function Call: WRITE	Prompt: ! Line Location: H+5
Function Call: WRITE	Prompt: !?1,Z Line Location: P1+1
Function Call: WRITE	Prompt: !,?2,$E(AL,1,36),?38,$J($P(G3,U,3),10,2)_" "_C,?57,$J($P(G3,U,6),10,2) Line Location: PD+1
Function Call: WRITE	Prompt: ?78,$J($P(G3,U,5),7,2),?96,$J($P(G3,U,7),7,2),?115,$J($P(G3,U,4),17,4) Line Location: PD+1
Function Call: WRITE	Prompt: !!,?120,"============" Line Location: T+1
Function Call: WRITE	Prompt: !,?40,"GRAND TOTAL:",?112,$J(TC,20,4) Line Location: T+2
Routine Call	%ZIS Line Location: Q+2

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PSIVWRP+5
^DD(52.6	PD
^DIC(42 - [#42]	P1+1
^PS(50.2 - [#50.2]	7+1, 8+1
^PS(50.8 - [#50.8]	PSIVWRP+6, 5+1, 6+1, 1+1, 2+1, 3+1, 4+1, 7+1, 71+2, 71+4 , 8+1, 81+2, 81+4, B+1
^PS(59.5 - [#59.5]	W+1
^PSDRUG - [#50]	71+2, 71+4, 81+2, 81+4
^UTILITY($J	PSIVWRP+6!, W, W+1, B+2, P, P1+1, PD, K!

Name	Field # of Occurrence
%	K!
>> %ZIS	Q+2*
AL	W+1, P1+1, PD, PD+1, K!
B	K!
C	PD*, PD+1, K!
CO	B+1*, B+2, K!
>> D5	7+1, 71+2, 71+4, 8+1, 81+2, 81+4
DA	5+1, 6+1, 1+1, 2+1, 3+1, 4+1, 7+1, 71+2, 71+4, 8+1 , 81+2, 81+4, B+1, K!
DEST	B+1*, B+2, K!
DG	B+1*, B+2, K!
DT	PSIVWRP+5
F	PSIVWRP+5*, K!
G	Q+1, B+1, K!
G2	B+1*, K!
G3	PD*, PD+1, K!
H	PSIVWRP+5*, H+1, K!
I10	H+2, K!
I11	H+2, K!
I2	PSIVWRP+2, PSIVWRP+3, PSIVWRP+4, 1+1, 4+1, 7+1, 71+2, 71+3, 71+4, 8+1 , 81+2, 81+3, 81+4, K!
I3	PSIVWRP+2, PSIVWRP+3, PSIVWRP+4, 5+1, 6+1, 1+1, 2+1, 3+1, 4+1, 7+1 , 71+2, 71+4, 8+1, 81+2, 81+4, B+1, B+2, K!
>> I6	Q, Q+2
I7	PSIVWRP+5, PSIVWRP+6, K!
I8	PSIVWRP+5, PSIVWRP+6, K!
I9	K!
IO	W
IOF	H+1, T+3
>> IOP	Q+2*
IOSL	P, P1+1, PD+2
J	5+1, 6+1, 1+1, 4+1, 7+1, 8+1, B+2*, K!
K	P!, P1+1, K!
L	PSIVWRP+5*, K!
LN	H+4*, K!
>> MT	71+2, 81+2
NA	PSIVWRP+6, 5+1, 6+1, 1+1, 4+1, 7+1, 8+1*, K!
NOW	PSIVWRP+5*, H+1, K!
PC	PSIVWRP+5, H+1, K!
S	PSIVWRP+2, PSIVWRP+3, PSIVWRP+4*, PSIVWRP+6, K!
ST	PSIVWRP+6*, 5+1, 6+1, 1+1, 2+1, 3+1, 4+1, 7+1, 71+2, 71+4 , 8+1, 81+2, 81+4, B+1, K!
TC	PSIVWRP+5, PD+1, T+2, K!
TD	PSIVWRP+5, PD+1, K!
U	W+1, 71+2, 71+4, 81+2, 81+4, B+1, B+2, P1+1, PD, PD+1
UC	B+1*, B+2, K!
UD	B+1*, B+2, K!
UM	B+1*, B+2, K!
UR	B+1*, B+2, K!
V	PSIVWRP+6, W+1, 5+1, 6+1, 1+1, 2+1, 3+1, 4+1, 7+1, 71+2 , 71+4, 8+1, 81+2, 81+4, B+1, B+2, P, P1+1, PD, K!
VA	PSIVWRP+6!, 7+1, 71+1, 8+1, 81+1, K!
W	P*, P1+1, PD, K!
>> X	PD*
Y	PSIVWRP+5, P1+1, K!
Z	P, P1+1*, K!
ZF	PSIVWRP+5*, P, K!
>> ZTDESC	Q*
>> ZTDTH	Q*
>> ZTIO	Q*
>> ZTQUEUED	K
>> ZTREQ	K*
>> ZTRTN	Q*
>> ZTSAVE(	Q+1*