Routine: IBTUTL

Information

IBTUTL ;ALB/AAS - CLAIMS TRACKING UTILITY ROUTINE ; 21-JUN-93

Source Information

Source file <IBTUTL.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Integrated Billing	6	SITE^IBAUTL $$INSURED^IBCNS1 $$BILLED^IBCU8 $$SCH^IBTRKR2 PRE^IBTUTL2 COM^IBTUTL3
VA Fileman	3	C^%DTC FILE^DICN ^DIE
Registration	1	INP^VADPT

Caller Graph

Caller Graph Total: 8

Package	Total	Caller Graph
Integrated Billing	8	IBCONS3 IBTOAT IBTRKR ^IBT(356 IBCNSBL IBTRE2 IBTUTL1 IBTUTL2

Entry Points

External References

Name	Field # of Occurrence
C^%DTC	EABD+8
FILE^DICN	ADDT+6
^DIE	ADM+21, OTH+12
SITE^IBAUTL	IBSITE+4
$$INSURED^IBCNS1	OTH+10, ADMDR+3
$$BILLED^IBCU8	BILL+4
$$SCH^IBTRKR2	ADM+15
PRE^IBTUTL2	ADM+27
COM^IBTUTL3	ADM+34
INP^VADPT	ADM+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBT(356 - [#356]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	ADM+12, ADM+24
^IBE(356.6 - [#356.6]	ADM+14, EABD+5
^IBT(356 - [#356]	ADM+11, ADM+15, ADM+19, ADM+22, ADM+27, ADM+34, ADDT+3, ADDT+4, ADDT+6, ADDT+7 , OTH+6, OTH+11, OTH+13, BILL+1, BILL+8

Label References

Name	Line Occurrences
$$ADMDR	ADM+20
$$EABD	OTH+10, ADMDR+3, BILL+9
$$IBSITE	ADDT+6
ADDT	ADM+16, OTH+7
ADDTQ	ADDT+3, ADDT+4
ADMDRQ	ADMDR+2
ADMQ	ADM+11, ADM+17, ADM+19, ADM+31
BILLQ	BILL+1, BILL+4, BILL+7
EABDQ	EABD+4, EABD+6
OTHQ	OTH+6, OTH+8, OTH+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	ADDT+2~
DA	ADM+6~, ADM+18, ADM+21!, OTH+5~, OTH+9, OTH+12!
DD	ADDT+2~, ADDT+5!
DFN	ADM+11, OTH~, OTH+6, OTH+10, ADMDR+3
DGPMCA	ADM~, ADM+8*, ADM+9, ADM+11, ADM+12, ADM+15, ADM+20, ADM+24, ADMDR~, ADMDR+3 , ADMDR+4
DIC	ADM+6~, ADDT+2~, ADDT+5!*, OTH+5~
DIC(0	ADDT+5*
DIE	ADM+6~, ADM+18, ADM+21!, ADDT+2~, OTH+5~, OTH+9, OTH+12!
>> DINUM	ADDT+6*
DLAYGO	ADDT+2~, ADDT+5*
DO	ADDT+2~, ADDT+5!
DR	ADM+6~, ADM+20, ADM+21!, ADDT+2~, ADDT+5!, OTH+5~, OTH+10, OTH+12!, ADMDR+1, ADMDR+3 , ADMDR+4*, ADMDRQ
DT	ADM+27, ADM+34, EABD+5, BILL+8
DUZ	OTH+10, ADMDR+3
IBADMDT	ADM+12*, ADM+20, ADMDR~, ADMDR+2, ADMDR+3
IBETYP	ADM+14*, ADM+20, OTH~, OTH+6, OTH+10, ADMDR~, ADMDR+2, ADMDR+3, EABD~, EABD+4 , EABD+5
IBETYPD	EABD+4~, EABD+5*, EABD+6, EABD+7
IBFAC	IBSITE+3~
>> IBNEW	ADDTQ*
IBSCH	ADM+6~, ADM+15*, ADM+31
IBSCHED	ADM+6~, ADM+24*, ADM+27, ADM+34
IBSITE	IBSITE+3~, IBSITE+5
IBTDT	OTH~, OTH+6, OTH+10, EABD~, EABD+5*, EABD+8
IBTR1	ADDT+2~, ADDT+6*, ADDT+7
IBTRN	ADM+11, ADM+15, ADM+16, ADM+17, ADM+18, ADM+19, ADM+22, ADM+27, ADM+34, ADDTQ* , OTH+6*, OTH+8, OTH+9, OTH+11, OTH+13, BILL~, BILL+1, BILL+4, BILL+8
IBTRND	BILL+1~*, BILL+4, BILL+7, BILL+9
>> IBTRV	ADM+34
IBVSIT	ADM~, ADMDR+3
RANDOM	ADM~, ADM+10*, ADM+20, ADMDR~, ADMDR+4
U	ADM+24, ADM+27, ADM+34, BILL+4, BILL+7, BILL+9
VA	ADM+6~
>> VA200	ADM+8*
VAIN	ADM+6~
VAIN(1	ADM+8
VAINDT	ADM~, ADM+7!
X	ADM+6~, ADM+11, ADDT+4, ADDT+6, OTH+5~, OTH+6, EABD+4~, EABD+8, BILL+1~, BILL+9 , BILLQ
X1	EABD+4~, EABD+8*
X2	EABD+4~, EABD+7*
Y	ADDT+3, ADDT+4, ADDT+6, ADDTQ, OTH+5~, EABD+4~, EABD+8, EABDQ, BILL+1~, BILL+4 , BILL+8*, BILL+9
Z	BILL+1~, BILL+4*

Name	Comments	DBIA/ICR reference
EABDQ
ADDTQ
ADDT	; -- add new entry to tracking, ibt(356
ADMDR(IBADMDT,IBETYP,DGPMCA,RANDOM)	; -- set up dr string for admissions
BILLQ
KTOBIL
EABD(IBETYP,IBTDT)	; -- compute earliest auto bill date: date entered plus days delay for event type
ADMDRQ
OTH(DFN,IBETYP,IBTDT)	; -- add miscellaneous entries, care may not be in data base
ADM(DGPMCA,VAINDT,RANDOM,IBVSIT)	; -- set up info for adding a current admission
IBSITE()	; -- calculate site from site parameters
OTHQ
ADMQ
BILL(IBTRN)	;check if event is billable, return EABD if it is
STOBIL

Customize PDF page

Package: Integrated Billing

Routine: IBTUTL

Call Graph Total: 10

Caller Graph Total: 8