IBNCPDP3 ;OAK/ELZ - STORES NDC/AWP UPDATES ;14-NOV-2007
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 | ;
|
|
| EIVE1LOG | ;IB*822/CKB - Add to EIV E1 TRANSACTION RESPONSE LOG file #365.3
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^IBAM(354.71 - [#354.71] | GET1^DIQ |
| ^IBA(355.33 - [#355.33] | GET1^DIQ |
| ^IBT(356 - [#356] | Classic Fileman Calls |
| ^DIC(36 - [#36] | GET1^DIQ |
| ^IBE(365.15 - [#365.15] | FIND1^DIC |
| ^DGCR(399 - [#399] | Classic Fileman Calls |
| ^BPSR - [#9002313.03] | GETS^DIQ |
| 9002313.0301 | GET1^DIQ |
