PACKAGE BODY: APPS.BOM_RTG_EXP_UTIL

Source

1 PACKAGE BODY BOM_RTG_EXP_UTIL AS
2 /* $Header: BOMREVIB.pls 115.0 2002/11/14 13:11:30 djebar noship $ */
3 /***************************************************************************
4 --
5 --  Copyright (c) 1996 Oracle Corporation, Redwood Shores, CA, USA
6 --  All rights reserved.
7 --
8 --  FILENAME
9 --
10 --      BOMBREVIB.pls
11 --
12 --  DESCRIPTION
13 --
14 --      Body of package BOM_RTG_EXP_UTIL
15 --
16 --  NOTES
17 --
18 --  HISTORY
19 --
20 --  06-OCT-02   M V M P Tilak    Initial Creation
21 ***************************************************************************/
22 
23 FUNCTION Get_Item_Name(P_inventory_item_id IN NUMBER) RETURN VARCHAR2 IS
24   l_item_name mtl_system_items_kfv.concatenated_segments%TYPE;
25 BEGIN
26   SELECT concatenated_segments
27   INTO   l_item_name
28   FROM   mtl_system_items_kfv
29   WHERE  inventory_item_id = P_inventory_item_id
30   AND    rownum = 1;
31   RETURN l_item_name;
32   EXCEPTION
33     WHEN OTHERS THEN
34       RETURN NULL;
35 END Get_Item_Name;
36 
37 FUNCTION Get_Item_Id(P_item_name IN VARCHAR2) RETURN NUMBER IS
38   l_item_id NUMBER;
39 BEGIN
40   SELECT inventory_item_id
41   INTO   l_item_id
42   FROM   mtl_system_items_kfv
43   WHERE  concatenated_segments = P_item_name
44   AND    rownum = 1;
45   RETURN l_item_id;
46   EXCEPTION
47     WHEN OTHERS THEN
48       RETURN NULL;
49 END Get_Item_Id;
50 
51 FUNCTION Get_Location_Name(P_locator_id IN NUMBER,
52                           P_organization_id IN NUMBER) RETURN VARCHAR2 IS
53   l_locator_name MTL_ITEM_LOCATIONS_KFV.CONCATENATED_SEGMENTS%TYPE;
54 BEGIN
55   RETURN INV_PROJECT.GET_LOCSEGS(p_locator_id, p_organization_id);
56   EXCEPTION
57     WHEN OTHERS THEN
58       RETURN NULL;
59 END Get_Location_Name;
60 
61 FUNCTION Get_Locator_Id(P_location_Name    IN VARCHAR2,
62                         P_organization_id IN NUMBER) RETURN NUMBER IS
63   l_locator_id NUMBER;
64   l_ret_code NUMBER;
65   x_err_text varchar2(80);
66 BEGIN
67   l_ret_code := INVPUOPI.mtl_pr_parse_flex_name
68                          (org_id    => p_organization_id,
69                           flex_code => 'MTLL',
70                           flex_name => P_location_name,
71                           flex_id   => l_locator_id,
72                           set_id    => -1,
73                           err_text  => x_err_text);
74   IF (l_ret_code > 0) THEN
75     RETURN l_locator_id;
76   ELSE
77     RETURN NULL;
78   END IF;
79   EXCEPTION
80     WHEN OTHERS THEN
81       RETURN NULL;
82 END Get_Locator_Id;
83 
84 END BOM_RTG_EXP_UTIL;