1: PACKAGE BODY WMS_CostGroupEngine_PVT AS
2: /* $Header: WMSVPPGB.pls 120.3.12020000.3 2013/01/30 05:30:18 rdudani ship $*/
3: g_pkg_name CONSTANT VARCHAR2(30) := 'WMS_CostGroupEngine_PVT';
4: --
5: l_debug NUMBER;
1: PACKAGE BODY WMS_CostGroupEngine_PVT AS
2: /* $Header: WMSVPPGB.pls 120.3.12020000.3 2013/01/30 05:30:18 rdudani ship $*/
3: g_pkg_name CONSTANT VARCHAR2(30) := 'WMS_CostGroupEngine_PVT';
4: --
5: l_debug NUMBER;
6: --Procedures for logging messages
7: PROCEDURE log_event(
78:
79: BEGIN
80:
81: -- Switching logic to avoid potential contentation issues
82: IF wms_costgroupengine_pvt.g_rule_list_cg_ctr IS NULL THEN
83: wms_costgroupengine_pvt.g_rule_list_cg_ctr := wms_rule_gen_pkgs.get_count_no_lock('COST_GROUP' );
84: END IF;
85: l_ctr := wms_costgroupengine_pvt.g_rule_list_cg_ctr;
86:
79: BEGIN
80:
81: -- Switching logic to avoid potential contentation issues
82: IF wms_costgroupengine_pvt.g_rule_list_cg_ctr IS NULL THEN
83: wms_costgroupengine_pvt.g_rule_list_cg_ctr := wms_rule_gen_pkgs.get_count_no_lock('COST_GROUP' );
84: END IF;
85: l_ctr := wms_costgroupengine_pvt.g_rule_list_cg_ctr;
86:
87:
81: -- Switching logic to avoid potential contentation issues
82: IF wms_costgroupengine_pvt.g_rule_list_cg_ctr IS NULL THEN
83: wms_costgroupengine_pvt.g_rule_list_cg_ctr := wms_rule_gen_pkgs.get_count_no_lock('COST_GROUP' );
84: END IF;
85: l_ctr := wms_costgroupengine_pvt.g_rule_list_cg_ctr;
86:
87:
88: IF (l_ctr = 1) then
89: wms_rule_cg_pkg1.EXECUTE_CG_RULE( p_rule_id,
105:
106: EXCEPTION
107: WHEN INVALID_PKG_STATE THEN
108: x_sql_return := -1;
109: wms_costgroupengine_pvt.g_rule_list_cg_ctr := wms_rule_gen_pkgs.get_count_no_lock('COST_GROUP' );
110: WMS_ENGINE_PVT.G_SUGG_FAILURE_MESSAGE := 'Invalid Package, Contact your DBA - '|| l_list_pkg || ' / ' || l_package_name;
111: fnd_message.set_name('WMS', 'WMS_INVALID_PKG');
112: fnd_message.set_token('LIST_PKG', l_list_pkg);
113: fnd_message.set_token('RULE_NAME', l_package_name);
822: END GetCurrentInputType;
823:
824:
825:
826: END WMS_CostGroupEngine_PVT;