Routine: RCRPADD

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

Package	Total	Caller Graph
Accounts Receivable	2	PRCAC REPAY ADD RCRPENTR

Entry Points

Name	Comments	DBIA/ICR reference
MAIN	; Entry point for Forbearance Option
PROCPLAN	;
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	PROCPLAN+8, PRTHDR+22, ADDNEW+8, ADDNEW+43, ADDNEW+44, ADDNEW+79
$$DADD^RCAMADD	PRTHDR+8
$$NAM^RCFN01	PRTHDR+12
$$SSN^RCFN01	PRTHDR+11
ADJSCHED^RCRPENTR	ADDNEW+86
$$FMTPHONE^RCRPINQ	PRTHDR+16
$$GETDOB^RCRPINQ	PRTHDR+11
$$PMNTS^RCRPINQ	PRTHDR+18, ADDNEW+47
$$PRTBILLS^RCRPINQ	PROCPLAN+21, PROCPLAN+50
$$PRTHDR^RCRPINQ	PROCPLAN+14, PROCPLAN+41
DASH^RCRPRPU	PRTNB+3
$$CORRECT^RCRPU	ECHOBL+13
$$GETACTS^RCRPU	ADDNEW+11
$$GETBILLS^RCRPU	ADDNEW+21
$$SUPAPPR^RCRPU	ADDNEW+63
$$TOT^RCRPU	ADDNEW+35
ADDPLAN^RCRPU	ADDNEW+71
PAUSE^RCRPU	PROCPLAN+13, PROCPLAN+16, PROCPLAN+25, PROCPLAN+35, PROCPLAN+47, PROCPLAN+51, ADDNEW+15, ADDNEW+28, ADDNEW+37, ADDNEW+58 , ADDNEW+95
PRTACTS^RCRPU	PRTNB+5
UPDBILL^RCRPU	ADDNEW+69
$$SELRPP^RCRPU1	PROCPLAN+3
UPDPAO^RCRPU1	ADDNEW+76
UPDTERMS^RCRPU1	ADDNEW+85
UPDAUDIT^RCRPU2	ADDNEW+89, ADDNEW+90
UPDRVW^RCRPU2	ADDNEW+57
UPDMET^RCSTATU	ADDNEW+72
$$DT^XLFDT	ADDNEW+9, ADDNEW+89, ADDNEW+90
$$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: !!,IOBON,IORVON,$$CJ^XLFSTR("* WARNING: YOU HAVE SELECTED A CLOSED REPAYMENT PLAN *",80),IORVOFF,IOBOFF,!! Line Location: PROCPLAN+7
Function Call: WRITE	Prompt: !,"The selected plan currently has more than 60 payments outstanding." Line Location: PROCPLAN+10
Function Call: WRITE	Prompt: !,"Unable to add new bills to this plan until the plan's terms" Line Location: PROCPLAN+11
Function Call: WRITE	Prompt: !,"are adjusted." Line Location: PROCPLAN+12
Function Call: WRITE	Prompt: @IOF Line Location: PROCPLAN+18
Function Call: WRITE	Prompt: @IOF Line Location: PROCPLAN+29
Function Call: WRITE	Prompt: !!,"The Repayment Plan was not updated." Line Location: PROCPLAN+34
Function Call: WRITE	Prompt: ! Line Location: PROCPLAN+44
Function Call: WRITE	Prompt: @IOF Line Location: PROCPLAN+49
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: ",CBAL\RAMNT+$S(CBAL#RAMNT:1,1:0) 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: !,"Adding these bills will make the number of remaining payments on the" Line Location: ADDNEW+54
Function Call: WRITE	Prompt: !,"plan > 60 months. Unable to add new bills to this plan until the" Line Location: ADDNEW+55
Function Call: WRITE	Prompt: !,"plan's terms are adjusted." Line Location: ADDNEW+56
Function Call: WRITE	Prompt: !,"Adding these bills will make the number of remaining payments on the" Line Location: ADDNEW+61
Function Call: WRITE	Prompt: !,"plan > 36 months. This requires supervisor approval." Line Location: ADDNEW+62
Function Call: WRITE	Prompt: !,"Bills successfully added to the Plan.",! Line Location: ADDNEW+92
Function Call: WRITE	Prompt: ! Line Location: ADDNEW+95
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, PRTHDR+6
^TMP("RCRPP"	MAIN+8!, ADDNEW+7!, ADDNEW+68, ECHOBL+8

Label References

Name	Line Occurrences
$$ADDNEW	PROCPLAN+30
$$ECHOBL	ADDNEW+32
PROCPLAN	MAIN+6
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~
IO	PRTHDR+9
IOBOFF	MAIN+3~, PROCPLAN+7
IOBON	MAIN+3~, PROCPLAN+7
IOF	PROCPLAN+2, PROCPLAN+18, PROCPLAN+29, PROCPLAN+49, PRTHDR+10, ADDNEW+29
IORVOFF	MAIN+3~, PROCPLAN+7
IORVON	MAIN+3~, PROCPLAN+7
IOST	PROCPLAN+2, PROCPLAN+18, PROCPLAN+29, PROCPLAN+49, PRTHDR+10
LN	MAIN+2~, MAIN+5, PROCPLAN+1, PROCPLAN+14, PROCPLAN+15, PROCPLAN+20, PROCPLAN+21, PROCPLAN+23, PROCPLAN+24, PROCPLAN+40* , PROCPLAN+41, PROCPLAN+42, PROCPLAN+46, PROCPLAN+50*, PROCPLAN+52, PRTHDR+4~
N0	PRTHDR+4~, PRTHDR+6*, PRTHDR+7, PRTHDR+17, PRTHDR+18, PRTHDR+20, PRTHDR+21
QUIT	MAIN+2~, MAIN+5, PROCPLAN+3, PROCPLAN+17, PROCPLAN+26, PROCPLAN+33, PROCPLAN+36*, PROCPLAN+48, ADDNEW+3~, ADDNEW+95
RAMNT	PRTHDR+4~, PRTHDR+18*, PRTHDR+19, PRTHDR+22
RCACTDT	ADDNEW+3~, ADDNEW+9*, ADDNEW+71
RCALLFLG	ADDNEW+2~, ADDNEW+22*, ADDNEW+31
RCBILL	ECHOBL+3~, ECHOBL+9*, ECHOBL+10
RCBILLDA	ADDNEW+3~, ADDNEW+67, ADDNEW+68, ADDNEW+69, ADDNEW+71, 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	MAIN+2~, MAIN+5, MAIN+6, PROCPLAN+3, PROCPLAN+37, PROCPLAN+52, ADDNEW+2~, ADDNEW+9, ADDNEW+31, ADDNEW+32*
RCDONE1	MAIN+2~, PROCPLAN+1, PROCPLAN+30, PROCPLAN+32, PROCPLAN+33
RCMNPAY	ADDNEW+3~, ADDNEW+44*, ADDNEW+48, ADDNEW+80, ADDNEW+85
RCNEWLN	ADDNEW+3~, ADDNEW+48*, ADDNEW+53, ADDNEW+60, ADDNEW+64
RCNEWTOT	ADDNEW+3~, ADDNEW+48*
RCNOMN	ADDNEW+2~, ADDNEW+79*, ADDNEW+84, ADDNEW+86
RCNWMN	ADDNEW+2~, ADDNEW+80, ADDNEW+81, ADDNEW+84, ADDNEW+85, ADDNEW+86
RCNWMOD	ADDNEW+3~, ADDNEW+80*, ADDNEW+81
RCORBAL	ADDNEW+2~, ADDNEW+43*, ADDNEW+47, ADDNEW+75
RCPLNBL	ADDNEW+3~, ADDNEW+75*, ADDNEW+76, ADDNEW+80
RCRMBAL	ADDNEW+3~, ADDNEW+47*, ADDNEW+48
RCRMLN	ADDNEW+3~
RCRPIEN	MAIN+2~, PROCPLAN+3*, PROCPLAN+5, PROCPLAN+8, PROCPLAN+14, PROCPLAN+21, PROCPLAN+30, PROCPLAN+41, PROCPLAN+50
RCRVW	MAIN+2~, PROCPLAN+8*, PROCPLAN+9
RCSPFLG	ADDNEW+2~, ADDNEW+4, ADDNEW+63, ADDNEW+64, ADDNEW+89, ADDNEW+90
RCTOT	ADDNEW+2~, ADDNEW+35, ADDNEW+36, ADDNEW+40, ADDNEW+48, ADDNEW+75
RPIEN	PRTHDR~, PRTHDR+5, PRTHDR+6, PRTHDR+18, PRTHDR+22, ADDNEW~, ADDNEW+8, ADDNEW+43, ADDNEW+44, ADDNEW+47 , ADDNEW+57, ADDNEW+63, ADDNEW+69, ADDNEW+71, ADDNEW+76, ADDNEW+79, ADDNEW+85, ADDNEW+86, ADDNEW+89, ADDNEW+90
TMP	PRTHDR+4~
TMPDT	PRTHDR+4~
TMPIEN	PRTHDR+4~
U	PROCPLAN+5, PRTHDR+7, PRTHDR+11, PRTHDR+15, PRTHDR+17, PRTHDR+18, PRTHDR+20, PRTHDR+21, ADDNEW+23, ADDNEW+40 , ECHOBL+9
X	MAIN+3~, PROCPLAN+6*
Y	ADDNEW+2~

Customize PDF page

Package: Accounts Receivable

Routine: RCRPADD

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: