The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT contract_number
FROM OKC_K_HEADERS_B
WHERE id = p_ctr_id1;
SELECT 1 FROM OKL_TXL_ITM_INSTS
WHERE INVENTORY_ITEM_ID = p_item_id
AND SERIAL_NUMBER = p_serial_number
AND NOT EXISTS (
select 1 From okc_k_lines_b cleb
where cleb.id=OKL_TXL_ITM_INSTS.kle_id
and cleb.STS_CODE = 'ABANDONED'
);
select TO_CHAR(OKL_IBN_SEQ.NEXTVAL)
FROM dual;
select 'OKL'||OKL_FAN_SEQ.NEXTVAL
FROM dual;
SELECT 1
--FROM DUAL
--WHERE EXISTS (SELECT '1'
FROM OKL_TXL_ASSETS_B
WHERE asset_number = p_asset_number; --);
SELECT 1
--FROM DUAL
--WHERE EXISTS (SELECT '1'
FROM OKX_ASSET_LINES_V
WHERE asset_number = p_asset_number; --); */
SELECT 1
FROM fa_additions a
WHERE a.asset_number = p_asset_number
and exists
(
select 1 from okc_k_items b
where b.jtot_object1_code = 'OKX_ASSET'
and b.object1_id1 = to_char(a.asset_id)
);
SELECT 1
--FROM DUAL
--WHERE EXISTS (SELECT '1'
FROM OKX_ASSETS_V
WHERE asset_number = p_asset_number; --);
SELECT chrv.sts_code
FROM OKC_K_HEADERS_V chrv
WHERE chrv.id = p_dnz_chr_id;
SELECT cle.sts_code
FROM OKC_K_LINES_V cle
WHERE cle.id = p_cle_id;
SELECT chrv.end_Date
FROM OKC_K_HEADERS_V chrv
WHERE chrv.id = p_dnz_chr_id;
SELECT cle.end_date
FROM OKC_K_LINES_V cle
WHERE cle.id = p_cle_id;
SELECT chrv.start_Date,
chrv.orig_system_source_code,
chrv.orig_system_id1
FROM OKC_K_HEADERS_V chrv
WHERE chrv.id = p_dnz_chr_id;
SELECT cle.start_date
FROM OKC_K_LINES_V cle
WHERE cle.id = p_cle_id;
SELECT date_transaction_occurred
FROM okl_trx_contracts
WHERE khr_id = p_chr_id
AND tcn_type = 'TRBK'
AND tsu_code = 'ENTERED'
--rkuttiya added for 12.1.1 Multi GAAP
AND representation_type = 'PRIMARY';
SELECT chrv.currency_code
FROM OKC_K_HEADERS_V chrv
WHERE chrv.id = p_dnz_chr_id;
SELECT cle.currency_code
FROM OKC_K_LINES_V cle
WHERE cle.id = p_cle_id;
SELECT chrv.sts_code,
chrv.end_date,
chrv.currency_code,
chrv.start_Date,
chrv.orig_system_source_code,
chrv.orig_system_id1
FROM OKC_K_HEADERS_V chrv
WHERE chrv.id = p_dnz_chr_id;
SELECT cle.sts_code,
cle.end_date,
cle.currency_code,
cle.start_date
FROM OKC_K_LINES_V cle
WHERE cle.id = p_cle_id;
SELECT date_transaction_occurred
FROM okl_trx_contracts
WHERE khr_id = p_chr_id
AND tcn_type = 'TRBK'
AND tsu_code = 'ENTERED'
--rkuttiya added for 12.1.1 Multi GAAP
AND representation_type = 'PRIMARY';
SELECT ID,
OBJECT_VERSION_NUMBER,
SFWT_FLAG,
TAS_ID,
ILO_ID,
ILO_ID_OLD,
IAY_ID,
IAY_ID_NEW,
KLE_ID,
DNZ_KHR_ID,
LINE_NUMBER,
ORG_ID,
TAL_TYPE,
ASSET_NUMBER,
DESCRIPTION,
FA_LOCATION_ID,
ORIGINAL_COST,
CURRENT_UNITS,
MANUFACTURER_NAME,
YEAR_MANUFACTURED,
SUPPLIER_ID,
USED_ASSET_YN,
TAG_NUMBER,
MODEL_NUMBER,
CORPORATE_BOOK,
DATE_PURCHASED,
DATE_DELIVERY,
IN_SERVICE_DATE,
LIFE_IN_MONTHS,
DEPRECIATION_ID,
DEPRECIATION_COST,
DEPRN_METHOD,
DEPRN_RATE,
SALVAGE_VALUE,
PERCENT_SALVAGE_VALUE,
--Bug# 2981308
ASSET_KEY_ID,
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,
DEPRECIATE_YN,
HOLD_PERIOD_DAYS,
OLD_SALVAGE_VALUE,
NEW_RESIDUAL_VALUE,
OLD_RESIDUAL_VALUE,
UNITS_RETIRED,
COST_RETIRED,
SALE_PROCEEDS,
REMOVAL_COST,
DNZ_ASSET_ID,
DATE_DUE,
REP_ASSET_ID,
LKE_ASSET_ID,
MATCH_AMOUNT,
SPLIT_INTO_SINGLES_FLAG,
SPLIT_INTO_UNITS,
CURRENCY_CODE,
CURRENCY_CONVERSION_TYPE,
CURRENCY_CONVERSION_RATE,
CURRENCY_CONVERSION_DATE
FROM Okl_Txl_Assets_V
WHERE okl_txl_assets_v.kle_id = p_kle_id;
x_txlv_rec.LAST_UPDATED_BY,
x_txlv_rec.LAST_UPDATE_DATE,
x_txlv_rec.LAST_UPDATE_LOGIN,
x_txlv_rec.DEPRECIATE_YN,
x_txlv_rec.HOLD_PERIOD_DAYS,
x_txlv_rec.OLD_SALVAGE_VALUE,
x_txlv_rec.NEW_RESIDUAL_VALUE,
x_txlv_rec.OLD_RESIDUAL_VALUE,
x_txlv_rec.UNITS_RETIRED,
x_txlv_rec.COST_RETIRED,
x_txlv_rec.SALE_PROCEEDS,
x_txlv_rec.REMOVAL_COST,
x_txlv_rec.DNZ_ASSET_ID,
x_txlv_rec.DATE_DUE,
x_txlv_rec.REP_ASSET_ID,
x_txlv_rec.LKE_ASSET_ID,
x_txlv_rec.MATCH_AMOUNT,
x_txlv_rec.SPLIT_INTO_SINGLES_FLAG,
x_txlv_rec.SPLIT_INTO_UNITS,
x_txlv_rec.CURRENCY_CODE,
x_txlv_rec.CURRENCY_CONVERSION_TYPE,
x_txlv_rec.CURRENCY_CONVERSION_RATE,
x_txlv_rec.CURRENCY_CONVERSION_DATE;
x_to_update OUT NOCOPY VARCHAR2,
x_txdv_tbl OUT NOCOPY txdv_tbl_type)
RETURN VARCHAR2
IS
x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
lv_to_update VARCHAR2(3) := 'N';
SELECT id,
object_version_number,
tal_id,
target_kle_id,
line_detail_number,
asset_number,
description,
quantity,
cost,
tax_book,
life_in_months_tax,
deprn_method_tax,
deprn_rate_tax,
salvage_value,
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,
split_percent,
inventory_item_id
FROM Okl_Txd_Assets_V txd
WHERE txd.tal_id = p_tal_id;
lv_to_update := 'Y';
lv_to_update := 'N';
x_txdv_tbl(i).LAST_UPDATED_BY := r_okl_asdv_pk_csr.LAST_UPDATED_BY;
x_txdv_tbl(i).LAST_UPDATE_DATE := r_okl_asdv_pk_csr.LAST_UPDATE_DATE;
x_txdv_tbl(i).LAST_UPDATE_LOGIN := r_okl_asdv_pk_csr.LAST_UPDATE_LOGIN;
x_to_update := lv_to_update;
SELECT ID,
OBJECT_VERSION_NUMBER,
TAS_ID,
TAL_ID,
KLE_ID,
TAL_TYPE,
LINE_NUMBER,
INSTANCE_NUMBER_IB,
OBJECT_ID1_NEW,
OBJECT_ID2_NEW,
JTOT_OBJECT_CODE_NEW,
OBJECT_ID1_OLD,
OBJECT_ID2_OLD,
JTOT_OBJECT_CODE_OLD,
INVENTORY_ORG_ID,
SERIAL_NUMBER,
MFG_SERIAL_NUMBER_YN,
INVENTORY_ITEM_ID,
INV_MASTER_ORG_ID,
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
FROM OKL_TXL_ITM_INSTS iti
WHERE iti.kle_id = p_kle_id;
x_itiv_rec.LAST_UPDATED_BY,
x_itiv_rec.LAST_UPDATE_DATE,
x_itiv_rec.LAST_UPDATE_LOGIN;
SELECT ID,
OBJECT_VERSION_NUMBER,
SFWT_FLAG,
CPL_ID,
CHR_ID,
CLE_ID,
RLE_CODE,
DNZ_CHR_ID,
OBJECT1_ID1,
OBJECT1_ID2,
JTOT_OBJECT1_CODE,
COGNOMEN,
CODE,
FACILITY,
MINORITY_GROUP_LOOKUP_CODE,
SMALL_BUSINESS_FLAG,
WOMEN_OWNED_FLAG,
ALIAS,
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
FROM Okc_K_Party_Roles_V cpr
WHERE cpr.id = p_cplv_id;
x_cplv_rec.LAST_UPDATED_BY,
x_cplv_rec.LAST_UPDATE_DATE,
x_cplv_rec.LAST_UPDATE_LOGIN;
SELECT CIM.ID,
CIM.OBJECT_VERSION_NUMBER,
CIM.CLE_ID,
CIM.CHR_ID,
CIM.CLE_ID_FOR,
CIM.DNZ_CHR_ID,
CIM.OBJECT1_ID1,
CIM.OBJECT1_ID2,
CIM.JTOT_OBJECT1_CODE,
CIM.UOM_CODE,
CIM.EXCEPTION_YN,
CIM.NUMBER_OF_ITEMS,
CIM.UPG_ORIG_SYSTEM_REF,
CIM.UPG_ORIG_SYSTEM_REF_ID,
CIM.PRICED_ITEM_YN,
CIM.CREATED_BY,
CIM.CREATION_DATE,
CIM.LAST_UPDATED_BY,
CIM.LAST_UPDATE_DATE,
CIM.LAST_UPDATE_LOGIN
FROM okc_k_items_v cim,
okc_k_lines_b cle,
okc_line_styles_b lse,
okc_k_lines_b cle1
WHERE cim.dnz_chr_id = p_dnz_chr_id
AND cim.cle_id = cle.id
AND cle.lse_id = lse.id
AND lse.lty_code = 'ITEM'
AND cle.dnz_chr_id = p_dnz_chr_id --cim.dnz_chr_id
AND cle.cle_id = cle1.cle_id
AND cle1.id = p_cle_id
AND cle1.dnz_chr_id = p_dnz_chr_id; --cim.dnz_chr_id
AND cim.cle_id in (SELECT cle.id
FROM okc_k_lines_v cle,
okc_line_styles_v lse
WHERE cle.lse_id = lse.id
AND lse.lty_code = 'ITEM'
AND cle.dnz_chr_id = cim.dnz_chr_id
AND cle.cle_id in (SELECT cle1.cle_id
FROM okc_k_lines_v cle1
WHERE cle1.id = p_cle_id
AND cle1.dnz_chr_id = cim.dnz_chr_id));*/
x_cimv_rec.LAST_UPDATED_BY,
x_cimv_rec.LAST_UPDATE_DATE,
x_cimv_rec.LAST_UPDATE_LOGIN;
SELECT CIM.ID,
CIM.OBJECT_VERSION_NUMBER,
CIM.CLE_ID,
CIM.CHR_ID,
CIM.CLE_ID_FOR,
CIM.DNZ_CHR_ID,
CIM.OBJECT1_ID1,
CIM.OBJECT1_ID2,
CIM.JTOT_OBJECT1_CODE,
CIM.UOM_CODE,
CIM.EXCEPTION_YN,
CIM.NUMBER_OF_ITEMS,
CIM.UPG_ORIG_SYSTEM_REF,
CIM.UPG_ORIG_SYSTEM_REF_ID,
CIM.PRICED_ITEM_YN,
CIM.CREATED_BY,
CIM.CREATION_DATE,
CIM.LAST_UPDATED_BY,
CIM.LAST_UPDATE_DATE,
CIM.LAST_UPDATE_LOGIN
FROM okc_k_items_v cim
WHERE cim.dnz_chr_id = p_dnz_chr_id
AND cim.cle_id = p_cle_id;
x_cimv_rec.LAST_UPDATED_BY,
x_cimv_rec.LAST_UPDATE_DATE,
x_cimv_rec.LAST_UPDATE_LOGIN;
FUNCTION get_rec_update_cimv(p_cimv_id IN OKC_K_ITEMS_V.ID%TYPE,
x_cimv_rec OUT NOCOPY cimv_rec_type)
RETURN VARCHAR2 IS
CURSOR okc_cimv_pk_csr(p_cimv_id OKC_K_ITEMS_V.ID%TYPE) IS
SELECT ID,
OBJECT_VERSION_NUMBER,
CLE_ID,
CHR_ID,
CLE_ID_FOR,
DNZ_CHR_ID,
OBJECT1_ID1,
OBJECT1_ID2,
JTOT_OBJECT1_CODE,
UOM_CODE,
EXCEPTION_YN,
NUMBER_OF_ITEMS,
UPG_ORIG_SYSTEM_REF,
UPG_ORIG_SYSTEM_REF_ID,
PRICED_ITEM_YN,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
FROM okc_k_items_V cim
WHERE cim.id = p_cimv_id;
x_cimv_rec.LAST_UPDATED_BY,
x_cimv_rec.LAST_UPDATE_DATE,
x_cimv_rec.LAST_UPDATE_LOGIN;
END get_rec_update_cimv;
SELECT id1
,id2
FROM OKX_PARTY_SITE_USES_V
WHERE id1 = p_id1
AND id2 = G_ID2
AND site_use_type = 'INSTALL_AT';
SELECT lse.id
FROM okc_subclass_top_line stl,
okc_line_styles_b lse
WHERE lse.lty_code = G_FIN_LINE_LTY_CODE
AND lse.lse_parent_id is null
AND lse.lse_type = G_TLS_TYPE
AND lse.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE);
SELECT lse1.id
FROM okc_subclass_top_line stl,
okc_line_styles_b lse2,
okc_line_styles_b lse1
WHERE lse1.lty_code = p_code
AND lse2.lty_code = G_FIN_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE);
SELECT lse1.id
FROM okc_subclass_top_line stl,
okc_line_styles_b lse3,
okc_line_styles_b lse2,
okc_line_styles_b lse1
WHERE lse1.lty_code = p_code
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = p_code2
AND lse2.lse_parent_id = lse3.id
AND lse3.lty_code = G_FIN_LINE_LTY_CODE
AND lse3.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE);
SELECT id
FROM OKL_TRX_TYPES_tl
WHERE upper(name) = upper(p_try_name)
AND language = G_LANGUAGE;
SELECT ID,
OBJECT_VERSION_NUMBER,
SFWT_FLAG,
CHR_ID,
CLE_ID,
LSE_ID,
LINE_NUMBER,
STS_CODE,
DISPLAY_SEQUENCE,
TRN_CODE,
DNZ_CHR_ID,
COMMENTS,
ITEM_DESCRIPTION,
OKE_BOE_DESCRIPTION,
COGNOMEN,
HIDDEN_IND,
PRICE_UNIT,
PRICE_UNIT_PERCENT,
PRICE_NEGOTIATED,
PRICE_NEGOTIATED_RENEWED,
PRICE_LEVEL_IND,
INVOICE_LINE_LEVEL_IND,
DPAS_RATING,
BLOCK23TEXT,
EXCEPTION_YN,
TEMPLATE_USED,
DATE_TERMINATED,
NAME,
START_DATE,
END_DATE,
DATE_RENEWED,
UPG_ORIG_SYSTEM_REF,
UPG_ORIG_SYSTEM_REF_ID,
ORIG_SYSTEM_SOURCE_CODE,
ORIG_SYSTEM_ID1,
ORIG_SYSTEM_REFERENCE1,
REQUEST_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_ID,
PROGRAM_UPDATE_DATE,
PRICE_LIST_ID,
PRICING_DATE,
PRICE_LIST_LINE_ID,
LINE_LIST_PRICE,
ITEM_TO_PRICE_YN,
PRICE_BASIS_YN,
CONFIG_HEADER_ID,
CONFIG_REVISION_NUMBER,
CONFIG_COMPLETE_YN,
CONFIG_VALID_YN,
CONFIG_TOP_MODEL_LINE_ID,
CONFIG_ITEM_TYPE,
CONFIG_ITEM_ID ,
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,
PRICE_TYPE,
CURRENCY_CODE,
CURRENCY_CODE_RENEWED,
LAST_UPDATE_LOGIN
FROM Okc_K_Lines_V
WHERE okc_k_lines_v.id = p_cle_id;
x_clev_rec.program_update_date,
x_clev_rec.price_list_id,
x_clev_rec.pricing_date,
x_clev_rec.price_list_line_id,
x_clev_rec.line_list_price,
x_clev_rec.item_to_price_yn,
x_clev_rec.price_basis_yn,
x_clev_rec.config_header_id,
x_clev_rec.config_revision_number,
x_clev_rec.config_complete_yn,
x_clev_rec.config_valid_yn,
x_clev_rec.config_top_model_line_id,
x_clev_rec.config_item_type,
x_clev_rec.CONFIG_ITEM_ID ,
x_clev_rec.ATTRIBUTE_CATEGORY,
x_clev_rec.ATTRIBUTE1,
x_clev_rec.ATTRIBUTE2,
x_clev_rec.ATTRIBUTE3,
x_clev_rec.ATTRIBUTE4,
x_clev_rec.ATTRIBUTE5,
x_clev_rec.ATTRIBUTE6,
x_clev_rec.ATTRIBUTE7,
x_clev_rec.ATTRIBUTE8,
x_clev_rec.ATTRIBUTE9,
x_clev_rec.ATTRIBUTE10,
x_clev_rec.ATTRIBUTE11,
x_clev_rec.ATTRIBUTE12,
x_clev_rec.ATTRIBUTE13,
x_clev_rec.ATTRIBUTE14,
x_clev_rec.ATTRIBUTE15,
x_clev_rec.CREATED_BY,
x_clev_rec.CREATION_DATE,
x_clev_rec.LAST_UPDATED_BY,
x_clev_rec.LAST_UPDATE_DATE,
x_clev_rec.PRICE_TYPE,
x_clev_rec.CURRENCY_CODE,
x_clev_rec.CURRENCY_CODE_RENEWED,
x_clev_rec.LAST_UPDATE_LOGIN;
SELECT ID,
OBJECT_VERSION_NUMBER,
KLE_ID,
STY_ID,
PRC_CODE,
FCG_CODE,
NTY_CODE,
ESTIMATED_OEC,
LAO_AMOUNT,
TITLE_DATE,
FEE_CHARGE,
LRS_PERCENT,
INITIAL_DIRECT_COST,
PERCENT_STAKE,
PERCENT,
EVERGREEN_PERCENT,
AMOUNT_STAKE,
OCCUPANCY,
COVERAGE,
RESIDUAL_PERCENTAGE,
DATE_LAST_INSPECTION,
DATE_SOLD,
LRV_AMOUNT,
CAPITAL_REDUCTION,
DATE_NEXT_INSPECTION_DUE,
DATE_RESIDUAL_LAST_REVIEW,
DATE_LAST_REAMORTISATION,
VENDOR_ADVANCE_PAID,
WEIGHTED_AVERAGE_LIFE,
TRADEIN_AMOUNT,
BOND_EQUIVALENT_YIELD,
TERMINATION_PURCHASE_AMOUNT,
REFINANCE_AMOUNT,
YEAR_BUILT,
DELIVERED_DATE,
CREDIT_TENANT_YN,
DATE_LAST_CLEANUP,
YEAR_OF_MANUFACTURE,
COVERAGE_RATIO,
REMARKETED_AMOUNT,
GROSS_SQUARE_FOOTAGE,
PRESCRIBED_ASSET_YN,
DATE_REMARKETED,
NET_RENTABLE,
REMARKET_MARGIN,
DATE_LETTER_ACCEPTANCE,
REPURCHASED_AMOUNT,
DATE_COMMITMENT_EXPIRATION,
DATE_REPURCHASED,
DATE_APPRAISAL,
RESIDUAL_VALUE,
APPRAISAL_VALUE,
SECURED_DEAL_YN,
GAIN_LOSS,
FLOOR_AMOUNT,
RE_LEASE_YN,
PREVIOUS_CONTRACT,
TRACKED_RESIDUAL,
DATE_TITLE_RECEIVED,
AMOUNT,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
STY_ID_FOR,
CLG_ID,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
DATE_FUNDING,
DATE_FUNDING_REQUIRED,
DATE_ACCEPTED,
DATE_DELIVERY_EXPECTED,
OEC,
CAPITAL_AMOUNT,
RESIDUAL_GRNTY_AMOUNT,
RESIDUAL_CODE,
RVI_PREMIUM,
CREDIT_NATURE,
CAPITALIZED_INTEREST,
CAPITAL_REDUCTION_PERCENT,
DATE_PAY_INVESTOR_START,
PAY_INVESTOR_FREQUENCY,
PAY_INVESTOR_EVENT,
PAY_INVESTOR_REMITTANCE_DAYS,
FEE_TYPE,
SUBSIDY_ID,
/* subsidy columns removed later, 09/26/2003
SUBSIDIZED_OEC,
SUBSIDIZED_CAP_AMOUNT,
*/
PRE_TAX_YIELD,
AFTER_TAX_YIELD,
IMPLICIT_INTEREST_RATE,
IMPLICIT_NON_IDC_INTEREST_RATE,
PRE_TAX_IRR,
AFTER_TAX_IRR,
SUBSIDY_OVERRIDE_AMOUNT,
SUB_PRE_TAX_YIELD,
SUB_AFTER_TAX_YIELD,
SUB_IMPL_INTEREST_RATE,
SUB_IMPL_NON_IDC_INT_RATE,
SUB_PRE_TAX_IRR,
SUB_AFTER_TAX_IRR,
--Bug# 2994971 :
ITEM_INSURANCE_CATEGORY,
--Bug# 3973640: 11.5.10 Schema changes
QTE_ID,
FUNDING_DATE,
STREAM_TYPE_SUBCLASS
-- ramurt Bug#4552772
,FEE_PURPOSE_CODE
--Bug# 4631549
,EXPECTED_ASSET_COST
--Bug# 5192636
,DOWN_PAYMENT_RECEIVER_CODE
,CAPITALIZE_DOWN_PAYMENT_YN
--start NISINHA bug # 6490572
,MODEL_NUMBER
,MANUFACTURER_NAME
--end NISINHA bug # 6490572
FROM OKL_K_LINES_V
WHERE OKL_K_LINES_V.id = p_kle_id;
x_klev_rec.LAST_UPDATED_BY,
x_klev_rec.LAST_UPDATE_DATE,
x_klev_rec.LAST_UPDATE_LOGIN,
x_klev_rec.DATE_FUNDING,
x_klev_rec.DATE_FUNDING_REQUIRED,
x_klev_rec.DATE_ACCEPTED,
x_klev_rec.DATE_DELIVERY_EXPECTED,
x_klev_rec.OEC,
x_klev_rec.CAPITAL_AMOUNT,
x_klev_rec.RESIDUAL_GRNTY_AMOUNT,
x_klev_rec.RESIDUAL_CODE,
x_klev_rec.RVI_PREMIUM,
x_klev_rec.CREDIT_NATURE,
x_klev_rec.CAPITALIZED_INTEREST,
x_klev_rec.CAPITAL_REDUCTION_PERCENT,
x_klev_rec.DATE_PAY_INVESTOR_START,
x_klev_rec.PAY_INVESTOR_FREQUENCY,
x_klev_rec.PAY_INVESTOR_EVENT,
x_klev_rec.PAY_INVESTOR_REMITTANCE_DAYS,
x_klev_rec.FEE_TYPE,
x_klev_rec.SUBSIDY_ID,
/* subsidy colymns removed later, 09/26/2003
x_klev_rec.SUBSIDIZED_OEC,
x_klev_rec.SUBSIDIZED_CAP_AMOUNT,
*/
x_klev_rec.PRE_TAX_YIELD,
x_klev_rec.AFTER_TAX_YIELD,
x_klev_rec.IMPLICIT_INTEREST_RATE,
x_klev_rec.IMPLICIT_NON_IDC_INTEREST_RATE,
x_klev_rec.PRE_TAX_IRR,
x_klev_rec.AFTER_TAX_IRR,
x_klev_rec.SUBSIDY_OVERRIDE_AMOUNT,
x_klev_rec.SUB_PRE_TAX_YIELD,
x_klev_rec.SUB_AFTER_TAX_YIELD,
x_klev_rec.SUB_IMPL_INTEREST_RATE,
x_klev_rec.SUB_IMPL_NON_IDC_INT_RATE,
x_klev_rec.SUB_PRE_TAX_IRR,
x_klev_rec.SUB_AFTER_TAX_IRR,
--Bug# 2994971 :
x_klev_rec.ITEM_INSURANCE_CATEGORY,
--Bug# 3973640: 11.5.10 Schema changes
x_klev_rec.QTE_ID,
x_klev_rec.FUNDING_DATE,
x_klev_rec.STREAM_TYPE_SUBCLASS
--ramurt Bug#4552772
,x_klev_rec.FEE_PURPOSE_CODE
--Bug# 4631549
,x_klev_rec.EXPECTED_ASSET_COST
--Bug# 5192636
,x_klev_rec.DOWN_PAYMENT_RECEIVER_CODE
,x_klev_rec.CAPITALIZE_DOWN_PAYMENT_YN
-- start NISINHA Bug# 6490572
,x_klev_rec.MODEL_NUMBER
,x_klev_rec.MANUFACTURER_NAME;
PROCEDURE validate_new_ast_num_update(x_return_status OUT NOCOPY VARCHAR2,
p_asset_number IN OKL_TXL_ASSETS_V.ASSET_NUMBER%TYPE,
p_kle_Id IN OKL_TXL_ASSETS_V.KLE_ID%TYPE,
p_dnz_chr_id IN OKC_K_HEADERS_B.ID%TYPE) IS
ln_okl_txl_assets_v NUMBER := 0;
SELECT NAME
FROM OKC_K_LINES_TL
WHERE ID = (SELECT CLE_ID
FROM OKC_K_LINES_B
WHERE ID = p_kle_Id)
AND language = USERENV('lang');
SELECT 1
--FROM DUAL
--WHERE EXISTS (SELECT '1'
FROM OKL_TXL_ASSETS_B
WHERE asset_number = p_asset_number
AND kle_id <> p_kle_id; --);
SELECT 1
--FROM DUAL
--WHERE EXISTS (SELECT '1'
FROM OKX_ASSET_LINES_V
WHERE asset_number = p_asset_number; --);
SELECT 1
--FROM DUAL
--WHERE EXISTS (SELECT '1'
FROM OKX_ASSETS_V
WHERE asset_number = p_asset_number; --);
SELECT 1
--FROM DUAL
--WHERE EXISTS (SELECT '1'
FROM OKL_TRX_ASSETS TAS,
OKL_TXL_ASSETS_V TXL,
OKL_TXD_ASSETS_V TXD
WHERE TXD.asset_number = p_asset_number
AND TXD.TAL_ID = TXL.ID
AND TXL.TAL_TYPE = 'ALI'
AND TXL.TAS_ID = TAS.ID
AND TAS.TSU_CODE = 'ENTERED'; --);
SELECT nvl(chr.orig_system_source_code,'x')
FROM okc_k_headers_b chr,
okc_k_lines_b cle
WHERE cle.id = p_kle_Id
AND cle.dnz_chr_id = chr.id;
SELECT RULE_INFORMATION1
FROM OKC_RULES_V
WHERE DNZ_CHR_ID = p_dnz_chr_id
AND RULE_INFORMATION_CATEGORY = 'LARLES';
END validate_new_ast_num_update;
SELECT 1
--FROM DUAL
--WHERE EXISTS (SELECT '1'
FROM OKL_TXL_ASSETS_B
WHERE asset_number = p_asset_number; --);
SELECT 1
--FROM DUAL
--WHERE EXISTS (SELECT '1'
FROM OKX_ASSET_LINES_V
WHERE asset_number = p_asset_number; --); */
SELECT 1
FROM fa_additions a
WHERE a.asset_number = p_asset_number
and exists
(
select 1 from okc_k_items b
where b.jtot_object1_code = 'OKX_ASSET'
and b.object1_id1 = to_char(a.asset_id)
);
SELECT 1
--FROM DUAL
--WHERE EXISTS (SELECT '1'
FROM OKX_ASSETS_V
WHERE asset_number = p_asset_number; --);
SELECT 1
--FROM DUAL
--WHERE EXISTS (SELECT '1'
FROM OKL_TRX_ASSETS TAS,
OKL_TXL_ASSETS_V TXL,
OKL_TXD_ASSETS_V TXD
WHERE TXD.asset_number = p_asset_number
AND TXD.TAL_ID = TXL.ID
AND TXL.TAL_TYPE = 'ALI'
AND TXL.TAS_ID = TAS.ID
AND TAS.TSU_CODE = 'ENTERED'; --);
SELECT RULE_INFORMATION1
FROM OKC_RULES_V
WHERE DNZ_CHR_ID = p_dnz_chr_id
AND RULE_INFORMATION_CATEGORY = 'LARLES';
SELECT 1
--FROM DUAL
--WHERE EXISTS (SELECT '1'
FROM OKL_TXD_ASSETS_B txd,
OKL_TXL_ASSETS_B txl
WHERE txl.asset_number = p_asset_number
AND txl.asset_number = txd.asset_number
AND txl.tal_type IN ('CFA','CIB','CRB','CRL','CSP','CRV')
AND txd.tal_id = txl.id
AND txd.tal_id = p_tal_id
AND txd.tax_book = p_tax_book; --);
SELECT 1
--FROM DUAL
--WHERE EXISTS (SELECT '1'
FROM OKL_TXL_ITM_INSTS
WHERE instance_number_ib = p_inst_ib; --);
SELECT lty_code,
lse_type
FROM OKC_LINE_STYLES_V
WHERE id = p_lse_id;
SELECT lse.lty_code
FROM OKC_K_LINES_V cle,
OKC_LINE_STYLES_V lse
WHERE cle.id = p_cle_id
AND lse.id = cle.lse_id;
SELECT 1
--FROM DUAL
--WHERE EXISTS (SELECT 1
FROM OKC_K_HEADERS_B chrv
WHERE chrv.id = p_dnz_chr_id; --);
SELECT khr.deal_type,
chr.scs_code,
--Bug# 4419339
chr.orig_system_source_code
FROM OKL_K_HEADERS_V khr,
OKC_K_HEADERS_B chr
WHERE khr.id = p_dnz_chr_id
AND chr.id = khr.id;
SELECT 1
--FROM dual
--WHERE EXISTS (SELECT '1'
FROM OKL_TXL_ASSETS_V
WHERE kle_id = p_kle_id; --);
SELECT 1
--FROM dual
--WHERE EXISTS (SELECT '1'
FROM OKL_TXL_ITM_INSTS_V
WHERE kle_id = p_kle_id; --);
SELECT lse.lty_code
FROM OKC_LINE_STYLES_V lse
WHERE lse.id = p_lse_id;
SELECT cle.sts_code
FROM OKC_K_LINES_V cle
WHERE cle.id in (SELECT cle.cle_id
FROM OKC_K_LINES_V cle
WHERE id in (SELECT cle.cle_id
FROM OKC_LINE_STYLES_V lse,
OKC_K_LINES_V cle
WHERE dnz_chr_id = p_dnz_chr_id
AND cle.lse_id = lse.id
AND cle.id = p_cle_id
AND lse.lty_code = p_lty_code));
SELECT cle.sts_code
FROM OKC_K_LINES_V cle
WHERE id in (SELECT cle.cle_id
FROM OKC_LINE_STYLES_V lse,
OKC_K_LINES_V cle
WHERE dnz_chr_id = p_dnz_chr_id
AND cle.lse_id = lse.id
AND cle.id = p_cle_id
AND lse.lty_code = p_lty_code);
SELECT cle.sts_code
FROM OKC_K_LINES_V cle
WHERE cle.dnz_chr_id = p_dnz_chr_id
AND cle.cle_id is null
AND cle.id = p_cle_id
AND cle.chr_id = p_chr_id;
PROCEDURE Update_asset_header(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_trxv_rec IN trxv_rec_type,
x_trxv_rec OUT NOCOPY trxv_rec_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TRX_ASSET_HEADER';
OKL_TRX_ASSETS_PUB.update_trx_ass_h_def(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_thpv_rec => p_trxv_rec,
x_thpv_rec => x_trxv_rec);
END Update_asset_header;
Update_asset_header(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_trxv_rec => l_trxv_rec,
x_trxv_rec => x_trxv_rec);
Update_asset_header(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_trxv_rec => l_trxv_rec,
x_trxv_rec => x_trxv_rec);
PROCEDURE Update_asset_lines(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_talv_rec IN talv_rec_type,
x_talv_rec OUT NOCOPY talv_rec_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TXL_ASSET_LINE';
OKL_TXL_ASSETS_PUB.update_txl_asset_def(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_tlpv_rec => p_talv_rec,
x_tlpv_rec => x_talv_rec);
END Update_asset_lines;
PROCEDURE update_asset_line_details(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_txdv_tbl IN txdv_tbl_type,
x_txdv_tbl OUT NOCOPY txdv_tbl_type)
IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TXD_ASSET_DTL';
OKL_TXD_ASSETS_PUB.update_txd_asset_def(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_adpv_rec => p_txdv_tbl(i),
x_adpv_rec => x_txdv_tbl(i));
END update_asset_line_details;
PROCEDURE update_asset_line_details(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_asset_number IN OKL_TXL_ASSETS_B.ASSET_NUMBER%TYPE,
p_original_cost IN OKL_TXL_ASSETS_B.ORIGINAL_COST%TYPE,
p_tal_id IN OKL_TXL_ASSETS_B.ID%TYPE)
IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TXD_ASSET_DTL';
lv_to_update VARCHAR2(3);
x_to_update => lv_to_update,
x_txdv_tbl => l_txdv_tbl);
IF lv_to_update = 'Y' THEN
OKL_TXD_ASSETS_PUB.update_txd_asset_def(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_adpv_tbl => l_txdv_tbl,
x_adpv_tbl => lx_txdv_tbl);
END update_asset_line_details;
PROCEDURE Update_Asset_Cost(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_cleb_fin_id IN NUMBER,
p_chr_id IN NUMBER,
p_oec IN NUMBER) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_ASSET_COST';
SELECT '!'
FROM okc_k_headers_b CHR,
okl_trx_contracts ktrx
WHERE ktrx.khr_id_new = chr.id
AND ktrx.tsu_code = 'ENTERED'
AND ktrx.rbr_code is NOT NULL
AND ktrx.tcn_type = 'TRBK'
--rkuttiya added for 12.1.1 Multi GAAP
AND ktrx.representation_type = 'PRIMARY'
--
AND chr.id = p_chr_id
AND chr.orig_system_source_code = 'OKL_REBOOK';
SELECT tal.id,
tal.asset_number
FROM okl_txl_assets_b tal,
okc_k_lines_b cleb_fa
WHERE cleb_fa.cle_id = p_cleb_fin_id
AND cleb_fa.dnz_chr_id = p_chr_id
AND cleb_fa.lse_id = 42
AND tal.kle_id = cleb_fa.id;
update_asset_lines(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_talv_rec => l_talv_rec,
x_talv_rec => x_talv_rec);
update_asset_line_details(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_asset_number => l_asset_number,
p_original_cost => l_talv_rec.original_cost,
p_tal_id => l_talv_rec.id);
END Update_Asset_Cost;
SELECT DNZ_CHR_ID
FROM OKC_K_LINES_B
WHERE ID = p_kle_id1;
Update_asset_header(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_trxv_rec => l_trxv_rec,
x_trxv_rec => x_trxv_rec);
Update_asset_header(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_trxv_rec => l_trxv_rec,
x_trxv_rec => x_trxv_rec);
PROCEDURE update_txl_itm_insts(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_itiv_rec IN itiv_rec_type,
x_itiv_rec OUT NOCOPY itiv_rec_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPD_TXL_ITM_INSTS';
OKL_TXL_ITM_INSTS_PUB.update_txl_itm_insts(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_iipv_rec => p_itiv_rec,
x_iipv_rec => x_itiv_rec);
END update_txl_itm_insts;
PROCEDURE update_financial_asset_line(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_clev_rec IN clev_rec_type,
p_klev_rec IN klev_rec_type,
x_clev_rec OUT NOCOPY clev_rec_type,
x_klev_rec OUT NOCOPY klev_rec_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_FIN_AST_LINES';
OKL_CONTRACT_PUB.update_contract_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_rec => p_clev_rec,
p_klev_rec => p_klev_rec,
x_clev_rec => x_clev_rec,
x_klev_rec => x_klev_rec);
END update_financial_asset_line;
select msi.asset_category_id
from mtl_system_items msi
where msi.organization_id = p_inv_org_id
and msi.inventory_item_id = p_inv_item_id;
okl_contract_pub.update_contract_line(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_rec => l_clev_rec,
p_klev_rec => l_klev_rec,
x_clev_rec => lx_clev_rec,
x_klev_rec => lx_klev_rec
);
PROCEDURE update_model_line_item(p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
p_clev_rec IN clev_rec_type,
p_klev_rec IN klev_rec_type,
p_cimv_rec IN cimv_rec_type,
x_clev_rec OUT NOCOPY clev_rec_type,
x_klev_rec OUT NOCOPY klev_rec_type,
x_cimv_rec OUT NOCOPY cimv_rec_type) IS
l_clev_rec clev_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_MODEL_ITEM';
OKL_CONTRACT_PUB.update_contract_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_rec => p_clev_rec,
p_klev_rec => p_klev_rec,
x_clev_rec => x_clev_rec,
x_klev_rec => x_klev_rec);
OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cimv_rec => l_cimv_rec,
x_cimv_rec => x_cimv_rec);
END update_model_line_item;
SELECT 1
--FROM DUAL
--WHERE EXISTS (SELECT '1'
FROM OKX_ASSET_LINES_V
WHERE id1 = p_id1
AND id2 = p_id2
AND dnz_chr_id <> p_dnz_chr_id
AND line_status NOT IN ('EXPRIED','TERMINATED','ABANDONED'); --);
PROCEDURE update_fa_line_item(p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
p_clev_rec IN clev_rec_type,
p_klev_rec IN klev_rec_type,
p_cimv_rec IN cimv_rec_type,
p_talv_rec IN talv_rec_type,
x_clev_rec OUT NOCOPY clev_rec_type,
x_klev_rec OUT NOCOPY klev_rec_type,
x_cimv_rec OUT NOCOPY cimv_rec_type,
x_talv_rec OUT NOCOPY talv_rec_type) IS
l_clev_rec clev_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_FA_LINE_ITEM';
OKL_CONTRACT_PUB.update_contract_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_rec => p_clev_rec,
p_klev_rec => p_klev_rec,
x_clev_rec => x_clev_rec,
x_klev_rec => x_klev_rec);
OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cimv_rec => l_cimv_rec,
x_cimv_rec => x_cimv_rec);
update_asset_lines(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_talv_rec => p_talv_rec,
x_talv_rec => x_talv_rec);
END update_fa_line_item;
SELECT cle.display_sequence,
cim.number_of_items
FROM okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_items cim,
okc_k_lines_b cle
WHERE cle.id = p_cle_id
AND cle.dnz_chr_id = p_dnz_chr_id
AND cle.id = cim.cle_id
AND cim.dnz_chr_id = cle.dnz_chr_id
AND lse1.id = cle.lse_id
AND lse1.lty_code = G_MODEL_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE;
PROCEDURE Update_addon_line_item_rec(p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
p_clev_rec IN clev_rec_type,
p_klev_rec IN klev_rec_type,
p_cimv_rec IN cimv_rec_type,
x_clev_rec OUT NOCOPY clev_rec_type,
x_klev_rec OUT NOCOPY klev_rec_type,
x_cimv_rec OUT NOCOPY cimv_rec_type) IS
l_clev_rec clev_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_AO_LNE_ITEM';
SELECT cle.display_sequence,
cim.number_of_items
FROM okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_items cim,
okc_k_lines_b cle
WHERE cle.id = p_cle_id
AND cle.dnz_chr_id = p_dnz_chr_id
AND cle.id = cim.cle_id
AND cim.dnz_chr_id = cle.dnz_chr_id
AND lse1.id = cle.lse_id
AND lse1.lty_code = G_MODEL_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE;
OKL_CONTRACT_PUB.update_contract_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_rec => l_clev_rec,
p_klev_rec => l_klev_rec,
x_clev_rec => x_clev_rec,
x_klev_rec => x_klev_rec);
OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cimv_rec => l_cimv_rec,
x_cimv_rec => x_cimv_rec);
END Update_addon_line_item_rec;
SELECT cle.id
FROM okc_subclass_top_line stl,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_lines_b cle
WHERE cle.dnz_chr_id = p_dnz_chr_id
AND cle.lse_id = lse1.id
AND lse1.lty_code = G_FA_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE
AND lse2.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE)
AND cle.cle_id in (SELECT distinct to_char(cle.cle_id)
FROM okc_subclass_top_line stl,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_lines_b cle
WHERE cle.id = p_top_line
AND cle.dnz_chr_id = p_dnz_chr_id
AND cle.lse_id = lse1.id
AND lse1.lty_code = G_MODEL_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE
AND lse2.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE));
validate_new_ast_num_update(x_return_status => x_return_status,
p_asset_number => p_asset_number,
p_kle_id => ln_fa_id,
p_dnz_chr_id => p_clev_rec.dnz_chr_id);
Procedure Update_addon_line_rec(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
p_asset_number IN OKL_TXL_ASSETS_V.ASSET_NUMBER%TYPE,
p_clev_rec IN clev_rec_type,
p_klev_rec IN klev_rec_type,
p_cimv_rec IN cimv_rec_type,
x_clev_rec OUT NOCOPY clev_rec_type,
x_klev_rec OUT NOCOPY klev_rec_type,
x_cimv_rec OUT NOCOPY cimv_rec_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_AO_LNE_REC';
SELECT cle.id
FROM okc_subclass_top_line stl,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_lines_b cle
WHERE cle.dnz_chr_id = p_dnz_chr_id
AND cle.lse_id = lse1.id
AND lse1.lty_code = G_FA_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE
AND lse2.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE)
AND cle.cle_id in (SELECT distinct to_char(cle.cle_id)
FROM okc_subclass_top_line stl,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_lines_b cle
WHERE cle.id = p_top_line
AND cle.dnz_chr_id = p_dnz_chr_id
AND cle.lse_id = lse1.id
AND lse1.lty_code = G_MODEL_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE
AND lse2.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE));
validate_new_ast_num_update(x_return_status => x_return_status,
p_asset_number => p_asset_number,
p_kle_id => ln_fa_id,
p_dnz_chr_id => l_clev_rec.dnz_chr_id);
update_addon_line_item_rec(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_lty_code => l_lty_code,
p_clev_rec => l_clev_rec,
p_klev_rec => p_klev_rec,
p_cimv_rec => p_cimv_rec,
x_clev_rec => x_clev_rec,
x_klev_rec => x_klev_rec,
x_cimv_rec => x_cimv_rec);
END Update_addon_line_rec;
PROCEDURE delete_addon_line_rec(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_clev_rec IN clev_rec_type,
p_klev_rec IN klev_rec_type,
x_clev_rec OUT NOCOPY clev_rec_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'DEL_ADDON_REC';
l_delete_clev_rec clev_rec_type;
l_delete_klev_rec klev_rec_type;
l_delete_clev_rec := p_clev_rec;
l_delete_clev_rec);
l_delete_klev_rec);
IF l_delete_klev_rec.id <> l_delete_clev_rec.id THEN
OKL_API.set_message(p_app_name => G_APP_NAME,
p_msg_name => G_LINE_RECORD);
validate_sts_code(p_clev_rec => l_delete_clev_rec,
x_return_status => x_return_status);
validate_lse_id(p_clev_rec => l_delete_clev_rec,
x_return_status => x_return_status,
x_lty_code => l_lty_code,
x_lse_type => l_lse_type);
validate_dnz_chr_id(p_clev_rec => l_delete_clev_rec,
x_return_status => x_return_status);
IF (l_delete_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
l_delete_clev_rec.chr_id IS NULL) AND
(l_delete_clev_rec.dnz_chr_id IS NOT NULL OR
l_delete_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
(l_delete_clev_rec.cle_id IS NOT NULL OR
l_delete_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
l_lty_code = G_ADDON_LINE_LTY_CODE AND
l_lse_type = G_SLS_TYPE THEN
OKL_CONTRACT_PUB.delete_contract_line(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_line_id => l_delete_clev_rec.id);
x_clev_rec := l_delete_clev_rec;
END delete_addon_line_rec;
PROCEDURE update_inst_line(p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
p_clev_rec IN clev_rec_type,
p_klev_rec IN klev_rec_type,
x_clev_rec OUT NOCOPY clev_rec_type,
x_klev_rec OUT NOCOPY klev_rec_type) IS
l_clev_rec clev_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_INSTS_LINE';
OKL_CONTRACT_PUB.update_contract_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_rec => p_clev_rec,
p_klev_rec => p_klev_rec,
x_clev_rec => x_clev_rec,
x_klev_rec => x_klev_rec);
END update_inst_line;
PROCEDURE update_installed_base_line(p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
p_clev_rec IN clev_rec_type,
p_klev_rec IN klev_rec_type,
p_cimv_rec IN cimv_rec_type,
p_itiv_rec IN itiv_rec_type,
x_clev_rec OUT NOCOPY clev_rec_type,
x_klev_rec OUT NOCOPY klev_rec_type,
x_cimv_rec OUT NOCOPY cimv_rec_type,
x_itiv_rec OUT NOCOPY itiv_rec_type) IS
l_clev_rec clev_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_IB_LINE';
OKL_CONTRACT_PUB.update_contract_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_rec => p_clev_rec,
p_klev_rec => p_klev_rec,
x_clev_rec => x_clev_rec,
x_klev_rec => x_klev_rec);
OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cimv_rec => l_cimv_rec,
x_cimv_rec => x_cimv_rec);
update_txl_itm_insts(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_itiv_rec => p_itiv_rec,
x_itiv_rec => x_itiv_rec);
OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cimv_rec => l_cimv_rec,
x_cimv_rec => x_cimv_rec);
END update_installed_base_line;
PROCEDURE Update_fin_line(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
p_asset_number IN OKL_TXL_ASSETS_V.ASSET_NUMBER%TYPE,
p_clev_rec IN clev_rec_type,
p_klev_rec IN klev_rec_type,
x_clev_rec OUT NOCOPY clev_rec_type,
x_klev_rec OUT NOCOPY klev_rec_type,
p_validate_fin_line IN VARCHAR2 DEFAULT OKL_API.G_TRUE) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_FIN_AST_LINES';
SELECT cle.id
-- FROM okc_subclass_top_line stl,
-- okc_line_styles_b lse2,
-- okc_line_styles_b lse1,
FROM okc_k_lines_b cle
WHERE cle.cle_id = p_top_line
AND cle.dnz_chr_id = p_dnz_chr_id
-- AND lse1.id = cle.lse_id
-- AND lse1.lty_code = G_FA_LINE_LTY_CODE
-- AND lse1.lse_parent_id = lse2.id
-- AND lse2.lty_code = G_FIN_LINE_LTY_CODE
-- AND lse2.id = stl.lse_id
-- AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE);
validate_new_ast_num_update(x_return_status => x_return_status,
p_asset_number => p_asset_number,
p_kle_id => ln_fa_id,
p_dnz_chr_id => l_clev_rec.dnz_chr_id);
validate_new_ast_num_update(x_return_status => x_return_status,
p_asset_number => p_asset_number,
p_kle_id => ln_fa_id,
p_dnz_chr_id => l_clev_rec.dnz_chr_id);
update_financial_asset_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_rec => l_clev_rec,
p_klev_rec => l_klev_rec,
x_clev_rec => x_clev_rec,
x_klev_rec => x_klev_rec);
END Update_fin_line;
PROCEDURE Update_fin_cap_cost(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
p_asset_number IN OKL_TXL_ASSETS_V.ASSET_NUMBER%TYPE,
p_clev_rec IN clev_rec_type,
p_klev_rec IN klev_rec_type,
x_clev_rec OUT NOCOPY clev_rec_type,
x_klev_rec OUT NOCOPY klev_rec_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_FIN_CAP_COST';
SELECT lse.id,
cle.sts_code
FROM okc_subclass_top_line stl,
okc_line_styles_b lse,
okc_k_lines_v cle
WHERE cle.id = p_top_line_id
AND cle.lse_id = lse.id
AND lse.lty_code = G_FIN_LINE_LTY_CODE
AND lse.lse_parent_id is null
AND lse.lse_type = G_TLS_TYPE
AND lse.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE);
Update_fin_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
P_new_yn => P_new_yn,
p_asset_number => p_asset_number,
p_clev_rec => l_clev_rec,
p_klev_rec => l_klev_rec,
x_clev_rec => x_clev_rec,
x_klev_rec => x_klev_rec,
p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
Update_fin_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
P_new_yn => P_new_yn,
p_asset_number => p_asset_number,
p_clev_rec => l_clev_rec,
p_klev_rec => l_klev_rec,
x_clev_rec => x_clev_rec,
x_klev_rec => x_klev_rec,
p_validate_fin_line => OKL_API.G_TRUE);
Update_fin_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
P_new_yn => P_new_yn,
p_asset_number => p_asset_number,
p_clev_rec => x_clev_rec,
p_klev_rec => x_klev_rec,
x_clev_rec => lx_clev_rec,
x_klev_rec => lx_klev_rec,
p_validate_fin_line => OKL_API.G_TRUE);
END Update_fin_cap_cost;
l_update_clev_rec clev_rec_type;
l_update_klev_rec klev_rec_type;
SELECT cle.cle_id
FROM okc_subclass_top_line stl,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_items_v cim,
okc_k_lines_v cle
WHERE cle.id = p_model_line_id
AND cle.dnz_chr_id = p_dnz_chr_id
AND cle.id = cim.cle_id
AND cle.dnz_chr_id = cim.dnz_chr_id
AND cle.lse_id = lse1.id
AND lse1.lty_code = G_MODEL_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE
AND lse2.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE,G_QUOTE_SCS_CODE);
l_update_clev_rec);
l_update_klev_rec);
IF l_update_klev_rec.id <> l_update_clev_rec.id THEN
OKL_API.set_message(p_app_name => G_APP_NAME,
p_msg_name => G_LINE_RECORD);
l_update_klev_rec.oec := x_oec;
l_update_klev_rec.oec :=
OKL_ACCOUNTING_UTIL.CROSS_CURRENCY_ROUND_AMOUNT(l_update_klev_rec.oec,
l_update_clev_rec.currency_code);
IF (x_oec <> 0 AND l_update_klev_rec.oec = 0) THEN
OKL_API.set_message(p_app_name => G_APP_NAME,
p_msg_name => G_AMOUNT_ROUNDING,
p_token1 => 'AMT',
p_token1_value => to_char(x_oec));
Update_fin_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
P_new_yn => P_new_yn,
p_asset_number => p_asset_number,
p_clev_rec => l_update_clev_rec,
p_klev_rec => l_update_klev_rec,
x_clev_rec => x_fin_clev_rec,
x_klev_rec => x_fin_klev_rec,
p_validate_fin_line => p_validate_fin_line); -- 4414408
l_update_clev_rec clev_rec_type;
l_update_klev_rec klev_rec_type;
SELECT cle.cle_id
FROM okc_subclass_top_line stl,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_items_v cim,
okc_k_lines_v cle
WHERE cle.id = p_model_line_id
AND cle.dnz_chr_id = p_dnz_chr_id
AND cle.id = cim.cle_id
AND cle.dnz_chr_id = cim.dnz_chr_id
AND cle.lse_id = lse1.id
AND lse1.lty_code = G_MODEL_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE
AND lse2.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE);
l_update_clev_rec);
l_update_klev_rec);
IF l_update_klev_rec.id <> l_update_clev_rec.id THEN
OKL_API.set_message(p_app_name => G_APP_NAME,
p_msg_name => G_LINE_RECORD);
l_update_klev_rec.capital_amount := x_cap_amt;
l_update_klev_rec.capital_amount :=
OKL_ACCOUNTING_UTIL.CROSS_CURRENCY_ROUND_AMOUNT(l_update_klev_rec.capital_amount,
l_update_clev_rec.currency_code);
IF (x_cap_amt <> 0 AND l_update_klev_rec.capital_amount = 0) THEN
OKL_API.set_message(p_app_name => G_APP_NAME,
p_msg_name => G_AMOUNT_ROUNDING,
p_token1 => 'AMT',
p_token1_value => to_char(x_cap_amt));
Update_fin_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
P_new_yn => P_new_yn,
p_asset_number => p_asset_number,
p_clev_rec => l_update_clev_rec,
p_klev_rec => l_update_klev_rec,
x_clev_rec => x_fin_clev_rec,
x_klev_rec => x_fin_klev_rec,
p_validate_fin_line => p_validate_fin_line); -- 4414408
l_update_clev_rec clev_rec_type;
l_update_klev_rec klev_rec_type;
SELECT cle.cle_id
FROM okc_subclass_top_line stl,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_items_v cim,
okc_k_lines_v cle
WHERE cle.id = p_model_line_id
AND cle.dnz_chr_id = p_dnz_chr_id
AND cle.id = cim.cle_id
AND cle.dnz_chr_id = cim.dnz_chr_id
AND cle.lse_id = lse1.id
AND lse1.lty_code = G_MODEL_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE
AND lse2.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE);
l_update_clev_rec);
l_update_klev_rec);
IF l_update_klev_rec.id <> l_update_clev_rec.id THEN
OKL_API.set_message(p_app_name => G_APP_NAME,
p_msg_name => G_LINE_RECORD);
l_update_klev_rec.residual_value := x_res_value;
l_update_klev_rec.residual_value :=
OKL_ACCOUNTING_UTIL.CROSS_CURRENCY_ROUND_AMOUNT(l_update_klev_rec.residual_value,
l_update_clev_rec.currency_code);
IF (x_res_value <> 0 AND l_update_klev_rec.residual_value = 0) THEN
OKL_API.set_message(p_app_name => G_APP_NAME,
p_msg_name => G_AMOUNT_ROUNDING,
p_token1 => 'AMT',
p_token1_value => to_char(x_res_value));
Update_fin_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
P_new_yn => P_new_yn,
p_asset_number => p_asset_number,
p_clev_rec => l_update_clev_rec,
p_klev_rec => l_update_klev_rec,
x_clev_rec => x_fin_clev_rec,
x_klev_rec => x_fin_klev_rec,
p_validate_fin_line => p_validate_fin_line); -- 4414408
l_update_clev_rec clev_rec_type;
l_update_klev_rec klev_rec_type;
l_update_clev_rec);
l_update_klev_rec);
IF l_update_klev_rec.id <> l_update_clev_rec.id THEN
OKL_API.set_message(p_app_name => G_APP_NAME,
p_msg_name => G_LINE_RECORD);
l_update_klev_rec.residual_percentage := ln_res_per;
Update_fin_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
P_new_yn => P_new_yn,
p_asset_number => p_asset_number,
p_clev_rec => l_update_clev_rec,
p_klev_rec => l_update_klev_rec,
x_clev_rec => x_fin_clev_rec,
x_klev_rec => x_fin_klev_rec,
p_validate_fin_line => p_validate_fin_line); -- 4414408
l_update_clev_rec clev_rec_type;
l_update_klev_rec klev_rec_type;
PROCEDURE Update_model_line(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
p_asset_number IN OKL_TXL_ASSETS_V.ASSET_NUMBER%TYPE,
p_clev_rec IN clev_rec_type,
p_klev_rec IN klev_rec_type,
p_cimv_rec IN cimv_rec_type,
x_clev_rec OUT NOCOPY clev_rec_type,
x_klev_rec OUT NOCOPY klev_rec_type,
x_cimv_rec OUT NOCOPY cimv_rec_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_MODEL_LINES';
SELECT cle.id
FROM okc_subclass_top_line stl,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_lines_v cle
WHERE cle.cle_id = p_top_line
AND cle.dnz_chr_id = p_dnz_chr_id
AND lse1.id = cle.lse_id
AND lse1.lty_code = G_FA_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE
AND lse2.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE);
validate_new_ast_num_update(x_return_status => x_return_status,
p_asset_number => p_asset_number,
p_kle_id => ln_fa_id,
p_dnz_chr_id => p_clev_rec.dnz_chr_id);
validate_new_ast_num_update(x_return_status => x_return_status,
p_asset_number => p_asset_number,
p_kle_id => ln_fa_id,
p_dnz_chr_id => p_clev_rec.dnz_chr_id);
update_model_line_item(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_lty_code => l_lty_code,
p_clev_rec => l_clev_rec,
p_klev_rec => p_klev_rec,
p_cimv_rec => p_cimv_rec,
x_clev_rec => x_clev_rec,
x_klev_rec => x_klev_rec,
x_cimv_rec => x_cimv_rec);
END Update_model_line;
PROCEDURE Update_fixed_asset_line(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
p_asset_number IN OKL_TXL_ASSETS_V.ASSET_NUMBER%TYPE,
p_clev_rec IN clev_rec_type,
p_klev_rec IN klev_rec_type,
p_cimv_rec IN cimv_rec_type,
p_talv_rec IN talv_rec_type,
x_clev_rec OUT NOCOPY clev_rec_type,
x_klev_rec OUT NOCOPY klev_rec_type,
x_cimv_rec OUT NOCOPY cimv_rec_type,
x_talv_rec OUT NOCOPY talv_rec_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_FXD_AST_LINES';
validate_new_ast_num_update(x_return_status => x_return_status,
p_asset_number => p_asset_number,
p_kle_id => p_talv_rec.kle_id,
p_dnz_chr_id => p_clev_rec.dnz_chr_id);
validate_new_ast_num_update(x_return_status => x_return_status,
p_asset_number => p_asset_number,
p_kle_id => p_talv_rec.kle_id,
p_dnz_chr_id => p_clev_rec.dnz_chr_id);
update_fa_line_item(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_lty_code => l_lty_code,
P_new_yn => p_new_yn,
p_clev_rec => l_clev_rec,
p_klev_rec => p_klev_rec,
p_cimv_rec => p_cimv_rec,
p_talv_rec => p_talv_rec,
x_clev_rec => x_clev_rec,
x_klev_rec => x_klev_rec,
x_cimv_rec => x_cimv_rec,
x_talv_rec => x_talv_rec);
END Update_fixed_asset_line;
SELECT cle.cle_id
FROM okc_k_lines_b cle
WHERE cle.id = p_model_line_id
AND cle.dnz_chr_id = p_dnz_chr_id
AND cle.lse_id = G_MODEL_LINE_LTY_ID;
update_asset_cost(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cleb_fin_id => ln_top_line_id,
p_chr_id => ln_add_dnz_chr_id,
p_oec => ln_klev_fin_oec);
PROCEDURE update_add_on_line(
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_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
p_asset_number IN OKL_TXL_ASSETS_V.ASSET_NUMBER%TYPE,
p_clev_tbl IN clev_tbl_type,
p_klev_tbl IN klev_tbl_type,
p_cimv_tbl IN cimv_tbl_type,
x_clev_tbl OUT NOCOPY clev_tbl_type,
x_klev_tbl OUT NOCOPY klev_tbl_type,
x_cimv_tbl OUT NOCOPY cimv_tbl_type,
x_fin_clev_rec OUT NOCOPY clev_rec_type,
x_fin_klev_rec OUT NOCOPY klev_rec_type) IS
i NUMBER := 0;
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_ADD_LINE';
SELECT cle.cle_id
FROM okc_k_lines_b cle
WHERE cle.id = p_model_line_id
AND cle.dnz_chr_id = p_dnz_chr_id
AND cle.lse_id = G_MODEL_LINE_LTY_ID;
update_addon_line_rec(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
P_new_yn => P_new_yn,
p_asset_number => p_asset_number,
p_clev_rec => l_clev_tbl(i),
p_klev_rec => p_klev_tbl(j),
p_cimv_rec => p_cimv_tbl(k),
x_clev_rec => x_clev_tbl(i),
x_klev_rec => x_klev_tbl(j),
x_cimv_rec => x_cimv_tbl(k));
update_asset_cost(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cleb_fin_id => ln_top_line_id,
p_chr_id => ln_add_dnz_chr_id,
p_oec => ln_klev_fin_oec);
END update_add_on_line;
PROCEDURE delete_add_on_line(
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_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
p_asset_number IN OKL_TXL_ASSETS_V.ASSET_NUMBER%TYPE,
p_clev_tbl IN clev_tbl_type,
p_klev_tbl IN klev_tbl_type,
x_fin_clev_rec OUT NOCOPY clev_rec_type,
x_fin_klev_rec OUT NOCOPY klev_rec_type) IS
i NUMBER := 0;
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_ADDON_LN';
SELECT cle.cle_id
FROM okc_k_lines_b cle
WHERE cle.id = p_model_line_id
AND cle.dnz_chr_id = p_dnz_chr_id
AND cle.lse_id = G_MODEL_LINE_LTY_ID;
delete_addon_line_rec(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_rec => p_clev_tbl(i),
p_klev_rec => p_klev_tbl(j),
x_clev_rec => l_clev_tbl(i));
update_asset_cost(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cleb_fin_id => ln_top_line_id,
p_chr_id => ln_add_dnz_chr_id,
p_oec => ln_klev_fin_oec);
END delete_add_on_line;
PROCEDURE Update_instance_line(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_clev_rec IN clev_rec_type,
p_klev_rec IN klev_rec_type,
p_itiv_rec IN itiv_rec_type,
x_clev_rec OUT NOCOPY clev_rec_type,
x_klev_rec OUT NOCOPY klev_rec_type,
x_itiv_rec OUT NOCOPY itiv_rec_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_INSTANCE_LINES';
update_inst_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_lty_code => l_lty_code,
p_clev_rec => p_clev_rec,
p_klev_rec => p_klev_rec,
x_clev_rec => x_clev_rec,
x_klev_rec => x_klev_rec);
END Update_instance_line;
PROCEDURE Update_instance_ib_line(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_clev_rec IN clev_rec_type,
p_klev_rec IN klev_rec_type,
p_cimv_rec IN cimv_rec_type,
p_itiv_rec IN itiv_rec_type,
x_clev_rec OUT NOCOPY clev_rec_type,
x_klev_rec OUT NOCOPY klev_rec_type,
x_cimv_rec OUT NOCOPY cimv_rec_type,
x_itiv_rec OUT NOCOPY itiv_rec_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_INSTANCE_IB_LINES';
update_installed_base_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_lty_code => l_lty_code,
p_clev_rec => p_clev_rec,
p_klev_rec => p_klev_rec,
p_cimv_rec => p_cimv_rec,
p_itiv_rec => p_itiv_rec,
x_clev_rec => x_clev_rec,
x_klev_rec => x_klev_rec,
x_cimv_rec => x_cimv_rec,
x_itiv_rec => x_itiv_rec);
END Update_instance_ib_line;
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_PTY_RLE_LINES';
PROCEDURE Update_party_roles_rec(
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_cplv_rec IN cplv_rec_type,
x_cplv_rec OUT NOCOPY cplv_rec_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_PTY_RLE_LINES';
OKL_OKC_MIGRATION_PVT.update_k_party_role(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cplv_rec => l_cplv_rec,
x_cplv_rec => x_cplv_rec);
OKL_K_PARTY_ROLES_PVT.update_k_party_role
(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cplv_rec => l_cplv_rec,
x_cplv_rec => x_cplv_rec,
p_kplv_rec => l_kplv_rec,
x_kplv_rec => x_kplv_rec);
END update_party_roles_rec;
select 'Y'
from fa_additions fa
where fa.asset_id = p_asset_id
and exists
(select '1'
from okl_trx_assets h,
okl_txl_assets_b l
where h.id = l.tas_id
and h.TAS_TYPE in ('AMT','AUD','AUS')
and l.asset_number = fa.asset_number
and h.tsu_code = 'ENTERED');
SELECT chrb.start_date,
khr.pdt_id
FROM OKC_K_HEADERS_B chrb,
OKL_K_HEADERS khr
WHERE khr.id = chrb.id
AND chrb.id = p_chr_id;
SELECT cle_orig.cle_id finasst_id,
asr.id asset_return_id,
cle_orig.dnz_chr_id dnz_chr_id,
--Bug# 4869443
--trunc(cle_orig.date_terminated) date_terminated
trunc(decode(sign(cle_orig.end_date - cle_orig.date_terminated),-1,cle_orig.end_date,cle_orig.date_terminated)) date_terminated,
--Bug# 6328924
asr.legal_entity_id
FROM OKL_ASSET_RETURNS_B asr,
OKC_K_LINES_B cle_orig,
OKC_LINE_STYLES_B lse_orig,
OKC_K_ITEMS cim_orig
WHERE asr.kle_id = cle_orig.cle_id
AND asr.ars_code = 'RE_LEASE'
AND cim_orig.object1_id1 = p_asset_id
AND cim_orig.object1_id2 = '#'
AND cim_orig.jtot_object1_code = 'OKX_ASSET'
AND cle_orig.id = cim_orig.cle_id
AND cle_orig.dnz_chr_id = cim_orig.dnz_chr_id
AND cle_orig.lse_id = lse_orig.id
AND lse_orig.lty_code = 'FIXED_ASSET';
SELECT level,
id,
chr_id,
cle_id,
dnz_chr_id,
orig_system_id1
FROM okc_k_lines_b
CONNECT BY PRIOR id = cle_id
START WITH id = p_from_cle_id;
SELECT rgpb.id
FROM OKC_RULE_GROUPS_B rgpb
WHERE rgpb.cle_id = p_cle_id
AND rgpb.dnz_chr_id = p_chr_id;
select txlb.depreciation_cost,
txlb.current_units,
txlb.salvage_value,
txlb.percent_salvage_value,
--Bug : 3569441
txlb.id,
txlb.corporate_book,
--Bug# 3631094
txlb.in_service_date,
txlb.deprn_method,
txlb.life_in_months,
txlb.deprn_rate,
txlb.depreciation_id,
txlb.asset_number
from okl_txl_assets_b txlb,
okc_k_lines_b fa_cleb,
okc_line_styles_b fa_lseb
where txlb.kle_id = fa_cleb.id
and txlb.tal_type = 'CRL'
and fa_cleb.cle_id = p_cle_id
and fa_cleb.dnz_chr_id = p_chr_id
and fa_cleb.lse_id = fa_lseb.id
and fa_lseb.lty_code = 'FIXED_ASSET';
select model_cleb.id model_cle_id,
model_cim.id model_cim_id
from okc_k_items model_cim,
okc_k_lines_b model_cleb,
okc_line_styles_b model_lseb
where model_cim.cle_id = model_cleb.id
and model_cim.dnz_chr_id = model_cleb.dnz_chr_id
and model_cleb.cle_id = p_cle_id
and model_cleb.dnz_chr_id = p_chr_id
and model_cleb.lse_id = model_lseb.id
and model_lseb.lty_code = 'ITEM';
select addon_cleb.id addon_cle_id
from okc_k_lines_b addon_cleb,
okc_line_styles_b addon_lseb,
okc_k_lines_b model_cleb,
okc_line_styles_b model_lseb
where addon_cleb.cle_id = model_cleb.id
and addon_cleb.dnz_chr_id = model_cleb.dnz_chr_id
and addon_cleb.lse_id = addon_lseb.id
and addon_lseb.lty_code = 'ADD_ITEM'
and model_cleb.cle_id = p_cle_id
and model_cleb.dnz_chr_id = p_chr_id
and model_cleb.lse_id = model_lseb.id
and model_lseb.lty_code = 'ITEM';
select subsidy_cleb.id subsidy_cle_id
from okc_k_lines_b subsidy_cleb,
okc_line_styles_b subsidy_lseb
where subsidy_cleb.cle_id = p_cle_id
and subsidy_cleb.dnz_chr_id = p_chr_id
and subsidy_cleb.lse_id = subsidy_lseb.id
and subsidy_lseb.lty_code = 'SUBSIDY';
select cplb.id
from okc_k_party_roles_b cplb
where cle_id = p_cle_id
and dnz_chr_id = p_chr_id;
select sid.id
from okl_supp_invoice_dtls sid
where cle_id = p_cle_id;
SELECT object1_id1,
object1_id2
from okc_k_items
WHERE cle_id = p_orig_cle_id;
SELECT id
from okc_k_items
WHERE cle_id = p_cle_id
And dnz_chr_id = p_chr_id;
SELECT chrb.start_date,
chrb.end_date,
chrb.sts_code,
--Bug# 4869443
chrb.orig_system_source_code,
--Bug# 6328924
khr.legal_entity_id
FROM okc_k_headers_b chrb,
okl_k_headers khr
WHERE chrb.id = p_chr_id
AND khr.id = chrb.id;
select txdb.tax_book,
txdb.id
from okl_txd_assets_b txdb
where txdb.tal_id = p_tal_id;
Select (fb.cost - fds.deprn_reserve) nbv
from fa_books fb,
fa_deprn_periods fdp,
fa_deprn_summary fds
where fb.book_type_code = p_book_type_code
and fb.asset_id = p_asset_id
and fb.transaction_header_id_out is null
and fdp.book_type_code = fb.book_type_code
and fdp.period_close_date is null
and fds.book_type_code = fb.book_type_code
and fds.asset_id = fb.asset_id
and fds.period_counter = (fdp.period_counter - 1);
select fcb.LIFE_IN_MONTHS,
fcb.DEPRN_METHOD,
fcb.ADJUSTED_RATE,
fcb.BASIC_RATE
from FA_CATEGORY_BOOK_DEFAULTS fcb
where fcb.book_type_code = p_book
and fcb.category_id = p_cat
and p_date between fcb.start_dpis and nvl(fcb.end_dpis,p_date);
Select rule_information1 tax_owner,
id
From okc_rules_b rul
where rul.dnz_chr_id = pchrid
and rul.rule_information_category = 'LATOWN'
and nvl(rul.STD_TEMPLATE_YN,'N') = 'N';
select asset_number
from fa_additions
where asset_id = p_asset_id;
select 'Y'
from okc_k_headers_b chrb
where nvl(chrb.orig_system_source_code,'XXXX') = 'OKL_REBOOK'
and chrb.id = p_chr_id;
OKL_CONTRACT_PUB.delete_contract_line
(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_line_id => l_addonline_id);
OKL_CONTRACT_PUB.delete_contract_line
(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_line_id => l_subsidyline_id);
okl_contract_pub.update_contract_line
(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_rec => l_dt_clev_rec,
p_klev_rec => l_dt_klev_rec,
x_clev_rec => lx_dt_clev_rec,
x_klev_rec => lx_dt_klev_rec);
OKL_OKC_MIGRATION_PVT.update_contract_item
(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cimv_rec => l_upd_cimv_rec,
x_cimv_rec => lx_upd_cimv_rec);
OKL_RULE_PUB.delete_rule_group
(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rgpv_rec => l_rgpv_rec );
OKL_SUPP_INVOICE_DTLS_PUB.delete_sup_inv_dtls
(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_sidv_rec => l_sidv_rec );
OKL_OKC_MIGRATION_PVT.delete_k_party_role
( p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cplv_rec => l_cplv_rec );
OKL_K_PARTY_ROLES_PVT.delete_k_party_role
( p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cplv_rec => l_cplv_rec,
p_kplv_rec => l_kplv_rec);
Update_asset_lines(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_talv_rec => l_talv_rec,
x_talv_rec => lx_talv_rec);
okl_contract_pub.update_contract_line
(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_rec => l_clev_rec,
p_klev_rec => l_klev_rec,
x_clev_rec => lx_clev_rec,
x_klev_rec => lx_klev_rec);
okl_okc_migration_pvt.update_contract_item
(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cimv_rec => l_cimv_rec,
x_cimv_rec => lx_cimv_rec);
okl_contract_pub.update_contract_line
(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_rec => l_clev_rec,
p_klev_rec => l_klev_rec,
x_clev_rec => lx_clev_rec,
x_klev_rec => lx_klev_rec);
OKL_TXD_ASSETS_PUB.UPDATE_TXD_ASSET_DEF
(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_adpv_rec => l_txdv_rec,
x_adpv_rec => lx_txdv_rec);
PROCEDURE copy_updated_asset_components
(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_cle_id IN NUMBER,
p_orig_cle_id IN NUMBER,
p_chr_id IN NUMBER) IS
l_return_status VARCHAR2(1) DEFAULT Okl_Api.G_RET_STS_SUCCESS;
l_api_name CONSTANT VARCHAR2(30) := 'COPY_UPDATED_ASSET';
SELECT rgpb.id
FROM okc_rule_groups_b rgpb
WHERE rgpb.cle_id = p_cle_id
AND rgpb.dnz_chr_id = p_chr_id;
SELECT cplb.id,
cplb.rle_code
FROM okc_k_party_roles_b cplb
WHERE cplb.cle_id = p_orig_cle_id
AND cplb.dnz_chr_id = p_chr_id;
SELECT cim.id
FROM okc_k_items cim,
okc_k_lines_b cleb,
okc_line_styles_b lseb
WHERE cim.object1_id1 = to_char(p_orig_cle_id)
AND cim.object1_id2 = '#'
AND cim.jtot_object1_code = 'OKX_COVASST'
AND cim.cle_id = cleb.id
AND cim.dnz_chr_id = cleb.dnz_chr_id
AND cleb.dnz_chr_id = p_chr_id
AND cleb.chr_id is NULL
AND cleb.lse_id = lseb.id
AND lseb.lty_code in ('LINK_SERV_ASSET','LINK_FEE_ASSET','LINK_USAGE_ASSET');
SELECT
RULSLH.ID,
RULSLL.ID
FROM OKC_RULES_B RULSLL_OLD,
OKC_RULES_B RULSLH_OLD,
OKC_RULE_GROUPS_B RGPB_OLD,
OKC_RULES_B RULSLL,
OKC_RULES_B RULSLH,
OKC_RULE_GROUPS_B RGPB
WHERE TO_CHAR(RULSLH_OLD.ID) = NVL(RULSLL.OBJECT2_ID1,-99) --the new sll has old slh's id
AND RULSLH_OLD.OBJECT1_ID1 = RULSLH.OBJECT1_ID1 --stream type ids are same for old and new slh
AND RULSLL_OLD.RULE_INFORMATION_CATEGORY = 'LASLL'
AND RULSLL_OLD.DNZ_CHR_ID = RGPB_OLD.DNZ_CHR_ID
AND RULSLL_OLD.RGP_ID = RGPB_OLD.ID
AND RULSLH_OLD.RULE_INFORMATION_CATEGORY = 'LASLH'
AND RULSLH_OLD.DNZ_CHR_ID = RGPB_OLD.DNZ_CHR_ID
AND RULSLH_OLD.RGP_ID = RGPB_OLD.ID
AND TO_CHAR(RULSLH_OLD.ID) = RULSLL_OLD.OBJECT2_ID1
AND RGPB_OLD.RGD_CODE = 'LALEVL'
AND RGPB_OLD.CHR_ID IS NULL
AND RGPB_OLD.DNZ_CHR_ID = p_chr_id
AND RGPB_OLD.CLE_ID = p_orig_cle_id
--
AND RULSLL.RULE_INFORMATION_CATEGORY = 'LASLL'
AND RULSLL.DNZ_CHR_ID = RGPB.DNZ_CHR_ID
AND RULSLL.RGP_ID = RGPB.ID
AND RULSLH.RULE_INFORMATION_CATEGORY = 'LASLH'
AND RULSLH.DNZ_CHR_ID = RGPB.DNZ_CHR_ID
AND RULSLH.RGP_ID = RGPB.ID
AND TO_CHAR(RULSLH.ID) <> NVL(RULSLL.OBJECT2_ID1,-99)
AND RGPB.RGD_CODE = 'LALEVL'
AND RGPB.CHR_ID IS NULL
AND RGPB.DNZ_CHR_ID = p_chr_id
AND RGPB.CLE_ID = p_cle_id;
Select sub_kle.subsidy_id subsidy_id,
sub_cleb.id subsidy_cle_id,
subb.name name,
subt.description description,
sub_kle.amount amount,
sub_kle.subsidy_override_amount subsidy_override_amount,
sub_cleb.dnz_chr_id dnz_chr_id,
sub_cleb.cle_id asset_cle_id,
sub_cplb.id cpl_id,
pov.vendor_id vendor_id,
pov.vendor_name vendor_name
from
okl_subsidies_b subb,
okl_subsidies_tl subt,
po_vendors pov,
okc_k_party_roles_b sub_cplb,
okl_k_lines sub_kle,
okc_k_lines_b sub_cleb,
okc_line_styles_b sub_lseb
where subt.id = subb.id
and subt.language = userenv('LANG')
and subb.id = sub_kle.subsidy_id
and pov.vendor_id = to_number(sub_cplb.object1_id1)
and sub_cplb.object1_id2 = '#'
and sub_cplb.jtot_object1_code = 'OKX_VENDOR'
and sub_cplb.rle_code = 'OKL_VENDOR'
and sub_cplb.cle_id = sub_cleb.id
and sub_cplb.dnz_chr_id = sub_cleb.dnz_chr_id
and sub_kle.id = sub_cleb.id
and sub_cleb.cle_id = p_orig_cle_id
and sub_cleb.dnz_chr_id = p_chr_id
and sub_cleb.sts_code <> 'ABANDONED'
and sub_cleb.lse_id = sub_lseb.id
and sub_lseb.lty_code = 'SUBSIDY';
Select ppyd.id
from okl_party_payment_dtls ppyd
where ppyd.cpl_id = p_cpl_id;
OKL_OKC_MIGRATION_PVT.update_contract_item
(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cimv_rec => l_cimv_rec,
x_cimv_rec => lx_cimv_rec);
OKL_RULE_PUB.update_rule
(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rulv_rec => l_rulv_rec,
x_rulv_rec => lx_rulv_rec);
OKL_SUBSIDY_RFND_DTLS_PVT.update_refund_dtls
(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_srfvv_rec => l_srfvv_rec,
x_srfvv_rec => lx_srfvv_rec);
END copy_updated_asset_components;
PROCEDURE update_release_asset_line
(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_asset_id IN VARCHAR2,
p_chr_id IN NUMBER,
p_clev_fin_id IN NUMBER,
x_cle_id OUT NOCOPY NUMBER) IS
l_return_status VARCHAR2(1) DEFAULT Okl_Api.G_RET_STS_SUCCESS;
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_RELEASE_ASSET';
select
fa_cim.object1_id1 asset_id,
fa_cim.dnz_chr_id chr_id
from okc_k_items fa_cim,
okc_k_lines_b fa_cleb,
okc_line_styles_b fa_lseb
where fa_cim.cle_id = fa_cleb.id
and fa_cim.dnz_chr_id = fa_cleb.dnz_chr_id
and fa_cleb.cle_id = p_fin_asst_id
and fa_cleb.lse_id = fa_lseb.id
and fa_lseb.lty_code = 'FIXED_ASSET';
SELECT level,
id,
chr_id,
cle_id,
dnz_chr_id,
orig_system_id1
FROM okc_k_lines_b
CONNECT BY PRIOR id = cle_id
START WITH id = p_from_cle_id;
select 'N' change_flag,
chrb.orig_system_source_code
from fa_additions_b fab,
okl_txl_assets_b txlb,
okc_k_lines_b fa_cleb,
okc_line_styles_b fa_lseb,
okc_k_headers_b chrb
where fab.asset_number = txlb.asset_number
and fab.asset_id = p_asset_id
and txlb.kle_id = fa_cleb.id
and fa_cleb.dnz_chr_id = chrb.id
and fa_cleb.cle_id = p_cle_id
and fa_cleb.lse_id = fa_lseb.id
and fa_lseb.lty_code = 'FIXED_ASSET'
and chrb.id = p_chr_id
and chrb.orig_system_source_code = 'OKL_REBOOK';
copy_updated_asset_components
(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cle_id => l_lines_rec.id,
p_orig_cle_id => l_lines_rec.orig_system_id1,
p_chr_id => l_chr_id);
OKL_CONTRACT_PUB.delete_contract_line(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_line_id => p_clev_fin_id
);
END update_Release_asset_Line;
SELECT model_cleb.id
FROM OKC_K_LINES_B model_cleb,
OKC_LINE_STYLES_B model_lseb
WHERE model_cleb.cle_id = p_cle_id
AND model_cleb.dnz_chr_id = p_chr_id
AND model_cleb.lse_id = model_lseb.id
AND model_lseb.lty_code = 'ITEM';
select kle.expected_asset_cost
from okl_k_lines kle
where kle.id = p_kle_id;
select txlb.id,
txlb.depreciation_cost,
txlb.current_units,
txlb.percent_salvage_value,
txlb.salvage_value,
txlb.asset_number
from okl_trx_assets trx,
okl_txl_assets_b txlb,
okc_k_lines_b cleb_fa,
okc_line_styles_b lseb_fa
where trx.id = txlb.tas_id
and trx.tsu_code = 'ENTERED'
--Bug# 3783518
--and trx.tas_type = 'CRL'
and txlb.kle_id = cleb_fa.id
--Bug# 3783518
--and txlb.tal_type = 'CRL'
and cleb_fa.cle_id = p_fin_cle_id
and cleb_fa.dnz_chr_id = p_chr_id
and cleb_fa.lse_id = lseb_fa.id
and lseb_fa.lty_code = 'FIXED_ASSET';
select iti.id,
iti.serial_number,
iti.instance_number_ib,
iti.object_id1_new,
iti.object_id2_new
from okl_trx_assets trx,
okl_txl_itm_insts iti,
okc_k_lines_b cleb_ib,
okc_line_styles_b lseb_ib,
okc_k_lines_b cleb_inst,
okc_line_styles_b lseb_inst
where trx.id = iti.tas_id
and trx.tsu_code = 'ENTERED'
--akrangan bug 5362977 start
AND trx.tas_type IN ('CRL','CFA','CRB')
--akrangan bug 5362977 end
and iti.kle_id = cleb_ib.id
--akrangan bug 5362977 start
AND iti.tal_type IN ('CRL','CFA','CRB')
--akrangan bug 5362977 end
and cleb_ib.cle_id = cleb_inst.id
and cleb_ib.dnz_chr_id = cleb_inst.dnz_chr_id
and cleb_ib.lse_id = lseb_ib.id
and lseb_ib.lty_code = 'INST_ITEM'
and cleb_inst.cle_id = p_fin_cle_id
and cleb_inst.dnz_chr_id = p_chr_id
and cleb_inst.lse_id = lseb_inst.id
and lseb_inst.lty_code = 'FREE_FORM2';
SELECT level,
cleb.id,
cleb.chr_id,
cleb.cle_id,
cleb.dnz_chr_id,
cleb.lse_id
FROM okc_k_lines_b cleb
CONNECT BY PRIOR cleb.id = cle_id
START WITH cleb.id = p_from_cle_id;
SELECT lty_code
from okc_line_styles_b
where id = p_lse_id;
select cleb.id,
cleb.price_unit
from okc_k_lines_b cleb,
okc_line_styles_b lseb
where cleb.cle_id = p_cle_id
and cleb.dnz_chr_id = p_chr_id
and cleb.lse_id = lseb.id
and lseb.lty_code = p_lty_code;
SELECT '!'
FROM okc_k_headers_b chr,
okl_trx_contracts ktrx
WHERE ktrx.khr_id_new = chr.id
AND ktrx.tsu_code = 'ENTERED'
AND ktrx.rbr_code is NOT NULL
AND ktrx.tcn_type = 'TRBK'
--rkuttiya added for 12.1.1 Multi GAAP
AND representation_type = 'PRIMARY'
--
AND chr.id = p_chr_id
AND chr.orig_system_source_code = 'OKL_REBOOK';
OKL_CONTRACT_PUB.update_contract_line(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_tbl => l_clev_price_tbl,
p_klev_tbl => l_klev_price_tbl,
x_clev_tbl => lx_clev_price_tbl,
x_klev_tbl => lx_klev_price_tbl);
update_financial_asset_line(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_rec => l_clev_fin_rec,
p_klev_rec => l_klev_fin_rec,
x_clev_rec => l_rel_ast_clev_fin_rec,
x_klev_rec => l_rel_ast_klev_fin_rec);
update_financial_asset_line(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_rec => l_clev_fin_rec,
p_klev_rec => l_klev_fin_rec,
x_clev_rec => l_rel_ast_clev_fin_rec,
x_klev_rec => l_rel_ast_klev_fin_rec);
OKL_CONTRACT_PUB.update_contract_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_rec => l_clev_fa_rec,
p_klev_rec => l_klev_fa_rec,
x_clev_rec => lx_clev_fa_rec,
x_klev_rec => lx_klev_fa_rec);
OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cimv_rec => l_cimv_model_rec,
x_cimv_rec => x_cimv_model_rec);
Update_asset_lines(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_talv_rec => l_talv_fa_rec,
x_talv_rec => l_rel_ast_talv_rec);
OKL_TXL_ITM_INSTS_PUB.update_txl_itm_insts(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_iipv_tbl => l_itiv_ib_tbl,
x_iipv_tbl => l_rel_ast_itiv_ib_tbl);
SELECT scs_code,
--Bug# 4419339
orig_system_source_code
FROM OKC_K_HEADERS_B
WHERE id = p_dnz_chr_id;
SELECT CII.SERIAL_NUMBER IB_SERIAL_NUMBER,
CII.INSTANCE_ID
FROM
OKC_K_HEADERS_V OKHV, OKC_K_LINES_V KLE_FA, OKC_LINE_STYLES_B LSE_FA, OKC_K_LINES_B KLE_IL,
OKC_LINE_STYLES_B LSE_IL, OKC_K_LINES_B KLE_IB, OKC_LINE_STYLES_B LSE_IB, OKC_K_ITEMS ITE,
CSI_ITEM_INSTANCES CII
WHERE
kle_fa.chr_id = okhv.id AND lse_fa.id = kle_fa.lse_id AND lse_fa.lty_code = 'FREE_FORM1'
AND kle_il.cle_id = kle_fa.id AND lse_il.id = kle_il.lse_id AND lse_il.lty_code = 'FREE_FORM2'
AND kle_ib.cle_id = kle_il.id AND lse_ib.id = kle_ib.lse_id AND lse_ib.lty_code = 'INST_ITEM'
AND ite.cle_id = kle_ib.id AND ite.jtot_object1_code = 'OKX_IB_ITEM'
AND cii.instance_id = ite.object1_id1 AND kle_fa.name = p_asset_number;
SELECT 'Y'
FROM okc_k_headers_b CHR
WHERE nvl(chr.orig_system_source_code,'XXXX') <> 'OKL_RELEASE'
and chr.ID = p_chr_id
AND exists (SELECT '1'
FROM OKC_RULES_B rul
WHERE rul.dnz_chr_id = chr.id
AND rul.rule_information_category = 'LARLES'
AND nvl(rule_information1,'N') = 'Y');
select khr.deal_type,
khr.pdt_id,
pdt.reporting_pdt_id
from okl_products pdt,
okl_k_headers khr
where pdt.id = khr.pdt_id
and khr.id = p_chr_id;
SELECT ppv.quality_val deal_type
FROM okl_prod_qlty_val_uv ppv
WHERE ppv.quality_name IN ('LEASE','INVESTOR')
AND ppv.pdt_id = p_pdt_id;
PROCEDURE Update_all_line(
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_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
p_asset_number IN OKL_TXL_ASSETS_V.ASSET_NUMBER%TYPE,
p_clev_fin_rec IN clev_rec_type,
p_klev_fin_rec IN klev_rec_type,
p_clev_model_rec IN clev_rec_type,
p_cimv_model_rec IN cimv_rec_type,
p_clev_fa_rec IN clev_rec_type,
p_cimv_fa_rec IN cimv_rec_type,
p_talv_fa_rec IN talv_rec_type,
p_clev_ib_rec IN clev_rec_type,
p_itiv_ib_rec IN itiv_rec_type,
x_clev_fin_rec OUT NOCOPY clev_rec_type,
x_clev_model_rec OUT NOCOPY clev_rec_type,
x_clev_fa_rec OUT NOCOPY clev_rec_type,
x_clev_ib_rec OUT NOCOPY clev_rec_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_ALL_LINES';
select cle_ib.id id
from okc_line_styles_b lse_ib,
okc_k_lines_b cle_ib,
okc_line_styles_b lse_inst,
okc_k_lines_b cle_inst,
okc_line_styles_b lse_tl,
okc_k_lines_v cleb_tl
where cleb_tl.name = P_asset_number
and cleb_tl.dnz_chr_id = p_dnz_chr_id
and cleb_tl.lse_id = lse_tl.id
and lse_tl.lty_code = G_FIN_LINE_LTY_CODE
and lse_tl.lse_type = G_TLS_TYPE
and cle_inst.cle_id = cleb_tl.id
and cle_inst.lse_id = lse_inst.id
and lse_inst.lty_code = G_INST_LINE_LTY_CODE
and cle_ib.cle_id = cle_inst.id
and cle_ib.lse_id = lse_ib.id
and lse_ib.lty_code = G_IB_LINE_LTY_CODE;
select iti.id, iti.inventory_item_id, iti.inventory_org_id,
iti.object_id1_new, iti.object_id2_new, iti.jtot_object_code_new
from okl_txl_itm_insts iti,
okc_line_styles_b lse_ib,
okc_k_lines_b cle_ib,
okc_line_styles_b lse_inst,
okc_k_lines_b cle_inst
where cle_inst.cle_id = p_top_line_id
and cle_inst.lse_id = lse_inst.id
and lse_inst.lty_code = G_INST_LINE_LTY_CODE
and cle_ib.cle_id = cle_inst.id
and cle_ib.lse_id = lse_ib.id
and lse_ib.lty_code = G_IB_LINE_LTY_CODE
and cle_ib.id = iti.kle_id
and cle_ib.id <> p_txl_inst_id;
select fin_kle.DOWN_PAYMENT_RECEIVER_CODE,
fin_kle.CAPITALIZE_DOWN_PAYMENT_YN,
fin_kle.residual_value,
fin_kle.residual_percentage
from
okl_k_lines fin_kle,
okc_k_lines_b fin_cleb
where fin_kle.id = fin_cleb.id
and fin_cleb.id = p_cle_id
and fin_cleb.chr_id = p_chr_id
and fin_cleb.dnz_chr_id = p_chr_id;
select asset_id
from fa_additions_b
where asset_number = p_Asset_number;
SELECT 'Y',
--Bug# 4631549
chr.orig_system_source_code,
chr.orig_system_id1 orig_chr_id,
chr.start_date
FROM okc_k_headers_b CHR,
okc_rules_b rul
WHERE CHR.ID = p_chr_id
AND rul.dnz_chr_id = CHR.id
AND rul.rule_information_category = 'LARLES'
AND NVL(rule_information1,'N') = 'Y';
SELECT cle.id
FROM okc_k_lines_b cle,
okc_line_styles_b lse
WHERE cle.dnz_chr_id = p_chr_id
AND cle.lse_id = lse.id
AND lse.lty_code = G_ADDON_LINE_LTY_CODE
AND cle.cle_id = p_model_cle_id;
SELECT '!'
FROM okc_k_headers_b CHR,
okl_trx_contracts ktrx
WHERE ktrx.khr_id_new = chr.id
AND ktrx.tsu_code = 'ENTERED'
AND ktrx.rbr_code is NOT NULL
AND ktrx.tcn_type = 'TRBK'
--rkuttiya added for 12.1.1 Multi GAAP
AND ktrx.representation_type = 'PRIMARY'
--
AND chr.id = p_chr_id
AND chr.orig_system_source_code = 'OKL_REBOOK';
select cleb.orig_system_id1 orig_cle_id
from okc_k_lines_b cleb
where cleb.id = p_cle_id;
select fab.book_type_code
from fa_books fab,
fa_book_controls fbc
where fab.asset_id = p_asset_id
and fab.transaction_header_id_out is null
and fab.book_type_code = fbc.book_type_code
and fbc.book_class = 'CORPORATE';
OKL_LLA_UTIL_PVT.check_line_update_allowed
(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cle_id => p_clev_fin_rec.id);
update_release_asset_line
(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_asset_id => to_char(l_asset_id),
p_chr_id => l_clev_fin_rec.dnz_chr_id,
p_clev_fin_id => l_clev_fin_rec.id,
x_cle_id => l_rel_ast_fin_cle_id);
OKL_CONTRACT_PUB.update_contract_line
(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_rec => l_clev_fin_rec2,
p_klev_rec => l_klev_fin_rec2,
x_clev_rec => lx_clev_fin_rec2,
x_klev_rec => lx_klev_fin_rec2);
update_fin_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
P_new_yn => l_new_yn,
p_asset_number => p_asset_number,
p_clev_rec => l_clev_fin_rec,
p_klev_rec => l_klev_fin_rec,
x_clev_rec => x_clev_fin_rec,
x_klev_rec => l_klev_fin_rec_out);
update_model_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
P_new_yn => l_new_yn,
p_asset_number => p_asset_number,
p_clev_rec => l_clev_model_rec,
p_klev_rec => l_klev_model_rec,
p_cimv_rec => l_cimv_model_rec,
x_clev_rec => x_clev_model_rec,
x_klev_rec => l_klev_model_rec_out,
x_cimv_rec => l_cimv_model_rec_out);
OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cimv_rec => r_cimv_addon_rec,
x_cimv_rec => rx_cimv_addon_rec);
update_fixed_asset_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
P_new_yn => l_new_yn,
p_asset_number => p_asset_number,
p_clev_rec => l_clev_fa_rec,
p_klev_rec => l_klev_fa_rec,
p_cimv_rec => l_cimv_fa_rec,
p_talv_rec => l_talv_fa_rec,
x_clev_rec => x_clev_fa_rec,
x_klev_rec => l_klev_fa_rec_out,
x_cimv_rec => l_cimv_fa_rec_out,
x_talv_rec => l_talv_fa_rec_out);
update_asset_line_details(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_asset_number => p_asset_number,
p_original_cost => l_talv_fa_rec_out.original_cost,
p_tal_id => l_talv_fa_rec_out.ID);
update_instance_ib_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_rec => l_clev_ib_rec,
p_klev_rec => l_klev_ib_rec,
p_cimv_rec => l_cimv_ib_rec,
p_itiv_rec => l_itiv_ib_rec,
x_clev_rec => x_clev_ib_rec,
x_klev_rec => l_klev_ib_rec_out,
x_cimv_rec => l_cimv_ib_rec_out,
x_itiv_rec => l_itiv_ib_rec_out);
update_instance_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_rec => l_clev_inst_rec,
p_klev_rec => l_klev_inst_rec,
p_itiv_rec => l_itiv_inst_rec,
x_clev_rec => l_clev_inst_rec_out,
x_klev_rec => l_klev_inst_rec_out,
x_itiv_rec => l_itiv_inst_rec_out);
OKL_TXL_ITM_INSTS_PUB.update_txl_itm_insts(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_iipv_rec => n_itiv_ib_rec,
x_iipv_rec => nx_itiv_ib_rec);
OKL_TXL_ITM_INSTS_PUB.update_txl_itm_insts(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_iipv_rec => k_itiv_ib_rec,
x_iipv_rec => kx_itiv_ib_rec);
END update_all_line;
lb_update_oec_required BOOLEAN := FALSE;
SELECT count(cle.id)
FROM okc_subclass_top_line stl,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_lines_v cle
WHERE cle.cle_id = p_cle_id
AND cle.dnz_chr_id = p_chr_id
AND cle.lse_id = lse1.id
AND lse1.lty_code = G_INST_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE
AND lse2.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE);
SELECT cle.id
FROM okc_subclass_top_line stl,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_lines_v cle
WHERE cle.cle_id = p_cle_id
AND cle.dnz_chr_id = p_chr_id
AND cle.lse_id = lse1.id
AND lse1.lty_code = G_MODEL_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE
AND lse2.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE);
SELECT cle.id
FROM okc_subclass_top_line stl,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_lines_v cle
WHERE cle.cle_id = p_cle_id
AND cle.dnz_chr_id = p_chr_id
AND cle.lse_id = lse1.id
AND lse1.lty_code = G_FA_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE
AND lse2.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE);
SELECT cle.id
FROM okc_subclass_top_line stl,
okc_line_styles_b lse3,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_lines_b cle
WHERE cle.dnz_chr_id = p_chr_id
AND cle.lse_id = lse1.id
AND lse1.lty_code = G_ADDON_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_MODEL_LINE_LTY_CODE
AND lse2.lse_parent_id = lse3.id
AND lse3.lty_code = G_FIN_LINE_LTY_CODE
AND lse3.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE)
AND cle.cle_id in (SELECT cle.id
FROM okc_subclass_top_line stl,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_lines_b cle
WHERE cle.cle_id = p_cle_id
AND cle.dnz_chr_id = p_chr_id
AND cle.lse_id = lse1.id
AND lse1.lty_code = G_MODEL_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE
AND lse2.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE));
SELECT cim.number_of_items
FROM okc_subclass_top_line stl,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_items_v cim,
okc_k_lines_v cle
WHERE cle.cle_id = p_cle_id
AND cle.dnz_chr_id = p_chr_id
AND cle.id = cim.cle_id
AND cim.dnz_chr_id = cle.dnz_chr_id
AND cle.lse_id = lse1.id
AND lse1.lty_code = G_MODEL_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE
AND lse2.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE);
SELECT 'Y'
FROM OKC_RULES_B rul
WHERE rul.dnz_chr_id = p_chr_id
AND rul.rule_information_category = 'LARLES'
AND NVL(rule_information1,'N') = 'Y';
SELECT '!'
FROM okc_k_headers_b chr,
okl_trx_contracts ktrx
WHERE ktrx.khr_id_new = chr.id
AND ktrx.tsu_code = 'ENTERED'
AND ktrx.rbr_code is NOT NULL
AND ktrx.tcn_type = 'TRBK'
--rkuttiya added for 12.1.1 multi GAAP
AND ktrx.representation_type = 'PRIMARY'
--
AND chr.id = p_chr_id
AND chr.orig_system_source_code = 'OKL_REBOOK';
update_txl_itm_insts(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_itiv_rec => l_itiv_rec,
x_itiv_rec => lx_itiv_rec);
p_msg_name => 'OKL_LA_REL_UNITS_NO_UPDATE');
lb_update_oec_required := TRUE;
IF (lb_update_oec_required) THEN
-- we should get the remaining inst line , so that we can update
-- the fixed line , model line and also update the top line with latest OEC
OPEN c_remain_inst_line(l_clev_inst_rec.cle_id,
l_clev_inst_rec.dnz_chr_id);
update_model_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
P_new_yn => P_new_yn,
p_asset_number => p_asset_number,
p_clev_rec => r_clev_model_rec,
p_klev_rec => r_klev_model_rec,
p_cimv_rec => r_cimv_model_rec,
x_clev_rec => l_clev_model_rec_out,
x_klev_rec => l_klev_model_rec_out,
x_cimv_rec => x_cimv_model_rec);
update_addon_line_rec(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
P_new_yn => P_new_yn,
p_asset_number => p_asset_number,
p_clev_rec => r_clev_addon_rec,
p_klev_rec => r_klev_addon_rec,
p_cimv_rec => r_cimv_addon_rec,
x_clev_rec => rx_clev_addon_rec,
x_klev_rec => rx_klev_addon_rec,
x_cimv_rec => rx_cimv_addon_rec);
update_fixed_asset_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
P_new_yn => P_new_yn,
p_asset_number => p_asset_number,
p_clev_rec => r_clev_fa_rec,
p_klev_rec => r_klev_fa_rec,
p_cimv_rec => r_cimv_fa_rec,
p_talv_rec => r_talv_fa_rec,
x_clev_rec => l_clev_fa_rec_out,
x_klev_rec => l_klev_fa_rec_out,
x_cimv_rec => x_cimv_fa_rec,
x_talv_rec => x_talv_fa_rec);
update_asset_line_details(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_asset_number => p_asset_number,
p_original_cost => x_talv_fa_rec.original_cost,
p_tal_id => x_talv_fa_rec.ID);
PROCEDURE update_ints_ib_line(
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_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
p_asset_number IN OKL_TXL_ASSETS_V.ASSET_NUMBER%TYPE,
p_top_line_id IN OKC_K_LINES_V.ID%TYPE,
p_dnz_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
p_itiv_ib_tbl IN itiv_tbl_type,
x_clev_ib_tbl OUT NOCOPY clev_tbl_type,
x_itiv_ib_tbl OUT NOCOPY itiv_tbl_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_INTS_IB_LINE';
SELECT count(cle.id)
FROM okc_subclass_top_line stl,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_lines_v cle
WHERE cle.cle_id = p_cle_id
AND cle.dnz_chr_id = p_chr_id
AND cle.lse_id = lse1.id
AND lse1.lty_code = G_INST_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE
AND lse2.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE);
SELECT cle.id
FROM okc_subclass_top_line stl,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_lines_v cle
WHERE cle.cle_id = p_cle_id
AND cle.dnz_chr_id = p_chr_id
AND cle.lse_id = lse1.id
AND lse1.lty_code = G_MODEL_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE
AND lse2.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE);
SELECT cim.object1_id1
FROM okc_subclass_top_line stl,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_items cim,
okc_k_lines_v cle
WHERE cle.cle_id = p_cle_id
AND cle.dnz_chr_id = p_chr_id
AND cle.lse_id = lse1.id
AND lse1.lty_code = G_MODEL_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE
AND lse2.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE)
AND cle.id = cim.cle_id
AND cim.dnz_chr_id = cle.dnz_chr_id
AND cim.jtot_object1_code = 'OKX_SYSITEM';
SELECT cle.id
FROM okc_subclass_top_line stl,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_lines_v cle
WHERE cle.cle_id = p_cle_id
AND cle.dnz_chr_id = p_chr_id
AND cle.lse_id = lse1.id
AND lse1.lty_code = G_FA_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE
AND lse2.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE);
SELECT cle.id
FROM okc_subclass_top_line stl,
okc_line_styles_b lse3,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_lines_b cle
WHERE cle.dnz_chr_id = p_chr_id
AND cle.lse_id = lse1.id
AND lse1.lty_code = G_ADDON_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_MODEL_LINE_LTY_CODE
AND lse2.lse_parent_id = lse3.id
AND lse3.lty_code = G_FIN_LINE_LTY_CODE
AND lse3.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE)
AND cle.cle_id in (SELECT cle.id
FROM okc_subclass_top_line stl,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_lines_b cle
WHERE cle.cle_id = p_cle_id
AND cle.dnz_chr_id = p_chr_id
AND cle.lse_id = lse1.id
AND lse1.lty_code = G_MODEL_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE
AND lse2.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE));
SELECT 'Y'
FROM OKC_RULES_B rul
WHERE rul.dnz_chr_id = p_chr_id
AND rul.rule_information_category = 'LARLES'
AND NVL(rule_information1,'N') = 'Y';
SELECT '!'
FROM okc_k_headers_b chr,
okl_trx_contracts ktrx
WHERE ktrx.khr_id_new = chr.id
AND ktrx.tsu_code = 'ENTERED'
AND ktrx.rbr_code is NOT NULL
AND ktrx.tcn_type = 'TRBK'
--rkuttiya added for 12.1.1 Multi GAAP
AND ktrx.representation_type = 'PRIMARY'
--
AND chr.id = p_chr_id
AND chr.orig_system_source_code = 'OKL_REBOOK';
p_msg_name => 'OKL_LA_REL_UNITS_NO_UPDATE');
update_txl_itm_insts(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_itiv_rec => l_itiv_ib_tbl(i),
x_itiv_rec => x_itiv_ib_tbl(i));
update_model_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
P_new_yn => P_new_yn,
p_asset_number => p_asset_number,
p_clev_rec => r_clev_model_rec,
p_klev_rec => r_klev_model_rec,
p_cimv_rec => r_cimv_model_rec,
x_clev_rec => l_clev_model_rec_out,
x_klev_rec => l_klev_model_rec_out,
x_cimv_rec => l_cimv_model_rec_out);
update_addon_line_rec(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
P_new_yn => P_new_yn,
p_asset_number => p_asset_number,
p_clev_rec => r_clev_addon_rec,
p_klev_rec => r_klev_addon_rec,
p_cimv_rec => r_cimv_addon_rec,
x_clev_rec => rx_clev_addon_rec,
x_klev_rec => rx_klev_addon_rec,
x_cimv_rec => rx_cimv_addon_rec);
update_fixed_asset_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
P_new_yn => P_new_yn,
p_asset_number => p_asset_number,
p_clev_rec => r_clev_fa_rec,
p_klev_rec => r_klev_fa_rec,
p_cimv_rec => r_cimv_fa_rec,
p_talv_rec => r_talv_fa_rec,
x_clev_rec => l_clev_fa_rec_out,
x_klev_rec => l_klev_fa_rec_out,
x_cimv_rec => lx_cimv_fa_rec,
x_talv_rec => lx_talv_fa_rec);
update_asset_line_details(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_asset_number => p_asset_number,
p_original_cost => lx_talv_fa_rec.original_cost,
p_tal_id => lx_talv_fa_rec.ID);
END update_ints_ib_line;
PROCEDURE delete_ints_ib_line(
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_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
p_asset_number IN OKL_TXL_ASSETS_V.ASSET_NUMBER%TYPE,
p_clev_ib_tbl IN clev_tbl_type,
x_clev_fin_rec OUT NOCOPY clev_rec_type,
x_klev_fin_rec OUT NOCOPY klev_rec_type,
x_cimv_model_rec OUT NOCOPY cimv_rec_type,
x_cimv_fa_rec OUT NOCOPY cimv_rec_type,
x_talv_fa_rec OUT NOCOPY talv_rec_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_INTS_IB_LINE';
lb_last_record_updated BOOLEAN := FALSE;
SELECT count(cle.id)
FROM okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_lines_v cle
WHERE cle.cle_id = p_cle_id
AND cle.dnz_chr_id = p_chr_id
AND cle.lse_id = lse1.id
AND lse1.lty_code = G_INST_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE;
SELECT cle.id
FROM okc_subclass_top_line stl,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_lines_v cle
WHERE cle.cle_id = p_cle_id
AND cle.dnz_chr_id = p_chr_id
AND cle.lse_id = lse1.id
AND lse1.lty_code = G_MODEL_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE
AND lse2.id = stl.lse_id
AND stl.scs_code = 'LEASE';
SELECT cle.id
FROM okc_subclass_top_line stl,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_lines_v cle
WHERE cle.cle_id = p_cle_id
AND cle.dnz_chr_id = p_chr_id
AND cle.lse_id = lse1.id
AND lse1.lty_code = G_FA_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE
AND lse2.id = stl.lse_id
AND stl.scs_code = 'LEASE';
SELECT cle.id
FROM okc_subclass_top_line stl,
okc_line_styles_b lse3,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_lines_b cle
WHERE cle.dnz_chr_id = p_chr_id
AND cle.lse_id = lse1.id
AND lse1.lty_code = G_ADDON_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_MODEL_LINE_LTY_CODE
AND lse2.lse_parent_id = lse3.id
AND lse3.lty_code = G_FIN_LINE_LTY_CODE
AND lse3.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE)
AND cle.cle_id in (SELECT cle.id
FROM okc_subclass_top_line stl,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_lines_b cle
WHERE cle.cle_id = p_cle_id
AND cle.dnz_chr_id = p_chr_id
AND cle.lse_id = lse1.id
AND lse1.lty_code = G_MODEL_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE
AND lse2.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE));
SELECT 'Y'
FROM OKC_RULES_B rul
WHERE rul.dnz_chr_id = p_chr_id
AND rul.rule_information_category = 'LARLES'
AND NVL(rule_information1,'N') = 'Y';
SELECT '!'
FROM okc_k_headers_b chr,
okl_trx_contracts ktrx
WHERE ktrx.khr_id_new = chr.id
AND ktrx.tsu_code = 'ENTERED'
AND ktrx.rbr_code is NOT NULL
AND ktrx.tcn_type = 'TRBK'
--rkuttiya added fopr 12.1.1 Multi GAAP
AND ktrx.representation_type = 'PRIMARY'
--
AND chr.id = p_chr_id
AND chr.orig_system_source_code = 'OKL_REBOOK';
update_txl_itm_insts(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_itiv_rec => l_itiv_rec,
x_itiv_rec => lx_itiv_rec);
lb_last_record_updated := TRUE;
IF (NOT lb_last_record_updated) THEN
validate_sts_code(p_clev_rec => l_clev_inst_rec,
x_return_status => x_return_status);
p_msg_name => 'OKL_LA_REL_UNITS_NO_UPDATE');
OKL_CONTRACT_PUB.delete_contract_line(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_line_id => l_clev_inst_rec.id);
update_model_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
P_new_yn => P_new_yn,
p_asset_number => p_asset_number,
p_clev_rec => r_clev_model_rec,
p_klev_rec => r_klev_model_rec,
p_cimv_rec => r_cimv_model_rec,
x_clev_rec => l_clev_model_rec_out,
x_klev_rec => l_klev_model_rec_out,
x_cimv_rec => x_cimv_model_rec);
update_addon_line_rec(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
P_new_yn => P_new_yn,
p_asset_number => p_asset_number,
p_clev_rec => r_clev_addon_rec,
p_klev_rec => r_klev_addon_rec,
p_cimv_rec => r_cimv_addon_rec,
x_clev_rec => rx_clev_addon_rec,
x_klev_rec => rx_klev_addon_rec,
x_cimv_rec => rx_cimv_addon_rec);
update_fixed_asset_line(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
P_new_yn => P_new_yn,
p_asset_number => p_asset_number,
p_clev_rec => r_clev_fa_rec,
p_klev_rec => r_klev_fa_rec,
p_cimv_rec => r_cimv_fa_rec,
p_talv_rec => r_talv_fa_rec,
x_clev_rec => l_clev_fa_rec_out,
x_klev_rec => l_klev_fa_rec_out,
x_cimv_rec => x_cimv_fa_rec,
x_talv_rec => x_talv_fa_rec);
update_asset_line_details(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_asset_number => p_asset_number,
p_original_cost => x_talv_fa_rec.original_cost,
p_tal_id => x_talv_fa_rec.ID);
END delete_ints_ib_line;