The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE update_object_name(p_object_code IN VARCHAR2
,p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
,p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2)
IS
CURSOR c_object IS
SELECT select_id, select_name, from_table, where_clause
FROM jtf_objects_b
WHERE object_code = p_object_code;
l_id_column jtf_objects_b.select_id%TYPE;
l_name_column jtf_objects_b.select_name%TYPE;
SAVEPOINT update_object_name_pub;
l_stmt := 'UPDATE jtf_tasks_b '||
' SET source_object_name = (SELECT SUBSTRB('||l_name_column||',1,80)'||
' FROM '||l_from_clause||
' WHERE '||l_where_clause||
l_id_column||' = source_object_id) '||
' WHERE source_object_type_code = '''||p_object_code||''''||
' AND NVL(deleted_flag,''N'') = ''N''';
l_stmt := 'UPDATE jtf_task_references_b '||
' SET object_name = (SELECT SUBSTRB('||l_name_column||',1,80)'||
' FROM '||l_from_clause||
' WHERE '||l_where_clause||
l_id_column||' = object_id) '||
' WHERE object_type_code = '''||p_object_code||'''';
ROLLBACK TO update_object_name_pub;
ROLLBACK TO update_object_name_pub;
END update_object_name;