Routine: IBEBR

Package	Total	Caller Graph
Integrated Billing	2	IB BILLING RATES FILE IBEBRH

Entry Points

Name	Comments	DBIA/ICR reference
EN
1	;enter edit revenue code rates
2	;enter per diem rate
3	;enter medicare deductable
4	;enter hcfa amb. surg. rates
5	;enter rx copay rates
6	;enter champva subsistence rates
CHOOSE
CHOOSEQ
EFFDT
FILE	; -add new entries in 350.2 and edit
FILEQ
TIER()	; -for Rx rates, prompt for tier
END	;Kill vars
COPAY	;;Co-pay Type
NSC	;;RX1^RX3^RX4^^NSC RX CO-PAY (RX1)
SC	;;RX2^RX5^RX6^^SC RX CO-PAY (RX2)
FSNSC	;;FEE SERV RX1^FEE SERV RX3^FEE SERV RX4^^FEE SERV NSC RX CO-PAY (RX1)
PERDIEM	;;Per Diem
HCFA	;;HCFA Amb. Surg. Rate
CHMPVA	;;CHAMPVA Rate Type
MEDIC	;;Medicare Deductible
MAIN	;;Billing Rate Type

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: IBEBR+5
Function Call: WRITE	Prompt: !!,?28,"Enter/Edit Billing Rates",!! Line Location: EN+0
Function Call: WRITE	Prompt: !!," ******* This option is no longer active.",!,?10,"Please use the Enter/Edit Charge Master option.",! Line Location: 1+4
Function Call: WRITE	Prompt: !!,"CHOOSE FROM:" Line Location: CHOOSE+2
Function Call: WRITE	Prompt: !?4,+X,?20,$P(X,":",2) Line Location: CHOOSE+3
Function Call: WRITE	Prompt: !! Line Location: CHOOSE+5
Function Call: READ	Formatting: !! Prompt: " Select Effective Date: " Variable: X Timeout: DTIME Line Location: EFFDT+1
Function Call: WRITE	Prompt: !!,*7,"Deleting - no charge, not inactive" Line Location: FILE+10
Routine Call	DIC Line Location: FILE+1
Routine Call	DIE Line Location: FILE+7 FILE+22
Routine Call	DIR Line Location: CHOOSE+5 TIER+2
Routine Call	%ZIS Line Location: %+1

FileNo	Call Tags
^IBE(350.2 - [#350.2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^IBE(350.2 - [#350.2]	FILE+5, FILE+10, FILE+13, FILE+15, FILE+18, FILE+19, FILE+20, FILE+23*

Name	Field # of Occurrence
%DT	EFFDT*, EFFDT+2!
DA	FILE+7, FILE+10, FILE+13, FILE+15, FILE+18, FILE+20, FILE+21*, FILE+23, FILEQ!, END+1!
DD	FILE+21!
DIC	FILE+1!, FILE+21, FILEQ!, END+1!
DIC("DR"	FILE+1*
DIC("S"	FILE+1*
DIC(0	FILE+1, FILE+21
DIE	FILE+7!, FILE+22, FILEQ!, END+1!
DIK	FILE+10*, FILEQ!, END+1!
DIR	CHOOSE+5!, TIER+1~, END+1!
DIR("?"	CHOOSE+4*
DIR("??"	CHOOSE+4*
DIR("A"	CHOOSE+5*
DIR(0	CHOOSE+5, TIER+2
>> DIRUT	EN+1, 2+1, 4+1, 5+2, 5+3, 6+1, CHOOSE+5
>> DLAYGO	FILE+1*
DO	FILE+21!
DR	FILE+5!, FILE+7, FILE+22*, FILEQ!, END+1!
DTIME	EFFDT+1
I	CHOOSE+1, CHOOSE+3, CHOOSE+6*, END+1!
IB	CHOOSE, CHOOSE+1, CHOOSE+3, CHOOSE+5, FILE+18*, FILE+19, FILE+21, END+1!
IB0	FILE+18*, FILE+22, END+1!
IB10	FILE+13*, FILEQ!, END+1!
IB20	FILE+15*, FILE+23, END+1!
>> IBATYP	FILE+19*, FILE+20, FILE+22
IBEFDT	EFFDT+1, EFFDT+2*, FILE+1, FILE+5, FILE+20, FILE+22, END+1!
IBLAST	FILE+5*, FILE+15, END+1!
IBNEW	FILE+4*, FILE+5, FILE+20, FILE+21, FILEQ!
IBNOD	END+1!
IBORIG	FILE+5, FILE+13, FILE+19, FILEQ!, END+1!
IBP	CHOOSE+6*, END+1!
IBPD	3+1, CHOOSE+6, FILE+1, FILE+5, END+1!
IBPD(	CHOOSE+6*, FILE+18, FILE+19, FILE+21
IBRUN	END+1!
IBSEL	CHOOSE*, CHOOSE+5, END+1!
IBTIER	5+1~, 5+3*, FILE+1, FILE+5, FILE+22, END+1!
IBX	EN+1, 2+1, 3+1, 4+1, 5+2, 6+1, END+1!
IOF	%+1
X	CHOOSE+3, EFFDT+1, EFFDT+2, FILE+1, FILE+10, FILE+21*, END+1!
Y	EN+1, EN+2, 3+2, EFFDT+2, FILE+1, FILE+4, FILE+5, FILE+7, FILE+21, TIER+3 , END+1!