The following lines contain the word 'select', 'insert', 'update' or 'delete':
select okl_tax_attr_definitions_s.NEXTVAL into l_id from dual;
SELECT
--ID,
--ORG_ID,
RESULT_CODE,
PURCHASE_OPTION_CODE,
PDT_ID,
TRY_ID,
STY_ID,
INT_DISCLOSED_CODE,
TITLE_TRNSFR_CODE,
SALE_LEASE_BACK_CODE,
LEASE_PURCHASED_CODE,
EQUIP_USAGE_CODE,
VENDOR_SITE_ID,
AGE_OF_EQUIP_FROM,
AGE_OF_EQUIP_TO,
OBJECT_VERSION_NUMBER,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
-- modified by dcshanmu for eBTax project - modification start
TAX_ATTRIBUTE_DEF_ID,
RESULT_TYPE_CODE,
BOOK_CLASS_CODE,
DATE_EFFECTIVE_FROM,
DATE_EFFECTIVE_TO,
TAX_COUNTRY_CODE,
TERM_QUOTE_TYPE_CODE,
TERM_QUOTE_REASON_CODE,
EXPIRE_FLAG
-- modified by dcshanmu for eBTax project - modification end
FROM OKL_TAX_ATTR_DEFINITIONS
-- WHERE OKL_TAX_ATTR_DEFINITIONS.id = p_id;
l_tbcv_rec.last_updated_by,
l_tbcv_rec.last_update_date,
l_tbcv_rec.last_update_login,
-- modified by dcshanmu for eBTax project - modification start
l_tbcv_rec.tax_attribute_def_id,
l_tbcv_rec.result_type_code,
l_tbcv_rec.book_class_code,
l_tbcv_rec.date_effective_from,
l_tbcv_rec.date_effective_to,
l_tbcv_rec.tax_country_code,
l_tbcv_rec.term_quote_type_code,
l_tbcv_rec.term_quote_reason_code,
l_tbcv_rec.expire_flag;
SELECT
--ID,
--ORG_ID,
RESULT_CODE,
PURCHASE_OPTION_CODE,
PDT_ID,
TRY_ID,
STY_ID,
INT_DISCLOSED_CODE,
TITLE_TRNSFR_CODE,
SALE_LEASE_BACK_CODE,
LEASE_PURCHASED_CODE,
EQUIP_USAGE_CODE,
VENDOR_SITE_ID,
AGE_OF_EQUIP_FROM,
AGE_OF_EQUIP_TO,
OBJECT_VERSION_NUMBER,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
-- modified by dcshanmu for eBTax project - modification start
TAX_ATTRIBUTE_DEF_ID,
RESULT_TYPE_CODE,
BOOK_CLASS_CODE,
DATE_EFFECTIVE_FROM,
DATE_EFFECTIVE_TO,
TAX_COUNTRY_CODE,
TERM_QUOTE_TYPE_CODE,
TERM_QUOTE_REASON_CODE,
EXPIRE_FLAG
-- modified by dcshanmu for eBTax project - modification end
FROM OKL_TAX_ATTR_DEFINITIONS
-- WHERE OKL_TAX_ATTR_DEFINITIONS.id = p_id;
l_tbc_rec.last_updated_by,
l_tbc_rec.last_update_date,
l_tbc_rec.last_update_login,
-- modified by dcshanmu for eBTax project - modification start
l_tbc_rec.tax_attribute_def_id,
l_tbc_rec.result_type_code,
l_tbc_rec.book_class_code,
l_tbc_rec.date_effective_from,
l_tbc_rec.date_effective_to,
l_tbc_rec.tax_country_code,
l_tbc_rec.term_quote_type_code,
l_tbc_rec.term_quote_reason_code,
l_tbc_rec.expire_flag;
IF (l_tbcv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
l_tbcv_rec.last_updated_by := NULL;
IF (l_tbcv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
l_tbcv_rec.last_update_date := NULL;
IF (l_tbcv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
l_tbcv_rec.last_update_login := NULL;
SELECT 'x'
FROM zx_fc_business_categories_v
WHERE classification_code = p_lookup_code;
SELECT 'x'
FROM zx_fc_product_categories_v
WHERE classification_code = p_lookup_code;
SELECT 'x'
FROM zx_fc_user_defined_v
WHERE classification_code = p_lookup_code;
SELECT 'x'
FROM Fnd_Lookup_Values
WHERE fnd_lookup_values.lookup_code = p_lookup_code
AND fnd_lookup_values.lookup_type = p_lookup_type;
SELECT 'x'
FROM OKL_PRODUCTS
WHERE id = p_id
AND product_status_code = 'APPROVED';
SELECT 'x'
FROM OKL_TRX_TYPES_B
WHERE id = p_id;
SELECT 'x'
FROM OKL_STRM_TYPE_B
WHERE id = p_id;
SELECT 'x'
FROM Fnd_Lookup_Values
WHERE fnd_lookup_values.lookup_code = p_lookup_code
AND fnd_lookup_values.lookup_type = p_lookup_type;
SELECT 'x'
FROM Fnd_Lookup_Values
WHERE fnd_lookup_values.lookup_code = p_lookup_code
AND fnd_lookup_values.lookup_type = p_lookup_type;
SELECT 'x'
FROM Fnd_Lookup_Values
WHERE fnd_lookup_values.lookup_code = p_lookup_code
AND fnd_lookup_values.lookup_type = p_lookup_type;
SELECT 'x'
FROM Fnd_Lookup_Values
WHERE fnd_lookup_values.lookup_code = p_lookup_code
AND fnd_lookup_values.lookup_type = p_lookup_type;
SELECT 'x'
FROM zx_fc_intended_use_v
WHERE classification_code = p_lookup_code;
SELECT 'x'
FROM Po_vendor_sites_all
WHERE vendor_site_id = p_id;
SELECT 'x'
FROM fnd_lookups
WHERE lookup_code = p_id
AND lookup_type='OKL_TAX_ATTR_TYPE_CODE';
SELECT 'x'
FROM fnd_lookups
WHERE lookup_code = p_id
AND lookup_type='OKL_BOOK_CLASS';
SELECT 'x'
FROM fnd_territories_tl
WHERE territory_code = p_id;
SELECT 'x'
FROM fnd_lookups
WHERE lookup_code = p_id
AND lookup_type='OKL_QUOTE_TYPE';
SELECT 'x'
FROM fnd_lookups
WHERE lookup_code = p_id
AND lookup_type='OKL_QUOTE_REASON';
SELECT 'x'
FROM fnd_lookups
WHERE lookup_code = p_id
AND lookup_type='OKL_TAX_ATTR_TYPE_CODE';
SELECT 'x'
FROM fnd_lookups
WHERE lookup_code = p_id
AND lookup_type='OKL_BOOK_CLASS';
SELECT 'x'
FROM fnd_territories_tl
WHERE territory_code = p_id;
SELECT 'x'
FROM fnd_lookups
WHERE lookup_code = p_id
AND lookup_type='OKL_QUOTE_TYPE';
SELECT 'x'
FROM fnd_lookups
WHERE lookup_code = p_id
AND lookup_type='OKL_QUOTE_REASON';
SELECT 'x'
FROM zx_fc_business_categories_v
WHERE classification_code = p_lookup_code;
SELECT result_code
FROM OKL_TAX_ATTR_DEFINITIONS
WHERE result_type_code = 'TBC_CODE'
-- AND nvl(PURCHASE_OPTION_CODE,'XXXXX') = nvl(p_tbcv_rec.PURCHASE_OPTION_CODE,'XXXXX')
-- AND nvl(PDT_ID, -99999) = nvl(p_tbcv_rec.PDT_ID,-99999)
AND nvl(TRY_ID, -99999) = nvl(p_tbcv_rec.TRY_ID,-99999)
AND nvl(STY_ID, -99999) = nvl(p_tbcv_rec.STY_ID,-99999)
-- AND nvl(INT_DISCLOSED_CODE,'N') = nvl(p_tbcv_rec.INT_DISCLOSED_CODE,'N')
-- AND nvl(TITLE_TRNSFR_CODE,'N') = nvl(p_tbcv_rec.TITLE_TRNSFR_CODE,'N')
-- AND nvl(SALE_LEASE_BACK_CODE,'N') = nvl(p_tbcv_rec.SALE_LEASE_BACK_CODE,'N')
-- AND nvl(LEASE_PURCHASED_CODE,'N') = nvl(p_tbcv_rec.LEASE_PURCHASED_CODE,'N')
-- AND nvl(EQUIP_USAGE_CODE,'XXXXX') = nvl(p_tbcv_rec.EQUIP_USAGE_CODE,'XXXXX')
-- AND nvl(VENDOR_SITE_ID,-99999) = nvl(p_tbcv_rec.VENDOR_SITE_ID,-99999)
AND nvl(BOOK_CLASS_CODE,'XXXXX') = nvl(p_tbcv_rec.BOOK_CLASS_CODE,'XXXXX')
AND nvl(TAX_COUNTRY_CODE,'XXXXX') = nvl(p_tbcv_rec.TAX_COUNTRY_CODE,'XXXXX')
AND nvl(TAX_ATTRIBUTE_DEF_ID, -99999) <> nvl(cp_tax_attribute_def_id,-99999)
AND nvl(EXPIRE_FLAG,'N')<> 'Y'
/*AND ( ( -- This condition will allow cases where DB FROm and To are NULL and also Screen FROM and TO are null
--(AGE_OF_EQUIP_FROM IS NOT NULL OR AGE_OF_EQUIP_TO IS NOT NULL OR p_tbcv_rec.AGE_OF_EQUIP_FROM IS NOT NULL OR p_tbcv_rec.AGE_OF_EQUIP_TO IS NOT NULL )
-- AND
-- this condition will prevent exact matches (including cases where some values are null)
(nvl(AGE_OF_EQUIP_FROM,-99999) = nvl(p_tbcv_rec.AGE_OF_EQUIP_FROM,-99999) AND
nvl(AGE_OF_EQUIP_TO, -99999) = nvl(p_tbcv_rec.AGE_OF_EQUIP_TO,-99999)
)
)
OR -- age of equipment from can not be null for comparison purposes (when TO is not null),
-- as we can assume it is 0, if null
-- so this condition takes care of scenarios where both Froms and both Tos have a value
-- OR any of the FROMs are null and both Tos have a value
(--nvl(AGE_OF_EQUIP_FROM,0) IS NOT NULL AND nvl(p_tbcv_rec.AGE_OF_EQUIP_FROM,0) IS NOT NULL AND
AGE_OF_EQUIP_TO IS NOT NULL AND p_tbcv_rec.AGE_OF_EQUIP_TO IS NOT NULL AND
( (nvl(p_tbcv_rec.AGE_OF_EQUIP_FROM,0) < nvl(AGE_OF_EQUIP_FROM,0) AND p_tbcv_rec.AGE_OF_EQUIP_TO >= nvl(AGE_OF_EQUIP_FROM,0))
OR
(nvl(p_tbcv_rec.AGE_OF_EQUIP_FROM,0) >= nvl(AGE_OF_EQUIP_FROM,0) AND nvl(p_tbcv_rec.AGE_OF_EQUIP_FROM,0) <= AGE_OF_EQUIP_TO) --AND p_tbcv_rec.AGE_OF_EQUIP_TO > AGE_OF_EQUIP_TO)
)
)
OR
( AGE_OF_EQUIP_TO IS NULL AND p_tbcv_rec.AGE_OF_EQUIP_TO IS NULL AND
-- In this case Both the FROMs can not be null together or have the same value, as it will get captured in condition 1
-- here, either DB FROM is Null and Screen FROM is not null --> This combination is ok
-- OR DB FROM is not null and Screen FROM is null --> this combinatio is ok
-- OR both FROMs have a value(differenr value) --> restrict this combination
AGE_OF_EQUIP_FROM IS NOT NULL AND p_tbcv_rec.AGE_OF_EQUIP_FROM IS NOT NULL -- The 2 FROMs can not have same value at this point
)
OR
( AGE_OF_EQUIP_TO IS NULL AND p_tbcv_rec.AGE_OF_EQUIP_TO IS NOT NULL AND -- TO in DB is Null,TO on screen is not null
-- In this case following scenarios are possible
-- DB FROM is Null (DB To is also NUll) FROM on the screen can be considered to be be >=0 (0 if null), since TO on screen is not null - OK
-- DB FROM >=0, SCREEN TO < DB FROM - ok
-- DB FROM >=0, SCREEN TO >= DB FROM - restrict this condition
AGE_OF_EQUIP_FROM >= 0 AND p_tbcv_rec.AGE_OF_EQUIP_TO >= AGE_OF_EQUIP_FROM
)
OR
( AGE_OF_EQUIP_TO IS NOT NULL AND p_tbcv_rec.AGE_OF_EQUIP_TO IS NULL AND
-- In this case following scenarios are possible
-- DB FROM can be considered to be >=0 (0 if null), since DB TO is not null, so there is a fixed age range defined in DB
-- SCREEN FROM is null (TO is always NULL) - OK
-- screen from >=0, SCREEN FROM > DB TO - ok
-- screen from >=0, screen from <= db to - RESTRICT THIS CONDITION
p_tbcv_rec.AGE_OF_EQUIP_FROM >=0 AND p_tbcv_rec.AGE_OF_EQUIP_FROM <= AGE_OF_EQUIP_TO
)
)*/ ;
SELECT result_code
FROM OKL_TAX_ATTR_DEFINITIONS
WHERE result_type_code = 'PC_CODE'
AND nvl(PURCHASE_OPTION_CODE,'XXXXX') = nvl(p_tbcv_rec.PURCHASE_OPTION_CODE,'XXXXX')
AND nvl(STY_ID, -99999) = nvl(p_tbcv_rec.STY_ID,-99999)
AND nvl(INT_DISCLOSED_CODE,'N') = nvl(p_tbcv_rec.INT_DISCLOSED_CODE,'N')
AND nvl(TITLE_TRNSFR_CODE,'N') = nvl(p_tbcv_rec.TITLE_TRNSFR_CODE,'N')
AND nvl(SALE_LEASE_BACK_CODE,'N') = nvl(p_tbcv_rec.SALE_LEASE_BACK_CODE,'N')
AND nvl(LEASE_PURCHASED_CODE,'N') = nvl(p_tbcv_rec.LEASE_PURCHASED_CODE,'N')
AND nvl(TAX_COUNTRY_CODE,'XXXXX') = nvl(p_tbcv_rec.TAX_COUNTRY_CODE,'XXXXX')
AND nvl(TAX_ATTRIBUTE_DEF_ID, -99999) <> nvl(cp_tax_attribute_def_id,-99999)
AND nvl(EXPIRE_FLAG,'N')<> 'Y' ;
SELECT result_code
FROM OKL_TAX_ATTR_DEFINITIONS
WHERE /*result_code <> cp_tbc_code
AND */result_type_code = 'UFC_CODE'
AND nvl(PURCHASE_OPTION_CODE,'XXXXX') = nvl(p_tbcv_rec.PURCHASE_OPTION_CODE,'XXXXX')
AND nvl(PDT_ID, -99999) = nvl(p_tbcv_rec.PDT_ID,-99999)
AND nvl(STY_ID, -99999) = nvl(p_tbcv_rec.STY_ID,-99999)
AND nvl(TRY_ID, -99999) = nvl(p_tbcv_rec.TRY_ID,-99999)
AND nvl(LEASE_PURCHASED_CODE,'N') = nvl(p_tbcv_rec.LEASE_PURCHASED_CODE,'N')
AND nvl(EQUIP_USAGE_CODE,'XXXXX') = nvl(p_tbcv_rec.EQUIP_USAGE_CODE,'XXXXX')
AND nvl(VENDOR_SITE_ID,-99999) = nvl(p_tbcv_rec.VENDOR_SITE_ID,-99999)
AND nvl(INT_DISCLOSED_CODE,'N') = nvl(p_tbcv_rec.INT_DISCLOSED_CODE,'N')
AND nvl(TITLE_TRNSFR_CODE,'N') = nvl(p_tbcv_rec.TITLE_TRNSFR_CODE,'N')
AND nvl(SALE_LEASE_BACK_CODE,'N') = nvl(p_tbcv_rec.SALE_LEASE_BACK_CODE,'N')
AND nvl(TAX_COUNTRY_CODE,'XXXXX') = nvl(p_tbcv_rec.TAX_COUNTRY_CODE,'XXXXX')
AND nvl(TERM_QUOTE_TYPE_CODE,'XXXXX') = nvl(p_tbcv_rec.TERM_QUOTE_TYPE_CODE,'XXXXX')
AND nvl(TERM_QUOTE_REASON_CODE,'XXXXX') = nvl(p_tbcv_rec.TERM_QUOTE_REASON_CODE,'XXXXX')
AND nvl(EXPIRE_FLAG,'N')<> 'Y'
AND nvl(TAX_ATTRIBUTE_DEF_ID, -99999) <> nvl(cp_tax_attribute_def_id,-99999)
AND ( ( -- This condition will allow cases where DB FROm and To are NULL and also Screen FROM and TO are null
--(AGE_OF_EQUIP_FROM IS NOT NULL OR AGE_OF_EQUIP_TO IS NOT NULL OR p_tbcv_rec.AGE_OF_EQUIP_FROM IS NOT NULL OR p_tbcv_rec.AGE_OF_EQUIP_TO IS NOT NULL )
-- AND
-- this condition will prevent exact matches (including cases where some values are null)
(nvl(AGE_OF_EQUIP_FROM,-99999) = nvl(p_tbcv_rec.AGE_OF_EQUIP_FROM,-99999) AND
nvl(AGE_OF_EQUIP_TO, -99999) = nvl(p_tbcv_rec.AGE_OF_EQUIP_TO,-99999)
)
)
OR -- age of equipment from can not be null for comparison purposes (when TO is not null),
-- as we can assume it is 0, if null
-- so this condition takes care of scenarios where both Froms and both Tos have a value
-- OR any of the FROMs are null and both Tos have a value
(--nvl(AGE_OF_EQUIP_FROM,0) IS NOT NULL AND nvl(p_tbcv_rec.AGE_OF_EQUIP_FROM,0) IS NOT NULL AND
AGE_OF_EQUIP_TO IS NOT NULL AND p_tbcv_rec.AGE_OF_EQUIP_TO IS NOT NULL AND
( (nvl(p_tbcv_rec.AGE_OF_EQUIP_FROM,0) < nvl(AGE_OF_EQUIP_FROM,0) AND p_tbcv_rec.AGE_OF_EQUIP_TO >= nvl(AGE_OF_EQUIP_FROM,0))
OR
(nvl(p_tbcv_rec.AGE_OF_EQUIP_FROM,0) >= nvl(AGE_OF_EQUIP_FROM,0) AND nvl(p_tbcv_rec.AGE_OF_EQUIP_FROM,0) <= AGE_OF_EQUIP_TO) --AND p_tbcv_rec.AGE_OF_EQUIP_TO > AGE_OF_EQUIP_TO)
)
)
OR
( AGE_OF_EQUIP_TO IS NULL AND p_tbcv_rec.AGE_OF_EQUIP_TO IS NULL AND
-- In this case Both the FROMs can not be null together or have the same value, as it will get captured in condition 1
-- here, either DB FROM is Null and Screen FROM is not null --> This combination is ok
-- OR DB FROM is not null and Screen FROM is null --> this combinatio is ok
-- OR both FROMs have a value(differenr value) --> restrict this combination
AGE_OF_EQUIP_FROM IS NOT NULL AND p_tbcv_rec.AGE_OF_EQUIP_FROM IS NOT NULL -- The 2 FROMs can not have same value at this point
)
OR
( AGE_OF_EQUIP_TO IS NULL AND p_tbcv_rec.AGE_OF_EQUIP_TO IS NOT NULL AND -- TO in DB is Null,TO on screen is not null
-- In this case following scenarios are possible
-- DB FROM is Null (DB To is also NUll) FROM on the screen can be considered to be be >=0 (0 if null), since TO on screen is not null - OK
-- DB FROM >=0, SCREEN TO < DB FROM - ok
-- DB FROM >=0, SCREEN TO >= DB FROM - restrict this condition
AGE_OF_EQUIP_FROM >= 0 AND p_tbcv_rec.AGE_OF_EQUIP_TO >= AGE_OF_EQUIP_FROM
)
OR
( AGE_OF_EQUIP_TO IS NOT NULL AND p_tbcv_rec.AGE_OF_EQUIP_TO IS NULL AND
-- In this case following scenarios are possible
-- DB FROM can be considered to be >=0 (0 if null), since DB TO is not null, so there is a fixed age range defined in DB
-- SCREEN FROM is null (TO is always NULL) - OK
-- screen from >=0, SCREEN FROM > DB TO - ok
-- screen from >=0, screen from <= db to - RESTRICT THIS CONDITION
p_tbcv_rec.AGE_OF_EQUIP_FROM >=0 AND p_tbcv_rec.AGE_OF_EQUIP_FROM <= AGE_OF_EQUIP_TO
)
) ;
SELECT classification_name
FROM zx_fc_business_categories_v
WHERE classification_code = p_lookup_code;
SELECT classification_name
FROM zx_fc_product_categories_v
WHERE classification_code = p_lookup_code;
SELECT classification_name
FROM zx_fc_user_defined_v
WHERE classification_code = p_lookup_code;
select NAME
from okl_trx_types_tl
where ID = cp_try_id
AND language = 'US';
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_tbc_rec IN tbc_rec_type,
x_tbc_rec OUT NOCOPY tbc_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
INSERT INTO OKL_TAX_ATTR_DEFINITIONS(
-- id,
-- org_id,
result_code,
purchase_option_code,
pdt_id,
try_id,
sty_id,
int_disclosed_code,
title_trnsfr_code,
sale_lease_back_code,
lease_purchased_code,
equip_usage_code,
vendor_site_id,
age_of_equip_from,
age_of_equip_to,
object_version_number,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login,
-- modified by dcshanmu for eBTax project - modification start
tax_attribute_def_id,
result_type_code,
book_class_code,
date_effective_from,
date_effective_to,
tax_country_code,
term_quote_type_code,
term_quote_reason_code,
expire_flag)
-- modified by dcshanmu for eBTax project - modification end
VALUES (
-- l_tbc_rec.id,
-- l_tbc_rec.org_id,
l_tbc_rec.result_code,
l_tbc_rec.purchase_option_code,
l_tbc_rec.pdt_id,
l_tbc_rec.try_id,
l_tbc_rec.sty_id,
l_tbc_rec.int_disclosed_code,
l_tbc_rec.title_trnsfr_code,
l_tbc_rec.sale_lease_back_code,
l_tbc_rec.lease_purchased_code,
l_tbc_rec.equip_usage_code,
l_tbc_rec.vendor_site_id,
l_tbc_rec.age_of_equip_from,
l_tbc_rec.age_of_equip_to,
l_tbc_rec.object_version_number,
l_tbc_rec.attribute_category,
l_tbc_rec.attribute1,
l_tbc_rec.attribute2,
l_tbc_rec.attribute3,
l_tbc_rec.attribute4,
l_tbc_rec.attribute5,
l_tbc_rec.attribute6,
l_tbc_rec.attribute7,
l_tbc_rec.attribute8,
l_tbc_rec.attribute9,
l_tbc_rec.attribute10,
l_tbc_rec.attribute11,
l_tbc_rec.attribute12,
l_tbc_rec.attribute13,
l_tbc_rec.attribute14,
l_tbc_rec.attribute15,
l_tbc_rec.created_by,
l_tbc_rec.creation_date,
l_tbc_rec.last_updated_by,
l_tbc_rec.last_update_date,
l_tbc_rec.last_update_login,
-- modified by dcshanmu for eBTax project - modification start
l_tbc_rec.tax_attribute_def_id,
l_tbc_rec.result_type_code,
l_tbc_rec.book_class_code,
l_tbc_rec.date_effective_from,
l_tbc_rec.date_effective_to,
l_tbc_rec.tax_country_code,
l_tbc_rec.term_quote_type_code,
l_tbc_rec.term_quote_reason_code,
l_tbc_rec.expire_flag);
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_tbcv_rec IN tbcv_rec_type,
x_tbcv_rec OUT NOCOPY tbcv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
l_tbcv_rec.LAST_UPDATE_DATE := l_tbcv_rec.CREATION_DATE;
l_tbcv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_tbcv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
insert_row(
p_init_msg_list,
l_return_status,
x_msg_count,
x_msg_data,
l_tbc_rec,
lx_tbc_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_tbcv_tbl IN tbcv_tbl_type,
x_tbcv_tbl OUT NOCOPY tbcv_tbl_type,
px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
insert_row (
p_api_version => p_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => l_error_rec.error_type,
x_msg_count => l_error_rec.msg_count,
x_msg_data => l_error_rec.msg_data,
p_tbcv_rec => p_tbcv_tbl(i),
x_tbcv_rec => x_tbcv_tbl(i));
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_tbcv_tbl IN tbcv_tbl_type,
x_tbcv_tbl OUT NOCOPY tbcv_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 => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_tbcv_tbl => p_tbcv_tbl,
x_tbcv_tbl => x_tbcv_tbl,
px_error_tbl => l_error_tbl);
END insert_row;
SELECT OBJECT_VERSION_NUMBER
FROM OKL_TAX_ATTR_DEFINITIONS
--WHERE ID = p_tbc_rec.id
WHERE RESULT_CODE = p_tbc_rec.result_code
AND OBJECT_VERSION_NUMBER = p_tbc_rec.object_version_number
FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
SELECT OBJECT_VERSION_NUMBER
FROM OKL_TAX_ATTR_DEFINITIONS
-- WHERE ID = p_tbc_rec.id;
OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
OKL_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_tbc_rec IN tbc_rec_type,
x_tbc_rec OUT NOCOPY tbc_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
IF (x_tbc_rec.last_updated_by = OKL_API.G_MISS_NUM)
THEN
x_tbc_rec.last_updated_by := l_tbc_rec.last_updated_by;
IF (x_tbc_rec.last_update_date = OKL_API.G_MISS_DATE)
THEN
x_tbc_rec.last_update_date := l_tbc_rec.last_update_date;
IF (x_tbc_rec.last_update_login = OKL_API.G_MISS_NUM)
THEN
x_tbc_rec.last_update_login := l_tbc_rec.last_update_login;
UPDATE OKL_TAX_ATTR_DEFINITIONS
SET --ORG_ID = l_def_tbc_rec.org_id,
RESULT_CODE = l_def_tbc_rec.result_code,
PURCHASE_OPTION_CODE = l_def_tbc_rec.purchase_option_code,
PDT_ID = l_def_tbc_rec.pdt_id,
TRY_ID = l_def_tbc_rec.try_id,
STY_ID = l_def_tbc_rec.sty_id,
INT_DISCLOSED_CODE = l_def_tbc_rec.int_disclosed_code,
TITLE_TRNSFR_CODE = l_def_tbc_rec.title_trnsfr_code,
SALE_LEASE_BACK_CODE = l_def_tbc_rec.sale_lease_back_code,
LEASE_PURCHASED_CODE = l_def_tbc_rec.lease_purchased_code,
EQUIP_USAGE_CODE = l_def_tbc_rec.equip_usage_code,
VENDOR_SITE_ID = l_def_tbc_rec.vendor_site_id,
AGE_OF_EQUIP_FROM = l_def_tbc_rec.age_of_equip_from,
AGE_OF_EQUIP_TO = l_def_tbc_rec.age_of_equip_to,
OBJECT_VERSION_NUMBER = l_def_tbc_rec.object_version_number,
ATTRIBUTE_CATEGORY = l_def_tbc_rec.attribute_category,
ATTRIBUTE1 = l_def_tbc_rec.attribute1,
ATTRIBUTE2 = l_def_tbc_rec.attribute2,
ATTRIBUTE3 = l_def_tbc_rec.attribute3,
ATTRIBUTE4 = l_def_tbc_rec.attribute4,
ATTRIBUTE5 = l_def_tbc_rec.attribute5,
ATTRIBUTE6 = l_def_tbc_rec.attribute6,
ATTRIBUTE7 = l_def_tbc_rec.attribute7,
ATTRIBUTE8 = l_def_tbc_rec.attribute8,
ATTRIBUTE9 = l_def_tbc_rec.attribute9,
ATTRIBUTE10 = l_def_tbc_rec.attribute10,
ATTRIBUTE11 = l_def_tbc_rec.attribute11,
ATTRIBUTE12 = l_def_tbc_rec.attribute12,
ATTRIBUTE13 = l_def_tbc_rec.attribute13,
ATTRIBUTE14 = l_def_tbc_rec.attribute14,
ATTRIBUTE15 = l_def_tbc_rec.attribute15,
CREATED_BY = l_def_tbc_rec.created_by,
CREATION_DATE = l_def_tbc_rec.creation_date,
LAST_UPDATED_BY = l_def_tbc_rec.last_updated_by,
LAST_UPDATE_DATE = l_def_tbc_rec.last_update_date,
LAST_UPDATE_LOGIN = l_def_tbc_rec.last_update_login,
-- modified by dcshanmu for eBTax project - modification start
TAX_ATTRIBUTE_DEF_ID = l_def_tbc_rec.tax_attribute_def_id,
RESULT_TYPE_CODE = l_def_tbc_rec.result_type_code,
BOOK_CLASS_CODE = l_def_tbc_rec.book_class_code,
DATE_EFFECTIVE_FROM = l_def_tbc_rec.date_effective_from,
DATE_EFFECTIVE_TO = l_def_tbc_rec.date_effective_to,
TAX_COUNTRY_CODE = l_def_tbc_rec.tax_country_code,
TERM_QUOTE_TYPE_CODE = l_def_tbc_rec.term_quote_type_code,
TERM_QUOTE_REASON_CODE = l_def_tbc_rec.term_quote_reason_code,
EXPIRE_FLAG = l_def_tbc_rec.expire_flag
-- modified by dcshanmu for eBTax project - modification end
-- WHERE ID = l_def_tbc_rec.id;
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_tbcv_rec IN tbcv_rec_type,
x_tbcv_rec OUT NOCOPY tbcv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
l_tbcv_rec.LAST_UPDATE_DATE := SYSDATE;
l_tbcv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_tbcv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
IF (x_tbcv_rec.last_updated_by = OKL_API.G_MISS_NUM)
THEN
x_tbcv_rec.last_updated_by := l_db_tbcv_rec.last_updated_by;
IF (x_tbcv_rec.last_update_date = OKL_API.G_MISS_DATE)
THEN
x_tbcv_rec.last_update_date := l_db_tbcv_rec.last_update_date;
IF (x_tbcv_rec.last_update_login = OKL_API.G_MISS_NUM)
THEN
x_tbcv_rec.last_update_login := l_db_tbcv_rec.last_update_login;
update_row(
p_init_msg_list,
l_return_status,
x_msg_count,
x_msg_data,
l_tbc_rec,
lx_tbc_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_tbcv_tbl IN tbcv_tbl_type,
x_tbcv_tbl OUT NOCOPY tbcv_tbl_type,
px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
l_api_version CONSTANT NUMBER := 1;
update_row (
p_api_version => p_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => l_error_rec.error_type,
x_msg_count => l_error_rec.msg_count,
x_msg_data => l_error_rec.msg_data,
p_tbcv_rec => p_tbcv_tbl(i),
x_tbcv_rec => x_tbcv_tbl(i));
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_tbcv_tbl IN tbcv_tbl_type,
x_tbcv_tbl OUT NOCOPY tbcv_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 => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_tbcv_tbl => p_tbcv_tbl,
x_tbcv_tbl => x_tbcv_tbl,
px_error_tbl => l_error_tbl);
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_tbc_rec IN tbc_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
DELETE FROM OKL_TAX_ATTR_DEFINITIONS
-- WHERE ID = p_tbc_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_tbcv_rec IN tbcv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
delete_row(
p_init_msg_list,
l_return_status,
x_msg_count,
x_msg_data,
l_tbc_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_tbcv_tbl IN tbcv_tbl_type,
px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
delete_row (
p_api_version => p_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => l_error_rec.error_type,
x_msg_count => l_error_rec.msg_count,
x_msg_data => l_error_rec.msg_data,
p_tbcv_rec => p_tbcv_tbl(i));
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_tbcv_tbl IN tbcv_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 => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_tbcv_tbl => p_tbcv_tbl,
px_error_tbl => l_error_tbl);
END delete_row;