Routine: PRCACOL

Information

PRCACOL ;WASH-ISC@ALTOONA,PA/LDB - Payment History Report ;9/27/93 4:31 PM

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC (ENS,KILL)^%ZISS ^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT
VA FileMan	2	DT^DICRW ^DIR
Accounts Receivable	1	($$LST,$$NAM,$$SSN)^RCFN01

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Accounts Receivable	1	PRCA PAYMENT TRANS HISTORY
Kernel	1	^DIC(19

Entry Points

Name	Comments	DBIA/ICR reference
V	;;4.5;Accounts Receivable;165,198,264,304;Mar 20, 1995;Build 104
EN	;Ask debtor and date range for payment history
DQ	;Call to build array of payment transactions
EXIT1
EXIT2
TRANS	;Build array of transactions
PRINT	;Print transactions
SCRN	;Check for screen
HDR	;Heading for report

External References

Name	Field # of Occurrence
^%ZIS	EN+17
^%ZISC	EN+20, EXIT2, EXIT2+3
ENS^%ZISS	EXIT2+1
KILL^%ZISS	EXIT2+1
^%ZTLOAD	EN+20
DT^DICRW	TRANS+2
^DIR	EN+3, EN+10, EN+14, EXIT2+1, SCRN+2
$$LST^RCFN01	EN+8
$$NAM^RCFN01	HDR+4
$$SSN^RCFN01	HDR+4
$$FMADD^XLFDT	EN+8
$$FMTE^XLFDT	EN+8, EN+13, PRINT+3, HDR+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7 Line Location: EN+5
Function Call: WRITE	Prompt: !,"This patient has made no payments." Line Location: EN+7
Function Call: WRITE	Prompt: !!,"This patient has no payments or refunds during this time period." Line Location: DQ+4
Function Call: WRITE	Prompt: @IOF Line Location: EXIT2+0
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT($P(PNODE,U,2),"1D"),?15,$P($G(^PRCA(430,+$P(PNODE,U),0)),U) Line Location: PRINT+3
Function Call: WRITE	Prompt: $J(AMT,6,2) Line Location: PRINT+4
Function Call: WRITE	Prompt: !!,?25," Total Principal Paid: ",?50,$J(TOTPRIN,12,2) Line Location: PRINT+11
Function Call: WRITE	Prompt: !,?25," Total Interest Paid: ",?50,$J(TOTINT,12,2) Line Location: PRINT+13
Function Call: WRITE	Prompt: !,?25," Total Admin Paid: ",?50,$J(TOTADM,12,2) Line Location: PRINT+15
Function Call: WRITE	Prompt: !,?25," Total Paid: ",?50,$J(TOTPD,12,2) Line Location: PRINT+17
Function Call: WRITE	Prompt: !,?25," Total Refund: ",?50,$J(TOTREF,12,2) Line Location: PRINT+19
Function Call: WRITE	Prompt: @IOF,!,?20,"Patient Payment History Report",?70,"Page ",PG Line Location: HDR+2
Function Call: WRITE	Prompt: !,?20,"------------------------------" Line Location: HDR+3
Function Call: WRITE	Prompt: !!,?18,"For Patient: ",$$NAM^RCFN01(DEBTOR),!,?25,"SSN : ",$$SSN^RCFN01(DEBTOR) Line Location: HDR+4
Function Call: WRITE	Prompt: !,?20,"For dates: ",$$FMTE^XLFDT(BDATE,"ID"),"-",$$FMTE^XLFDT(EDATE,"1D") Line Location: HDR+5
Function Call: WRITE	Prompt: !!," DATE OF",!,"PAYMENT/REFUND",?16,"BILL #",?25,"REFUND",?32,"RECEIPT #",?45,"AMOUNT",?54,"PRIN.",?62,"INT.",?70,"ADMIN.",!,LINE Line Location: HDR+6
Routine Call	%ZIS Line Location: EN+17
Routine Call	DIR Line Location: EN+3 EN+10 EN+14 EXIT2+1 SCRN+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRCA(430 - [#430]	TRANS+3, PRINT+3
^PRCA(433 - [#433]	EN+7, TRANS+4, TRANS+5, TRANS+7, TRANS+8, TRANS+9, TRANS+11
^RCD(340 - [#340]	EN+5
^TMP($J	DQ+4, DQ+5, EXIT1!, TRANS+2!, TRANS+9, TRANS+10, TRANS+11, TRANS+12, PRINT+1, PRINT+2 , PRINT+3
^UTILITY($J	EXIT1!, EXIT2+1!

Label References

Name	Line Occurrences
EN	EN+5, EXIT2+4
EXIT1	EN+4, EN+11, EN+14, EN+17, EN+20
HDR	DQ+4, DQ+5, SCRN+3
PRINT	DQ+5
SCRN	PRINT+2, PRINT+6, PRINT+10, PRINT+12, PRINT+14, PRINT+16, PRINT+18
TRANS	DQ+3

Naked Globals

Name	Field # of Occurrence
^(	TRANS+10
^(1	TRANS+5
^(3	TRANS+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	EN+17*
AMT	EXIT1!, PRINT+4*
BDATE	EN+8, EN+11, EN+13, EXIT1!, TRANS+8, HDR+5
BILL	TRANS+1~, TRANS+3*, TRANS+4
DATE	EXIT1!, TRANS+8, TRANS+9, TRANS+10, TRANS+11, TRANS+12, PRINT+1, PRINT+2, PRINT+3
DEBTOR	EN+6*, EN+7, EN+8, EXIT1!, TRANS+3, HDR+4
DIR	EN+2!, EN+6!, EN+12!, EN+16!, EXIT1!, EXIT2+1!, SCRN+1!
DIR("?"	EN+3, EN+9
DIR("A"	EN+3, EN+8, EN+13*
DIR("B"	EN+8, EN+13
DIR(0	EN+3, EN+8, EN+13, EXIT2+1, SCRN+2*
DIRUT	EN+4, EN+11, EN+14, EXIT1+1!, EXIT2+2!, PRINT+1, PRINT+2, PRINT+6, PRINT+10, PRINT+12 , PRINT+14, PRINT+16, PRINT+18, SCRN+2
DPTNOFZK	EN+1~*
DPTNOFZY	EN+1~*
DT	EN+8, EN+13, EN+14
DUOUT	EXIT1!
DX	EXIT1!, EXIT2+1*
DY	EXIT1!, EXIT2+1*
EDATE	EN+15*, EXIT1!, TRANS+8, HDR+5
IO	DQ+2
IO("Q"	EN+18, EN+20!
IOF	EXIT2, HDR+2
IOM	EXIT2+1
IOSL	SCRN+1
IOST	EXIT2, EXIT2+1, SCRN+2
>> IOXY	EXIT2+1
LINE	EXIT1!, TRANS+2*, HDR+6
PG	EXIT1!, TRANS+2, HDR+1, HDR+2
PNODE	EXIT1!, PRINT+3*, PRINT+4, PRINT+5
POP	EN+2*, EN+17, EXIT1+1!
TN	EXIT1!, TRANS+4, TRANS+5, TRANS+7, TRANS+8, TRANS+9, TRANS+10, TRANS+11, TRANS+12, PRINT+2 , PRINT+3
TOTADM	EXIT1!, TRANS+2, TRANS+12, PRINT+15
TOTINT	EXIT1!, TRANS+2, TRANS+12, PRINT+13
TOTPD	EXIT1!, TRANS+2, TRANS+10, PRINT+17
TOTPRIN	EXIT1!, TRANS+2, TRANS+12, PRINT+11
TOTREF	EXIT1!, TRANS+2, TRANS+10, PRINT+19
U	EN+5, TRANS+9, TRANS+10, TRANS+11, TRANS+12, PRINT+3, PRINT+4, PRINT+5
X	EN+12!, EXIT1!, EXIT2+1!, TRANS+8, TRANS+9, TRANS+10, TRANS+11, TRANS+12, PRINT+5*
X(	PRINT+5*
Y	EN+4, EN+5, EN+6, EN+11, EN+12!, EN+14*, EN+15, EXIT1!, EXIT2+1!
>> ZTDESC	EN+19*
ZTRTN	EN+19*, EN+20!
ZTSAVE	EN+20!
ZTSAVE("BDATE"	EN+19*
ZTSAVE("DEBTOR"	EN+19*
ZTSAVE("EDATE"	EN+19*
ZTSK	EXIT1!

Customize PDF page

Package: Accounts Receivable