[Home] [Help]
PACKAGE BODY: APPS.AK_REGION_GRP
Source
1 package body AK_REGION_GRP as
2 /* $Header: akdgregb.pls 120.2 2005/09/15 22:26:40 tshort ship $ */
3
4 --=======================================================
5 -- Procedure CREATE_ITEM
6 --
7 -- Usage Group API for creating a region item
8 --
9 -- Desc Calls the private API to creates a region item
10 -- using the given info
11 --
12 -- Results The API returns the standard p_return_status parameter
13 -- indicating one of the standard return statuses :
14 -- * Unexpected error
15 -- * Error
16 -- * Success
17 -- Parameters Region Item columns
18 --
19 -- Version Initial version number = 1.0
20 -- History Current version number = 1.0
21 --=======================================================
22 procedure CREATE_ITEM (
23 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
24 p_api_version_number IN NUMBER,
25 p_init_msg_tbl IN BOOLEAN := FALSE,
26 p_msg_count OUT NOCOPY NUMBER,
27 p_msg_data OUT NOCOPY VARCHAR2,
28 p_return_status OUT NOCOPY VARCHAR2,
29 p_region_application_id IN NUMBER,
30 p_region_code IN VARCHAR2,
31 p_attribute_application_id IN NUMBER,
32 p_attribute_code IN VARCHAR2,
33 p_display_sequence IN NUMBER,
34 p_node_display_flag IN VARCHAR2,
35 p_node_query_flag IN VARCHAR2,
36 p_attribute_label_length IN NUMBER,
37 p_display_value_length IN NUMBER,
38 p_bold IN VARCHAR2,
39 p_italic IN VARCHAR2,
40 p_vertical_alignment IN VARCHAR2,
41 p_horizontal_alignment IN VARCHAR2,
42 p_item_style IN VARCHAR2,
43 p_object_attribute_flag IN VARCHAR2,
44 p_icx_custom_call IN VARCHAR2 := FND_API.G_MISS_CHAR,
45 p_update_flag IN VARCHAR2,
46 p_required_flag IN VARCHAR2,
47 p_security_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
48 p_default_value_varchar2 IN VARCHAR2 := FND_API.G_MISS_CHAR,
49 p_default_value_number IN NUMBER := FND_API.G_MISS_NUM,
50 p_default_value_date IN DATE := FND_API.G_MISS_DATE,
51 p_lov_region_application_id IN NUMBER := FND_API.G_MISS_NUM,
52 p_lov_region_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
53 p_lov_foreign_key_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
54 p_lov_attribute_application_id IN NUMBER := FND_API.G_MISS_NUM,
55 p_lov_attribute_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
56 p_lov_default_flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
57 p_region_defaulting_api_pkg IN VARCHAR2 := FND_API.G_MISS_CHAR,
58 p_region_defaulting_api_proc IN VARCHAR2 := FND_API.G_MISS_CHAR,
59 p_region_validation_api_pkg IN VARCHAR2 := FND_API.G_MISS_CHAR,
60 p_region_validation_api_proc IN VARCHAR2 := FND_API.G_MISS_CHAR,
61 p_order_sequence IN NUMBER := FND_API.G_MISS_NUM,
62 p_order_direction IN VARCHAR2 := FND_API.G_MISS_CHAR,
63 p_display_height IN NUMBER := FND_API.G_MISS_NUM,
64 p_submit IN VARCHAR2,
65 p_encrypt IN VARCHAR2,
66 p_css_class_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
67 p_view_usage_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
68 p_view_attribute_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
69 p_nested_region_appl_id IN NUMBER := FND_API.G_MISS_NUM,
70 p_nested_region_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
71 p_url IN VARCHAR2 := FND_API.G_MISS_CHAR,
72 p_poplist_viewobject IN VARCHAR2 := FND_API.G_MISS_CHAR,
73 p_poplist_display_attr IN VARCHAR2 := FND_API.G_MISS_CHAR,
74 p_poplist_value_attr IN VARCHAR2 := FND_API.G_MISS_CHAR,
75 p_image_file_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
76 p_item_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
77 p_css_label_class_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
78 p_menu_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
79 p_flexfield_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
80 p_flexfield_application_id IN NUMBER := FND_API.G_MISS_NUM,
81 p_tabular_function_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
82 p_tip_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
83 p_tip_message_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
84 p_tip_message_application_id IN NUMBER := FND_API.G_MISS_NUM,
85 p_flex_segment_list IN VARCHAR2 := FND_API.G_MISS_CHAR,
86 p_entity_id IN VARCHAR2 := FND_API.G_MISS_CHAR,
87 p_anchor IN VARCHAR2 := FND_API.G_MISS_CHAR,
88 p_poplist_view_usage_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
89 p_user_customizable IN VARCHAR2 := FND_API.G_MISS_CHAR,
90 p_sortby_view_attribute_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
91 p_admin_customizable IN VARCHAR2 := FND_API.G_MISS_CHAR,
92 p_invoke_function_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
93 p_expansion IN NUMBER := FND_API.G_MISS_NUM,
94 p_als_max_length IN NUMBER := FND_API.G_MISS_NUM,
95 p_initial_sort_sequence IN VARCHAR2 := FND_API.G_MISS_CHAR,
96 p_customization_application_id IN NUMBER := FND_API.G_MISS_NUM,
97 p_customization_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
98 p_attribute_label_long IN VARCHAR2,
99 p_attribute_label_short IN VARCHAR2,
100 p_description IN VARCHAR2 := FND_API.G_MISS_CHAR
101 ) is
102 l_api_version_number CONSTANT number := 1.0;
103 l_api_name CONSTANT varchar2(30) := 'Create_Item';
104 l_return_status VARCHAR2(1);
105 l_pass NUMBER := 2;
106 l_copy_redo_flag BOOLEAN := FALSE;
107 begin
108 -- Check API version number
109 IF NOT FND_API.Compatible_API_Call (
110 l_api_version_number, p_api_version_number, l_api_name,
111 G_PKG_NAME) then
112 p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
113 return;
114 END IF;
115
116 -- Initialize the message table if requested.
117
118 if p_init_msg_tbl then
119 FND_MSG_PUB.initialize;
120 end if;
121
122 savepoint start_create_item;
123
124 -- Call private procedure to create a region item
125 AK_REGION_PVT.CREATE_ITEM (
126 p_validation_level => p_validation_level,
127 p_api_version_number => 1.0,
128 p_msg_count => p_msg_count,
129 p_msg_data => p_msg_data,
130 p_return_status => l_return_status,
131 p_region_application_id => p_region_application_id,
132 p_region_code => p_region_code,
133 p_attribute_application_id => p_attribute_application_id,
134 p_attribute_code => p_attribute_code,
135 p_display_sequence => p_display_sequence,
136 p_node_display_flag => p_node_display_flag,
137 p_node_query_flag => p_node_query_flag,
138 p_attribute_label_length => p_attribute_label_length,
139 p_display_value_length => p_display_value_length,
140 p_bold => p_bold,
141 p_italic => p_italic,
142 p_vertical_alignment => p_vertical_alignment,
143 p_horizontal_alignment => p_horizontal_alignment,
144 p_item_style => p_item_style,
145 p_object_attribute_flag => p_object_attribute_flag,
146 p_icx_custom_call => p_icx_custom_call,
147 p_update_flag => p_update_flag,
148 p_required_flag => p_required_flag,
149 p_security_code => p_security_code,
150 p_default_value_varchar2 => p_default_value_varchar2,
151 p_default_value_number => p_default_value_number,
152 p_default_value_date => p_default_value_date,
153 p_lov_region_application_id => p_lov_region_application_id,
154 p_lov_region_code => p_lov_region_code,
155 p_lov_foreign_key_name => p_lov_foreign_key_name,
156 p_lov_attribute_application_id => p_lov_attribute_application_id,
157 p_lov_attribute_code => p_lov_attribute_code,
158 p_lov_default_flag => p_lov_default_flag,
159 p_region_defaulting_api_pkg => p_region_defaulting_api_pkg,
160 p_region_defaulting_api_proc => p_region_defaulting_api_proc,
161 p_region_validation_api_pkg => p_region_validation_api_pkg,
162 p_region_validation_api_proc => p_region_validation_api_proc,
163 p_order_sequence => p_order_sequence,
164 p_order_direction => p_order_direction,
165 p_display_height => p_display_height,
166 p_submit => p_submit,
167 p_encrypt => p_encrypt,
168 p_css_class_name => p_css_class_name,
169 p_view_usage_name => p_view_usage_name,
170 p_view_attribute_name => p_view_attribute_name,
171 p_nested_region_appl_id => p_nested_region_appl_id,
172 p_nested_region_code => p_nested_region_code,
173 p_url => p_url,
174 p_poplist_viewobject => p_poplist_viewobject,
175 p_poplist_display_attr => p_poplist_display_attr,
176 p_poplist_value_attr => p_poplist_value_attr,
177 p_image_file_name => p_image_file_name,
178 p_item_name => p_item_name,
179 p_css_label_class_name => p_css_label_class_name,
180 p_menu_name => p_menu_name,
181 p_flexfield_name => p_flexfield_name,
182 p_flexfield_application_id => p_flexfield_application_id,
183 p_tabular_function_code => p_tabular_function_code,
184 p_tip_type => p_tip_type,
185 p_tip_message_name => p_tip_message_name,
186 p_tip_message_application_id => p_tip_message_application_id ,
187 p_flex_segment_list => p_flex_segment_list,
188 p_entity_id => p_entity_id,
189 p_anchor => p_anchor,
190 p_poplist_view_usage_name => p_poplist_view_usage_name,
191 p_user_customizable => p_user_customizable,
192 p_sortby_view_attribute_name => p_sortby_view_attribute_name,
193 p_admin_customizable => p_admin_customizable,
194 p_invoke_function_name => p_invoke_function_name,
195 p_expansion => p_expansion,
196 p_als_max_length => p_als_max_length,
197 p_initial_sort_sequence => p_initial_sort_sequence,
198 p_customization_application_id => p_customization_application_id,
199 p_customization_code => p_customization_code,
200 p_attribute_label_long => p_attribute_label_long,
201 p_attribute_label_short => p_attribute_label_short,
202 p_description => p_description,
203 p_pass => l_pass,
204 p_copy_redo_flag => l_copy_redo_flag
205 );
206
207 -- If API call returns with an error status...
208 if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
209 (l_return_status = FND_API.G_RET_STS_ERROR) then
210 --dbms_output.put_line(l_api_name || ' Create_Item failed');
211 RAISE FND_API.G_EXC_ERROR;
212 end if;
213
214 p_return_status := FND_API.G_RET_STS_SUCCESS;
215
216 EXCEPTION
217 WHEN FND_API.G_EXC_ERROR THEN
218 p_return_status := FND_API.G_RET_STS_ERROR;
219 rollback to start_create_item;
220 WHEN OTHERS THEN
221 p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
222 rollback to start_create_item;
223 FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
224 SUBSTR (SQLERRM, 1, 240) );
225 FND_MSG_PUB.Add;
226 end CREATE_ITEM;
227
228 --=======================================================
229 -- Procedure CREATE_REGION
230 --
231 -- Usage Group API for creating a region
232 --
233 -- Desc Calls the private API to create a region
234 -- using the given info
235 --
236 -- Results The API returns the standard p_return_status parameter
237 -- indicating one of the standard return statuses :
238 -- * Unexpected error
239 -- * Error
240 -- * Success
241 -- Parameters Region columns
242 --
243 -- Version Initial version number = 1.0
244 -- History Current version number = 1.0
245 --=======================================================
246 procedure CREATE_REGION (
247 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
248 p_api_version_number IN NUMBER,
249 p_init_msg_tbl IN BOOLEAN := FALSE,
250 p_msg_count OUT NOCOPY NUMBER,
251 p_msg_data OUT NOCOPY VARCHAR2,
252 p_return_status OUT NOCOPY VARCHAR2,
253 p_region_application_id IN NUMBER,
254 p_region_code IN VARCHAR2,
255 p_database_object_name IN VARCHAR2,
256 p_region_style IN VARCHAR2,
257 p_icx_custom_call IN VARCHAR2 := FND_API.G_MISS_CHAR,
258 p_num_columns IN NUMBER := FND_API.G_MISS_NUM,
259 p_region_defaulting_api_pkg IN VARCHAR2 := FND_API.G_MISS_CHAR,
260 p_region_defaulting_api_proc IN VARCHAR2 := FND_API.G_MISS_CHAR,
261 p_region_validation_api_pkg IN VARCHAR2 := FND_API.G_MISS_CHAR,
262 p_region_validation_api_proc IN VARCHAR2 := FND_API.G_MISS_CHAR,
263 p_appmodule_object_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
264 p_num_rows_display IN NUMBER := FND_API.G_MISS_NUM,
265 p_region_object_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
266 p_image_file_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
267 p_isform_flag IN VARCHAR2,
268 p_help_target IN VARCHAR2 := FND_API.G_MISS_CHAR,
269 p_style_sheet_filename IN VARCHAR2 := FND_API.G_MISS_CHAR,
270 p_version IN VARCHAR2 := FND_API.G_MISS_CHAR,
271 p_applicationmodule_usage_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
272 p_add_indexed_children IN VARCHAR2 := FND_API.G_MISS_CHAR,
273 p_stateful_flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
274 p_function_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
275 p_children_view_usage_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
276 p_search_panel IN VARCHAR2 := FND_API.G_MISS_CHAR,
277 p_advanced_search_panel IN VARCHAR2 := FND_API.G_MISS_CHAR,
278 p_customize_panel IN VARCHAR2 := FND_API.G_MISS_CHAR,
279 p_default_search_panel IN VARCHAR2 := FND_API.G_MISS_CHAR,
280 p_results_based_search IN VARCHAR2 := FND_API.G_MISS_CHAR,
281 p_display_graph_table IN VARCHAR2 := FND_API.G_MISS_CHAR,
282 p_disable_header IN VARCHAR2 := FND_API.G_MISS_CHAR,
283 p_standalone IN VARCHAR2 := FND_API.G_MISS_CHAR,
284 p_auto_customization_criteria IN VARCHAR2 := FND_API.G_MISS_CHAR,
285 p_name IN VARCHAR2,
286 p_description IN VARCHAR2 := FND_API.G_MISS_CHAR
287 ) is
288 l_api_version_number CONSTANT number := 1.0;
289 l_api_name CONSTANT varchar2(30) := 'Create_Region';
290 l_return_status VARCHAR2(1);
291 l_pass NUMBER := 2;
292 l_copy_redo_flag BOOLEAN := FALSE;
293 begin
294 -- Check API version number
295 IF NOT FND_API.Compatible_API_Call (
296 l_api_version_number, p_api_version_number, l_api_name,
297 G_PKG_NAME) then
298 p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
299 return;
300 END IF;
301
302 -- Initialize the message table if requested.
303
304 if p_init_msg_tbl then
305 FND_MSG_PUB.initialize;
306 end if;
307
308 savepoint start_create_region;
309
310 -- Call private procedure to create a region
311 AK_REGION_PVT.CREATE_REGION (
312 p_validation_level => p_validation_level,
313 p_api_version_number => 1.0,
314 p_msg_count => p_msg_count,
315 p_msg_data => p_msg_data,
316 p_return_status => l_return_status,
317 p_region_application_id => p_region_application_id,
318 p_region_code => p_region_code,
319 p_database_object_name => p_database_object_name,
320 p_region_style => p_region_style,
321 p_icx_custom_call => p_icx_custom_call,
322 p_num_columns => p_num_columns,
323 p_region_defaulting_api_pkg => p_region_defaulting_api_pkg,
324 p_region_defaulting_api_proc => p_region_defaulting_api_proc,
325 p_region_validation_api_pkg => p_region_validation_api_pkg,
326 p_region_validation_api_proc => p_region_validation_api_proc,
327 p_appmodule_object_type => p_appmodule_object_type,
328 p_num_rows_display => p_num_rows_display,
329 p_region_object_type => p_region_object_type,
330 p_image_file_name => p_image_file_name,
331 p_isform_flag => p_isform_flag,
332 p_help_target => p_help_target,
333 p_style_sheet_filename => p_style_sheet_filename,
334 p_version => p_version,
335 p_applicationmodule_usage_name => p_applicationmodule_usage_name,
336 p_add_indexed_children => p_add_indexed_children,
337 p_stateful_flag => p_stateful_flag,
338 p_function_name => p_function_name,
339 p_children_view_usage_name => p_children_view_usage_name,
340 p_search_panel => p_search_panel,
341 p_advanced_search_panel => p_advanced_search_panel,
342 p_customize_panel => p_customize_panel,
343 p_default_search_panel => p_default_search_panel,
344 p_results_based_search => p_results_based_search,
345 p_display_graph_table => p_display_graph_table,
346 p_disable_header => p_disable_header,
347 p_standalone => p_standalone,
348 p_auto_customization_criteria => p_auto_customization_criteria,
349 p_name => p_name,
350 p_description => p_description,
351 p_pass => l_pass,
352 p_copy_redo_flag => l_copy_redo_flag
353 );
354
355 -- If API call returns with an error status...
356 if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
357 (l_return_status = FND_API.G_RET_STS_ERROR) then
358 --dbms_output.put_line(l_api_name || ' Create_Region failed');
359 RAISE FND_API.G_EXC_ERROR;
360 end if;
361
362 p_return_status := FND_API.G_RET_STS_SUCCESS;
363
364 EXCEPTION
365 WHEN FND_API.G_EXC_ERROR THEN
366 p_return_status := FND_API.G_RET_STS_ERROR;
367 rollback to start_create_region;
368 WHEN OTHERS THEN
369 p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
370 rollback to start_create_region;
371 FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
372 SUBSTR (SQLERRM, 1, 240) );
373 FND_MSG_PUB.Add;
374 end CREATE_REGION;
375
376 --=======================================================
377 -- Procedure DELETE_ITEM
378 --
379 -- Usage Group API for deleting a region item
380 --
381 -- Desc Calls the private API to delete a region item
382 -- with the given key value.
383 --
384 -- Results The API returns the standard p_return_status parameter
385 -- indicating one of the standard return statuses :
386 -- * Unexpected error
387 -- * Error
388 -- * Success
389 -- Parameters p_region_application_id : IN required
390 -- p_region_code : IN required
391 -- p_attribute_application_id : IN required
392 -- p_attribute_code : IN required
393 -- Key value of the region item to be deleted
394 -- p_delete_cascade : IN required
395 -- If p_delete_cascade flag is 'Y', also delete all
396 -- rows in other tables that references this record.
397 -- Otherwise, this record will not be deleted if there
398 -- are any other rows referencing it.
399 --
400 -- Version Initial version number = 1.0
401 -- History Current version number = 1.0
402 --=======================================================
403 procedure DELETE_ITEM (
404 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
405 p_api_version_number IN NUMBER,
406 p_init_msg_tbl IN BOOLEAN := FALSE,
407 p_msg_count OUT NOCOPY NUMBER,
408 p_msg_data OUT NOCOPY VARCHAR2,
409 p_return_status OUT NOCOPY VARCHAR2,
410 p_region_application_id IN NUMBER,
411 p_region_code IN VARCHAR2,
412 p_attribute_application_id IN NUMBER,
413 p_attribute_code IN VARCHAR2,
414 p_delete_cascade IN VARCHAR2 := 'N'
415 ) is
416 l_api_version_number CONSTANT number := 1.0;
417 l_api_name CONSTANT varchar2(30) := 'Delete_Item';
418 l_return_status VARCHAR2(1);
419 begin
420 -- Check API version number
421 IF NOT FND_API.Compatible_API_Call (
422 l_api_version_number, p_api_version_number, l_api_name,
423 G_PKG_NAME) then
424 p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
425 return;
426 END IF;
427
428 -- Initialize the message table if requested.
429
430 if p_init_msg_tbl then
431 FND_MSG_PUB.initialize;
432 end if;
433
434 savepoint start_delete_item;
435
436 -- Call private procedure to create a region
437 AK_REGION_PVT.DELETE_ITEM (
438 p_validation_level => p_validation_level,
439 p_api_version_number => 1.0,
440 p_msg_count => p_msg_count,
441 p_msg_data => p_msg_data,
442 p_return_status => l_return_status,
443 p_region_application_id => p_region_application_id,
444 p_region_code => p_region_code,
445 p_attribute_application_id => p_attribute_application_id,
446 p_attribute_code => p_attribute_code,
447 p_delete_cascade => p_delete_cascade
448 );
449
450 -- If API call returns with an error status...
451 if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
452 (l_return_status = FND_API.G_RET_STS_ERROR) then
453 RAISE FND_API.G_EXC_ERROR;
454 end if;
455
456 p_return_status := FND_API.G_RET_STS_SUCCESS;
457
458 EXCEPTION
459 WHEN FND_API.G_EXC_ERROR THEN
460 p_return_status := FND_API.G_RET_STS_ERROR;
461 rollback to start_delete_item;
462 WHEN OTHERS THEN
463 p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
464 rollback to start_delete_item;
465 FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
466 SUBSTR (SQLERRM, 1, 240) );
467 FND_MSG_PUB.Add;
468 end DELETE_ITEM;
469
470 --=======================================================
471 -- Procedure DELETE_REGION
472 --
473 -- Usage Group API for deleting a region
474 --
475 -- Desc Calls the private API to delete a region
476 -- with the given key value.
477 --
478 -- Results The API returns the standard p_return_status parameter
479 -- indicating one of the standard return statuses :
480 -- * Unexpected error
481 -- * Error
482 -- * Success
483 -- Parameters p_region_application_id : IN required
484 -- p_region_code : IN required
485 -- Key value of the region to be deleted
486 -- p_delete_cascade : IN required
487 -- If p_delete_cascade flag is 'Y', also delete all
488 -- rows in other tables that references this record.
489 -- Otherwise, this record will not be deleted if there
490 -- are any other rows referencing it.
491 --
492 -- Version Initial version number = 1.0
493 -- History Current version number = 1.0
494 --=======================================================
495 procedure DELETE_REGION (
496 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
497 p_api_version_number IN NUMBER,
498 p_init_msg_tbl IN BOOLEAN := FALSE,
499 p_msg_count OUT NOCOPY NUMBER,
500 p_msg_data OUT NOCOPY VARCHAR2,
501 p_return_status OUT NOCOPY VARCHAR2,
502 p_region_application_id IN NUMBER,
503 p_region_code IN VARCHAR2,
504 p_delete_cascade IN VARCHAR2 := 'N'
505 ) is
506 l_api_version_number CONSTANT number := 1.0;
507 l_api_name CONSTANT varchar2(30) := 'Delete_Region';
508 l_return_status VARCHAR2(1);
509 begin
510 -- Check API version number
511 IF NOT FND_API.Compatible_API_Call (
512 l_api_version_number, p_api_version_number, l_api_name,
513 G_PKG_NAME) then
514 p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
515 return;
516 END IF;
517
518 -- Initialize the message table if requested.
519
520 if p_init_msg_tbl then
521 FND_MSG_PUB.initialize;
522 end if;
523
524 savepoint start_delete_region;
525
526 -- Call private procedure to create a region
527 AK_REGION_PVT.DELETE_REGION (
528 p_validation_level => p_validation_level,
529 p_api_version_number => 1.0,
530 p_msg_count => p_msg_count,
531 p_msg_data => p_msg_data,
532 p_return_status => l_return_status,
533 p_region_application_id => p_region_application_id,
534 p_region_code => p_region_code,
535 p_delete_cascade => p_delete_cascade
536 );
537
538 -- If API call returns with an error status...
539 if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
540 (l_return_status = FND_API.G_RET_STS_ERROR) then
541 RAISE FND_API.G_EXC_ERROR;
542 end if;
543
544 p_return_status := FND_API.G_RET_STS_SUCCESS;
545
546 EXCEPTION
547 WHEN FND_API.G_EXC_ERROR THEN
548 p_return_status := FND_API.G_RET_STS_ERROR;
549 rollback to start_delete_region;
550 WHEN OTHERS THEN
551 p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
552 rollback to start_delete_region;
553 FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
554 SUBSTR (SQLERRM, 1, 240) );
555 FND_MSG_PUB.Add;
556 end DELETE_REGION;
557
558 --=======================================================
559 -- Procedure DOWNLOAD_REGION
560 --
561 -- Usage Group API for downloading regions
562 --
563 -- Desc This API first write out standard loader
564 -- file header for regions to a flat file.
565 -- Then it calls the private API to extract the
566 -- regions selected by application ID or by
567 -- key values from the database to the output file.
568 -- If a region is selected for writing to the loader
569 -- file, all its children records (including region
570 -- items) will also be written.
571 --
572 -- Results The API returns the standard p_return_status parameter
573 -- indicating one of the standard return statuses :
574 -- * Unexpected error
575 -- * Error
576 -- * Success
577 -- Parameters
578 -- p_nls_language : IN optional
579 -- NLS language for database. If none if given,
580 -- the current NLS language will be used.
581 --
582 -- One of the following three parameters must be given:
583 --
584 -- p_application_id : IN optional
585 -- If given, all regions for this application ID
586 -- will be written to the output file.
587 -- p_application_short_name : IN optional
588 -- If given, all regions for this application short
589 -- name will be written to the output file.
590 -- Application short name will be ignored if an
591 -- application ID is given.
592 -- p_oregion_pk_tbl : IN optional
593 -- If given, only regions whose key values are
594 -- included in this table will be written to the
595 -- output file.
596 --
597 --
598 -- Version Initial version number = 1.0
599 -- History Current version number = 1.0
600 --=======================================================
601 procedure DOWNLOAD_REGION (
602 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
603 p_api_version_number IN NUMBER,
604 p_init_msg_tbl IN BOOLEAN := FALSE,
605 p_msg_count OUT NOCOPY NUMBER,
606 p_msg_data OUT NOCOPY VARCHAR2,
607 p_return_status OUT NOCOPY VARCHAR2,
608 p_nls_language IN VARCHAR2 := FND_API.G_MISS_CHAR,
609 p_application_id IN NUMBER := FND_API.G_MISS_NUM,
610 p_application_short_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
611 p_region_pk_tbl IN AK_REGION_PUB.Region_PK_Tbl_Type
612 := AK_REGION_PUB.G_MISS_REGION_PK_TBL
613 ) is
614 l_api_version_number CONSTANT number := 1.0;
615 l_api_name CONSTANT varchar2(30) := 'Download_Region';
616 l_application_id number;
617 l_buffer_tbl AK_ON_OBJECTS_PUB.Buffer_Tbl_Type;
618 l_index NUMBER;
619 l_index_out NUMBER;
620 l_nls_language VARCHAR2(30);
621 l_return_status varchar2(1);
622 l_region_pk_tbl AK_REGION_PUB.Region_PK_Tbl_Type;
623 begin
624
625 -- Check verion number
626 IF NOT FND_API.Compatible_API_Call (
627 l_api_version_number, p_api_version_number, l_api_name,
628 G_PKG_NAME) then
629 p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
630 return;
631 END IF;
632
633 -- Initialize the message table if requested.
634
635 if p_init_msg_tbl then
636 FND_MSG_PUB.initialize;
637 end if;
638
639 savepoint Start_download;
640
641 l_region_pk_tbl := p_region_pk_tbl;
642
643 if (AK_DOWNLOAD_GRP.G_WRITE_HEADER) then
644 -- Call private download procedure to verify parameters,
645 -- load application ID, and write header information such
646 -- as nls_language and codeset to data file.
647 AK_ON_OBJECTS_PVT.download_header(
648 p_validation_level => p_validation_level,
649 p_api_version_number => 1.0,
650 p_return_status => l_return_status,
651 p_nls_language => p_nls_language,
652 p_application_id => p_application_id,
653 p_application_short_name => p_application_short_name,
654 p_table_size => p_region_pk_tbl.count,
655 p_download_by_object => AK_ON_OBJECTS_PVT.G_REGION,
656 p_nls_language_out => l_nls_language,
657 p_application_id_out => l_application_id
658 );
659 else
660 l_application_id := p_application_id;
661 select userenv('LANG') into l_nls_language
662 from dual;
663 end if;
664
665 -- If API call returns with an error status...
666 if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
667 (l_return_status = FND_API.G_RET_STS_ERROR) then
668 --dbms_output.put_line(G_PKG_NAME || ' download_header failed');
669 RAISE FND_API.G_EXC_ERROR;
670 end if;
671
672 -- - call the download procedure for regions to retrieve the
673 -- selected regions and their referenced objects and attributes
674 -- from the database into a table of buffer.
675 AK_REGION_PVT.DOWNLOAD_REGION (
676 p_validation_level => p_validation_level,
677 p_api_version_number => 1.0,
678 p_return_status => l_return_status,
679 p_application_id => l_application_id,
680 p_region_pk_tbl => l_region_pk_tbl,
681 p_nls_language => l_nls_language,
682 p_get_object_flag => 'Y'
683 );
684
685 -- If download call returns with an error status or
686 -- download failed to retrieve any information from the database..
687 if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
688 (l_return_status = FND_API.G_RET_STS_ERROR) then
689 --dbms_output.put_line(G_PKG_NAME || 'download failed');
690 RAISE FND_API.G_EXC_ERROR;
691 end if;
692
693 --dbms_output.put_line('got ' || to_char(l_buffer_tbl.count) || ' lines');
694
695 p_return_status := FND_API.G_RET_STS_SUCCESS;
696
697 FND_MSG_PUB.Count_And_Get (
698 p_count => p_msg_count,
699 p_data => p_msg_data);
700
701 EXCEPTION
702 WHEN FND_API.G_EXC_ERROR THEN
703 rollback to Start_download;
704 p_return_status := FND_API.G_RET_STS_ERROR;
705 FND_MSG_PUB.Count_And_Get (
706 p_count => p_msg_count,
707 p_data => p_msg_data);
708 WHEN OTHERS THEN
709 p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
710 rollback to Start_download;
711 FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
712 SUBSTR (SQLERRM, 1, 240) );
713 FND_MSG_PUB.Add;
714 FND_MSG_PUB.Count_And_Get (
715 p_count => p_msg_count,
716 p_data => p_msg_data);
717
718 end DOWNLOAD_REGION;
719
720 --=======================================================
721 -- Procedure UPDATE_ITEM
722 --
723 -- Usage Group API for updating a region item
724 --
725 -- Desc This API calls the private API to update
726 -- a region item using the given info
727 --
728 -- Results The API returns the standard p_return_status parameter
729 -- indicating one of the standard return statuses :
730 -- * Unexpected error
731 -- * Error
732 -- * Success
733 -- Parameters Region item columns
734 --
735 -- Version Initial version number = 1.0
736 -- History Current version number = 1.0
737 --=======================================================
738 procedure UPDATE_ITEM (
739 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
740 p_api_version_number IN NUMBER,
741 p_init_msg_tbl IN BOOLEAN := FALSE,
742 p_msg_count OUT NOCOPY NUMBER,
743 p_msg_data OUT NOCOPY VARCHAR2,
744 p_return_status OUT NOCOPY VARCHAR2,
745 p_region_application_id IN NUMBER,
746 p_region_code IN VARCHAR2,
747 p_attribute_application_id IN NUMBER,
748 p_attribute_code IN VARCHAR2,
749 p_display_sequence IN NUMBER := FND_API.G_MISS_NUM,
750 p_node_display_flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
751 p_node_query_flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
752 p_attribute_label_length IN NUMBER := FND_API.G_MISS_NUM,
753 p_display_value_length IN NUMBER := FND_API.G_MISS_NUM,
754 p_bold IN VARCHAR2 := FND_API.G_MISS_CHAR,
755 p_italic IN VARCHAR2 := FND_API.G_MISS_CHAR,
756 p_vertical_alignment IN VARCHAR2 := FND_API.G_MISS_CHAR,
757 p_horizontal_alignment IN VARCHAR2 := FND_API.G_MISS_CHAR,
758 p_item_style IN VARCHAR2 := FND_API.G_MISS_CHAR,
759 p_object_attribute_flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
760 p_icx_custom_call IN VARCHAR2 := FND_API.G_MISS_CHAR,
761 p_update_flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
762 p_required_flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
763 p_security_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
764 p_default_value_varchar2 IN VARCHAR2 := FND_API.G_MISS_CHAR,
765 p_default_value_number IN NUMBER := FND_API.G_MISS_NUM,
766 p_default_value_date IN DATE := FND_API.G_MISS_DATE,
767 p_lov_region_application_id IN NUMBER := FND_API.G_MISS_NUM,
768 p_lov_region_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
769 p_lov_foreign_key_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
770 p_lov_attribute_application_id IN NUMBER := FND_API.G_MISS_NUM,
771 p_lov_attribute_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
772 p_lov_default_flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
773 p_region_defaulting_api_pkg IN VARCHAR2 := FND_API.G_MISS_CHAR,
774 p_region_defaulting_api_proc IN VARCHAR2 := FND_API.G_MISS_CHAR,
775 p_region_validation_api_pkg IN VARCHAR2 := FND_API.G_MISS_CHAR,
776 p_region_validation_api_proc IN VARCHAR2 := FND_API.G_MISS_CHAR,
777 p_order_sequence IN NUMBER := FND_API.G_MISS_NUM,
778 p_order_direction IN VARCHAR2 := FND_API.G_MISS_CHAR,
779 p_display_height IN NUMBER := FND_API.G_MISS_NUM,
780 p_submit IN VARCHAR2,
781 p_encrypt IN VARCHAR2,
782 p_css_class_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
783 p_view_usage_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
784 p_view_attribute_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
785 p_nested_region_appl_id IN NUMBER := FND_API.G_MISS_NUM,
786 p_nested_region_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
787 p_url IN VARCHAR2 := FND_API.G_MISS_CHAR,
788 p_poplist_viewobject IN VARCHAR2 := FND_API.G_MISS_CHAR,
789 p_poplist_display_attr IN VARCHAR2 := FND_API.G_MISS_CHAR,
790 p_poplist_value_attr IN VARCHAR2 := FND_API.G_MISS_CHAR,
791 p_image_file_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
792 p_item_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
793 p_css_label_class_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
794 p_menu_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
795 p_flexfield_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
796 p_flexfield_application_id IN NUMBER := FND_API.G_MISS_NUM,
797 p_tabular_function_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
798 p_tip_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
799 p_tip_message_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
800 p_tip_message_application_id IN NUMBER := FND_API.G_MISS_NUM,
801 p_flex_segment_list IN VARCHAR2 := FND_API.G_MISS_CHAR,
802 p_entity_id IN VARCHAR2 := FND_API.G_MISS_CHAR,
803 p_anchor IN VARCHAR2 := FND_API.G_MISS_CHAR,
804 p_poplist_view_usage_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
805 p_user_customizable IN VARCHAR2 := FND_API.G_MISS_CHAR,
806 p_sortby_view_attribute_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
807 p_admin_customizable IN VARCHAR2 := FND_API.G_MISS_CHAR,
808 p_invoke_function_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
809 p_expansion IN NUMBER := FND_API.G_MISS_NUM,
810 p_als_max_length IN NUMBER := FND_API.G_MISS_NUM,
811 p_initial_sort_sequence IN VARCHAR2 := FND_API.G_MISS_CHAR,
812 p_customization_application_id IN NUMBER := FND_API.G_MISS_NUM,
813 p_customization_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
814 p_attribute_label_long IN VARCHAR2 := FND_API.G_MISS_CHAR,
815 p_attribute_label_short IN VARCHAR2 := FND_API.G_MISS_CHAR,
816 p_description IN VARCHAR2 := FND_API.G_MISS_CHAR
817 ) is
818 l_api_version_number CONSTANT number := 1.0;
819 l_api_name CONSTANT varchar2(30) := 'Update_Item';
820 l_return_status VARCHAR2(1);
821 l_pass NUMBER := 2;
822 l_copy_redo_flag BOOLEAN := FALSE;
823 begin
824 -- Check API version number
825 IF NOT FND_API.Compatible_API_Call (
826 l_api_version_number, p_api_version_number, l_api_name,
827 G_PKG_NAME) then
828 p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
829 return;
830 END IF;
831
832 -- Initialize the message table if requested.
833
834 if p_init_msg_tbl then
835 FND_MSG_PUB.initialize;
836 end if;
837
838 savepoint start_update_item;
839
840 -- Call private procedure to update a region item
841 AK_REGION_PVT.UPDATE_ITEM (
842 p_validation_level => p_validation_level,
843 p_api_version_number => 1.0,
844 p_msg_count => p_msg_count,
845 p_msg_data => p_msg_data,
846 p_return_status => l_return_status,
847 p_region_application_id => p_region_application_id,
848 p_region_code => p_region_code,
849 p_attribute_application_id => p_attribute_application_id,
850 p_attribute_code => p_attribute_code,
851 p_display_sequence => p_display_sequence,
852 p_node_display_flag => p_node_display_flag,
853 p_node_query_flag => p_node_query_flag,
854 p_attribute_label_length => p_attribute_label_length,
855 p_display_value_length => p_display_value_length,
856 p_bold => p_bold,
857 p_italic => p_italic,
858 p_vertical_alignment => p_vertical_alignment,
859 p_horizontal_alignment => p_horizontal_alignment,
860 p_item_style => p_item_style,
861 p_object_attribute_flag => p_object_attribute_flag,
862 p_icx_custom_call => p_icx_custom_call,
863 p_update_flag => p_update_flag,
864 p_required_flag => p_required_flag,
865 p_security_code => p_security_code,
866 p_default_value_varchar2 => p_default_value_varchar2,
867 p_default_value_number => p_default_value_number,
868 p_default_value_date => p_default_value_date,
869 p_lov_region_application_id => p_lov_region_application_id,
870 p_lov_region_code => p_lov_region_code,
871 p_lov_foreign_key_name => p_lov_foreign_key_name,
872 p_lov_attribute_application_id => p_lov_attribute_application_id,
873 p_lov_attribute_code => p_lov_attribute_code,
874 p_lov_default_flag => p_lov_default_flag,
875 p_region_defaulting_api_pkg => p_region_defaulting_api_pkg,
876 p_region_defaulting_api_proc => p_region_defaulting_api_proc,
877 p_region_validation_api_pkg => p_region_validation_api_pkg,
878 p_region_validation_api_proc => p_region_validation_api_proc,
879 p_order_sequence => p_order_sequence,
880 p_order_direction => p_order_direction,
881 p_display_height => p_display_height,
882 p_submit => p_submit,
883 p_encrypt => p_encrypt,
884 p_css_class_name => p_css_class_name,
885 p_view_usage_name => p_view_usage_name,
886 p_view_attribute_name => p_view_attribute_name,
887 p_nested_region_appl_id => p_nested_region_appl_id,
888 p_nested_region_code => p_nested_region_code,
889 p_url => p_url,
890 p_poplist_viewobject => p_poplist_viewobject,
891 p_poplist_display_attr => p_poplist_display_attr,
892 p_poplist_value_attr => p_poplist_value_attr,
893 p_image_file_name => p_image_file_name,
894 p_item_name => p_item_name,
895 p_css_label_class_name => p_css_label_class_name,
896 p_menu_name => p_menu_name,
897 p_flexfield_name => p_flexfield_name,
898 p_flexfield_application_id => p_flexfield_application_id,
899 p_tabular_function_code => p_tabular_function_code,
900 p_tip_type => p_tip_type,
901 p_tip_message_name => p_tip_message_name,
902 p_tip_message_application_id => p_tip_message_application_id ,
903 p_flex_segment_list => p_flex_segment_list,
904 p_entity_id => p_entity_id,
905 p_anchor => p_anchor,
906 p_poplist_view_usage_name => p_poplist_view_usage_name,
907 p_user_customizable => p_user_customizable,
908 p_sortby_view_attribute_name => p_sortby_view_attribute_name,
909 p_admin_customizable => p_admin_customizable,
910 p_invoke_function_name => p_invoke_function_name,
911 p_expansion => p_expansion,
912 p_als_max_length => p_als_max_length,
913 p_initial_sort_sequence => p_initial_sort_sequence,
914 p_customization_application_id => p_customization_application_id,
915 p_customization_code => p_customization_code,
916 p_attribute_label_long => p_attribute_label_long,
917 p_attribute_label_short => p_attribute_label_short,
918 p_description => p_description,
919 p_pass => l_pass,
920 p_copy_redo_flag => l_copy_redo_flag
921 );
922
923 -- If API call returns with an error status...
924 if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
925 (l_return_status = FND_API.G_RET_STS_ERROR) then
926 --dbms_output.put_line(l_api_name || ' Update_Item failed');
927 RAISE FND_API.G_EXC_ERROR;
928 end if;
929
930 p_return_status := FND_API.G_RET_STS_SUCCESS;
931
932 EXCEPTION
933 WHEN FND_API.G_EXC_ERROR THEN
934 p_return_status := FND_API.G_RET_STS_ERROR;
935 rollback to start_update_item;
936 WHEN OTHERS THEN
937 p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
938 rollback to start_update_item;
939 FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
940 SUBSTR (SQLERRM, 1, 240) );
941 FND_MSG_PUB.Add;
942 end UPDATE_ITEM;
943
944 --=======================================================
945 -- Procedure UPDATE_REGION
946 --
947 -- Usage Group API for updating a region
948 --
949 -- Desc This API calls the private API to update
950 -- a region using the given info
951 --
952 -- Results The API returns the standard p_return_status parameter
953 -- indicating one of the standard return statuses :
954 -- * Unexpected error
955 -- * Error
956 -- * Success
957 -- Parameters Region columns
958 --
959 -- Version Initial version number = 1.0
960 -- History Current version number = 1.0
961 --=======================================================
962 procedure UPDATE_REGION (
963 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
964 p_api_version_number IN NUMBER,
965 p_init_msg_tbl IN BOOLEAN := FALSE,
966 p_msg_count OUT NOCOPY NUMBER,
967 p_msg_data OUT NOCOPY VARCHAR2,
968 p_return_status OUT NOCOPY VARCHAR2,
969 p_region_application_id IN NUMBER,
970 p_region_code IN VARCHAR2,
971 p_database_object_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
972 p_region_style IN VARCHAR2 := FND_API.G_MISS_CHAR,
973 p_icx_custom_call IN VARCHAR2 := FND_API.G_MISS_CHAR,
974 p_num_columns IN NUMBER := FND_API.G_MISS_NUM,
975 p_region_defaulting_api_pkg IN VARCHAR2 := FND_API.G_MISS_CHAR,
976 p_region_defaulting_api_proc IN VARCHAR2 := FND_API.G_MISS_CHAR,
977 p_region_validation_api_pkg IN VARCHAR2 := FND_API.G_MISS_CHAR,
978 p_region_validation_api_proc IN VARCHAR2 := FND_API.G_MISS_CHAR,
979 p_appmodule_object_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
980 p_num_rows_display IN NUMBER := FND_API.G_MISS_NUM,
981 p_region_object_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
982 p_image_file_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
983 p_isform_flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
984 p_help_target IN VARCHAR2 := FND_API.G_MISS_CHAR,
985 p_style_sheet_filename IN VARCHAR2 := FND_API.G_MISS_CHAR,
986 p_version IN VARCHAR2 := FND_API.G_MISS_CHAR,
987 p_applicationmodule_usage_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
988 p_add_indexed_children IN VARCHAR2 := FND_API.G_MISS_CHAR,
989 p_stateful_flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
990 p_function_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
991 p_children_view_usage_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
992 p_search_panel IN VARCHAR2 := FND_API.G_MISS_CHAR,
993 p_advanced_search_panel IN VARCHAR2 := FND_API.G_MISS_CHAR,
994 p_customize_panel IN VARCHAR2 := FND_API.G_MISS_CHAR,
995 p_default_search_panel IN VARCHAR2 := FND_API.G_MISS_CHAR,
996 p_results_based_search IN VARCHAR2 := FND_API.G_MISS_CHAR,
997 p_display_graph_table IN VARCHAR2 := FND_API.G_MISS_CHAR,
998 p_disable_header IN VARCHAR2 := FND_API.G_MISS_CHAR,
999 p_standalone IN VARCHAR2 := FND_API.G_MISS_CHAR,
1000 p_auto_customization_criteria IN VARCHAR2 := FND_API.G_MISS_CHAR,
1001 p_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
1002 p_description IN VARCHAR2 := FND_API.G_MISS_CHAR
1003 ) is
1004 l_api_version_number CONSTANT number := 1.0;
1005 l_api_name CONSTANT varchar2(30) := 'Update_Region';
1006 l_return_status VARCHAR2(1);
1007 l_pass NUMBER := 2;
1008 l_copy_redo_flag BOOLEAN := FALSE;
1009 begin
1010 -- Check API version number
1011 IF NOT FND_API.Compatible_API_Call (
1012 l_api_version_number, p_api_version_number, l_api_name,
1013 G_PKG_NAME) then
1014 p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1015 return;
1016 END IF;
1017
1018 -- Initialize the message table if requested.
1019
1020 if p_init_msg_tbl then
1021 FND_MSG_PUB.initialize;
1022 end if;
1023
1024 savepoint start_update_region;
1025
1026 -- Call private procedure to update a region
1027 AK_REGION_PVT.UPDATE_REGION (
1028 p_validation_level => p_validation_level,
1029 p_api_version_number => 1.0,
1030 p_msg_count => p_msg_count,
1031 p_msg_data => p_msg_data,
1032 p_return_status => l_return_status,
1033 p_region_application_id => p_region_application_id,
1034 p_region_code => p_region_code,
1035 p_database_object_name => p_database_object_name,
1036 p_region_style => p_region_style,
1037 p_icx_custom_call => p_icx_custom_call,
1038 p_num_columns => p_num_columns,
1039 p_region_defaulting_api_pkg => p_region_defaulting_api_pkg,
1040 p_region_defaulting_api_proc => p_region_defaulting_api_proc,
1041 p_region_validation_api_pkg => p_region_validation_api_pkg,
1042 p_region_validation_api_proc => p_region_validation_api_proc,
1043 p_appmodule_object_type => p_appmodule_object_type,
1044 p_num_rows_display => p_num_rows_display,
1045 p_region_object_type => p_region_object_type,
1046 p_image_file_name => p_image_file_name,
1047 p_isform_flag => p_isform_flag,
1048 p_help_target => p_help_target,
1049 p_style_sheet_filename => p_style_sheet_filename,
1050 p_version => p_version,
1051 p_applicationmodule_usage_name => p_applicationmodule_usage_name,
1052 p_add_indexed_children => p_add_indexed_children,
1053 p_stateful_flag => p_stateful_flag,
1054 p_function_name => p_function_name,
1055 p_children_view_usage_name => p_children_view_usage_name,
1056 p_search_panel => p_search_panel,
1057 p_advanced_search_panel => p_advanced_search_panel,
1058 p_customize_panel => p_customize_panel,
1059 p_default_search_panel => p_default_search_panel,
1060 p_results_based_search => p_results_based_search,
1061 p_display_graph_table => p_display_graph_table,
1062 p_disable_header => p_disable_header,
1063 p_standalone => p_standalone,
1064 p_auto_customization_criteria => p_auto_customization_criteria,
1065 p_name => p_name,
1066 p_description => p_description,
1067 p_pass => l_pass,
1068 p_copy_redo_flag => l_copy_redo_flag
1069 );
1070
1071 -- If API call returns with an error status...
1072 if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1073 (l_return_status = FND_API.G_RET_STS_ERROR) then
1074 --dbms_output.put_line(l_api_name || ' Update_Region failed');
1075 RAISE FND_API.G_EXC_ERROR;
1076 end if;
1077
1078 p_return_status := FND_API.G_RET_STS_SUCCESS;
1079
1080 EXCEPTION
1081 WHEN FND_API.G_EXC_ERROR THEN
1082 p_return_status := FND_API.G_RET_STS_ERROR;
1083 rollback to start_update_region;
1084 WHEN OTHERS THEN
1085 p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1086 rollback to start_update_region;
1087 FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
1088 SUBSTR (SQLERRM, 1, 240) );
1089 FND_MSG_PUB.Add;
1090 end UPDATE_REGION;
1091
1092 end AK_REGION_GRP;