The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE validate_select_yn(x_return_status OUT NOCOPY VARCHAR2,
p_olev_rec IN olev_rec_type) is
Begin
IF (l_debug = 'Y') THEN
okc_debug.Set_Indentation('OKC_OLE_PVT');
okc_debug.log('100: Entered validate_select_yn', 2);
If (p_olev_rec.select_yn = OKC_API.G_MISS_CHAR or
p_olev_rec.select_yn IS NULL)
Then
OKC_API.SET_MESSAGE(p_app_name => g_app_name,
p_msg_name => g_required_value,
p_token1 => g_col_name_token,
p_token1_value => 'Select Flag');
If (p_olev_rec.select_yn <> OKC_API.G_MISS_CHAR and
p_olev_rec.select_yn IS NOT NULL)
Then
If (p_olev_rec.select_yn NOT IN ('Y','N')) Then
OKC_API.SET_MESSAGE(p_app_name => g_app_name,
p_msg_name => g_invalid_value,
p_token1 => g_col_name_token,
p_token1_value => 'Select Flag');
okc_debug.log('200: Leaving validate_select_yn', 2);
okc_debug.log('300: Exiting validate_select_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
okc_debug.log('400: Exiting validate_select_yn:OTHERS Exception', 2);
End validate_select_yn;
SELECT 'x'
FROM okc_operation_instances
WHERE id = p_oie_id;
select 'x'
from OKC_OPERATION_LINES
where id = p_olev_rec.parent_ole_id;
SELECT 'x'
FROM okc_k_headers_b
WHERE id = p_subject_chr_id;
select 'x'
from OKC_K_HEADERS_B
where id = p_olev_rec.object_chr_id;
select 'x'
from OKC_K_LINES_B
where id = p_olev_rec.object_cle_id;
select 'x'
from OKC_K_LINES_B
where id = p_olev_rec.subject_cle_id;
SELECT OKC_OPERATION_LINES_S1.nextval
FROM dual;
SELECT
ID,
SELECT_YN,
PROCESS_FLAG,
ACTIVE_YN,
OIE_ID,
PARENT_OLE_ID,
SUBJECT_CHR_ID,
OBJECT_CHR_ID,
SUBJECT_CLE_ID,
OBJECT_CLE_ID,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
REQUEST_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_ID,
PROGRAM_UPDATE_DATE,
MESSAGE_CODE
FROM Okc_Operation_Lines
WHERE okc_operation_lines.id = p_id;
l_ole_rec.SELECT_YN,
l_ole_rec.PROCESS_FLAG,
l_ole_rec.ACTIVE_YN,
l_ole_rec.OIE_ID,
l_ole_rec.PARENT_OLE_ID,
l_ole_rec.SUBJECT_CHR_ID,
l_ole_rec.OBJECT_CHR_ID,
l_ole_rec.SUBJECT_CLE_ID,
l_ole_rec.OBJECT_CLE_ID,
l_ole_rec.OBJECT_VERSION_NUMBER,
l_ole_rec.CREATED_BY,
l_ole_rec.CREATION_DATE,
l_ole_rec.LAST_UPDATED_BY,
l_ole_rec.LAST_UPDATE_DATE,
l_ole_rec.LAST_UPDATE_LOGIN,
l_ole_rec.REQUEST_ID,
l_ole_rec.PROGRAM_APPLICATION_ID,
l_ole_rec.PROGRAM_ID,
l_ole_rec.PROGRAM_UPDATE_DATE,
l_ole_rec.MESSAGE_CODE;
SELECT
ID,
SELECT_YN,
PROCESS_FLAG,
ACTIVE_YN,
OIE_ID,
PARENT_OLE_ID,
SUBJECT_CHR_ID,
OBJECT_CHR_ID,
SUBJECT_CLE_ID,
OBJECT_CLE_ID,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
REQUEST_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_ID,
PROGRAM_UPDATE_DATE,
MESSAGE_CODE
FROM Okc_Operation_Lines_V
WHERE okc_operation_lines_v.id = p_id;
l_olev_rec.SELECT_YN,
l_olev_rec.PROCESS_FLAG,
l_olev_rec.ACTIVE_YN,
l_olev_rec.OIE_ID,
l_olev_rec.PARENT_OLE_ID,
l_olev_rec.SUBJECT_CHR_ID,
l_olev_rec.OBJECT_CHR_ID,
l_olev_rec.SUBJECT_CLE_ID,
l_olev_rec.OBJECT_CLE_ID,
l_olev_rec.OBJECT_VERSION_NUMBER,
l_olev_rec.CREATED_BY,
l_olev_rec.CREATION_DATE,
l_olev_rec.LAST_UPDATED_BY,
l_olev_rec.LAST_UPDATE_DATE,
l_olev_rec.LAST_UPDATE_LOGIN,
l_olev_rec.REQUEST_ID,
l_olev_rec.PROGRAM_APPLICATION_ID,
l_olev_rec.PROGRAM_ID,
l_olev_rec.PROGRAM_UPDATE_DATE,
l_olev_rec.MESSAGE_CODE;
IF (l_olev_rec.select_yn = OKC_API.G_MISS_CHAR) THEN
l_olev_rec.select_yn := NULL;
IF (l_olev_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
l_olev_rec.last_updated_by := NULL;
IF (l_olev_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
l_olev_rec.last_update_date := NULL;
IF (l_olev_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
l_olev_rec.last_update_login := NULL;
IF (l_olev_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
l_olev_rec.program_update_date := NULL;
validate_select_yn(x_return_status => l_return_status,
p_olev_rec => p_olev_rec);
p_to.select_yn := p_from.select_yn;
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.select_yn := p_from.select_yn;
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 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_ole_rec IN ole_rec_type,
x_ole_rec OUT NOCOPY ole_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'LINES_insert_row';
okc_debug.log('6000: Entered insert_row', 2);
INSERT INTO OKC_OPERATION_LINES(
id,
select_yn,
process_flag,
active_yn,
oie_id,
parent_ole_id,
subject_chr_id,
object_chr_id,
subject_cle_id,
object_cle_id,
object_version_number,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login,
request_id,
program_application_id,
program_id,
program_update_date,
message_code)
VALUES (
l_ole_rec.id,
l_ole_rec.select_yn,
l_ole_rec.process_flag,
l_ole_rec.active_yn,
l_ole_rec.oie_id,
l_ole_rec.parent_ole_id,
l_ole_rec.subject_chr_id,
l_ole_rec.object_chr_id,
l_ole_rec.subject_cle_id,
l_ole_rec.object_cle_id,
l_ole_rec.object_version_number,
l_ole_rec.created_by,
l_ole_rec.creation_date,
l_ole_rec.last_updated_by,
l_ole_rec.last_update_date,
l_ole_rec.last_update_login,
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),
l_ole_rec.message_code);
okc_debug.log('6100: Leaving insert_row', 2);
okc_debug.log('6200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('6300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('6400: Exiting insert_row:OTHERS Exception', 2);
END insert_row;
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_olev_rec IN olev_rec_type,
x_olev_rec OUT NOCOPY olev_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
l_olev_rec.LAST_UPDATE_DATE := l_olev_rec.CREATION_DATE;
l_olev_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_olev_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
x_olev_rec.SELECT_YN := upper(x_olev_rec.SELECT_YN);
okc_debug.log('6700: Entered insert_row', 2);
insert_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_ole_rec,
lx_ole_rec
);
okc_debug.log('6800: Leaving insert_row', 2);
okc_debug.log('6900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('7000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('7100: Exiting insert_row:OTHERS Exception', 2);
END insert_row;
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_olev_tbl IN olev_tbl_type,
x_olev_tbl OUT NOCOPY olev_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
okc_debug.log('7200: Entered insert_row', 2);
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_olev_rec => p_olev_tbl(i),
x_olev_rec => x_olev_tbl(i));
okc_debug.log('7300: Leaving insert_row', 2);
okc_debug.log('7400: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('7500: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('7600: Exiting insert_row:OTHERS Exception', 2);
END insert_row;
SELECT OBJECT_VERSION_NUMBER
FROM OKC_OPERATION_LINES
WHERE ID = p_ole_rec.id
AND OBJECT_VERSION_NUMBER = p_ole_rec.object_version_number
FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
SELECT OBJECT_VERSION_NUMBER
FROM OKC_OPERATION_LINES
WHERE ID = p_ole_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 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_ole_rec IN ole_rec_type,
x_ole_rec OUT NOCOPY ole_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'LINES_update_row';
IF (x_ole_rec.select_yn = OKC_API.G_MISS_CHAR)
THEN
x_ole_rec.select_yn := l_ole_rec.select_yn;
IF (x_ole_rec.last_updated_by = OKC_API.G_MISS_NUM)
THEN
x_ole_rec.last_updated_by := l_ole_rec.last_updated_by;
IF (x_ole_rec.last_update_date = OKC_API.G_MISS_DATE)
THEN
x_ole_rec.last_update_date := l_ole_rec.last_update_date;
IF (x_ole_rec.last_update_login = OKC_API.G_MISS_NUM)
THEN
x_ole_rec.last_update_login := l_ole_rec.last_update_login;
IF (x_ole_rec.program_update_date = OKC_API.G_MISS_DATE)
THEN
x_ole_rec.program_update_date := l_ole_rec.program_update_date;
okc_debug.log('9700: Entered update_row', 2);
UPDATE OKC_OPERATION_LINES
SET SELECT_YN = l_def_ole_rec.select_yn,
PROCESS_FLAG = l_def_ole_rec.process_flag,
ACTIVE_YN = l_def_ole_rec.active_yn,
OIE_ID = l_def_ole_rec.oie_id,
PARENT_OLE_ID = l_def_ole_rec.parent_ole_id,
SUBJECT_CHR_ID = l_def_ole_rec.subject_chr_id,
OBJECT_CHR_ID = l_def_ole_rec.object_chr_id,
SUBJECT_CLE_ID = l_def_ole_rec.subject_cle_id,
OBJECT_CLE_ID = l_def_ole_rec.object_cle_id,
OBJECT_VERSION_NUMBER = l_def_ole_rec.object_version_number,
CREATED_BY = l_def_ole_rec.created_by,
CREATION_DATE = l_def_ole_rec.creation_date,
LAST_UPDATED_BY = l_def_ole_rec.last_updated_by,
LAST_UPDATE_DATE = l_def_ole_rec.last_update_date,
LAST_UPDATE_LOGIN = l_def_ole_rec.last_update_login,
REQUEST_ID = NVL(decode(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),l_def_ole_rec.request_id),
PROGRAM_APPLICATION_ID = NVL(decode(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),l_def_ole_rec.program_application_id),
PROGRAM_ID = NVL(decode(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),l_def_ole_rec.program_id),
PROGRAM_UPDATE_DATE = decode(decode(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),NULL,l_def_ole_rec.program_update_date,SYSDATE),
MESSAGE_CODE = l_def_ole_rec.message_code
WHERE ID = l_def_ole_rec.id;
okc_debug.log('9800: Leaving update_row', 2);
okc_debug.log('9900: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('10000: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('10100: Exiting update_row:OTHERS Exception', 2);
END update_row;
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_olev_rec IN olev_rec_type,
x_olev_rec OUT NOCOPY olev_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
l_olev_rec.LAST_UPDATE_DATE := SYSDATE;
l_olev_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_olev_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
IF (x_olev_rec.select_yn = OKC_API.G_MISS_CHAR)
THEN
x_olev_rec.select_yn := l_olev_rec.select_yn;
IF (x_olev_rec.last_updated_by = OKC_API.G_MISS_NUM)
THEN
x_olev_rec.last_updated_by := l_olev_rec.last_updated_by;
IF (x_olev_rec.last_update_date = OKC_API.G_MISS_DATE)
THEN
x_olev_rec.last_update_date := l_olev_rec.last_update_date;
IF (x_olev_rec.last_update_login = OKC_API.G_MISS_NUM)
THEN
x_olev_rec.last_update_login := l_olev_rec.last_update_login;
IF (x_olev_rec.program_update_date = OKC_API.G_MISS_DATE)
THEN
x_olev_rec.program_update_date := l_olev_rec.program_update_date;
x_olev_rec.SELECT_YN := upper(x_olev_rec.SELECT_YN);
okc_debug.log('10500: Entered update_row', 2);
update_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_ole_rec,
lx_ole_rec
);
okc_debug.log('10600: Leaving update_row', 2);
okc_debug.log('10700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('10800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('10900: Exiting update_row:OTHERS Exception', 2);
END update_row;
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_olev_tbl IN olev_tbl_type,
x_olev_tbl OUT NOCOPY olev_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
okc_debug.log('11000: Entered update_row', 2);
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_olev_rec => p_olev_tbl(i),
x_olev_rec => x_olev_tbl(i));
okc_debug.log('11100: Leaving update_row', 2);
okc_debug.log('11200: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('11300: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('11400: Exiting update_row:OTHERS Exception', 2);
END update_row;
PROCEDURE delete_row(
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_ole_rec IN ole_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'LINES_delete_row';
okc_debug.log('11500: Entered delete_row', 2);
DELETE FROM OKC_OPERATION_LINES
WHERE ID = l_ole_rec.id;
okc_debug.log('11600: Leaving delete_row', 2);
okc_debug.log('11700: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('11800: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('11900: Exiting delete_row:OTHERS Exception', 2);
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_olev_rec IN olev_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
okc_debug.log('12000: Entered delete_row', 2);
delete_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_ole_rec
);
okc_debug.log('12100: Leaving delete_row', 2);
okc_debug.log('12200: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('12300: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('12400: Exiting delete_row:OTHERS Exception', 2);
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_olev_tbl IN olev_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
okc_debug.log('12500: Entered delete_row', 2);
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_olev_rec => p_olev_tbl(i));
okc_debug.log('12600: Leaving delete_row', 2);
okc_debug.log('12700: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('12800: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('12900: Exiting delete_row:OTHERS Exception', 2);
END delete_row;