N IBZ,IBT S IBT=$S($$FT^IBCEF(IBXIEN)=2:3,$$FT^IBCEF(IBXIEN)=7:3,1:4) D GETPRV^IBCEU(IBXIEN,IBT,.IBZ) S IBXDATA=$P($G(IBZ(IBT,1)),U)_U_$P($G(IBZ(IBT,1)),U,3)_U_$P($G(IBZ(IBT,1)),U,4)
DESCRIPTION
The name of the attending (inpatient) or rendering (outpatient) physician
for bill entry IBXIEN. inpatient type=4, outpatient=3
1st '^'-piece is name, 2nd is new person file ien, 3rd is credentials
