Call Graph
Call Graph Total: 1
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 1 | ($$EMUTL,$$EXPAND,$$MCCRUTL)^IBCRU1 |
IBCRU3 ;ALB/ARH - RATES: UTILITIES (CS/BR) ;22-MAY-1996
Source file <IBCRU3.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 1 | ($$EMUTL,$$EXPAND,$$MCCRUTL)^IBCRU1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CSN(N) | ; returns the IFN of the Charge Set name passed in
|
|
| CSBI(CS) | ; returns a Charge Set rates Billable Item (363.3,.04): 0 or BI ^ bi name
|
|
| CSBR(CS) | ; return data on a charge set: billable event ^ BE IFN ^ billing rate IFN ^ billable item ^ charge method
|
|
| CSDV(CS,DIV,DDIV) | ; check if the division is covered by this charge set
; "" if - Charge Set has no region defined (ie. covers all divisions) ; div if - division passed in and it is one of the divisions of the region defined for the Charge Set ; - no division but default division is one of the divisions of the region defined for the Set ; -1 - otherwise: division not covered by CS |
|
| CSDVQ | ||
| RT(RT,BT,EFDT,ARR,BE,CT) | ; return array of all rate schedules and charge sets for a rate type and bill type and date
; EFDT may be passed as 'begin dt^end dt' to get CSs active within a date range, like a bill's date range ; output ARR = number of rate schedule-charge set combinations found ; ARR(rate sched IFN,charge set IFN) = 1 if charges for set are auto added |
|
| BILLRATE(RT,BT,EVDT,FNDRATE) | ; return true if the bill is a FND rate bill
; - one of the auto add Charge Sets must be a FND Billing Rate |
|
| PERDIEM(RT,BT,EVDT) | ; return true (BR ifn) if the charges for the rate and bill type are perdiem charges
; - one of the auto add Charge Sets (except RX or Pros) must be either Tort Liable or Interagency |
|
| EVNTITM(RT,BT,BE,EFDT,ARR) | ; return the billable item (363.3, .04) for a particular Rate Type and Billable Event (399.1) auto added
; EFDT may be passed as 'begin dt^end dt' to get CSs active within a date range, like a bill's date range ; returns: string of billing items (code;name;quantity) separated by ^ (3;NDC #;3^1;BEDSECTION;1) ; for VA Cost, code = 'VA COST' so returns 'VA COST;VA COST;2' ; output (if ARR passed by reference): ARR(billable item code, rate sched IFN, charge set IFN)="" |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE(363 - [#363] | RT+8, RT+9, RT+10, RT+11 |
| ^IBE(363.1 - [#363.1] | CSN+1, CSBI+2, CSBR+2, CSDV+7, RT+13, RT+14, BILLRATE+8, PERDIEM+8, EVNTITM+11 |
| ^IBE(363.3 - [#363.3] | CSBI+2, CSBR+3, BILLRATE+8, PERDIEM+8, EVNTITM+11 |
| ^IBE(363.31 - [#363.31] | CSDV+10, CSDV+11 |
| Name | Line Occurrences |
|---|---|
| CSDVQ | CSDV+7, CSDV+9, CSDV+10, CSDV+11 |
| RT | BILLRATE+4, PERDIEM+4, EVNTITM+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARR | RT~, RT+4!*, RT+15*, EVNTITM~, EVNTITM+5! |
| ARR( | RT+15*, EVNTITM+13* |
| BE | RT~, RT+7*, EVNTITM~, EVNTITM+7 |
| BT | RT~, RT+5*, RT+8, BILLRATE~, BILLRATE+4, PERDIEM~, PERDIEM+4, EVNTITM~, EVNTITM+7 |
| CS | CSBI~, CSBI+2, CSBR~, CSBR+2, CSDV~, CSDV+7 |
| CT | RT~, RT+5*, RT+14 |
| DDIV | CSDV~, CSDV+6*, CSDV+11 |
| DIV | CSDV~, CSDV+6*, CSDV+10, CSDV+11 |
| EFDT | RT~, RT+5*, RT+6, RT+9, EVNTITM~, EVNTITM+7 |
| EVDT | BILLRATE~, BILLRATE+4, PERDIEM~, PERDIEM+4 |
| FNDRATE | BILLRATE~, BILLRATE+6, BILLRATE+9 |
| IBAA | RT+4~, RT+12*, RT+14*, RT+15 |
| IBBE | RT+4~*, RT+7*, RT+8, RT+13 |
| IBBEG | RT+4~, RT+6*, RT+9 |
| IBBEVNT | CSBR+1~, CSBR+2*, CSBR+4, PERDIEM+2~, PERDIEM+9* |
| IBBI | CSBI+1~, CSBI+2*, CSBI+3, EVNTITM+5~, EVNTITM+12*, EVNTITM+13 |
| IBBR | PERDIEM+2~, PERDIEM+8*, PERDIEM+10 |
| IBBR0 | BILLRATE+2~, BILLRATE+8*, BILLRATE+9, EVNTITM+5~, EVNTITM+11*, EVNTITM+12, EVNTITM+13 |
| IBBRFN | CSBR+1~, CSBR+2*, CSBR+3, CSBR+4 |
| IBBRN | PERDIEM+2~, PERDIEM+8*, PERDIEM+10 |
| IBCS | BILLRATE+2~, BILLRATE+7*, BILLRATE+8, PERDIEM+2~, PERDIEM+7*, PERDIEM+8, EVNTITM+5~, EVNTITM+10*, EVNTITM+11, EVNTITM+13 |
| IBCS0 | CSBI+1~, CSBI+2*, CSDV+6~, CSDV+7*, BILLRATE+2~, BILLRATE+8*, PERDIEM+2~, PERDIEM+8*, PERDIEM+9, EVNTITM+5~ , EVNTITM+11* |
| IBCSI | RT+4~, RT+10*, RT+11 |
| IBEND | RT+4~, RT+6*, RT+9 |
| IBFND | BILLRATE+2~*, BILLRATE+6, BILLRATE+7, BILLRATE+9*, BILLRATE+11, PERDIEM+2~*, PERDIEM+6, PERDIEM+7, PERDIEM+10*, PERDIEM+12 , EVNTITM+5~*, EVNTITM+13*, EVNTITM+14 |
| IBLN | CSBR+1~, CSBR+2*, CSBR+4, RT+4~, RT+11*, RT+12, RT+13, RT+14, RT+15 |
| IBLN1 | CSBR+1~, CSBR+3*, CSBR+4 |
| IBRGFN | CSDV+6~, CSDV+7*, CSDV+9, CSDV+10, CSDV+11 |
| IBRS | BILLRATE+2~, BILLRATE+6*, BILLRATE+7, PERDIEM+2~, PERDIEM+6*, PERDIEM+7, EVNTITM+5~, EVNTITM+9*, EVNTITM+10, EVNTITM+13 |
| IBRS0 | RT+4~, RT+9* |
| IBRSARR | BILLRATE+2~, BILLRATE+4, PERDIEM+2~, PERDIEM+4, EVNTITM+5~, EVNTITM+7 |
| IBRSARR( | BILLRATE+6, BILLRATE+7, PERDIEM+6, PERDIEM+7, EVNTITM+9, EVNTITM+10 |
| IBRSFN | RT+4~, RT+8*, RT+9, RT+10, RT+11, RT+15 |
| IBX | CSBI+1~*, CSBI+3*, CSBI+4, CSBR+1~*, CSBR+4*, CSBR+5, CSDV+6~*, CSDV+9*, CSDV+10*, CSDV+11* , CSDVQ |
| N | CSN~, CSN+1 |
| RT | RT~, RT+5*, RT+8, BILLRATE~, BILLRATE+4, PERDIEM~, PERDIEM+4, EVNTITM~, EVNTITM+7 |
| U | CSBI+2, CSBI+3, CSBR+2, CSBR+4, CSDV+7, RT+6, RT+9, RT+12, RT+13, RT+14 , BILLRATE+8, BILLRATE+9, PERDIEM+8, PERDIEM+9, EVNTITM+11, EVNTITM+12, EVNTITM+13 |
| X | CSN+1~*, CSN+2 |
