IBYPSA1 ;ALB/ARH - IB*2.0*245 POST INIT: REASONABLE CHARGES V2.0 CONT; 10-OCT-2003
Source file <IBYPSA1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ADDRB | ; Add Billable Service (399.1, .2=1)
|
|
RBQ | ||
ADDBS | ; Add Bedsection (399.1, .12=1)
|
|
BSQ | ||
ADDBI | ; Add Billing Items (363.21)
|
|
BIQ | ||
ADDBR | ; Add Billing Rates (363.3)
|
|
BRQ | ||
ADDRS | ; add Rate Schedules (363) for Reasonable Charges, if this is the first time the patch is installed
; (charge sets will be added when rates are uploaded) |
|
RSQ | ||
MCCRUTL(X,P) | ; returns IFN of item in 399.1 if Name is found and piece P is true
|
|
MSG(X) | ;
|
|
RBF | ; billable services (399.1,.2)
|
|
BSF | ; Bedsections (399.1,.12)
|
|
BIF | ; Billing Items (363.21)
|
|
BRF | ; Billing Rates File (363.3)
|
|
RSF | ; Rate Schedules (363)
|
FileNo | Call Tags |
---|---|
^IBE(363 - [#363] | Classic Fileman Calls |
^IBA(363.21 - [#363.21] | Classic Fileman Calls |
^IBE(363.3 - [#363.3] | Classic Fileman Calls |
^DGCR(399.1 - [#399.1] | Classic Fileman Calls |