[Home] [Help]
PACKAGE BODY: APPS.FEM_BR_CONDITION_DIMENSION_PVT
Source
1 PACKAGE BODY FEM_BR_CONDITION_DIMENSION_PVT AS
2 /* $Header: FEMVCONDDIMB.pls 120.2.12010000.1 2008/12/11 01:02:46 huli noship $ */
3
4 --------------------------------------------------------------------------------
5 -- PRIVATE CONSTANTS
6 --------------------------------------------------------------------------------
7
8 G_PKG_NAME constant varchar2(30) := 'FEM_BR_CONDITION_DIMENSION_PVT';
9 G_FEM constant varchar2(3) := 'FEM';
10 G_BLOCK constant varchar2(80) := G_FEM||'.PLSQL.'||G_PKG_NAME;
11
12 -- Log Level Constants
13 G_LOG_LEVEL_1 constant number := FND_LOG.Level_Statement;
14 G_LOG_LEVEL_2 constant number := FND_LOG.Level_Procedure;
15 G_LOG_LEVEL_3 constant number := FND_LOG.Level_Event;
16 G_LOG_LEVEL_4 constant number := FND_LOG.Level_Exception;
17 G_LOG_LEVEL_5 constant number := FND_LOG.Level_Error;
18 G_LOG_LEVEL_6 constant number := FND_LOG.Level_Unexpected;
19
20
21 --------------------------------------------------------------------------------
22 -- PRIVATE SPECIFICATIONS
23 --------------------------------------------------------------------------------
24
25 --------------------------------------------------------------------------------
26 -- PUBLIC BODIES
27 --------------------------------------------------------------------------------
28
29 --
30 -- PROCEDURE
31 -- DeleteObjectDefinition
32 --
33 -- DESCRIPTION
34 -- Deletes all the details records of a Condition Dimension Definition.
35 --
36 -- IN
37 -- p_obj_def_id - Object Definition ID.
38 --
39 --------------------------------------------------------------------------------
40 PROCEDURE DeleteObjectDefinition(
41 p_obj_def_id in number
42 )
43 --------------------------------------------------------------------------------
44 IS
45
46 l_api_name constant varchar2(30) := 'DeleteObjectDefinition';
47
48 l_prg_msg VARCHAR2(2000);
49 l_callstack VARCHAR2(2000);
50
51 l_object_type_code fem_object_types.object_type_code%TYPE := NULL;
52
53 CURSOR c_object_type IS
54 SELECT object_type_code
55 FROM fem_object_catalog_b
56 WHERE object_id = (SELECT object_id
57 FROM fem_object_definition_b
58 WHERE object_definition_id = p_obj_def_id);
59
60 BEGIN
61
62 FEM_ENGINES_PKG.Tech_Message (
63 p_severity => G_LOG_LEVEL_3
64 ,p_module => G_BLOCK||'.'||l_api_name
65 ,p_msg_text => 'BEGIN, p_obj_def_id:' || p_obj_def_id
66 );
67 OPEN c_object_type;
68 FETCH c_object_type INTO l_object_type_code;
69 CLOSE c_object_type;
70 IF (l_object_type_code IS NOT NULL AND l_object_type_code = 'CONDITION_DIMENSION_COMPONENT') THEN
71 delete from fem_cond_dim_cmp_dtl
72 where cond_dim_cmp_obj_def_id = p_obj_def_id;
73
74 delete from fem_cond_dim_components
75 where cond_dim_cmp_obj_def_id = p_obj_def_id;
76 ELSE
77 fem_engines_pkg.user_message(p_app_name =>'FEM',
78 p_msg_name => 'FEM_INVALID_OBJECT_TYPE',
79 p_token1 => 'OBJTYPE',
80 p_value1 => l_object_type_code);
81 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
82 END IF;
83
84 FEM_ENGINES_PKG.Tech_Message (
85 p_severity => G_LOG_LEVEL_3
86 ,p_module => G_BLOCK||'.'||l_api_name
87 ,p_msg_text => 'END'
88 );
89
90 EXCEPTION
91
92 when others then
93 l_callstack := DBMS_UTILITY.Format_Call_Stack;
94 l_prg_msg := SQLERRM;
95 FEM_ENGINES_PKG.Tech_Message (
96 p_severity => G_LOG_LEVEL_6
97 ,p_module => G_BLOCK||'.'||l_api_name
98 ,p_msg_text => 'others condition, l_callstack:' || l_callstack
99 );
100 FEM_ENGINES_PKG.Tech_Message (
101 p_severity => G_LOG_LEVEL_6
102 ,p_module => G_BLOCK||'.'||l_api_name
103 ,p_msg_text => 'others condition, l_prg_msg:' || l_prg_msg
104 );
105
106 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
107 raise FND_API.G_EXC_UNEXPECTED_ERROR;
108
109 END DeleteObjectDefinition;
110
111
112
113 END FEM_BR_CONDITION_DIMENSION_PVT;