IB20P424 ;ALB/CXW-IB*2*424 POST INIT RS FOR CHAMPVA/CHAMPVA RI;16-SEP-09
Source file <IB20P424.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
POST | ;
|
|
ADDORS(EFFDT) | ;Inactivate Existing CHAMPVA/CHAMPVA RI Rate Schedules
|
|
ADDNRS(EFFDT) | ; add CAHMPVA/CHAMPVA REIMB. INS. Rate Schedules (363) if they don't exist
|
|
RSCS(IBFN) | ; add existing Charge Sets to RC, return number added
; copy the Charge Sets from the corresponding RI RS (v2) ; add the Charge Sets - RX COST |
|
RSCSQ | ||
RSCSFILE(IBFN,IBCSNM,IBCSAA) | ; Add Charge Set to a Rate Schedule
|
|
RSCSFQ | ||
RSEXISTS(EFFDT,NAME) | ; return RS IFN if Rate Schedule exists for Effective Date
|
|
MCCRUTL(X,P) | ; returns IFN of item in 399.1 if Name is found and piece P is true
|
|
MSG(X) | ;
|
|
NRSF | ;New Rate Schedules (363)
|
FileNo | Call Tags |
---|---|
^IBE(363 - [#363] | Classic Fileman Calls |