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: RCRPINQ

Package: Accounts Receivable

Routine: RCRPINQ


Information

RCRPINQ ;EDE/YMG - REPAYMENT PLAN INQUIRY; 12/10/2020

Source Information

Source file <RCRPINQ.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point
EN1(RPIEN) ; entry point from repayment plan worklist, skips RPP selection PRCA*4.5*389
PRINT ; display repayment plan data
GETDOB(DEBTOR) ; get date of birth
FMTPHONE(PHONE) ; format phone number for display
WRTLN(STR,LN) ; write line
NEWPG() ; print new page
PRTHDR(RPIEN,LN) ; display header
PRTSCHED(RPIEN,LN) ; Print the schedule
PRTFORB(RPIEN,LN) ; Print the forbearances previously granted
PRTBILLS(RPIEN,LN) ; print list of bills
PRTPMTS(RPIEN,LN) ; print payments
PRTAUDT(RPIEN,LN) ; print audit log

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Inquiry output has started with task# ",ZTSK,".",!
  • Line Location: EN1+17
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !,STR
  • Line Location: WRTLN+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NEWPG+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRTHDR+11
Function Call: WRITE
  • Prompt: !!,"Debtor: ",$$NAM^RCFN01(DEBTOR)
  • Line Location: PRTHDR+13
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+14
Function Call: WRITE
  • Prompt: ?64,"DOB: ",$S(DEBDOB="":"N/A",1:DEBDOB)
  • Line Location: PRTHDR+15
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+16
Function Call: WRITE
  • Prompt: !,"Phone: ",$S(DEBPHN>0:$$FMTPHONE^RCRPINQ(DEBPHN),1:"N/A"),!
  • Line Location: PRTHDR+17
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+18
Function Call: WRITE
  • Prompt: !,?2,"Current balance: $",$FN(CBAL,"",2),?37,"Number of payments remaining: ",$$REMPMNTS^RCRPU3(RPIEN,RAMNT)
  • Line Location: PRTHDR+20
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+21
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+22
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+23
Function Call: WRITE
  • Prompt: !,?8,"Plan date: ",$$FMTE^XLFDT($P(N0,U,3),"5DZ"),?43,"First Payment Due Date: ",$$FMTE^XLFDT($P(N0,U,4),"5DZ"),!
  • Line Location: PRTHDR+24
Function Call: WRITE
  • Prompt: ?22
  • Condition for execution: CNT#3=1
  • Line Location: PRTSCHED+17
Function Call: WRITE
  • Prompt: ?42
  • Condition for execution: CNT#3=2
  • Line Location: PRTSCHED+17
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($P(TMP,U),"5DZ")
  • Line Location: PRTSCHED+17
Function Call: WRITE
  • Prompt: ?37
  • Condition for execution: CNT#3=1
  • Line Location: PRTSCHED+18
Function Call: WRITE
  • Prompt: ?57
  • Condition for execution: CNT#3=2
  • Line Location: PRTSCHED+18
Function Call: WRITE
  • Prompt: $S($P(TMP,U,3):"F",$P(TMP,U,2):"Y",1:"N")
  • Line Location: PRTSCHED+18
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($P(TMP,U),"5DZ")
  • Line Location: PRTPMTS+17
Function Call: WRITE
  • Prompt: ?46
  • Condition for execution: CNT#2=1
  • Line Location: PRTPMTS+18
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("$"_$FN($P(TMP,U,2),"",2),10)
  • Line Location: PRTPMTS+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^RCRP(340.5 - [#340.5] EXTERNAL^DILFD,  GET1^DIQ
340.54 EXTERNAL^DILFD
340.55 GET1^DIQ
^PRCA(430 - [#430] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call