The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
ID,
TRANSACTION_NUMBER,
SRT_CODE,
EFFECTIVE_PRE_TAX_YIELD,
YIELD_NAME,
INDEX_NUMBER,
EFFECTIVE_AFTER_TAX_YIELD,
NOMINAL_PRE_TAX_YIELD,
NOMINAL_AFTER_TAX_YIELD,
STREAM_INTERFACE_ATTRIBUTE01,
STREAM_INTERFACE_ATTRIBUTE02,
STREAM_INTERFACE_ATTRIBUTE03,
STREAM_INTERFACE_ATTRIBUTE04,
STREAM_INTERFACE_ATTRIBUTE05,
STREAM_INTERFACE_ATTRIBUTE06,
STREAM_INTERFACE_ATTRIBUTE07,
STREAM_INTERFACE_ATTRIBUTE08,
STREAM_INTERFACE_ATTRIBUTE09,
STREAM_INTERFACE_ATTRIBUTE10,
STREAM_INTERFACE_ATTRIBUTE11,
STREAM_INTERFACE_ATTRIBUTE12,
STREAM_INTERFACE_ATTRIBUTE13,
STREAM_INTERFACE_ATTRIBUTE14,
STREAM_INTERFACE_ATTRIBUTE15,
OBJECT_VERSION_NUMBER,
CREATED_BY,
LAST_UPDATED_BY,
CREATION_DATE,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
IMPLICIT_INTEREST_RATE,
DATE_PROCESSED,
-- mvasudev -- 02/21/2002
-- new columns added for concurrent program manager
REQUEST_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_ID,
PROGRAM_UPDATE_DATE
-- end,mvasudev -- 02/21/2002
FROM Okl_Sif_Rets
WHERE okl_sif_rets.id = p_id;
l_sir_rec.LAST_UPDATED_BY,
l_sir_rec.CREATION_DATE,
l_sir_rec.LAST_UPDATE_DATE,
l_sir_rec.LAST_UPDATE_LOGIN,
l_sir_rec.IMPLICIT_INTEREST_RATE,
l_sir_rec.DATE_PROCESSED,
-- mvasudev -- 02/21/2002
-- new columns added for concurrent program manager
l_sir_rec.REQUEST_ID,
l_sir_rec.PROGRAM_APPLICATION_ID,
l_sir_rec.PROGRAM_ID,
l_sir_rec.PROGRAM_UPDATE_DATE;
SELECT
ID,
TRANSACTION_NUMBER,
SRT_CODE,
EFFECTIVE_PRE_TAX_YIELD,
YIELD_NAME,
INDEX_NUMBER,
EFFECTIVE_AFTER_TAX_YIELD,
NOMINAL_PRE_TAX_YIELD,
NOMINAL_AFTER_TAX_YIELD,
STREAM_INTERFACE_ATTRIBUTE01,
STREAM_INTERFACE_ATTRIBUTE02,
STREAM_INTERFACE_ATTRIBUTE03,
STREAM_INTERFACE_ATTRIBUTE04,
STREAM_INTERFACE_ATTRIBUTE05,
STREAM_INTERFACE_ATTRIBUTE06,
STREAM_INTERFACE_ATTRIBUTE07,
STREAM_INTERFACE_ATTRIBUTE08,
STREAM_INTERFACE_ATTRIBUTE09,
STREAM_INTERFACE_ATTRIBUTE10,
STREAM_INTERFACE_ATTRIBUTE11,
STREAM_INTERFACE_ATTRIBUTE12,
STREAM_INTERFACE_ATTRIBUTE13,
STREAM_INTERFACE_ATTRIBUTE14,
STREAM_INTERFACE_ATTRIBUTE15,
OBJECT_VERSION_NUMBER,
CREATED_BY,
LAST_UPDATED_BY,
CREATION_DATE,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
IMPLICIT_INTEREST_RATE,
DATE_PROCESSED,
-- mvasudev -- 02/21/2002
-- new columns added for concurrent program manager
REQUEST_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_ID,
PROGRAM_UPDATE_DATE
-- end,mvasudev -- 02/21/2002
FROM Okl_Sif_Rets_V
WHERE okl_sif_rets_v.id = p_id;
l_sirv_rec.LAST_UPDATED_BY,
l_sirv_rec.CREATION_DATE,
l_sirv_rec.LAST_UPDATE_DATE,
l_sirv_rec.LAST_UPDATE_LOGIN,
l_sirv_rec.IMPLICIT_INTEREST_RATE,
l_sirv_rec.DATE_PROCESSED,
-- mvasudev -- 02/21/2002
-- new columns added for concurrent program manager
l_sirv_rec.REQUEST_ID,
l_sirv_rec.PROGRAM_APPLICATION_ID,
l_sirv_rec.PROGRAM_ID,
l_sirv_rec.PROGRAM_UPDATE_DATE;
IF (l_sirv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
l_sirv_rec.last_updated_by := NULL;
IF (l_sirv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
l_sirv_rec.last_update_date := NULL;
IF (l_sirv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
l_sirv_rec.last_update_login := NULL;
IF (l_sirv_rec.PROGRAM_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
l_sirv_rec.PROGRAM_UPDATE_DATE := NULL;
SELECT '1'
FROM OKL_STREAM_INTERFACES_V
WHERE OKL_STREAM_INTERFACES_V.transaction_number = p_transaction_number;
SELECT '1'
FROM OKL_SIF_RETS_V
WHERE OKL_SIF_RETS_V.transaction_number = p_rec.transaction_number
AND
OKL_SIF_RETS_V.Yield_Name = p_rec.Yield_Name
AND
id <> NVL(p_rec.id,-9999);
p_to.last_updated_by := p_from.last_updated_by;
p_to.last_update_date := p_from.last_update_date;
p_to.last_update_login := p_from.last_update_login;
p_to.PROGRAM_UPDATE_DATE := p_from.PROGRAM_UPDATE_DATE;
p_to.last_updated_by := p_from.last_updated_by;
p_to.last_update_date := p_from.last_update_date;
p_to.last_update_login := p_from.last_update_login;
p_to.PROGRAM_UPDATE_DATE := p_from.PROGRAM_UPDATE_DATE;
PROCEDURE insert_row(
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_sir_rec IN sir_rec_type,
x_sir_rec OUT NOCOPY sir_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'RETS_insert_row';
INSERT INTO OKL_SIF_RETS(
id,
transaction_number,
srt_code,
effective_pre_tax_yield,
yield_name,
index_number,
effective_after_tax_yield,
nominal_pre_tax_yield,
nominal_after_tax_yield,
stream_interface_attribute01,
stream_interface_attribute02,
stream_interface_attribute03,
stream_interface_attribute04,
stream_interface_attribute05,
stream_interface_attribute06,
stream_interface_attribute07,
stream_interface_attribute08,
stream_interface_attribute09,
stream_interface_attribute10,
stream_interface_attribute11,
stream_interface_attribute12,
stream_interface_attribute13,
stream_interface_attribute14,
stream_interface_attribute15,
object_version_number,
created_by,
last_updated_by,
creation_date,
last_update_date,
last_update_login,
implicit_interest_rate,
date_processed,
-- mvasudev -- 02/21/2002
-- new columns added for concurrent program manager
request_id,
program_application_id,
program_id,
program_update_date
-- end,mvasudev -- 02/21/2002
)
VALUES (
l_sir_rec.id,
l_sir_rec.transaction_number,
l_sir_rec.srt_code,
l_sir_rec.effective_pre_tax_yield,
l_sir_rec.yield_name,
l_sir_rec.index_number,
l_sir_rec.effective_after_tax_yield,
l_sir_rec.nominal_pre_tax_yield,
l_sir_rec.nominal_after_tax_yield,
l_sir_rec.stream_interface_attribute01,
l_sir_rec.stream_interface_attribute02,
l_sir_rec.stream_interface_attribute03,
l_sir_rec.stream_interface_attribute04,
l_sir_rec.stream_interface_attribute05,
l_sir_rec.stream_interface_attribute06,
l_sir_rec.stream_interface_attribute07,
l_sir_rec.stream_interface_attribute08,
l_sir_rec.stream_interface_attribute09,
l_sir_rec.stream_interface_attribute10,
l_sir_rec.stream_interface_attribute11,
l_sir_rec.stream_interface_attribute12,
l_sir_rec.stream_interface_attribute13,
l_sir_rec.stream_interface_attribute14,
l_sir_rec.stream_interface_attribute15,
l_sir_rec.object_version_number,
l_sir_rec.created_by,
l_sir_rec.last_updated_by,
l_sir_rec.creation_date,
l_sir_rec.last_update_date,
l_sir_rec.last_update_login,
l_sir_rec.implicit_interest_rate,
l_sir_rec.date_processed,
-- mvasudev -- 02/21/2002
-- new columns added for concurrent program manager
l_sir_rec.request_id,
l_sir_rec.program_application_id,
l_sir_rec.program_id,
l_sir_rec.program_update_date
-- end,mvasudev -- 02/21/2002
);
END insert_row;
PROCEDURE insert_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_sirv_rec IN sirv_rec_type,
x_sirv_rec OUT NOCOPY sirv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
l_sirv_rec.LAST_UPDATE_DATE := SYSDATE;
l_sirv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_sirv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
SELECT DECODE(Fnd_Global.CONC_REQUEST_ID, -1, NULL,Fnd_Global.CONC_REQUEST_ID),
DECODE(Fnd_Global.PROG_APPL_ID, -1, NULL,Fnd_Global.PROG_APPL_ID),
DECODE(Fnd_Global.CONC_PROGRAM_ID, -1, NULL,Fnd_Global.CONC_PROGRAM_ID),
DECODE(Fnd_Global.CONC_REQUEST_ID, -1, NULL, SYSDATE)
INTO x_sirv_rec.REQUEST_ID
,x_sirv_rec.PROGRAM_APPLICATION_ID
,x_sirv_rec.PROGRAM_ID
,x_sirv_rec.PROGRAM_UPDATE_DATE
FROM DUAL;
insert_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_sir_rec,
lx_sir_rec
);
END insert_row;
PROCEDURE insert_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_sirv_tbl IN sirv_tbl_type,
x_sirv_tbl OUT NOCOPY sirv_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
insert_row (
p_api_version => p_api_version,
p_init_msg_list => OKC_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_sirv_rec => p_sirv_tbl(i),
x_sirv_rec => x_sirv_tbl(i));
END insert_row;
SELECT OBJECT_VERSION_NUMBER
FROM OKL_SIF_RETS
WHERE ID = p_sir_rec.id
AND OBJECT_VERSION_NUMBER = p_sir_rec.object_version_number
FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
SELECT OBJECT_VERSION_NUMBER
FROM OKL_SIF_RETS
WHERE ID = p_sir_rec.id;
OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
OKC_API.set_message(G_OKC_APP,G_RECORD_LOGICALLY_DELETED);
PROCEDURE update_row(
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_sir_rec IN sir_rec_type,
x_sir_rec OUT NOCOPY sir_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'RETS_update_row';
IF (x_sir_rec.last_updated_by = OKC_API.G_MISS_NUM)
THEN
x_sir_rec.last_updated_by := l_sir_rec.last_updated_by;
IF (x_sir_rec.last_update_date = OKC_API.G_MISS_DATE)
THEN
x_sir_rec.last_update_date := l_sir_rec.last_update_date;
IF (x_sir_rec.last_update_login = OKC_API.G_MISS_NUM)
THEN
x_sir_rec.last_update_login := l_sir_rec.last_update_login;
IF (x_sir_rec.PROGRAM_UPDATE_DATE = OKC_API.G_MISS_DATE)
THEN
x_sir_rec.PROGRAM_UPDATE_DATE := l_sir_rec.PROGRAM_UPDATE_DATE;
UPDATE OKL_SIF_RETS
SET TRANSACTION_NUMBER = l_def_sir_rec.transaction_number,
SRT_CODE = l_def_sir_rec.srt_code,
EFFECTIVE_PRE_TAX_YIELD = l_def_sir_rec.effective_pre_tax_yield,
YIELD_NAME = l_def_sir_rec.yield_name,
INDEX_NUMBER = l_def_sir_rec.index_number,
EFFECTIVE_AFTER_TAX_YIELD = l_def_sir_rec.effective_after_tax_yield,
NOMINAL_PRE_TAX_YIELD = l_def_sir_rec.nominal_pre_tax_yield,
NOMINAL_AFTER_TAX_YIELD = l_def_sir_rec.nominal_after_tax_yield,
STREAM_INTERFACE_ATTRIBUTE01 = l_def_sir_rec.STREAM_INTERFACE_ATTRIBUTE01,
STREAM_INTERFACE_ATTRIBUTE02 = l_def_sir_rec.STREAM_INTERFACE_ATTRIBUTE02,
STREAM_INTERFACE_ATTRIBUTE03 = l_def_sir_rec.STREAM_INTERFACE_ATTRIBUTE03,
STREAM_INTERFACE_ATTRIBUTE04 = l_def_sir_rec.STREAM_INTERFACE_ATTRIBUTE04,
STREAM_INTERFACE_ATTRIBUTE05 = l_def_sir_rec.STREAM_INTERFACE_ATTRIBUTE05,
STREAM_INTERFACE_ATTRIBUTE06 = l_def_sir_rec.STREAM_INTERFACE_ATTRIBUTE06,
STREAM_INTERFACE_ATTRIBUTE07 = l_def_sir_rec.STREAM_INTERFACE_ATTRIBUTE07,
STREAM_INTERFACE_ATTRIBUTE08 = l_def_sir_rec.STREAM_INTERFACE_ATTRIBUTE08,
STREAM_INTERFACE_ATTRIBUTE09 = l_def_sir_rec.STREAM_INTERFACE_ATTRIBUTE09,
STREAM_INTERFACE_ATTRIBUTE10 = l_def_sir_rec.STREAM_INTERFACE_ATTRIBUTE10,
STREAM_INTERFACE_ATTRIBUTE11 = l_def_sir_rec.STREAM_INTERFACE_ATTRIBUTE11,
STREAM_INTERFACE_ATTRIBUTE12 = l_def_sir_rec.STREAM_INTERFACE_ATTRIBUTE12,
STREAM_INTERFACE_ATTRIBUTE13 = l_def_sir_rec.STREAM_INTERFACE_ATTRIBUTE13,
STREAM_INTERFACE_ATTRIBUTE14 = l_def_sir_rec.STREAM_INTERFACE_ATTRIBUTE14,
STREAM_INTERFACE_ATTRIBUTE15 = l_def_sir_rec.STREAM_INTERFACE_ATTRIBUTE15,
OBJECT_VERSION_NUMBER = l_def_sir_rec.object_version_number,
CREATED_BY = l_def_sir_rec.created_by,
LAST_UPDATED_BY = l_def_sir_rec.last_updated_by,
CREATION_DATE = l_def_sir_rec.creation_date,
LAST_UPDATE_DATE = l_def_sir_rec.last_update_date,
LAST_UPDATE_LOGIN = l_def_sir_rec.last_update_login,
IMPLICIT_INTEREST_RATE = l_def_sir_rec.implicit_interest_rate,
DATE_PROCESSED = l_def_sir_rec.date_processed,
-- mvasudev -- 02/21/2002
-- new columns added for concurrent program manager
REQUEST_ID = l_def_sir_rec.REQUEST_ID,
PROGRAM_APPLICATION_ID = l_def_sir_rec.PROGRAM_APPLICATION_ID,
PROGRAM_ID = l_def_sir_rec.PROGRAM_ID,
PROGRAM_UPDATE_DATE = l_def_sir_rec.PROGRAM_UPDATE_DATE
-- end,mvasudev -- 02/21/2002
WHERE ID = l_def_sir_rec.id;
END update_row;
PROCEDURE update_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_sirv_rec IN sirv_rec_type,
x_sirv_rec OUT NOCOPY sirv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
l_sirv_rec.LAST_UPDATE_DATE := SYSDATE;
l_sirv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_sirv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
IF (x_sirv_rec.last_updated_by = OKC_API.G_MISS_NUM)
THEN
x_sirv_rec.last_updated_by := l_sirv_rec.last_updated_by;
IF (x_sirv_rec.last_update_date = OKC_API.G_MISS_DATE)
THEN
x_sirv_rec.last_update_date := l_sirv_rec.last_update_date;
IF (x_sirv_rec.last_update_login = OKC_API.G_MISS_NUM)
THEN
x_sirv_rec.last_update_login := l_sirv_rec.last_update_login;
IF (x_sirv_rec.PROGRAM_UPDATE_DATE = OKC_API.G_MISS_DATE)
THEN
x_sirv_rec.PROGRAM_UPDATE_DATE := l_sirv_rec.PROGRAM_UPDATE_DATE;
update_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_sir_rec,
lx_sir_rec
);
END update_row;
PROCEDURE update_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_sirv_tbl IN sirv_tbl_type,
x_sirv_tbl OUT NOCOPY sirv_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
update_row (
p_api_version => p_api_version,
p_init_msg_list => OKC_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_sirv_rec => p_sirv_tbl(i),
x_sirv_rec => x_sirv_tbl(i));
END update_row;
PROCEDURE delete_row(
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_sir_rec IN sir_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'RETS_delete_row';
DELETE FROM OKL_SIF_RETS
WHERE ID = l_sir_rec.id;
END delete_row;
PROCEDURE delete_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_sirv_rec IN sirv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
delete_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_sir_rec
);
END delete_row;
PROCEDURE delete_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_sirv_tbl IN sirv_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
delete_row (
p_api_version => p_api_version,
p_init_msg_list => OKC_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_sirv_rec => p_sirv_tbl(i));
END delete_row;