[Home] [Help]
1: PACKAGE BODY ICX_CAT_POPULATE_MI_PVT AS
2: /* $Header: ICXVPPMB.pls 120.20 2011/02/08 13:37:23 gvijh ship $*/
3:
4: --Will have the MI cursors
5: --for pre-upgrade, upgrade and online populate
6:
7: --Both will call icx_cat_populate_item_pvt.populatePODocs
8:
9: -- Constants
10: G_PKG_NAME CONSTANT VARCHAR2(30) :='ICX_CAT_POPULATE_MI_PVT';
11:
12: g_upgrade_last_run_date DATE;
13: g_online_mode VARCHAR2(15) := null;
14: g_onlineUpdate_mode VARCHAR2(15) := 'OnlineUpdate';
963: l_unit_price_tbl DBMS_SQL.NUMBER_TABLE;
964: l_rfq_required_flag_tbl DBMS_SQL.VARCHAR2_TABLE;
965: l_description_tbl DBMS_SQL.VARCHAR2_TABLE;
966: --Bug6599217
967: l_long_description_tbl ICX_CAT_POPULATE_MI_PVT.VARCHAR4_TABLE;
968: l_organization_id_tbl DBMS_SQL.NUMBER_TABLE;
969: l_master_organization_id_tbl DBMS_SQL.NUMBER_TABLE;
970: l_ctx_inventory_item_id_tbl DBMS_SQL.NUMBER_TABLE;
971: l_ctx_source_type_tbl DBMS_SQL.VARCHAR2_TABLE;
1274: l_err_loc := 1400;
1275: EXIT WHEN l_inv_item_id_tbl.COUNT < ICX_CAT_UTIL_PVT.g_batch_size;
1276: EXCEPTION
1277: WHEN ICX_CAT_UTIL_PVT.g_snap_shot_too_old THEN
1278: l_err_string := 'ICX_CAT_POPULATE_MI_PVT.populateMIs' ||l_err_loc
1279: ||', Total processeded batches:' ||l_batch_count
1280: ||', Cursor will be reopened with inventory_item_id:' ||l_start_inv_item_id;
1281: IF (FND_API.To_Boolean(ICX_CAT_UTIL_PVT.g_COMMIT)) THEN
1282: ICX_CAT_UTIL_PVT.logAndCommitSnapShotTooOld(g_pkg_name, l_api_name, l_err_string);
1506: l_err_loc := 1300;
1507: EXIT WHEN l_inv_item_id_tbl.COUNT < ICX_CAT_UTIL_PVT.g_batch_size;
1508: EXCEPTION
1509: WHEN ICX_CAT_UTIL_PVT.g_snap_shot_too_old THEN
1510: l_err_string := 'ICX_CAT_POPULATE_MI_PVT.populateItemDelete' ||l_err_loc
1511: ||', Total processeded batches:' ||l_batch_count
1512: ||', Cursor will be reopened;';
1513: ICX_CAT_UTIL_PVT.logAndCommitSnapShotTooOld(g_pkg_name, l_api_name, l_err_string);
1514: l_err_loc := 1400;
1648: l_api_name CONSTANT VARCHAR2(30) := 'buildCtxSqlForMIs';
1649: l_err_loc PLS_INTEGER;
1650: BEGIN
1651: l_err_loc := 100;
1652: IF (NOT ICX_CAT_POPULATE_MI_PVT.g_metadataTblFormed) THEN
1653: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1654: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1655: ICX_CAT_UTIL_PVT.getModuleNameForDebug(g_pkg_name, l_api_name),
1656: 'about to call buildmetadatinfo');
1659: l_err_loc := 200;
1660: ICX_CAT_BUILD_CTX_SQL_PVT.buildMetadataInfo
1661: (0, g_special_metadata_tbl, g_regular_nontl_metadata_tbl, g_regular_tl_metadata_tbl);
1662: l_err_loc := 300;
1663: ICX_CAT_POPULATE_MI_PVT.g_metadataTblFormed := TRUE;
1664: END IF;
1665:
1666: l_err_loc := 400;
1667: IF (NOT ICX_CAT_POPULATE_MI_PVT.g_CtxSqlForMIsFormed) THEN
1663: ICX_CAT_POPULATE_MI_PVT.g_metadataTblFormed := TRUE;
1664: END IF;
1665:
1666: l_err_loc := 400;
1667: IF (NOT ICX_CAT_POPULATE_MI_PVT.g_CtxSqlForMIsFormed) THEN
1668: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1669: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1670: ICX_CAT_UTIL_PVT.getModuleNameForDebug(g_pkg_name, l_api_name),
1671: 'about to call buildctxsql');
1675: (0, ICX_CAT_UTIL_PVT.g_MasterItemCsr_const, 'NOTROWID', g_special_metadata_tbl,
1676: g_regular_nontl_metadata_tbl, g_regular_tl_metadata_tbl,
1677: g_all_ctx_sql_tbl, g_special_ctx_sql_tbl, g_regular_ctx_sql_tbl);
1678: l_err_loc := 600;
1679: ICX_CAT_POPULATE_MI_PVT.g_CtxSqlForMIsFormed := TRUE;
1680: END IF;
1681:
1682: l_err_loc := 700;
1683: p_special_ctx_sql_tbl := g_special_ctx_sql_tbl;
1691: ' --> l_err_loc:' ||l_err_loc ||' '|| SQLERRM);
1692: RAISE;
1693: END buildCtxSqlForMIs;
1694:
1695: END ICX_CAT_POPULATE_MI_PVT;