Routine: PRCADR1

Package	Total	Call Graph
Accounts Receivable	3	PRCOMM^PRCAUT3 $$DADD^RCAMADD ($$ADM,$$INT)^RCMSFN01
Registration	1	DEM^VADPT
VA FileMan	1	^%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: 12

Package	Total	Caller Graph
Accounts Receivable	12	PRCA 3RD PROFILE PRCA DISP AUDIT PRCA MEANS PROFILE PRCA OTHER PROFILE PRCA PROFILE PRCA VENDOR PROFILE PRCATO2 PRCATP1 PRCATP2 PRCATP3 PRCATP4 PRCATP5

Entry Points

Name	Comments	DBIA/ICR reference
V	;;4.5;Accounts Receivable;49,138,233;Mar 20, 1995;Build 4
EN1	;print the appropriation,pat ref #. (multiple) and amount.
END1
WRPAT
EN2	;PRINT DEBTOR'S ADDRESS - VENDOR
WR
END2
EN4	;Print the debtor's other bills.
END4
EN41
END41
EN5	;Print interest/admin rate date and rate.
EN51	;
W5
PATNM	;write a patient name for the 3rd party
EN6	;Insurance insured's information

External References

Name	Field # of Occurrence
^%DT	EN4+4
PRCOMM^PRCAUT3	EN4+1
$$DADD^RCAMADD	EN2+1
$$ADM^RCMSFN01	EN51+1
$$INT^RCMSFN01	EN5+2
DEM^VADPT	PATNM+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"ORIGINAL AMOUNT: ",$J($P(^PRCA(430,D0,0),U,3),0,2) Line Location: EN1+1
Function Call: WRITE	Prompt: !,"MEDICARE CONTRACTUAL ADJUSTMENT: ",$J($P($G(^PRCA(430,D0,13)),"^"),0,2) Line Location: EN1+2
Function Call: WRITE	Prompt: !,"UNREIMBURSED MEDICARE EXPENSE: ",$J($P($G(^PRCA(430,D0,13)),"^",2),0,2) Line Location: EN1+3
Function Call: WRITE	Prompt: !!,"FISCAL YEAR",?15,"APPROP. CODE",?38,"PAT REFERENCE #",?66,"AMOUNT" Line Location: EN1+4
Function Call: WRITE	Prompt: !,"-----------",?15,"------------",?38,"---------------",?66,"------" Line Location: EN1+5
Function Call: WRITE	Prompt: !,?5,PRCAFY,?18,$E(PRCAPPR,1,10),?40,PRCAPAT,?60,$J(PRCAMT,12,2) Line Location: WRPAT+3
Function Call: WRITE	Prompt: ! Condition for execution: PRCALN<1 Line Location: WR+0
Function Call: WRITE	Prompt: !,?PRCALN,$P(PRCAGL,U,1) Line Location: WR+0
Function Call: WRITE	Prompt: ", ",PRCASTE," ",$P(PRCAGL,U,6) Line Location: WR+2
Function Call: WRITE	Prompt: " PHONE NO.:",$P(PRCAGL,U,9) Line Location: WR+3
Function Call: WRITE	Prompt: !,"Statement date: " Line Location: EN4+4
Function Call: WRITE	Prompt: $S($L(Y)>4:Y,1:"N/A") Line Location: EN4+4
Function Call: WRITE	Prompt: !,"OTHER BILLS:",!?2 Line Location: EN4+5
Function Call: READ	Variable: X Timeout: DTIME Line Location: EN4+7
Function Call: WRITE	Prompt: !!,"INTEREST EFFECTIVE RATE DATE: ",PRCA("INTD"),?45,"ANNUAL INTEREST RATE: ",PRCA("INTR") Line Location: W5+0
Function Call: WRITE	Prompt: !,"ADMIN EFFECTIVE RATE DATE: ",PRCA("ADMD"),?45,"MONTHLY ADMIN RATE: ",PRCA("ADMR") Line Location: W5+1
Function Call: WRITE	Prompt: !,"PATIENT: ",$S($D(VADM):VADM(1),1:""),?45,"SSN: ",$S($D(VADM):$P(VADM(2),U,2),1:""),! Line Location: PATNM+3
Function Call: WRITE	Prompt: !!,"INSURED'S NAME",?28,"ID NO.",?45,"GROUP NAME",?62,"GROUP NO." Line Location: EN6+2
Function Call: WRITE	Prompt: !,?2,$P(Z,U,1),?29,$P(Z,U,4),?46,$P(Z,U,5),?63,$P(Z,U,6) Line Location: EN6+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN4+4, EN5+3, EN51+1
^DIC(36 - [#36]	EN6+4, EN6+5
^PRC(442 - [#442]	WRPAT+1
^PRCA(430 - [#430]	EN1+1, EN1+2, EN1+3, EN1+6, WRPAT, WRPAT+1, WRPAT+2, EN2+1, EN4+1, EN4+2 , EN4+6, EN41, EN41+1, EN5+2, EN51+1, PATNM+2, EN6+1, EN6+4
^PRCA(430.2 - [#430.2]	EN4+1, EN41
^PRCA(430.3 - [#430.3]	EN41+1
^RCD(340 - [#340]	EN2+1, EN4+3, EN4+4

Label References

Name	Line Occurrences
EN41	EN4+6
END2	EN2+1
END4	EN4+1, EN4+3
END41	EN41
WRPAT	EN1+6

Naked Globals

Name	Field # of Occurrence
^(0	WRPAT, WRPAT+1, EN2+1, EN4+2, EN41+1, EN6+4, EN6+5
^(202	EN6+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END2!, EN6+4*, EN6+5!
%DT	EN4+4~*
>> D0	EN1+1, EN1+2, EN1+3, EN1+6, WRPAT, WRPAT+1, WRPAT+2, EN2+1, EN4+1, EN4+2 , EN4+6
DFN	PATNM+2*, PATNM+3!
DT	EN4+4
DTIME	EN4+7
I	WR+1, EN4+6, END4!
IOF	EN4+8
IOSL	EN4+6
IOST	EN4+6
>> PRCA("ADMD"	EN5+1, EN51+1, W5+1, W5+2!
>> PRCA("ADMR"	EN5+1, EN51+1, W5+1, W5+2!
>> PRCA("INTD"	EN5+1, EN5+3, W5, W5+2!
>> PRCA("INTR"	EN5+1, EN5+2, W5, W5+2!
>> PRCABN	EN5+1, EN5+2, EN51+1, PATNM+1, PATNM+2, EN6+1, EN6+4
PRCABNT	EN4+5, EN4+6, END4!, EN41, EN41+1
PRCABTY	EN41+1*, END41!
PRCACT	EN4+5, EN4+6, END4!, EN41+1
PRCADB	EN2+1*!
PRCADBPT	EN2+1, END2!, EN4+2, EN4+3, EN4+4, EN4+6, END4!
PRCAE1	EN1+6*, END1!
PRCAFN	EN1+6*, END1!, WRPAT, WRPAT+1
PRCAFY	WRPAT*, WRPAT+3, WRPAT+4!
PRCAGL	EN2+1*, EN2+2, WR, WR+1, WR+2, WR+3, END2!
PRCAIDT	EN5+2*, W5+2!
PRCALN	EN2+2*, WR, WR+1, END2!
PRCAMT	WRPAT*, WRPAT+3, WRPAT+4!
PRCAPAT	WRPAT+1*, WRPAT+3, WRPAT+4!
PRCAPPR	WRPAT+2*, WRPAT+3, WRPAT+4!
PRCASTE	EN2+2*, WR+2, END2!
>> PRCAT	PATNM+1, EN6+1
PRCAT1	EN4+1*, END4!
PRCAT11	EN41*, EN41+1, END41!
U	EN1+1, WRPAT, WRPAT+1, WRPAT+2, EN2+1, EN2+2, WR, WR+1, WR+2, WR+3 , EN4+1, EN4+2, EN41, EN41+1, PATNM+2, PATNM+3, EN6+3, EN6+4, EN6+5
VADM	PATNM+3!
VADM(1	PATNM+3
VADM(2	PATNM+3
VAERR	PATNM+3!
X	EN2+1~, EN4+3, EN4+4, EN4+6, EN4+7, EN5+2, EN5+3, EN51+1, W5+2
Y	EN4+4~, EN5+3, EN51+1
Z	EN6+1*, EN6+3, EN6+5!

Customize PDF page

Package: Accounts Receivable

Routine: PRCADR1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 12

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: