PACKAGE BODY: APPS.BOM_SET_CONTEXT

Source

1 PACKAGE BODY Bom_Set_Context AS
2 /* $Header: BOMSCTXB.pls 120.1 2005/09/28 04:47:13 earumuga noship $*/
3 --
4 --  Copyright (c) 2000 Oracle Corporation, Redwood Shores, CA, USA
5 --  All rights reserved.
6 --
7 --  FILENAME
8 --
9 --    BOMSCTXB.pls
10 --
11 --  DESCRIPTION
12 --
13 --      Package body Bom_Set_Context
14 --	This will be used for setting the values in context STRUCT_TYPE_CTX
15 --
16 --  NOTES
17 --
18 --  HISTORY
19 --
20 --  24-SEP-2003 Deepak Jebar      Initial Creation
21 --  03-SEP-2004 Hari Gelli        Added code to store the StructureTypeId of
22 --                                'Packaging Heirarchy' into the session.
23    PROCEDURE  set_struct_type_context(p_struct_type IN VARCHAR2 DEFAULT NULL) IS
24      l_structure_type_id NUMBER;
25      l_pkghier_type_id NUMBER;
26    BEGIN
27       SELECT structure_type_id
28       INTO l_structure_type_id
29       FROM bom_structure_types_b
30       WHERE structure_type_name = nvl(p_struct_type,'All-Structure Types');
31 
32       DBMS_SESSION.SET_CONTEXT('Struct_Type_Ctx','struct_type_id',l_structure_type_id);
33 
34       l_pkghier_type_id := null;
35       BEGIN
36         SELECT structure_type_id
37           INTO l_pkghier_type_id
38         FROM bom_structure_types_b
39         WHERE structure_type_name = 'Packaging Hierarchy';
40       EXCEPTION
41       WHEN NO_DATA_FOUND THEN
42         NULL;
43       END;
44 
45       DBMS_SESSION.SET_CONTEXT('Struct_Type_Ctx','pkg_struct_type_id',l_pkghier_type_id);
46    END set_struct_type_context;
47 
48    PROCEDURE set_application_id IS
49      resp_appl_id NUMBER;
50    BEGIN
51       SELECT fnd_global.resp_appl_id INTO resp_appl_id
52         FROM dual;
53       DBMS_SESSION.SET_CONTEXT('Struct_Type_Ctx', 'appl_id', resp_appl_id);
54       set_struct_type_context('Asset BOM');
55    END set_application_id;
56 
57    PROCEDURE set_application_id (p_appl_resp_id IN NUMBER) IS
58    BEGIN
59       DBMS_SESSION.SET_CONTEXT('Struct_Type_Ctx', 'appl_id', p_appl_resp_id);
60       set_struct_type_context('Asset BOM');
61    END set_application_id;
62 END Bom_Set_Context;