1: package body WMS_Strategy_PVT as
2: /* $Header: WMSVPPSB.pls 120.10.12010000.5 2008/11/14 08:54:44 mitgupta ship $ */
3:
4: -- File : WMSVPPSB.pls
5: -- Content : WMS_Strategy_PVT package body
1: package body WMS_Strategy_PVT as
2: /* $Header: WMSVPPSB.pls 120.10.12010000.5 2008/11/14 08:54:44 mitgupta ship $ */
3:
4: -- File : WMSVPPSB.pls
5: -- Content : WMS_Strategy_PVT package body
6: -- Description : W
7: -- Notes :
8: -- Modified : 02/08/99 mzeckzer created
9: -- : 04/20/99 bitang modified
12: -- rules workbench ]
13: -- Modified : 09/06/2008 Kbanddyo - [Added call to procedure INV_Quantity_Tree_PVT. release_lock
14: -- as part of bug fix 6867434]
15:
16: g_pkg_name constant varchar2(30) := 'WMS_Strategy_PVT';
17: -- API versions called within WMS_Strategy_PVT.Apply API
18: g_pp_rule_api_version constant number := 1.0; -- WMS_Rule_PVT
19: g_qty_tree_api_version constant number := 1.0; -- INV_Quantity_Tree_PVT
20:
13: -- Modified : 09/06/2008 Kbanddyo - [Added call to procedure INV_Quantity_Tree_PVT. release_lock
14: -- as part of bug fix 6867434]
15:
16: g_pkg_name constant varchar2(30) := 'WMS_Strategy_PVT';
17: -- API versions called within WMS_Strategy_PVT.Apply API
18: g_pp_rule_api_version constant number := 1.0; -- WMS_Rule_PVT
19: g_qty_tree_api_version constant number := 1.0; -- INV_Quantity_Tree_PVT
20:
21: --Procedures for logging messages
1871: l_qty_tree_allowed := 'Y' ;
1872: END IF;
1873: --
1874: If (l_debug = 1) then
1875: log_procedure(l_api_name, 'start', 'Start wms_strategy_pvt.Apply');
1876: End if;
1877: -- debugging portion
1878: -- can be commented ut for final code
1879:
2612: 'Other error in Apply - ' || x_msg_data);
2613: End if;
2614: --g_debug := NULL;
2615: end Apply;
2616: end WMS_Strategy_PVT;