Routine: PRCAGST

Information

PRCAGST ;WASH-ISC@ALTOONA,PA/CMS-Print Patient Statement ;12/12/96 9:39 AM

Package	Total	Call Graph
Accounts Receivable	7	$$ACCT^PRCAAPR1 ^PRCAGST1 SITE^PRCAGU $$DADD^RCAMADD ($$FPS,$$PST)^RCAMFN01 $$STD^RCCPCFN ($$NAM,$$SADD,$$SSN)^RCFN01
Integrated Billing	1	$$ISGMTBIL^IBAGMT
VA FileMan	1	DD^%DT

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: 3

Package	Total	Caller Graph
Accounts Receivable	3	PRCAGS RCCPCPS RCCPCSTM

Entry Points

Name	Comments	DBIA/ICR reference
V	;;4.5;Accounts Receivable;34,181,190,249,405,406;Mar 20, 1995;Build 5
EN(DEB,TBAL,PDAT,PBAL,LDT)	;
LB
MES	;text for no amount due
GMT(PRDEB)

External References

Name	Field # of Occurrence
DD^%DT	EN+13, EN+17
$$ISGMTBIL^IBAGMT	GMT+4
$$ACCT^PRCAAPR1	EN+11
^PRCAGST1	LB+12
SITE^PRCAGU	EN+2
$$DADD^RCAMADD	LB+2
$$FPS^RCAMFN01	EN+13
$$PST^RCAMFN01	EN+13
$$STD^RCCPCFN	EN+13
$$NAM^RCFN01	EN+5, LB
$$SADD^RCFN01	EN+6
$$SSN^RCFN01	EN+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+10
Function Call: WRITE	Prompt: !!,"Department of Veterans Affairs",?35,"Acct No.: ",$$ACCT^PRCAAPR1(RCDFN) Line Location: EN+11
Function Call: WRITE	Prompt: !,$G(ADD(1)) Line Location: EN+12
Function Call: WRITE	Prompt: !,$G(ADD(2)),?50 Line Location: EN+14
Function Call: WRITE	Prompt: "Due: UPON RECEIPT" Line Location: EN+14
Function Call: WRITE	Prompt: !,$G(ADD(3)),?50,$S(TBAL>0:"Amount Due: $"_$J(TBAL,0,2),1:"NO AMOUNT DUE") Line Location: EN+15
Function Call: WRITE	Prompt: !,$G(ADD(5)),?50,"Today's Date: " Line Location: EN+17
Function Call: WRITE	Prompt: Y Line Location: EN+17
Function Call: WRITE	Prompt: !!,?2,"Please Make your Check or Money Order payable to the ""Department of Veterans" Line Location: EN+19
Function Call: WRITE	Prompt: !,?2,"Affairs"" and send payment to the attention of the Agent Cashier at the above" Line Location: EN+20
Function Call: WRITE	Prompt: !,?2,"address. If you have any questions regarding this statement, please call" Line Location: EN+21
Function Call: WRITE	Prompt: !,?2,"1-866-400-1238.",!!! Line Location: EN+22
Function Call: WRITE	Prompt: !,?7,NAM Line Location: LB+1
Function Call: WRITE	Prompt: !,?7,$E(ADD(X),1,40) Line Location: LB+5
Function Call: WRITE	Prompt: ?50 Line Location: LB+5
Function Call: WRITE	Prompt: ! Line Location: LB+6
Function Call: WRITE	Prompt: !,?2,SITE("COM1") Line Location: LB+7
Function Call: WRITE	Prompt: !,?2,"REDUCTION OF INPATIENT COPAYMENT DUE TO GEOGRAPHIC MEANS TEST STATUS" Line Location: LB+8
Function Call: WRITE	Prompt: !! Line Location: LB+9
Function Call: WRITE	Prompt: !,?10,"Please Detach and Return Top Portion with Payment" Line Location: LB+9
Function Call: WRITE	Prompt: !,Y Line Location: LB+10
Function Call: WRITE	Prompt: !,"IMPORTANT: Please read the Notice of Rights accompanying this statement!",! Line Location: LB+11
Function Call: WRITE	Prompt: !!,?2,"This statement is being sent to you to provide you with information" Line Location: MES+1
Function Call: WRITE	Prompt: !,?2,"concerning transactions affecting your account. If a prepayment offset" Line Location: MES+2
Function Call: WRITE	Prompt: !,?2,"a bill or you have made one or more payments or charges were removed," Line Location: MES+3
Function Call: WRITE	Prompt: !,?2,"from your account, you are being sent this statement to confirm these actions.",!! Line Location: MES+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRCA(430 - [#430]	GMT+4
^RCD(340 - [#340]	EN+3
^TMP("PRCAGT"	GMT+2, GMT+3

Label References

Name	Line Occurrences
$$GMT	LB+8
LB	EN+18
MES	EN+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADD	EN+1~, EN+6, EN+7, EN+8, EN+9, LB!, LB+2, LB+3, LB+4
ADD(	EN+7, EN+8, EN+9, LB+3, LB+4*, LB+5
ADD(1	EN+12
ADD(2	EN+14
ADD(3	EN+15
ADD(4	EN+16
ADD(5	EN+17
DA	EN+1~
DEB	EN~, EN+3, EN+4, EN+5, EN+13, LB, LB+2, LB+8
DEBT	EN+1~, EN+5*
DT	EN+13, EN+17
IOF	EN+10
LDT	EN~, EN+13
LN	EN+1~
NAM	EN+1~, LB*, LB+1
PAGE	EN+1~
PBAL	EN~
PDAT	EN~
PRBN	GMT~, GMT+3*, GMT+4
PRDAT	GMT~, GMT+2*, GMT+3
PRDEB	GMT~, GMT+2, GMT+3
PRGMT	GMT~, GMT+1, GMT+2, GMT+3, GMT+4, GMT+5
RCDFN	EN+1~, EN+3*, EN+11
>> SITE	EN+2
>> SITE("COM1"	LB+7
>> SITE("SCAN"	LB+5
SSN	EN+1~, EN+4*
TBAL	EN~, EN+14, EN+15, EN+16, EN+18, LB+9
U	EN+3, EN+5, EN+7, EN+8, EN+9, LB+3, LB+4, GMT+4
X	EN+1~, EN+7, EN+8, EN+9, LB+3, LB+4, LB+5
X1	EN+1~
X2	EN+1~
Y	EN+1~, EN+7, EN+13, EN+17, LB+3, LB+10*

Customize PDF page

Package: Accounts Receivable