[Home] [Help]
PACKAGE BODY: APPS.BIS_CUSTOMIZATION_PVT
Source
1 PACKAGE BODY BIS_CUSTOMIZATION_PVT AS
2 /* $Header: BISVCTMB.pls 120.1 2006/02/14 13:21:04 hengliu noship $ */
3 --
4 /*
5 REM +=======================================================================+
6 REM | Copyright (c) 2002 Oracle Corporation, Redwood Shores, CA, USA |
7 REM | All rights reserved. |
8 REM +=======================================================================+
9 REM | FILENAME |
10 REM | BISVCTMB.pls |
11 REM | |
12 REM | DESCRIPTION |
13 REM | Private API for seeding ak Customization Data at function level |
14 REM | |
15 REM | NOTES |
16 REM | |
17 REM | HISTORY |
18 REM | 27-Apr-2005 kyadamak Creation |
19 REM | 14-Feb-2005 hengliu Added Delete_Custom_Region_Items |
20 REM +=======================================================================+
21 */
22 --
23
24 PROCEDURE Create_Custom_Region_Items
25 ( p_api_version IN NUMBER
26 , p_commit IN VARCHAR2 := FND_API.G_FALSE
27 , p_Custom_Region_Items_Rec IN BIS_CUSTOMIZATION_PUB.custom_region_items_type
28 , x_return_status OUT NOCOPY VARCHAR2
29 , x_msg_count OUT NOCOPY NUMBER
30 , x_msg_data OUT NOCOPY VARCHAR2
31 )
32
33 IS
34 l_rowid VARCHAR2(100);
35 BEGIN
36
37 FND_MSG_PUB.Initialize;
38 x_Return_Status := FND_API.G_RET_STS_SUCCESS;
39
40 AK_CUSTOM_REGION_ITEMS_PKG.INSERT_ROW
41 ( X_ROWID => l_rowid
42 , X_CUSTOMIZATION_APPLICATION_ID => p_Custom_Region_Items_Rec.customization_application_id
43 , X_CUSTOMIZATION_CODE => p_Custom_Region_Items_Rec.customization_code
44 , X_REGION_APPLICATION_ID => p_Custom_Region_Items_Rec.region_application_id
45 , X_REGION_CODE => p_Custom_Region_Items_Rec.region_code
46 , X_ATTRIBUTE_APPLICATION_ID => p_Custom_Region_Items_Rec.attribute_application_id
47 , X_ATTRIBUTE_CODE => p_Custom_Region_Items_Rec.attribute_code
48 , X_PROPERTY_NAME => p_Custom_Region_Items_Rec.property_name
49 , X_PROPERTY_VARCHAR2_VALUE => p_Custom_Region_Items_Rec.property_varchar2_value
50 , X_PROPERTY_NUMBER_VALUE => p_Custom_Region_Items_Rec.property_number_value
51 , X_PROPERTY_DATE_VALUE => p_Custom_Region_Items_Rec.property_date_value
52 , X_CREATED_BY => NVL(p_Custom_Region_Items_Rec.created_by,FND_GLOBAL.USER_ID)
53 , X_CREATION_DATE => NVL(p_Custom_Region_Items_Rec.last_update_date,SYSDATE)
54 , X_LAST_UPDATED_BY => NVL(p_Custom_Region_Items_Rec.last_updated_by,FND_GLOBAL.USER_ID)
55 , X_LAST_UPDATE_DATE => NVL(p_Custom_Region_Items_Rec.last_update_date,SYSDATE)
56 , X_LAST_UPDATE_LOGIN => NVL(p_Custom_Region_Items_Rec.last_update_login,FND_GLOBAL.LOGIN_ID)
57 );
58
59 IF (p_commit = FND_API.G_TRUE) THEN
60 COMMIT;
61 END IF;
62
63
64 EXCEPTION
65 WHEN FND_API.G_EXC_ERROR THEN
66 IF (x_msg_data IS NULL) THEN
67 FND_MSG_PUB.Count_And_Get
68 ( p_encoded => FND_API.G_FALSE
69 , p_count => x_msg_count
70 , p_data => x_msg_data
71 );
72 END IF;
73 x_return_status := FND_API.G_RET_STS_ERROR;
74 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
75 IF (x_msg_data IS NULL) THEN
76 FND_MSG_PUB.Count_And_Get
77 ( p_encoded => FND_API.G_FALSE
78 , p_count => x_msg_count
79 , p_data => x_msg_data
80 );
81 END IF;
82 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
83 WHEN NO_DATA_FOUND THEN
84 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
85 IF (x_msg_data IS NOT NULL) THEN
86 x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PVT.Create_Custom_Region_Items ';
87 ELSE
88 x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PVT.Create_Custom_Region_Items ';
89 END IF;
90 WHEN OTHERS THEN
91 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
92 IF (x_msg_data IS NOT NULL) THEN
93 x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PVT.Create_Custom_Region_Items ';
94 ELSE
95 x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PVT.Create_Custom_Region_Items ';
96 END IF;
97
98
99 END Create_Custom_Region_Items;
100 --
101 --
102 PROCEDURE Update_Custom_Region_Items
103 ( p_api_version IN NUMBER
104 , p_commit IN VARCHAR2 := FND_API.G_FALSE
105 , p_Custom_Region_Items_Rec IN BIS_CUSTOMIZATION_PUB.custom_Region_Items_type
106 , x_return_status OUT NOCOPY VARCHAR2
107 , x_msg_count OUT NOCOPY NUMBER
108 , x_msg_data OUT NOCOPY VARCHAR2
109 )
110
111 IS
112 BEGIN
113
114 FND_MSG_PUB.Initialize;
115 x_Return_Status := FND_API.G_RET_STS_SUCCESS;
116
117 AK_CUSTOM_REGION_ITEMS_PKG.UPDATE_ROW
118 ( X_CUSTOMIZATION_APPLICATION_ID => p_Custom_Region_Items_Rec.customization_application_id
119 , X_CUSTOMIZATION_CODE => p_Custom_Region_Items_Rec.customization_code
120 , X_REGION_APPLICATION_ID => p_Custom_Region_Items_Rec.region_application_id
121 , X_REGION_CODE => p_Custom_Region_Items_Rec.region_code
122 , X_ATTRIBUTE_APPLICATION_ID => p_Custom_Region_Items_Rec.attribute_application_id
123 , X_ATTRIBUTE_CODE => p_Custom_Region_Items_Rec.attribute_code
124 , X_PROPERTY_NAME => p_Custom_Region_Items_Rec.property_name
125 , X_PROPERTY_VARCHAR2_VALUE => p_Custom_Region_Items_Rec.property_varchar2_value
126 , X_PROPERTY_NUMBER_VALUE => p_Custom_Region_Items_Rec.property_number_value
127 , X_PROPERTY_DATE_VALUE => p_Custom_Region_Items_Rec.property_date_value
128 , X_LAST_UPDATED_BY => NVL(p_Custom_Region_Items_Rec.last_updated_by,FND_GLOBAL.USER_ID)
129 , X_LAST_UPDATE_DATE => NVL(p_Custom_Region_Items_Rec.last_update_date,SYSDATE)
130 , X_LAST_UPDATE_LOGIN => NVL(p_Custom_Region_Items_Rec.last_update_login,FND_GLOBAL.LOGIN_ID)
131 );
132
133 IF (p_commit = FND_API.G_TRUE) THEN
134 COMMIT;
135 END IF;
136
137
138 EXCEPTION
139 WHEN FND_API.G_EXC_ERROR THEN
140 IF (x_msg_data IS NULL) THEN
141 FND_MSG_PUB.Count_And_Get
142 ( p_encoded => FND_API.G_FALSE
143 , p_count => x_msg_count
144 , p_data => x_msg_data
145 );
146 END IF;
147 x_return_status := FND_API.G_RET_STS_ERROR;
148 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
149 IF (x_msg_data IS NULL) THEN
150 FND_MSG_PUB.Count_And_Get
151 ( p_encoded => FND_API.G_FALSE
152 , p_count => x_msg_count
153 , p_data => x_msg_data
154 );
155 END IF;
156 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
157 WHEN NO_DATA_FOUND THEN
158 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
159 IF (x_msg_data IS NOT NULL) THEN
160 x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PVT.Update_Custom_Region_items ';
161 ELSE
162 x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PVT.Update_Custom_Region_items ';
163 END IF;
164 WHEN OTHERS THEN
165 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
166 IF (x_msg_data IS NOT NULL) THEN
167 x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PVT.Update_Custom_Region_items ';
168 ELSE
169 x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PVT.Update_Custom_Region_items ';
170 END IF;
171
172
173 END Update_Custom_Region_Items;
174
175 PROCEDURE Delete_Custom_Region_Items
176 ( p_api_version IN NUMBER
177 , p_commit IN VARCHAR2 := FND_API.G_FALSE
178 , p_Custom_region_items_Rec IN BIS_CUSTOMIZATION_PUB.custom_region_items_type
179 , x_return_status OUT NOCOPY VARCHAR2
180 , x_msg_count OUT NOCOPY NUMBER
181 , x_msg_data OUT NOCOPY VARCHAR2
182 ) IS
183 BEGIN
184 FND_MSG_PUB.Initialize;
185 x_Return_Status := FND_API.G_RET_STS_SUCCESS;
186
187 AK_CUSTOM_REGION_ITEMS_PKG.Delete_ROW
188 ( X_CUSTOMIZATION_APPLICATION_ID => p_Custom_Region_Items_Rec.customization_application_id
189 , X_CUSTOMIZATION_CODE => p_Custom_Region_Items_Rec.customization_code
190 , X_REGION_APPLICATION_ID => p_Custom_Region_Items_Rec.region_application_id
191 , X_REGION_CODE => p_Custom_Region_Items_Rec.region_code
192 , X_ATTRIBUTE_APPLICATION_ID => p_Custom_Region_Items_Rec.attribute_application_id
193 , X_ATTRIBUTE_CODE => p_Custom_Region_Items_Rec.attribute_code
194 , X_PROPERTY_NAME => p_Custom_Region_Items_Rec.property_name
195 );
196
197 IF (p_commit = FND_API.G_TRUE) THEN
198 COMMIT;
199 END IF;
200
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 FND_API.G_EXC_UNEXPECTED_ERROR THEN
212 IF (x_msg_data IS NULL) THEN
213 FND_MSG_PUB.Count_And_Get
214 ( p_encoded => FND_API.G_FALSE
215 , p_count => x_msg_count
216 , p_data => x_msg_data
217 );
218 END IF;
219 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
220 WHEN NO_DATA_FOUND THEN
221 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
222 IF (x_msg_data IS NOT NULL) THEN
223 x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PVT.Delete_Custom_Region_items ';
224 ELSE
225 x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PVT.Delete_Custom_Region_items ';
226 END IF;
227 WHEN OTHERS THEN
228 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
229 IF (x_msg_data IS NOT NULL) THEN
230 x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PVT.Delete_Custom_Region_items ';
231 ELSE
232 x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PVT.Delete_Custom_Region_items ';
233 END IF;
234
235 END Delete_Custom_Region_Items;
236
237 PROCEDURE Create_Customizations
238 ( p_api_version IN NUMBER
239 , p_commit IN VARCHAR2 := FND_API.G_FALSE
240 , p_Customizations_Rec IN BIS_CUSTOMIZATION_PUB.customizations_type
241 , x_return_status OUT NOCOPY VARCHAR2
242 , x_msg_count OUT NOCOPY NUMBER
243 , x_msg_data OUT NOCOPY VARCHAR2)
244 IS
245
246 l_row_id VARCHAR2(32000);
247 BEGIN
248 FND_MSG_PUB.Initialize;
249 x_Return_Status := FND_API.G_RET_STS_SUCCESS;
250
251 INSERT INTO ak_customizations (
252 customization_application_id
253 ,customization_code
254 ,region_application_id
255 ,region_code
256 ,verticalization_id
257 ,localization_code
258 ,org_id
259 ,site_id
260 ,responsibility_id
261 ,web_user_id
262 ,default_customization_flag
263 ,customization_level_id
264 ,created_by
265 ,creation_date
266 ,last_updated_by
267 ,last_update_date
268 ,last_update_login
269 ,start_date_active
270 ,end_date_active
271 ,reference_path
272 ,function_name
273 ,developer_mode
274 ) VALUES (
275 p_Customizations_Rec.customization_application_id
279 ,p_Customizations_Rec.verticalization_id
276 ,p_Customizations_Rec.customization_code
277 ,p_Customizations_Rec.region_application_id
278 ,p_Customizations_Rec.region_code
280 ,p_Customizations_Rec.localization_code
281 ,p_Customizations_Rec.org_id
282 ,p_Customizations_Rec.site_id
283 ,p_Customizations_Rec.responsibility_id
284 ,p_Customizations_Rec.web_user_id
285 ,p_Customizations_Rec.default_customization_flag
286 ,p_Customizations_Rec.customization_level_id
287 ,NVL(p_Customizations_Rec.created_by,FND_GLOBAL.USER_ID)
288 ,NVL(p_Customizations_Rec.last_update_date,SYSDATE)
289 ,NVL(p_Customizations_Rec.last_updated_by,FND_GLOBAL.USER_ID)
290 ,NVL(p_Customizations_Rec.last_update_date,SYSDATE)
291 ,NVL(p_Customizations_Rec.last_update_login,FND_GLOBAL.LOGIN_ID)
292 ,NVL(p_Customizations_Rec.start_date_active,SYSDATE)
293 ,p_Customizations_Rec.end_date_active
294 ,p_Customizations_Rec.reference_path
295 ,p_Customizations_Rec.function_name
296 ,p_Customizations_Rec.developer_mode
297 );
298
299
300 INSERT INTO ak_customizations_tl (
301 customization_application_id
302 ,customization_code
303 ,region_application_id
304 ,region_code
305 ,name
306 ,description
307 ,language
308 ,source_lang
309 ,created_by
310 ,creation_date
311 ,last_updated_by
312 ,last_update_date
313 ,last_update_login
314 ) SELECT
315 p_Customizations_Rec.customization_application_id
316 ,p_Customizations_Rec.customization_code
317 ,p_Customizations_Rec.region_application_id
318 ,p_Customizations_Rec.region_code
319 ,p_Customizations_Rec.name
320 ,p_Customizations_Rec.description
321 ,L.language_code
322 ,USERENV('LANG')
323 ,NVL(p_Customizations_Rec.created_by,FND_GLOBAL.USER_ID)
324 ,NVL(p_Customizations_Rec.last_update_date,SYSDATE)
325 ,NVL(p_Customizations_Rec.last_updated_by,FND_GLOBAL.USER_ID)
326 ,NVL(p_Customizations_Rec.last_update_date,SYSDATE)
327 ,NVL(p_Customizations_Rec.last_update_login,FND_GLOBAL.LOGIN_ID)
328 FROM fnd_languages L
329 WHERE L.installed_flag IN ('I', 'B')
330 AND NOT EXISTS
331 (SELECT NULL
332 FROM ak_customizations_tl T
333 WHERE T.customization_application_id = p_Customizations_Rec.customization_application_id
334 AND T.customization_code = p_Customizations_Rec.customization_code
335 AND T.region_application_id = p_Customizations_Rec.region_application_id
336 AND T.region_code = p_Customizations_Rec.region_code
337 AND T.language = L.language_code);
338
339 IF (p_commit = FND_API.G_TRUE) THEN
340 COMMIT;
341 END IF;
342
343 EXCEPTION
344 WHEN FND_API.G_EXC_ERROR THEN
345 IF (x_msg_data IS NULL) THEN
346 FND_MSG_PUB.Count_And_Get
347 ( p_encoded => FND_API.G_FALSE
348 , p_count => x_msg_count
349 , p_data => x_msg_data
350 );
351 END IF;
352
353 x_return_status := FND_API.G_RET_STS_ERROR;
354 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
355 IF (x_msg_data IS NULL) THEN
356 FND_MSG_PUB.Count_And_Get
357 ( p_encoded => FND_API.G_FALSE
358 , p_count => x_msg_count
359 , p_data => x_msg_data
360 );
361 END IF;
362
363 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
364 WHEN NO_DATA_FOUND THEN
365 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
366 IF (x_msg_data IS NOT NULL) THEN
367 x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Create_Customizations ';
368 ELSE
369 x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Create_Customizations ';
370 END IF;
371
372 WHEN OTHERS THEN
373 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
374 IF (x_msg_data IS NOT NULL) THEN
375 x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Create_Customizations ';
376 ELSE
377 x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Create_Customizations ';
378 END IF;
379
380 END Create_Customizations;
381 --
382 --
383
384 PROCEDURE Update_Customizations
385 ( p_api_version IN NUMBER
386 , p_commit IN VARCHAR2 := FND_API.G_FALSE
387 , p_Customizations_Rec IN BIS_CUSTOMIZATION_PUB.customizations_type
388 , x_return_status OUT NOCOPY VARCHAR2
389 , x_msg_count OUT NOCOPY NUMBER
390 , x_msg_data OUT NOCOPY VARCHAR2
391 )
392 IS
393 BEGIN
394 FND_MSG_PUB.Initialize;
395 x_Return_Status := FND_API.G_RET_STS_SUCCESS;
396
397 UPDATE ak_customizations SET
398 customization_application_id = p_Customizations_Rec.customization_application_id
399 ,customization_code = p_Customizations_Rec.customization_code
400 ,region_application_id = p_Customizations_Rec.region_application_id
401 ,region_code = p_Customizations_Rec.region_code
402 ,verticalization_id = p_Customizations_Rec.verticalization_id
403 ,localization_code = p_Customizations_Rec.localization_code
404 ,org_id = p_Customizations_Rec.org_id
405 ,site_id = p_Customizations_Rec.site_id
406 ,responsibility_id = p_Customizations_Rec.responsibility_id
407 ,web_user_id = p_Customizations_Rec.web_user_id
408 ,default_customization_flag = p_Customizations_Rec.default_customization_flag
409 ,customization_level_id = p_Customizations_Rec.customization_level_id
410 ,last_updated_by = NVL(p_Customizations_Rec.last_updated_by,FND_GLOBAL.USER_ID)
411 ,last_update_date = NVL(p_Customizations_Rec.last_update_date,SYSDATE)
412 ,last_update_login = NVL(p_Customizations_Rec.last_update_login,FND_GLOBAL.LOGIN_ID)
413 ,start_date_active = p_Customizations_Rec.start_date_active
414 ,end_date_active = p_Customizations_Rec.end_date_active
415 ,reference_path = p_Customizations_Rec.reference_path
416 ,function_name = p_Customizations_Rec.function_name
417 ,developer_mode = p_Customizations_Rec.developer_mode
418 WHERE customization_application_id = p_Customizations_Rec.customization_application_id
419 AND customization_code = p_Customizations_Rec.customization_code
420 AND region_application_id = p_Customizations_Rec.region_application_id
421 AND region_code = p_Customizations_Rec.region_code;
422
423 UPDATE AK_CUSTOMIZATIONS_TL SET
424 name = p_Customizations_Rec.name
425 ,description = p_Customizations_Rec.description
426 ,last_updated_by = NVL(p_Customizations_Rec.last_updated_by,FND_GLOBAL.USER_ID)
427 ,last_update_date = NVL(p_Customizations_Rec.last_update_date,SYSDATE)
428 ,last_update_login = NVL(p_Customizations_Rec.last_update_login,FND_GLOBAL.LOGIN_ID)
429 ,source_lang = USERENV('LANG')
430 WHERE customization_application_id = p_Customizations_Rec.customization_application_id
431 AND customization_code = p_Customizations_Rec.customization_code
432 AND region_application_id = p_Customizations_Rec.region_application_id
433 AND region_code = p_Customizations_Rec.region_code
434 AND USERENV('LANG') IN (language, source_lang);
435
436 IF (p_commit = FND_API.G_TRUE) THEN
437 COMMIT;
438 END IF;
439
440
441 EXCEPTION
442 WHEN FND_API.G_EXC_ERROR THEN
443 IF (x_msg_data IS NULL) THEN
444 FND_MSG_PUB.Count_And_Get
445 ( p_encoded => FND_API.G_FALSE
446 , p_count => x_msg_count
447 , p_data => x_msg_data
448 );
449 END IF;
450 x_return_status := FND_API.G_RET_STS_ERROR;
451 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
452 IF (x_msg_data IS NULL) THEN
453 FND_MSG_PUB.Count_And_Get
454 ( p_encoded => FND_API.G_FALSE
455 , p_count => x_msg_count
456 , p_data => x_msg_data
457 );
458 END IF;
459 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
460 WHEN NO_DATA_FOUND THEN
461 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
462 IF (x_msg_data IS NOT NULL) THEN
463 x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Update_Customizations ';
464 ELSE
465 x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Update_Customizations ';
466 END IF;
467 WHEN OTHERS THEN
468 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
469 IF (x_msg_data IS NOT NULL) THEN
470 x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Update_Customizations ';
471 ELSE
472 x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Update_Customizations ';
473 END IF;
474
475 END Update_Customizations;
476
477 END BIS_CUSTOMIZATION_PVT;