[Home] [Help]
PACKAGE BODY: APPS.PER_RI_MNG_CFG_PKG
Source
1 PACKAGE BODY per_ri_mng_cfg_pkg AS
2 /* $Header: perrimngcfg.pkb 120.0 2005/06/01 00:51:47 appldev noship $ */
3
4 PROCEDURE delete_configuration
5 (
6 p_config_code In Varchar2 ,
7 p_ovn In Number ,
8 p_msg Out nocopy Varchar2
9 )
10
11
12 Is
13 cursor csr_config_info is
14 select CONFIG_INFORMATION_ID , OBJECT_VERSION_NUMBER
15 from per_ri_config_information
16 where CONFIGURATION_CODE = p_config_code;
17
18 cursor csr_config_loc is
19 select location_id , OBJECT_VERSION_NUMBER
20 from per_ri_config_locations
21 where CONFIGURATION_CODE = p_config_code;
22
23 begin
24
25 for rec in csr_config_info loop
26
27 per_ri_config_information_api.DELETE_CONFIG_INFORMATION
28 (
29 P_VALIDATE => false,
30 P_CONFIG_INFORMATION_ID => rec.CONFIG_INFORMATION_ID ,
31 P_OBJECT_VERSION_NUMBER => rec.OBJECT_VERSION_NUMBER
32 );
33
34 end loop;
35
36
37 for rec in csr_config_loc loop
38
39 per_ri_config_location_api.DELETE_LOCATION
40 (
41 P_VALIDATE => false,
42 P_LOCATION_ID => rec.location_id ,
43 P_OBJECT_VERSION_NUMBER => rec.OBJECT_VERSION_NUMBER
44 );
45 end loop;
46
47
48 per_ri_configuration_api.DELETE_CONFIGURATION
49 (
50 P_VALIDATE => false,
51 P_CONFIGURATION_CODE => p_config_code,
52 P_OBJECT_VERSION_NUMBER => p_ovn
53 );
54
55
56 commit;
57
58 p_msg:= 'SUCCESS';
59
60 End delete_configuration;
61
62
63
64
65
66
67 -- duplicate_configuration
68 /*config code is same as the config name*/
69 PROCEDURE duplicate_configuration
70 (
71 p_config_code In Varchar2 ,--config code of the config which is to be duplicated
72 p_config_name In Varchar2 ,--config name as entered by the user
73 p_config_desc In Varchar2 ,
74 p_esn In Varchar2 ,
75 p_msg Out nocopy Varchar2
76
77 )
78
79 Is
80
81 -- p_configuration_code : config code of the new duplicate configuration.
82 -- p_location_id : locationid of the parent configuration's per_ri_config_information row.
83
84 cursor csr_get_locid (p_location_id number, p_configuration_code varchar2)
85 is
86 select loc2.location_id
87 from per_ri_config_locations loc1,per_ri_config_locations loc2
88 where loc2.CONFIGURATION_CODE = p_configuration_code
89 and loc1.location_id = p_location_id
90 and loc2.location_code = loc1.location_code
91 and loc1.location_id <> loc2.location_id;
92
93
94
95 cursor csr_config_copy is
96 select
97 CONFIGURATION_CODE ,
98 CONFIGURATION_TYPE ,
99 CONFIGURATION_STATUS ,
100 CONFIGURATION_NAME ,
101 CONFIGURATION_DESCRIPTION ,
102 OBJECT_VERSION_NUMBER ,
103 LAST_UPDATE_DATE ,
104 LAST_UPDATED_BY ,
105 LAST_UPDATE_LOGIN ,
106 CREATED_BY ,
107 CREATION_DATE
108 from per_ri_configurations_vl
109 where CONFIGURATION_CODE = p_config_code;
110
111
112
113
114 cursor csr_config_info is
115 select CONFIG_INFORMATION_ID ,
116 CONFIG_SEQUENCE ,
117 CONFIG_INFORMATION_CATEGORY ,
118 CONFIG_INFORMATION1 ,
119 CONFIG_INFORMATION2 ,
120 CONFIG_INFORMATION3 ,
121 CONFIG_INFORMATION4 ,
122 CONFIG_INFORMATION5 ,
123 CONFIG_INFORMATION6 ,
124 CONFIG_INFORMATION7 ,
125 CONFIG_INFORMATION8 ,
126 CONFIG_INFORMATION9 ,
127 CONFIG_INFORMATION10 ,
128 CONFIG_INFORMATION11 ,
129 CONFIG_INFORMATION12 ,
130 CONFIG_INFORMATION13 ,
131 CONFIG_INFORMATION14 ,
132 CONFIG_INFORMATION15 ,
133 CONFIG_INFORMATION16 ,
134 CONFIG_INFORMATION17 ,
135 CONFIG_INFORMATION18 ,
136 CONFIG_INFORMATION19 ,
137 CONFIG_INFORMATION20 ,
138 CONFIG_INFORMATION21 ,
139 CONFIG_INFORMATION22 ,
140 CONFIG_INFORMATION23 ,
141 CONFIG_INFORMATION24 ,
142 CONFIG_INFORMATION25 ,
143 CONFIG_INFORMATION26 ,
144 CONFIG_INFORMATION27 ,
145 CONFIG_INFORMATION28 ,
146 CONFIG_INFORMATION29 ,
147 CONFIG_INFORMATION30 ,
148 LAST_UPDATE_DATE ,
149 LAST_UPDATED_BY ,
150 LAST_UPDATE_LOGIN ,
151 CREATED_BY ,
152 CREATION_DATE
153 from per_ri_config_information
154 where CONFIGURATION_CODE = p_config_code;
155
156
157 cursor csr_config_loc is
158 select
159 CONFIGURATION_CONTEXT ,
160 LOCATION_CODE ,
161 DESCRIPTION ,
162 STYLE ,
163 ADDRESS_LINE_1 ,
164 ADDRESS_LINE_2 ,
165 ADDRESS_LINE_3 ,
166 TOWN_OR_CITY ,
167 COUNTRY ,
168 POSTAL_CODE ,
169 REGION_1 ,
170 REGION_2 ,
171 REGION_3 ,
172 TELEPHONE_NUMBER_1 ,
173 TELEPHONE_NUMBER_2 ,
174 TELEPHONE_NUMBER_3 ,
175 LOC_INFORMATION13 ,
176 LOC_INFORMATION14 ,
177 LOC_INFORMATION15 ,
178 LOC_INFORMATION16 ,
179 LOC_INFORMATION17 ,
180 LOC_INFORMATION18 ,
181 LOC_INFORMATION19 ,
182 LOC_INFORMATION20 ,
183 LAST_UPDATE_DATE ,
184 LAST_UPDATED_BY ,
185 LAST_UPDATE_LOGIN ,
186 CREATED_BY ,
187 CREATION_DATE
188 from per_ri_config_locations
189 where CONFIGURATION_CODE = p_config_code;
190
191
192
193 cursor csr_config_copy_exists is
194 select 1
195 from per_ri_configurations_vl
196 where configuration_code = p_config_name;
197
198
199
200 l_config_ovn number;
201 l_config_info_id number;
202 l_config_info_ovn number;
203 l_config_loc_ovn number;
204 l_config_loc_id number;
205 l_dummy number;
206 l_config_code varchar(100);
207 l_child_location_id number;
208
209
210
211
212 begin
213
214 l_config_code:=upper(p_config_name);
215 l_config_code :=replace(l_config_code,' ','_');
216
217
218 open csr_config_copy_exists;
219 fetch csr_config_copy_exists into l_dummy;
220 if(csr_config_copy_exists%NOTFOUND)
221 then
222
223 for rec in csr_config_copy loop
224 per_ri_configuration_api.CREATE_CONFIGURATION
225 (
226 P_VALIDATE => false,
227 P_CONFIGURATION_CODE => l_config_code,
228 P_CONFIGURATION_TYPE => rec.CONFIGURATION_TYPE ,
229 P_CONFIGURATION_STATUS => 'COMPLETE',
230 P_CONFIGURATION_NAME => p_config_name,
231 P_CONFIGURATION_DESCRIPTION => p_config_desc,
232 P_LANGUAGE_CODE => 'US',
233 P_EFFECTIVE_DATE => SYSDATE,
234 P_OBJECT_VERSION_NUMBER => l_config_ovn
235 );
236
237 end loop; -- this loop will run only once.
238
239 for rec in csr_config_loc loop
240
241 per_ri_config_location_api.CREATE_LOCATION
242 (
243 P_VALIDATE => false,
244 P_CONFIGURATION_CODE => l_config_code,
245 P_CONFIGURATION_CONTEXT => rec.CONFIGURATION_CONTEXT,
246 P_LOCATION_CODE => rec.LOCATION_CODE,
247 P_DESCRIPTION => rec.DESCRIPTION,
248 P_STYLE => rec.STYLE,
249 P_ADDRESS_LINE_1 => rec.ADDRESS_LINE_1,
250 P_ADDRESS_LINE_2 => rec.ADDRESS_LINE_2,
251 P_ADDRESS_LINE_3 => rec.ADDRESS_LINE_3,
252 P_TOWN_OR_CITY => rec.TOWN_OR_CITY,
253 P_COUNTRY => rec.COUNTRY,
254 P_POSTAL_CODE => rec.POSTAL_CODE,
255 P_REGION_1 => rec.REGION_1 ,
256 P_REGION_2 => rec.REGION_2,
257 P_REGION_3 => rec.REGION_3,
258 P_TELEPHONE_NUMBER_1 => rec.TELEPHONE_NUMBER_1,
259 P_TELEPHONE_NUMBER_2 => rec.TELEPHONE_NUMBER_2,
260 P_TELEPHONE_NUMBER_3 => rec.TELEPHONE_NUMBER_3,
261 P_LOC_INFORMATION13 => rec.LOC_INFORMATION13 ,
262 P_LOC_INFORMATION14 => rec.LOC_INFORMATION14 ,
263 P_LOC_INFORMATION15 => rec.LOC_INFORMATION15 ,
264 P_LOC_INFORMATION16 => rec.LOC_INFORMATION16 ,
265 P_LOC_INFORMATION17 => rec.LOC_INFORMATION17 ,
266 P_LOC_INFORMATION18 => rec.LOC_INFORMATION18 ,
267 P_LOC_INFORMATION19 => rec.LOC_INFORMATION19 ,
268 P_LOC_INFORMATION20 => rec.LOC_INFORMATION20 ,
269 P_LANGUAGE_CODE => 'US',
270 P_EFFECTIVE_DATE => SYSDATE,
271 P_OBJECT_VERSION_NUMBER => l_config_loc_ovn,
272 P_LOCATION_ID => l_config_loc_id
273 );
274 end loop;
275
276
277
278
279
280
281
282 for rec in csr_config_info loop
283
284
285 l_child_location_id := null;
286
287 if(rec.CONFIG_INFORMATION_CATEGORY = 'CONFIG LEGAL ENTITY')
288 then
289
290 open csr_get_locid(rec.CONFIG_INFORMATION5,l_config_code);
291 fetch csr_get_locid into l_child_location_id;
292 per_ri_config_information_api.CREATE_CONFIG_INFORMATION
293 (
294 P_VALIDATE => false,
295 P_CONFIGURATION_CODE => l_config_code,
296 P_CONFIG_INFORMATION_CATEGORY => rec.CONFIG_INFORMATION_CATEGORY ,
297 P_CONFIG_SEQUENCE => rec.CONFIG_SEQUENCE ,
298 P_CONFIG_INFORMATION1 => rec.CONFIG_INFORMATION1,
299 P_CONFIG_INFORMATION2 => rec.CONFIG_INFORMATION2,
300 P_CONFIG_INFORMATION3 => rec.CONFIG_INFORMATION3,
301 P_CONFIG_INFORMATION4 => rec.CONFIG_INFORMATION4,
302 P_CONFIG_INFORMATION5 => l_child_location_id,
303 P_CONFIG_INFORMATION6 => rec.CONFIG_INFORMATION6,
304 P_CONFIG_INFORMATION7 => rec.CONFIG_INFORMATION7,
305 P_CONFIG_INFORMATION8 => rec.CONFIG_INFORMATION8,
306 P_CONFIG_INFORMATION9 => rec.CONFIG_INFORMATION9,
307 P_CONFIG_INFORMATION10 => rec.CONFIG_INFORMATION10,
308 P_CONFIG_INFORMATION11 => rec.CONFIG_INFORMATION11,
309 P_CONFIG_INFORMATION12 => rec.CONFIG_INFORMATION12,
310 P_CONFIG_INFORMATION13 => rec.CONFIG_INFORMATION13,
311 P_CONFIG_INFORMATION14 => rec.CONFIG_INFORMATION14,
312 P_CONFIG_INFORMATION15 => rec.CONFIG_INFORMATION15,
313 P_CONFIG_INFORMATION16 => rec.CONFIG_INFORMATION16,
314 P_CONFIG_INFORMATION17 => rec.CONFIG_INFORMATION17,
315 P_CONFIG_INFORMATION18 => rec.CONFIG_INFORMATION18,
316 P_CONFIG_INFORMATION19 => rec.CONFIG_INFORMATION19,
317 P_CONFIG_INFORMATION20 => rec.CONFIG_INFORMATION20,
318 P_CONFIG_INFORMATION21 => rec.CONFIG_INFORMATION21,
319 P_CONFIG_INFORMATION22 => rec.CONFIG_INFORMATION22,
320 P_CONFIG_INFORMATION23 => rec.CONFIG_INFORMATION23,
321 P_CONFIG_INFORMATION24 => rec.CONFIG_INFORMATION24,
322 P_CONFIG_INFORMATION25 => rec.CONFIG_INFORMATION25,
323 P_CONFIG_INFORMATION26 => rec.CONFIG_INFORMATION26,
324 P_CONFIG_INFORMATION27 => rec.CONFIG_INFORMATION27,
325 P_CONFIG_INFORMATION28 => rec.CONFIG_INFORMATION28,
326 P_CONFIG_INFORMATION29 => rec.CONFIG_INFORMATION29,
327 P_CONFIG_INFORMATION30 => rec.CONFIG_INFORMATION30,
328 P_LANGUAGE_CODE => 'US',
329 P_EFFECTIVE_DATE => SYSDATE,
330 P_CONFIG_INFORMATION_ID => l_config_info_id,
331 P_OBJECT_VERSION_NUMBER => l_config_info_ovn
332
333 );
334
335 close csr_get_locid;
336 elsif(rec.CONFIG_INFORMATION_CATEGORY = 'CONFIG ENTERPRISE')
337 then
338
339 open csr_get_locid(rec.CONFIG_INFORMATION5,l_config_code);
340 fetch csr_get_locid into l_child_location_id;
341 per_ri_config_information_api.CREATE_CONFIG_INFORMATION
342 (
343 P_VALIDATE => false,
344 P_CONFIGURATION_CODE => l_config_code,
345 P_CONFIG_INFORMATION_CATEGORY => rec.CONFIG_INFORMATION_CATEGORY ,
346 P_CONFIG_SEQUENCE => rec.CONFIG_SEQUENCE ,
347 P_CONFIG_INFORMATION1 => rec.CONFIG_INFORMATION1,
348 P_CONFIG_INFORMATION2 => p_esn, --ENTERPRISE SHORT NAME
349 P_CONFIG_INFORMATION3 => rec.CONFIG_INFORMATION3,
350 P_CONFIG_INFORMATION4 => rec.CONFIG_INFORMATION4,
351 P_CONFIG_INFORMATION5 => l_child_location_id,
352 P_CONFIG_INFORMATION6 => rec.CONFIG_INFORMATION6,
353 P_CONFIG_INFORMATION7 => rec.CONFIG_INFORMATION7,
354 P_CONFIG_INFORMATION8 => rec.CONFIG_INFORMATION8,
355 P_CONFIG_INFORMATION9 => rec.CONFIG_INFORMATION9,
356 P_CONFIG_INFORMATION10 => rec.CONFIG_INFORMATION10,
357 P_CONFIG_INFORMATION11 => rec.CONFIG_INFORMATION11,
358 P_CONFIG_INFORMATION12 => rec.CONFIG_INFORMATION12,
359 P_CONFIG_INFORMATION13 => rec.CONFIG_INFORMATION13,
360 P_CONFIG_INFORMATION14 => rec.CONFIG_INFORMATION14,
361 P_CONFIG_INFORMATION15 => rec.CONFIG_INFORMATION15,
362 P_CONFIG_INFORMATION16 => rec.CONFIG_INFORMATION16,
363 P_CONFIG_INFORMATION17 => rec.CONFIG_INFORMATION17,
364 P_CONFIG_INFORMATION18 => rec.CONFIG_INFORMATION18,
365 P_CONFIG_INFORMATION19 => rec.CONFIG_INFORMATION19,
366 P_CONFIG_INFORMATION20 => rec.CONFIG_INFORMATION20,
367 P_CONFIG_INFORMATION21 => rec.CONFIG_INFORMATION21,
368 P_CONFIG_INFORMATION22 => rec.CONFIG_INFORMATION22,
369 P_CONFIG_INFORMATION23 => rec.CONFIG_INFORMATION23,
370 P_CONFIG_INFORMATION24 => rec.CONFIG_INFORMATION24,
371 P_CONFIG_INFORMATION25 => rec.CONFIG_INFORMATION25,
372 P_CONFIG_INFORMATION26 => rec.CONFIG_INFORMATION26,
373 P_CONFIG_INFORMATION27 => rec.CONFIG_INFORMATION27,
374 P_CONFIG_INFORMATION28 => rec.CONFIG_INFORMATION28,
375 P_CONFIG_INFORMATION29 => rec.CONFIG_INFORMATION29,
376 P_CONFIG_INFORMATION30 => rec.CONFIG_INFORMATION30,
377 P_LANGUAGE_CODE => 'US',
378 P_EFFECTIVE_DATE => SYSDATE,
379 P_CONFIG_INFORMATION_ID => l_config_info_id,
380 P_OBJECT_VERSION_NUMBER => l_config_info_ovn
381
382 );
383
384 close csr_get_locid;
385
386 elsif(rec.CONFIG_INFORMATION_CATEGORY = 'CONFIG OPERATING COMPANY')
387 then
388 open csr_get_locid(rec.CONFIG_INFORMATION4,l_config_code);
389 fetch csr_get_locid into l_child_location_id;
390
391 per_ri_config_information_api.CREATE_CONFIG_INFORMATION
392 (
393 P_VALIDATE => false,
394 P_CONFIGURATION_CODE => l_config_code,
395 P_CONFIG_INFORMATION_CATEGORY => rec.CONFIG_INFORMATION_CATEGORY ,
396 P_CONFIG_SEQUENCE => rec.CONFIG_SEQUENCE ,
397 P_CONFIG_INFORMATION1 => rec.CONFIG_INFORMATION1,
398 P_CONFIG_INFORMATION2 => rec.CONFIG_INFORMATION2,
399 P_CONFIG_INFORMATION3 => rec.CONFIG_INFORMATION3,
400 P_CONFIG_INFORMATION4 => l_child_location_id,
401 P_CONFIG_INFORMATION5 => rec.CONFIG_INFORMATION5,
402 P_CONFIG_INFORMATION6 => rec.CONFIG_INFORMATION6,
403 P_CONFIG_INFORMATION7 => rec.CONFIG_INFORMATION7,
404 P_CONFIG_INFORMATION8 => rec.CONFIG_INFORMATION8,
405 P_CONFIG_INFORMATION9 => rec.CONFIG_INFORMATION9,
406 P_CONFIG_INFORMATION10 => rec.CONFIG_INFORMATION10,
407 P_CONFIG_INFORMATION11 => rec.CONFIG_INFORMATION11,
408 P_CONFIG_INFORMATION12 => rec.CONFIG_INFORMATION12,
409 P_CONFIG_INFORMATION13 => rec.CONFIG_INFORMATION13,
410 P_CONFIG_INFORMATION14 => rec.CONFIG_INFORMATION14,
411 P_CONFIG_INFORMATION15 => rec.CONFIG_INFORMATION15,
412 P_CONFIG_INFORMATION16 => rec.CONFIG_INFORMATION16,
413 P_CONFIG_INFORMATION17 => rec.CONFIG_INFORMATION17,
414 P_CONFIG_INFORMATION18 => rec.CONFIG_INFORMATION18,
415 P_CONFIG_INFORMATION19 => rec.CONFIG_INFORMATION19,
416 P_CONFIG_INFORMATION20 => rec.CONFIG_INFORMATION20,
417 P_CONFIG_INFORMATION21 => rec.CONFIG_INFORMATION21,
418 P_CONFIG_INFORMATION22 => rec.CONFIG_INFORMATION22,
419 P_CONFIG_INFORMATION23 => rec.CONFIG_INFORMATION23,
420 P_CONFIG_INFORMATION24 => rec.CONFIG_INFORMATION24,
421 P_CONFIG_INFORMATION25 => rec.CONFIG_INFORMATION25,
422 P_CONFIG_INFORMATION26 => rec.CONFIG_INFORMATION26,
423 P_CONFIG_INFORMATION27 => rec.CONFIG_INFORMATION27,
424 P_CONFIG_INFORMATION28 => rec.CONFIG_INFORMATION28,
425 P_CONFIG_INFORMATION29 => rec.CONFIG_INFORMATION29,
426 P_CONFIG_INFORMATION30 => rec.CONFIG_INFORMATION30,
427 P_LANGUAGE_CODE => 'US',
428 P_EFFECTIVE_DATE => SYSDATE,
429 P_CONFIG_INFORMATION_ID => l_config_info_id,
430 P_OBJECT_VERSION_NUMBER => l_config_info_ovn
431
432 );
433
434 close csr_get_locid;
435
436 else
437 per_ri_config_information_api.CREATE_CONFIG_INFORMATION
438 (
439 P_VALIDATE => false,
440 P_CONFIGURATION_CODE => l_config_code,
441 P_CONFIG_INFORMATION_CATEGORY => rec.CONFIG_INFORMATION_CATEGORY ,
442 P_CONFIG_SEQUENCE => rec.CONFIG_SEQUENCE ,
443 P_CONFIG_INFORMATION1 => rec.CONFIG_INFORMATION1,
444 P_CONFIG_INFORMATION2 => rec.CONFIG_INFORMATION2,
445 P_CONFIG_INFORMATION3 => rec.CONFIG_INFORMATION3,
446 P_CONFIG_INFORMATION4 => rec.CONFIG_INFORMATION4,
447 P_CONFIG_INFORMATION5 => rec.CONFIG_INFORMATION5,
448 P_CONFIG_INFORMATION6 => rec.CONFIG_INFORMATION6,
449 P_CONFIG_INFORMATION7 => rec.CONFIG_INFORMATION7,
450 P_CONFIG_INFORMATION8 => rec.CONFIG_INFORMATION8,
451 P_CONFIG_INFORMATION9 => rec.CONFIG_INFORMATION9,
452 P_CONFIG_INFORMATION10 => rec.CONFIG_INFORMATION10,
453 P_CONFIG_INFORMATION11 => rec.CONFIG_INFORMATION11,
454 P_CONFIG_INFORMATION12 => rec.CONFIG_INFORMATION12,
455 P_CONFIG_INFORMATION13 => rec.CONFIG_INFORMATION13,
456 P_CONFIG_INFORMATION14 => rec.CONFIG_INFORMATION14,
457 P_CONFIG_INFORMATION15 => rec.CONFIG_INFORMATION15,
458 P_CONFIG_INFORMATION16 => rec.CONFIG_INFORMATION16,
459 P_CONFIG_INFORMATION17 => rec.CONFIG_INFORMATION17,
460 P_CONFIG_INFORMATION18 => rec.CONFIG_INFORMATION18,
461 P_CONFIG_INFORMATION19 => rec.CONFIG_INFORMATION19,
462 P_CONFIG_INFORMATION20 => rec.CONFIG_INFORMATION20,
463 P_CONFIG_INFORMATION21 => rec.CONFIG_INFORMATION21,
464 P_CONFIG_INFORMATION22 => rec.CONFIG_INFORMATION22,
465 P_CONFIG_INFORMATION23 => rec.CONFIG_INFORMATION23,
466 P_CONFIG_INFORMATION24 => rec.CONFIG_INFORMATION24,
467 P_CONFIG_INFORMATION25 => rec.CONFIG_INFORMATION25,
468 P_CONFIG_INFORMATION26 => rec.CONFIG_INFORMATION26,
469 P_CONFIG_INFORMATION27 => rec.CONFIG_INFORMATION27,
470 P_CONFIG_INFORMATION28 => rec.CONFIG_INFORMATION28,
471 P_CONFIG_INFORMATION29 => rec.CONFIG_INFORMATION29,
472 P_CONFIG_INFORMATION30 => rec.CONFIG_INFORMATION30,
473 P_LANGUAGE_CODE => 'US',
474 P_EFFECTIVE_DATE => SYSDATE,
475 P_CONFIG_INFORMATION_ID => l_config_info_id,
476 P_OBJECT_VERSION_NUMBER => l_config_info_ovn
477
478 );
479 end if;
480
481 end loop;
482
483
484
485
486 p_msg:= 'SUCCESS';
487 else
488 p_msg := 'ERROR';
489
490 end if;
491
492 close csr_config_copy_exists ;
493
494
495 end duplicate_configuration;
496
497
498
499
500 END per_ri_mng_cfg_pkg;
501
502