Routine: IBAUTL5

Package

Total

Call Graph

$$PST^PRCAFN

^IBR

(C,H,NOW)^%DTC

Package	Total	Caller Graph
Integrated Billing	9	IBAMTC IBAMTC2 IBAMTD IBAMTD1 IBAMTD2 IBAUTL4 IBECEA3 IBOMTE IBOMTE1

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
SECT(FTS)	; Find the billable bedsection.
FILER	; Pass charge to Accounts Receivable. Input: IBNOS
OE(DGPMDA)	; Was the patient admitted for Observation & Examination?
LAST	; Find Last Billed date, if one exists, for pts. w/o billable events
CVA(DFN)	; Is CHAMPVA the patient's Primary Eligibility?
CONT(DFN)	; Find continuous patient discharge date.
PASS	; Find unbilled charges for an event and pass to Accounts Receivable.
STD(DFN)	; Is the patient's A/R Statement date 4 days from now?
FILERQ
DIEM()	; Find the earliest date for which the per diem charge may be billed.
ASIH(PM)	; Is patient movement an ASIH movement?

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399.1 - [#399.1]	SECT+5
^DGPM - [#405]	OE+4
^DGPT - [#45]	OE+5
^DIC(42.4 - [#42.4]	SECT+4
^DIC(43.4 - [#43.4]	OE+6
^DIC(45.1 - [#45.1]	OE+6
^DIC(45.7 - [#45.7]	SECT+4
^DIC(8 - [#8]	CVA+2
^DPT - [#2]	CVA+2
^IB - [#350]	PASS+3, LAST+5
^IB("AF"	PASS+3
^IB("AFDT"	LAST+3, LAST+4
^IBE(350.9 - [#350.9]	DIEM+1
^IBE(351.1 - [#351.1]	CONT+5

Name	Line Occurrences
FILER	PASS+3
FILERQ	FILER+9

Name	Field # of Occurrence
^(0	LAST+5, DIEM+1, CONT+5

Name	Field # of Occurrence
>> %	FILER+2
>> %H	LAST+8
AR	OE+3~, OE+5*, OE+6
DA	LAST+2~, LAST+4, LAST+5
DFN	LAST+3, LAST+4, CONT~, CONT+5, STD~, STD+3, CVA~, CVA+2
DGPM0	OE+3~, OE+4*, OE+5
DGPMDA	OE~, OE+4
DT	STD+2
DUZ	FILER+8
FTS	SECT~, SECT+4*, SECT+5
IBACTN	PASS+2~, PASS+3*
>> IBADMDT	LAST+2
IBARTYP	FILER+8!
IBATYP	FILER+2~
>> IBBDT	LAST+8*
>> IBCHCDA	PASS+4*
>> IBCHPDA	PASS+4*
IBD	LAST+2~*, LAST+3
IBDATE	LAST+2~, LAST+6, LAST+7*, LAST+8
IBDUZ	FILER+8*!
>> IBEVDA	PASS+3
IBN	FILER+8!
IBNOS	PASS+2~, PASS+3*
IBNOW	FILER+2~*
IBSEQNO	FILER+8*!
IBTEMP	LAST+2~, LAST+5*, LAST+6, LAST+7
>> IBWHER	FILER+9*
>> IBY	PASS+3, FILER+9*
J	LAST+2~, LAST+3, LAST+4
PM	ASIH~, ASIH+3
SOA	OE+3~, OE+5*, OE+6
X	LAST+8, CONT+4~, CONT+5*, CONT+6, STD+3
>> X1	STD+2*
>> X2	STD+2*
>> Y	FILER+9

Information