The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
ID,
STM_ID,
OBJECT_VERSION_NUMBER,
STREAM_ELEMENT_DATE,
AMOUNT,
COMMENTS,
ACCRUED_YN,
PROGRAM_ID,
REQUEST_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_UPDATE_DATE,
SE_LINE_NUMBER,
DATE_BILLED,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
SEL_ID,
--Added by Keerthi 15-Sep-2003
SOURCE_ID,
SOURCE_TABLE,
-- Added by rgooty: 4212626
bill_adj_flag,
accrual_adj_flag,
-- Added by hkpatel for bug 4350255
date_disbursed
FROM Okl_Strm_Elements
WHERE okl_strm_elements.id = p_id;
l_sel_rec.PROGRAM_UPDATE_DATE,
l_sel_rec.SE_LINE_NUMBER,
l_sel_rec.DATE_BILLED,
l_sel_rec.CREATED_BY,
l_sel_rec.CREATION_DATE,
l_sel_rec.LAST_UPDATED_BY,
l_sel_rec.LAST_UPDATE_DATE,
l_sel_rec.LAST_UPDATE_LOGIN,
l_sel_rec.SEL_ID,
-- Added by Keerthi 15-Sep-2003
l_sel_rec.SOURCE_ID,
l_sel_rec.SOURCE_TABLE,
-- Added by rgooty: 4212626
l_sel_rec.bill_adj_flag,
l_sel_rec.accrual_adj_flag,
-- Added by hkpatel for bug 4350255
l_sel_rec.date_disbursed;
SELECT
ID,
OBJECT_VERSION_NUMBER,
STM_ID,
AMOUNT,
COMMENTS,
ACCRUED_YN,
STREAM_ELEMENT_DATE,
PROGRAM_ID,
REQUEST_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_UPDATE_DATE,
SE_LINE_NUMBER,
DATE_BILLED,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
SEL_ID,
--Added by Keerthi 15-Sep-2003
SOURCE_ID,
SOURCE_TABLE,
-- Added by rgooty: 4212626
BILL_ADJ_FLAG,
ACCRUAL_ADJ_FLAG,
-- Added by hkpatel for bug 4350255
DATE_DISBURSED
FROM Okl_Strm_Elements_V
WHERE okl_strm_elements_v.id = p_id;
l_selv_rec.PROGRAM_UPDATE_DATE,
l_selv_rec.SE_LINE_NUMBER,
l_selv_rec.DATE_BILLED,
l_selv_rec.CREATED_BY,
l_selv_rec.CREATION_DATE,
l_selv_rec.LAST_UPDATED_BY,
l_selv_rec.LAST_UPDATE_DATE,
l_selv_rec.LAST_UPDATE_LOGIN,
l_selv_rec.SEL_ID,
-- Added by Keerthi 15-Sep-2003
l_selv_rec.SOURCE_ID,
l_selv_rec.SOURCE_TABLE,
-- Added by rgooty: 4212626
l_selv_rec.BILL_ADJ_FLAG,
l_selv_rec.ACCRUAL_ADJ_FLAG,
-- Added by hkpatel for bug 4350255
l_selv_rec.DATE_DISBURSED;
IF (l_selv_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
l_selv_rec.program_update_date := NULL;
IF (l_selv_rec.last_updated_by = Okc_Api.G_MISS_NUM) THEN
l_selv_rec.last_updated_by := NULL;
IF (l_selv_rec.last_update_date = Okc_Api.G_MISS_DATE) THEN
l_selv_rec.last_update_date := NULL;
IF (l_selv_rec.last_update_login = Okc_Api.G_MISS_NUM) THEN
l_selv_rec.last_update_login := NULL;
SELECT '1'
FROM OKL_STRM_ELEMENTS_V
WHERE stm_id = p_rec.stm_id
AND stream_element_date = p_rec.stream_element_date
AND id <> NVL(p_rec.id,-9999);
SELECT '1'
FROM OKL_STREAMS_V
WHERE ID=p_selv_rec.STM_ID;
SELECT ID
FROM okl_strm_elements
WHERE id = p_sel_id;
SELECT '1'
FROM okl_strm_elements_v
WHERE stm_id = p_rec.stm_id
AND se_line_number = p_rec.se_line_number
AND id <> NVL(p_rec.id,-9999);
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.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;
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_sel_rec IN sel_rec_type,
x_sel_rec OUT NOCOPY sel_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'ELEMENTS_insert_row';
INSERT INTO OKL_STRM_ELEMENTS(
id,
stm_id,
object_version_number,
stream_element_date,
amount,
comments,
accrued_yn,
program_id,
request_id,
program_application_id,
program_update_date,
se_line_number,
date_billed,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login,
sel_id,
-- Added by Keerthi 15-Sep-2003
source_id,
source_table,
bill_adj_flag,
accrual_adj_flag,
-- Added by hkpatel for bug 4350255
date_disbursed)
VALUES (
l_sel_rec.id,
l_sel_rec.stm_id,
l_sel_rec.object_version_number,
l_sel_rec.stream_element_date,
l_sel_rec.amount,
l_sel_rec.comments,
l_sel_rec.accrued_yn,
l_sel_rec.program_id,
l_sel_rec.request_id,
l_sel_rec.program_application_id,
l_sel_rec.program_update_date,
l_sel_rec.se_line_number,
l_sel_rec.date_billed,
l_sel_rec.created_by,
l_sel_rec.creation_date,
l_sel_rec.last_updated_by,
l_sel_rec.last_update_date,
l_sel_rec.last_update_login,
l_sel_rec.sel_id,
-- Added by Keerthi 15-Sep-2003
l_sel_rec.source_id,
l_sel_rec.source_table,
l_sel_rec.bill_adj_flag,
l_sel_rec.accrual_adj_flag,
-- Added by hkpatel for bug 4350255
l_sel_rec.date_disbursed);
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_selv_rec IN selv_rec_type,
x_selv_rec OUT NOCOPY selv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
l_selv_rec.LAST_UPDATE_DATE := SYSDATE;
l_selv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_selv_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_selv_rec.REQUEST_ID
,x_selv_rec.PROGRAM_APPLICATION_ID
,x_selv_rec.PROGRAM_ID
,x_selv_rec.PROGRAM_UPDATE_DATE
FROM DUAL;
insert_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_sel_rec,
lx_sel_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_selv_tbl IN selv_tbl_type,
x_selv_tbl OUT NOCOPY selv_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
in_program_update_date Okl_Streams_Util.DateTabTyp;
in_last_updated_by Okl_Streams_Util.NumberTabTyp;
in_last_update_date Okl_Streams_Util.DateTabTyp;
in_last_update_login Okl_Streams_Util.NumberTabTyp;
in_program_update_date(j) := p_selv_tbl(i).program_update_date;
in_LAST_UPDATE_DATE(j) := SYSDATE;
in_LAST_UPDATED_BY(j) := FND_GLOBAL.USER_ID;
in_LAST_UPDATE_LOGIN(j) := FND_GLOBAL.LOGIN_ID;
INSERT INTO OKL_STRM_ELEMENTS(
id,
stm_id,
object_version_number,
stream_element_date,
amount,
comments,
accrued_yn,
program_id,
request_id,
program_application_id,
program_update_date,
se_line_number,
date_billed,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login,
sel_id,
source_id,
source_table,
-- Added by rgooty: 4212626
bill_adj_flag,
accrual_adj_flag,
-- Added by hkpatel for bug 4350255
date_disbursed)
VALUES
(in_id(i),
in_stm_id(i),
in_object_version_number(i),
in_stream_element_date(i),
in_amount(i),
in_comments(i),
in_accrued_yn(i),
in_program_id(i),
in_request_id(i),
in_program_application_id(i),
in_program_update_date(i),
in_se_line_number(i),
in_date_billed(i),
in_created_by(i),
in_creation_date(i),
in_last_updated_by(i),
in_last_update_date(i),
in_last_update_login(i),
in_sel_id(i),
in_source_id(i),
in_source_table(i),
-- Added by rgooty: 4212626
in_bill_adj_flag(i),
in_accrual_adj_flag(i),
in_date_disbursed(i));
END insert_row;
SELECT OBJECT_VERSION_NUMBER
FROM OKL_STRM_ELEMENTS
WHERE ID = p_sel_rec.id
AND OBJECT_VERSION_NUMBER = p_sel_rec.object_version_number
FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
SELECT OBJECT_VERSION_NUMBER
FROM OKL_STRM_ELEMENTS
WHERE ID = p_sel_rec.id;
Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
Okc_Api.set_message(G_APP_NAME,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_sel_rec IN sel_rec_type,
x_sel_rec OUT NOCOPY sel_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'ELEMENTS_update_row';
IF (x_sel_rec.program_update_date IS NULL) THEN
x_sel_rec.program_update_date := l_sel_rec.program_update_date;
ELSIF (x_sel_rec.program_update_date = Okc_Api.G_MISS_DATE) THEN
x_sel_rec.program_update_date := NULL;
IF (x_sel_rec.last_updated_by IS NULL) THEN
x_sel_rec.last_updated_by := l_sel_rec.last_updated_by;
ELSIF (x_sel_rec.last_updated_by = Okc_Api.G_MISS_NUM) THEN
x_sel_rec.last_updated_by := NULL;
IF (x_sel_rec.last_update_date IS NULL)THEN
x_sel_rec.last_update_date := l_sel_rec.last_update_date;
ELSIF (x_sel_rec.last_update_date = Okc_Api.G_MISS_DATE) THEN
x_sel_rec.last_update_date := NULL;
IF (x_sel_rec.last_update_login IS NULL)THEN
x_sel_rec.last_update_login := l_sel_rec.last_update_login;
ELSIF (x_sel_rec.last_update_login = Okc_Api.G_MISS_NUM) THEN
x_sel_rec.last_update_login := NULL;
UPDATE OKL_STRM_ELEMENTS
SET STM_ID = l_def_sel_rec.stm_id,
OBJECT_VERSION_NUMBER = l_def_sel_rec.object_version_number,
STREAM_ELEMENT_DATE = l_def_sel_rec.stream_element_date,
AMOUNT = l_def_sel_rec.amount,
COMMENTS = l_def_sel_rec.comments,
ACCRUED_YN = l_def_sel_rec.accrued_yn,
PROGRAM_ID = l_def_sel_rec.program_id,
REQUEST_ID = l_def_sel_rec.request_id,
PROGRAM_APPLICATION_ID = l_def_sel_rec.program_application_id,
PROGRAM_UPDATE_DATE = l_def_sel_rec.program_update_date,
SE_LINE_NUMBER = l_def_sel_rec.se_line_number,
DATE_BILLED = l_def_sel_rec.date_billed,
CREATED_BY = l_def_sel_rec.created_by,
CREATION_DATE = l_def_sel_rec.creation_date,
LAST_UPDATED_BY = l_def_sel_rec.last_updated_by,
LAST_UPDATE_DATE = l_def_sel_rec.last_update_date,
LAST_UPDATE_LOGIN = l_def_sel_rec.last_update_login,
SEL_ID = l_def_sel_rec.sel_id,
-- Added by Keerthi 15-Sep-2003
SOURCE_ID = l_def_sel_rec.source_id,
SOURCE_TABLE = l_def_sel_rec.source_table,
-- Added by rgooty: 4212626
BILL_ADJ_FLAG = l_def_sel_rec.bill_adj_flag,
ACCRUAL_ADJ_FLAG = l_def_sel_rec.accrual_adj_flag,
-- Added by hkpatel for bug 4350255
DATE_DISBURSED = l_def_sel_rec.date_disbursed
WHERE ID = l_def_sel_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_selv_rec IN selv_rec_type,
x_selv_rec OUT NOCOPY selv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
l_selv_rec.LAST_UPDATE_DATE := SYSDATE;
l_selv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_selv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
IF (x_selv_rec.program_update_date IS NULL)THEN
x_selv_rec.program_update_date := l_selv_rec.program_update_date;
ELSIF (x_selv_rec.program_update_date = Okc_Api.G_MISS_DATE)THEN
x_selv_rec.program_update_date := NULL;
IF (x_selv_rec.last_updated_by IS NULL)THEN
x_selv_rec.last_updated_by := l_selv_rec.last_updated_by;
ELSIF (x_selv_rec.last_updated_by = Okc_Api.G_MISS_NUM) THEN
x_selv_rec.last_updated_by := NULL;
IF (x_selv_rec.last_update_date IS NULL)THEN
x_selv_rec.last_update_date := l_selv_rec.last_update_date;
ELSIF (x_selv_rec.last_update_date = Okc_Api.G_MISS_DATE) THEN
x_selv_rec.last_update_date := NULL;
IF (x_selv_rec.last_update_login IS NULL)THEN
x_selv_rec.last_update_login := l_selv_rec.last_update_login;
ELSIF (x_selv_rec.last_update_login = Okc_Api.G_MISS_NUM) THEN
x_selv_rec.last_update_login := NULL;
SELECT NVL(DECODE(Fnd_Global.CONC_REQUEST_ID, -1, NULL, Fnd_Global.CONC_REQUEST_ID)
,x_selv_rec.REQUEST_ID)
,NVL(DECODE(Fnd_Global.PROG_APPL_ID, -1, NULL, Fnd_Global.PROG_APPL_ID)
,x_selv_rec.PROGRAM_APPLICATION_ID)
,NVL(DECODE(Fnd_Global.CONC_PROGRAM_ID, -1, NULL, Fnd_Global.CONC_PROGRAM_ID)
,x_selv_rec.PROGRAM_ID)
,DECODE(DECODE(Fnd_Global.CONC_REQUEST_ID, -1, NULL, SYSDATE)
,NULL,x_selv_rec.PROGRAM_UPDATE_DATE,SYSDATE)
INTO x_selv_rec.REQUEST_ID
,x_selv_rec.PROGRAM_APPLICATION_ID
,x_selv_rec.PROGRAM_ID
,x_selv_rec.PROGRAM_UPDATE_DATE
FROM DUAL;
update_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_sel_rec,
lx_sel_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_selv_tbl IN selv_tbl_type,
x_selv_tbl OUT NOCOPY selv_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_selv_rec => p_selv_tbl(i),
x_selv_rec => x_selv_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_sel_rec IN sel_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'ELEMENTS_delete_row';
DELETE FROM OKL_STRM_ELEMENTS
WHERE ID = l_sel_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_selv_rec IN selv_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_sel_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_selv_tbl IN selv_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_selv_rec => p_selv_tbl(i));
END delete_row;