Routine: IB20P418

Information

IB20P418 ;ALB/CXW - IB*2*418 POST INIT: ADD TORT/INTERAGENCY RATES JULY 2011;07-11-2011

Name	Comments	DBIA/ICR reference
POST	;
ADDBS	; Add new bedsections (399.1, .12)
BSQ
ADDCS	; Add Charge Sets (363.1)
CSQ
ADDCI(IBEFFDT)	; Add Charge Items (363.2) needs Charge Sets, pass in the effective date of the new charges
CIQ
SETCI	; set Charge Item (duplicates based on item, CS, eff dt, rev cd)
ADDRS	; add Rate Schedules (363) ; add new charge sets to the link if TL/IA-OPT VST exists
A
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)	;
BSF	; Bedsections (399.1, .12): Name ^ Abbreviation
CSF	; Charge Sets (363.1): Name ^ Billing Rate ^ Billable Event ^^ Default Revenue Code
CIF	; Charge Items (363.2): Bedsection ^ Charge Set ^Effective Date ^ Revenue Code ^ Charge
TORT	;; 2011 Tortiously Liable All Inclusive
IA	;; 2011 Interagency