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~ |