IB20P503 ;ALB/CXW - IB*2.0*503 Post Init: Administrative Charge Update; 11-26-2013
Source file <IB20P503.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| POST | ; post-install of patch installation
; use default rate types of rx 3rd party to update RS in #363 ; ibraty=rate type names from file #399.3 ; ibeffdt=effective external date (mm/dd/yyyy) ; ibadfe=administrative fee (dollar.cent) ; ibdisp=dispensing fee (dollar.cent) ; ibadjust=adjustment mumps code |
|
| RSEXIST(IBEFFDT,IBRSIN) | ; return RS IFN if Rate Schedule exists for Effective Date
|
|
| RSF | ; 8 rate types separated by '/'^dispensing fee^adjustment
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399.3 - [#399.3] | POST+16, POST+18, POST+19, POST+27 |
| ^IBE(363 - [#363] | RSEXIST+2, RSEXIST+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| IBADFE | POST+8~, POST+11*, POST+25 |
| IBADJUST | POST+8~, POST+24*, POST+25 |
| IBCT | POST+8~, POST+11*, POST+28*, POST+29 |
| IBDISP | POST+8~, POST+23*, POST+25 |
| IBEFFDT | POST+8~, POST+11*, POST+20, POST+25, POST+28, RSEXIST~, RSEXIST+4 |
| IBI | POST+8~, POST+15*, POST+26* |
| IBJ | POST+8~, POST+15*, POST+16, POST+17, POST+18, POST+19, POST+20, POST+21, POST+26*, POST+27 , POST+28 |
| IBMSG | POST+8~, POST+10*, POST+17, POST+19, POST+20, POST+28 |
| IBRATY | POST+8~, POST+13*, POST+15, POST+22*, POST+25, POST+26 |
| IBRS | POST+8~, POST+14*, POST+21*, POST+22 |
| IBRS0 | RSEXIST+1~, RSEXIST+3*, RSEXIST+4 |
| IBRSFN | RSEXIST+1~, RSEXIST+2*, RSEXIST+3, RSEXIST+4 |
| IBRSIN | POST+8~, POST+16*, POST+17, POST+18*, POST+19, POST+20, POST+27*, POST+28, RSEXIST~, RSEXIST+4 |
| IBT | POST+8~, POST+12*, POST+13, POST+23, POST+24 |
| IBX | POST+8~, POST+12*, RSEXIST+1~*, RSEXIST+2, RSEXIST+4*, RSEXIST+5 |
| U | POST+13, POST+15, POST+18, POST+19, POST+21, POST+23, POST+24, POST+26, RSEXIST+4 |
| Name | Field # of Occurrence |
|---|---|
| $T(RSF+IBX | POST+12 |
