IB20P538 ;ALB/CXW - IB*2.0*538 Post Init: Administrative Charge Update; 10-15-2014
Source file <IB20P538.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 1 | ENT^IB3PSOU |
Kernel | 1 | MES^XPDUTL |
VA FileMan | 1 | DD^%DT |
Name | Comments | DBIA/ICR reference |
---|---|---|
POST | ; post-install of patch installation
; use default rate types for rx 3rd party bill to update RS in #363 ; ibraty=rate type name from file #399.3 ; ibeffdt=effective fileman date ; 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 | ; rate type separated by '/'^dispensing fee^adjustment^effective date
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGCR(399.3 - [#399.3] | POST+20, POST+23, POST+24, POST+30 |
^IBE(363 - [#363] | RSEXIST+2, RSEXIST+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
IBADFE | POST+8~, POST+11*, POST+28 |
IBADJUST | POST+8~, POST+16*, POST+28 |
IBCT | POST+8~, POST+11*, POST+31*, POST+32 |
IBDISP | POST+8~, POST+15*, POST+28 |
IBEFFDT | POST+8~, POST+17*, POST+25, POST+28, POST+31, RSEXIST~, RSEXIST+4 |
IBI | POST+8~, POST+19*, POST+29* |
IBJ | POST+8~, POST+19*, POST+20, POST+21, POST+23, POST+24, POST+25, POST+26, POST+29*, POST+30 , POST+31 |
IBMG | POST+8~, POST+11*, POST+21, POST+24, POST+25, POST+31 |
IBRATY | POST+8~, POST+14*, POST+19, POST+27*, POST+28, POST+29 |
IBRS | POST+8~, POST+13*, POST+26*, POST+27 |
IBRS0 | RSEXIST+1~, RSEXIST+3*, RSEXIST+4 |
IBRSFN | RSEXIST+1~, RSEXIST+2*, RSEXIST+3, RSEXIST+4 |
IBRSIN | POST+8~, POST+20*, POST+21, POST+23*, POST+24, POST+25, POST+30*, POST+31, RSEXIST~, RSEXIST+4 |
IBT | POST+8~, POST+12*, POST+14, POST+15, POST+16, POST+17 |
IBX | POST+8~, POST+12*, RSEXIST+1~*, RSEXIST+2, RSEXIST+4*, RSEXIST+5 |
IBY | POST+8~, POST+18*, POST+21, POST+24, POST+25, POST+31 |
U | POST+8~, POST+11*, POST+14, POST+15, POST+16, POST+17, POST+19, POST+23, POST+24, POST+26 , POST+29, RSEXIST+4 |
Y | POST+8~, POST+17*, POST+18 |
Name | Field # of Occurrence |
---|---|
$T(RSF+IBX | POST+12 |