Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RCRPADD

Package: Accounts Receivable

Routine: RCRPADD


Information

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

Source Information

Source file <RCRPADD.m>

Entry Points

Name Comments DBIA/ICR reference
EN1(RCRPIEN) ; entry point from repayment plan worklist, called from ^RCRPWL1 PRCA*4.5*389
MAIN ; Entry point for Forbearance Option
PROCPLAN ;
PROCPLN1 ; PRCA*4.5*389
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.

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call