Routine: IBEBR

Information

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

Source file <IBEBR.m>

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

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