RCBEPAY ;WISC/RFJ - payment processing (top routine) ;1 Jun 00
Source file <RCBEPAY.m>
Package | Total | Call Graph |
---|---|---|
Accounts Receivable | 4 | EXEMPT^RCBECHGE $$PAYTRAN^RCBEPAY1 $$CHECKPAY^RCBEPAYC $$FIRSTPTY^RCBEPAYF |
VA FileMan | 2 | FILE^DICN (,UPDATE)^DIE |
Kernel | 1 | $$NOW^XLFDT |
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 |
---|---|---|
PROCESS(RCRECTDA,RCPAYDA) | ; process a payment for receipt
; rcrectda - receipt ien file 344 ; rcpayda - payment ien file 344 under rcrectda ; returns 0 if processed, 1^error if not processed |
|
SETAMT(RCRECTDA,RCPAYDA,RCAMOUNT) | ; update the amount posted on the receipt
|
|
SETERROR(RCRECTDA,RCPAYDA,RCERROR) | ; store the error on the receipt
; or clear the posting error if null and defined ; error is null and posting error data in file is null |
|
AUDIT(RCRECTDA,RCPAYDA,RCSTAT,RCMTS) | ; store entry in Suspense Audit Log
; Input ; RCRECTDA - IEN of Receipt file #344 ; RCPAYDA - IEN of Receipt Transaction file #344.01 ; RCSTAT - Status I = In Suspense, P = Paid or R = Refund ; RCMTS(N) - Array of Multi-Trans split information (OPTIONAL) ; $P(2) = AMOUNT ; $P(3) = Suspense comment ; $P(4) = Account/Claim ; e.g. ; RCMTS(1)="290613;PRCA(430,^2^^K100005" ; RCMTS(2)="290618;PRCA(430,^2^^K100010" ; RCMTS(3)="^2.42^Collected/Closed^" |
|
SUSPDIS(RCRECTDA,RCTRANDA,RCSTAT) | ;Update the disposition field
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PRCA(430 - [#430] | PROCESS+42, PROCESS+58, PROCESS+60, PROCESS+73, PROCESS+82, PROCESS+90 |
^PRCA(433 - [#433] | PROCESS+86 |
^RCD(340 - [#340] | PROCESS+42 |
^RCY(344 - [#344] | PROCESS+8, PROCESS+12, PROCESS+15, PROCESS+21, PROCESS+29, PROCESS+33, PROCESS+36, PROCESS+52, PROCESS+62, PROCESS+74 , PROCESS+83, PROCESS+91, SETAMT+2, SETAMT+4*, SETERROR+3, SETERROR+5*, SETERROR+7*, AUDIT+18, AUDIT+19, AUDIT+20 |
^RCY(344.1 - [#344.1] | PROCESS+33 |
Name | Line Occurrences |
---|---|
AUDIT | PROCESS+22 |
SETAMT | PROCESS+86 |
SETERROR | PROCESS+51, PROCESS+61, PROCESS+72, PROCESS+81, PROCESS+89 |
SUSPDIS | PROCESS+25 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | AUDIT+41~, SUSPDIS+2~, SUSPDIS+3* |
DA(1 | AUDIT+49*, SUSPDIS+3* |
DATA | SETAMT+1~, SETAMT+2*, SETAMT+3, SETAMT+4 |
DD | AUDIT+41~, AUDIT+52! |
DIC | AUDIT+41~, AUDIT+49*, AUDIT+52! |
DIC("DR" | AUDIT+50* |
DIC(0 | AUDIT+49* |
DIE | SUSPDIS+2~, SUSPDIS+3* |
DLAYGO | AUDIT+41~, AUDIT+49*, AUDIT+52! |
DO | AUDIT+41~, AUDIT+52! |
DR | AUDIT+41~, SUSPDIS+2~, SUSPDIS+4*, SUSPDIS+6*, SUSPDIS+7*, SUSPDIS+9*, SUSPDIS+10*, SUSPDIS+11* |
DT | PROCESS+33 |
DTOUT | SUSPDIS+2~ |
DUZ | AUDIT+24, SUSPDIS+7, SUSPDIS+10 |
FDAIEN | AUDIT+15~ |
FDAIEN(1 | AUDIT+37, AUDIT+49 |
RCACC | AUDIT+41~, AUDIT+47*, AUDIT+48*, AUDIT+50 |
RCACCT | PROCESS+5~, PROCESS+39*, PROCESS+42*, PROCESS+48 |
RCAMOUNT | SETAMT~, SETAMT+4 |
RCAMT | AUDIT+41~, AUDIT+45*, AUDIT+50 |
RCAUDIT | AUDIT+15~ |
RCAUDIT( | AUDIT+23*, AUDIT+24*, AUDIT+25*, AUDIT+26*, AUDIT+27*, AUDIT+28*, AUDIT+29*, AUDIT+30* |
RCBILLDA | PROCESS+5~, PROCESS+56*, PROCESS+58, PROCESS+60, PROCESS+66, PROCESS+73, PROCESS+78, PROCESS+82, PROCESS+90 |
RCCOM | AUDIT+41~, AUDIT+46*, AUDIT+50 |
RCDATA | PROCESS+5~, PROCESS+12*, PROCESS+15, PROCESS+33, PROCESS+36, PROCESS+39, PROCESS+56, AUDIT+15~, AUDIT+18*, AUDIT+25 |
RCDATA0 | AUDIT+15~, AUDIT+19*, AUDIT+27, AUDIT+28 |
RCDATA1 | AUDIT+15~, AUDIT+20*, AUDIT+30 |
RCERROR | PROCESS+5~, PROCESS+15, PROCESS+16*, PROCESS+17*, PROCESS+48, PROCESS+49*, PROCESS+51, PROCESS+59, PROCESS+60*, PROCESS+61 , PROCESS+70, PROCESS+71*, PROCESS+72, PROCESS+79, PROCESS+80*, PROCESS+81, SETERROR~, SETERROR+3, SETERROR+5, SETERROR+7 |
RCMTS | AUDIT~, AUDIT+39 |
RCMTS( | AUDIT+44, AUDIT+45, AUDIT+46, AUDIT+47 |
RCPAYAMT | PROCESS+5~, PROCESS+36*, PROCESS+78 |
RCPAYDA | PROCESS~, PROCESS+8, PROCESS+12, PROCESS+15, PROCESS+21, PROCESS+22, PROCESS+25, PROCESS+28, PROCESS+29, PROCESS+36 , PROCESS+51, PROCESS+52, PROCESS+61, PROCESS+62, PROCESS+69, PROCESS+72, PROCESS+74, PROCESS+78, PROCESS+81, PROCESS+83 , PROCESS+86, PROCESS+89, PROCESS+91, SETAMT~, SETAMT+2, SETAMT+4, SETERROR~, SETERROR+3, SETERROR+5, SETERROR+7 , AUDIT~, AUDIT+19, AUDIT+20, AUDIT+26 |
RCPAYDAT | PROCESS+5~, PROCESS+33*, PROCESS+66, PROCESS+78 |
RCRECTDA | PROCESS~, PROCESS+8, PROCESS+12, PROCESS+15, PROCESS+21, PROCESS+22, PROCESS+25, PROCESS+28, PROCESS+29, PROCESS+33 , PROCESS+36, PROCESS+51, PROCESS+52, PROCESS+61, PROCESS+62, PROCESS+69, PROCESS+72, PROCESS+74, PROCESS+78, PROCESS+81 , PROCESS+83, PROCESS+86, PROCESS+89, PROCESS+91, SETAMT~, SETAMT+2, SETAMT+4, SETERROR~, SETERROR+3, SETERROR+5 , SETERROR+7, AUDIT~, AUDIT+18, AUDIT+19, AUDIT+20, SUSPDIS~, SUSPDIS+3 |
RCSTAT | AUDIT~, AUDIT+29, SUSPDIS~, SUSPDIS+4, SUSPDIS+5, SUSPDIS+8 |
RCSUB | AUDIT+41~, AUDIT+43*, AUDIT+44*, AUDIT+45, AUDIT+46, AUDIT+47, AUDIT+49 |
RCTRANDA | PROCESS+5~, PROCESS+78*, PROCESS+79, PROCESS+80, PROCESS+86, SUSPDIS~, SUSPDIS+3 |
U | PROCESS+21, AUDIT+25, AUDIT+27, AUDIT+28, AUDIT+30, AUDIT+45, AUDIT+46, AUDIT+47 |
X | PROCESS+5~, PROCESS+28*, PROCESS+29, PROCESS+42*, PROCESS+69*, PROCESS+70, PROCESS+71, AUDIT+41~, AUDIT+49* |
Y | AUDIT+41~ |
Z | AUDIT+41~ |