Routine: IB20P383

Information

IB20P383 ;OAK/ELZ - IB*2.0*383 CHECK/POST INSTALL ;11/15/07 09:47

Name	Comments	DBIA/ICR reference
CHECK	; - pre-install check
POST	; - post-install
CLEANCS(IBCS)	; cleans up locally defined charge sets (if any) for VA Cost ; saves data in IBCS(billable event,old ien)=old revenue code
ADDCS(IBCS,IBNCS)	; Add Charge Set (363.1) ; puts data in IBNCS(ien)="" for new charge sets added
CSQ	;
OLDRS(IBDT,IBNCS)	; inactivate old rate schedules
ADDRS(IBDT)	; add Rate Schedule (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)	;
CSF	; Charge Set (363.1)
RSF	; Rate Schedules (363)
RTF	; Rate Types (399.3) that must exist

Name	Line Occurrences
Function Call: WRITE	Prompt: !," *** Rate Type ",IBLN," does not exist or is not active." Line Location: CHECK+11
Function Call: WRITE	Prompt: !," *** Rate Type ",IBLN," has an active duplicate." Line Location: CHECK+12
Function Call: WRITE	Prompt: !!,"The rate type(s) must exist and be active before you can install." Line Location: CHECK+13