Routine: IBYPSA

Information

IBYPSA ;ALB/ARH - IB*2.0*245 POST INIT: REASONABLE CHARGES V2.0 ; 10-OCT-2003

Source file <IBYPSA.m>

Name	Comments	DBIA/ICR reference
POST	;
RSINDT	; add an inactive date to rate schedules if this is the first time the load is completed (363, .06) ; Reimbursable Ins, No Fault, and Workers Comp only ; if test account use 9/30/98, if production account use 8/31/99
RSINQ
UPDBR	; Update Billing Rate Names
SGBR	; add new Billing Rates to the Special Groups (363.32,11,.01)
SGBRQ
RVACT	; activate (3) Revenue Codes exported in as defaults for new Charge Sets (399.2,2)
RVAQ
MCCRUTL(X,P)	; returns IFN of item in 399.1 if Name is found and piece P is true
MSG(X)	;
RVF	; Revenue Codes to (3) Activate (399.2,2)