S IBNOD=^IBE(350.2,DA,0) D VAR^IBAUTL1 Q:Y<0 S Y=(($P(Y,\"^\",2)*$P(IBNOD,\"^\",4))+(+Y*$P(Y,\"^\",3)*$P(IBNOD,\"^\",4))+$P(IBNOD,\"^\",6))+.005\\.01/100
S IBNOD=^IBE(350.2,DA,0) D VAR^IBAUTL1 Q:Y<0 S Y=(($P(Y,\"^\",2)*$P(IBNOD,\"^\",4))+(+Y*$P(Y,\"^\",3)*$P(IBNOD,\"^\",4))+$P(IBNOD,\"^\",6))+.005\\.01/100
S IBNOD=^IBE(350.2,DA,0) D VAR^IBAUTL1 Q:Y<0 S Y=(($P(Y,\"^\",2)*$P(IBNOD,\"^\",4))+(+Y*$P(Y,\"^\",3)*$P(IBNOD,\"^\",4))+$P(IBNOD,\"^\",6))+.005\\.01/100
S IBNOD=^IBE(350.2,DA,0) D VAR^IBAUTL1 Q:Y<0 S Y=(($P(Y,\"^\",2)*$P(IBNOD,\"^\",4))+(+Y*$P(Y,\"^\",3)*$P(IBNOD,\"^\",4))+$P(IBNOD,\"^\",6))+.005\\.01/100
S IBNOD=^IBE(350.2,DA,0) D VAR^IBAUTL1 Q:Y<0 S Y=(($P(Y,\"^\",2)*$P(IBNOD,\"^\",4))+(+Y*$P(Y,\"^\",3)*$P(IBNOD,\"^\",4))+$P(IBNOD,\"^\",6))+.005\\.01/100
S IBNOD=^IBE(350.2,DA,0) D VAR^IBAUTL1 Q:Y<0 S Y=(($P(Y,\"^\",2)*$P(IBNOD,\"^\",4))+(+Y*$P(Y,\"^\",3)*$P(IBNOD,\"^\",4))+$P(IBNOD,\"^\",6))+.005\\.01/100
S IBNOD=^IBE(350.2,DA,0) D VAR^IBAUTL1 Q:Y<0 S Y=(($P(Y,\"^\",2)*$P(IBNOD,\"^\",4))+(+Y*$P(Y,\"^\",3)*$P(IBNOD,\"^\",4))+$P(IBNOD,\"^\",6))+.005\\.01/100
S IBNOD=^IBE(350.2,DA,0) D VAR^IBAUTL1 Q:Y<0 S Y=(($P(Y,\"^\",2)*$P(IBNOD,\"^\",4))+(+Y*$P(Y,\"^\",3)*$P(IBNOD,\"^\",4))+$P(IBNOD,\"^\",6))+.005\\.01/100
S IBNOD=^IBE(350.2,DA,0) D VAR^IBAUTL1 Q:Y<0 S Y=(($P(Y,\"^\",2)*$P(IBNOD,\"^\",4))+(+Y*$P(Y,\"^\",3)*$P(IBNOD,\"^\",4))+$P(IBNOD,\"^\",6))+.005\\.01/100