N-PRIOR PAYMENTS (156)    IB DATA ELEMENT DEFINITION (364.5)

Name Value
NAME N-PRIOR PAYMENTS
SECURITY LEVEL NATIONAL,NO EDIT
TYPE OF ELEMENT EXTRACTED VIA CODE
ELEMENT CATEGORY GROUP ELEMENT
BASE FILE BILL/CLAIMS
EXTRACT CODE N Z,Z0 S IBXSAVE("PTOT")=0 F Z=1:1:3 I $D(^DGCR(399,IBXIEN,"I"_Z)) S IBXDATA(Z)=$$OTHPAY^IBCEF1(IBXIEN,Z),IBXSAVE("PTOT")=IBXSAVE("PTOT")+IBXDATA(Z)
DESCRIPTION
This data element contains the primary, secondary, and tertiary prior
payments in array data elements IBXDATA(1), IBXDATA(2), and IBXDATA(3).
Store the total prior payments in IBXSAVE array for later use.