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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399.1 - [#399.1] | MCCRUTL+2 |
| ^DGCR(399.3 - [#399.3] | ADDORS+15, ADDNRS+10, ADDNRS+12 |
| ^IBE(363 - [#363] | ADDORS+8, ADDORS+9, ADDNRS+6, ADDNRS+14, RSCS+6, RSCS+15, RSCS+17, RSCS+18, RSCSFILE+2, RSCSFILE+5 , RSEXISTS+2, RSEXISTS+3 |
| ^IBE(363.1 - [#363.1] | RSCS+19, RSCSFILE+4 |
| Name | Line Occurrences |
|---|---|
| $$MCCRUTL | ADDNRS+7 |
| $$RSCS | ADDNRS+24 |
| $$RSCSFILE | RSCS+12, RSCS+19 |
| $$RSEXISTS | RSCS+9, RSCS+10, RSCS+11 |
| ADDNRS | POST+7 |
| ADDORS | POST+6 |
| MSG | POST+2, POST+9, ADDORS+6, ADDORS+21, ADDORS+22, ADDORS+23, ADDNRS+4, ADDNRS+6, ADDNRS+8, ADDNRS+11 , ADDNRS+12, ADDNRS+23, ADDNRS+26, ADDNRS+27, ADDNRS+28 |
| RSCSFQ | RSCSFILE+2, RSCSFILE+3, RSCSFILE+4, RSCSFILE+5 |
| RSCSQ | RSCS+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | ADDORS+20*!, ADDNRS+22*!, RSCSFILE+1~ |
| DA(1 | RSCSFILE+7* |
| DD | ADDNRS+16!, RSCSFILE+1~ |
| DIC | ADDNRS+16*!, RSCSFILE+1~, RSCSFILE+7*! |
| DIC("DR" | RSCSFILE+7* |
| DIC("P" | RSCSFILE+7* |
| DIC(0 | ADDNRS+16*, RSCSFILE+7* |
| DIE | ADDORS+20*!, ADDNRS+22*!, RSCSFILE+1~, RSCSFILE+7! |
| DINUM | ADDNRS+14*, ADDNRS+16! |
| DLAYGO | ADDNRS+16*!, RSCSFILE+1~, RSCSFILE+7* |
| DO | ADDNRS+16!, RSCSFILE+1~ |
| DR | ADDORS+20*!, ADDNRS+19*, ADDNRS+21*, ADDNRS+22!, RSCSFILE+1~ |
| EFFDT | POST+1~, ADDORS~, ADDORS+5, ADDORS+18, ADDNRS~, ADDNRS+3, RSEXISTS~, RSEXISTS+2, RSEXISTS+4 |
| IBA | POST+1~ |
| IBBVS | ADDNRS+2~, ADDNRS+7*, ADDNRS+8, ADDNRS+19 |
| IBCNT | ADDORS+1~, ADDORS+2*, ADDORS+20*, ADDORS+22, ADDNRS+2~, ADDNRS+3*, ADDNRS+17*, ADDNRS+27, RSCS+3~, RSCS+4* , RSCS+12*, RSCS+19*, RSCSQ |
| IBCNTCS | ADDNRS+2~, ADDNRS+17*, ADDNRS+24*, ADDNRS+26 |
| IBCOPY | RSCS+3~, RSCS+4*, RSCS+9*, RSCS+10*, RSCS+11*, RSCS+14, RSCS+15, RSCS+17, RSCS+18 |
| IBCS | RSCS+3~, RSCS+18*, RSCS+19 |
| IBCSAA | RSCS+3~, RSCSFILE~, RSCSFILE+7 |
| IBCSFN | RSCS+3~, RSCS+18*, RSCS+19, RSCSFILE+1~, RSCSFILE+4*, RSCSFILE+5 |
| IBCSNM | RSCS+3~, RSCSFILE~, RSCSFILE+3, RSCSFILE+4, RSCSFILE+7 |
| IBDT | ADDNRS+2~, ADDNRS+3*, ADDNRS+4, ADDNRS+19, ADDNRS+27 |
| IBEFFDT | POST+1~, POST+4*, POST+6, POST+7 |
| IBFN | ADDNRS+2~, ADDNRS+17*, ADDNRS+24, RSCS~, RSCS+6, RSCS+12, RSCS+19, RSCSFILE~, RSCSFILE+2, RSCSFILE+5 , RSCSFILE+7 |
| IBI | ADDNRS+2~, ADDNRS+5* |
| IBJ | ADDNRS+2~, ADDNRS+14* |
| IBNRS | ADDNRS+2~, ADDNRS+5*, ADDNRS+6, ADDNRS+7, ADDNRS+8, ADDNRS+10, ADDNRS+11, ADDNRS+12, ADDNRS+16, ADDNRS+19 , ADDNRS+21, ADDNRS+23, ADDNRS+26, RSCS+3~, RSCS+6*, RSCS+7 |
| IBORS | ADDORS+1~, ADDORS+9*, ADDORS+11, ADDORS+12, ADDORS+18, ADDORS+19 |
| IBORSFN | ADDORS+1~, ADDORS+8*, ADDORS+9, ADDORS+20 |
| IBORSNM | ADDORS+1~, ADDORS+11*, ADDORS+21 |
| IBORSTY | ADDORS+1~, ADDORS+12*, ADDORS+13, ADDORS+15 |
| IBRATY | ADDORS+1~, ADDORS+15*, ADDORS+16 |
| IBRS | ADDNRS+2~, ADDNRS+14* |
| IBRS0 | RSEXISTS+1~, RSEXISTS+3*, RSEXISTS+4 |
| IBRSFN | RSEXISTS+1~, RSEXISTS+2*, RSEXISTS+3, RSEXISTS+4 |
| IBRSNM | RSCS+3~, RSCS+6*, RSCS+9, RSCS+10, RSCS+11, RSCS+12 |
| IBRT | ADDNRS+2~, ADDNRS+10*, ADDNRS+11, ADDNRS+12*, ADDNRS+19 |
| IBTY | RSCS+3~, RSCS+7*, RSCS+15 |
| IBVDT | RSCS+3~, RSCS+8*, RSCS+9, RSCS+10, RSCS+11 |
| IBX | RSCSFILE+1~*, RSCSFILE+7*, RSCSFQ, RSEXISTS+1~*, RSEXISTS+2, RSEXISTS+4*, RSEXISTS+5, MCCRUTL+1~, MCCRUTL+2* |
| IBXFN | RSCS+3~, RSCS+17*, RSCS+18 |
| IBY | MCCRUTL+1~*, MCCRUTL+2*, MCCRUTL+3 |
| INEFFDT | ADDORS+1~, ADDORS+5*, ADDORS+6, ADDORS+19, ADDORS+20, ADDORS+22 |
| NAME | RSEXISTS~, RSEXISTS+2, RSEXISTS+4 |
| P | MCCRUTL~, MCCRUTL+2 |
| U | ADDORS+11, ADDORS+12, ADDORS+15, ADDORS+18, ADDORS+19, ADDNRS+6, ADDNRS+7, ADDNRS+8, ADDNRS+10, ADDNRS+11 , ADDNRS+12, ADDNRS+16, ADDNRS+19, ADDNRS+21, ADDNRS+23, ADDNRS+26, RSCS+6, RSCS+7, RSCS+15, RSCS+19 , RSEXISTS+4, MCCRUTL+2 |
| X | ADDORS+20!, ADDNRS+16*!, ADDNRS+22!, RSCSFILE+1~, RSCSFILE+7*, MCCRUTL~, MCCRUTL+2, MSG~, MSG+1 |
| Y | ADDORS+20!, ADDNRS+16!, ADDNRS+17, ADDNRS+22!, RSCSFILE+1~ |
| Name | Field # of Occurrence |
|---|---|
| $T(NRSF+IBI | ADDNRS+5 |