Routine: IBAUTL3

Information

IBAUTL3 ;ALB/CPM - MEANS TEST BILLING UTILITIES (CON'T.) ; 05-SEP-91

Source Information

Source file <IBAUTL3.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA Fileman	4	(C,NOW)^%DTC FILE^DICN ^DIE IX1^DIK
Integrated Billing	1	ADD^IBAUTL
Registration	1	$$BILST^DGMTUB

Caller Graph

Caller Graph Total: 16

Package	Total	Caller Graph
Integrated Billing	15	IBAMTC IBAMTD IBAMTD1 IBAMTS1 IBAUTL4 IBECEA1 IBECEA21 IBECEA3 IBECEA31 IBECEA32 IBECEA33 IBECEAU1 IBOMTE IBOMTE1 IBOMTE2
Registration	1	DGVPTIB1

Entry Points

Name	Comments	DBIA/ICR reference
CLUPD	; - update billing clock. Input: IBCLDA, IBCLDOL, IBCLDAY
CLOCKCL	; Close out the current billing clock.
CLOCK	; Determine if the patient has an active billing clock.
DEDQ
EVADDQ
CLADD	; Add a new billing clock in File #351.
EVCLOSE	; Close event record. Input: IBEVDA, IBEVCLD
EVFIND	; Find most recent active (incomplete - still being billed)
EVADD	; Add a new billable event in File #350.
EVCLOS1	; Set Last Calc date to yesterday before closing event. Input: IBDT
CLDATA	; Return data from the current billing clock.
DED	; Find Medicare deductible rate on the billing clock date.
CLADDQ
EVUPD	; Update event record. Input: IBEVDA, IBEVCLD

External References

Name	Field # of Occurrence
C^%DTC	EVCLOS1+1, CLOCKCL+4
NOW^%DTC	EVADD+8, CLUPD+1
$$BILST^DGMTUB	CLOCKCL+3
FILE^DICN	CLADD+5
^DIE	EVUPD+3, CLADD+7, CLOCKCL+8
IX1^DIK	EVADD+9, CLUPD+3
ADD^IBAUTL	EVADD+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IB - [#350]	Classic Fileman Calls
^IBE(351 - [#351]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IB - [#350]	EVADD+7, EVADD+8, EVFIND+4
^IB("AFDT"	EVFIND+4
^IBE(350.1 - [#350.1]	DED+3, EVADD+5, EVADD+6
^IBE(350.2 - [#350.2]	DED+4, DED+5
^IBE(351 - [#351]	CLADD+2, CLADD+3, CLADD+5, CLADD+7, CLADDQ, CLOCK+2, CLDATA+1, CLUPD+2*

Label References

Name	Line Occurrences
CLADDQ	CLADD+2, CLADD+3
CLDATA	CLOCK+3
CLUPD	CLOCKCL+6
DED	CLADD+8, CLOCK+3
DEDQ	DED+3
EVADDQ	EVADD+2, EVADD+5

Naked Globals

Name	Field # of Occurrence
^(	DED+4
^(0	EVFIND+4, CLADD+3, CLUPD+2*
^(1	EVADD+8, CLUPD+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EVADD+8, CLUPD+2
DA	EVADD+9, EVADDQ!, EVUPD+3!, CLADD+6, CLADD+7!, CLOCKCL+7, CLOCKCL+8!, CLUPD+3*!
DD	CLADD+4!, CLADDQ!
>> DFN	EVFIND+4, CLADD+6, CLOCK+2, CLOCKCL+3
DIC	CLADD+4!*, CLADDQ!
DIC(0	CLADD+4*
DIE	EVUPD+3!, CLADD+6, CLADD+7!, CLOCKCL+7*, CLOCKCL+8!
DIK	EVADD+9, EVADDQ!, CLUPD+3!
DINUM	CLADD+5*, CLADDQ!
>> DLAYGO	CLADD+4*
DO	CLADD+4!, CLADDQ!
DR	EVUPD+1, EVUPD+2, EVUPD+3!, CLADD+4!, CLADD+6, CLADD+7!, CLOCKCL+7, CLOCKCL+8!
DT	EVFIND+3
DUZ	EVADD+8, EVUPD+1, CLADD+6, CLOCKCL+7, CLUPD+2
>> IBADMDT	EVFIND+3
IBATYP	EVADD+3~, EVADD+5*, EVADD+6, EVADD+7
>> IBCLDA	CLADD+6, CLADD+7, CLOCK+2, CLOCK+3, CLDATA+1, CLOCKCL+7, CLOCKCL+8*, CLUPD+2, CLUPD+3
>> IBCLDAY	CLDATA+1*, CLDATA+2, CLOCKCL+6, CLUPD+2
>> IBCLDOL	CLDATA+2*, CLOCKCL+6, CLUPD+2
>> IBCLDT	DED+4, CLADD+6, CLDATA+1*, CLOCKCL+4
IBCLENDT	CLOCKCL+3~, CLOCKCL+4, CLOCKCL+5, CLOCKCL+7
IBD	EVFIND+3~*, EVFIND+4
IBDESC	EVADD+3~, EVADD+6*, EVADD+7
IBDR	EVCLOSE+1~*, EVUPD+2
>> IBDT	EVCLOS1+1
>> IBEVCAL	EVFIND+3, EVFIND+4
>> IBEVCLD	EVCLOS1+1*, EVUPD+1
>> IBEVDA	EVADD+4, EVFIND+3, EVFIND+4*, EVUPD+3
>> IBEVDT	EVADD+7, EVFIND+3, EVFIND+4
>> IBFAC	EVADD+7
>> IBMED	DED+2, DED+5
>> IBN	EVADD+4, EVADD+7, EVADD+8, EVADD+9
>> IBNH	EVADD+5
>> IBSERV	DED+3, EVADD+5
>> IBSITE	CLADD+5
>> IBSL	EVADD+7
>> IBY	DED+3, DED+5, EVADD+2, EVADD+5, CLADD+2, CLADD+3, CLADD+8, CLOCKCL+8
J	EVFIND+3~, EVFIND+4
K	CLOCKCL+3~*, CLOCKCL+5
X	DED+2~, DED+3, DED+4, DED+5, EVCLOS1+1, CLADD+3, CLADD+5, CLDATA+1~*, CLDATA+2, CLOCKCL+4
>> X1	EVCLOS1+1, CLOCKCL+4
>> X2	EVCLOS1+1, CLOCKCL+4
>> Y	EVADD+2, CLADD+5, CLADD+6, CLADD+8, CLOCKCL+8

Customize PDF page

Package: Integrated Billing

Routine: IBAUTL3

Call Graph Total: 6

Caller Graph Total: 16