Routine: PSIVWCR1

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

PSIVWCR1 ;BIR/PR-PRINT WARD COST REPORT ;16 DEC 97 / 1:40 PM

Source Information

Source file <PSIVWCR1.m>

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Inpatient Medications	2	TM^PSIVDCR1 H^PSIVWCR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Inpatient Medications	1	PSIVWCR

Entry Points

Name	Comments	DBIA/ICR reference
P
P1	;
P2
T	;Print grand total
F	;
K

External References

Name	Field # of Occurrence
TM^PSIVDCR1	T+2
H^PSIVWCR	F+1

Interaction Calls

Name	Line Occurrences
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: P2+1
Function Call: WRITE	Prompt: ?78,$J($P(G3,U,5),7,2),?96,$J($P(G3,U,7),7,2),?114,"$",$J($P(G3,U,4),17,2) Line Location: P2+1
Function Call: WRITE	Prompt: !,?117,"===============" Line Location: T+1
Function Call: WRITE	Prompt: !,?17,"GRAND TOTAL:",?114,"$",$J(TC,17,2) Line Location: T+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(52.6	P2
^DIC(42 - [#42]	P1+1
^UTILITY($J	P, P1+1, P2, K!

Label References

Name	Line Occurrences
F	P, P1+1, P2+1, T+1, T+2
P1	P
P2	P1+1

Naked Globals

Name	Field # of Occurrence
^(	P1+1
^(0	P1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	K!
AL	P1+1*, P2, P2+1, K!
B	K!
C	P2*, P2+1, K!
CO	K!
DA	K!
DEST	K!
DG	K!
F	K!
G	K!
G2	K!
G3	P2*, P2+1, K!
H	K!
I10	K!
I11	K!
I2	K!
I3	K!
I7	K!
I8	K!
I9	K!
IOSL	F+1
J	K!
K	P!, P1+1, K!
L	K!
LN	K!
NA	K!
NOW	K!
PC	K!
S	K!
ST	K!
TC	P2+1*, T+2, K!
TD	P2+1*, K!
U	P1+1, P2, P2+1
UC	K!
UD	K!
UM	K!
UR	K!
V	P, P1+1, P2, K!
VA	K!
W	P*, P1+1, P2, K!
>> X	P2*
Y	P1+1*, K!
Z	P, P1+1*, K!
ZF	P, K!