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

Package: Integrated Billing

Routine: IBCRBG2


Information

IBCRBG2 ;ALB/ARH - RATES: BILL SOURCE EVENTS (INPT CONT) ; 01-OCT-03

Source Information

Source file <IBCRBG2.m>

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Integrated Billing 3 IBCRBG  IBCRBH1  IBJDB21  

Entry Points

Name Comments DBIA/ICR reference
INPTRSET(IBIFN,CS) ; reset Inpatient data due to bedsection Tort 03 and Other Type of Care RC v2.0
; (based on INPTPTF since that deals with timeframe and end of bill)
INPTBS(IBIFN,RC) ; with output from INPTPTF^IBCRBG, reset bedsections due to changes with Tort 03 and RC
; - Some Specialties are changed to PRRTP bedsection (beginning with Tort 03)
; - Some Specialties are changed to ICU bedsection for RC only (beginning with RC v2.0)
; - Nursing Home Care and Observation bedsections are not billable with RC DRG (per diem) so remove DRG
; (based on INPTPTF since that deals with timeframe and end of bill)
INPTOTH(IBIFN,RC) ; with output from INPTPTF^IBCRBG, reset Other type of care and Tort 03 changes
; - If type of care is Other then bedsection is replaced and DRG deleted (began with RC v2.0)
; (based on INPTPTF since that deals with timeframe and end of bill)
BSUPD(SPCLTY,DATE,RC) ; return updated bedsection name for specialty passed in (42.4 ifn)
; beginning with TORT 2003 some specialties were moved to new PRRTP bedsection
; beginning with RC v2.0 some specialties were moved to a new ICU bedsection, only applies to RC charges
TORT03() ; return effective date of TORT 2003, date when PRRTP bedsection specialties changed
TORT11() ; return effective date when POLYTRAUMA bedsection specialty changed
RC20() ; return effective date of RC v2.0, date when ICU bedsection specialties changed
NODRG(SPCLTY) ; return specialty ifn followed by bedsection name if the specialty should not be charged a DRG charge

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] INPTOTH+5, INPTOTH+6
^DGCR(399.1 - [#399.1] BSUPD+7
^IBE(363.1 - [#363.1] INPTRSET+2
^TMP($J INPTBS+8, INPTBS+9, INPTBS+16*, INPTOTH+11, INPTOTH+12, INPTOTH+17*

Label References

Name Line Occurrences
$$BSUPD INPTBS+13
$$NODRG INPTBS+14
$$RC20 INPTOTH+13, BSUPD+6
$$TORT03 BSUPD+4
$$TORT11 BSUPD+5
INPTBS INPTRSET+4
INPTOTH INPTRSET+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CS INPTRSET~, INPTRSET+2
DATE BSUPD~, BSUPD+3*, BSUPD+4, BSUPD+5, BSUPD+6
DT BSUPD+3
IBBS INPTOTH+4~, INPTOTH+9*, INPTOTH+16
IBCGTY INPTBS+6~
IBDT INPTBS+6~, INPTBS+8*, INPTBS+9, INPTBS+13, INPTBS+16, INPTOTH+4~, INPTOTH+11*, INPTOTH+12, INPTOTH+13, INPTOTH+17
IBDT1 INPTOTH+4~, INPTOTH+7*, INPTOTH+8, INPTOTH+11
IBDT2 INPTOTH+4~, INPTOTH+7*, INPTOTH+8*, INPTOTH+11
IBIFN INPTRSET~, INPTRSET+4, INPTRSET+5, INPTBS~, INPTOTH~, INPTOTH+5, INPTOTH+6
IBLN INPTBS+6~, INPTBS+9*, INPTBS+10, INPTBS+12, INPTOTH+4~, INPTOTH+12*, INPTOTH+15
IBNBS INPTBS+6~, INPTBS+13*, INPTBS+15
IBNDRG INPTBS+6~, INPTBS+14*, INPTBS+15
IBNLN INPTBS+6~, INPTBS+12*, INPTBS+13*, INPTBS+14*, INPTBS+16, INPTOTH+4~, INPTOTH+15*, INPTOTH+16*, INPTOTH+17
IBOT INPTOTH+4~, INPTOTH+5*, INPTOTH+6
IBOTLN INPTOTH+4~, INPTOTH+6*, INPTOTH+7, INPTOTH+9
IBRC INPTRSET+2~*, INPTRSET+4, INPTRSET+5
IBS NODRG+1~*, NODRG+2, NODRG+3
IBSPCLTY INPTBS+6~, INPTBS+10*, INPTBS+13, INPTBS+14
IBX BSUPD+3~*, BSUPD+4*, BSUPD+5*, BSUPD+6*, BSUPD+7, NODRG+1~*, NODRG+2*, NODRG+3*, NODRG+4
IBY BSUPD+3~, BSUPD+7*
IBZ BSUPD+3~*, BSUPD+7*, BSUPD+8
RC INPTBS~, INPTBS+13, INPTOTH~, INPTOTH+4, BSUPD~, BSUPD+6
SPCLTY BSUPD~, BSUPD+3*, BSUPD+4, BSUPD+5, BSUPD+6, NODRG~, NODRG+1, NODRG+2, NODRG+3
U INPTBS+10, INPTBS+13, INPTBS+14, INPTOTH+7, INPTOTH+16, BSUPD+7
Info |  Source |  Caller Graph |  Entry Points |  Global Variables Directly Accessed |  Label References |  Local Variables  | All