Routine: PRCAGST1

Information

PRCAGST1 ;WASH-ISC@ALTOONA,PA/CMS-Print Patient Statement Bottom ;10/16/96 11:13 AM

Name	Comments	DBIA/ICR reference
V	;;4.5;Accounts Receivable;2,48,104,176,249,301,405,406;Mar 20, 1995;Build 5
WRL(DAT,DESC,AMT,REF)	;Write transaction
TRANDESC(PRTRAN,RCDESC)
AMOUNT(BN,TTY,AMT,THNK)	;Adjust (+/-) amount depending on Transaction Type
BILLDESC(PRBILL,RCDESC)
DAT(DAT)	;slash date
HDR	;statement transaction header

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"\|" Line Location: V+29
Function Call: WRITE	Prompt: Y,"\|" Line Location: V+29
Function Call: WRITE	Prompt: !,"\|" Line Location: WRL+4
Function Call: WRITE	Prompt: Y,"\|" Line Location: WRL+4
Function Call: WRITE	Prompt: !,"\|",$S($G(DAT):$$DAT(DAT),1:""),?12,"\|",DESC(1),?58,"\|",$J(AMT,8,2),?67,"\|",?68,$G(REF),?79,"\|" Line Location: WRL+5
Function Call: WRITE	Prompt: !,"\|",?12,"\|",DESC(X),?58,"\|",?67,"\|",?79,"\|" Line Location: WRL+6
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: ! Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Department of Veterans Affairs",?35,"Acct No.:",$$ACCT^PRCAAPR1(RCDFN) Line Location: HDR+4
Function Call: WRITE	Prompt: !,NAM,?50,"Page ",PAGE Line Location: HDR+5
Function Call: WRITE	Prompt: !,Y Line Location: HDR+6
Function Call: WRITE	Prompt: !,"\|Date Posted\|",?13," Description",?58,"\| Amount ",?67,"\| Reference \|" Line Location: HDR+7
Function Call: WRITE	Prompt: !,"\|" Line Location: HDR+8
Function Call: WRITE	Prompt: Y,"\|" Line Location: HDR+8