N IBZ D F^IBCEF("N-CURRENT INSURED RELATIONSHIP","IBZ",,IBXIEN) K:$$WNRBILL^IBEFUNC(IBXIEN,+$$COBN^IBCEF(IBXIEN)) IBXDATA I +IBZ=1 S:$D(IBXDATA) IBXDATA="SAME" S IBXSAVE("IBSAME")=1
FORMAT CODE DESCRIPTION
If the current insured is the patient, the word 'SAME' is printed instead
of repeating the name.