RCRPFB ;EDE/SAB - REPAYMENT PLAN FORBEARBANCE;03/31/2021 8:40 AM
Source file <RCRPFB.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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAIN | ; Entry point for Forbearance Option
|
|
| FORBEAR(RPIEN,LN) | ; Ask the user for the month and year to move.
|
|
| CORRECT(RCDT,RCNEWDT) | ;Are you sure this is correct?
; Input: (Optional) Prompt to display ; Return: 1 for Yes ; 0 for No |
|
| CALCNWDT(RCPIEN) | ;Calculate the next date in the repayment plan.
|
|
| UPDFORB(RCRPIEN,RCCHGDT,RCLSTDT,RCNEWDT,RCCMMNT) | ; Update the Audit Log for the Plan
|
|
| UPDFRBFG(RCPIEN,RCLSTDT) | ; Update the Forbearance flag in the plan schedule.
|
|
| UPDSCHED(RCRPIEN,RCNEWDT) | ; Add another month to the schedule - For Forbearances only.
|
|
| INCFRBN(RCPIEN) | ; increase # of forbearances (340.5/.09) by 1 PRCA*4.5*389
|
| Name | Field # of Occurrence |
|---|---|
| ENDR^%ZISS | MAIN+9 |
| FILE^DICN | UPDFORB+19 |
| ^DIE | UPDFRBFG+11, INCFRBN+9 |
| ^DIR | FORBEAR+10, CORRECT+7 |
| $$PRTFORB^RCRPINQ | MAIN+19, FORBEAR+61 |
| $$PRTHDR^RCRPINQ | MAIN+13 |
| $$PRTSCHED^RCRPINQ | MAIN+16, FORBEAR+57 |
| $$WRTLN^RCRPINQ | FORBEAR+9, FORBEAR+48 |
| PAUSE^RCRPU | FORBEAR+17, FORBEAR+23, FORBEAR+28, FORBEAR+54 |
| UPDSCHED^RCRPU | UPDSCHED+4 |
| $$SELRPP^RCRPU1 | MAIN+7 |
| UPDAUDIT^RCRPU2 | FORBEAR+41 |
| UPDMET^RCSTATU | FORBEAR+51 |
| $$DT^XLFDT | FORBEAR+41, FORBEAR+44 |
| $$FMTE^XLFDT | FORBEAR+32 |
| $$CJ^XLFSTR | MAIN+10, FORBEAR+48 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^RCRP(340.5 - [#340.5] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RCRP(340.5 - [#340.5] | MAIN+8, FORBEAR+13, FORBEAR+19, FORBEAR+24, CALCNWDT+3, UPDFRBFG+7, INCFRBN+7 |
| Name | Line Occurrences |
|---|---|
| $$CALCNWDT | FORBEAR+31 |
| $$CORRECT | FORBEAR+32 |
| $$FORBEAR | MAIN+22 |
| INCFRBN | FORBEAR+46 |
| UPDFORB | FORBEAR+44 |
| UPDFRBFG | FORBEAR+38 |
| UPDSCHED | FORBEAR+35 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CURNUM | INCFRBN+5~, INCFRBN+7*, INCFRBN+8 |
| DA | UPDFORB+13~, UPDFRBFG+4~, UPDFRBFG+9*, INCFRBN+4~, INCFRBN+8* |
| DA(1 | UPDFORB+17*, UPDFRBFG+9*, UPDFRBFG+10 |
| DD | UPDFORB+13~ |
| DIC | UPDFORB+13~, UPDFORB+17* |
| DIC("DR" | UPDFORB+18* |
| DIC(0 | UPDFORB+17* |
| DIE | UPDFRBFG+4~, UPDFRBFG+10*, INCFRBN+4~, INCFRBN+8* |
| DIR | FORBEAR+2~, CORRECT+5~ |
| DIR("?" | FORBEAR+7* |
| DIR("A" | FORBEAR+6*, CORRECT+6* |
| DIR("B" | CORRECT+6* |
| DIR(0 | FORBEAR+5*, CORRECT+6* |
| DIRUT | FORBEAR+2~, FORBEAR+11 |
| DLAYGO | UPDFORB+13~, UPDFORB+17* |
| DO | UPDFORB+13~ |
| DR | UPDFRBFG+4~, UPDFRBFG+8*, INCFRBN+4~, INCFRBN+8* |
| DUZ | UPDFORB+18 |
| IOBOFF | MAIN+3~, MAIN+10 |
| IOBON | MAIN+3~, MAIN+10 |
| IORVOFF | MAIN+3~, MAIN+10 |
| IORVON | MAIN+3~, MAIN+10 |
| LN | MAIN+3~, MAIN+12*, MAIN+13*, MAIN+14, MAIN+16*, MAIN+17, MAIN+19, MAIN+20, MAIN+22, MAIN+23 , FORBEAR~, FORBEAR+2~, FORBEAR+4*, FORBEAR+9*, FORBEAR+48*, FORBEAR+57*, FORBEAR+58, FORBEAR+61*, FORBEAR+62 |
| RCCHGDT | UPDFORB~, UPDFORB+17 |
| RCCMMNT | UPDFORB~, UPDFORB+18 |
| RCCONT | FORBEAR+2~, FORBEAR+32*, FORBEAR+33 |
| RCDONE | MAIN+2~, MAIN+4*, MAIN+5, MAIN+7*, FORBEAR+2~, FORBEAR+3*, FORBEAR+8, FORBEAR+11*, FORBEAR+62*, FORBEAR+64 |
| >> RCDONE1 | MAIN+6*, MAIN+19*, MAIN+22* |
| RCDT | CORRECT~, CORRECT+6 |
| RCFBDT | FORBEAR+2~, FORBEAR+12*, FORBEAR+32, FORBEAR+38, FORBEAR+44 |
| RCI | UPDFRBFG+5~, UPDFRBFG+7*, UPDFRBFG+9 |
| RCLSTDT | CALCNWDT+1~, CALCNWDT+3*, CALCNWDT+6, UPDFORB~, UPDFORB+15, UPDFRBFG~, UPDFRBFG+7 |
| RCLSTMY | UPDFORB+14~, UPDFORB+15*, UPDFORB+18 |
| RCMN | CALCNWDT+1~, CALCNWDT+6*, CALCNWDT+9*, CALCNWDT+12*, CALCNWDT+15*, CALCNWDT+18 |
| RCNEWDT | FORBEAR+2~, FORBEAR+31*, FORBEAR+32, FORBEAR+35, FORBEAR+44, CORRECT~, CORRECT+6, CALCNWDT+1~, CALCNWDT+18*, CALCNWDT+19 , UPDFORB~, UPDFORB+16, UPDSCHED~, UPDSCHED+4 |
| RCNEWMY | UPDFORB+14~, UPDFORB+16*, UPDFORB+18 |
| RCPIEN | CALCNWDT~, CALCNWDT+3, UPDFRBFG~, UPDFRBFG+7, UPDFRBFG+9, INCFRBN~, INCFRBN+6, INCFRBN+7, INCFRBN+8 |
| RCPROMPT | CORRECT+5~ |
| RCRPIEN | MAIN+7*, MAIN+8, MAIN+13, MAIN+16, MAIN+19, MAIN+22, FORBEAR+57, FORBEAR+61, UPDFORB~, UPDFORB+17 , UPDSCHED~, UPDSCHED+4 |
| RCSCHIEN | FORBEAR+2~, FORBEAR+13*, FORBEAR+14, FORBEAR+19, FORBEAR+24 |
| RCYR | CALCNWDT+1~, CALCNWDT+6*, CALCNWDT+12*, CALCNWDT+18 |
| RPIEN | FORBEAR~, FORBEAR+13, FORBEAR+19, FORBEAR+24, FORBEAR+31, FORBEAR+35, FORBEAR+38, FORBEAR+41, FORBEAR+44, FORBEAR+46 |
| U | MAIN+8, FORBEAR+19, FORBEAR+24, INCFRBN+7 |
| X | MAIN+3~, MAIN+9*, CORRECT+5~, UPDFORB+13~, UPDFORB+17*, UPDFRBFG+4~, INCFRBN+4~ |
| Y | FORBEAR+2~, FORBEAR+12, FORBEAR+13, CORRECT+5~, CORRECT+9, UPDFORB+13~, UPDFRBFG+4~, INCFRBN+4~ |