Routine: PRCPRPC3

Information

PRCPRPC3 ;WISC/RFJ-patient distribution costs (print report totals) ;11 Mar 94

Name	Comments	DBIA/ICR reference
PRINTOTL	; print report totals
TOTAL(VALUES)

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"TOTALS BY DISTRIBUTION POINT: ",DISTRNM Line Location: PRINTOTL+3
Function Call: WRITE	Prompt: ! Line Location: PRINTOTL+5
Function Call: WRITE	Prompt: !,"TOTALS BY SURGICAL SPECIALTY: ",SURGSPEC Line Location: PRINTOTL+7
Function Call: WRITE	Prompt: !,$J($S(INOUTPAT="I":"INPATIENT",INOUTPAT="O":"OUTPATIENT",1:"UNKNOWN"),28),":" Line Location: PRINTOTL+9
Function Call: WRITE	Prompt: ! Line Location: PRINTOTL+11
Function Call: WRITE	Prompt: !,"TOTALS BY INPATIENT/OUTPATIENT: ",$S(INOUTPAT="I":"INPATIENT",INOUTPAT="O":"OUTPATIENT",1:"UNKNOWN") Line Location: PRINTOTL+12
Function Call: WRITE	Prompt: ! Line Location: PRINTOTL+14
Function Call: WRITE	Prompt: !,"TOTALS BY OPERATION/PROCEDURE CODE: ",OPCODE Line Location: PRINTOTL+15
Function Call: WRITE	Prompt: ! Line Location: PRINTOTL+17
Function Call: WRITE	Prompt: !,"TOTALS BY SURGEON: ",SURGEON Line Location: PRINTOTL+18
Function Call: WRITE	Prompt: !!,"TOTALS BY REPORT: " Line Location: PRINTOTL+20
Function Call: WRITE	Prompt: ?46,$J(+$P(VALUES,"^"),10),$J($P(VALUES,"^",2),12,2),$J(AVERAGE,12,2) Line Location: TOTAL+2