The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT count(*)
INTO l_exists
FROM jts_config_versions_b
WHERE configuration_id = p_config_id;
SELECT max(version_number)
INTO l_max_version
FROM jts_config_versions_b
WHERE configuration_id = p_config_id;
SELECT jts_config_versions_b_s.NEXTVAL
INTO l_version_id
FROM sys.dual;
SELECT version_id
INTO l_version_id
FROM jts_config_versions_b
WHERE version_name = p_version_name
AND configuration_id = p_config_id;
SELECT count(*)
INTO l_count
FROM jts_config_versions_vl
WHERE configuration_id = p_config_id
AND version_name = p_version_name;
PROCEDURE INSERT_ROW(p_configuration_id IN NUMBER,
p_init_version IN VARCHAR2,
x_version_id OUT NUMBER) IS
l_queue_name JTS_CONFIG_VERSIONS_B.queue_name%TYPE;
insert into JTS_CONFIG_VERSIONS_B (
VERSION_ID,
VERSION_NAME,
CONFIGURATION_ID,
VERSION_NUMBER,
QUEUE_NAME,
OBJECT_VERSION_NUMBER,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) values (
X_VERSION_ID,
l_version_name,
P_CONFIGURATION_ID,
L_VERSION_NUMBER,
L_QUEUE_NAME,
1,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
sysdate,
FND_GLOBAL.user_id,
sysdate,
FND_GLOBAL.user_id,
FND_GLOBAL.user_id
);
insert into JTS_CONFIG_VERSIONS_TL (
VERSION_ID,
CONFIGURATION_ID,
DESCRIPTION,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
LANGUAGE,
SOURCE_LANG
) select
X_VERSION_ID,
P_CONFIGURATION_ID,
l_description,
sysdate,
FND_GLOBAL.user_id,
sysdate,
FND_GLOBAL.user_id,
FND_GLOBAL.user_id,
L.LANGUAGE_CODE,
userenv('LANG')
from FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and not exists
(select NULL
from JTS_CONFIG_VERSIONS_TL T
where T.VERSION_ID = X_VERSION_ID
and T.LANGUAGE = L.LANGUAGE_CODE);
END INSERT_ROW;
PROCEDURE DELETE_ROWS(p_config_id IN NUMBER
) IS
BEGIN
DELETE FROM jts_config_versions_b
WHERE configuration_id = p_config_id;
DELETE FROM jts_config_versions_tl
WHERE configuration_id = p_config_id;
END DELETE_ROWS;
INSERT_ROW(p_configuration_id,
p_init_version,
x_version_id);
PROCEDURE UPDATE_VERSION_STAT(p_api_version IN NUMBER,
p_version_id IN NUMBER,
p_status IN VARCHAR2
) IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2 (30) := 'UPDATE_VERSION_STAT';
UPDATE jts_config_versions_b
SET version_status_code = p_status,
last_update_date = sysdate,
last_updated_by = FND_GLOBAL.user_id
WHERE version_id = p_version_id;
END UPDATE_VERSION_STAT;
PROCEDURE UPDATE_REPLAY_DATA(p_api_version IN NUMBER,
p_version_id IN NUMBER,
p_status IN VARCHAR2
) IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2 (30) := 'UPDATE_REPLAY_DATA';
UPDATE jts_config_versions_b
SET replay_status_code = p_status,
replayed_on = sysdate,
replayed_by = FND_GLOBAL.user_id,
last_update_date = sysdate,
last_updated_by = FND_GLOBAL.user_id
WHERE version_id = p_version_id;
END UPDATE_REPLAY_DATA;
PROCEDURE UPDATE_LAST_MODIFIED(p_api_version IN NUMBER,
p_version_id IN NUMBER
) IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2 (30) := 'UPDATE_LAST_MODIFIED';
UPDATE jts_config_versions_b
SET last_update_date = sysdate,
last_updated_by = FND_GLOBAL.user_id
WHERE version_id = p_version_id;
END UPDATE_LAST_MODIFIED;
PROCEDURE UPDATE_NAME_DESC(p_api_version IN NUMBER,
p_version_id IN NUMBER,
p_config_id IN NUMBER,
p_version_name IN VARCHAR2,
p_version_desc IN VARCHAR2,
x_return_status OUT VARCHAR2,
x_msg_count OUT NUMBER,
x_msg_data OUT VARCHAR2
) IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2 (30) := 'UPDATE_NAME_DESC';
SAVEPOINT UPDATE_NAME_DESC;
UPDATE jts_config_versions_b
SET version_name = p_version_name,
last_update_date = sysdate,
last_updated_by = FND_GLOBAL.user_id,
last_update_login = FND_GLOBAL.user_id
WHERE version_id = p_version_id;
UPDATE jts_config_versions_tl
SET description = p_version_desc,
last_update_date = sysdate,
last_updated_by = FND_GLOBAL.user_id,
last_update_login = FND_GLOBAL.user_id,
source_lang = USERENV('LANG')
WHERE version_id = p_version_id
AND USERENV('LANG') IN (language, source_lang);
ROLLBACK TO UPDATE_NAME_DESC;
END UPDATE_NAME_DESC;
PROCEDURE DELETE_VERSION(p_api_version IN Number,
p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
p_version_id IN NUMBER
) IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_VERSION';
SAVEPOINT DELETE_VERSION;
JTS_CONFIG_VER_STATUS_PVT.DELETE_VERSION_STATUSES(p_api_version, p_version_id);
JTS_CONFIG_VERSION_FLOW_PVT.DELETE_VERSION_FLOWS(p_api_version, p_version_id);
JTS_CONFIG_VERSIONS_PKG.DELETE_ROW(p_version_id);
ROLLBACK TO DELETE_VERSION;
END DELETE_VERSION;
PROCEDURE DELETE_SOME_VERSIONS(p_api_version IN Number,
p_version_tbl IN Version_Id_Tbl_Type
) IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_SOME_VERSIONS';
SAVEPOINT DELETE_SOME_VERSIONS;
DELETE_VERSION(p_api_version => p_api_version,
p_commit => FND_API.G_FALSE,
p_version_id => p_version_tbl(i));
ROLLBACK TO DELETE_SOME_VERSIONS;
END DELETE_SOME_VERSIONS;
PROCEDURE DELETE_VERSIONS(p_api_version IN NUMBER,
p_config_id IN NUMBER
) IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_VERSIONS';
JTS_CONFIG_VER_STATUS_PVT.DELETE_CONFIG_VER_STATUSES(p_api_version, p_config_id);
JTS_CONFIG_VERSION_FLOW_PVT.DELETE_CONFIG_VERSION_FLOWS(p_api_version, p_config_id);
DELETE_ROWS(p_config_id);
END DELETE_VERSIONS;
l_debug_info := 'Version select';
SELECT configuration_id, version_id, version_name, version_number, v.description, queue_name,
v.attribute_category, v.attribute1, v.attribute2, v.attribute3, v.attribute4, v.attribute5,
v.attribute6, v.attribute7, v.attribute8, v.attribute9, v.attribute10, v.attribute11,
v.attribute12, v.attribute13, v.attribute14, v.attribute15,
v.creation_date, v.created_by, v.last_update_date, v.last_updated_by, v.last_update_login,
u1.user_name, u2.user_name, replay_status_code, version_status_code,
rep.meaning, ver.meaning, replayed_on, u3.user_name
INTO x_version_rec.configuration_id,
x_version_rec.version_id,
x_version_rec.version_name,
x_version_rec.version_number,
x_version_rec.description,
x_version_rec.queue_name,
x_version_rec.attribute_category,
x_version_rec.attribute1,
x_version_rec.attribute2,
x_version_rec.attribute3,
x_version_rec.attribute4,
x_version_rec.attribute5,
x_version_rec.attribute6,
x_version_rec.attribute7,
x_version_rec.attribute8,
x_version_rec.attribute9,
x_version_rec.attribute10,
x_version_rec.attribute11,
x_version_rec.attribute12,
x_version_rec.attribute13,
x_version_rec.attribute14,
x_version_rec.attribute15,
x_version_rec.creation_date,
x_version_rec.created_by,
x_version_rec.last_update_date,
x_version_rec.last_updated_by,
x_version_rec.last_update_login,
x_version_rec.created_by_name,
x_version_rec.last_updated_by_name,
x_version_rec.replay_status_code,
x_version_rec.version_status_code,
x_version_rec.replay_status,
x_version_rec.version_status,
x_version_rec.replayed_date,
x_version_rec.replayed_by_name
FROM jts_config_versions_vl v,
fnd_lookup_values rep,
fnd_lookup_values ver,
fnd_user u1,
fnd_user u2,
fnd_user u3
WHERE version_id = p_version_id
AND rep.lookup_type (+) = C_STATUS_TYPE
AND rep.lookup_code (+) = v.replay_status_code
AND ver.lookup_type = C_STATUS_TYPE
AND ver.lookup_code = nvl(v.version_status_code, C_NEW)
AND u1.user_id = v.created_by
AND u2.user_id = v.last_updated_by
AND u3.user_id (+) = v.replayed_by;
ELSIF (l_order_by = 'LAST_UPDATE_DATE') THEN
l_order_by := 'v.last_update_date';
ELSIF (l_order_by = 'LAST_UPDATED_BY') THEN
l_order_by := 'u2.user_name';
sqlStmt := 'SELECT configuration_id, version_id, version_name, version_number, v.description, queue_name, '
|| ' v.attribute_category, v.attribute1, v.attribute2, v.attribute3, v.attribute4, v.attribute5, '
|| ' v.attribute6, v.attribute7, v.attribute8, v.attribute9, v.attribute10, v.attribute11, '
|| ' v.attribute12, v.attribute13, v.attribute14, v.attribute15, '
|| ' v.creation_date, v.created_by, v.last_update_date, v.last_updated_by, v.last_update_login, '
|| ' u1.user_name, u2.user_name, '
|| ' replay_status_code, version_status_code, rep.meaning, ver.meaning, '
|| ' replayed_on, u3.user_name '
|| 'FROM jts_config_versions_vl v, '
|| ' fnd_lookup_values rep, '
|| ' fnd_lookup_values ver, '
|| ' fnd_user u1, '
|| ' fnd_user u2, '
|| ' fnd_user u3 '
|| 'WHERE configuration_id = ' || p_config_id ||
' AND rep.lookup_type (+) = ''' || C_STATUS_TYPE ||
''' AND rep.lookup_code (+)= v.replay_status_code ' ||
' AND ver.lookup_type = ''' || C_STATUS_TYPE ||
''' AND ver.lookup_code = nvl(v.version_status_code, ''' || C_NEW || ''') ' ||
' AND u1.user_id = v.created_by ' ||
' AND u2.user_id = v.last_updated_by ' ||
' AND u3.user_id (+) = v.replayed_by ' ||
' ORDER BY ' || l_order_by || ' ' || l_how_to_order;
x_version_tbl(i).last_update_date,
x_version_tbl(i).last_updated_by,
x_version_tbl(i).last_update_login,
x_version_tbl(i).created_by_name,
x_version_tbl(i).last_updated_by_name,
x_version_tbl(i).replay_status_code,
x_version_tbl(i).version_status_code,
x_version_tbl(i).replay_status,
x_version_tbl(i).version_status,
x_version_tbl(i).replayed_date,
x_version_tbl(i).replayed_by_name;