Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RCRPADD

Package: Accounts Receivable

Routine: RCRPADD


Information

RCRPADD ;EDE/SAB-REPAYMENT PLAN FORBEARBANCE;03/31/2021 8:40 AM

Source Information

Source file <RCRPADD.m>

Call Graph

Call Graph

Call Graph Total: 13

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Accounts Receivable 2 PRCAC REPAY ADD  RCRPENTR  

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Entry point for Forbearance Option
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 MAIN+10
$$EXTERNAL^DILFD PRTHDR+17
$$GET1^DIQ MAIN+12, PRTHDR+22, ADDNEW+7, ADDNEW+42, ADDNEW+43, ADDNEW+71
$$DADD^RCAMADD PRTHDR+8
$$NAM^RCFN01 PRTHDR+12
$$SSN^RCFN01 PRTHDR+11
ADJSCHED^RCRPENTR ADDNEW+78
$$FMTPHONE^RCRPINQ PRTHDR+16
$$GETDOB^RCRPINQ PRTHDR+11
$$PMNTS^RCRPINQ PRTHDR+18, ADDNEW+46
$$PRTBILLS^RCRPINQ MAIN+20, MAIN+34
PRTHDR^RCRPINQ MAIN+18, MAIN+32
DASH^RCRPRPU PRTNB+3
$$CORRECT^RCRPU ECHOBL+13
$$GETACTS^RCRPU ADDNEW+10
$$GETBILLS^RCRPU ADDNEW+20
$$TOT^RCRPU ADDNEW+34
ADDPLAN^RCRPU ADDNEW+64
PAUSE^RCRPU ADDNEW+14, ADDNEW+27, ADDNEW+36, ADDNEW+57, ADDNEW+86
PRTACTS^RCRPU PRTNB+5
UPDAUDIT^RCRPU ADDNEW+81
UPDBILL^RCRPU ADDNEW+62
$$SELRPP^RCRPU1 MAIN+8
UPDPAO^RCRPU1 ADDNEW+68
UPDTERMS^RCRPU1 ADDNEW+77
UPDRVW^RCRPU2 ADDNEW+56
$$DT^XLFDT ADDNEW+8, ADDNEW+81
$$FMTE^XLFDT PRTHDR+17
$$CJ^XLFSTR MAIN+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MAIN+7
Function Call: WRITE
  • Prompt: !!,IOBON,IORVON,$$CJ^XLFSTR("*** WARNING: YOU HAVE SELECTED A CLOSED REPAYMENT PLAN ***",80),IORVOFF,IOBOFF,!!
  • Line Location: MAIN+11
Function Call: WRITE
  • Prompt: !,"The selected plan currently has more than 60 payments outstanding."
  • Line Location: MAIN+14
Function Call: WRITE
  • Prompt: !,"Unable to add new bills to this plan until the plan's terms"
  • Line Location: MAIN+15
Function Call: WRITE
  • Prompt: !,"are adjusted."
  • Line Location: MAIN+16
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MAIN+25
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+33
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+13
Function Call: WRITE
  • Prompt: !,"No Bills selected",!
  • Line Location: ADDNEW+26
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ADDNEW+28
Function Call: WRITE
  • Prompt: !,"Adding these bills will make the number of remaining payments on the"
  • Line Location: ADDNEW+53
Function Call: WRITE
  • Prompt: !,"plan > 60 months. Unable to add new bills to this plan until the"
  • Line Location: ADDNEW+54
Function Call: WRITE
  • Prompt: !,"plan's terms are adjusted."
  • Line Location: ADDNEW+55
Function Call: WRITE
  • Prompt: !,"Bills successfully added to the Plan.",!
  • Line Location: ADDNEW+83
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDNEW+86
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] MAIN+9, PRTHDR+6
^TMP("RCRPP" MAIN+37!, ADDNEW+6!, ADDNEW+61, ECHOBL+8

Label References

Name Line Occurrences
$$ADDNEW MAIN+26
$$ECHOBL ADDNEW+31
PRTNB ADDNEW+17

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~, MAIN+11
IOBON MAIN+3~, MAIN+11
IOF MAIN+7, MAIN+25, PRTHDR+10, ADDNEW+28
IORVOFF MAIN+3~, MAIN+11
IORVON MAIN+3~, MAIN+11
IOST MAIN+7, MAIN+25, PRTHDR+10
LN PRTHDR+4~
N0 PRTHDR+4~, PRTHDR+6*, PRTHDR+7, PRTHDR+17, PRTHDR+18, PRTHDR+20, PRTHDR+21
QUIT MAIN+2~, MAIN+5*, ADDNEW+3~, ADDNEW+86
RAMNT PRTHDR+4~, PRTHDR+18*, PRTHDR+19, PRTHDR+22
RCACTDT ADDNEW+3~, ADDNEW+8*, ADDNEW+64
RCALLFLG ADDNEW+2~, ADDNEW+21*, ADDNEW+30
RCBILL ECHOBL+3~, ECHOBL+9*, ECHOBL+10
RCBILLDA ADDNEW+3~, ADDNEW+60*, ADDNEW+61*, ADDNEW+62, ADDNEW+64, ECHOBL+3~, ECHOBL+5*, ECHOBL+8*, ECHOBL+9
RCBLCH ADDNEW+2~, ADDNEW+20*, ADDNEW+21, ADDNEW+22*, ADDNEW+25, ADDNEW+31, ADDNEW+34, ECHOBL~
RCCTS ADDNEW+2~, ADDNEW+10*, ADDNEW+12, ADDNEW+17, ADDNEW+20, PRTNB~, PRTNB+5
RCDBTR ADDNEW+2~, ADDNEW+7*, ADDNEW+10
RCDONE MAIN+2~, MAIN+5*, MAIN+6, MAIN+8*, MAIN+20*, MAIN+22, MAIN+26*, MAIN+29, MAIN+34*, ADDNEW+2~
, ADDNEW+8*, ADDNEW+30, ADDNEW+31*
RCMNPAY ADDNEW+3~, ADDNEW+43*, ADDNEW+47, ADDNEW+72, ADDNEW+77
RCNEWLN ADDNEW+3~, ADDNEW+47*, ADDNEW+52
RCNEWTOT ADDNEW+3~, ADDNEW+47*
RCNOMN ADDNEW+2~, ADDNEW+71*, ADDNEW+76, ADDNEW+78
RCNWMN ADDNEW+2~, ADDNEW+72*, ADDNEW+73*, ADDNEW+76, ADDNEW+77, ADDNEW+78
RCNWMOD ADDNEW+3~, ADDNEW+72*, ADDNEW+73
RCORBAL ADDNEW+2~, ADDNEW+42*, ADDNEW+46, ADDNEW+67
RCPLNBL ADDNEW+3~, ADDNEW+67*, ADDNEW+68, ADDNEW+72
RCRMBAL ADDNEW+3~, ADDNEW+46*, ADDNEW+47
RCRMLN ADDNEW+3~
RCRPIEN MAIN+2~, MAIN+8*, MAIN+9, MAIN+12, MAIN+18, MAIN+20, MAIN+26, MAIN+32, MAIN+34
RCRVW MAIN+2~, MAIN+12*, MAIN+13
RCTOT ADDNEW+2~, ADDNEW+34*, ADDNEW+35, ADDNEW+39*, ADDNEW+47, ADDNEW+67
RPIEN PRTHDR~, PRTHDR+5, PRTHDR+6, PRTHDR+18, PRTHDR+22, ADDNEW~, ADDNEW+7, ADDNEW+42, ADDNEW+43, ADDNEW+46
, ADDNEW+56, ADDNEW+62, ADDNEW+64, ADDNEW+68, ADDNEW+71, ADDNEW+77, ADDNEW+78, ADDNEW+81
TMP PRTHDR+4~
TMPDT PRTHDR+4~
TMPIEN PRTHDR+4~
U MAIN+9, PRTHDR+7, PRTHDR+11, PRTHDR+15, PRTHDR+17, PRTHDR+18, PRTHDR+20, PRTHDR+21, ADDNEW+22, ADDNEW+39
, ECHOBL+9
X MAIN+3~, MAIN+10*
Y ADDNEW+2~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All