The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE UPDATE_STATE_USING_INIT_VALUES(px_arg IN OUT NOCOPY arg,
p_use_splitting IN BOOLEAN,
p_initialized_success_flag IN VARCHAR2,
p_valid_value_flag IN VARCHAR2,
p_canonical_value IN VARCHAR2,
p_source_type IN VARCHAR2,
p_source_text IN VARCHAR2,
p_source_final_text IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_return_msg OUT NOCOPY VARCHAR2)
IS
l_ctxt VARCHAR2(60) := PKG_NAME||'UPDATE_STATE_USING_INIT_VALUES';
SELECT initialized_success_flag, valid_value_flag, canonical_value, source_type, source_text, source_final_text
INTO l_initialized_success_flag, l_valid_value_flag, l_canonical_value, l_source_type, l_source_text, l_source_final_text
FROM fnd_oam_dscram_args_b
WHERE arg_id = px_arg.arg_id;
UPDATE_STATE_USING_INIT_VALUES(px_arg,
p_using_splitting,
l_initialized_success_flag,
l_valid_value_flag,
l_canonical_value,
l_source_type,
l_source_text,
l_source_final_text,
x_return_status,
x_return_msg);
fnd_oam_debug.log(1, l_ctxt, 'Pre-Lock select found already initialized.');
SELECT initialized_success_flag, valid_value_flag, canonical_value, source_type, source_text, source_where_clause, source_final_text
INTO l_initialized_success_flag, l_valid_value_flag, l_canonical_value, l_source_type, l_source_text, l_source_where_clause, l_source_final_text
FROM fnd_oam_dscram_args_b
WHERE arg_id = px_arg.arg_id
FOR UPDATE;
UPDATE_STATE_USING_INIT_VALUES(px_arg,
p_using_splitting,
l_initialized_success_flag,
l_valid_value_flag,
l_canonical_value,
l_source_type,
l_source_text,
l_source_final_text,
x_return_status,
x_return_msg);
fnd_oam_debug.log(1, l_ctxt, 'Locking select found already initialized.');
UPDATE_STATE_USING_INIT_VALUES(px_arg,
p_using_splitting,
l_initialized_success_flag,
l_valid_value_flag,
l_canonical_value,
l_source_type,
l_source_text,
l_source_final_text,
l_return_status,
l_return_msg);
UPDATE fnd_oam_dscram_args_b
SET initialized_success_flag = px_arg.initialized_success_flag,
source_final_text = l_source_final_text,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.user_id,
last_update_date = SYSDATE
WHERE arg_id = px_arg.arg_id;
UPDATE fnd_oam_dscram_args_b
SET valid_value_flag = px_arg.valid_value_flag,
canonical_value = px_arg.canonical_value
WHERE arg_id = px_arg.arg_id;
UPDATE fnd_oam_dscram_args_b
SET initialized_success_flag = FND_API.G_FALSE,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.user_id,
last_update_date = SYSDATE
WHERE arg_id = px_arg.arg_id;
PROCEDURE INSERT_ARG_VALUE(p_arg_id IN NUMBER,
p_valid_value_flag IN VARCHAR2,
p_canonical_value IN VARCHAR2,
p_parent_type IN VARCHAR2,
p_parent_id IN NUMBER DEFAULT NULL,
p_rowid_lbound IN ROWID DEFAULT NULL,
p_rowid_ubound IN ROWID DEFAULT NULL,
p_id_lbound IN NUMBER DEFAULT NULL,
p_id_ubound IN NUMBER DEFAULT NULL,
x_arg_val_id OUT NOCOPY NUMBER)
IS
l_id NUMBER;
INSERT INTO FND_OAM_DSCRAM_ARG_VALUES (ARG_VALUE_ID,
ARG_ID,
PARENT_TYPE,
PARENT_ID,
ROWID_LBOUND,
ROWID_UBOUND,
ID_LBOUND,
ID_UBOUND,
VALID_VALUE_FLAG,
CANONICAL_VALUE,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN)
VALUES
(fnd_oam_dscram_arg_values_s.nextval,
p_arg_id,
p_parent_type,
p_parent_id,
p_rowid_lbound,
p_rowid_ubound,
p_id_lbound,
p_id_ubound,
p_valid_value_flag,
p_canonical_value,
FND_GLOBAL.USER_ID,
SYSDATE,
FND_GLOBAL.USER_ID,
SYSDATE,
FND_GLOBAL.USER_ID)
RETURNING ARG_VALUE_ID INTO l_id;
UPDATE fnd_oam_dscram_args_b
SET valid_value_flag = px_arg.valid_value_flag,
canonical_value = px_arg.canonical_value,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.user_id,
last_update_date = SYSDATE
WHERE arg_id = px_arg.arg_id;
UPDATE fnd_oam_dscram_arg_values
SET valid_value_flag = px_arg.valid_value_flag,
canonical_value = px_arg.canonical_value,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.user_id,
last_update_date = SYSDATE
WHERE arg_id = px_arg.arg_id
AND parent_type = FND_OAM_DSCRAM_UTILS_PKG.G_TYPE_WORKER AND
parent_id = FND_OAM_DSCRAM_BUNDLES_PKG.GET_WORKER_ID;
fnd_oam_debug.log(1, l_ctxt, 'Inserting per-worker arg value.');
INSERT_ARG_VALUE(px_arg.arg_id,
px_arg.valid_value_flag,
px_arg.canonical_value,
FND_OAM_DSCRAM_UTILS_PKG.G_TYPE_WORKER,
FND_OAM_DSCRAM_BUNDLES_PKG.GET_WORKER_ID,
x_arg_val_id => l_arg_val_id);
UPDATE fnd_oam_dscram_arg_values
SET valid_value_flag = px_arg.valid_value_flag,
canonical_value = px_arg.canonical_value,
rowid_lbound = px_arg.rowid_lbound,
rowid_ubound = px_arg.rowid_ubound,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.user_id,
last_update_date = SYSDATE
WHERE arg_id = px_arg.arg_id AND
parent_type = FND_OAM_DSCRAM_UTILS_PKG.G_TYPE_RANGE AND
rowid_lbound = px_arg.rowid_lbound AND
rowid_ubound = px_arg.rowid_ubound;
fnd_oam_debug.log(1, l_ctxt, 'Inserting per-range arg value.');
INSERT_ARG_VALUE(px_arg.arg_id,
px_arg.valid_value_flag,
px_arg.canonical_value,
FND_OAM_DSCRAM_UTILS_PKG.G_TYPE_RANGE,
p_rowid_lbound => px_arg.rowid_lbound,
p_rowid_ubound => px_arg.rowid_ubound,
x_arg_val_id => l_arg_val_id);
fnd_oam_debug.log(1, l_ctxt, 'Inserting always arg value.');
INSERT_ARG_VALUE(px_arg.arg_id,
px_arg.valid_value_flag,
px_arg.canonical_value,
NULL,
p_rowid_lbound => px_arg.rowid_lbound,
p_rowid_ubound => px_arg.rowid_ubound,
x_arg_val_id => l_arg_val_id);
SELECT valid_value_flag, canonical_value
INTO l_valid_value_flag, l_canonical_value
FROM fnd_oam_dscram_args_b
WHERE arg_id = px_arg.arg_id;
SELECT valid_value_flag, canonical_value
INTO l_valid_value_flag, l_canonical_value
FROM fnd_oam_dscram_arg_values
WHERE arg_id = px_arg.arg_id AND
parent_type = FND_OAM_DSCRAM_UTILS_PKG.G_TYPE_WORKER AND
parent_id = FND_OAM_DSCRAM_BUNDLES_PKG.GET_WORKER_ID;
SELECT valid_value_flag, canonical_value
INTO l_valid_value_flag, l_canonical_value
FROM fnd_oam_dscram_arg_values
WHERE arg_id = px_arg.arg_id AND
parent_type = FND_OAM_DSCRAM_UTILS_PKG.G_TYPE_RANGE AND
rowid_lbound = p_rowid_lbound AND
rowid_ubound = p_rowid_ubound;
x_return_msg := 'Arg ID ('||px_arg.arg_id||'), non-locking select: previous call to get_value stored that fetching the value fails. Exiting.';
SELECT valid_value_flag, canonical_value
INTO l_valid_value_flag, l_canonical_value
FROM fnd_oam_dscram_args_b
WHERE arg_id = px_arg.arg_id;
x_return_msg := 'Arg ID ('||px_arg.arg_id||'), locking select: previous call to get_value stored that fetching the value fails. Exiting.';
UPDATE fnd_oam_dscram_args_b
SET initialized_success_flag = NULL,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.user_id,
last_update_date = SYSDATE
WHERE arg_id = p_arg_id;
SELECT arg_id, arg_name, initialized_success_flag, allow_override_source_flag, binding_enabled_flag, permissions, write_policy, datatype, valid_value_flag, canonical_value
BULK COLLECT INTO l_arg_ids, l_arg_names, l_initialized_success_flags, l_allow_override_source_flags, l_binding_enabled_flags, l_permissions,
l_write_policies, l_datatypes, l_valid_value_flags, l_canonical_values
FROM fnd_oam_dscram_args_b
WHERE ((parent_type = FND_OAM_DSCRAM_UTILS_PKG.G_TYPE_GLOBAL) OR
((parent_type = FND_OAM_DSCRAM_UTILS_PKG.G_TYPE_RUN) AND
(parent_id = p_run_id)))
AND enabled_flag = FND_API.G_TRUE
ORDER BY parent_type ASC;
SELECT arg_id, arg_name, initialized_success_flag, allow_override_source_flag, binding_enabled_flag, permissions, write_policy, datatype, valid_value_flag, canonical_value
BULK COLLECT INTO l_arg_ids, l_arg_names, l_initialized_success_flags, l_allow_override_source_flags, l_binding_enabled_flags, l_permissions,
l_write_policies, l_datatypes, l_valid_value_flags, l_canonical_values
FROM fnd_oam_dscram_args_b
WHERE parent_type = p_parent_type
AND parent_id = p_parent_id
AND enabled_flag = FND_API.G_TRUE
ORDER BY arg_id ASC;
PROCEDURE UPDATE_WRITABLE_ARG_VALUES(px_arg_list IN OUT NOCOPY arg_list,
px_arg_context IN OUT NOCOPY arg_context,
p_entity_finished IN BOOLEAN,
p_using_splitting IN BOOLEAN,
p_rowid_lbound IN ROWID,
p_rowid_ubound IN ROWID,
p_execution_cursor_id IN INTEGER,
x_return_status OUT NOCOPY VARCHAR2,
x_return_msg OUT NOCOPY VARCHAR2)
IS
l_ctxt VARCHAR2(60) := PKG_NAME||'UPDATE_WRITABLE_ARG_VALUES';
PROCEDURE UPDATE_CONTEXT_USING_ARG_LIST(px_arg_context IN OUT NOCOPY arg_context,
p_arg_list IN arg_list,
p_using_splitting IN BOOLEAN)
IS
l_ctxt VARCHAR2(60) := PKG_NAME||'UPDATE_CONTEXT_USING_ARG_LIST';
px_arg_list.DELETE;
px_arg_context.DELETE;
delete from FND_OAM_DSCRAM_ARGS_TL T
where not exists
(select NULL
from FND_OAM_DSCRAM_ARGS_B B
where B.ARG_ID = T.ARG_ID
);
update FND_OAM_DSCRAM_ARGS_TL T set (
DISPLAY_NAME,
DESCRIPTION
) = (select
B.DISPLAY_NAME,
B.DESCRIPTION
from FND_OAM_DSCRAM_ARGS_TL B
where B.ARG_ID = T.ARG_ID
and B.LANGUAGE = T.SOURCE_LANG)
where (
T.ARG_ID,
T.LANGUAGE
) in (select
SUBT.ARG_ID,
SUBT.LANGUAGE
from FND_OAM_DSCRAM_ARGS_TL SUBB, FND_OAM_DSCRAM_ARGS_TL SUBT
where SUBB.ARG_ID = SUBT.ARG_ID
and SUBB.LANGUAGE = SUBT.SOURCE_LANG
and (SUBB.DISPLAY_NAME <> SUBT.DISPLAY_NAME
or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
));
insert into FND_OAM_DSCRAM_ARGS_TL (
ARG_ID,
DISPLAY_NAME,
DESCRIPTION,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
LANGUAGE,
SOURCE_LANG
) select /*+ ORDERED */
B.ARG_ID,
B.DISPLAY_NAME,
B.DESCRIPTION,
B.CREATED_BY,
B.CREATION_DATE,
B.LAST_UPDATED_BY,
B.LAST_UPDATE_DATE,
B.LAST_UPDATE_LOGIN,
L.LANGUAGE_CODE,
B.SOURCE_LANG
from FND_OAM_DSCRAM_ARGS_TL B, FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and B.LANGUAGE = userenv('LANG')
and not exists
(select NULL
from FND_OAM_DSCRAM_ARGS_TL T
where T.ARG_ID = B.ARG_ID
and T.LANGUAGE = L.LANGUAGE_CODE);