Routine: RCRPADD

Package	Total	Call Graph
Accounts Receivable	11	$$DADD^RCAMADD ($$NAM,$$SSN)^RCFN01 ADJSCHED^RCRPENTR ($$FMTPHONE,$$GETDOB,$$PRTBILLS,$$PRTHDR)^RCRPINQ DASH^RCRPRPU ($$CORRECT,$$GETACTS,$$GETBILLS,$$SUPAPPR,$$TOT,ADDPLAN,PAUSE,PRTACTS,UPDBILL)^RCRPU ($$SELRPP,UPDFLG36,UPDPAO,UPDTERMS)^RCRPU1 UPDAUDIT^RCRPU2 ($$CBAL,$$REMPMNTS)^RCRPU3 $$GET36^RCRPWLUT UPDMET^RCSTATU
Kernel	3	ENDR^%ZISS ($$DT,$$FMTE)^XLFDT $$CJ^XLFSTR
VA FileMan	2	$$EXTERNAL^DILFD $$GET1^DIQ

Package	Total	Caller Graph
Accounts Receivable	3	PRCAC REPAY ADD RCRPENTR RCRPWL1

Entry Points

Name	Comments	DBIA/ICR reference
EN1(RCRPIEN)	; entry point from repayment plan worklist, called from ^RCRPWL1 PRCA4.5389
MAIN	; Entry point for Forbearance Option
PROCPLAN	;
PROCPLN1	; PRCA4.5389
PRTHDR(RPIEN)	; display repayment plan data
ADDNEW(RPIEN)	; Ask the user for the bills to add.
PRTNB(RCCTS)	;Print the new Bills to be added, with header
ECHOBL(RCBLCH)	; Echo the Lits of Bills selected ; Input: RCBLCH - List of bills to added.

External References

Name	Field # of Occurrence
ENDR^%ZISS	PROCPLAN+6
$$EXTERNAL^DILFD	PRTHDR+17
$$GET1^DIQ	PROCPLN1+1, PRTHDR+22, ADDNEW+8, ADDNEW+43, ADDNEW+44, ADDNEW+88
$$DADD^RCAMADD	PRTHDR+8
$$NAM^RCFN01	PRTHDR+12
$$SSN^RCFN01	PRTHDR+11
ADJSCHED^RCRPENTR	ADDNEW+95
$$FMTPHONE^RCRPINQ	PRTHDR+16
$$GETDOB^RCRPINQ	PRTHDR+11
$$PRTBILLS^RCRPINQ	PROCPLN1+14, PROCPLN1+43
$$PRTHDR^RCRPINQ	PROCPLN1+7, PROCPLN1+34
DASH^RCRPRPU	PRTNB+3
$$CORRECT^RCRPU	ECHOBL+13
$$GETACTS^RCRPU	ADDNEW+11
$$GETBILLS^RCRPU	ADDNEW+21
$$SUPAPPR^RCRPU	ADDNEW+69
$$TOT^RCRPU	ADDNEW+35
ADDPLAN^RCRPU	ADDNEW+80
PAUSE^RCRPU	PROCPLAN+8, PROCPLAN+13, PROCPLN1+5, PROCPLN1+9, PROCPLN1+18, PROCPLN1+28, PROCPLN1+40, PROCPLN1+44, ADDNEW+15, ADDNEW+28 , ADDNEW+37, ADDNEW+56, ADDNEW+104
PRTACTS^RCRPU	PRTNB+5
UPDBILL^RCRPU	ADDNEW+78
$$SELRPP^RCRPU1	PROCPLAN+3
UPDFLG36^RCRPU1	ADDNEW+69, ADDNEW+99
UPDPAO^RCRPU1	ADDNEW+85
UPDTERMS^RCRPU1	ADDNEW+94
UPDAUDIT^RCRPU2	ADDNEW+69, ADDNEW+98, ADDNEW+99
$$CBAL^RCRPU3	PRTHDR+18, ADDNEW+47
$$REMPMNTS^RCRPU3	PRTHDR+19
$$GET36^RCRPWLUT	ADDNEW+60
UPDMET^RCSTATU	ADDNEW+81
$$DT^XLFDT	ADDNEW+9, ADDNEW+98, ADDNEW+99
$$FMTE^XLFDT	PRTHDR+17
$$CJ^XLFSTR	PROCPLAN+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: PROCPLAN+2
Function Call: WRITE	Prompt: @IOF Line Location: PROCPLN1+11
Function Call: WRITE	Prompt: @IOF Line Location: PROCPLN1+22
Function Call: WRITE	Prompt: !!,"The Repayment Plan was not updated." Line Location: PROCPLN1+27
Function Call: WRITE	Prompt: ! Line Location: PROCPLN1+37
Function Call: WRITE	Prompt: @IOF Line Location: PROCPLN1+42
Function Call: WRITE	Prompt: @IOF Line Location: PRTHDR+10
Function Call: WRITE	Prompt: !!,"Debtor: ",$$NAM^RCFN01(DEBTOR) Line Location: PRTHDR+12
Function Call: WRITE	Prompt: ?40,"SSN/TIN: ",$S(DEBSSN>0:$E(DEBSSN,1,3)_"-"_$E(DEBSSN,4,5)_"-"_$E(DEBSSN,6,9),1:"N/A") Line Location: PRTHDR+13
Function Call: WRITE	Prompt: ?64,"DOB: ",$S(DEBDOB="":"N/A",1:DEBDOB) Line Location: PRTHDR+14
Function Call: WRITE	Prompt: !,"Address: ",$P(ADDRSTR,U)," ",$P(ADDRSTR,U,2)," ",$P(ADDRSTR,U,3),", ",$P(ADDRSTR,U,4),", ",$P(ADDRSTR,U,5)," ",$P(ADDRSTR,U,6) Line Location: PRTHDR+15
Function Call: WRITE	Prompt: !,"Phone: ",$S(DEBPHN>0:$$FMTPHONE^RCRPINQ(DEBPHN),1:"N/A"),! Line Location: PRTHDR+16
Function Call: WRITE	Prompt: !,"Plan #: ",$P(N0,U),?28,"Status: ",$$EXTERNAL^DILFD(340.5,.07,"",$P(N0,U,7)),?49,"Last status date: ",$$FMTE^XLFDT($P(N0,U,8),"5DZ"),! Line Location: PRTHDR+17
Function Call: WRITE	Prompt: !,?2,"Current balance: $",$FN(CBAL,"",2),?37,"Number of payments remaining: ",$$REMPMNTS^RCRPU3(RPIEN,RAMNT) Line Location: PRTHDR+19
Function Call: WRITE	Prompt: !,?1,"Orig amount owed: $",$FN($P(N0,U,13),"",2),?38,"Original number of payments: ",$P(N0,U,14) Line Location: PRTHDR+20
Function Call: WRITE	Prompt: !,"Total amount owed: $",$FN($P(N0,U,11),"",2),?41,"Total number of payments: ",$P(N0,U,5) Line Location: PRTHDR+21
Function Call: WRITE	Prompt: !,?1,"Repayment amount: $",$FN(RAMNT,"",2),?47,"Auto-add New Bills: ",$$GET1^DIQ(340.5,RPIEN_",",.12,"E"),!! Line Location: PRTHDR+22
Function Call: WRITE	Prompt: !!,"No new bills available to add to this Debtor's plan.",! Line Location: ADDNEW+14
Function Call: WRITE	Prompt: !,"No Bills selected",! Line Location: ADDNEW+27
Function Call: WRITE	Prompt: @IOF Line Location: ADDNEW+29
Function Call: WRITE	Prompt: !,"Bills successfully added to the Plan.",! Line Location: ADDNEW+101
Function Call: WRITE	Prompt: ! Line Location: ADDNEW+104
Function Call: WRITE	Prompt: !!,?26,"Bills Available for Selection" Line Location: PRTNB+2
Function Call: WRITE	Prompt: ! Line Location: PRTNB+3
Function Call: WRITE	Prompt: !,"You chose to add the following bill(s) to this plan:",!! Line Location: ECHOBL+7
Function Call: WRITE	Prompt: RCBILL,! Line Location: ECHOBL+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RCRP(340.5 - [#340.5]	EXTERNAL^DILFD, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRCA(430 - [#430]	ECHOBL+9
^RCRP(340.5 - [#340.5]	PROCPLAN+5, PROCPLAN+10, PRTHDR+6
^TMP("RCRPP"	EN1+9!, MAIN+8!, ADDNEW+7!, ADDNEW+77, ECHOBL+8

Label References

Name	Line Occurrences
$$ADDNEW	PROCPLN1+23
$$ECHOBL	ADDNEW+32
PROCPLAN	MAIN+6
PROCPLN1	EN1+7
PRTNB	ADDNEW+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDRSTR	PRTHDR+4~, PRTHDR+8*, PRTHDR+11, PRTHDR+15
BAMNT	PRTHDR+4~
BILL	PRTHDR+4~
BSTAT	PRTHDR+4~
CBAL	PRTHDR+4~, PRTHDR+18*, PRTHDR+19
CNT	PRTHDR+4~
DEBDOB	PRTHDR+4~, PRTHDR+11*, PRTHDR+14
DEBPHN	PRTHDR+4~, PRTHDR+11*, PRTHDR+16
DEBSSN	PRTHDR+4~, PRTHDR+11*, PRTHDR+13
DEBTOR	PRTHDR+4~, PRTHDR+7*, PRTHDR+8, PRTHDR+11, PRTHDR+12
DIRUT	ADDNEW+2~
DT	ADDNEW+69
IO	PRTHDR+9
IOBOFF	EN1+5~, MAIN+3~, PROCPLAN+7
IOBON	EN1+5~, MAIN+3~, PROCPLAN+7
IOF	PROCPLAN+2, PROCPLN1+11, PROCPLN1+22, PROCPLN1+42, PRTHDR+10, ADDNEW+29
IORVOFF	EN1+5~, MAIN+3~, PROCPLAN+7
IORVON	EN1+5~, MAIN+3~, PROCPLAN+7
IOST	PROCPLAN+2, PROCPLN1+11, PROCPLN1+22, PROCPLN1+42, PRTHDR+10
LN	EN1+4~, EN1+6, MAIN+2~, MAIN+5, PROCPLAN+1, PROCPLN1+7, PROCPLN1+8, PROCPLN1+13, PROCPLN1+14, PROCPLN1+16 , PROCPLN1+17, PROCPLN1+33, PROCPLN1+34, PROCPLN1+35, PROCPLN1+39, PROCPLN1+43*, PROCPLN1+45, PRTHDR+4~
N0	PRTHDR+4~, PRTHDR+6*, PRTHDR+7, PRTHDR+17, PRTHDR+18, PRTHDR+20, PRTHDR+21
QUIT	EN1+4~, EN1+6, MAIN+2~, MAIN+5, PROCPLAN+3, PROCPLAN+5, PROCPLAN+10, PROCPLN1+1, PROCPLN1+10, PROCPLN1+19 , PROCPLN1+26, PROCPLN1+29, PROCPLN1+41, ADDNEW+3~, ADDNEW+104
RAMNT	PRTHDR+4~, PRTHDR+18*, PRTHDR+19, PRTHDR+22
RCACTDT	ADDNEW+3~, ADDNEW+9*, ADDNEW+80
RCALLFLG	ADDNEW+2~, ADDNEW+22*, ADDNEW+31
RCBILL	ECHOBL+3~, ECHOBL+9*, ECHOBL+10
RCBILLDA	ADDNEW+3~, ADDNEW+76, ADDNEW+77, ADDNEW+78, ADDNEW+80, ECHOBL+3~, ECHOBL+5, ECHOBL+8, ECHOBL+9
RCBLCH	ADDNEW+2~, ADDNEW+21, ADDNEW+22, ADDNEW+23, ADDNEW+26, ADDNEW+32, ADDNEW+35, ECHOBL~
RCCTS	ADDNEW+2~, ADDNEW+11*, ADDNEW+13, ADDNEW+18, ADDNEW+21, PRTNB~, PRTNB+5
RCDBTR	ADDNEW+2~, ADDNEW+8*, ADDNEW+11
RCDONE	EN1+4~, EN1+6, MAIN+2~, MAIN+5, MAIN+6, PROCPLAN+3, PROCPLAN+5, PROCPLAN+10, PROCPLN1+1, PROCPLN1+30 , PROCPLN1+45, ADDNEW+2~, ADDNEW+9, ADDNEW+31, ADDNEW+32*
RCDONE1	EN1+4~, MAIN+2~, PROCPLAN+1, PROCPLN1+23, PROCPLN1+25, PROCPLN1+26
RCFLG36	MAIN+2~, PROCPLAN+10, ADDNEW+2~, ADDNEW+4, ADDNEW+60*, ADDNEW+61, ADDNEW+67, ADDNEW+71, ADDNEW+98, ADDNEW+99
RCMNPAY	ADDNEW+3~, ADDNEW+44*, ADDNEW+48, ADDNEW+89, ADDNEW+94
RCNEWLN	ADDNEW+3~, ADDNEW+48*, ADDNEW+52, ADDNEW+59, ADDNEW+73
RCNEWTOT	ADDNEW+3~, ADDNEW+48*
RCNOMN	ADDNEW+2~, ADDNEW+88*, ADDNEW+93, ADDNEW+95
RCNWMN	ADDNEW+2~, ADDNEW+89, ADDNEW+90, ADDNEW+93, ADDNEW+94, ADDNEW+95
RCNWMOD	ADDNEW+3~, ADDNEW+89*, ADDNEW+90
RCORBAL	ADDNEW+2~, ADDNEW+43*, ADDNEW+47, ADDNEW+84
RCPLNBL	ADDNEW+3~, ADDNEW+84*, ADDNEW+85, ADDNEW+89
RCRMBAL	ADDNEW+3~, ADDNEW+47*, ADDNEW+48
RCRMLN	ADDNEW+3~
RCRPIEN	EN1~, MAIN+2~, PROCPLAN+3*, PROCPLAN+5, PROCPLAN+10, PROCPLN1+1, PROCPLN1+7, PROCPLN1+14, PROCPLN1+23, PROCPLN1+34 , PROCPLN1+43, ADDNEW+99
RCRVW	EN1+4~, MAIN+2~, PROCPLN1+1*
RCSPFLG	ADDNEW+2~, ADDNEW+4, ADDNEW+65, ADDNEW+69, ADDNEW+71, ADDNEW+73, ADDNEW+98, ADDNEW+99
RCTOT	ADDNEW+2~, ADDNEW+35, ADDNEW+36, ADDNEW+40, ADDNEW+48, ADDNEW+84
RPIEN	PRTHDR~, PRTHDR+5, PRTHDR+6, PRTHDR+18, PRTHDR+19, PRTHDR+22, ADDNEW~, ADDNEW+8, ADDNEW+43, ADDNEW+44 , ADDNEW+47, ADDNEW+60, ADDNEW+69, ADDNEW+78, ADDNEW+80, ADDNEW+85, ADDNEW+88, ADDNEW+94, ADDNEW+95, ADDNEW+98 , ADDNEW+99
TMP	PRTHDR+4~
TMPDT	PRTHDR+4~
TMPIEN	PRTHDR+4~
U	PROCPLAN+5, PROCPLAN+10, PRTHDR+7, PRTHDR+11, PRTHDR+15, PRTHDR+17, PRTHDR+18, PRTHDR+20, PRTHDR+21, ADDNEW+23 , ADDNEW+40, ECHOBL+9
X	EN1+5~, MAIN+3~, PROCPLAN+6*
Y	ADDNEW+2~

Customize PDF page

Package: Accounts Receivable

Routine: RCRPADD

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: