Routine: PSIVPCR1

Information

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

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

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