N IBZ,IBS D GETPRV^IBCEU(IBXIEN,2,.IBZ) F IBS=1:1:3 Q:'$D(^DGCR(399,IBXIEN,"I"_IBS)) S IBXDATA(IBS)=$S($G(IBZ(2,1,IBS))'="":IBZ(2,1,IBS),$$WNRBILL^IBEFUNC(IBXIEN):$P($G(IBZ(2,1)),U,2),1:"")
DESCRIPTION
Extracts the id numbers for all insurance companies for the operating
provider.