The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Delete_Rows (
p_table_name IN VARCHAR2
, p_category_set_id IN NUMBER
, p_organization_id IN NUMBER
, p_category_id IN NUMBER
, x_err_msg OUT NOCOPY VARCHAR2
, x_err_code OUT NOCOPY VARCHAR2
) IS
l_del_sql VARCHAR2(2000);
l_select VARCHAR2(2000);
l_del_sql := 'DELETE FROM ' || p_table_name ;
l_del_sql := ' DELETE FROM ASL_INVENTORY_PRICING AI WHERE AI.INVENTORY_ITEM_ID IN (';
l_select := ' SELECT AI.INVENTORY_ITEM_ID FROM ASL_INVENTORY_PRICING AI, ASL_INVENTORY_ITEM_DENORM AD';
EXECUTE IMMEDIATE l_del_sql||l_select||l_where||l_del_where1||l_del_where2||l_close using p_category_set_id, p_organization_id;
EXECUTE IMMEDIATE l_del_sql||l_select||l_where||l_del_where1||l_del_where2||l_del_where3||l_close using p_category_set_id, p_organization_id, p_category_id;
x_err_msg := 'Delete_Rows: PASS';
END Delete_Rows;
, p_delete_mode IN VARCHAR2 DEFAULT NULL
) IS
BEGIN
IF p_action = 'I' -- Insert
THEN
FND_MESSAGE.SET_NAME( 'ASL', 'ASL_LOAD_ROWS_INSERTED' );
ELSIF p_action = 'U' -- Update
THEN
FND_MESSAGE.SET_NAME( 'ASL', 'ASL_LOAD_ROWS_UPDATED' );
ELSIF p_action = 'D' -- Delete
THEN
FND_MESSAGE.SET_NAME( 'ASL', 'ASL_LOAD_ROWS_DELETED' );
FND_MESSAGE.SET_TOKEN( 'DELETE_MODE', p_delete_mode );