[Home] [Help]
PACKAGE BODY: APPS.FEM_BR_DIM_LDR_PVT
Source
1 PACKAGE BODY FEM_BR_DIM_LDR_PVT AS
2 /* $Header: FEMDIMLDRB.pls 120.0 2006/05/18 01:40:43 ugoswami noship $ */
3
4
5 g_pkg_name CONSTANT VARCHAR2(30) := 'FEM_BR_DIM_LDR_PVT';
6 c_module_pkg CONSTANT VARCHAR2(80) := 'fem.plsql.FEM_BR_DIM_LDR_PVT';
7
8 --------------------------------------------------------------------------------
9 --
10 -- PROCEDURE
11 -- DeleteObjectDefinition
12 --
13 -- DESCRIPTION
14 -- Deletes all the version related data stored outside of the Catalog of Objects.
15 --
16 -- IN
17 -- p_obj_def_id - Object Definition ID.
18 --
19 --------------------------------------------------------------------------------
20 PROCEDURE DeleteObjectDefinition(
21 p_obj_def_id IN NUMBER
22 )
23 IS
24 l_api_name CONSTANT VARCHAR2(30) := 'DeleteObjectDefinition';
25 BEGIN
26
27 FEM_ENGINES_PKG.Tech_Message (
28 p_severity => fnd_log.level_procedure
29 ,p_module => c_module_pkg||'.'||l_api_name
30 ,p_msg_text => 'Begining Procedure'
31 );
32
33 DELETE FROM fem_dim_load_dim_params WHERE loader_obj_def_id=p_obj_def_id;
34 DELETE FROM fem_dim_load_hier_params WHERE loader_obj_def_id=p_obj_def_id;
35 FEM_ENGINES_PKG.Tech_Message (
36 p_severity => fnd_log.level_procedure
37 ,p_module => c_module_pkg||'.'||l_api_name
38 ,p_msg_text => 'Ending Procedure'
39 );
40
41
42
43 EXCEPTION
44 WHEN others THEN
45 FEM_ENGINES_PKG.Tech_Message (
46 p_severity => fnd_log.level_unexpected
47 ,p_module => c_module_pkg||'.'||l_api_name
48 ,p_msg_text => SQLERRM
49 );
50 fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
51 RAISE fnd_api.g_exc_unexpected_error;
52
53
54 END DeleteObjectDefinition;
55
56
57
58
59 ----------------------------------------------------------------------------------
60 -- PROCEDURE
61 -- CopyObjectDefinition
62 --
63 -- DESCRIPTION
64 -- Duplicates the version related data stored outside
65 -- of the Catalog of Objects.
66 --
67 -- IN
68 -- p_source_obj_def_id - Source Object Definition ID.
69 -- p_target_obj_def_id - Target Object Definition ID.
70 -- p_created_by - FND User ID (optional).
71 -- p_creation_date - System Date (optional).
72 --------------------------------------------------------------------------------------
73
74 PROCEDURE CopyObjectDefinition(
75 p_source_obj_def_id IN NUMBER
76 ,p_target_obj_def_id IN NUMBER
77 ,p_created_by IN NUMBER
78 ,p_creation_date IN DATE
79 )
80
81 IS
82
83 l_api_name CONSTANT VARCHAR2(30) := 'CopyObjectDefinition';
84
85 BEGIN
86
87 FEM_ENGINES_PKG.Tech_Message (
88 p_severity => fnd_log.level_procedure
89 ,p_module => c_module_pkg||'.'||l_api_name
90 ,p_msg_text => 'Begining Procedure'
91 );
92
93 INSERT INTO fem_dim_load_dim_params(
94 loader_obj_def_id
95 ,dimension_id
96 ,created_by
97 ,creation_date
98 ,last_updated_by
99 ,last_update_date
100 ,last_update_login
101 ,object_version_number
102 )
103 SELECT
104 p_target_obj_def_id
105 ,dimension_id
106 ,nvl(p_created_by,fnd_global.user_id )
107 ,nvl(p_creation_date,sysdate)
108 ,nvl(p_created_by,fnd_global.user_id )
109 ,nvl(p_creation_date,sysdate)
110 ,fnd_global.login_id
111 ,0
112 FROM fem_dim_load_dim_params
113 WHERE loader_obj_def_id = p_source_obj_def_id;
114
115 INSERT INTO fem_dim_load_hier_params(
116 loader_comp_id
117 ,loader_obj_def_id
118 ,dimension_id
119 ,hier_obj_id
120 ,hier_obj_def_id
121 ,created_by
122 ,creation_date
123 ,last_updated_by
124 ,last_update_date
125 ,last_update_login
126 ,object_version_number
127 ) SELECT
128 fem_dim_loader_comp_id_seq.nextval
129 ,p_target_obj_def_id
130 ,dimension_id
131 ,hier_obj_id
132 ,hier_obj_def_id
133 ,nvl(p_created_by,fnd_global.user_id )
134 ,nvl(p_creation_date,sysdate)
135 ,nvl(p_created_by,fnd_global.user_id )
136 ,nvl(p_creation_date,sysdate)
137 ,fnd_global.login_id
138 ,0
139 FROM fem_dim_load_hier_params
140 WHERE LOADER_OBJ_DEF_ID = p_source_obj_def_id;
141
142 FEM_ENGINES_PKG.Tech_Message (
143 p_severity => fnd_log.level_procedure
144 ,p_module => c_module_pkg||'.'||l_api_name
145 ,p_msg_text => 'Ending Procedure'
146 );
147 EXCEPTION
148 WHEN others THEN
149 FEM_ENGINES_PKG.Tech_Message (
150 p_severity => fnd_log.level_unexpected
151 ,p_module => c_module_pkg||'.'||l_api_name
152 ,p_msg_text => SQLERRM
153 );
154
155 fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
156 RAISE fnd_api.g_exc_unexpected_error;
157
158 END CopyObjectDefinition;
159
160 ----------------------------------------------------------------------------------
161 -- FUNCTION
162 -- Definition_Details_Exist
163 --
164 -- DESCRIPTION
165 -- Checks if the detais for a definition exist in the tables.
166 --
167 --
168 -- IN
169 -- p_obj_def_id - Object Definition ID.
170
171 --------------------------------------------------------------------------------------
172
173 FUNCTION DefinitionDetailsExist(p_obj_def_id NUMBER) RETURN VARCHAR2
174 IS
175 l_no_of_rows NUMBER;
176 l_exists VARCHAR2(1) := 'N';
177 l_api_name CONSTANT VARCHAR2(30) := 'DefinitionDetailsExist';
178 BEGIN
179 FEM_ENGINES_PKG.Tech_Message (
180 p_severity => fnd_log.level_procedure
181 ,p_module => c_module_pkg||'.'||l_api_name
182 ,p_msg_text => 'Begining Function'
183 );
184
185 SELECT SUM(no_of_rows) INTO l_no_of_rows FROM
186 (SELECT COUNT(*) no_of_rows FROM fem_dim_load_hier_params WHERE loader_obj_def_id = p_obj_def_id
187 UNION
188 SELECT COUNT(*) no_of_rows FROM fem_dim_load_dim_params WHERE loader_obj_def_id = p_obj_def_id
189 );
190
191 IF l_no_of_rows > 0 THEN
192 l_exists := 'Y';
193 END IF;
194
195 FEM_ENGINES_PKG.Tech_Message (
196 p_severity => fnd_log.level_procedure
197 ,p_module => c_module_pkg||'.'||l_api_name
198 ,p_msg_text => 'Ending Function'
199 );
200
201
202 RETURN l_exists;
203
204
205 EXCEPTION
206 WHEN others THEN
207 FEM_ENGINES_PKG.Tech_Message (
208 p_severity => fnd_log.level_unexpected
209 ,p_module => c_module_pkg||'.'||l_api_name
210 ,p_msg_text => SQLERRM
211 );
212 fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
213 RAISE fnd_api.g_exc_unexpected_error;
214
215 END DefinitionDetailsExist;
216
217
218 END FEM_BR_DIM_LDR_PVT;
219