RCBECHGA ;WISC/RFJ-add admin charges to account (called by rcbechgs) ;1 Jun 00
Source file <RCBECHGA.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ADMIN | ; this is called by rcbechgs and is a continuation of that routine
; variables passed to this entry point: ; rcdebtda = the ien of the debtor entry in file 340 ; rcdata0 = the 0th node for the debtor in rcd(340,rcdebtda,0) ; rcupdate = the fm date that charges are being added ; the rcupdate variable is the statement date for non-benefit ; debts or (statement date minus 3 days) for benefit (first ; party debts) |
|
REPAYDEF(RCBILLDA,RCUPDATE) | ; check to see if bill is in default of the
; repayment plan up to a specified date (rcupdate) ; return piece 1 is 1 if in default, 0 if not in default ; piece 2 is the date of default ; piece 3 is the reason why bill found in default |
|
REPDATA(RCBILLDA,DAYS) | ; - Return Repayment Plan information
; Input: RCBILLDA=Pointer to the AR file #430 ; DAYS=Number of days over the due date for a payment not ; received to be considered defaulted. ; Output: String with the following "^" (up-arrow) pieces: ; 1. Repayment Plan Start Date (FM Format) ; 2. Balance (Repayment Plan) ; 3. Monthly Payment Amount ; 4. Due Date (day of the month) ; 5. Last Payment Date (from file #433) ; 6. Last Payment Amount (from file #433) ; 7. Number of Payments Due ; 8. Number of Payments Defaulted ; or NULL if no Repayment Plan were found for the Bill ; |
|
FORMATDT(DATE) | ; format the date to return
|