The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT dml_id, priority, weight
BULK COLLECT INTO l_ids, l_priorities, l_weights
FROM fnd_oam_dscram_dmls
WHERE unit_id = p_unit_id
AND finished_ret_sts IS NULL
ORDER BY priority ASC, weight DESC;
PROCEDURE UPDATE_COMP_DML_WRITABLE_ARGS(p_dml_id IN NUMBER,
px_arg_context IN OUT NOCOPY FND_OAM_DSCRAM_ARGS_PKG.arg_context,
p_using_splitting IN BOOLEAN,
x_return_status OUT NOCOPY VARCHAR2,
x_return_msg OUT NOCOPY VARCHAR2)
IS
l_ctxt VARCHAR2(60) := PKG_NAME||'UPDATE_COMP_DML_WRITABLE_ARGS';
FND_OAM_DSCRAM_ARGS_PKG.UPDATE_WRITABLE_ARG_VALUES(b_dml_cache(p_dml_id).arg_list,
px_arg_context,
TRUE,
b_dml_cache(p_dml_id).use_splitting,
NULL,
NULL,
NULL,
l_return_status,
l_return_msg);
p_update_context IN BOOLEAN,
x_return_status OUT NOCOPY VARCHAR2,
x_return_msg OUT NOCOPY VARCHAR2)
IS
l_ctxt VARCHAR2(60) := PKG_NAME||'INTERNAL_DESTROY_CACHE_ENTRY';
IF p_update_context THEN
FND_OAM_DSCRAM_ARGS_PKG.UPDATE_CONTEXT_USING_ARG_LIST(px_arg_context,
b_dml_cache(p_dml_id).arg_list,
b_dml_cache(p_dml_id).use_splitting);
b_dml_cache.DELETE(p_dml_id);
p_update_context IN BOOLEAN,
x_return_status OUT NOCOPY VARCHAR2,
x_return_msg OUT NOCOPY VARCHAR2)
IS
l_ctxt VARCHAR2(60) := PKG_NAME||'DESTROY_DML_CACHE_ENTRY';
p_update_context,
x_return_status,
x_return_msg);
b_dml_cache.DELETE;
SELECT finished_ret_sts
INTO l_finished_ret_sts
FROM fnd_oam_dscram_dmls
WHERE dml_id = p_dml_id
FOR UPDATE;
UPDATE fnd_oam_dscram_dmls
SET finished_ret_sts = l_finished_ret_sts
WHERE dml_id = p_dml_id;
UPDATE fnd_oam_dscram_dmls
SET rows_processed = NVL(rows_processed, 0) + l_rows_processed, --needed since its different for each dml and not stored in AD
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.user_id,
last_update_date = SYSDATE
WHERE dml_id = p_dml_id;
SELECT dml_stmt, dml_where_clause, dml_final_stmt
INTO l_dml_stmt, l_where_clause, l_final_dml_stmt
FROM fnd_oam_dscram_dmls
WHERE dml_id = p_dml_id
FOR UPDATE;
UPDATE fnd_oam_dscram_dmls
SET dml_final_stmt = l_final_dml_stmt,
stats_finished = FND_API.G_FALSE,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.user_id,
last_update_date = SYSDATE
WHERE dml_id = p_dml_id;
SELECT dml_final_stmt
INTO l_final_dml_stmt
FROM fnd_oam_dscram_dmls
WHERE dml_id = p_dml_id;
FND_OAM_DSCRAM_ARGS_PKG.UPDATE_WRITABLE_ARG_VALUES(b_dml_cache(p_dml_id).arg_list,
px_arg_context,
NOT p_use_splitting, --we're finished if we're not splitting
p_use_splitting,
p_rowid_lbound,
p_rowid_ubound,
b_dml_cache(p_dml_id).cursor_id,
l_return_status,
l_return_msg);