Routine: PRCAGST2

Information

PRCAGST2 ;WASH/ISC@ALTOONA,PA/CMS - Print Patient Statement Summary ;4/19/95 11:07 AM

Name	Comments	DBIA/ICR reference
V	;;4.5;Accounts Receivable;2,176,405;Mar 20, 1995;Build 9
SUM	;statement summary called from PRCAGST1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"\|",?12,"\|",?58,"\|",?67,"\|",?79,"\|" Line Location: SUM+2
Function Call: WRITE	Prompt: !,"\|",?12,"\|",?58,"\|",?67,"\|",?79,"\|" Line Location: SUM+3
Function Call: WRITE	Prompt: !,"\|",?12,"\|",?14,"Previous Balance",?32,$J(PBAL,15,2),?58,"\|",?67,"\|",?79,"\|" Line Location: SUM+4
Function Call: WRITE	Prompt: !,"\|",?12,"\|",?14,"Charges",?32,$J(TBAL("CH"),15,2),?58,"\|",?67,"\|",?79,"\|" Line Location: SUM+5
Function Call: WRITE	Prompt: !,"\|",?12,"\|",?14,"Payments/Credits",?32,$J(TBAL("PC"),15,2),?58,"\|",?67,"\|",?79,"\|" Line Location: SUM+6
Function Call: WRITE	Prompt: !,"\|",?12,"\|",?14,"Refunds",?32,$J(TBAL("RF"),15,2),?58,"\|",?67,"\|",?79,"\|" Line Location: SUM+7
Function Call: WRITE	Prompt: !,"\|",?12,"\|",?32,"_______________",?58,"\|",?67,"\|",?79,"\|" Line Location: SUM+8
Function Call: WRITE	Prompt: !,"\|",?12,"\|",?14,"New Balance",?32,$J((PBAL+TBAL("CH")+TBAL("PC")+TBAL("RF")),15,2),?58,"\|",?67,"\|",?79,"\|" Line Location: SUM+9
Function Call: WRITE	Prompt: !,"\|",?12,"\|",?58,"\|",?67,"\|",?79,"\|" Line Location: SUM+11
Function Call: WRITE	Prompt: !,"\|",?12,"\|","THANK YOU FOR YOUR PAYMENT!",?58,"\|",?67,"\|",?79,"\|" Line Location: SUM+12
Function Call: WRITE	Prompt: !,"\|" Line Location: SUM+13
Function Call: WRITE	Prompt: Y,"\|" Line Location: SUM+13