Routine: IBY568PO

Information

IBY568PO ;ALB/BAA - Post install routine for patch 568; 5-AUG-16

Name	Comments	DBIA/ICR reference
START	; CALL SECTIONS
RIDER	; add Prostihetic Insurance Rider (355.6)
PLAN	; add Prosthetics to Plan Coverage Limitations
ADDRT	; Add Rate Types (399.3)
RTQ
NEW(NAM,NUM,REC)	; create new rate type ; see if entry exists
ADDRS	; Add Rate Schedules (363) for EMERGENCY/HUMANITARIAN REIMB. & INELIGIBLE HOSP. REIMB.
RSCS(IBFN,IBVDT,IBCOPY)	; add existing Charge Sets to HR & IR ; copy the Charge Sets from the corresponding RI RS (v2)
RSCSQ
RSCSFILE(IBFN,IBCSNM,IBCSAA)	; Add Charge Set to a Rate Schedule
RSCSFQ
NEWIBER
MCCRUTL(X,P)	; returns IFN of item in 399.1 if Name is found and piece P is true
MSG(X)	;
RSDT(PRE)	;Copy the active RX charge schedule from RI to FR
NEWRT	;Rate Type
RT19	;;HUMANITARIAN REIMB. INS.;HUMANITARIAN REIMB. INS.;0;HUM REIM;1;EMERGENCY/HUMANITARIAN REIMB.;i;1;0;1;28
RT20	;;INELIGIBLE REIMB. INS.;INELIGIBLE REIMB. INS.;0;INE REIM;1;INELIGIBLE HOSP. REIMB.;i;1;0;1;28
RT21	;;DENTAL REIMB. INS.;DENTAL REIMB. INS.;0;DEN REIM;1;EMERGENCY/HUMANITARIAN REIMB.;i;1;0;1;28
RSF	;Rate Schedules (363) for EMERGENCY/HUMANITARIAN REIMB. & INELIGIBLE HOSP. REIMB.