RCBDFST1 ;WISC/RFJ-patient statement utilities continued ;1 Dec 00
Source file <RCBDFST1.m>
Package | Total | Call Graph |
---|---|---|
Accounts Receivable | 2 | $$TRANVALU^RCDPBTLM $$VALID^RCRJRCOT |
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 |
Package | Total | Caller Graph |
---|---|---|
Accounts Receivable | 2 | RCBDPSLM RCBDPSNO |
Name | Comments | DBIA/ICR reference |
---|---|---|
CHEKACCT(RCDEBTDA) | ; check to see if a debtor is in balance
; returns null if in balance, or the calculated statement ; if out of balance ; returns rcbilbal,rcevent,rcnewact,rcstate,rclastev ; returns ^tmp("rcbdfst1",$j ... (see NEWTRANS below) |
|
BILLBAL(DEBTDA) | ; get the bill balances for a debtor
; returns array RCBILBAL("PB")=principal balance ; RCBILBAL("IN")=interest balance ; RCBILBAL("AD")=admin balance ; RCBILBAL("MF")=marshal fee balance ; RCBILBAL("CC")=court cost balance ; RCBILBAL =total balance |
|
NEWTRANS(DEBTDA,BEGDATE,ENDDATE) | ; get new transaction activity between dates
; returns global array ; tmp("rcbdfst1",$j,account,transactiondate,bill,transaction)=value ; where ; value = ^ prin ^ int ^ admin ^ mf ^ cc |
|
LASTEVNT(DEBTDA) | ; get last type of event for debtor patient statement (2)
|
|
EVENTBAL(EVENTDA) | ; get the last statement balance
; returns array RCEVENT("PB")=principal balance ; RCEVENT("IN")=interest balance ; RCEVENT("AD")=admin balance ; RCEVENT("MF")=marshal fee balance ; RCEVENT("CC")=court cost balance ; RCEVENT =total balance |
Name | Field # of Occurrence |
---|---|
$$TRANVALU^RCDPBTLM | NEWTRANS+26 |
$$VALID^RCRJRCOT | NEWTRANS+23 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PRCA(430 - [#430] | BILLBAL+14, BILLBAL+15, BILLBAL+17, NEWTRANS+13, NEWTRANS+14, NEWTRANS+15, NEWTRANS+31 |
^PRCA(433 - [#433] | NEWTRANS+20, NEWTRANS+21, NEWTRANS+24 |
^RC(341 - [#341] | CHEKACCT+11, CHEKACCT+33, LASTEVNT+4, LASTEVNT+7, EVENTBAL+8 |
^RC(341.1 - [#341.1] | LASTEVNT+3 |
^TMP("RCBDFST1" | NEWTRANS+10!, NEWTRANS+16*, NEWTRANS+32* |
Name | Line Occurrences |
---|---|
$$LASTEVNT | CHEKACCT+10 |
BILLBAL | CHEKACCT+8 |
EVENTBAL | CHEKACCT+13 |
NEWTRANS | CHEKACCT+15 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | CHEKACCT+6~, CHEKACCT+20*, CHEKACCT+23, CHEKACCT+24, CHEKACCT+26, CHEKACCT+29*, BILLBAL+7~, BILLBAL+10*, BILLBAL+26*, NEWTRANS+6~ , NEWTRANS+9*, NEWTRANS+31*, NEWTRANS+40*, EVENTBAL+7~, EVENTBAL+16* |
BEGDATE | NEWTRANS~, NEWTRANS+13, NEWTRANS+20 |
BILLDA | BILLBAL+7~, BILLBAL+14*, BILLBAL+15, BILLBAL+17, NEWTRANS+6~, NEWTRANS+14*, NEWTRANS+15, NEWTRANS+16, NEWTRANS+24*, NEWTRANS+31 , NEWTRANS+32 |
DATA1 | CHEKACCT+6~, EVENTBAL+7~, EVENTBAL+8*, EVENTBAL+9, EVENTBAL+10, EVENTBAL+11, EVENTBAL+12, EVENTBAL+13 |
DATA7 | BILLBAL+7~, BILLBAL+15*, BILLBAL+17, BILLBAL+19, BILLBAL+20, BILLBAL+21, BILLBAL+22, BILLBAL+23 |
DATE | NEWTRANS+6~, NEWTRANS+13*, NEWTRANS+14, NEWTRANS+16, NEWTRANS+20*, NEWTRANS+21, NEWTRANS+32 |
DEBTDA | BILLBAL~, BILLBAL+14, NEWTRANS~, NEWTRANS+10, NEWTRANS+13, NEWTRANS+14, NEWTRANS+16, NEWTRANS+20, NEWTRANS+21, NEWTRANS+32 , LASTEVNT~, LASTEVNT+4, LASTEVNT+7 |
ENDDATE | NEWTRANS~, NEWTRANS+13, NEWTRANS+20 |
EVENTDA | LASTEVNT+1~, LASTEVNT+7*, LASTEVNT+9, EVENTBAL~, EVENTBAL+8 |
ORIGAMT | NEWTRANS+6~, NEWTRANS+15*, NEWTRANS+16, NEWTRANS+17 |
OUTOFBAL | CHEKACCT+6~, CHEKACCT+19*, CHEKACCT+25*, CHEKACCT+31*, CHEKACCT+34 |
>> RCBILBAL | BILLBAL+9*, BILLBAL+26* |
>> RCBILBAL( | CHEKACCT+24, CHEKACCT+26, BILLBAL+10*, BILLBAL+26 |
>> RCBILBAL("AD" | BILLBAL+21* |
>> RCBILBAL("CC" | BILLBAL+23* |
>> RCBILBAL("IN" | BILLBAL+20* |
>> RCBILBAL("MF" | BILLBAL+22* |
>> RCBILBAL("PB" | BILLBAL+17*, BILLBAL+19* |
RCDEBTDA | CHEKACCT~, CHEKACCT+8, CHEKACCT+10, CHEKACCT+15 |
>> RCEVENT | EVENTBAL+15*, EVENTBAL+16* |
>> RCEVENT( | CHEKACCT+23, CHEKACCT+24, EVENTBAL+16 |
>> RCEVENT("AD" | EVENTBAL+11* |
>> RCEVENT("CC" | EVENTBAL+12* |
>> RCEVENT("IN" | EVENTBAL+10* |
>> RCEVENT("MF" | EVENTBAL+13* |
>> RCEVENT("PB" | EVENTBAL+9* |
>> RCLASTEV | CHEKACCT+10*, CHEKACCT+11, CHEKACCT+13, CHEKACCT+15, CHEKACCT+33 |
>> RCNEWACT | NEWTRANS+8*, NEWTRANS+40* |
>> RCNEWACT( | CHEKACCT+24, CHEKACCT+26, NEWTRANS+9*, NEWTRANS+40 |
>> RCNEWACT("AD" | NEWTRANS+35* |
>> RCNEWACT("CC" | NEWTRANS+37* |
>> RCNEWACT("IN" | NEWTRANS+34* |
>> RCNEWACT("MF" | NEWTRANS+36* |
>> RCNEWACT("PB" | NEWTRANS+17*, NEWTRANS+33* |
>> RCSTATE | CHEKACCT+28*, CHEKACCT+29* |
>> RCSTATE( | CHEKACCT+23*, CHEKACCT+26*, CHEKACCT+29 |
>> RCSTATE("AD" | CHEKACCT+31 |
>> RCSTATE("CC" | CHEKACCT+31 |
>> RCSTATE("IN" | CHEKACCT+31 |
>> RCSTATE("MF" | CHEKACCT+31 |
>> RCSTATE("PB" | CHEKACCT+31 |
REVDATE | LASTEVNT+1~, LASTEVNT+4*, LASTEVNT+5, LASTEVNT+7, LASTEVNT+9 |
STATUS | BILLBAL+7~, BILLBAL+14*, NEWTRANS+6~ |
TRANDA | NEWTRANS+6~, NEWTRANS+21*, NEWTRANS+23, NEWTRANS+24, NEWTRANS+26, NEWTRANS+32 |
TYPEDA | LASTEVNT+1~, LASTEVNT+3*, LASTEVNT+4, LASTEVNT+7 |
VALUE | NEWTRANS+6~, NEWTRANS+26*, NEWTRANS+28, NEWTRANS+31*, NEWTRANS+32, NEWTRANS+33, NEWTRANS+34, NEWTRANS+35, NEWTRANS+36, NEWTRANS+37 |