IBNCPDP3 ;OAK/ELZ - STORES NDC/AWP UPDATES ;11/14/07 13:18
Source file <IBNCPDP3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| UPAWP(IBNDC,IBAWP,IBADT) | ; updates AWP prices for NDCs
|
|
| REVERSE(DFN,IBD,IBAUTO) | ;process reversed claims
|
|
| REVQ | ; perform end of job tasks
|
|
| RTS(IBRR) | ; Return to Stock processing on Released Rx
; input - IBRR = reversal reason ; IBCRSN = passed in by reference ; output - 0 = reversal not due to a Rx RETURN TO STOCK or Rx DELETE ; 1 = reversal due to a Rx RETURN TO STOCK or Rx DELETE ; IBCRSN = charge removal reason |
|
| BULL | ; Generate a bulletin if there is an error in cancelling the claim.
|
|
| GETRSN(DFN,IBRXN,IBFIL) | ;
; retrieve charge removal reason from file 354.71 ; input - DFN,IBRXN=Rx ien,IBFIL=fill number ; output - charge removal reason |
|
| ELIG(DFN,IBD) | ; process an Eligibility response
|
|
| ELIGX | ;
|
| FileNo | Call Tags |
|---|---|
| 2.312 | GET1^DIQ |
| ^IBAM(354.71 - [#354.71] | GET1^DIQ |
| ^IBA(355.3 - [#355.3] | GET1^DIQ |
| ^IBT(356 - [#356] | Classic Fileman Calls |
| ^DIC(36 - [#36] | GET1^DIQ |
| ^DGCR(399 - [#399] | Classic Fileman Calls |
| ^BPSR - [#9002313.03] | GETS^DIQ |
