Routine: IBCU62

Package	Total	Call Graph
VA Fileman	2	^DIE IX1^DIK

Package

Total

Call Graph

^DIE IX1^DIK

Package	Total	Caller Graph
Integrated Billing	2	IBCU6 IBCU63

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
CHKREV	;check if billing rate (dgbr) is active, and use with payer.
EDITREV	;edit revenue code data.
SETREV	;find current active revenue codes for bedsection
WRT	;S Z="00"_$P(^DGCR(399.5,DGBR,0),"^",3) W:'$G(IBAUTO) !,DGFUNC,?12,$E(Z,($L(Z)-2),$L(Z)),?24,DGBSLOS,?31,"$",$J(DGAMNT,8,2),?44,DGBS
STORREV	;store revenue code in revenue code file
REVHDR
FILE	;manually file entry, index with ix1^dik to use compiled x-ref

Name	Field # of Occurrence
^DIE	EDITREV+3
IX1^DIK	FILE+9

FileNo	Call Tags
^DGCR(399 - [#399]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	STORREV+2, FILE+3, FILE+4, FILE+5, FILE+7, FILE+8, FILE+9
^DGCR(399.5 - [#399.5]	SETREV+2, SETREV+3, SETREV+4, CHKREV+2, STORREV+1, WRT+1
^ICPT - [#81]	WRT+1

Name	Field # of Occurrence
^(0	STORREV+1

Name	Field # of Occurrence
>> DA	STORREV+2, FILE+4, FILE+5*, FILE+7, FILE+8
>> DA(1	STORREV+1, FILE+9, EDITREV+3
>> DGACTDT	SETREV+1, SETREV+2, SETREV+3, SETREV+4
>> DGAMNT	STORREV+1*, FILE+7, EDITREV+3, WRT+1
>> DGBR	SETREV+1, SETREV+4, CHKREV+2, STORREV+1, WRT+1
>> DGBRN	CHKREV+2*, CHKREV+3, CHKREV+4, CHKREV+6
>> DGBS	EDITREV+3, WRT+1
>> DGBSI	SETREV+2, SETREV+3, SETREV+4, STORREV+2, FILE+7
>> DGBSLOS	FILE+2, FILE+7, EDITREV+2, EDITREV+3, WRT+1
>> DGDIV	FILE+7
DGFND	SETREV+1!, SETREV+2, CHKREV+6*
>> DGFUNC	STORREV+1, STORREV+2, WRT+1
>> DGINPAR	CHKREV+3, CHKREV+5
>> DGLL	FILE+5*
>> DGPROC	FILE+7, WRT+1, REVHDR
>> DGREV	SETREV+1, SETREV+3, SETREV+4, CHKREV+5
>> DGREV00	CHKREV+5*
>> DGREVHDR	FILE+1, EDITREV+1, REVHDR*
>> DIC	STORREV+1*, EDITREV+3
>> DIC(0	STORREV+1*
>> DIE	EDITREV+3*
>> DIK	FILE+9*
>> DR	EDITREV+3*
>> IBAUTO	WRT+1, REVHDR
>> IBCHK	SETREV+4, CHKREV+1, CHKREV+6
>> IBIDS(	CHKREV+3, CHKREV+4, CHKREV+5, CHKREV+6, FILE+2, EDITREV+2
>> IBIDS(151	SETREV+1
>> IBIFN	STORREV+1, STORREV+2, FILE+3, FILE+4, FILE+5, FILE+7, FILE+8, FILE+9, EDITREV+3
U	CHKREV+6, WRT+1
>> X	STORREV+1*, STORREV+2, FILE+7
>> Z	WRT+1*

Information