The following lines contain the word 'select', 'insert', 'update' or 'delete':
select min(LSE1.id + 1)
into l_number
from okc_line_styles_b LSE1
where id < 1000
and NOT EXISTS (select 'x'
from okc_line_styles_b LSE2
where LSE2.id = LSE1.id +1);
select okc_line_styles_s1.nextval
into l_number
from dual;
DELETE FROM OKC_LINE_STYLES_TL T
WHERE NOT EXISTS (
SELECT NULL
FROM OKC_LINE_STYLES_B B
WHERE B.ID = T.ID
);
UPDATE OKC_LINE_STYLES_TL T SET (
NAME,
DESCRIPTION) = (SELECT
B.NAME,
B.DESCRIPTION
FROM OKC_LINE_STYLES_TL B
WHERE B.ID = T.ID
AND B.LANGUAGE = T.SOURCE_LANG)
WHERE (
T.ID,
T.LANGUAGE)
IN (SELECT
SUBT.ID,
SUBT.LANGUAGE
FROM OKC_LINE_STYLES_TL SUBB, OKC_LINE_STYLES_TL SUBT
WHERE SUBB.ID = SUBT.ID
AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
AND (SUBB.NAME <> SUBT.NAME
OR SUBB.DESCRIPTION <> SUBT.DESCRIPTION
OR (SUBB.NAME IS NULL AND SUBT.NAME IS NOT NULL)
OR (SUBB.NAME IS NOT NULL AND SUBT.NAME IS NULL)
OR (SUBB.DESCRIPTION IS NULL AND SUBT.DESCRIPTION IS NOT NULL)
OR (SUBB.DESCRIPTION IS NOT NULL AND SUBT.DESCRIPTION IS NULL)
));
INSERT INTO OKC_LINE_STYLES_TL (
ID,
LANGUAGE,
SOURCE_LANG,
SFWT_FLAG,
NAME,
DESCRIPTION,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN)
SELECT
B.ID,
L.LANGUAGE_CODE,
B.SOURCE_LANG,
B.SFWT_FLAG,
B.NAME,
B.DESCRIPTION,
B.CREATED_BY,
B.CREATION_DATE,
B.LAST_UPDATED_BY,
B.LAST_UPDATE_DATE,
B.LAST_UPDATE_LOGIN
FROM OKC_LINE_STYLES_TL B, FND_LANGUAGES L
WHERE L.INSTALLED_FLAG IN ('I', 'B')
AND B.LANGUAGE = USERENV('LANG')
AND NOT EXISTS(
SELECT NULL
FROM OKC_LINE_STYLES_TL T
WHERE T.ID = B.ID
AND T.LANGUAGE = L.LANGUAGE_CODE
);
SELECT
ID,
LTY_CODE,
PRICED_YN,
RECURSIVE_YN,
PROTECTED_YN,
LSE_PARENT_ID,
LSE_TYPE,
OBJECT_VERSION_NUMBER,
APPLICATION_ID,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
ITEM_TO_PRICE_YN,
PRICE_BASIS_YN,
ACCESS_LEVEL,
SERVICE_ITEM_YN
FROM Okc_Line_Styles_B
WHERE okc_line_styles_b.id = p_id;
l_lse_rec.LAST_UPDATED_BY,
l_lse_rec.LAST_UPDATE_DATE,
l_lse_rec.LAST_UPDATE_LOGIN,
l_lse_rec.ATTRIBUTE_CATEGORY,
l_lse_rec.ATTRIBUTE1,
l_lse_rec.ATTRIBUTE2,
l_lse_rec.ATTRIBUTE3,
l_lse_rec.ATTRIBUTE4,
l_lse_rec.ATTRIBUTE5,
l_lse_rec.ATTRIBUTE6,
l_lse_rec.ATTRIBUTE7,
l_lse_rec.ATTRIBUTE8,
l_lse_rec.ATTRIBUTE9,
l_lse_rec.ATTRIBUTE10,
l_lse_rec.ATTRIBUTE11,
l_lse_rec.ATTRIBUTE12,
l_lse_rec.ATTRIBUTE13,
l_lse_rec.ATTRIBUTE14,
l_lse_rec.ATTRIBUTE15,
l_lse_rec.ITEM_TO_PRICE_YN,
l_lse_rec.PRICE_BASIS_YN,
l_lse_rec.ACCESS_LEVEL,
l_lse_rec.SERVICE_ITEM_YN;
SELECT
ID,
LANGUAGE,
SOURCE_LANG,
SFWT_FLAG,
NAME,
DESCRIPTION,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
FROM Okc_Line_Styles_Tl
WHERE okc_line_styles_tl.id = p_id
AND okc_line_styles_tl.language = p_language;
l_okc_line_styles_tl_rec.LAST_UPDATED_BY,
l_okc_line_styles_tl_rec.LAST_UPDATE_DATE,
l_okc_line_styles_tl_rec.LAST_UPDATE_LOGIN;
SELECT
ID,
LTY_CODE,
priced_yn,
RECURSIVE_YN,
PROTECTED_YN,
LSE_PARENT_ID,
OBJECT_VERSION_NUMBER,
APPLICATION_ID,
SFWT_FLAG,
NAME,
DESCRIPTION,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
LSE_TYPE,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
ITEM_TO_PRICE_YN,
PRICE_BASIS_YN,
ACCESS_LEVEL,
SERVICE_ITEM_YN
FROM Okc_Line_Styles_v
WHERE okc_line_styles_v.id = p_id;
l_lsev_rec.LAST_UPDATED_BY,
l_lsev_rec.LAST_UPDATE_DATE,
l_lsev_rec.LAST_UPDATE_LOGIN,
l_lsev_rec.ITEM_TO_PRICE_YN,
l_lsev_rec.PRICE_BASIS_YN,
l_lsev_rec.ACCESS_LEVEL,
l_lsev_rec.SERVICE_ITEM_YN;
IF (l_lsev_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
l_lsev_rec.last_updated_by := NULL;
IF (l_lsev_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
l_lsev_rec.last_update_date := NULL;
IF (l_lsev_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
l_lsev_rec.last_update_login := NULL;
select id, lse_type from okc_line_styles_b
connect by prior lse_parent_id = id
start with id = p_id;
select id, lse_type from okc_line_styles_b
connect by prior id = lse_parent_id
start with id = p_id;
select name from okc_line_styles_v
where id = p_id;
CURSOR C1 is select id from okc_line_styles_v
where lse_type='TLS' and UPPER(name)=UPPER(p_lsev_rec.name);
SELECT '1'
FROM OKC_LINE_STYLES_B
WHERE id = p_lse_id;
select '1'
from fnd_application
where application_id = p_application_id;
select id, priced_yn, item_to_price_yn, price_basis_yn from okc_line_styles_b
Connect by prior id = lse_parent_id
start with id = p_id;
select id, priced_yn,item_to_price_yn, price_basis_yn from okc_line_styles_b
connect by prior lse_parent_id = id
start with id = p_id;
select OBJECT_USER_CODE
from JTF_OBJECT_USAGES where
OBJECT_CODE = l_object_code
AND OBJECT_USER_CODE = 'OKX_MTL_SYSTEM_ITEM';
select JTOT_OBJECT_CODE
into l_object_code
from OKC_LINE_STYLE_SOURCES
where lse_id = p_lsev_rec.id
and sysdate between START_DATE and nvl(END_DATE,sysdate);
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;
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 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_lse_rec IN lse_rec_type,
x_lse_rec OUT NOCOPY lse_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
INSERT INTO OKC_LINE_STYLES_B(
id,
lty_code,
priced_yn,
RECURSIVE_YN,
PROTECTED_YN,
lse_parent_id,
lse_type,
object_version_number,
application_id,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
item_to_price_yn,
price_basis_yn,
access_level,
service_item_yn)
VALUES (
l_lse_rec.id,
l_lse_rec.lty_code,
l_lse_rec.priced_yn,
l_lse_rec.RECURSIVE_YN,
l_lse_rec.PROTECTED_YN,
l_lse_rec.lse_parent_id,
l_lse_rec.lse_type,
l_lse_rec.object_version_number,
nvl(l_lse_rec.application_id,fnd_global.resp_appl_id),
l_lse_rec.created_by,
l_lse_rec.creation_date,
l_lse_rec.last_updated_by,
l_lse_rec.last_update_date,
l_lse_rec.last_update_login,
l_lse_rec.attribute_category,
l_lse_rec.attribute1,
l_lse_rec.attribute2,
l_lse_rec.attribute3,
l_lse_rec.attribute4,
l_lse_rec.attribute5,
l_lse_rec.attribute6,
l_lse_rec.attribute7,
l_lse_rec.attribute8,
l_lse_rec.attribute9,
l_lse_rec.attribute10,
l_lse_rec.attribute11,
l_lse_rec.attribute12,
l_lse_rec.attribute13,
l_lse_rec.attribute14,
l_lse_rec.attribute15,
l_lse_rec.item_to_price_yn,
l_lse_rec.price_basis_yn,
l_lse_rec.access_level,
l_lse_rec.service_item_yn);
END insert_row;
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_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type,
x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
SELECT *
FROM FND_LANGUAGES
WHERE INSTALLED_FLAG IN ('I', 'B');
INSERT INTO OKC_LINE_STYLES_TL(
id,
language,
source_lang,
sfwt_flag,
name,
description,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login)
VALUES (
l_okc_line_styles_tl_rec.id,
l_okc_line_styles_tl_rec.language,
l_okc_line_styles_tl_rec.source_lang,
l_okc_line_styles_tl_rec.sfwt_flag,
l_okc_line_styles_tl_rec.name,
l_okc_line_styles_tl_rec.description,
l_okc_line_styles_tl_rec.created_by,
l_okc_line_styles_tl_rec.creation_date,
l_okc_line_styles_tl_rec.last_updated_by,
l_okc_line_styles_tl_rec.last_update_date,
l_okc_line_styles_tl_rec.last_update_login);
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_lsev_rec IN lsev_rec_type,
x_lsev_rec OUT NOCOPY lsev_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
l_lsev_rec.LAST_UPDATE_DATE := SYSDATE;
l_lsev_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_lsev_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
insert_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_lse_rec,
lx_lse_rec
);
insert_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_okc_line_styles_tl_rec,
lx_okc_line_styles_tl_rec
);
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_lsev_tbl IN lsev_tbl_type,
x_lsev_tbl OUT NOCOPY lsev_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_lsev_rec => p_lsev_tbl(i),
x_lsev_rec => x_lsev_tbl(i));
END insert_row;
SELECT OBJECT_VERSION_NUMBER
FROM OKC_LINE_STYLES_B
WHERE ID = p_lse_rec.id
AND OBJECT_VERSION_NUMBER = p_lse_rec.object_version_number
FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
SELECT OBJECT_VERSION_NUMBER
FROM OKC_LINE_STYLES_B
WHERE ID = p_lse_rec.id;
OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
SELECT *
FROM OKC_LINE_STYLES_TL
WHERE ID = p_okc_line_styles_tl_rec.id
FOR UPDATE NOWAIT;
OKC_API.set_message(G_FND_APP,G_FORM_RECORD_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_lse_rec IN lse_rec_type,
x_lse_rec OUT NOCOPY lse_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
IF (x_lse_rec.last_updated_by = OKC_API.G_MISS_NUM)
THEN
x_lse_rec.last_updated_by := l_lse_rec.last_updated_by;
IF (x_lse_rec.last_update_date = OKC_API.G_MISS_DATE)
THEN
x_lse_rec.last_update_date := l_lse_rec.last_update_date;
IF (x_lse_rec.last_update_login = OKC_API.G_MISS_NUM)
THEN
x_lse_rec.last_update_login := l_lse_rec.last_update_login;
UPDATE OKC_LINE_STYLES_B
SET LTY_CODE = l_def_lse_rec.lty_code,
PRICED_YN = l_def_lse_rec.PRICED_YN,
RECURSIVE_YN = l_def_lse_rec.RECURSIVE_YN,
LSE_PARENT_ID = l_def_lse_rec.lse_parent_id,
LSE_TYPE = l_def_lse_rec.lse_type,
OBJECT_VERSION_NUMBER = l_def_lse_rec.object_version_number,
APPLICATION_ID = l_def_lse_rec.application_id,
CREATED_BY = l_def_lse_rec.created_by,
CREATION_DATE = l_def_lse_rec.creation_date,
LAST_UPDATED_BY = l_def_lse_rec.last_updated_by,
LAST_UPDATE_DATE = l_def_lse_rec.last_update_date,
LAST_UPDATE_LOGIN = l_def_lse_rec.last_update_login,
ATTRIBUTE_CATEGORY = l_def_lse_rec.attribute_category,
ATTRIBUTE1 = l_def_lse_rec.attribute1,
ATTRIBUTE2 = l_def_lse_rec.attribute2,
ATTRIBUTE3 = l_def_lse_rec.attribute3,
ATTRIBUTE4 = l_def_lse_rec.attribute4,
ATTRIBUTE5 = l_def_lse_rec.attribute5,
ATTRIBUTE6 = l_def_lse_rec.attribute6,
ATTRIBUTE7 = l_def_lse_rec.attribute7,
ATTRIBUTE8 = l_def_lse_rec.attribute8,
ATTRIBUTE9 = l_def_lse_rec.attribute9,
ATTRIBUTE10 = l_def_lse_rec.attribute10,
ATTRIBUTE11 = l_def_lse_rec.attribute11,
ATTRIBUTE12 = l_def_lse_rec.attribute12,
ATTRIBUTE13 = l_def_lse_rec.attribute13,
ATTRIBUTE14 = l_def_lse_rec.attribute14,
ATTRIBUTE15 = l_def_lse_rec.attribute15,
ITEM_TO_PRICE_YN = l_def_lse_rec.item_to_price_yn,
PRICE_BASIS_YN = l_def_lse_rec.price_basis_yn,
ACCESS_LEVEL = l_def_lse_rec.access_level,
SERVICE_ITEM_YN = l_def_lse_rec.service_item_yn
WHERE ID = l_def_lse_rec.id;
END update_row;
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_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type,
x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
IF (x_okc_line_styles_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
THEN
x_okc_line_styles_tl_rec.last_updated_by := l_okc_line_styles_tl_rec.last_updated_by;
IF (x_okc_line_styles_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
THEN
x_okc_line_styles_tl_rec.last_update_date := l_okc_line_styles_tl_rec.last_update_date;
IF (x_okc_line_styles_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
THEN
x_okc_line_styles_tl_rec.last_update_login := l_okc_line_styles_tl_rec.last_update_login;
UPDATE OKC_LINE_STYLES_TL
SET NAME = l_def_okc_line_styles_tl_rec.name,
DESCRIPTION = l_def_okc_line_styles_tl_rec.description,
CREATED_BY = l_def_okc_line_styles_tl_rec.created_by,
CREATION_DATE = l_def_okc_line_styles_tl_rec.creation_date,
LAST_UPDATED_BY = l_def_okc_line_styles_tl_rec.last_updated_by,
LAST_UPDATE_DATE = l_def_okc_line_styles_tl_rec.last_update_date,
LAST_UPDATE_LOGIN = l_def_okc_line_styles_tl_rec.last_update_login
WHERE ID = l_def_okc_line_styles_tl_rec.id
AND SOURCE_LANG = USERENV('LANG');
UPDATE OKC_LINE_STYLES_TL
SET SFWT_FLAG = 'Y'
WHERE ID = l_def_okc_line_styles_tl_rec.id
AND SOURCE_LANG <> USERENV('LANG');
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_lsev_rec IN lsev_rec_type,
x_lsev_rec OUT NOCOPY lsev_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
l_lsev_rec.LAST_UPDATE_DATE := SYSDATE;
l_lsev_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_lsev_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
IF (x_lsev_rec.last_updated_by = OKC_API.G_MISS_NUM)
THEN
x_lsev_rec.last_updated_by := l_lsev_rec.last_updated_by;
IF (x_lsev_rec.last_update_date = OKC_API.G_MISS_DATE)
THEN
x_lsev_rec.last_update_date := l_lsev_rec.last_update_date;
IF (x_lsev_rec.last_update_login = OKC_API.G_MISS_NUM)
THEN
x_lsev_rec.last_update_login := l_lsev_rec.last_update_login;
update_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_okc_line_styles_tl_rec,
lx_okc_line_styles_tl_rec
);
update_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_lse_rec,
lx_lse_rec
);
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_lsev_tbl IN lsev_tbl_type,
x_lsev_tbl OUT NOCOPY lsev_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_lsev_rec => p_lsev_tbl(i),
x_lsev_rec => x_lsev_tbl(i));
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_lse_rec IN lse_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
DELETE FROM OKC_LINE_STYLES_B
WHERE ID = l_lse_rec.id;
END delete_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_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
DELETE FROM OKC_LINE_STYLES_TL
WHERE ID = l_okc_line_styles_tl_rec.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_lsev_rec IN lsev_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
cursor c1(p_id number) is select created_by from OKC_LINE_STYLES_B
where ID=p_id;
OKC_API.set_message(G_APP_NAME,'OKC_NOT_DELETE_SEEDED');
delete_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_okc_line_styles_tl_rec
);
delete_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_lse_rec
);
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_lsev_tbl IN lsev_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_lsev_rec => p_lsev_tbl(i));
END delete_row;