N IBZ D F^IBCEF("N-ALL INSURED PT RELATION","IBZ",,IBXIEN) S IBZ=$G(IBZ(+$$COBN^IBCEF(IBXIEN))) I IBZ'="" S IBXDATA=IBZ
DESCRIPTION
The relationship of the current insured from the policy nodes in the bill
file for bill IBXIEN. This is used to determine if the address of the
insured is the 'SAME' as the patient's.