IBCRU3 ;ALB/ARH - RATES: UTILITIES (CS/BR) ;22-MAY-1996
Source file <IBCRU3.m>
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)="" |