The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'x'
FROM OKE_K_HEADERS
WHERE K_HEADER_ID = p_rle_rec.K_HEADER_ID;
SELECT 'x'
FROM OKE_CHG_REQUESTS
WHERE CHG_REQUEST_ID = p_rle_rec.CHG_REQUEST_ID;
SELECT 'x'
FROM OKE_K_HEADERS
WHERE K_HEADER_ID = p_rle_rec.related_entity_id;
SELECT 'x'
FROM
((Select major_version
From OKE_K_VERS_NUMBERS_V
Where chr_id = p_rle_rec.related_entity_id)
UNION
(Select major_version
From OKE_K_HEADERS_H
Where k_header_id = p_rle_rec.related_entity_id)
)
WHERE major_version = p_rle_rec.related_entity_version;
IF l_rle_rec.LAST_UPDATED_BY = OKE_API.G_MISS_NUM THEN
l_rle_rec.LAST_UPDATED_BY := NULL;
IF l_rle_rec.LAST_UPDATE_LOGIN = OKE_API.G_MISS_NUM THEN
l_rle_rec.LAST_UPDATE_LOGIN := NULL;
IF l_rle_rec.LAST_UPDATE_DATE = OKE_API.G_MISS_DATE THEN
l_rle_rec.LAST_UPDATE_DATE := NULL;
-- row level insert
PROCEDURE insert_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_rle_rec IN rle_rec_type,
x_rle_rec OUT NOCOPY rle_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
l_rle_rec.LAST_UPDATE_DATE := SYSDATE;
l_rle_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_rle_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
BEGIN -- insert
l_return_status := OKE_API.START_ACTIVITY(l_api_name,
G_PKG_NAME,
p_init_msg_list,
l_api_version,
p_api_version,
'_PVT',
x_return_status);
INSERT INTO OKE_K_RELATED_ENTITIES(
K_HEADER_ID ,
CHG_REQUEST_ID ,
RELATED_ENTITY_ID ,
RELATED_ENTITY_VERSION,
CREATION_DATE ,
CREATED_BY ,
LAST_UPDATE_DATE ,
LAST_UPDATED_BY ,
LAST_UPDATE_LOGIN
)
VALUES(
l_def_rle_rec.K_HEADER_ID ,
l_def_rle_rec.CHG_REQUEST_ID ,
l_def_rle_rec.RELATED_ENTITY_ID ,
l_def_rle_rec.RELATED_ENTITY_VERSION,
l_def_rle_rec.CREATION_DATE ,
l_def_rle_rec.CREATED_BY ,
l_def_rle_rec.LAST_UPDATE_DATE ,
l_def_rle_rec.LAST_UPDATED_BY ,
l_def_rle_rec.LAST_UPDATE_LOGIN
);
SELECT rowid INTO x_rle_rec.ROW_ID
FROM OKE_K_RELATED_ENTITIES
WHERE K_HEADER_ID=x_rle_rec.K_HEADER_ID
AND
(CHG_REQUEST_ID = x_rle_rec.CHG_REQUEST_ID
OR
(CHG_REQUEST_ID IS NULL
AND x_rle_rec.CHG_REQUEST_ID IS NULL))
AND RELATED_ENTITY_ID = x_rle_rec.RELATED_ENTITY_ID
AND
(RELATED_ENTITY_VERSION = x_rle_rec.RELATED_ENTITY_VERSION
OR
(RELATED_ENTITY_VERSION IS NULL
AND x_rle_rec.RELATED_ENTITY_VERSION IS NULL));
END insert_row; -- row level
-- table level insert
PROCEDURE insert_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_rle_tbl IN rle_tbl_type,
x_rle_tbl OUT NOCOPY rle_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'TBL_insert_row';
insert_row (
p_api_version => p_api_version,
p_init_msg_list => OKE_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rle_rec => p_rle_tbl(i),
x_rle_rec => x_rle_tbl(i));
END insert_row; -- table level
PROCEDURE update_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_rle_rec IN rle_rec_type,
x_rle_rec OUT NOCOPY rle_rec_type) IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
l_rle_rec.LAST_UPDATE_DATE := SYSDATE;
l_rle_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_rle_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
BEGIN -- update row
l_return_status := OKE_API.START_ACTIVITY(l_api_name,
G_PKG_NAME,
p_init_msg_list,
l_api_version,
p_api_version,
'_PVT',
x_return_status);
UPDATE OKE_K_RELATED_ENTITIES
SET
K_HEADER_ID = l_def_rle_rec.K_HEADER_ID,
CHG_REQUEST_ID = l_def_rle_rec.CHG_REQUEST_ID,
RELATED_ENTITY_ID = l_def_rle_rec.RELATED_ENTITY_ID,
RELATED_ENTITY_VERSION = l_def_rle_rec.RELATED_ENTITY_VERSION,
CREATION_DATE = l_def_rle_rec.CREATION_DATE,
CREATED_BY = l_def_rle_rec.CREATED_BY,
LAST_UPDATE_DATE = l_def_rle_rec.LAST_UPDATE_DATE,
LAST_UPDATED_BY = l_def_rle_rec.LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = l_def_rle_rec.LAST_UPDATE_LOGIN
WHERE
rowid = l_def_rle_rec.ROW_ID;
END update_row; -- row level update
PROCEDURE update_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_rle_tbl IN rle_tbl_type,
x_rle_tbl OUT NOCOPY rle_tbl_type) IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30) := 'TBL_update_row';
update_row (
p_api_version => p_api_version,
p_init_msg_list => OKE_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rle_rec => p_rle_tbl(i),
x_rle_rec => x_rle_tbl(i));
END update_row; -- table level update
PROCEDURE delete_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_rle_rec IN rle_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
DELETE FROM OKE_K_RELATED_ENTITIES
WHERE rowid = p_rle_rec.ROW_ID;
END delete_row;
PROCEDURE delete_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_rle_tbl IN rle_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'TBL_delete_row';
delete_row (
p_api_version => p_api_version,
p_init_msg_list => OKE_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rle_rec => p_rle_tbl(i));
END delete_row; -- table level delete
SELECT k_header_id,related_entity_id,related_entity_version FROM oke_k_related_entities a
WHERE a.rowid = p.ROW_ID
FOR UPDATE NOWAIT;
OKE_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);