BPSOS03 ;BHAM ISC/FCS/DRS - 9002313.03 utilities ;06/01/2004
Source file <BPSOS03.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INSPAID(N) | ;EP - from BPSOSQL - total amount paid by insurer
|
|
| INSPAID1(N,RX) | ;EP -
|
|
| NETPAID1(N,RX) | ; EP - computed field in 9002313.57 and 9002313.59
|
|
| REJTEXT(RESP,POS,ARR) | ; EP - fills array (passed by ref)
|
|
| MESSAGE(RESP,POS,N) | ; EP - get additional message from response
|
|
| DFF2EXT(X) | ||
| 505(M,N) | ||
| 506(M,N) | ||
| 507(M,N) | ||
| 508(M,N) | ||
| 509(M,N) | ||
| 512(M,N) | ||
| 513(M,N) | ||
| 514(M,N) | ||
| 517(M,N) | ||
| 518(M,N) | ||
| 519(M,N) | ||
| 520(M,N) | ||
| 521(M,N) | ||
| 523(M,N) | ||
| 500(M,N,J) | ; field #500+J signed numeric
|
|
| RESPONSE(BPSRX,BPSFILL,BPSCOB) | ; Pull fields from response.
; MRD;BPS*1.0*20 - Created this API to display additional information ; to the user when an RRR is successfully resubmitted. ; Input: (r) BPSRX - Rx IEN (#52) ; (o) BPSFILL - Refill# ; (o) BPSCOB - Payer Sequence ; Output: [1] Total Amount Paid, file# 9002313.0301, field #509 ; [2] Ingredient Cost Paid, field #506 ; [3] Amount of Copay/Coinsurance, field #518 ; [4] Dispensing Fee Paid, field #507 ; [5] Amount Applied to Periodic Deductible, field #517 ; [6] Remaining Deductible Amount, field #513 |
| FileNo | Call Tags |
|---|---|
| ^BPST - [#9002313.59] | GET1^DIQ |
