[Home] [Help]
The following lines contain the word 'select', 'insert', 'update' or 'delete':
delete from OKL_TRX_TYPES_TL T
where not exists (
select null
from OKL_TRX_TYPES_B B --fixed bug 3321017 by kmotepal
where B.ID = T.ID
);
update OKL_TRX_TYPES_TL T set (
name,
DESCRIPTION,
CONTRACT_HEADER_LINE_FLAG,
TRANSACTION_HEADER_LINE_DETAIL) = (select
B.name,
B.DESCRIPTION,
B.CONTRACT_HEADER_LINE_FLAG,
B.TRANSACTION_HEADER_LINE_DETAIL
from OKL_TRX_TYPES_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 OKL_TRX_TYPES_TL SUBB, OKL_TRX_TYPES_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.CONTRACT_HEADER_LINE_FLAG <> SUBT.CONTRACT_HEADER_LINE_FLAG
or SUBB.TRANSACTION_HEADER_LINE_DETAIL <> SUBT.TRANSACTION_HEADER_LINE_DETAIL
or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
));
insert into OKL_TRX_TYPES_TL (
ID,
language,
SOURCE_LANG,
SFWT_FLAG,
name,
DESCRIPTION,
CONTRACT_HEADER_LINE_FLAG,
TRANSACTION_HEADER_LINE_DETAIL,
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.CONTRACT_HEADER_LINE_FLAG,
B.TRANSACTION_HEADER_LINE_DETAIL,
B.CREATED_BY,
B.CREATION_DATE,
B.LAST_UPDATED_BY,
B.LAST_UPDATE_DATE,
B.LAST_UPDATE_LOGIN
from OKL_TRX_TYPES_TL B, FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and B.language = USERENV('LANG')
and not exists(
select null
from OKL_TRX_TYPES_TL T
where T.ID = B.ID
and T.language = L.LANGUAGE_CODE
);
select
ID,
TRY_ID,
TRY_ID_FOR,
ILC_ID,
AEP_CODE,
TRY_TYPE,
OBJECT_VERSION_NUMBER,
ORG_ID,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
TRX_TYPE_CLASS,
--Added by kthiruva on 04-May-2005 for Tax Enhancements
--Bug 4386433 - Start of Changes
TAX_UPFRONT_YN,
TAX_INVOICE_YN,
TAX_SCHEDULE_YN,
--Bug 4386433 - End of Changes
--Bug 5707866 dpsingh
FORMULA_YN,
ACCOUNTING_EVENT_CLASS_CODE
from Okl_Trx_Types_B
where okl_trx_types_b.id = p_id;
l_try_rec.LAST_UPDATED_BY,
l_try_rec.LAST_UPDATE_DATE,
l_try_rec.LAST_UPDATE_LOGIN,
l_try_rec.TRX_TYPE_CLASS,
--Added by kthiruva on 04-May-2005 for Tax Enhancements
--Bug 4386433 - Start of Changes
l_try_rec.TAX_UPFRONT_YN,
l_try_rec.TAX_INVOICE_YN,
l_try_rec.TAX_SCHEDULE_YN,
--Bug 4386433 - End of Changes
--Bug 5707866 dpsingh
l_try_rec.FORMULA_YN,
l_try_rec.ACCOUNTING_EVENT_CLASS_CODE;
select
ID,
language,
SOURCE_LANG,
SFWT_FLAG,
name,
DESCRIPTION,
CONTRACT_HEADER_LINE_FLAG,
TRANSACTION_HEADER_LINE_DETAIL,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
from Okl_Trx_Types_Tl
where okl_trx_types_tl.id = p_id
and okl_trx_types_tl.language = p_language;
l_okl_trx_types_tl_rec.LAST_UPDATED_BY,
l_okl_trx_types_tl_rec.LAST_UPDATE_DATE,
l_okl_trx_types_tl_rec.LAST_UPDATE_LOGIN;
select
ID,
OBJECT_VERSION_NUMBER,
SFWT_FLAG,
AEP_CODE,
ILC_ID,
TRY_ID,
TRY_ID_FOR,
TRY_TYPE,
name,
DESCRIPTION,
CONTRACT_HEADER_LINE_FLAG,
TRANSACTION_HEADER_LINE_DETAIL,
ORG_ID,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
TRX_TYPE_CLASS,
--Added by kthiruva on 04-May-2005 for Tax Enhancements
--Bug 4386433 - Start of Changes
TAX_UPFRONT_YN,
TAX_INVOICE_YN,
TAX_SCHEDULE_YN,
--Bug 4386433 - End of Changes
--Bug 5707866 dpsingh
FORMULA_YN,
ACCOUNTING_EVENT_CLASS_CODE
from Okl_Trx_Types_V
where okl_trx_types_v.id = p_id;
l_tryv_rec.LAST_UPDATED_BY,
l_tryv_rec.LAST_UPDATE_DATE,
l_tryv_rec.LAST_UPDATE_LOGIN,
l_tryv_rec.TRX_TYPE_CLASS,
--Added by kthiruva on 04-May-2005 for Tax Enhancements
--Bug 4386433 - Start of Changes
l_tryv_rec.TAX_UPFRONT_YN,
l_tryv_rec.TAX_INVOICE_YN,
l_tryv_rec.TAX_SCHEDULE_YN,
--Bug 4386433 - End of Changes
--Bug 5707866 dpsingh
l_tryv_rec.FORMULA_YN,
l_tryv_rec.ACCOUNTING_EVENT_CLASS_CODE;
if (l_tryv_rec.last_updated_by = Okc_Api.G_MISS_NUM) then
l_tryv_rec.last_updated_by := null;
if (l_tryv_rec.last_update_date = Okc_Api.G_MISS_DATE) then
l_tryv_rec.last_update_date := null;
if (l_tryv_rec.last_update_login = Okc_Api.G_MISS_NUM) then
l_tryv_rec.last_update_login := null;
select '1'
from OKL_TRX_TYPES_V
where id = p_id;
select '1'
from OKL_TRX_TYPES_V
where id = p_id;
select 1
from okl_trx_types_tl
where name = p_name
and language = l_language
and id <> p_id;
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_try_rec in try_rec_type,
x_try_rec out NOCOPY try_rec_type) is
l_api_version constant number := 1;
l_api_name constant varchar2(30) := 'B_insert_row';
insert into OKL_TRX_TYPES_B(
id,
try_id,
try_id_for,
ilc_id,
aep_code,
try_type,
trx_type_class,
object_version_number,
org_id,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login,
--Added by kthiruva on 04-May-2005 for Tax Enhancements
--Bug 4386433 - Start of Changes
tax_upfront_yn,
tax_invoice_yn,
tax_schedule_yn,
--Bug 4386433 - End of Changes,
--Bug 5707866 dpsingh
formula_yn,
accounting_event_class_code
)
values (
l_try_rec.id,
l_try_rec.try_id,
l_try_rec.try_id_for,
l_try_rec.ilc_id,
l_try_rec.aep_code,
l_try_rec.try_type,
l_try_rec.trx_type_class,
l_try_rec.object_version_number,
l_try_rec.org_id,
l_try_rec.created_by,
l_try_rec.creation_date,
l_try_rec.last_updated_by,
l_try_rec.last_update_date,
l_try_rec.last_update_login,
--Added by kthiruva on 04-May-2005 for Tax Enhancements
--Bug 4386433 - Start of Changes
l_try_rec.tax_upfront_yn,
l_try_rec.tax_invoice_yn,
l_try_rec.tax_schedule_yn,
--Bug 4386433 - End of Changes
--Bug 5707866 dpsingh
l_try_rec.formula_yn,
l_try_rec.accounting_event_class_code
);
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_okl_trx_types_tl_rec in okl_trx_types_tl_rec_type,
x_okl_trx_types_tl_rec out NOCOPY okl_trx_types_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 OKL_TRX_TYPES_TL(
id,
language,
source_lang,
sfwt_flag,
name,
description,
contract_header_line_flag,
transaction_header_line_detail,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login)
values (
l_okl_trx_types_tl_rec.id,
l_okl_trx_types_tl_rec.language,
l_okl_trx_types_tl_rec.source_lang,
l_okl_trx_types_tl_rec.sfwt_flag,
l_okl_trx_types_tl_rec.name,
l_okl_trx_types_tl_rec.description,
l_okl_trx_types_tl_rec.contract_header_line_flag,
l_okl_trx_types_tl_rec.transaction_header_line_detail,
l_okl_trx_types_tl_rec.created_by,
l_okl_trx_types_tl_rec.creation_date,
l_okl_trx_types_tl_rec.last_updated_by,
l_okl_trx_types_tl_rec.last_update_date,
l_okl_trx_types_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_tryv_rec in tryv_rec_type,
x_tryv_rec out NOCOPY tryv_rec_type) is
l_api_version constant number := 1;
l_api_name constant varchar2(30) := 'V_insert_row';
l_tryv_rec.LAST_UPDATE_DATE := SYSDATE;
l_tryv_rec.LAST_UPDATED_BY := Fnd_Global.USER_ID;
l_tryv_rec.LAST_UPDATE_LOGIN := Fnd_Global.LOGIN_ID;
insert_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_try_rec,
lx_try_rec
);
insert_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_okl_trx_types_tl_rec,
lx_okl_trx_types_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_tryv_tbl in tryv_tbl_type,
x_tryv_tbl out NOCOPY tryv_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_tryv_rec => p_tryv_tbl(i),
x_tryv_rec => x_tryv_tbl(i));
end insert_row;
select OBJECT_VERSION_NUMBER
from OKL_TRX_TYPES_B
where ID = p_try_rec.id
and OBJECT_VERSION_NUMBER = p_try_rec.object_version_number
for update of OBJECT_VERSION_NUMBER nowait;
select OBJECT_VERSION_NUMBER
from OKL_TRX_TYPES_B
where ID = p_try_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 OKL_TRX_TYPES_TL
where ID = p_okl_trx_types_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_try_rec in try_rec_type,
x_try_rec out NOCOPY try_rec_type) is
l_api_version constant number := 1;
l_api_name constant varchar2(30) := 'B_update_row';
if (x_try_rec.last_updated_by = Okc_Api.G_MISS_NUM)
then
x_try_rec.last_updated_by := l_try_rec.last_updated_by;
if (x_try_rec.last_update_date = Okc_Api.G_MISS_DATE)
then
x_try_rec.last_update_date := l_try_rec.last_update_date;
if (x_try_rec.last_update_login = Okc_Api.G_MISS_NUM)
then
x_try_rec.last_update_login := l_try_rec.last_update_login;
update OKL_TRX_TYPES_B
set TRY_ID = l_def_try_rec.try_id,
TRY_ID_FOR = l_def_try_rec.try_id_for,
ILC_ID = l_def_try_rec.ilc_id,
AEP_CODE = l_def_try_rec.aep_code,
TRX_TYPE_CLASS = l_def_try_rec.trx_type_Class,
TRY_TYPE = l_def_try_rec.try_type,
OBJECT_VERSION_NUMBER = l_def_try_rec.object_version_number,
ORG_ID = l_def_try_rec.org_id,
CREATED_BY = l_def_try_rec.created_by,
CREATION_DATE = l_def_try_rec.creation_date,
LAST_UPDATED_BY = l_def_try_rec.last_updated_by,
LAST_UPDATE_DATE = l_def_try_rec.last_update_date,
LAST_UPDATE_LOGIN = l_def_try_rec.last_update_login,
--Added by kthiruva on 04-May-2005 for Tax Enhancements
--Bug 4386433 - Start of Changes
TAX_UPFRONT_YN = l_def_try_rec.tax_upfront_yn,
TAX_INVOICE_YN = l_def_try_rec.tax_invoice_yn,
TAX_SCHEDULE_YN = l_def_try_rec.tax_schedule_yn,
--Bug 4386433 - End of Changes
--Bug 5707866 dpsingh
FORMULA_YN = l_def_try_rec.formula_yn,
ACCOUNTING_EVENT_CLASS_CODE = l_def_try_rec.accounting_event_class_code
where ID = l_def_try_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_okl_trx_types_tl_rec in okl_trx_types_tl_rec_type,
x_okl_trx_types_tl_rec out NOCOPY okl_trx_types_tl_rec_type) is
l_api_version constant number := 1;
l_api_name constant varchar2(30) := 'TL_update_row';
if (x_okl_trx_types_tl_rec.last_updated_by = Okc_Api.G_MISS_NUM)
then
x_okl_trx_types_tl_rec.last_updated_by := l_okl_trx_types_tl_rec.last_updated_by;
if (x_okl_trx_types_tl_rec.last_update_date = Okc_Api.G_MISS_DATE)
then
x_okl_trx_types_tl_rec.last_update_date := l_okl_trx_types_tl_rec.last_update_date;
if (x_okl_trx_types_tl_rec.last_update_login = Okc_Api.G_MISS_NUM)
then
x_okl_trx_types_tl_rec.last_update_login := l_okl_trx_types_tl_rec.last_update_login;
update OKL_TRX_TYPES_TL
set name = l_def_okl_trx_types_tl_rec.name,
DESCRIPTION = l_def_okl_trx_types_tl_rec.description,
CONTRACT_HEADER_LINE_FLAG = l_def_okl_trx_types_tl_rec.contract_header_line_flag,
TRANSACTION_HEADER_LINE_DETAIL = l_def_okl_trx_types_tl_rec.transaction_header_line_detail,
CREATED_BY = l_def_okl_trx_types_tl_rec.created_by,
SOURCE_LANG = l_def_okl_trx_types_tl_rec.source_lang,
CREATION_DATE = l_def_okl_trx_types_tl_rec.creation_date,
LAST_UPDATED_BY = l_def_okl_trx_types_tl_rec.last_updated_by,
LAST_UPDATE_DATE = l_def_okl_trx_types_tl_rec.last_update_date,
LAST_UPDATE_LOGIN = l_def_okl_trx_types_tl_rec.last_update_login
where ID = l_def_okl_trx_types_tl_rec.id
and USERENV('LANG') in (SOURCE_LANG, language);
update OKL_TRX_TYPES_TL
set SFWT_FLAG = 'Y'
where ID = l_def_okl_trx_types_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_tryv_rec in tryv_rec_type,
x_tryv_rec out NOCOPY tryv_rec_type) is
l_api_version constant number := 1;
l_api_name constant varchar2(30) := 'V_update_row';
l_tryv_rec.LAST_UPDATE_DATE := SYSDATE;
l_tryv_rec.LAST_UPDATED_BY := Fnd_Global.USER_ID;
l_tryv_rec.LAST_UPDATE_LOGIN := Fnd_Global.LOGIN_ID;
if (x_tryv_rec.last_updated_by = Okc_Api.G_MISS_NUM)
then
x_tryv_rec.last_updated_by := l_tryv_rec.last_updated_by;
if (x_tryv_rec.last_update_date = Okc_Api.G_MISS_DATE)
then
x_tryv_rec.last_update_date := l_tryv_rec.last_update_date;
if (x_tryv_rec.last_update_login = Okc_Api.G_MISS_NUM)
then
x_tryv_rec.last_update_login := l_tryv_rec.last_update_login;
update_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_okl_trx_types_tl_rec,
lx_okl_trx_types_tl_rec
);
update_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_try_rec,
lx_try_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_tryv_tbl in tryv_tbl_type,
x_tryv_tbl out NOCOPY tryv_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_tryv_rec => p_tryv_tbl(i),
x_tryv_rec => x_tryv_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_try_rec in try_rec_type) is
l_api_version constant number := 1;
l_api_name constant varchar2(30) := 'B_delete_row';
delete from OKL_TRX_TYPES_B
where ID = l_try_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_okl_trx_types_tl_rec in okl_trx_types_tl_rec_type) is
l_api_version constant number := 1;
l_api_name constant varchar2(30) := 'TL_delete_row';
delete from OKL_TRX_TYPES_TL
where ID = l_okl_trx_types_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_tryv_rec in tryv_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_okl_trx_types_tl_rec
);
delete_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_try_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_tryv_tbl in tryv_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_tryv_rec => p_tryv_tbl(i));
end delete_row;
p_last_update_date IN VARCHAR2,
x_return_status IN OUT NOCOPY VARCHAR2) IS
f_luby NUMBER; -- entity owner in file
f_ludate DATE; -- entity update date in file
db_ludate DATE; -- entity update date in db
f_ludate := nvl(to_date(p_last_update_date, 'YYYY/MM/DD'), sysdate);
SELECT LAST_UPDATED_BY, LAST_UPDATE_DATE
INTO db_luby, db_ludate
FROM OKL_TRX_TYPES_TL
where ID = to_number(p_tryv_rec.id)
and USERENV('LANG') =language;
UPDATE OKL_TRX_TYPES_TL
SET
NAME = p_tryv_rec.name,
DESCRIPTION = p_tryv_rec.description,
LAST_UPDATE_DATE = f_ludate,
LAST_UPDATED_BY = f_luby,
LAST_UPDATE_LOGIN = 0,
SOURCE_LANG = USERENV('LANG')
WHERE ID = to_number(p_tryv_rec.ID)
AND USERENV('LANG') IN (language,source_lang);
p_last_update_date IN VARCHAR2,
x_return_status IN OUT NOCOPY VARCHAR2) IS
id NUMBER;
f_ludate DATE; -- entity update date in file
db_ludate DATE; -- entity update date in db
f_ludate := nvl(to_date(p_last_update_date, 'YYYY/MM/DD'), sysdate);
SELECT ID , LAST_UPDATED_BY, LAST_UPDATE_DATE
INTO id, db_luby, db_ludate
FROM OKL_TRX_TYPES_B
where ID = p_tryv_rec.id;
UPDATE OKL_TRX_TYPES_B
SET
OBJECT_VERSION_NUMBER = p_tryv_rec.object_version_number,
TRY_ID = p_tryv_rec.try_id,
TRY_ID_FOR = p_tryv_rec.try_id_for,
ILC_ID = p_tryv_rec.ilc_id,
AEP_CODE = p_tryv_rec.aep_code,
TRY_TYPE = p_tryv_rec.try_type,
TRX_TYPE_CLASS = p_tryv_rec.trx_type_class,
LAST_UPDATE_DATE = f_ludate,
LAST_UPDATED_BY = f_luby,
LAST_UPDATE_LOGIN = 0,
TAX_UPFRONT_YN = p_tryv_rec.tax_upfront_yn,
TAX_INVOICE_YN = p_tryv_rec.tax_invoice_yn,
TAX_SCHEDULE_YN = p_tryv_rec.tax_schedule_yn,
--Bug 5707866 dpsingh
FORMULA_YN = p_tryv_rec.formula_yn,
ACCOUNTING_EVENT_CLASS_CODE = p_tryv_rec.accounting_event_class_code
WHERE ID = to_number(p_tryv_rec.id);
UPDATE OKL_TRX_TYPES_TL
SET
DESCRIPTION = p_tryv_rec.DESCRIPTION,
NAME = p_tryv_rec.NAME,
LAST_UPDATE_DATE = f_ludate,
LAST_UPDATED_BY = f_luby,
LAST_UPDATE_LOGIN = 0,
SOURCE_LANG = USERENV('LANG')
WHERE ID = TO_NUMBER(p_tryv_rec.id)
AND USERENV('LANG') IN (language,source_lang);
INSERT INTO OKL_TRX_TYPES_TL
(ID,
LANGUAGE,
SOURCE_LANG,
SFWT_FLAG,
NAME,
DESCRIPTION,
CONTRACT_HEADER_LINE_FLAG,
TRANSACTION_HEADER_LINE_DETAIL,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
) select
TO_NUMBER(p_tryv_rec.id),
L.LANGUAGE_CODE,
USERENV('LANG'),
'N',
p_tryv_rec.NAME,
p_tryv_rec.DESCRIPTION,
'Y',
'Y',
f_luby,
f_ludate,
f_luby,
f_ludate,
0
from FND_LANGUAGES L
where L.INSTALLED_FLAG IN ('I','B')
and not exists
( SELECT NULL
from OKL_TRX_TYPES_TL TL
where TL.ID = TO_NUMBER(p_tryv_rec.id)
and TL.LANGUAGE = L.LANGUAGE_CODE);
INSERT INTO OKL_TRX_TYPES_B
(
ID,
TRY_ID,
TRY_ID_FOR,
ILC_ID,
AEP_CODE,
TRY_TYPE,
TRX_TYPE_CLASS,
OBJECT_VERSION_NUMBER,
ORG_ID,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
TAX_UPFRONT_YN ,
TAX_INVOICE_YN ,
TAX_SCHEDULE_YN,
--Bug 5707866 dpsingh
FORMULA_YN,
ACCOUNTING_EVENT_CLASS_CODE
)
VALUES(
TO_NUMBER(p_tryv_rec.ID),
p_tryv_rec.TRY_ID,
p_tryv_rec.TRY_ID_FOR,
p_tryv_rec.ILC_ID,
p_tryv_rec.AEP_CODE,
p_tryv_rec.TRY_TYPE,
p_tryv_rec.TRX_TYPE_CLASS,
p_tryv_rec.OBJECT_VERSION_NUMBER,
p_tryv_rec.ORG_ID,
f_luby,
f_ludate,
f_luby,
f_ludate,
0,
p_tryv_rec.TAX_UPFRONT_YN,
p_tryv_rec.TAX_INVOICE_YN,
p_tryv_rec.TAX_SCHEDULE_YN,
--Bug 5707866 dpsingh
p_tryv_rec.FORMULA_YN,
p_tryv_rec.ACCOUNTING_EVENT_CLASS_CODE);
INSERT INTO OKL_TRX_TYPES_TL
(
ID,
LANGUAGE,
SOURCE_LANG,
SFWT_FLAG,
NAME,
DESCRIPTION,
CONTRACT_HEADER_LINE_FLAG,
TRANSACTION_HEADER_LINE_DETAIL,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN)
SELECT
TO_NUMBER(p_tryv_rec.ID),
L.LANGUAGE_CODE,
userenv('LANG'),
decode(L.LANGUAGE_CODE,userenv('LANG'),'N','Y'),
p_tryv_rec.NAME,
p_tryv_rec.DESCRIPTION,
'Y',
'Y',
f_luby,
f_ludate,
f_luby,
f_ludate,
0
FROM FND_LANGUAGES L
WHERE L.INSTALLED_FLAG IN ('I','B')
AND NOT EXISTS
(SELECT NULL
FROM OKL_TRX_TYPES_TL TL
WHERE TL.ID = TO_NUMBER(p_tryv_rec.ID)
AND TL.LANGUAGE = L.LANGUAGE_CODE);
p_last_update_date IN VARCHAR2,
p_tax_upfront_yn IN VARCHAR2,
p_tax_invoice_yn IN VARCHAR2,
p_tax_schedule_yn IN VARCHAR2,
--Added by dpsingh for Bug 5707866
p_formula_yn IN VARCHAR2,
p_accounting_event_class_code IN VARCHAR2) IS
l_api_version CONSTANT number := 1;
l_tryv_rec.last_update_login := 0;
p_last_update_date => p_last_update_date,
x_return_status => l_return_status);
p_last_update_date => p_last_update_date,
x_return_status => l_return_status);