Routine: IBCU63

Package	Total	Call Graph
Integrated Billing	3	^IBAUTL1 $$FT^IBCU3 (FILE,SETREV)^IBCU62
VA Fileman	1	^DIK

Package	Total	Caller Graph
Integrated Billing	2	IBCU6 IBEFUNC1

Name	Comments	DBIA/ICR reference
STDATE()	; -start date for basc billing
ALL	;delete all revenue codes that may have been set up automatically
END
RX	;add rx refill charges (adds default rx cpt for hcfa 1500)
STORREV	;build revenue codes in bill
DEL
FILE	;
BLD

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Removing old Revenue Codes." Line Location: ALL+2

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	BLD, STORREV+1, RX+2, ALL+3, DEL
^DGCR(399.1 - [#399.1]	STORREV+4, RX+4
^IBE(350.9 - [#350.9]	%+3, STDATE+1, RX+5, RX+7
^ICPT - [#81]	FILE+3
^UTILITY($J	%+2!, BLD+4, BLD+5, STORREV+2

Name	Field # of Occurrence
^(	BLD+4, BLD+5, STORREV+2
^(1	%+3, STDATE+1

Name	Field # of Occurrence
DA	ALL+2!, ALL+3
DA(1	FILE+1, ALL+2, DEL
>> DGAMNT	STORREV+3, FILE+3, RX+9
DGASC	BLD*, STORREV+7!
>> DGBILLBS	STORREV+4, FILE+3
>> DGBS	RX+4*
>> DGBSI	STORREV+4, RX+4
>> DGBSLOS	STORREV+2, FILE+3, RX+3
DGDAT	BLD+1, BLD+3, BLD+4, BLD+5, STORREV+2, STORREV+3, STORREV+7!
DGDIV	BLD+1, BLD+2, BLD+4, BLD+5, STORREV+2, STORREV+3, STORREV+7!, RX+5*, END!
>> DGII	ALL+3*
>> DGINPAR	%+3, RX+6
DGPROC	BLD, BLD+1, BLD+4, BLD+5, STORREV+2, STORREV+3, STORREV+7!, FILE+3, RX+5*, END!
DGRVCOD	%+3, STORREV+4, STORREV+7!, FILE+3, RX+6, RX+7*, RX+8, RX+9, END!
>> DIK	DEL*
>> IBAUTO	FILE+3, ALL+2, ALL+5
>> IBCNT	RX+3
>> IBIDS(	%+1
>> IBIFN	BLD, STORREV+1, FILE+1, RX+2, RX+5, ALL+2, ALL+3, DEL
>> X	STORREV+3, STORREV+4, RX+9, ALL+3
>> Y	STORREV+3

Information