Routine: PSIVPCR1

Information

PSIVPCR1 ;BIR/PR,MV-PRINT PROVIDER COST REPORT ;07 OCT 97 / 9:49 AM

Source file <PSIVPCR1.m>

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

Package	Total	Caller Graph
Inpatient Medications	1	PSIVPCR

Name	Comments	DBIA/ICR reference
P2	;
P3	;
P1	;
F	;
K	;
BRIEF	;***Print the condensed Provider cost report.
P	;

Name	Field # of Occurrence
TM^PSIVDCR1	P+4, BRIEF+6
H^PSIVPCR	F+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"IV ROOM: "_$P(^PS(59.5,V,0),U),! Line Location: P+3
Function Call: WRITE	Prompt: !!?17,"GRAND TOTAL:",?116,"================",!?114,"$",$J(GT,17,2) Line Location: P+4
Function Call: WRITE	Prompt: !?1,"PROVIDER: ",P1,! Line Location: P1+1
Function Call: WRITE	Prompt: !,?116,"----------------" Line Location: P2+2
Function Call: WRITE	Prompt: !?5,"TOTAL FOR PROVIDER: ",P1,?114,"$",$J(PT,17,2),!! Line Location: P2+3
Function Call: WRITE	Prompt: !?2,$E(DG,1,33),?36,$J($P(G,U,3),8,2)_" "_C,?59,$J($P(G,U,6),8,2),?73,$J($P(G,U,5),9,2),?96,$J($P(G,U,7),9,2),?114,"$",$J($P(G,U,4),17,2) Line Location: P3+4
Function Call: WRITE	Prompt: !!!?10,"IV ROOM: "_$P(^PS(59.5,V,0),U),! Line Location: BRIEF+1
Function Call: WRITE	Prompt: !,P1,?45,"$",$J(PT,17,2),! Line Location: BRIEF+4
Function Call: WRITE	Prompt: !!,?46,"=================",!,?20,"GRAND TOTAL:",?45,"$",$J(GT,17,2) Line Location: BRIEF+5

Name	Line Occurrences (* Changed, ! Killed)
^DD(52.6	P3+2
^PS(59.5 - [#59.5]	P+3, BRIEF+1
^UTILITY($J	P+3, P1+1, P2+1, P3+1, BRIEF+1, BRIEF+2, BRIEF+3, K+2!

Name	Field # of Occurrence
%	K+2!
>> BRIEF	P+2, P3+3
C	P3+2*, P3+4, K+2!
CO	K+2!
D	K+2!
DA	K+2!
DAT	K+2!
DES	K+2!
DG	P+1, P2+1, P3+1, P3+4, BRIEF+1, BRIEF+3, K+2!
G	P3+1*, P3+2, P3+3, P3+4, K+2!
G2	K+2!
GT	P+1, P+4, P2+3, BRIEF+4*, BRIEF+5, K+2!
H	K+2!
I	K+2!
I1	K+2!
I10	K+2!
I11	K+2!
I15	K+2!
I2	K+2!
I4	K+2!
I6	K+2!
I7	K+2!
I8	K+2!
I9	K+2!
IOSL	F+1
J	P1+1, P2+1, K+2!
JJ	K+2!
NA	K+2!
P	P+1*, K+2!
P1	P1+1, P2+1, P2+3, P3+1, BRIEF+1, BRIEF+2*, BRIEF+3, BRIEF+4, K+2!
PG	K+2!
PT	P+1, P2+3, P3+3, P3+4, BRIEF+3, BRIEF+4, K+2!
S	K+2!
SS	K+2!
U	P+3, P3+2, P3+3, P3+4, BRIEF+1, BRIEF+3
UC	K+2!
UD	K+2!
UM	K+2!
UR	K+2!
V	P+3, P1+1, P2+1, P3+1, BRIEF+1, BRIEF+2, BRIEF+3, K+2!
VA	K+2!
>> X	P3+2*
Y	K+2!
Z	K+2!
>> ZTQUEUED	K+1
>> ZTREQ	K+1*
ZTSK	K+2!