5986: TYPE l_dbcurrency_convers_date_type IS TABLE OF okl_txd_assets_b.currency_conversion_date%TYPE INDEX BY BINARY_INTEGER;
5987:
5988: -- For okl_txd_assets_b End
5989:
5990: -- For okl_txd_assets_tl Begin
5991:
5992: TYPE l_dlid_type IS TABLE OF okl_txd_assets_tl.id%TYPE INDEX BY BINARY_INTEGER;
5993: TYPE l_dllanguage_type IS TABLE OF okl_txd_assets_tl.LANGUAGE%TYPE INDEX BY BINARY_INTEGER;
5994: TYPE l_dlsource_lang_type IS TABLE OF okl_txd_assets_tl.source_lang%TYPE INDEX BY BINARY_INTEGER;
5988: -- For okl_txd_assets_b End
5989:
5990: -- For okl_txd_assets_tl Begin
5991:
5992: TYPE l_dlid_type IS TABLE OF okl_txd_assets_tl.id%TYPE INDEX BY BINARY_INTEGER;
5993: TYPE l_dllanguage_type IS TABLE OF okl_txd_assets_tl.LANGUAGE%TYPE INDEX BY BINARY_INTEGER;
5994: TYPE l_dlsource_lang_type IS TABLE OF okl_txd_assets_tl.source_lang%TYPE INDEX BY BINARY_INTEGER;
5995: TYPE l_dlsfwt_flag_type IS TABLE OF okl_txd_assets_tl.sfwt_flag%TYPE INDEX BY BINARY_INTEGER;
5996: TYPE l_dldescription_type IS TABLE OF okl_txd_assets_tl.description%TYPE INDEX BY BINARY_INTEGER;
5989:
5990: -- For okl_txd_assets_tl Begin
5991:
5992: TYPE l_dlid_type IS TABLE OF okl_txd_assets_tl.id%TYPE INDEX BY BINARY_INTEGER;
5993: TYPE l_dllanguage_type IS TABLE OF okl_txd_assets_tl.LANGUAGE%TYPE INDEX BY BINARY_INTEGER;
5994: TYPE l_dlsource_lang_type IS TABLE OF okl_txd_assets_tl.source_lang%TYPE INDEX BY BINARY_INTEGER;
5995: TYPE l_dlsfwt_flag_type IS TABLE OF okl_txd_assets_tl.sfwt_flag%TYPE INDEX BY BINARY_INTEGER;
5996: TYPE l_dldescription_type IS TABLE OF okl_txd_assets_tl.description%TYPE INDEX BY BINARY_INTEGER;
5997: TYPE l_dlcreated_by_type IS TABLE OF okl_txd_assets_tl.created_by%TYPE INDEX BY BINARY_INTEGER;
5990: -- For okl_txd_assets_tl Begin
5991:
5992: TYPE l_dlid_type IS TABLE OF okl_txd_assets_tl.id%TYPE INDEX BY BINARY_INTEGER;
5993: TYPE l_dllanguage_type IS TABLE OF okl_txd_assets_tl.LANGUAGE%TYPE INDEX BY BINARY_INTEGER;
5994: TYPE l_dlsource_lang_type IS TABLE OF okl_txd_assets_tl.source_lang%TYPE INDEX BY BINARY_INTEGER;
5995: TYPE l_dlsfwt_flag_type IS TABLE OF okl_txd_assets_tl.sfwt_flag%TYPE INDEX BY BINARY_INTEGER;
5996: TYPE l_dldescription_type IS TABLE OF okl_txd_assets_tl.description%TYPE INDEX BY BINARY_INTEGER;
5997: TYPE l_dlcreated_by_type IS TABLE OF okl_txd_assets_tl.created_by%TYPE INDEX BY BINARY_INTEGER;
5998: TYPE l_dlcreation_date_type IS TABLE OF okl_txd_assets_tl.creation_date%TYPE INDEX BY BINARY_INTEGER;
5991:
5992: TYPE l_dlid_type IS TABLE OF okl_txd_assets_tl.id%TYPE INDEX BY BINARY_INTEGER;
5993: TYPE l_dllanguage_type IS TABLE OF okl_txd_assets_tl.LANGUAGE%TYPE INDEX BY BINARY_INTEGER;
5994: TYPE l_dlsource_lang_type IS TABLE OF okl_txd_assets_tl.source_lang%TYPE INDEX BY BINARY_INTEGER;
5995: TYPE l_dlsfwt_flag_type IS TABLE OF okl_txd_assets_tl.sfwt_flag%TYPE INDEX BY BINARY_INTEGER;
5996: TYPE l_dldescription_type IS TABLE OF okl_txd_assets_tl.description%TYPE INDEX BY BINARY_INTEGER;
5997: TYPE l_dlcreated_by_type IS TABLE OF okl_txd_assets_tl.created_by%TYPE INDEX BY BINARY_INTEGER;
5998: TYPE l_dlcreation_date_type IS TABLE OF okl_txd_assets_tl.creation_date%TYPE INDEX BY BINARY_INTEGER;
5999: TYPE l_dllast_updated_by_type IS TABLE OF okl_txd_assets_tl.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
5992: TYPE l_dlid_type IS TABLE OF okl_txd_assets_tl.id%TYPE INDEX BY BINARY_INTEGER;
5993: TYPE l_dllanguage_type IS TABLE OF okl_txd_assets_tl.LANGUAGE%TYPE INDEX BY BINARY_INTEGER;
5994: TYPE l_dlsource_lang_type IS TABLE OF okl_txd_assets_tl.source_lang%TYPE INDEX BY BINARY_INTEGER;
5995: TYPE l_dlsfwt_flag_type IS TABLE OF okl_txd_assets_tl.sfwt_flag%TYPE INDEX BY BINARY_INTEGER;
5996: TYPE l_dldescription_type IS TABLE OF okl_txd_assets_tl.description%TYPE INDEX BY BINARY_INTEGER;
5997: TYPE l_dlcreated_by_type IS TABLE OF okl_txd_assets_tl.created_by%TYPE INDEX BY BINARY_INTEGER;
5998: TYPE l_dlcreation_date_type IS TABLE OF okl_txd_assets_tl.creation_date%TYPE INDEX BY BINARY_INTEGER;
5999: TYPE l_dllast_updated_by_type IS TABLE OF okl_txd_assets_tl.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
6000: TYPE l_dllast_update_date_type IS TABLE OF okl_txd_assets_tl.last_update_date%TYPE INDEX BY BINARY_INTEGER;
5993: TYPE l_dllanguage_type IS TABLE OF okl_txd_assets_tl.LANGUAGE%TYPE INDEX BY BINARY_INTEGER;
5994: TYPE l_dlsource_lang_type IS TABLE OF okl_txd_assets_tl.source_lang%TYPE INDEX BY BINARY_INTEGER;
5995: TYPE l_dlsfwt_flag_type IS TABLE OF okl_txd_assets_tl.sfwt_flag%TYPE INDEX BY BINARY_INTEGER;
5996: TYPE l_dldescription_type IS TABLE OF okl_txd_assets_tl.description%TYPE INDEX BY BINARY_INTEGER;
5997: TYPE l_dlcreated_by_type IS TABLE OF okl_txd_assets_tl.created_by%TYPE INDEX BY BINARY_INTEGER;
5998: TYPE l_dlcreation_date_type IS TABLE OF okl_txd_assets_tl.creation_date%TYPE INDEX BY BINARY_INTEGER;
5999: TYPE l_dllast_updated_by_type IS TABLE OF okl_txd_assets_tl.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
6000: TYPE l_dllast_update_date_type IS TABLE OF okl_txd_assets_tl.last_update_date%TYPE INDEX BY BINARY_INTEGER;
6001: TYPE l_dllast_update_login_type IS TABLE OF okl_txd_assets_tl.last_update_login%TYPE INDEX BY BINARY_INTEGER;
5994: TYPE l_dlsource_lang_type IS TABLE OF okl_txd_assets_tl.source_lang%TYPE INDEX BY BINARY_INTEGER;
5995: TYPE l_dlsfwt_flag_type IS TABLE OF okl_txd_assets_tl.sfwt_flag%TYPE INDEX BY BINARY_INTEGER;
5996: TYPE l_dldescription_type IS TABLE OF okl_txd_assets_tl.description%TYPE INDEX BY BINARY_INTEGER;
5997: TYPE l_dlcreated_by_type IS TABLE OF okl_txd_assets_tl.created_by%TYPE INDEX BY BINARY_INTEGER;
5998: TYPE l_dlcreation_date_type IS TABLE OF okl_txd_assets_tl.creation_date%TYPE INDEX BY BINARY_INTEGER;
5999: TYPE l_dllast_updated_by_type IS TABLE OF okl_txd_assets_tl.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
6000: TYPE l_dllast_update_date_type IS TABLE OF okl_txd_assets_tl.last_update_date%TYPE INDEX BY BINARY_INTEGER;
6001: TYPE l_dllast_update_login_type IS TABLE OF okl_txd_assets_tl.last_update_login%TYPE INDEX BY BINARY_INTEGER;
6002:
5995: TYPE l_dlsfwt_flag_type IS TABLE OF okl_txd_assets_tl.sfwt_flag%TYPE INDEX BY BINARY_INTEGER;
5996: TYPE l_dldescription_type IS TABLE OF okl_txd_assets_tl.description%TYPE INDEX BY BINARY_INTEGER;
5997: TYPE l_dlcreated_by_type IS TABLE OF okl_txd_assets_tl.created_by%TYPE INDEX BY BINARY_INTEGER;
5998: TYPE l_dlcreation_date_type IS TABLE OF okl_txd_assets_tl.creation_date%TYPE INDEX BY BINARY_INTEGER;
5999: TYPE l_dllast_updated_by_type IS TABLE OF okl_txd_assets_tl.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
6000: TYPE l_dllast_update_date_type IS TABLE OF okl_txd_assets_tl.last_update_date%TYPE INDEX BY BINARY_INTEGER;
6001: TYPE l_dllast_update_login_type IS TABLE OF okl_txd_assets_tl.last_update_login%TYPE INDEX BY BINARY_INTEGER;
6002:
6003: -- For okl_txd_assets_tl End
5996: TYPE l_dldescription_type IS TABLE OF okl_txd_assets_tl.description%TYPE INDEX BY BINARY_INTEGER;
5997: TYPE l_dlcreated_by_type IS TABLE OF okl_txd_assets_tl.created_by%TYPE INDEX BY BINARY_INTEGER;
5998: TYPE l_dlcreation_date_type IS TABLE OF okl_txd_assets_tl.creation_date%TYPE INDEX BY BINARY_INTEGER;
5999: TYPE l_dllast_updated_by_type IS TABLE OF okl_txd_assets_tl.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
6000: TYPE l_dllast_update_date_type IS TABLE OF okl_txd_assets_tl.last_update_date%TYPE INDEX BY BINARY_INTEGER;
6001: TYPE l_dllast_update_login_type IS TABLE OF okl_txd_assets_tl.last_update_login%TYPE INDEX BY BINARY_INTEGER;
6002:
6003: -- For okl_txd_assets_tl End
6004:
5997: TYPE l_dlcreated_by_type IS TABLE OF okl_txd_assets_tl.created_by%TYPE INDEX BY BINARY_INTEGER;
5998: TYPE l_dlcreation_date_type IS TABLE OF okl_txd_assets_tl.creation_date%TYPE INDEX BY BINARY_INTEGER;
5999: TYPE l_dllast_updated_by_type IS TABLE OF okl_txd_assets_tl.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
6000: TYPE l_dllast_update_date_type IS TABLE OF okl_txd_assets_tl.last_update_date%TYPE INDEX BY BINARY_INTEGER;
6001: TYPE l_dllast_update_login_type IS TABLE OF okl_txd_assets_tl.last_update_login%TYPE INDEX BY BINARY_INTEGER;
6002:
6003: -- For okl_txd_assets_tl End
6004:
6005: -- For okl_txl_itm_insts Begin
5999: TYPE l_dllast_updated_by_type IS TABLE OF okl_txd_assets_tl.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
6000: TYPE l_dllast_update_date_type IS TABLE OF okl_txd_assets_tl.last_update_date%TYPE INDEX BY BINARY_INTEGER;
6001: TYPE l_dllast_update_login_type IS TABLE OF okl_txd_assets_tl.last_update_login%TYPE INDEX BY BINARY_INTEGER;
6002:
6003: -- For okl_txd_assets_tl End
6004:
6005: -- For okl_txl_itm_insts Begin
6006:
6007: TYPE l_tiid_type IS TABLE OF okl_txl_itm_insts.id%TYPE INDEX BY BINARY_INTEGER;
6763: l_txd_assets_b_counter NUMBER := 1;
6764:
6765: -- For okl_txd_assets_b End
6766:
6767: -- For okl_txd_assets_tl Begin
6768:
6769: l_dlid_tab l_dlid_type;
6770: l_dllanguage_tab l_dllanguage_type;
6771: l_dlsource_lang_tab l_dlsource_lang_type;
6778: l_dllast_update_login_tab l_dllast_update_login_type;
6779:
6780: l_txd_assets_tl_counter NUMBER := 1;
6781:
6782: -- For okl_txd_assets_tl End
6783:
6784: -- For okl_txl_itm_insts Begin
6785:
6786: l_tiid_tab l_tiid_type;
15873: RAISE OKC_API.G_EXCEPTION_ERROR;
15874:
15875: END; /* insert_okl_txl_assets_tl */
15876:
15877: PROCEDURE insert_okl_txd_assets_tl(p_old_id IN okc_k_headers_b.id%TYPE,
15878: p_new_id IN okc_k_headers_b.id%TYPE,
15879: p_flush IN VARCHAR2) IS
15880: CURSOR c21(p_id NUMBER) IS
15881: SELECT
15882: id, LANGUAGE, source_lang,
15883: sfwt_flag, description, created_by,
15884: creation_date, last_updated_by, last_update_date,
15885: last_update_login
15886: FROM okl_txd_assets_tl
15887: WHERE id = p_id
15888: AND id IN (
15889: SELECT b.id FROM okl_txd_assets_b b, okl_txl_assets_b c
15890: WHERE b.id = p_id
15943: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_txd_assets_tl_counter=' || l_txd_assets_tl_counter || ' l_dlid_tab.count=' || l_dlid_tab.COUNT);
15944: END IF;
15945: IF (l_txd_assets_tl_counter > 1) THEN
15946: forall i IN l_dlid_tab.first..l_dlid_tab.last
15947: INSERT INTO okl_txd_assets_tl (
15948: id, LANGUAGE, source_lang,
15949: sfwt_flag, description, created_by,
15950: creation_date, last_updated_by, last_update_date,
15951: last_update_login
15962: x_return_status := OKL_API.G_RET_STS_ERROR;
15963: /*OKL_API.set_message(p_app_name => 'OKL',
15964: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15965: p_token1 => 'ASSET_NUMBER',
15966: p_token1_value => 'insert_okl_txd_assets_tl');*/
15967: /* DEBUG */
15968: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
15969: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
15970: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing insert_okl_txd_assets_tl:l_dlid_tab.count=' || l_dlid_tab.COUNT || ' ...');
15966: p_token1_value => 'insert_okl_txd_assets_tl');*/
15967: /* DEBUG */
15968: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
15969: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
15970: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing insert_okl_txd_assets_tl:l_dlid_tab.count=' || l_dlid_tab.COUNT || ' ...');
15971: END IF;
15972: IF (l_dlid_tab.COUNT > 0) THEN
15973: FOR i IN l_dlid_tab.first..l_dlid_tab.last
15974: LOOP
15983: END IF;
15984:
15985: RAISE OKC_API.G_EXCEPTION_ERROR;
15986:
15987: END; /* insert_okl_txd_assets_tl */
15988:
15989: PROCEDURE insert_okl_txd_assets_b(p_old_id IN okc_k_headers_b.id%TYPE,
15990: p_new_id IN okc_k_headers_b.id%TYPE) IS
15991: CURSOR c20(p_id NUMBER) IS
16192: );
16193: FOR i IN l_dbid_tab.first..l_dbid_tab.last
16194: LOOP
16195: IF (i = l_dbid_tab.last) THEN
16196: insert_okl_txd_assets_tl(l_dbid_tab3(i),l_dbid_tab(i), 'Y');
16197: ELSE
16198: insert_okl_txd_assets_tl(l_dbid_tab3(i),l_dbid_tab(i), 'N');
16199: END IF;
16200: END LOOP;
16194: LOOP
16195: IF (i = l_dbid_tab.last) THEN
16196: insert_okl_txd_assets_tl(l_dbid_tab3(i),l_dbid_tab(i), 'Y');
16197: ELSE
16198: insert_okl_txd_assets_tl(l_dbid_tab3(i),l_dbid_tab(i), 'N');
16199: END IF;
16200: END LOOP;
16201: END IF;
16202: EXCEPTION WHEN OTHERS THEN
18151: l_new_tal_id NUMBER;
18152: l_new_line_number NUMBER;
18153: l_junk_cost NUMBER;
18154:
18155: -- okl_txd_assets_tl
18156: l_dl2id_tab l_dlid_type;
18157: l_dl2description_tab l_dldescription_type;
18158: l_dl2language_tab l_dllanguage_type;
18159:
18473: l_life_in_months);
18474: l_db2deprn_rate_tax_tab(l_txd_assets_b_counter4) := l_deprn_rate;
18475: l_db2life_in_months_tax_tab(l_txd_assets_b_counter4) := l_life_in_months;
18476:
18477: -- Populate okl_txd_assets_tl
18478: FOR j IN l_lang_tab.first..l_lang_tab.last
18479: LOOP
18480: l_dl2id_tab(l_txd_assets_tl_counter4) := l_db2id_tab(l_txd_assets_b_counter4);
18481: l_dl2description_tab(l_txd_assets_tl_counter4) := l_DESCRIPTION_tab(i);
18803: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_txd_assets_tl_counter4=' || l_txd_assets_tl_counter4 || ' l_dl2id_tab.count=' || l_dl2id_tab.COUNT);
18804: END IF;
18805: IF (l_dl2id_tab.COUNT > 0) THEN
18806: forall i IN l_dl2id_tab.first..l_dl2id_tab.last
18807: INSERT INTO okl_txd_assets_tl (
18808: id, LANGUAGE, source_lang,
18809: sfwt_flag, description, created_by,
18810: creation_date, last_updated_by, last_update_date,
18811: last_update_login