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. |