IBCRCU1 ;ALB/ARH - RATES: CALCULATION UTILITIES ; 22-MAY-1996
Source file <IBCRCU1.m>
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 |
---|---|---|
CSITMS(CS) | ; returns 1 (ITEM) if the CS requires a single billable item or 2 (EVENT) if all active items for date are used
|
|
CSITMSQ | ||
CSALL(CS,EVDT,ARR) | ; returns all items billable on a given effective date for charge sets where all active items are billed (EVENT)
; finds most recent effective date, returns all items active on that date ie. does not check item inactive date ; first get all active items on date then get only those items active on most recent effective date ; Ouput: ARR = chg effective date ; ARR(source item pointer) ="" |
|
CSALLQ | ||
CPTUNITS(CS,UNIT) | ; return raw data returns CPT units based on Charge Set and item
; Input: CS - Charge Set of charge determines Charge Method ; UNIT - total miles/minutes/hours of item ; Output: UNIT or calculated for miles/minutes/hours |
|
CPTUNITQ | ||
CPTMOD(CS,CPT,MODS,DATE) | ; check to see if a CPT-Modifier combination has a charge in this Charge Set, returns "" or CI IFN
; Input MODS is a list of modifiers to check separated by ',' ; Output "" or list of modifiers with active charges in the set on date |
|
CPTMODQ | ||
CHGMOD(IBIFN,CPT,EFFDT,CT) | ; find charges for a procedure and a date for a bill
; returns: count of charges ':' list of charge items ':' list of charge modifiers |
|
CHGMODQ | ||
CPTCHG(IBIFN,CT) | ; return true if bill has auto add CPT charges for the Charge Type passed in (regardless of modifier)
|
|
CPTCHGQ |
Name | Field # of Occurrence |
---|---|
$$CHGOTH^IBCRBC2 | CHGMOD+8 |
CPT^IBCRBG1 | CPTCHG+10 |
$$HRUNIT^IBCRCC | CPTUNITS+8 |
$$MLUNIT^IBCRCC | CPTUNITS+6 |
$$MNUNIT^IBCRCC | CPTUNITS+7 |
$$CSBR^IBCRU3 | CSITMS+3, CPTUNITS+5 |
$$CSDV^IBCRU3 | CHGMOD+7, CPTCHG+20 |
RT^IBCRU3 | CHGMOD+4, CPTCHG+11 |
$$FNDCI^IBCRU4 | CPTMOD+5, CHGMOD+9, CPTCHG+23 |
$$CHKIPB^IBCU7A1 | CPTCHG+22 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGCR(399 - [#399] | CHGMOD+3, CPTCHG+3, CPTCHG+4 |
^IBA(363.2 - [#363.2] | CSALL+10, CSALL+11 |
Name | Line Occurrences |
---|---|
$$CSITMS | CSALL+7 |
CPTCHGQ | CPTCHG+3, CPTCHG+4, CPTCHG+8, CPTCHG+10 |
CPTMODQ | CPTMOD+3 |
CPTUNITQ | CPTUNITS+4 |
CSALLQ | CSALL+6, CSALL+7 |
CSITMSQ | CSITMS+2, CSITMS+3, CSITMS+6, CSITMS+7, CSITMS+8, CSITMS+9, CSITMS+10, CSITMS+11, CSITMS+12, CSITMS+13 , CSITMS+14, CSITMS+15, CSITMS+16, CSITMS+17, CSITMS+18 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARR | CSALL~, CSALL+6!*, CSALL+15* |
ARR( | CSALL+15* |
ARR1 | CSALL+6~ |
ARR1( | CSALL+12*, CSALL+15 |
ARR1("" | CSALL+14 |
ARRCHG | CHGMOD+2~, CHGMOD+9 |
ARRCHG( | CHGMOD+10 |
ARRCPT | CPTCHG+1~, CPTCHG+10 |
ARRCPT( | CPTCHG+16, CPTCHG+17, CPTCHG+19 |
ARRCPT(0 | CPTCHG+10 |
ARRCS | CHGMOD+2~, CHGMOD+4, CPTCHG+1~, CPTCHG+11 |
ARRCS( | CHGMOD+5, CHGMOD+6, CPTCHG+13, CPTCHG+14 |
CPT | CPTMOD~, CPTMOD+3, CPTMOD+5, CHGMOD~, CHGMOD+4, CHGMOD+9 |
CS | CSITMS~, CSITMS+2, CSITMS+3, CSALL~, CSALL+6, CSALL+7, CSALL+9, CPTUNITS~, CPTUNITS+5*, CPTMOD~ , CPTMOD+3, CPTMOD+5 |
CT | CHGMOD~, CHGMOD+3, CPTCHG~, CPTCHG+1*, CPTCHG+7 |
DATE | CPTMOD~, CPTMOD+3, CPTMOD+5 |
EFFDT | CHGMOD~, CHGMOD+4, CHGMOD+8, CHGMOD+9 |
EVDT | CSALL~, CSALL+6*, CSALL+11 |
IB0 | CHGMOD+2~, CHGMOD+3*, CHGMOD+4, CPTCHG+1~, CPTCHG+3*, CPTCHG+5, CPTCHG+11 |
IBBCT | CHGMOD+2~, CHGMOD+3*, CHGMOD+4, CPTCHG+1~, CPTCHG+5*, CPTCHG+7 |
IBBDV | CHGMOD+2~, CHGMOD+3*, CHGMOD+4, CHGMOD+7 |
IBBEVNT | CSITMS+2~, CSITMS+4*, CSITMS+6, CSITMS+7, CSITMS+8, CSITMS+9, CSITMS+10, CSITMS+11, CSITMS+12, CSITMS+13 , CSITMS+14, CSITMS+15, CSITMS+16, CSITMS+17, CSITMS+18 |
IBBILLDV | CPTCHG+1~, CPTCHG+5*, CPTCHG+20 |
IBBLITEM | CSITMS+2~, CSITMS+4*, CSITMS+6, CSITMS+7, CSITMS+8, CSITMS+9, CSITMS+11, CSITMS+13, CSITMS+14, CSITMS+15 , CSITMS+16, CSITMS+17, CSITMS+18 |
IBCHGMTH | CSITMS+2~, CSITMS+4*, CSITMS+6, CSITMS+7, CSITMS+8, CSITMS+9, CSITMS+10, CSITMS+11, CSITMS+12, CSITMS+13 , CSITMS+14, CSITMS+15, CSITMS+16, CSITMS+17, CSITMS+18, CPTUNITS+4~, CPTUNITS+5*, CPTUNITS+6, CPTUNITS+7, CPTUNITS+8 |
IBCIS | CHGMOD+2~*, CHGMOD+10*, CHGMOD+11 |
IBCPT | CPTCHG+1~, CPTCHG+16*, CPTCHG+17, CPTCHG+19, CPTCHG+22, CPTCHG+23 |
IBCPT0 | CPTCHG+1~, CPTCHG+19*, CPTCHG+20, CPTCHG+23 |
IBCPTDA | CPTCHG+1~, CPTCHG+17*, CPTCHG+19 |
IBCS | CHGMOD+2~, CHGMOD+6*, CHGMOD+7, CHGMOD+9, CPTCHG+1~, CPTCHG+14*, CPTCHG+20, CPTCHG+23 |
IBCSBR | CSITMS+2~, CSITMS+3*, CSITMS+4, CPTUNITS+4~, CPTUNITS+5* |
IBCT | CPTCHG+1~, CPTCHG+7*, CPTCHG+8, CPTCHG+11, CPTCHG+22 |
IBEVDT | CSALL+6~, CSALL+11*, CSALL+12, CSALL+14*, CSALL+15 |
IBFND | CHGMOD+2~*, CHGMOD+9*, CHGMOD+11*, CHGMODQ, CPTCHG+1~*, CPTCHG+13, CPTCHG+14, CPTCHG+16, CPTCHG+17, CPTCHG+22* , CPTCHG+23*, CPTCHGQ |
IBI | CPTMOD+3~, CPTMOD+4* |
IBIFN | CHGMOD~, CHGMOD+3, CHGMOD+8, CPTCHG~, CPTCHG+3, CPTCHG+4, CPTCHG+10 |
IBITM | CSALL+6~, CSALL+10*, CSALL+11, CSALL+12, CSALL+15* |
IBMOD | CPTMOD+3~, CPTMOD+4*, CPTMOD+5 |
IBMODS | CHGMOD+2~*, CHGMOD+10*, CHGMOD+11 |
IBRS | CHGMOD+2~, CHGMOD+5*, CHGMOD+6, CHGMOD+8, CPTCHG+1~, CPTCHG+13*, CPTCHG+14 |
IBU | CHGMOD+2~, CHGMOD+3*, CHGMOD+4, CPTCHG+1~, CPTCHG+4*, CPTCHG+11 |
IBUNITS | CPTUNITS+4~*, CPTUNITS+6*, CPTUNITS+7*, CPTUNITS+8*, CPTUNITQ |
IBX | CSITMS+2~*, CSITMS+6*, CSITMS+7*, CSITMS+8*, CSITMS+9*, CSITMS+10*, CSITMS+11*, CSITMS+12*, CSITMS+13*, CSITMS+14* , CSITMS+15*, CSITMS+16*, CSITMS+17*, CSITMS+18*, CSITMSQ, CPTMOD+3~*, CPTMOD+5*, CPTMODQ, CHGMOD+2~, CHGMOD+10* |
IBXRF | CSALL+6~, CSALL+9*, CSALL+10, CSALL+11 |
IBY | CPTMOD+3~*, CPTMOD+5* |
MODS | CPTMOD~, CPTMOD+3, CPTMOD+4 |
U | CSITMS+4, CPTUNITS+5, CHGMOD+3, CHGMOD+4, CHGMOD+10, CPTCHG+5, CPTCHG+11, CPTCHG+20, CPTCHG+23 |
UNIT | CPTUNITS~, CPTUNITS+4, CPTUNITS+6, CPTUNITS+7, CPTUNITS+8 |