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.
