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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^IBE(350.2 - [#350.2] | Classic Fileman Calls |