[Home] [Help]
1: PACKAGE BODY OPI_DBI_INV_VALUE_INCR_PKG as
2: /* $Header: OPIDIVRB.pls 120.27 2008/03/07 09:20:09 sdiwakar noship $ */
3:
4: g_sysdate CONSTANT DATE := SYSDATE;
5: g_user_id CONSTANT NUMBER := nvl(fnd_global.user_id, -1);
8: g_global_curr_code VARCHAR2(10);
9: g_global_sec_curr_code VARCHAR2(10);
10: g_global_rate_type VARCHAR2(32);
11: g_global_sec_rate_type VARCHAR2(32);
12: g_pkg_name VARCHAR2(200) := 'OPI_DBI_INV_VALUE_INCR_PKG';
13: g_opi_schema VARCHAR2(10);
14: --g_uom_conversion number;
15:
16: -- User Defined Exceptions
1170: l_debug_msg := 'Calling On Hand Collection ';
1171: OPI_DBI_BOUNDS_PKG.write (g_pkg_name,l_proc_name,l_stmt_num, l_debug_msg );
1172: END IF;
1173:
1174: OPI_DBI_INV_VALUE_INCR_PKG.get_onhand_activity;
1175:
1176: l_stmt_num := 20;
1177: IF l_debug_mode = 'Y' and upper(l_module_name) like 'BIS%' then
1178: l_debug_msg := 'Calling Intransit Collection ';
1178: l_debug_msg := 'Calling Intransit Collection ';
1179: OPI_DBI_BOUNDS_PKG.write (g_pkg_name,l_proc_name,l_stmt_num, l_debug_msg );
1180: END IF;
1181:
1182: OPI_DBI_INV_VALUE_INCR_PKG.get_intransit_activity;
1183:
1184: l_stmt_num := 30;
1185: IF l_debug_mode = 'Y' and upper(l_module_name) like 'BIS%' then
1186: l_debug_msg := 'Calling WIP Inventory Collection';
1186: l_debug_msg := 'Calling WIP Inventory Collection';
1187: OPI_DBI_BOUNDS_PKG.write (g_pkg_name,l_proc_name,l_stmt_num, l_debug_msg );
1188: END IF;
1189:
1190: OPI_DBI_INV_VALUE_INCR_PKG.get_wip_activity;
1191:
1192:
1193: IF l_debug_mode = 'Y' and upper(l_module_name) like 'BIS%' then
1194: l_debug_msg := 'End of GET_NET_ACTIVITY';
1466: l_debug_msg := 'Calling Clean staging table PRE INIT';
1467: OPI_DBI_BOUNDS_PKG.write (g_pkg_name,l_proc_name,l_stmt_num, l_debug_msg );
1468: END IF;
1469:
1470: OPI_DBI_INV_VALUE_INCR_PKG.clean_staging_table;
1471: -- cleans staging table.
1472:
1473: -- sets bounds for MMT, GTV and WTA Tables accordingly.
1474: l_stmt_num := 20;
1493: l_debug_msg := 'Collecting OPI , OPM Incremental Load Inventory Quantities and Values';
1494: OPI_DBI_BOUNDS_PKG.write (g_pkg_name,l_proc_name,l_stmt_num, l_debug_msg );
1495: END IF;
1496:
1497: OPI_DBI_INV_VALUE_INCR_PKG.Get_Net_Activity;
1498: -- even this procedure has a commit as it has two extracts and each one run in parallel append mode.
1499: commit;
1500:
1501: l_stmt_num :=40;
1512: END IF;
1513: COMMIT;
1514:
1515:
1516: OPI_DBI_INV_VALUE_INCR_PKG.Merge_Into_Summary;
1517: commit;
1518:
1519: l_stmt_num := 50;
1520: IF l_debug_mode = 'Y' and upper(l_module_name) like 'BIS%' then
1527: l_debug_msg := 'Calling Clean staging table PRE INIT';
1528: OPI_DBI_BOUNDS_PKG.write (g_pkg_name,l_proc_name,l_stmt_num, l_debug_msg );
1529: END IF;
1530:
1531: OPI_DBI_INV_VALUE_INCR_PKG.clean_staging_table;
1532:
1533:
1534: IF l_debug_mode = 'Y' and upper(l_module_name) like 'BIS%' then
1535: l_debug_msg := 'End of Discrete_Refresh';
1581: END IF;
1582:
1583: -- checks for GSD, primary and sec currency rate types, schema name for OPI
1584: -- raises exception in case there is an error
1585: OPI_DBI_INV_VALUE_INCR_PKG.check_incr_load_setup;
1586:
1587: l_stmt_num :=20;
1588: IF l_debug_mode = 'Y' and upper(l_module_name) like 'BIS%' then
1589: l_debug_msg := 'Calling Procedure Discrete Refersh ';
1589: l_debug_msg := 'Calling Procedure Discrete Refersh ';
1590: OPI_DBI_BOUNDS_PKG.write (g_pkg_name,l_proc_name,l_stmt_num, l_debug_msg );
1591: END IF;
1592:
1593: OPI_DBI_INV_VALUE_INCR_PKG.Discrete_Refresh; -- No changes for R12
1594: commit;
1595:
1596: l_stmt_num :=30;
1597: IF l_debug_mode = 'Y' and upper(l_module_name) like 'BIS%' then
1656: RAISE;
1657:
1658: END REFRESH;
1659:
1660: END OPI_DBI_INV_VALUE_INCR_PKG;