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 |