Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBCRBC2

Package: Integrated Billing

Routine: IBCRBC2


Information

IBCRBC2 ;ALB/ARH - RATES: BILL CALCULATION OF ITEM CHARGE ; 22-MAY-1996

Source Information

Source file <IBCRBC2.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Integrated Billing 6 ($$MODCHG,$$PRVCHG,$$RATECHG,ITMCHG)^IBCRCC  ($$CPTUNITS,CSALL)^IBCRCU1  $$MCCRUTL^IBCRU1  $$RVLNK^IBCRU6  ($$RSOTHER,$$VERSDT)^IBCRU8  $$BOTHER^IBCU3  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Integrated Billing 4 IBCRBC1  IBCRBC11  IBCRCI  IBCRCU1  

Entry Points

Name Comments DBIA/ICR reference
CHGOTHQ
CPTUNITS(CS,CHGMTH,ITLINE) ; return CPT units based on Charge Method and CPT data
; Input: CS is the related Charge Set
; CHGMTH is the Rate Schedule Charge Method (363.3, .05)
; ITLINE is item data from CPT^IBCRBG1
; Output: calculated units for CPT, 1 or calculated for miles/minutes/hours
BITMCHG(RS,CS,ITEM,EVDT,UNITS,MOD,INSRC,IDFRC,SAVE) ; get bill charges for a specific item, rate schedule and charge set and date set into temp array
CHGOTH(IBIFN,RS,EVDT) ; check if the Rate Schedule charges are applicable to the event date for the bill
; this is relevent to RC v2.0 and type of care of Other
; both Rate Schedule is SNF and event date is SNF care or neither can be otherwise no charge
; SNF charges can't be used for non-SNF care and non-SNF charges can't be used for SNF care
; Output: returns true if charges and bill date are of same type, SNF or non-SNF
ALLBEDS(RS,CS,EVDT,RC,DFRC,SAVE) ; get charges for all bedsections active on date of visit
; each effective date supercedes all previous effective date, regardless of the item
; used for per diem rates where the charges are associated with a bedsection, but the item being billed is not
; a bedsection, so the count of the item on the bill is found and applied as the units to all bedsections active
; on the event date (the 3 opt visit dates on a bill are the units for the Outpatient Visit bedsection charge)
CHGICU(CS,BS) ; check if charge and bedsection match relative to ICU RC 2.0+, compares Charge Set Name and Bedsection
; both the charge set and the bedsection have to be ICU or neither of them can be ICU otherwise no charge
; ICU charges can't be used with non-ICU bedsections and non-ICU charges can't be used with ICU bedsection
; Output: returns true if charges and bedsection are of same type, ICU or non-ICU
COMMENT(LINE,COMM) ; set comment into charge array for a particular line item
COMMUB(CS,UNITS,BASE) ; return comment for special units and base

External References

Name Field # of Occurrence
$$MODCHG^IBCRCC BITMCHG+25
$$PRVCHG^IBCRCC BITMCHG+24
$$RATECHG^IBCRCC BITMCHG+27
ITMCHG^IBCRCC BITMCHG+10
$$CPTUNITS^IBCRCU1 CPTUNITS+9
CSALL^IBCRCU1 ALLBEDS+8
$$MCCRUTL^IBCRU1 CHGICU+5
$$RVLNK^IBCRU6 BITMCHG+19
$$RSOTHER^IBCRU8 CHGOTH+9
$$VERSDT^IBCRU8 CHGOTH+6
$$BOTHER^IBCU3 CHGOTH+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(363.1 - [#363.1] BITMCHG+6, COMMUB+2, CHGICU+6
^IBE(363.3 - [#363.3] BITMCHG+7, COMMUB+2
^TMP($J BITMCHG+12, BITMCHG+29*, BITMCHG+30*, COMMENT+1, COMMENT+2, COMMENT+3*

Label References

Name Line Occurrences
$$COMMUB BITMCHG+32
BITMCHG ALLBEDS+11
CHGOTHQ CHGOTH+6, CHGOTH+7
COMMENT BITMCHG+32, BITMCHG+33, BITMCHG+34, BITMCHG+35

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BASE COMMUB~, COMMUB+5
BS CHGICU~, CHGICU+4*, CHGICU+9, CHGICU+10
CHGMTH CPTUNITS~, CPTUNITS+5*, CPTUNITS+6, CPTUNITS+7, CPTUNITS+8
COMM COMMENT~, COMMENT+3
CS BITMCHG~, BITMCHG+3, BITMCHG+6, BITMCHG+10, BITMCHG+19, BITMCHG+24, BITMCHG+25, BITMCHG+30, BITMCHG+32, COMMUB~
, COMMUB+2, ALLBEDS~, ALLBEDS+6, ALLBEDS+8, ALLBEDS+11, CPTUNITS~, CPTUNITS+5*, CPTUNITS+9, CHGICU~, CHGICU+6
DFRC ALLBEDS~, ALLBEDS+11
DT BITMCHG+5
EVDT BITMCHG~, BITMCHG+5*, BITMCHG+10, BITMCHG+24, BITMCHG+27, BITMCHG+30, ALLBEDS~, ALLBEDS+6, ALLBEDS+8, ALLBEDS+11
, CHGOTH~, CHGOTH+6, CHGOTH+10
IBACHRG BITMCHG+2~, BITMCHG+27*, BITMCHG+30
IBBASE BITMCHG+3~, BITMCHG+16*, BITMCHG+23, BITMCHG+32
IBBS BITMCHG+2~, BITMCHG+7*, BITMCHG+8, BITMCHG+30
IBCHGARR BITMCHG+2~, BITMCHG+10
IBCHGARR( BITMCHG+13, BITMCHG+16
IBCHRG BITMCHG+2~, BITMCHG+16*, BITMCHG+22*, BITMCHG+23*, BITMCHG+24, BITMCHG+26*, BITMCHG+30
IBCI BITMCHG+2~, BITMCHG+16*, BITMCHG+30
IBCM COMMUB+1~, COMMUB+2*, COMMUB+3*, COMMUB+4
IBCNT BITMCHG+2~, BITMCHG+12*, BITMCHG+29*, BITMCHG+30, BITMCHG+32, BITMCHG+33, BITMCHG+34, BITMCHG+35
IBCOM BITMCHG+3~, BITMCHG+32*, BITMCHG+33*, BITMCHG+34*, BITMCHG+35*
IBCS0 BITMCHG+2~, BITMCHG+6*, BITMCHG+7
IBCSICU CHGICU+4~*, CHGICU+7*, CHGICU+9, CHGICU+10
IBCSN CHGICU+4~, CHGICU+6*, CHGICU+7
IBDRVCD BITMCHG+2~, BITMCHG+6*, BITMCHG+19
IBDTTY CHGOTH+5~*, CHGOTH+10*, CHGOTH+12, CHGOTH+13
IBI BITMCHG+2~, BITMCHG+13*, BITMCHG+16
IBICU CHGICU+4~, CHGICU+5*, CHGICU+9, CHGICU+10
IBIFN CHGOTH~, CHGOTH+7, CHGOTH+10
IBITEMS ALLBEDS+6~, ALLBEDS+8, ALLBEDS+10
IBITEMS( ALLBEDS+10
IBITM ALLBEDS+6~, ALLBEDS+10*, ALLBEDS+11
IBLN BITMCHG+2~, BITMCHG+16*, BITMCHG+18
IBMCHRG BITMCHG+3~, BITMCHG+25*, BITMCHG+26, BITMCHG+34
IBMODS BITMCHG+3~, BITMCHG+6*, BITMCHG+25
IBOK CHGOTH+5~*, CHGOTH+12*, CHGOTH+13*, CHGOTHQ, CHGICU+4~*, CHGICU+6*, CHGICU+9*, CHGICU+10*, CHGICU+11
IBPCHRG BITMCHG+2~, BITMCHG+16*, BITMCHG+24*, BITMCHG+25, BITMCHG+33
IBPPRV BITMCHG+2~, BITMCHG+6*, BITMCHG+24
IBRCHRG BITMCHG+2~, BITMCHG+16*, BITMCHG+27*, BITMCHG+35
IBRSTY CHGOTH+5~*, CHGOTH+9*, CHGOTH+12, CHGOTH+13
IBRVCD BITMCHG+2~, BITMCHG+18*, BITMCHG+19*, BITMCHG+20*, BITMCHG+30
IBTCHRG BITMCHG+2~, BITMCHG+26*, BITMCHG+27, BITMCHG+30
IBUNIT CPTUNITS+5~*, CPTUNITS+6*, CPTUNITS+7*, CPTUNITS+8*, CPTUNITS+9*, CPTUNITS+10
IBX COMMENT+1~, COMMENT+2*, COMMENT+3, COMMUB+1~*, COMMUB+4*, COMMUB+5*, COMMUB+6
IBY COMMUB+1~*, COMMUB+4*, COMMUB+5
IDFRC BITMCHG~, BITMCHG+5*, BITMCHG+20
INSRC BITMCHG~, BITMCHG+5*, BITMCHG+18
ITEM BITMCHG~, BITMCHG+3, BITMCHG+7, BITMCHG+10, BITMCHG+19, BITMCHG+24, BITMCHG+30
ITLINE CPTUNITS~, CPTUNITS+5*, CPTUNITS+6, CPTUNITS+7, CPTUNITS+8
LINE COMMENT~, COMMENT+1, COMMENT+2, COMMENT+3
MOD BITMCHG~, BITMCHG+5*, BITMCHG+10, BITMCHG+30
RC ALLBEDS~, ALLBEDS+11
RS BITMCHG~, BITMCHG+5*, BITMCHG+27, BITMCHG+30, ALLBEDS~, ALLBEDS+11, CHGOTH~, CHGOTH+7, CHGOTH+9
SAVE BITMCHG~, BITMCHG+5*, BITMCHG+6, BITMCHG+7, BITMCHG+30, ALLBEDS~, ALLBEDS+11
U BITMCHG+6, BITMCHG+7, BITMCHG+16, BITMCHG+18, BITMCHG+19, BITMCHG+30, BITMCHG+33, BITMCHG+34, BITMCHG+35, COMMUB+2
, CPTUNITS+6, CPTUNITS+7, CPTUNITS+8, CHGICU+7
UNITS BITMCHG~, BITMCHG+3, BITMCHG+22, BITMCHG+30, BITMCHG+32, COMMUB~, COMMUB+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All