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.