[Home] [Help]
1: PACKAGE BODY wms_assignment_pvt AS
2: /* $Header: WMSVPPAB.pls 120.2 2005/08/29 23:04:01 abshukla noship $ */
3: --
4: -- File : WMSVPPAB.pls
5: -- Content : WMS_Assignment_PVT package body
1: PACKAGE BODY wms_assignment_pvt AS
2: /* $Header: WMSVPPAB.pls 120.2 2005/08/29 23:04:01 abshukla noship $ */
3: --
4: -- File : WMSVPPAB.pls
5: -- Content : WMS_Assignment_PVT package body
6: -- Description : Private API functions and procedures needed for wms rules
7: -- engine strategy assignment implementation.
8: -- Notes :
9: -- Modified : 02/08/99 mzeckzer created
8: -- Notes :
9: -- Modified : 02/08/99 mzeckzer created
10: --
11: -- Package global to store package name
12: g_pkg_name CONSTANT VARCHAR2(30) := 'WMS_Assignment_PVT';
13: -- API name : GetObjectValueName
14: -- Type : Private
15: -- Function : Returns the current name of the business object instance a
16: -- wms strategy is assigned to.
202: OR p_pk1_value IS NULL
203: OR p_pk1_value = g_miss_char
204: THEN
205: RETURN 'Insufficient parameters passed to '||
206: 'WMS_Assignment_PVT.GetObjectValueName' ;
207: END IF;
208: --
209: -- function works for system-defined business objects only
210: IF p_object_type_code <> 1 THEN
364: CLOSE obj100;
365:
366: ELSE
367: l_value_name := 'Missing code section for this object in '||
368: 'WMS_Assignment_PVT.GetObjectValueName';
369: END IF;
370: RETURN l_value_name ;
371: EXCEPTION
372: WHEN OTHERS THEN
426: END IF;
427: IF obj100%isopen THEN
428: CLOSE obj100;
429: END IF;
430: RETURN 'Error in WMS_Assignment_PVT' ;
431: END GetObjectValueName;
432: END WMS_Assignment_PVT;
428: CLOSE obj100;
429: END IF;
430: RETURN 'Error in WMS_Assignment_PVT' ;
431: END GetObjectValueName;
432: END WMS_Assignment_PVT;