BPSPRRX6 ;ALB/SS - ePharmacy secondary billing ;12-DEC-08
Source file <BPSPRRX6.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RXINFO(BPSRX) | ;
|
|
| RXREFIL(BPS52,BPSDFN,BPSRXNO) | ;
; Prompt for the fill# and do the rest |
|
| SECBIL59(MOREDATA,IEN59) | ;
; Populate secondary billing fields in BPS TRANSACTION ; MOREDATA array filed into 9002313.59 |
|
| SECDATA(RX,FILL,BPSPLAN,BPSPRDAT,BPSRTYPE) | ;
|
|
| PRIMDATA(RX,FILL,COBARRAY) | ;
; Build COB data from primary claim and response ; This is called by PRO option (BPSPRRX, BPSPRRX5) and Resubmit with Edits (BPSRES) ; ; Input: ; RX - Prescription IEN ; FILL - Fill Number ; COBARRAY - Array that will be build, passed by reference ; Return: ; 0 = Invalid data (transactions, claim, or response is missing) ; 1 = Valid data |
|
| GETOPAP(BPSRESP,BPSDAT) | ;
; Get the Other Payer Amount Paid values and qualifiers ; Input: ; BPSRESP = IEN of BPS RESPONSE file ; BPSDAT(N) = Array of Other Payer fields (passed by reference) ; [1] Patient Pay Amount ; [2] Qualifier ; [3] Other Payer Patient Responsibility Amount |
|
| GETPDIEN(CODE) | ;
; Get the Other Payer Amount Paid Qualifier IEN for BPS NCPCP OTHER ; PAYER AMOUNT PAID QUAL file |
|
| GETRJCOD(BPRESP,BPARR) | ;
; Get the first five reject codes w/o getting duplicates ; Input: ; BPSRESP = IEN of BPS RESPONSE file ; BPSARR1 = Array of Reject Codes |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
