Name | Value |
---|---|
NAME | N-ALL INSURED FULL NAMES |
SECURITY LEVEL | NATIONAL,NO EDIT |
TYPE OF ELEMENT | EXTRACTED VIA CODE |
ELEMENT CATEGORY | GROUP ELEMENT |
BASE FILE | BILL/CLAIMS |
EXTRACT CODE | N Z F Z=1:1:3 S:$D(^DGCR(399,IBXIEN,"I"_Z)) IBXDATA(Z)=$$POLICY^IBCEF(IBXIEN,17,$E("PST",Z)) I Z=1,'$D(^DGCR(399,IBXIEN,"I1")) S IBXDATA(1)=$P($G(^DPT(+$P($G(^DGCR(399,IBXIEN,0)),U,2),0)),U) |
DESCRIPTION | Extracts the primary, secondary, and tertiary insurance insured's full names into the IBXDATA(1),(2),(3) array for bill entry IBXIEN. |