Routine: IBCU3

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

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
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
BDT(DFN,DATE)	; returns primary bill defined for an event date, "" if none
BDTE
BILLED(PTF)	;returns bill "IFN^^rate group" if PTF record is already associated with an uncancelled final bill
BILLEDQ
FTN(FT)	;returns name of the form type passed in, "" if not defined
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
FTQ
FNT(FTN)	;returns the ifn of the form type name passed in, must be exact match, 0 if none found
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
RXDUP(RX,DATE,IFN,DISP,DFN,RTG)	;returns bill ifn if rx # exists on another bill
RXDUPE
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 #)=""
BINS(IBIFN)	; return list of billable insurance carriers on a bill (COB) ; output: sequence:carrier:policy ^ sequence:carrier:policy ^ sequence:carrier:policy
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

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~

Customize PDF page

Package: Integrated Billing

Routine: IBCU3

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 38

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: