RCBECHGA ;WISC/RFJ-add admin charges to account (called by rcbechgs) ;1 Jun 00
Source file <RCBECHGA.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Accounts Receivable | 7 | RCBECHGE RCBECHGP RCBECHGS RCBECHGU RCDMBWL1 RCEXINAD RCYPO237 |
| Integrated Billing | 1 | IBJDF71 |
| 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
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PRCA(430 - [#430] | ADMIN+25, ADMIN+26, ADMIN+37, ADMIN+82, REPAYDEF+8, REPAYDEF+10, REPDATA+18, REPDATA+19, REPDATA+42 |
| ^PRCA(430.2 - [#430.2] | ADMIN+25 |
| ^PRCA(433 - [#433] | REPDATA+39 |
| ^RCD(340 - [#340] | ADMIN+12 |
| ^TMP("RCBECHGS" | ADMIN+22, ADMIN+23, ADMIN+100*, ADMIN+101* |
| Name | Line Occurrences |
|---|---|
| $$FORMATDT | REPAYDEF+14 |
| $$REPAYDEF | ADMIN+95 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DATA | REPAYDEF+6~, REPAYDEF+10*, REPAYDEF+14 |
| DATE | FORMATDT~, FORMATDT+1 |
| DAYS | REPDATA~, REPDATA+27 |
| DT | REPDATA+27 |
| RCADDATE | ADMIN+9~, ADMIN+12*, ADMIN+20, ADMIN+36 |
| RCBILLDA | ADMIN+9~, ADMIN+23*, ADMIN+25, ADMIN+26, ADMIN+37, ADMIN+82, ADMIN+95, ADMIN+100, ADMIN+101, REPAYDEF~ , REPAYDEF+8, REPAYDEF+10, REPDATA~, REPDATA+18, REPDATA+19, REPDATA+42 |
| >> RCDATA0 | ADMIN+58, ADMIN+69 |
| RCDATA6 | ADMIN+9~, ADMIN+26*, ADMIN+37, ADMIN+60, ADMIN+66, ADMIN+71, ADMIN+76, ADMIN+91 |
| RCDATE | ADMIN+9~, ADMIN+22*, ADMIN+23 |
| >> RCDEBTDA | ADMIN+12 |
| RCDEF | REPDATA+15~, REPDATA+17*, REPDATA+28*, REPDATA+44 |
| RCDUE | REPDATA+15~, REPDATA+17*, REPDATA+30*, REPDATA+34, REPDATA+43, REPDATA+44 |
| RCELM | REPDATA+15~, REPDATA+19*, REPDATA+22, REPDATA+27 |
| RCFADMIN | ADMIN+9~, ADMIN+80*, ADMIN+86, ADMIN+91*, ADMIN+95*, ADMIN+98*, ADMIN+101 |
| RCFQUIT | ADMIN+9~, ADMIN+22, ADMIN+23, ADMIN+45*, ADMIN+103* |
| RCLASTDT | ADMIN+9~, ADMIN+36*, ADMIN+37*, ADMIN+45 |
| RCLDAM | REPDATA+15~, REPDATA+38*, REPDATA+40*, REPDATA+44 |
| RCLTR | REPDATA+15~, REPDATA+17*, REPDATA+18, REPDATA+22*, REPDATA+39 |
| RCPMT | REPDATA+15~, REPDATA+17*, REPDATA+18*, REPDATA+19 |
| RCRP | REPDATA+15~, REPDATA+42*, REPDATA+43, REPDATA+44 |
| RCTRA | REPDATA+15~, REPDATA+39*, REPDATA+40 |
| RCUPDATE | ADMIN+20, ADMIN+45, ADMIN+66, ADMIN+76, ADMIN+95, REPAYDEF~, REPAYDEF+8 |
| RCXDAYS | ADMIN+9~, ADMIN+58, ADMIN+59*, ADMIN+60*, ADMIN+66*, ADMIN+69, ADMIN+70*, ADMIN+71*, ADMIN+76*, ADMIN+91 , ADMIN+98 |
| REPAYDAT | ADMIN+9~, ADMIN+82*, ADMIN+86, ADMIN+91, REPAYDEF+6~, REPAYDEF+8*, REPAYDEF+9, REPAYDEF+10, REPAYDEF+12*, REPAYDEF+14 |
| X | ADMIN+9~, ADMIN+95*, ADMIN+99*, ADMIN+100 |
| Y | REPDATA+15~, REPDATA+43*, REPDATA+44*, REPDATA+45 |
