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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBCU3

Package: Integrated Billing

Routine: IBCU3


Information

IBCU3 ;ALB/AAS - BILLING UTILITY ROUTINE (CONTINUED) ; 4/4/03 8:49am

Source Information

Source file <IBCU3.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Integrated Billing 2 $$DAT1^IBOUTL  SCAN^IBSDU  
Registration 1 ELIG^VADPT  

Caller Graph

Caller Graph Total: 38

Package Total Caller Graph
Integrated Billing 38 IBACUS2  IBCA  IBCA2  IBCAPP  IBCAPR1  IBCBULL  IBCCCB0  IBCD1  
IBCD2  IBCD5  IBCEMCA3  IBCF  IBCF13  IBCF2  IBCF3  IBCFP1  
IBCRBC1  IBCRBC2  IBCSC10  IBCSC102  IBCSC10H  IBCSC5A  IBCSC5C  IBCU41  
IBCU63  IBJTCA2  IBNCPDP2  IBOA32  IBOHDT1  IBOHLD2  IBOHPT2  IBRFN3  
IBXS6  IBXS7  IBXSC6  IBXSC73  IBXX19  ^DGCR(399  

Entry Points

Name Comments DBIA/ICR reference
FTQ
BILLEDQ
RXDUPE
BINS(IBIFN) ; return list of billable insurance carriers on a bill (COB)
; output: sequence:carrier:policy ^ sequence:carrier:policy ^ sequence:carrier:policy
BCOB(IBIFN,IBCOB) ; returns an array of all bills related COB to the bill passed in
; includes prior bills defined on this bill then checks the Primary, Secondary and Tertiary Bills and adds
; all the prior bills defined on them
; ARR(BILL SEQUENCE (1,2,3), INSURANCE CO, BILL #)=""
SC(DFN) ; returns 1 if service connection indicated, 0 otherwise (based on VAEL(3))
APPT(DATE,DFN,DISP) ;Check date to see if patient has any visit data
APPTE
FNT(FTN) ;returns the ifn of the form type name passed in, must be exact match, 0 if none found
BILLED(PTF) ;returns bill "IFN^^rate group" if PTF record is already associated with an uncancelled final bill
BDT(DFN,DATE) ; returns primary bill defined for an event date, "" if none
BDTE
RXDUP(RX,DATE,IFN,DISP,DFN,RTG) ;returns bill ifn if rx # exists on another bill
BILLDEV(IFN,PRT) ;returns the default device for a bill's form type, if PRT is passed as true then returns the AR follow up device, otherwise the billing device
FT(IFN,IBRESET) ;return the correct form type for a bill (trigger code in 399 to set .19)
; if IBRESET is not a positive value ('IBRESET), returns the bills current form type (if defined)
; if IBRESET is a positive value (+IBRESET), interpret form type according to following rules (for triggers):
; first use if bill is inst (UB) or prof (1500) (399,.27), then current (399,.19), then UB
BOTHER(IBIFN,IBDT) ; return Bedsection of Type of Care if date is Other Type of care, based on "OT" multiple
; Other care is not inpatient or outpatient, SNF and Sub-Acute became distinct with RC v2.0
; as with all other bedsection movements, the last date is not included since that is the date they left
FTN(FT) ;returns name of the form type passed in, "" if not defined

External References

Name Field # of Occurrence
$$DAT1^IBOUTL RXDUP+13
SCAN^IBSDU APPT+14
ELIG^VADPT SC+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?10,*7,$P(Y,U,2)
  • Line Location: APPTE+0
Function Call: WRITE
  • Prompt: !,?10,$P(X,U,2)
  • Line Location: RXDUPE+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] BDT+1, BDT+2, BDT+3, BILLED+2, BILLED+3, BILLED+4, BILLED+5, FT+5, BILLDEV+1, RXDUP+7
, RXDUP+9, BCOB+6, BCOB+9, BCOB+10, BINS+2, BOTHER+4, BOTHER+5
^DGCR(399.3 - [#399.3] RXDUP+13
^DIC(36 - [#36] BINS+4
^DPT - [#2] APPT+10
^IBA(362.4 - [#362.4] RXDUP+8
^IBE(353 - [#353] FTN+1, FNT+1, BILLDEV+1
^TMP("DIERR" APPT+14!

Label References

Name Line Occurrences
$$FT BILLDEV+1
APPTE APPT+10
BDTE BDT+1
BILLEDQ BILLED+2
FTQ FT+7
RXDUPE RXDUP+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BIFN RXDUP+6~, RXDUP+9*, RXDUP+13
BLN RXDUP+6~, RXDUP+9*, RXDUP+10, RXDUP+11, RXDUP+12, RXDUP+13
DATE APPT~, APPT+9*, APPT+10, APPT+12, BDT~, BDT+1, BDT+2*, BDT+3, RXDUP~, RXDUP+6*
, RXDUP+8, RXDUP+13
DFN SC~, SC+2, APPT~, APPT+10, APPT+12, BDT~, BDT+1, BDT+2, BDT+3, RXDUP~
, RXDUP+7*, RXDUP+11
DISP APPT~, APPTE, RXDUP~, RXDUPE
FT FTN~, FTN+1
FTC FT+4~, FT+6*, FT+7, FT+10, FT+11
FTN FNT~, FNT+1
FTT FT+4~, FT+8*, FT+10, FT+11
IBC BINS+2~, BINS+3*, BINS+4
IBCBK APPT+11~, APPT+13*, APPT+14
IBCOB BCOB~, BCOB+5!
IBCOB( BCOB+12*, BCOB+13*, BCOB+15!
IBDT BOTHER~, BOTHER+3*, BOTHER+4, BOTHER+6, BOTHER+7
IBFND BOTHER+3~*, BOTHER+6*, BOTHER+7*, BOTHER+8
IBI BCOB+5~, BCOB+7*, BCOB+15*, BINS+2~*, BINS+3*, BINS+4
IBIFN BCOB~, BCOB+6, BCOB+7, BCOB+9, BINS~, BINS+2, BOTHER~, BOTHER+4, BOTHER+5
IBIFN1 BCOB+5~, BCOB+7*, BCOB+9, BCOB+10, BCOB+13
IBJ BCOB+5~, BCOB+12*, BCOB+15*
IBM BCOB+5~, BCOB+9*, BCOB+12, BCOB+13
IBM0 BINS+2~*, BINS+3, BINS+4
IBM1 BCOB+5~, BCOB+6*, BCOB+7
IBM11 BCOB+5~, BCOB+9*, BCOB+12
IBP BINS+2~, BINS+4*
IBRESET FT~, FT+7
IBS BINS+2~, BINS+3*, BINS+4
IBSEQ BCOB+5~, BCOB+10*
IBSEQN BCOB+5~, BCOB+10*, BCOB+13
IBVAL APPT+11~, APPT+14
IBVAL("BDT" APPT+12*
IBVAL("DFN" APPT+12*
IBVAL("EDT" APPT+12*
IBVTYP APPT+11~, APPT+15*, APPT+16
IBVTYP(0 APPT+15
IBX BINS+2~*, BINS+4*, BINS+5, BOTHER+3~, BOTHER+4*, BOTHER+5
IBY BOTHER+3~, BOTHER+5*, BOTHER+6, BOTHER+7
IFN BILLED+2~, BILLED+3*, BILLED+4, BILLED+5, FT~, FT+5*, BILLDEV~, BILLDEV+1, RXDUP~, RXDUP+6*
, RXDUP+7, RXDUP+9
LN RXDUP+6~, RXDUP+7*
PRT BILLDEV~, BILLDEV+1*
PTF BILLED~, BILLED+2, BILLED+3
RIFN RXDUP+6~*, RXDUP+8*
RLN RXDUP+6~, RXDUP+8*, RXDUP+9
RTG RXDUP~, RXDUP+7*, RXDUP+12
RX RXDUP~, RXDUP+6*, RXDUP+8, RXDUP+13
U APPTE, BDT+3, BILLED+3, BILLED+4, BILLED+5, FTN+1, FT+6, FT+8, BILLDEV+1, RXDUP+7
, RXDUP+8, RXDUP+9, RXDUP+10, RXDUP+11, RXDUP+12, RXDUP+13, RXDUPE, BCOB+7, BCOB+9, BCOB+10
, BCOB+12, BCOB+13, BINS+3, BINS+4, BOTHER+6, BOTHER+7
VAEL SC+1~
VAEL(3 SC+2
VAERR SC+1~
X SC+1~*, SC+2*, SC+3, APPT+9~, BDT+1~*, BDT+3*, BDTE, BILLED+2~, BILLED+4*, BILLED+5
, FTN+1~*, FTN+2, FT+4~, FT+5*, FT+7*, FT+11*, FTQ, FNT+1~*, FNT+2, BILLDEV+1~*
, BILLDEV+2, RXDUP+6~*, RXDUP+8, RXDUP+13*, RXDUPE, RXDUPE+1
X1 APPT+9~
X2 APPT+9~
Y APPT+9~*, APPT+10*, APPT+16*, APPTE, APPTE+1, BDT+1~, BDT+2*, BDT+3, BILLED+2~*, BILLED+3
, BILLED+5*, BILLEDQ, FT+4~, FT+5*, FT+6, FT+8, FNT+1~, BILLDEV+1~*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All