N Z,Q,T,R,DFN,VAEL S Q=IBXIEN,DFN=$P($G(^DGCR(399,Q,0)),U,2) F Z=1:1:3 K VAEL S (T,IBXDATA(Z))=$$POLICY^IBCEF(Q,16,Z) I +T,"12"[+T D ELIG^VADPT S R=$S('VAEL(4):"",1:$$POLICY^IBCEF(Q,6,Z)),IBXDATA(Z)=$S(R="v":"01",R="s":"02",T:T,1:"09")
DESCRIPTION
Extracts the primary, secondary, and tertiary insurance insured's pt
relation into the IBXDATA(1),(2),(3) array for bill entry IBXIEN.
