[Home] [Help]
PACKAGE BODY: APPS.BIS_CUSTOMIZATION_PUB
Source
1 PACKAGE BODY BIS_CUSTOMIZATION_PUB AS
2 /* $Header: BISPCSTB.pls 120.1 2006/02/14 13:28:13 hengliu noship $ */
3 -- dbdrv: sql ~PROD ~PATH ~FILE none none none package &phase=plb \
4 -- dbdrv: checkfile(115.1=120.1):~PROD:~PATH:~FILE
5
6 /*
7 REM +=======================================================================+
8 REM | Copyright (c) 2002 Oracle Corporation, Redwood Shores, CA, USA |
9 REM | All rights reserved. |
10 REM +=======================================================================+
11 REM | FILENAME |
12 REM | BISPCSTB.pls |
13 REM | |
14 REM | DESCRIPTION |
15 REM | Public API for creating ak Customization Data at function level |
16 REM | |
17 REM | NOTES |
18 REM | |
19 REM | HISTORY |
20 REM | 27-Apr-2005 kyadamak Creation |
21 REM | 14-Feb-2006 hengliu Added Delete_Custom_Region_Items |
22 REM +=======================================================================+
23 */
24 --
25
26
27 PROCEDURE Create_Custom_Region_Items
28 ( p_api_version IN NUMBER
29 , p_commit IN VARCHAR2 := FND_API.G_FALSE
30 , p_Custom_Region_Items_Rec IN BIS_CUSTOMIZATION_PUB.custom_region_items_type
31 , x_return_status OUT NOCOPY VARCHAR2
32 , x_msg_count OUT NOCOPY NUMBER
33 , x_msg_data OUT NOCOPY VARCHAR2
34 )
35 IS
36
37 BEGIN
38
39 FND_MSG_PUB.Initialize;
40 x_Return_Status := FND_API.G_RET_STS_SUCCESS;
41
42 BIS_CUSTOMIZATION_PVT.Create_Custom_Region_Items
43 ( p_api_version => p_api_version
44 , p_commit => p_commit
45 , p_Custom_Region_Items_Rec => p_Custom_Region_Items_Rec
46 , x_return_status => x_return_status
47 , x_msg_count => x_msg_count
48 , x_msg_data => x_msg_data
49 );
50 IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
51 RAISE FND_API.G_EXC_ERROR;
52 END IF;
53
54 EXCEPTION
55 WHEN FND_API.G_EXC_ERROR THEN
56 IF (x_msg_data IS NULL) THEN
57 FND_MSG_PUB.Count_And_Get
58 ( p_encoded => FND_API.G_FALSE
59 , p_count => x_msg_count
60 , p_data => x_msg_data
61 );
62 END IF;
63 x_return_status := FND_API.G_RET_STS_ERROR;
64 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
65 IF (x_msg_data IS NULL) THEN
66 FND_MSG_PUB.Count_And_Get
67 ( p_encoded => FND_API.G_FALSE
68 , p_count => x_msg_count
69 , p_data => x_msg_data
70 );
71 END IF;
72 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
73 WHEN NO_DATA_FOUND THEN
74 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
75 IF (x_msg_data IS NOT NULL) THEN
76 x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Create_Custom_Region_Items ';
77 ELSE
78 x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Create_Custom_Region_Items ';
79 END IF;
80 WHEN OTHERS THEN
81 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
82 IF (x_msg_data IS NOT NULL) THEN
83 x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Create_Custom_Region_Items ';
84 ELSE
85 x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Create_Custom_Region_Items ';
86 END IF;
87
88 END Create_Custom_Region_Items;
89 --
90 --
91 PROCEDURE Update_Custom_Region_Items
92 ( p_api_version IN NUMBER
93 , p_commit IN VARCHAR2 := FND_API.G_FALSE
94 , p_Custom_Region_Items_Rec IN BIS_CUSTOMIZATION_PUB.custom_Region_Items_type
95 , x_return_status OUT NOCOPY VARCHAR2
96 , x_msg_count OUT NOCOPY NUMBER
97 , x_msg_data OUT NOCOPY VARCHAR2
98 )
99 IS
100 BEGIN
101
102 FND_MSG_PUB.Initialize;
103 x_Return_Status := FND_API.G_RET_STS_SUCCESS;
104
105 BIS_CUSTOMIZATION_PVT.Update_Custom_Region_Items
106 ( p_api_version => p_api_version
107 , p_commit => p_commit
108 , p_Custom_Region_Items_Rec => p_Custom_Region_Items_Rec
109 , x_return_status => x_return_status
110 , x_msg_count => x_msg_count
111 , x_msg_data => x_msg_data
112 );
113 IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
114 RAISE FND_API.G_EXC_ERROR;
115 END IF;
116
117 EXCEPTION
118 WHEN FND_API.G_EXC_ERROR THEN
119 IF (x_msg_data IS NULL) THEN
120 FND_MSG_PUB.Count_And_Get
121 ( p_encoded => FND_API.G_FALSE
122 , p_count => x_msg_count
123 , p_data => x_msg_data
124 );
125 END IF;
126 x_return_status := FND_API.G_RET_STS_ERROR;
127 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
128 IF (x_msg_data IS NULL) THEN
129 FND_MSG_PUB.Count_And_Get
130 ( p_encoded => FND_API.G_FALSE
131 , p_count => x_msg_count
132 , p_data => x_msg_data
133 );
134 END IF;
135 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
136 WHEN NO_DATA_FOUND THEN
137 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
138 IF (x_msg_data IS NOT NULL) THEN
139 x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Update_Custom_Region_items ';
140 ELSE
141 x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Update_Custom_Region_items ';
142 END IF;
143 WHEN OTHERS THEN
144 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
145 IF (x_msg_data IS NOT NULL) THEN
146 x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Update_Custom_Region_items ';
147 ELSE
148 x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Update_Custom_Region_items ';
149 END IF;
150
151 END Update_Custom_Region_Items;
152
153 PROCEDURE Create_Custom_Region_Items_UI
154 ( p_api_version IN NUMBER
155 , p_commit IN VARCHAR2 := FND_API.G_FALSE
156 , p_customization_application_id IN NUMBER
157 , p_customization_code IN VARCHAR2
158 , p_region_application_id IN NUMBER
159 , p_region_code IN VARCHAR2
160 , p_attribute_application_id IN NUMBER
161 , p_attribute_code IN VARCHAR2
162 , p_property_name IN VARCHAR2
163 , p_property_varchar2_value IN VARCHAR2
164 , p_property_number_value IN NUMBER
165 , p_property_date_value IN DATE
166 , x_return_status OUT NOCOPY VARCHAR2
167 , x_msg_count OUT NOCOPY NUMBER
168 , x_msg_data OUT NOCOPY VARCHAR2
169 )IS
170
171 l_custom_region_items_rec BIS_CUSTOMIZATION_PUB.custom_region_items_type;
172 BEGIN
173 FND_MSG_PUB.Initialize;
174 x_return_status := FND_API.G_RET_STS_SUCCESS;
175
176 l_custom_region_items_rec.customization_application_id := p_customization_application_id;
177 l_custom_region_items_rec.customization_code := p_customization_code;
178 l_custom_region_items_rec.region_application_id := p_region_application_id;
179 l_custom_region_items_rec.region_code := p_region_code;
180 l_custom_region_items_rec.attribute_application_id := p_attribute_application_id;
181 l_custom_region_items_rec.attribute_code := p_attribute_code;
182 l_custom_region_items_rec.property_name := p_property_name;
183 l_custom_region_items_rec.property_varchar2_value := p_property_varchar2_value;
184 l_custom_region_items_rec.property_number_value := p_property_number_value;
185 l_custom_region_items_rec.property_date_value := p_property_date_value;
186
187
188 BIS_CUSTOMIZATION_PUB.Create_Custom_Region_Items
189 ( p_api_version => p_api_version
190 , p_commit => p_commit
191 , p_Custom_Region_Items_Rec => l_custom_region_items_rec
192 , x_return_status => x_return_status
193 , x_msg_count => x_msg_count
194 , x_msg_data => x_msg_data
195 );
196 IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
197 FND_MESSAGE.SET_NAME('BIS','BIS_CUSTOMIZATION_FAIL');
198 FND_MSG_PUB.ADD;
199 RAISE FND_API.G_EXC_ERROR;
200 END IF;
201 EXCEPTION
202 WHEN FND_API.G_EXC_ERROR THEN
203 IF (x_msg_data IS NULL) THEN
204 FND_MSG_PUB.Count_And_Get
205 ( p_encoded => FND_API.G_FALSE
206 , p_count => x_msg_count
207 , p_data => x_msg_data
208 );
209 END IF;
210 x_return_status := FND_API.G_RET_STS_ERROR;
211 WHEN OTHERS THEN
212 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
213 IF (x_msg_data IS NOT NULL) THEN
214 x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Create_Custom_region_items_UI ';
215 ELSE
216 x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Create_Custom_region_items_UI ';
217 END IF;
218
219
220 END Create_Custom_Region_Items_UI;
221 --
222 -- updates rows into ak_custom_region_items and tl tables
223 --
224 PROCEDURE Update_Custom_Region_Items_UI
225 ( p_api_version IN NUMBER
226 , p_commit IN VARCHAR2 := FND_API.G_FALSE
227 , p_customization_application_id IN NUMBER
228 , p_customization_code IN VARCHAR2
229 , p_region_application_id IN NUMBER
230 , p_region_code IN VARCHAR2
231 , p_attribute_application_id IN NUMBER
232 , p_attribute_code IN VARCHAR2
233 , p_property_name IN VARCHAR2
234 , p_property_varchar2_value IN VARCHAR2
235 , p_property_number_value IN NUMBER
236 , p_property_date_value IN DATE
237 , x_return_status OUT NOCOPY VARCHAR2
238 , x_msg_count OUT NOCOPY NUMBER
239 , x_msg_data OUT NOCOPY VARCHAR2
240 )IS
241
242 l_custom_region_items_rec BIS_CUSTOMIZATION_PUB.custom_region_items_type;
243 BEGIN
244 FND_MSG_PUB.Initialize;
245 x_return_status := FND_API.G_RET_STS_SUCCESS;
246
247 l_custom_region_items_rec.customization_application_id := p_customization_application_id;
248 l_custom_region_items_rec.customization_code := p_customization_code;
249 l_custom_region_items_rec.region_application_id := p_region_application_id;
250 l_custom_region_items_rec.region_code := p_region_code;
251 l_custom_region_items_rec.attribute_application_id := p_attribute_application_id;
252 l_custom_region_items_rec.attribute_code := p_attribute_code;
253 l_custom_region_items_rec.property_name := p_property_name;
254 l_custom_region_items_rec.property_varchar2_value := p_property_varchar2_value;
255 l_custom_region_items_rec.property_number_value := p_property_number_value;
256 l_custom_region_items_rec.property_date_value := p_property_date_value;
257
258
259 BIS_CUSTOMIZATION_PUB.Update_Custom_Region_Items
260 ( p_api_version => p_api_version
261 , p_commit => p_commit
262 , p_Custom_Region_Items_Rec => l_custom_region_items_rec
263 , x_return_status => x_return_status
264 , x_msg_count => x_msg_count
265 , x_msg_data => x_msg_data
266 );
267 IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
268 FND_MESSAGE.SET_NAME('BSC','BIS_CUSTOMIZATION_FAIL');
269 FND_MSG_PUB.ADD;
270 RAISE FND_API.G_EXC_ERROR;
271 END IF;
272
273
274 EXCEPTION
275 WHEN FND_API.G_EXC_ERROR THEN
276 IF (x_msg_data IS NULL) THEN
277 FND_MSG_PUB.Count_And_Get
278 ( p_encoded => FND_API.G_FALSE
279 , p_count => x_msg_count
280 , p_data => x_msg_data
281 );
282 END IF;
283 x_return_status := FND_API.G_RET_STS_ERROR;
284 WHEN OTHERS THEN
285 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
286 IF (x_msg_data IS NOT NULL) THEN
287 x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Update_Custom_region_items_UI ';
288 ELSE
289 x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Update_Custom_region_items_UI ';
290 END IF;
291
292 END Update_Custom_region_items_UI;
293
294 PROCEDURE Delete_Custom_Region_Items
295 ( p_api_version IN NUMBER
296 , p_commit IN VARCHAR2 := FND_API.G_FALSE
297 , p_Custom_Region_Items_Rec IN BIS_CUSTOMIZATION_PUB.custom_Region_Items_type
298 , x_return_status OUT NOCOPY VARCHAR2
299 , x_msg_count OUT NOCOPY NUMBER
300 , x_msg_data OUT NOCOPY VARCHAR2
301 )
302 IS
303 BEGIN
304
305 FND_MSG_PUB.Initialize;
306 x_Return_Status := FND_API.G_RET_STS_SUCCESS;
307
308 BIS_CUSTOMIZATION_PVT.Delete_Custom_Region_Items
309 ( p_api_version => p_api_version
310 , p_commit => p_commit
311 , p_Custom_Region_Items_Rec => p_Custom_Region_Items_Rec
312 , x_return_status => x_return_status
313 , x_msg_count => x_msg_count
314 , x_msg_data => x_msg_data
315 );
316 IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
317 RAISE FND_API.G_EXC_ERROR;
318 END IF;
319
320 EXCEPTION
321 WHEN FND_API.G_EXC_ERROR THEN
322 IF (x_msg_data IS NULL) THEN
323 FND_MSG_PUB.Count_And_Get
324 ( p_encoded => FND_API.G_FALSE
325 , p_count => x_msg_count
326 , p_data => x_msg_data
327 );
328 END IF;
329 x_return_status := FND_API.G_RET_STS_ERROR;
330 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
331 IF (x_msg_data IS NULL) THEN
332 FND_MSG_PUB.Count_And_Get
333 ( p_encoded => FND_API.G_FALSE
334 , p_count => x_msg_count
335 , p_data => x_msg_data
336 );
337 END IF;
338 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
339 WHEN NO_DATA_FOUND THEN
340 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
341 IF (x_msg_data IS NOT NULL) THEN
342 x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Delete_Custom_Region_items ';
343 ELSE
344 x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Delete_Custom_Region_items ';
345 END IF;
346 WHEN OTHERS THEN
347 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
348 IF (x_msg_data IS NOT NULL) THEN
349 x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Delete_Custom_Region_items ';
350 ELSE
351 x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Delete_Custom_Region_items ';
352 END IF;
353
354 END Delete_Custom_Region_Items;
355
356 PROCEDURE Delete_Custom_Region_Items_UI
357 ( p_api_version IN NUMBER
358 , p_commit IN VARCHAR2 := FND_API.G_FALSE
359 , p_customization_application_id IN NUMBER
360 , p_customization_code IN VARCHAR2
361 , p_region_application_id IN NUMBER
362 , p_region_code IN VARCHAR2
363 , p_attribute_application_id IN NUMBER
364 , p_attribute_code IN VARCHAR2
365 , p_property_name IN VARCHAR2
366 , x_return_status OUT NOCOPY VARCHAR2
367 , x_msg_count OUT NOCOPY NUMBER
368 , x_msg_data OUT NOCOPY VARCHAR2
369 ) IS
370 l_custom_region_items_rec BIS_CUSTOMIZATION_PUB.custom_region_items_type;
371 BEGIN
372 FND_MSG_PUB.Initialize;
373 x_Return_Status := FND_API.G_RET_STS_SUCCESS;
374
375 l_custom_region_items_rec.customization_application_id := p_customization_application_id;
376 l_custom_region_items_rec.customization_code := p_customization_code;
377 l_custom_region_items_rec.region_application_id := p_region_application_id;
378 l_custom_region_items_rec.region_code := p_region_code;
379 l_custom_region_items_rec.attribute_application_id := p_attribute_application_id;
380 l_custom_region_items_rec.attribute_code := p_attribute_code;
381 l_custom_region_items_rec.property_name := p_property_name;
382
386 , p_custom_region_items_rec => l_custom_region_items_rec
383 BIS_CUSTOMIZATION_PVT.delete_custom_region_items
384 ( p_api_version => p_api_version
385 , p_commit => p_commit
387 , x_return_status => x_return_status
388 , x_msg_count => x_msg_count
389 , x_msg_data => x_msg_data);
390
391 IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
392 FND_MESSAGE.SET_NAME('BSC','BIS_CUSTOMIZATION_FAIL');
393 FND_MSG_PUB.ADD;
394 RAISE FND_API.G_EXC_ERROR;
395 END IF;
396
397
398 EXCEPTION
399 WHEN FND_API.G_EXC_ERROR THEN
400 IF (x_msg_data IS NULL) THEN
401 FND_MSG_PUB.Count_And_Get
402 ( p_encoded => FND_API.G_FALSE
403 , p_count => x_msg_count
404 , p_data => x_msg_data
405 );
406 END IF;
407 x_return_status := FND_API.G_RET_STS_ERROR;
408 WHEN OTHERS THEN
409 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
410 IF (x_msg_data IS NOT NULL) THEN
411 x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Delete_Custom_region_items_UI ';
412 ELSE
413 x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Delete_Custom_region_items_UI ';
414 END IF;
415
416 END Delete_Custom_Region_Items_UI;
417
418 PROCEDURE Create_Customizations
419 ( p_api_version IN NUMBER
420 , p_commit IN VARCHAR2 := FND_API.G_FALSE
421 , p_Customizations_Rec IN BIS_CUSTOMIZATION_PUB.customizations_type
422 , x_return_status OUT NOCOPY VARCHAR2
423 , x_msg_count OUT NOCOPY NUMBER
424 , x_msg_data OUT NOCOPY VARCHAR2)
425 IS
426
427 BEGIN
428 FND_MSG_PUB.Initialize;
429 x_Return_Status := FND_API.G_RET_STS_SUCCESS;
430
431 BIS_CUSTOMIZATION_PVT.Create_Customizations
432 ( p_api_version => p_api_version
433 , p_commit => p_commit
434 , p_Customizations_Rec => p_Customizations_Rec
435 , x_return_status => x_return_status
436 , x_msg_count => x_msg_count
437 , x_msg_data => x_msg_data
438 );
439
440 IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
441 RAISE FND_API.G_EXC_ERROR;
442 END IF;
443 EXCEPTION
444 WHEN FND_API.G_EXC_ERROR THEN
445 IF (x_msg_data IS NULL) THEN
446 FND_MSG_PUB.Count_And_Get
447 ( p_encoded => FND_API.G_FALSE
448 , p_count => x_msg_count
449 , p_data => x_msg_data
450 );
451 END IF;
452 x_return_status := FND_API.G_RET_STS_ERROR;
453 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
454 IF (x_msg_data IS NULL) THEN
455 FND_MSG_PUB.Count_And_Get
456 ( p_encoded => FND_API.G_FALSE
457 , p_count => x_msg_count
458 , p_data => x_msg_data
459 );
460 END IF;
461 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
462 WHEN NO_DATA_FOUND THEN
463 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
464 IF (x_msg_data IS NOT NULL) THEN
465 x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Create_Customizations ';
466 ELSE
467 x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Create_Customizations ';
468 END IF;
469 WHEN OTHERS THEN
470 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
471 IF (x_msg_data IS NOT NULL) THEN
472 x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Create_Customizations ';
473 ELSE
474 x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Create_Customizations ';
475 END IF;
476 END Create_Customizations;
477 --
478 --
479
480 PROCEDURE Update_Customizations
481 ( p_api_version IN NUMBER
482 , p_commit IN VARCHAR2 := FND_API.G_FALSE
483 , p_Customizations_Rec IN BIS_CUSTOMIZATION_PUB.customizations_type
484 , x_return_status OUT NOCOPY VARCHAR2
485 , x_msg_count OUT NOCOPY NUMBER
486 , x_msg_data OUT NOCOPY VARCHAR2
487 )
488 IS
489 BEGIN
490 FND_MSG_PUB.Initialize;
491 x_Return_Status := FND_API.G_RET_STS_SUCCESS;
492
493
494 BIS_CUSTOMIZATION_PVT.Update_Customizations
495 ( p_api_version => p_api_version
496 , p_commit => p_commit
497 , p_Customizations_Rec => p_Customizations_Rec
498 , x_return_status => x_return_status
499 , x_msg_count => x_msg_count
500 , x_msg_data => x_msg_data
501 );
502
503 IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
504 RAISE FND_API.G_EXC_ERROR;
505 END IF;
506
507 EXCEPTION
508 WHEN FND_API.G_EXC_ERROR THEN
509 IF (x_msg_data IS NULL) THEN
510 FND_MSG_PUB.Count_And_Get
511 ( p_encoded => FND_API.G_FALSE
512 , p_count => x_msg_count
513 , p_data => x_msg_data
514 );
515 END IF;
516 x_return_status := FND_API.G_RET_STS_ERROR;
517 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
518 IF (x_msg_data IS NULL) THEN
519 FND_MSG_PUB.Count_And_Get
520 ( p_encoded => FND_API.G_FALSE
521 , p_count => x_msg_count
522 , p_data => x_msg_data
523 );
524 END IF;
525 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
526 WHEN NO_DATA_FOUND THEN
527 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
528 IF (x_msg_data IS NOT NULL) THEN
529 x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Update_Customizations ';
530 ELSE
531 x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Update_Customizations ';
535 IF (x_msg_data IS NOT NULL) THEN
532 END IF;
533 WHEN OTHERS THEN
534 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
536 x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Update_Customizations ';
537 ELSE
538 x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Update_Customizations ';
539 END IF;
540
541 END Update_Customizations;
542
543
544 PROCEDURE Create_Customizations_UI
545 ( p_api_version IN NUMBER
546 , p_commit IN VARCHAR2 := FND_API.G_FALSE
547 , p_customization_application_id IN NUMBER
548 , p_customization_code IN VARCHAR2
549 , p_region_application_id IN NUMBER
550 , p_region_code IN VARCHAR2
551 , p_verticalization_id IN VARCHAR2
552 , p_localization_code IN VARCHAR2
553 , p_org_id IN NUMBER
554 , p_site_id IN NUMBER
555 , p_responsibility_id IN NUMBER
556 , p_web_user_id IN NUMBER
557 , p_default_customization_flag IN VARCHAR2
558 , p_customization_level_id IN NUMBER
559 , p_start_date_active IN DATE
560 , p_end_date_active IN DATE
561 , p_reference_path IN VARCHAR2
562 , p_function_name IN VARCHAR2
563 , p_developer_mode IN VARCHAR2
564 , p_name IN VARCHAR2
565 , p_description IN VARCHAR2
566 , x_return_status OUT NOCOPY VARCHAR2
567 , x_msg_count OUT NOCOPY NUMBER
568 , x_msg_data OUT NOCOPY VARCHAR2
569 )
570 IS
571 l_customizations_rec BIS_CUSTOMIZATION_PUB.customizations_type;
572 BEGIN
573 FND_MSG_PUB.Initialize;
574 x_return_status := FND_API.G_RET_STS_SUCCESS;
575
576 l_customizations_rec.customization_application_id := p_customization_application_id;
577 l_customizations_rec.customization_code := p_customization_code;
578 l_customizations_rec.region_application_id := p_region_application_id;
579 l_customizations_rec.region_code := p_region_code;
580 l_customizations_rec.verticalization_id := p_verticalization_id;
581 l_customizations_rec.localization_code := p_localization_code;
582 l_customizations_rec.org_id := p_org_id;
583 l_customizations_rec.site_id := p_site_id;
584 l_customizations_rec.responsibility_id := p_responsibility_id;
585 l_customizations_rec.web_user_id := p_web_user_id;
586 l_customizations_rec.default_customization_flag := p_default_customization_flag;
587 l_customizations_rec.customization_level_id := p_customization_level_id;
588 l_customizations_rec.start_date_active := p_start_date_active;
589 l_customizations_rec.end_date_active := p_end_date_active;
590 l_customizations_rec.reference_path := p_reference_path;
591 l_customizations_rec.function_name := p_function_name;
592 l_customizations_rec.developer_mode := p_developer_mode;
593 l_customizations_rec.name := p_name;
594 l_customizations_rec.description := p_description;
595
596 BIS_CUSTOMIZATION_PUB.Create_Customizations
597 ( p_api_version => p_api_version
598 , p_commit => p_commit
599 , p_Customizations_Rec => l_customizations_rec
600 , x_return_status => x_return_status
601 , x_msg_count => x_msg_count
602 , x_msg_data => x_msg_data
603 );
604
605 IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
606 FND_MESSAGE.SET_NAME('BSC','BIS_CUSTOMIZATION_FAIL');
607 FND_MSG_PUB.ADD;
608 RAISE FND_API.G_EXC_ERROR;
609 END IF;
610
611 EXCEPTION
612 WHEN FND_API.G_EXC_ERROR THEN
613 IF (x_msg_data IS NULL) THEN
614 FND_MSG_PUB.Count_And_Get
615 ( p_encoded => FND_API.G_FALSE
616 , p_count => x_msg_count
617 , p_data => x_msg_data
618 );
619 END IF;
620 x_return_status := FND_API.G_RET_STS_ERROR;
621 WHEN OTHERS THEN
622 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
623 IF (x_msg_data IS NOT NULL) THEN
624 x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Create_Customizations_UI ';
625 ELSE
626 x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Create_Customizations_UI ';
627 END IF;
628
629 END Create_Customizations_UI;
630
631 PROCEDURE Update_Customizations_UI
632 ( p_api_version IN NUMBER
633 , p_commit IN VARCHAR2 := FND_API.G_FALSE
634 , p_customization_application_id IN NUMBER
635 , p_customization_code IN VARCHAR2
636 , p_region_application_id IN NUMBER
637 , p_region_code IN VARCHAR2
638 , p_verticalization_id IN VARCHAR2
639 , p_localization_code IN VARCHAR2
640 , p_org_id IN NUMBER
641 , p_site_id IN NUMBER
642 , p_responsibility_id IN NUMBER
643 , p_web_user_id IN NUMBER
644 , p_default_customization_flag IN VARCHAR2
645 , p_customization_level_id IN NUMBER
646 , p_start_date_active IN DATE
647 , p_end_date_active IN DATE
648 , p_reference_path IN VARCHAR2
649 , p_function_name IN VARCHAR2
650 , p_developer_mode IN VARCHAR2
651 , p_name IN VARCHAR2
652 , p_description IN VARCHAR2
653 , x_return_status OUT NOCOPY VARCHAR2
654 , x_msg_count OUT NOCOPY NUMBER
655 , x_msg_data OUT NOCOPY VARCHAR2
656 )
657 IS
658 l_customizations_rec BIS_CUSTOMIZATION_PUB.customizations_type;
659 BEGIN
660 FND_MSG_PUB.Initialize;
661 x_return_status := FND_API.G_RET_STS_SUCCESS;
662
663 l_customizations_rec.customization_application_id := p_customization_application_id;
664 l_customizations_rec.customization_code := p_customization_code;
665 l_customizations_rec.region_application_id := p_region_application_id;
666 l_customizations_rec.region_code := p_region_code;
667 l_customizations_rec.verticalization_id := p_verticalization_id;
668 l_customizations_rec.localization_code := p_localization_code;
669 l_customizations_rec.org_id := p_org_id;
670 l_customizations_rec.site_id := p_site_id;
671 l_customizations_rec.responsibility_id := p_responsibility_id;
672 l_customizations_rec.web_user_id := p_web_user_id;
673 l_customizations_rec.default_customization_flag := p_default_customization_flag;
674 l_customizations_rec.customization_level_id := p_customization_level_id;
675 l_customizations_rec.start_date_active := p_start_date_active;
676 l_customizations_rec.end_date_active := p_end_date_active;
677 l_customizations_rec.reference_path := p_reference_path;
678 l_customizations_rec.function_name := p_function_name;
679 l_customizations_rec.developer_mode := p_developer_mode;
680 l_customizations_rec.name := p_name;
681 l_customizations_rec.description := p_description;
682
683 BIS_CUSTOMIZATION_PUB.Update_Customizations
684 ( p_api_version => p_api_version
685 , p_commit => p_commit
686 , p_Customizations_Rec => l_customizations_rec
687 , x_return_status => x_return_status
688 , x_msg_count => x_msg_count
689 , x_msg_data => x_msg_data
690 );
691
692 IF ((x_return_status IS NOT NULL) AND (x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
693 FND_MESSAGE.SET_NAME('BSC','BIS_CUSTOMIZATION_FAIL');
694 FND_MSG_PUB.ADD;
695 RAISE FND_API.G_EXC_ERROR;
696 END IF;
697
698 EXCEPTION
699 WHEN FND_API.G_EXC_ERROR THEN
700 IF (x_msg_data IS NULL) THEN
701 FND_MSG_PUB.Count_And_Get
702 ( p_encoded => FND_API.G_FALSE
703 , p_count => x_msg_count
704 , p_data => x_msg_data
705 );
706 END IF;
707 x_return_status := FND_API.G_RET_STS_ERROR;
708 WHEN OTHERS THEN
709 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
710 IF (x_msg_data IS NOT NULL) THEN
711 x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Update_Customizations_UI ';
712 ELSE
713 x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Update_Customizations_UI ';
714 END IF;
715
716 END Update_Customizations_UI;
717
718
719 END BIS_CUSTOMIZATION_PUB;