Routine: IB20P498

Information

IB20P498 ;ALB/CXW - post init for IB*2.0*498 ;04-05-2013

Name	Comments	DBIA/ICR reference
POST	; update Rate Schedules (363) for CHAMPVA & CHAMPVA RI
RSCS(IBFN)	; add existing Charge Sets to CVA & CVA RI ; copy the Charge Sets from the corresponding RI RS (v2)
RSCSQ
RSCSFILE(IBFN,IBCSNM,IBCSAA)	; Add Charge Set to a Rate Schedule
RSCSFQ
RSEXISTS(IBVDT,IBNAME)	; return RS IFN if Rate Schedule exists for Effective Date
RSF	; Rate Schedules (363) for CHAMPVA & CHAMPVA RI

Name	Line Occurrences (* Changed, ! Killed)
^IBE(363 - [#363]	POST+5, POST+7, RSCS+5, RSCS+13, RSCS+14, RSCS+15, RSCSFILE+2, RSCSFILE+5, RSEXISTS+2, RSEXISTS+3
^IBE(363.1 - [#363.1]	RSCS+16, RSCSFILE+4

Name	Line Occurrences
$$RSCS	POST+13
$$RSCSFILE	RSCS+16
$$RSEXISTS	RSCS+8, RSCS+9, RSCS+10
RSCSFQ	RSCSFILE+2, RSCSFILE+3, RSCSFILE+4, RSCSFILE+5
RSCSQ	RSCS+12

Name	Field # of Occurrence
DA	RSCSFILE+1~
DA(1	RSCSFILE+7*
DD	RSCSFILE+1~
DIC	RSCSFILE+1~, RSCSFILE+7*
DIC("DR"	RSCSFILE+8*
DIC("P"	RSCSFILE+8*
DIC(0	RSCSFILE+7*
DLAYGO	RSCSFILE+1~, RSCSFILE+7*
DO	RSCSFILE+1~
DR	RSCSFILE+1~
IBCNT	RSCS+2~, RSCS+3, RSCS+16, RSCSQ
IBCNTCS	POST+3~, POST+10, POST+13, POST+14
IBCOPY	RSCS+2~, RSCS+3, RSCS+8, RSCS+9, RSCS+10, RSCS+12, RSCS+13, RSCS+14, RSCS+15
IBCS	RSCS+2~, RSCS+15*, RSCS+16
IBCSAA	RSCS+2~, RSCSFILE~, RSCSFILE+8
IBCSFN	RSCS+2~, RSCS+15, RSCS+16, RSCSFILE+1~, RSCSFILE+4, RSCSFILE+5
IBCSNM	RSCS+2~, RSCSFILE~, RSCSFILE+3, RSCSFILE+4, RSCSFILE+8
IBFN	POST+3~, POST+5*, POST+6, POST+7, POST+13, RSCS~, RSCS+5, RSCS+16, RSCSFILE~, RSCSFILE+2 , RSCSFILE+5, RSCSFILE+7
IBI	POST+3~, POST+4*
IBIDT	POST+3~, POST+7*, POST+9
IBNAME	RSCS+2~, RSEXISTS~, RSEXISTS+4
IBNRS	POST+3~, POST+4, POST+5, POST+6, POST+9, POST+11, RSCS+2~, RSCS+5, RSCS+6
IBRS0	RSEXISTS+1~, RSEXISTS+3*, RSEXISTS+4
IBRSFN	RSEXISTS+1~, RSEXISTS+2*, RSEXISTS+3, RSEXISTS+4
IBRSNM	RSCS+2~, RSCS+5*, RSCS+8, RSCS+9, RSCS+10
IBTY	RSCS+2~, RSCS+6*, RSCS+13
IBVDT	RSCS+2~, RSCS+7*, RSCS+8, RSCS+9, RSCS+10, RSEXISTS~, RSEXISTS+4
IBX	RSCSFILE+1~, RSCSFILE+8, RSCSFQ, RSEXISTS+1~, RSEXISTS+2, RSEXISTS+4, RSEXISTS+5
IBXFN	RSCS+2~, RSCS+14*, RSCS+15
U	POST+5, POST+6, POST+7, POST+9, POST+11, RSCS+5, RSCS+6, RSCS+13, RSCS+16, RSEXISTS+4
X	RSCSFILE+1~, RSCSFILE+8*
Y	RSCSFILE+1~, RSCSFILE+8

Name	Field # of Occurrence
$T(RSF+IBI	POST+4