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

Package: Accounts Receivable

Routine: RCRPU


Information

RCRPU ;EDE/SAB - REPAYMENT PLAN UTILITIES;11/16/2020 8:40 AM

Source Information

Source file <RCRPU.m>

Entry Points

Name Comments DBIA/ICR reference
GETDBTR() ;Look up debtor by name or bill #
PRTACTS(RCCTS) ;Display accounts in ARR
; RCCTS - # of Active bills in active node of ^TMP("RCRPP).
PRTHDR() ; Print the header for account listing
GETACTS(RCDBTR) ;Find all active accounts for a debtor
MDY(DATE,DEL) ;Return date format of mm-dd-yy
; DATE - Date in FileMan format
; DEL - Delimiter used to separate month, day, year
PAUSE
GETBILLS(RCCTS) ;Select the bills to add to the plan
; RCCTS - The upper limit that can be chosen
TOT(RCBLCH) ; calculate the total amount into the Repayment Plan.
CORRECT(RCTYPE) ;Are you sure this is correct?
; Input: (Optional) Prompt to display
; Return: 1 for Yes
; 0 for No
GETDET(RCBLCH,RCTOT,RCDBTR,RCAUTO,RCAUCMT,RCPLN) ;Finish Gathering the details and File
RPDIS(RCDBTR,RCPLN,RCSTDT,RCCRDT,RCTOT,RCAUTO) ;Display Repayment Plan
GETID(RCDBTR) ; Get the Site and # Plans for a debtor
GETPLN(RCDBTR,RCTOT,RCEDIT) ; Get the amount due and length of plan
GETSTART(RCCRDT) ; Calculate the start date .
SUPAPPR(RCTXTFLG) ; Confirm Supervisor approval, file Debtor Comment for Supervisor Approval PRCA*4.5*422
SAVEPLAN(RCDBTR,RCRPID,RCPLN,RCCRDT,RCDAY,RCSTDT,RCTOT,RCAUTO,RCAUCMT) ; Save the repayment plan details
UPDSCHED(RCRPIEN,RCSUB)
UPDDBTR(RCRPIEN,RCDBTR)
UPDBILL(RCRPIEN,RCBILLDA)
REMBILL(RCRPIEN,RCBILLDA) ; remove bill from sub-file 340.5
BLDPLN(RCSTDT,RCLEN,RCSTFLG) ; Build the Payment Schedule
UPDPAYST(RCRPID) ;Update the Paid flag in the Schedule Multiple
ADDPLAN(RCRPIEN,RCBILLDA,RCCRDT) ;Record the Plan info into each bill and to the Transaction file.
; Input: RCRPIEN - IEN of the Repayment Plan (from file #340.5)
; RCBILLDA - IEN of the Bill to add the plan to
; RCCRDT - Date to add to the plan.
TRAN(RCBILLDA,RCAMT,RCTRANS) ;File plan add transaction in 433
CHKACT(RCDBTR) ;Check to see if the Debtor has an Active Repayment Plan.
GETNXTPY(RCRPID) ; Retrieve the next payment due date
GETPLANS(RCDBTR) ; Get a list of Repayment Plans for a debtor.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: GETDBTR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTACTS+15
Function Call: WRITE
  • Prompt: RCI,?5,RCBILLNO,?24,$E(RCCATN,1,24),?50,$$MDY(RCDOS,"-"),?61,RCSTATN,?70,"$",$J(RCAMT,8,2),!
  • Line Location: PRTACTS+16
Function Call: WRITE
  • Prompt: "="
  • Line Location: PRTACTS+17
Function Call: WRITE
  • Prompt: !,?55,"TOTAL OWED:",?70,"$",$J(RCTOT,8,2),!
  • Line Location: PRTACTS+18
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTACTS+20
Function Call: WRITE
  • Prompt: !,?70," AMOUNT",!
  • Line Location: PRTHDR+2
Function Call: WRITE
  • Prompt: "No.",?5,"BILL NO.",?24,"AR CATEGORY",?50,"BILL DATE",?61,"STATUS",?70,"OWED ($)",!
  • Line Location: PRTHDR+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRTHDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTHDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+4
Function Call: WRITE
  • Prompt: " Select bills using the following formats: (A)ll or (N)one or 1,2,3 and/or 1-3",!
  • Line Location: GETBILLS+14
Function Call: WRITE
  • Prompt: " "_RCERR,!
  • Line Location: GETBILLS+35
Function Call: WRITE
  • Prompt: !,"Total Amount chosen is $",$J(RCTOT,8,2),!
  • Line Location: TOT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: CORRECT+13
Function Call: WRITE
  • Prompt: !,"Repayment Plan not Saved.",!
  • Line Location: GETDET+27
Function Call: WRITE
  • Prompt: !,"Summary of the Created Repayment Plan for AR Debtor: ",RCDBTR,!
  • Line Location: RPDIS+2
Function Call: WRITE
  • Prompt: "--------------------------------------------------------------------------------",!
  • Line Location: RPDIS+3
Function Call: WRITE
  • Prompt: "Monthly Repayment Amount:",?32,"$",$J($P(RCPLN,U),0,2)
  • Line Location: RPDIS+4
Function Call: WRITE
  • Prompt: ?45,"Number of Payments:",?72,$P(RCPLN,U,2),!
  • Line Location: RPDIS+5
Function Call: WRITE
  • Prompt: "Date Plan Created:",?32,$$FMTE^XLFDT(RCCRDT,2)
  • Line Location: RPDIS+6
Function Call: WRITE
  • Prompt: ?45,"Due Date of First Payment:",?72,$$FMTE^XLFDT(RCSTDT,2),!
  • Line Location: RPDIS+7
Function Call: WRITE
  • Prompt: "Total Amount of Bills in Plan:",?32,"$",$J(RCTOT,0,2)
  • Line Location: RPDIS+8
Function Call: WRITE
  • Prompt: ?45,"Auto-Add Bills?:",?72,$S(RCAUTO:"Yes",1:"No"),!
  • Line Location: RPDIS+9
Function Call: WRITE
  • Prompt: "--------------------------------------------------------------------------------",!
  • Line Location: RPDIS+10
Function Call: WRITE
  • Prompt: !!,"Number of Payments will be ",RCPAY,!
  • Line Location: GETPLN+25
Function Call: WRITE
  • Prompt: !,"The number of payments cannot exceed 60. Please re-enter the payment amount.",!
  • Line Location: GETPLN+27
Function Call: WRITE
  • Prompt: !,"The number of payments exceeds 36 payments.",!
  • Line Location: GETPLN+29
Function Call: WRITE
  • Prompt: !,"Another user is creating a Repayment Plan. Please try again later."
  • Line Location: SAVEPLAN+6
Function Call: WRITE
  • Prompt: !,"The Repayment Plan "_RCRPID_" has been established.",!!
  • Line Location: SAVEPLAN+55

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^RCD(340 - [#340] Classic Fileman Calls
^PRCA(430 - [#430] Classic Fileman Calls
^PRCA(430.2 - [#430.2] GET1^DIQ
^PRCA(433 - [#433] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call