The following lines contain the word 'select', 'insert', 'update' or 'delete':
ELSIF l_FORMULA_rec.operation = QP_GLOBALS.G_OPR_UPDATE
OR l_FORMULA_rec.operation = QP_GLOBALS.G_OPR_DELETE
THEN
l_FORMULA_rec.db_flag := FND_API.G_TRUE;
l_FORMULA_rec.operation = QP_GLOBALS.G_OPR_UPDATE OR
l_FORMULA_rec.operation = QP_GLOBALS.G_OPR_DELETE THEN
IF l_control_rec.default_attributes
OR l_control_rec.change_attributes
THEN
IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
QP_Validate_Formula.Attributes
( x_return_status => l_return_status
, p_FORMULA_rec => l_FORMULA_rec
, p_old_FORMULA_rec => l_old_FORMULA_rec
);
IF l_FORMULA_rec.operation = QP_GLOBALS.G_OPR_DELETE THEN
QP_Validate_Formula.Entity_Delete
( x_return_status => l_return_status
, p_FORMULA_rec => l_FORMULA_rec
);
IF l_FORMULA_rec.operation = QP_GLOBALS.G_OPR_DELETE THEN
QP_Formula_Util.Delete_Row
( p_price_formula_id => l_FORMULA_rec.price_formula_id
);
l_FORMULA_rec.last_update_date := SYSDATE;
l_FORMULA_rec.last_updated_by := FND_GLOBAL.USER_ID;
l_FORMULA_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
IF l_FORMULA_rec.operation = QP_GLOBALS.G_OPR_UPDATE THEN
QP_Formula_Util.Update_Row (l_FORMULA_rec);
QP_Formula_Util.Insert_Row (l_FORMULA_rec);
END IF;/* End of IF operation is create, update or delete only */
ELSIF l_FORMULA_LINES_rec.operation = QP_GLOBALS.G_OPR_UPDATE
OR l_FORMULA_LINES_rec.operation = QP_GLOBALS.G_OPR_DELETE
THEN
l_FORMULA_LINES_rec.db_flag := FND_API.G_TRUE;
IF l_FORMULA_LINES_rec.operation = QP_GLOBALS.G_OPR_DELETE THEN
QP_Validate_Formula_Lines.Entity_Delete
( x_return_status => l_return_status
, p_FORMULA_LINES_rec => l_FORMULA_LINES_rec
);
IF l_FORMULA_LINES_rec.operation = QP_GLOBALS.G_OPR_DELETE THEN
QP_Formula_Lines_Util.Delete_Row
( p_price_formula_line_id => l_FORMULA_LINES_rec.price_formula_line_id
);
l_FORMULA_LINES_rec.last_update_date := SYSDATE;
l_FORMULA_LINES_rec.last_updated_by := FND_GLOBAL.USER_ID;
l_FORMULA_LINES_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
IF l_FORMULA_LINES_rec.operation = QP_GLOBALS.G_OPR_UPDATE THEN
QP_Formula_Lines_Util.Update_Row (l_FORMULA_LINES_rec);
QP_Formula_Lines_Util.Insert_Row (l_FORMULA_LINES_rec);