N IBZ,Z D F^IBCEF("N-ALL INSURANCE CO 837 ID","IBZ",,IBXIEN) S Z=+$$COBN^IBCEF(IBXIEN) I $G(IBZ(Z))'="" S IBXDATA=IBZ(Z)
DESCRIPTION
The national insurance file id number for the insurance company for the
batch of bills. Only needs to be extracted once for a batch of bills.
Uses insurance company from current insurance company on bill entry IBXIEN.