[Home] [Help]
1: PACKAGE BODY AHL_UMP_PROCESSUNIT_PVT AS
2: /* $Header: AHLVUMUB.pls 120.26.12010000.2 2008/12/27 01:48:48 sracha ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AHL_UMP_ProcessUnit_PVT';
5: G_DEBUG VARCHAR2(1) := AHL_DEBUG_PUB.is_log_enabled;
1: PACKAGE BODY AHL_UMP_PROCESSUNIT_PVT AS
2: /* $Header: AHLVUMUB.pls 120.26.12010000.2 2008/12/27 01:48:48 sracha ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AHL_UMP_ProcessUnit_PVT';
5: G_DEBUG VARCHAR2(1) := AHL_DEBUG_PUB.is_log_enabled;
6: G_IS_PM_INSTALLED CONSTANT VARCHAR2(1) := AHL_UTIL_PKG.IS_PM_INSTALLED;
7:
8: G_CONCURRENT_FLAG VARCHAR2(1);
127:
128: -- Build the item instance tree containing root nodes and its components.
129: PROCEDURE Build_Config_Tree(p_csi_root_instance_id IN NUMBER,
130: p_master_config_id IN NUMBER,
131: x_config_node_tbl OUT NOCOPY AHL_UMP_PROCESSUNIT_PVT.config_node_tbl_type);
132:
133:
134: -- To get the last day of the rolling window from profile values.
135: FUNCTION Get_Rolling_Window_Date RETURN DATE;
489:
490: ------------------------------
491: -- Declare global variables --
492: ------------------------------
493: G_config_node_tbl AHL_UMP_PROCESSUNIT_PVT.config_node_tbl_type;
494: -- This variable holds all the item instances that are contained in a configuration.
495: -- For AHL installation, this will hold the top node and all of its components.
496: -- For PM installation, this will contain only one item instance, because each
497: -- component of a configuration is processed as a unit for this case.
554: -- This variable holds the Root item instance id.
555: -- For AHL installation, this is the root item instance of the input parameter p_csi_item_instance_id
556: -- For PM installation, this is the item instance input to this procedure(i.e p_csi_item_instance_id).
557:
558: l_config_node_tbl AHL_UMP_PROCESSUNIT_PVT.config_node_tbl_type;
559: l_forecast_details_tbl forecast_details_tbl_type;
560:
561: l_UnSch_programs_tbl PMprogram_tbl_type;
562: -- contains programs and their effectivities.
1186: THEN
1187: IF (p_concurrent_flag = 'Y') THEN
1188: fnd_file.put_line(fnd_file.log, 'Calling Process_Unit for instance: ' || l_ent_cont_tbl(i).coverage_level_id);
1189: END IF;
1190: AHL_UMP_ProcessUnit_PVT.Process_Unit
1191: (
1192: p_commit => l_commit,
1193: x_msg_count => x_msg_count,
1194: x_msg_data => x_msg_data,
1542: -- Validate the input item instance.
1543:
1544: PROCEDURE Build_Config_Tree(p_csi_root_instance_id IN NUMBER,
1545: p_master_config_id IN NUMBER,
1546: x_config_node_tbl OUT NOCOPY AHL_UMP_PROCESSUNIT_PVT.config_node_tbl_type)
1547:
1548: IS
1549:
1550: CURSOR csi_config_tree_csr ( p_csi_root_instance_id IN NUMBER) IS
1560: AND trunc(sysdate) < trunc(nvl(active_end_date, sysdate+1))
1561: ORDER BY level;
1562:
1563: i NUMBER;
1564: l_config_node_tbl AHL_UMP_PROCESSUNIT_PVT.config_node_tbl_type := x_config_node_tbl;
1565:
1566: -- added for perf fix for bug# 6893404.
1567: l_buffer_limit number := 1000;
1568:
10235: BEGIN
10236:
10237: IF l_debug = 'Y' THEN
10238: AHL_DEBUG_PUB.enable_debug;
10239: AHL_DEBUG_PUB.debug('Begin private API: AHL_UMP_PROCESSUNIT_PVT.PROCESS_PM_MR_AFFECTED_ITEMS');
10240: END IF;
10241:
10242: -- Check whether the mr_header_id exists --
10243: OPEN check_mr_exists(p_mr_header_id);
11066: -- initialize return status.
11067: retcode := 0;
11068:
11069: -- After commit call UMP BUE api to build UEs.
11070: AHL_UMP_PROCESSUNIT_PVT.Process_MRAffected_Units (
11071: p_commit => FND_API.G_TRUE,
11072: x_msg_count => l_msg_count,
11073: x_msg_data => l_msg_data,
11074: x_return_status => l_return_status, -- ignore status returned by this api.
11615:
11616: EXCEPTION
11617: WHEN OTHERS THEN
11618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11619: errbuf := 'AHL_UMP_ProcessUnit_Pvt.Process.Get_Next_BUE_Row:' || SUBSTR(SQLERRM,1,240);
11620: x_item_instance_id := NULL;
11621:
11622: END Get_Next_BUE_Row;
11623:
12260: END validate_uf_for_ctr;
12261:
12262:
12263:
12264: END AHL_UMP_ProcessUnit_PVT;