Routine: IBTUBOU

Package	Total	Call Graph
Integrated Billing	5	$$BILLCK^IBAMTEDU $$PTCOV^IBCNSU3 ($$M1,E)^IBJDE ($$DAT2,$$DAT3)^IBOUTL ($$SCE,SCAN)^IBSDU
VA FileMan	4	C^%DTC ^DIE $$GET1^DIQ ^DIR
Scheduling	1	GETGEN^SDOE

Package	Total	Caller Graph
Integrated Billing	8	IBJDB21 IBTUBAV IBTUBO IBTUBO1 IBTUBO2 IBTUBOA IBTUBUL IBTUTL5

Entry Points

Name	Comments	DBIA/ICR reference
DT1	; - Select date range (returns variables IBBDT and IBEDT).
DT1Q
DT2(STR)	; - Select re-compile date (returns variable IBTIMON). ; Input: STR - String that describe the type of data that will be ; re-compiled: "Unbilled Amounts", "Average Bill Amounts", etc...
DT2Q
YR2(D)	; - Return a date two years from date D.
YR2Q
COV(P,E,T)	; - Check if patient has insurance coverage. ; Input: P=patient IEN, E=event date, ; T=1-inpatient/2-outpatient/3-pharmacy ; Output: Y=1-patient has coverage/0-no coverage or unknown
COVQ
PTCHK(DFN,IBNODE)	; - See if patient has a non-veteran eligibility. ; Input: DFN=patient IEN ; IBNODE=zero node to CT entry ; Output: IBFLAG=0-nonbillable, 1-billable
PTCKQ
NCCL(ENC)	; - Check if Encounter is NON-COUNT CLINIC ; Input: ENC = Pointer to the ENCOUNTER file (#409.69) ; Output: NCCL= 1 - NON-COUNT CLINIC / 0 - NO NON-COUNT CLINIC
HOSP(ADM)	; Is the patient still hospitalized (not discharged)? ; Input: ADM = Pointer to the PATIENT MOVEMENT file (#405)
CKBIL(X,Y)	; - Return valid claim data. ; Input: X=IEN from file #399, Y=0-outpatient, 1-inpatient ; Output: Z=rate^status^auth date^1-inst claim/2-prof claim^ ; event date (if Y=1), or null^req MRA date
CKBL1
CKBLQ
CKENC(IBOE,IBOE0,IBQUIT)	; - Check outpatient encounters.
SCAN(DFN,IBDT,IBQUERY)	; - Look at all visits for a day.
SC(PTF)	; - If patient is SC, are movements for SC care. ; Input: PTF=PTF record ; Output: IBM=1-all movements PTF, 0-one or more not flagged as SC
SCQ
LD(L,M)	; - Load average/unbilled totals into file #356.19 ; Input: L=1-average (mon), 2-average (12m), 3-unbilled ; M=file #356.19 IEN
LDQ
XTRACT	; - Calculate remaining extract totals and load into file #351.71 ; - Set IB with the average and total amounts and call E^IBJDE
INPAVG(IBYRMO)	; - Calculate the Average Inpatient INST. & PROF. Billed Amounts ; Input: IBYRMO - YEAR/MONTH (YYYMM00) being calculated/updated ; Output: Avg.Inpt.Inst.Bill Amount ^ Avg.Inpt.Prof. Bill Amount
NOTRX(BILL)	; - Determine if bill contains outpatient visit (use this check ; to make sure not just rx bill returns one if contains a revenue ; code for outpatient visit or a zero if no outpatient visit code ; on bill).
NOTRXQ
MCCFCKX(FILE,IEN,FLD,ND)	;JRA;IB2.0608 Check if Eligibility of Encounter, Appointment Type, and Rate Type meet MCCF/non-MCCF criteria

External References

Name	Field # of Occurrence
C^%DTC	YR2+1
^DIE	LD+6
$$GET1^DIQ	MCCFCKX+4
^DIR	DT1+12, DT1+24, DT2+13
$$BILLCK^IBAMTEDU	CKENC+4
$$PTCOV^IBCNSU3	COV+6
$$M1^IBJDE	DT2+7
E^IBJDE	XTRACT+11
$$DAT2^IBOUTL	DT2+6, DT2+7
$$DAT3^IBOUTL	DT1+3, DT1+13, DT1+15
$$SCE^IBSDU	PTCHK+6, NCCL+4
SCAN^IBSDU	SCAN+4
GETGEN^SDOE	CKENC+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " ??" Line Location: DT2+14
Routine Call	DIE Line Location: LD+6
Routine Call	DIR Line Location: DT1+12 DT1+24 DT2+13

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBE(356.19 - [#356.19]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	CKBIL+5, CKBIL+11, CKBIL+17, NOTRX+5, NOTRX+6
^DGCR(399.1 - [#399.1]	NOTRX+6
^DGPM - [#405]	HOSP+5
^DGPT - [#45]	SC+3, SC+4, SC+5
^DIC(8 - [#8]	PTCHK+6
^DPT - [#2]	PTCHK+5
^IBE(356.19 - [#356.19]	INPAVG+5, INPAVG+6, INPAVG+8
^IBT(356 - [#356]	DT1+2
^SC - [#44]	NCCL+5

Label References

Name	Line Occurrences
$$INPAVG	XTRACT+3
$$MCCFCKX	CKBIL+15
$$NOTRX	CKBIL+7
CKBL1	CKBIL+18
CKBLQ	CKBIL+4, CKBIL+5, CKBIL+6, CKBIL+7, CKBIL+8, CKBIL+9, CKBIL+10, CKBIL+12, CKBIL+13, CKBIL+15 , CKBIL+20
COVQ	COV+4
DT1Q	DT1+12, DT1+24
DT2	DT2+14
DT2Q	DT2+13
LDQ	LD+3
NOTRXQ	NOTRX+5
PTCKQ	PTCHK+4
SCQ	SC+3
YR2Q	YR2+1

Naked Globals

Name	Field # of Occurrence
^("VET"	PTCHK+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADM	HOSP~, HOSP+5
AVGI	INPAVG+4~, INPAVG+7, INPAVG+9, INPAVG+11
AVGP	INPAVG+4~, INPAVG+7, INPAVG+10, INPAVG+11
AVGS	XTRACT+2~, XTRACT+3*, XTRACT+4, XTRACT+5
BILL	NOTRX~, NOTRX+5, NOTRX+6
D	YR2~, YR2+1
DA	LD+4*, LD+6!
DFN	PTCHK~, PTCHK+4, PTCHK+5, CKBIL+6, SCAN~, SCAN+2
DIE	LD+4*, LD+6!
DIR	DT1+12!, DT1+24!, DT2+13!
DIR("?"	DT1+5, DT1+6, DT1+7, DT1+8, DT1+9, DT1+10, DT1+11, DT1+17, DT1+18, DT1+19 , DT1+20, DT1+21, DT1+22, DT1+23, DT2+10, DT2+11, DT2+12*
DIR("A"	DT1+4, DT1+16, DT2+9*
DIR("B"	DT1+3, DT1+15, DT2+7*
DIR(0	DT1+4, DT1+16, DT2+8*
DIRUT	DT2+4~, DT2+13
DR	LD+5*, LD+6!
DT	DT1+4, DT1+15, DT1+16, DT2+7
DT0	DT1+1~, DT1+2, DT1+3, DT1+4, DT2+4~, DT2+6, DT2+8
DT1	DT1+1~, DT1+2, DT1+3, DT1+9, DT1+13, DT1+18, DT1+19, DT1+22, DT2+4~, DT2+6 , DT2+11
DT2	DT2+4~, DT2+7*, DT2+8
DTOUT	DT1+1~, DT1+12, DT1+24
DUOUT	DT1+1~, DT1+12, DT1+24
E	COV~, COV+4, COV+6
ENC	NCCL~, NCCL+4
FILE	MCCFCKX~, MCCFCKX+2, MCCFCKX+4
FLD	MCCFCKX~, MCCFCKX+2, MCCFCKX+4
HLOC	NCCL+3~, NCCL+4*, NCCL+5
HOSP	HOSP+4~, HOSP+5*, HOSP+7
>> IB(	XTRACT+8*
>> IB(1	XTRACT+4
>> IB(10	XTRACT+9
>> IB(11	XTRACT+7
>> IB(12	XTRACT+9
>> IB(13	XTRACT+7*
>> IB(14	XTRACT+7
>> IB(15	XTRACT+7*
>> IB(16	XTRACT+9*, XTRACT+10
>> IB(18	XTRACT+10
>> IB(19	XTRACT+10*
>> IB(2	XTRACT+4*, XTRACT+6
>> IB(3	XTRACT+5
>> IB(4	XTRACT+5*, XTRACT+6
>> IB(6	XTRACT+6*, XTRACT+10
>> IB(7	XTRACT+7
>> IB(8	XTRACT+9
>> IB(9	XTRACT+7
>> IBBDT	DT1+12, DT1+13, DT1+16, DT1+24*
IBCBK	SCAN+1~, SCAN+3*, SCAN+4
IBCK	CKENC+1~
IBCK(	CKENC+3*
IBDT	SCAN~, SCAN+2
>> IBEDT	DT1+25*
IBFILTER	SCAN+1~, SCAN+2*, SCAN+4
IBFLAG	PTCHK+4~, PTCHK+5, PTCHK+6*, PTCKQ
IBM	SC+3~, SC+4, SC+5, SCQ
>> IBMCCF	CKBIL+15, MCCFCKX+5
>> IBMCCF(	MCCFCKX+5
IBNDT	SCAN+1~, SCAN+4*
IBNODE	PTCHK~, PTCHK+6
IBOE	CKENC~, CKENC+2, CKENC+4
IBOE0	CKENC~, CKENC+2*, CKENC+4
IBPB	CKENC+1~
IBQUERY	SCAN~, SCAN+4
IBQUIT	CKENC~, CKENC+4*
IBRX	CKBIL+7, NOTRX+4~, NOTRX+5, NOTRX+6, NOTRXQ
>> IBTIMON	DT2+13, DT2+15, XTRACT+3
IBVAL	SCAN+1~, SCAN+4
IBVAL("BDT"	SCAN+2*
IBVAL("DFN"	SCAN+2*
IBVAL("EDT"	SCAN+2*
IBYRMO	INPAVG~, INPAVG+4, INPAVG+5, INPAVG+6*, INPAVG+7, INPAVG+8
IBZ	CKENC+1~, CKENC+3*
IBZ(0	CKENC+2
IBZERR	CKENC+1~
IEN	MCCFCKX~, MCCFCKX+2, MCCFCKX+4
L	LD~, LD+3, LD+5
M	SC+3~, SC+4, SC+5, LD~, LD+3, LD+4
NCCL	NCCL+3~, NCCL+4, NCCL+5, NCCL+7
ND	INPAVG+4~, INPAVG+8*, INPAVG+9, INPAVG+10, MCCFCKX~, MCCFCKX+2, MCCFCKX+5
P	COV~, COV+4, COV+6
PTF	SC~, SC+3, SC+4, SC+5
RC	NOTRX+4~, NOTRX+5, NOTRX+6
STR	DT2~, DT2+9
T	COV~, COV+4, COV+5
U	PTCHK+6, CKBIL+6, CKBIL+8, CKBIL+9, CKBIL+10, CKBIL+11, CKBIL+12, CKBIL+13, CKBIL+16, CKBIL+17 , CKBIL+18, CKBIL+19, CKBIL+20, CKBL1, SC+5, NOTRX+6
VAL	MCCFCKX+3~, MCCFCKX+4*, MCCFCKX+5
X	YR2+1~, YR2Q, COV+4~, COV+5, COV+6, HOSP+4~, HOSP+5, CKBIL~, CKBIL+4, CKBIL+5 , CKBIL+7, CKBIL+11, CKBIL+15, CKBIL+17, XTRACT+2~, XTRACT+8, NOTRX+4~
X1	YR2+1~, CKBIL+4~, CKBIL+5, CKBIL+6, CKBIL+8, CKBIL+9, CKBIL+10, CKBIL+12, CKBIL+13, CKBIL+16 , CKBIL+17, CKBIL+18, CKBIL+19
X2	YR2+1~, CKBIL+4~, CKBIL+11, CKBIL+12, CKBIL+16
XY	COV+4~, COV+6
Y	DT1+1~, DT1+13, DT1+25, DT2+4~, DT2+14, DT2+15, COV+4~, COV+6, COVQ, CKBIL~ , CKBIL+4*, CKBIL+7, CKBIL+8, CKBIL+9, CKBL1
Y1	CKBIL+4~, CKBIL+16*, CKBIL+18, CKBL1
Z	CKBIL+4~, CKBIL+16, CKBIL+17, CKBIL+18, CKBIL+19, CKBIL+20, CKBL1*, CKBLQ

Customize PDF page

Package: Integrated Billing

Routine: IBTUBOU

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: