Routine: IBEBR

Information

IBEBR ;ALB/AAS - Add/Edit IB ACTION CHARGE FILE; 3-MAR-92

Source file <IBEBR.m>

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

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

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: IBEBR+5
Function Call: WRITE	Prompt: !?4,+X,?20,$P(X,":",2) Line Location: CHOOSE+3
Function Call: WRITE	Prompt: !!,*7,"Deleting - no charge, not inactive" Line Location: FILE+9
Routine Call	%ZIS Line Location: %+1
Routine Call	DIE Line Location: FILE+6 FILE+18
Routine Call	DIC Line Location: FILE+1
Routine Call	DIR Line Location: CHOOSE+5

Name	Field # of Occurrence
%DT	EFFDT*, EFFDT+2!
DA	FILE+6, FILE+9, FILE+12, FILE+15, FILE+17, FILEQ!, END+1!
DD	FILE+17!
DIC	FILE+1!, FILE+17, FILEQ!, END+1!
DIC("DR"	FILE+1*
DIC("S"	FILE+1*
DIC(0	FILE+1, FILE+17
DIE	FILE+6!, FILE+18, FILEQ!, END+1!
DIK	FILE+9*, FILEQ!, END+1!
DIR	CHOOSE+5!, END+1!
DIR("?"	CHOOSE+4*
DIR("??"	CHOOSE+4*
DIR("A"	CHOOSE+5*
DIR(0	CHOOSE+5*
>> DIRUT	EN+1, 2+1, 4+1, 5+1, 6+1, CHOOSE+5
>> DLAYGO	FILE+1*
DO	FILE+17!
DR	FILE+4!, FILE+6, FILE+18*, FILEQ!, END+1!
DTIME	EFFDT+1
I	CHOOSE+1, CHOOSE+3, CHOOSE+6*, END+1!
IB	CHOOSE, CHOOSE+1, CHOOSE+3, CHOOSE+5, FILE+15*, FILE+16, FILE+17, END+1!
IB0	FILE+15*, FILE+18, END+1!
IB10	FILE+12*, FILEQ!, END+1!
>> IBATYP	FILE+16*, FILE+18
IBEFDT	EFFDT+1, EFFDT+2*, FILE+1, FILE+4, FILE+18, END+1!
IBNOD	END+1!
IBORIG	FILE+4, FILE+12, FILE+16, FILEQ!, END+1!
IBP	CHOOSE+6*, END+1!
IBPD	3+1, CHOOSE+6, FILE+1, FILE+4, END+1!
IBPD(	CHOOSE+6*, FILE+15, FILE+16, FILE+17
IBRUN	END+1!
IBSEL	CHOOSE*, CHOOSE+5, END+1!
IBX	EN+1, 2+1, 3+1, 4+1, 5+1, 6+1, END+1!
IOF	%+1
X	CHOOSE+3, EFFDT+1, EFFDT+2, FILE+1, FILE+9, FILE+17*, END+1!
Y	EN+1, EN+2, 3+2, EFFDT+2, FILE+1, FILE+4, FILE+6, FILE+17, END+1!