N IBZ,IBI S IBI=$S($$FT^IBCEF(IBXIEN)=2!($$FT^IBCEF(IBXIEN)=7):3,1:4) D GETPRV^IBCEU(IBXIEN,IBI,.IBZ) S IBXDATA=$$SPEC^IBCEU($P($G(IBZ(IBI,1)),U,3),+$G(^DGCR(399,IBXIEN,"U")))
DESCRIPTION
Find the specialty from the VA code of the person class attached to the
attending/rendering provider for bill IBXIEN, if it can be determined.