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 |
