IB20P541 ;ALB/CXW - IB*2.0*541 Post Init: Administrative Charge Update; 12-10-2014
Source file <IB20P541.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 | ; 2 rate types separated by '/'^dispensing fee^adjustment
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399.3 - [#399.3] | POST+17, POST+19, POST+20, POST+28 |
| ^IBE(363 - [#363] | RSEXIST+2, RSEXIST+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| IBADFE | POST+8~, POST+12*, POST+26 |
| IBADJUST | POST+8~, POST+25*, POST+26 |
| IBCT | POST+8~, POST+12*, POST+29*, POST+30 |
| IBDISP | POST+8~, POST+24*, POST+26 |
| IBEFFDT | POST+8~, POST+12*, POST+21, POST+26, POST+29, RSEXIST~, RSEXIST+4 |
| IBI | POST+8~, POST+16*, POST+27* |
| IBJ | POST+8~, POST+16*, POST+17, POST+18, POST+19, POST+20, POST+21, POST+22, POST+27*, POST+28 , POST+29 |
| IBMSG | POST+8~, POST+11*, POST+18, POST+20, POST+21, POST+29 |
| IBRATY | POST+8~, POST+14*, POST+16, POST+23*, POST+26, POST+27 |
| IBRS | POST+8~, POST+15*, POST+22*, POST+23 |
| IBRS0 | RSEXIST+1~, RSEXIST+3*, RSEXIST+4 |
| IBRSFN | RSEXIST+1~, RSEXIST+2*, RSEXIST+3, RSEXIST+4 |
| IBRSIN | POST+8~, POST+17*, POST+18, POST+19*, POST+20, POST+21, POST+28*, POST+29, RSEXIST~, RSEXIST+4 |
| IBT | POST+8~, POST+13*, POST+14, POST+24, POST+25 |
| IBX | POST+8~, POST+13*, RSEXIST+1~*, RSEXIST+2, RSEXIST+4*, RSEXIST+5 |
| U | POST+14, POST+16, POST+19, POST+20, POST+22, POST+24, POST+25, POST+27, RSEXIST+4 |
| Name | Field # of Occurrence |
|---|---|
| $T(RSF+IBX | POST+13 |
