RCTCSPD ;ALBANY/BDB-CROSS-SERVICING TRANSMISSION ;03/15/14 3:34 PM
Source file <RCTCSPD.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENTER | ;Entry point from nightly process PRCABJ
|
|
| RSDEBTOR | ;
|
|
| RSBILL | ||
| ADDCHKND(BILL) | ;add a new bill referral, new debtor
|
|
| ADDCHKNB(BILL) | ;add a new bill referral, existing debtor
|
|
| UPDCHK(BILL) | ;update 5b or existing bill
|
|
| UP1 | ||
| REC1 | ;record type 1
|
|
| REC2 | ;
|
|
| REC2A | ;
|
|
| AGDEBTID() | ; Return Agency Debt ID accoring to new logic PRCA*4.5*350
; Input: SITE,KNUM,BILL,B15 |
|
| DATE8(X) | ;changes fileman date into 8 digit date yyyymmdd
|
|
| AMOUNT(X) | ;changes amount to zero filled, right justified
|
|
| BLANK(X) | ;returns 'x' blank spaces
|
|
| NOW() | ;compiles current date,time
|
|
| RJZF(X,Y) | ;right justify zero fill width Y
|
|
| LJSF(X,Y) | ;x left justified, y space filled
|
|
| LJZF(X,Y) | ;x left justified, y zero filled
|
|
| RECALL(BILL) | ; set the recall flag
|
|
| CLR19(BILL,X) | ; clear the send flag
|
| FileNo | Call Tags |
|---|---|
| ^PRCA(430 - [#430] | Classic Fileman Calls, GET1^DIQ |
