1: PACKAGE BODY QP_Validate_Formula AS
2: /* $Header: QPXLPRFB.pls 120.1.12020000.2 2012/07/04 12:03:30 smbalara ship $ */
3:
4: -- Global constant holding the package name
5:
2: /* $Header: QPXLPRFB.pls 120.1.12020000.2 2012/07/04 12:03:30 smbalara ship $ */
3:
4: -- Global constant holding the package name
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'QP_Validate_Formula';
7:
8: -- Procedure Entity
9:
10: PROCEDURE Entity
339: ( p_FORMULA_rec.formula <>
340: p_old_FORMULA_rec.formula OR
341: p_old_FORMULA_rec.formula IS NULL )
342: THEN
343: IF NOT QP_Validate.Formula(p_FORMULA_rec.formula) THEN
344: x_return_status := FND_API.G_RET_STS_ERROR;
345: END IF;
346: END IF;
347:
618: END IF;
619:
620: END Entity_Delete;
621:
622: END QP_Validate_Formula;