N Z,Z0,IBZ S IBZ=$G(IBXDATA) K IBXDATA S Z0=$$COBN^IBCEF(IBXIEN),IBXDATA(Z0)=$$DOL^IBCEF77(+IBZ,11) F Z=1:1:3 I Z'=Z0,$D(^DGCR(399,IBXIEN,"I"_Z)) S IBXDATA(Z)=$$DOL^IBCEF77(0,11)
FORMAT CODE DESCRIPTION
Set the estimated amt for the current insurance equal to the balance on the
bill.