RCTCSJS0 ;ALBANY/RGB - CROSS-SERVICING REJECTS SERVER;02/19/14 3:21 PM
Source file <RCTCSJS0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| V | ;;4.5;Accounts Receivable;**343**;Mar 20, 1995;Build 59
|
|
| SERVER | ; entry from outside
|
|
| END | ;
|
|
| INIT1 | ; initialize first time
|
|
| INIT2 | ; subsequent inits
|
|
| START | ; start of process
|
|
| TOT | ;
|
|
| XMB2XTMP | ;copies ^XMB(3.9,XMZ) to ^XTMP
|
|
| SRTXTMP | ;sorts ^XTMP(...,"READ" recs into ^XTMP(..."BILL" which is sorted by Debtor ID, by BILL
|
|
| C | ||
| H | ; Header record
|
|
| Z | ; Trailer record
|
|
| DOY2EXT(YDOY,ZDATE) | ; gets Date from DOY;
|
|
| L1 | ; Debt Record
|
|
| L2 | ;; Debtor Record
|
|
| L2A | ;; Individual Debtor Record
|
|
| L2B | ; Business Debtor Record
|
|
| L2C | ; Debtor Contact Information
|
|
| L2D | ; Debtor Record (Property Information)
|
|
| L2E | ; Debtor Record (Employment Information for Individual Debtor)
|
|
| L3 | ; Case Record
|
|
| L4 | ; Alias Name
|
|
| L5A | ; Creditor Agency Financial Transactions (Collections)
|
|
| L5B | ; Creditor Agency Financial Transactions (Adjustments)
|
|
| L6 | ; Payment Bypass/Offset
|
|
| LOGREJS | ; compiles the varied reject errors by BILL
|
|
| GETPCS1 | ;
|
|
| GETPCS2 | ||
| CHKBD | ; checks for valid Bill/Debtor
|
|
| RECERR(ERRCNT,ETYP,ERRDATA,RECN,RECERR) | ; log TRANSMITTED FORMAT err
|
