Routine: PSIVDCR1

Information

PSIVDCR1 ;BIR/PR,MLM-PRINT DRUG COST REPORT ;29 SEP 94 / 10:09 AM

Name	Comments	DBIA/ICR reference
W	;Entry to print report.
H	;Header
P	;Print IV room, grand total cost
S	;Print high/low cost in descending sort
SP	;Print out summary page
TM	;
K	;
F	;Form feed
RESORT	;
RESORT1	;

Name	Line Occurrences
Function Call: WRITE	Prompt: "=" Line Location: H+3
Function Call: WRITE	Prompt: ! Condition for execution: Q=132 Line Location: H+3
Function Call: WRITE	Prompt: !!?11,"GRAND TOTAL COST: ",?28,"$",$J(G1,14,2),?52,"$",$J(G2,14,2),?70,"$",$J(G3,14,2),?89,"$",$J(G4,14,2),?113,"$",$J(G5,17,2) Line Location: P+3
Function Call: WRITE	Prompt: !,"DESCENDING SORT:" Line Location: S+1
Function Call: WRITE	Prompt: ?30,SD,?90,"$",$J(^(SD),15,2),! Line Location: S+2
Function Call: WRITE	Prompt: !!!!?16,"BAG SUMMARY:" Line Location: SP+2
Function Call: WRITE	Prompt: !,?17,"DESTROYED",?40,"=",?40,$J(B2/B1100,6,2)_" %",?80,"OF DISPENSED BAGS",!?17,"RECYCLED",?40,"=",?40,$J(B3/B1100,6,2)_" %",?80,"OF DISPENSED BAGS",!?17,"CANCELLED",?40,"=",?40,$J(B4/B1*100,6,2)_" %",?80,"OF DISPENSED BAGS" Line Location: SP+3
Function Call: WRITE	Prompt: !!?16,"COST SUMMARY:" Line Location: SP+4
Function Call: WRITE	Prompt: !,?17,"DESTROYED",?40,"=",?40,$J(G2/G1100,6,2)_" %",?80,"OF DISPENSED COST",!?17,"RECYCLED",?40,"=",?40,$J(G3/G1100,6,2)_" %",?80,"OF DISPENSED COST",!?17,"CANCELLED",?40,"=",?40,$J(G4/G1*100,6,2)_" %",?80,"OF DISPENSED COST" Line Location: SP+5
Function Call: WRITE	Prompt: !!!?17,"FINISHED PRINTING ON: " Line Location: TM+1
Function Call: WRITE	Prompt: Y,@IOF Line Location: TM+1