The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'x'
FROM FND_CURRENCIES
WHERE CURRENCY_CODE = p_party_rec.CURRENCY_CODE;
SELECT 'x'
FROM OKE_FUNDING_POOLS
WHERE FUNDING_POOL_ID = p_party_rec.funding_pool_id;
SELECT 'x'
FROM HZ_PARTIES
WHERE PARTY_ID = p_party_rec.PARTY_ID
AND NVL(STATUS, 'A') = 'A';
SELECT CURRENCY_CODE
FROM OKE_FUNDING_POOLS
WHERE FUNDING_POOL_ID = p_party_rec.FUNDING_POOL_ID;
IF l_party_rec.LAST_UPDATED_BY = OKE_API.G_MISS_NUM THEN
l_party_rec.LAST_UPDATED_BY := NULL;
IF l_party_rec.LAST_UPDATE_LOGIN = OKE_API.G_MISS_NUM THEN
l_party_rec.LAST_UPDATE_LOGIN := NULL;
IF l_party_rec.LAST_UPDATE_DATE = OKE_API.G_MISS_DATE THEN
l_party_rec.LAST_UPDATE_DATE := NULL;
SELECT
POOL_PARTY_ID ,
FUNDING_POOL_ID,
PARTY_ID ,
CURRENCY_CODE ,
CONVERSION_TYPE,
CONVERSION_DATE,
CONVERSION_RATE,
INITIAL_AMOUNT,
AMOUNT ,
AVAILABLE_AMOUNT,
START_DATE_ACTIVE,
END_DATE_ACTIVE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1 ,
ATTRIBUTE2 ,
ATTRIBUTE3 ,
ATTRIBUTE4 ,
ATTRIBUTE5 ,
ATTRIBUTE6 ,
ATTRIBUTE7 ,
ATTRIBUTE8 ,
ATTRIBUTE9 ,
ATTRIBUTE10 ,
ATTRIBUTE11 ,
ATTRIBUTE12 ,
ATTRIBUTE13 ,
ATTRIBUTE14 ,
ATTRIBUTE15
FROM OKE_POOL_PARTIES a
WHERE (a.pool_party_id = p_party_id);
l_party_rec.LAST_UPDATE_DATE ,
l_party_rec.LAST_UPDATED_BY ,
l_party_rec.LAST_UPDATE_LOGIN ,
l_party_rec.ATTRIBUTE_CATEGORY ,
l_party_rec.ATTRIBUTE1 ,
l_party_rec.ATTRIBUTE2 ,
l_party_rec.ATTRIBUTE3 ,
l_party_rec.ATTRIBUTE4 ,
l_party_rec.ATTRIBUTE5 ,
l_party_rec.ATTRIBUTE6 ,
l_party_rec.ATTRIBUTE7 ,
l_party_rec.ATTRIBUTE8 ,
l_party_rec.ATTRIBUTE9 ,
l_party_rec.ATTRIBUTE10 ,
l_party_rec.ATTRIBUTE11 ,
l_party_rec.ATTRIBUTE12 ,
l_party_rec.ATTRIBUTE13 ,
l_party_rec.ATTRIBUTE14 ,
l_party_rec.ATTRIBUTE15 ;
-- row level insert
-- will create using nextVal from sequence OKE_POOL_PARTIES_s
PROCEDURE insert_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_party_rec IN party_rec_type,
x_party_rec OUT NOCOPY party_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
l_party_rec.LAST_UPDATE_DATE := SYSDATE;
l_party_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_party_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
SELECT CURRENCY_CODE INTO l_to_currency
FROM OKE_FUNDING_POOLS
WHERE FUNDING_POOL_ID = p_party_rec.FUNDING_POOL_ID;
BEGIN -- insert
--oke_debug.debug('start call oke_party_pvt.insert_row');
-- overide, since cannot insert id
l_party_rec.pool_party_id := NULL;
SELECT OKE_POOL_PARTIES_S.nextval INTO l_seq FROM dual;
OKE_POOL_PARTIES_PKG.Insert_row
( l_row_id,
l_seq ,
l_def_party_rec.FUNDING_POOL_ID,
l_def_party_rec.PARTY_ID ,
l_def_party_rec.CURRENCY_CODE ,
l_def_party_rec.CONVERSION_TYPE,
l_def_party_rec.CONVERSION_DATE,
l_def_party_rec.CONVERSION_RATE,
l_def_party_rec.INITIAL_AMOUNT,
l_def_party_rec.AMOUNT ,
l_def_party_rec.AVAILABLE_AMOUNT,
l_def_party_rec.START_DATE_ACTIVE,
l_def_party_rec.END_DATE_ACTIVE,
l_def_party_rec.LAST_UPDATE_DATE ,
l_def_party_rec.LAST_UPDATED_BY ,
l_def_party_rec.CREATION_DATE ,
l_def_party_rec.CREATED_BY ,
l_def_party_rec.LAST_UPDATE_LOGIN ,
l_def_party_rec.ATTRIBUTE_CATEGORY ,
l_def_party_rec.ATTRIBUTE1 ,
l_def_party_rec.ATTRIBUTE2 ,
l_def_party_rec.ATTRIBUTE3 ,
l_def_party_rec.ATTRIBUTE4 ,
l_def_party_rec.ATTRIBUTE5 ,
l_def_party_rec.ATTRIBUTE6 ,
l_def_party_rec.ATTRIBUTE7 ,
l_def_party_rec.ATTRIBUTE8 ,
l_def_party_rec.ATTRIBUTE9 ,
l_def_party_rec.ATTRIBUTE10 ,
l_def_party_rec.ATTRIBUTE11 ,
l_def_party_rec.ATTRIBUTE12 ,
l_def_party_rec.ATTRIBUTE13 ,
l_def_party_rec.ATTRIBUTE14 ,
l_def_party_rec.ATTRIBUTE15 );
END insert_row; -- row level
-- table level insert
PROCEDURE insert_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_party_tbl IN party_tbl_type,
x_party_tbl OUT NOCOPY party_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_party_rec => p_party_tbl(i),
x_party_rec => x_party_tbl(i));
END insert_row; -- table level
PROCEDURE update_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_party_rec IN party_rec_type,
x_party_rec OUT NOCOPY party_rec_type) IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
select pool_party_id
from oke_pool_parties
where pool_party_id=p_party_rec.pool_party_id;
SELECT 'x'
FROM OKE_K_FUNDING_SOURCES
WHERE pool_party_id = p_party_rec.pool_party_id;
l_party_rec.LAST_UPDATE_DATE := SYSDATE;
l_party_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_party_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
IF x_party_rec.LAST_UPDATE_DATE = OKE_API.G_MISS_DATE THEN
x_party_rec.LAST_UPDATE_DATE := l_party_rec.LAST_UPDATE_DATE;
IF x_party_rec.LAST_UPDATED_BY = OKE_API.G_MISS_NUM THEN
x_party_rec.LAST_UPDATED_BY := l_party_rec.LAST_UPDATED_BY ;
IF x_party_rec.LAST_UPDATE_LOGIN = OKE_API.G_MISS_NUM THEN
x_party_rec.LAST_UPDATE_LOGIN := l_party_rec.LAST_UPDATE_LOGIN;
SELECT FUNDING_POOL_ID INTO l_pool_id
FROM OKE_POOL_PARTIES
WHERE pool_party_id = p_party_rec.pool_party_id;
SELECT CURRENCY_CODE INTO l_to_currency
FROM OKE_FUNDING_POOLS
WHERE FUNDING_POOL_ID = l_pool_id;
BEGIN -- update row
--oke_debug.debug('start call oke_party_pvt.update_row');
SELECT a.currency_code INTO l_currency
FROM oke_funding_pools a,oke_pool_parties b
WHERE a.funding_pool_id = b.funding_pool_id
AND b.pool_party_id=p_party_rec.pool_party_id;
OKE_POOL_PARTIES_PKG.Update_Row(
l_def_party_rec.POOL_PARTY_ID,
l_def_party_rec.PARTY_ID,
l_def_party_rec.CURRENCY_CODE,
l_def_party_rec.CONVERSION_TYPE,
l_def_party_rec.CONVERSION_DATE,
l_def_party_rec.CONVERSION_RATE,
l_def_party_rec.AMOUNT,
l_def_party_rec.AVAILABLE_AMOUNT,
l_def_party_rec.START_DATE_ACTIVE,
l_def_party_rec.END_DATE_ACTIVE,
l_def_party_rec.LAST_UPDATE_DATE,
l_def_party_rec.LAST_UPDATED_BY,
l_def_party_rec.LAST_UPDATE_LOGIN,
l_def_party_rec.ATTRIBUTE_CATEGORY,
l_def_party_rec.ATTRIBUTE1,
l_def_party_rec.ATTRIBUTE2,
l_def_party_rec.ATTRIBUTE3,
l_def_party_rec.ATTRIBUTE4,
l_def_party_rec.ATTRIBUTE5,
l_def_party_rec.ATTRIBUTE6,
l_def_party_rec.ATTRIBUTE7,
l_def_party_rec.ATTRIBUTE8,
l_def_party_rec.ATTRIBUTE9,
l_def_party_rec.ATTRIBUTE10,
l_def_party_rec.ATTRIBUTE11,
l_def_party_rec.ATTRIBUTE12,
l_def_party_rec.ATTRIBUTE13,
l_def_party_rec.ATTRIBUTE14,
l_def_party_rec.ATTRIBUTE15);
END update_row; -- row level update
PROCEDURE update_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_party_tbl IN party_tbl_type,
x_party_tbl OUT NOCOPY party_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_party_rec => p_party_tbl(i),
x_party_rec => x_party_tbl(i));
END update_row; -- table level update
-- deletes by the funding_party_id
PROCEDURE delete_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_party_rec IN party_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
select pool_party_id
from oke_pool_parties
where pool_party_id=p_party_rec.pool_party_id;
DELETE FROM OKE_POOL_PARTIES
WHERE POOL_PARTY_ID = p_party_rec.POOL_PARTY_ID;
END delete_row;
PROCEDURE delete_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_party_tbl IN party_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_party_rec => p_party_tbl(i));
END delete_row; -- table level delete
SELECT pool_party_id FROM OKE_POOL_PARTIES a
WHERE
a.pool_party_id = p.pool_party_id
FOR UPDATE NOWAIT;
OKE_API.set_message(G_APP_NAME,G_FORM_RECORD_DELETED);