Routine: IBYPPC1

Information

IBYPPC1 ;ALB/ARH - IB*2*52 POST INIT: CM POST INIT (CONT) ; 16-MAY-1996

Source file <IBYPPC1.m>

Name	Comments	DBIA/ICR reference
ADDBS	; Add Billable Service (399.1, .2=1)
BSQ
ADDBE	; Add Billable Events (399.1, .21=1)
BEQ
ADDBR	; Add Billing Rates (363.3)
BRQ
ADDCS	; Add Charge Sets (363.1)
CSQ
ADDCI	; Add Charge Items (363.2) needs Charge Sets
CIQ
SETCI	; set Charge Item (duplicates based on item, CS, eff dt, rev cd)
ADDRS	; add Rate Schedules (363) (needs billable service and charge sets)
RSQ
MCCRUTL(X,P)	; returns IFN of item in 399.1 if Name is found and piece P is true
RVCD(RVCD)	; returns IFN if revenue code is valid and active
MSG(X)	;