40:
41: PROCEDURE raise_business_event(p_api_version IN NUMBER,
42: p_init_msg_list IN VARCHAR2,
43: p_chr_id IN okc_k_headers_b.id%TYPE,
44: p_asset_id IN okc_k_lines_b.id%TYPE,
45: p_book_code IN okl_txl_assets_b.corporate_book%TYPE,
46: p_event_name IN VARCHAR2,
47: x_return_status OUT NOCOPY VARCHAR2,
48: x_msg_count OUT NOCOPY NUMBER,
151: * the book depreciation is being created. BEGIN
152: */
153: CURSOR c_get_cle_id IS
154: SELECT cle_id
155: FROM okc_k_lines_b
156: WHERE id = p_talv_rec.kle_id;
157:
158: l_cle_id okc_k_lines_b.cle_id%TYPE;
159:
154: SELECT cle_id
155: FROM okc_k_lines_b
156: WHERE id = p_talv_rec.kle_id;
157:
158: l_cle_id okc_k_lines_b.cle_id%TYPE;
159:
160: BEGIN
161: -- Call start_activity to create savepoint, check compatibility
162: -- and initialize message list
533: p_talv_rec IN tlvv_rec_type,
534: x_talv_rec OUT NOCOPY tlvv_rec_type)
535: IS
536: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TRX_ASSETS_LINES';
537: ln_chr_id OKC_K_LINES_B.DNZ_CHR_ID%TYPE;
538:
539: -- Temp parameters to store depreciation cost and salvage values.
540: l_deprn_cost NUMBER;
541: l_salvage_value NUMBER;
545:
546: CURSOR get_chr_id(p_kle_id OKL_TXL_ASSETS_B.KLE_ID%TYPE)
547: IS
548: SELECT cle.dnz_chr_id
549: FROM okc_k_lines_b cle,
550: okl_txl_assets_b tal
551: WHERE tal.kle_id = cle.id
552: AND tal.kle_id = p_kle_id;
553: /*
550: okl_txl_assets_b tal
551: WHERE tal.kle_id = cle.id
552: AND tal.kle_id = p_kle_id;
553: /*
554: CURSOR c_get_currency_code(p_kle_id OKC_K_LINES_B.ID%TYPE) IS
555: SELECT currency_code
556: FROM OKC_K_LINES_B
557: WHERE id = p_kle_id;
558: */
552: AND tal.kle_id = p_kle_id;
553: /*
554: CURSOR c_get_currency_code(p_kle_id OKC_K_LINES_B.ID%TYPE) IS
555: SELECT currency_code
556: FROM OKC_K_LINES_B
557: WHERE id = p_kle_id;
558: */
559: CURSOR header_curr_csr(p_txl_id OKL_TXL_ASSETS_V.ID%TYPE) IS
560: SELECT h.currency_code,
570: *added cursor to fetch the params to pass to raise business event
571: */
572: CURSOR get_event_params(p_id OKL_TXL_ASSETS_B.ID%TYPE) IS
573: SELECT lines.dnz_chr_id,lines.cle_id,tal.corporate_book
574: FROM okc_k_lines_b lines,
575: okl_txl_assets_b tal
576: WHERE tal.id = p_id
577: AND lines.id = tal.kle_id;
578:
615: --| when create and copy asset can refer to the |
616: --| same source |
617:
618: l_contract_id okc_k_headers_b.id%TYPE;
619: l_asset_id okc_k_lines_b.id%TYPE;
620: l_old_book_code okl_txl_assets_b.corporate_book%TYPE;
621: --vthiruva..fix for business events..30-Dec-2004..end
622:
623: l_header_curr_code OKL_K_HEADERS_FULL_V.CURRENCY_CODE%TYPE;
989: x_msg_data OUT NOCOPY VARCHAR2,
990: p_talv_rec IN tlvv_rec_type)
991: IS
992: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_TRX_ASSETS_LINES';
993: ln_chr_id OKC_K_LINES_B.DNZ_CHR_ID%TYPE;
994: CURSOR get_chr_id(p_kle_id OKL_TXL_ASSETS_B.KLE_ID%TYPE)
995: IS
996: SELECT cle.dnz_chr_id
997: FROM okc_k_lines_b cle,
993: ln_chr_id OKC_K_LINES_B.DNZ_CHR_ID%TYPE;
994: CURSOR get_chr_id(p_kle_id OKL_TXL_ASSETS_B.KLE_ID%TYPE)
995: IS
996: SELECT cle.dnz_chr_id
997: FROM okc_k_lines_b cle,
998: okl_txl_assets_b tal
999: WHERE tal.kle_id = cle.id
1000: AND tal.kle_id = p_kle_id;
1001: BEGIN