[Home] [Help]
PACKAGE BODY: APPS.ENG_TYPE_CONFIGURATION_PKG
Source
1 PACKAGE BODY ENG_TYPE_CONFIGURATION_PKG AS
2 /* $Header: ENGTYCONB.pls 120.1 2006/05/29 10:31:24 ninaraya noship $ */
3 /*---------------------------------------------------------------------------+
4 | This package contains public API for Search Framework |
5 +---------------------------------------------------------------------------*/
6
7 G_PKG_NAME CONSTANT VARCHAR2(30):= 'ENG_TYPE_CONFIGURATION_PKG';
8 g_current_user_id NUMBER := FND_GLOBAL.User_Id;
9 g_current_login_id NUMBER := FND_GLOBAL.Login_Id;
10 g_app_name VARCHAR2(3) := 'ENG';
11 g_null_value VARCHAR2(6) := '*NULL*';
12
13
14 PROCEDURE Check_Configuration_delete
15 (
16 X_CUSTOMIZATION_APPLICATION_ID IN NUMBER,
17 X_CUSTOMIZATION_CODE IN VARCHAR2,
18 X_REGION_APPLICATION_ID IN NUMBER,
19 X_REGION_CODE IN VARCHAR2,
20 X_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
21 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
22 X_ERRORCODE OUT NOCOPY NUMBER
23 )
24 IS
25
26 l_count NUMBER;
27 l_name VARCHAR2(2000);
28
29 BEGIN
30
31 IF FND_API.To_Boolean(x_init_msg_list) THEN
32 FND_MSG_PUB.Initialize;
33 END IF;
34
35 SELECT
36 COUNT(*)
37 INTO
38 l_count
39 FROM
40 EGO_CUSTOMIZATION_EXT
41 WHERE
42 RF_CUSTOMIZATION_APPL_ID = X_CUSTOMIZATION_APPLICATION_ID
43 AND RF_CUSTOMIZATION_CODE = X_CUSTOMIZATION_CODE
44 AND RF_REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
45 AND RF_REGION_CODE = X_REGION_CODE;
46
47 IF (l_count > 0) THEN
48
49 SELECT
50 property_varchar2_value INTO l_name
51 FROM
52 ak_custom_regions_tl
53 WHERE
54 property_name = 'RESULT_NAME'
55 AND LANGUAGE = userenv('LANG')
56 AND customization_application_id = x_customization_application_id
57 AND customization_code = x_customization_code
58 AND region_application_id = x_region_application_id
59 AND region_code = x_region_code ;
60
61 -- Perf Bug 5246103 : SQL id : 17432159 , old sql commented below
62 /*
63
64 SELECT
65 NAME INTO l_name
66 FROM
67 EGO_RESULTS_FORMAT_V
68 WHERE
69 CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID
70 AND CUSTOMIZATION_CODE = X_CUSTOMIZATION_CODE
71 AND REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
72 AND REGION_CODE = X_REGION_CODE;
73 */
74 FND_MESSAGE.Set_Name(g_app_name, 'EGO_RF_RF_EXISTS');
75 FND_MESSAGE.Set_Token('NAME', l_name);
76 FND_MSG_PUB.Add;
77
78 X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
79
80 ELSE
81
82 X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
83
84 END IF;
85
86 END Check_Configuration_delete;
87
88
89
90 PROCEDURE create_type_config
91 (
92 X_CUSTOMIZATION_APPLICATION_ID IN NUMBER,
93 X_CUSTOMIZATION_CODE IN VARCHAR2,
94 X_REGION_APPLICATION_ID IN NUMBER,
95 X_REGION_CODE IN VARCHAR2,
96 X_NAME IN VARCHAR2,
97 X_CREATED_BY IN NUMBER,
98 X_CREATION_DATE IN DATE,
99 X_LAST_UPDATED_BY IN NUMBER,
100 X_LAST_UPDATE_DATE IN DATE,
101 X_LAST_UPDATE_LOGIN IN NUMBER,
102 X_CLASSIFICATION_1 IN VARCHAR2 DEFAULT NULL,
103 X_CLASSIFICATION_2 IN VARCHAR2 DEFAULT NULL,
104 X_CLASSIFICATION_3 IN VARCHAR2 DEFAULT NULL,
105 X_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
106 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
107 X_ERRORCODE OUT NOCOPY NUMBER
108 )
109 IS
110
111 l_Sysdate DATE := Sysdate;
112 l_rowid VARCHAR2(255);
113
114 BEGIN
115
116 IF FND_API.To_Boolean(x_init_msg_list) THEN
117 FND_MSG_PUB.Initialize;
118 END IF;
119
120 --first check unique constraint
121
122 /* IF (Results_Format_Name_Exists(X_NAME
123 ,X_WEB_USER_ID
124 ,NULL
125 ,X_CUSTOMIZATION_APPLICATION_ID
126 ,X_REGION_APPLICATION_ID
127 ,X_REGION_CODE
128 ,X_CUSTOMIZATION_LEVEL_ID
129 ,X_CLASSIFICATION_1
130 ,X_CLASSIFICATION_2
131 ,X_CLASSIFICATION_3) = FALSE) THEN */
132
133 AK_CUSTOM_REGIONS_PKG.INSERT_ROW(
134 X_ROWID => l_rowid,
135 X_CUSTOMIZATION_APPLICATION_ID => X_CUSTOMIZATION_APPLICATION_ID,
136 X_CUSTOMIZATION_CODE => X_CUSTOMIZATION_CODE,
137 X_REGION_APPLICATION_ID => X_REGION_APPLICATION_ID,
138 X_REGION_CODE => X_REGION_CODE,
139 X_PROPERTY_NAME => 'CONFIG_NAME',
140 X_PROPERTY_VARCHAR2_VALUE => X_NAME,
141 X_PROPERTY_NUMBER_VALUE => NULL,
142 X_CRITERIA_JOIN_CONDITION => NULL,
143 X_CREATED_BY => X_CREATED_BY,
144 X_CREATION_DATE => X_CREATION_DATE,
145 X_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
146 X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
147 X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN
148 );
149
150
151
152 INSERT INTO EGO_CUSTOMIZATION_EXT
153 (
154 CUSTOMIZATION_APPLICATION_ID,
155 CUSTOMIZATION_CODE,
156 REGION_APPLICATION_ID,
157 REGION_CODE,
158 CLASSIFICATION1,
159 CLASSIFICATION2,
160 CLASSIFICATION3,
161 CREATED_BY,
162 CREATION_DATE,
163 LAST_UPDATED_BY,
164 LAST_UPDATE_DATE,
165 LAST_UPDATE_LOGIN
166 )
167 VALUES
168 (
169 X_CUSTOMIZATION_APPLICATION_ID,
170 X_CUSTOMIZATION_CODE,
171 X_REGION_APPLICATION_ID,
172 X_REGION_CODE,
173 X_CLASSIFICATION_1,
174 X_CLASSIFICATION_2,
175 X_CLASSIFICATION_3,
176 g_current_user_id,
177 l_Sysdate,
178 g_current_user_id,
179 l_Sysdate,
180 g_current_user_id
181 );
182
183 X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
184
185 /* ELSE
186
187
188 FND_MESSAGE.Set_Name(g_app_name, 'EGO_DUP_RESULTS_FORMAT');
189 FND_MSG_PUB.Add;
190
191 X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
192
193
194 END IF; */
195
196 END create_type_config;
197
198 ---------------------------------------------------------
199
200 PROCEDURE update_type_Config
201 (
202 X_CUSTOMIZATION_APPLICATION_ID IN NUMBER,
203 X_CUSTOMIZATION_CODE IN VARCHAR2,
204 X_REGION_APPLICATION_ID IN NUMBER,
205 X_REGION_CODE IN VARCHAR2,
206 X_NAME IN VARCHAR2,
207 X_LAST_UPDATED_BY IN NUMBER,
208 X_LAST_UPDATE_DATE IN DATE,
209 X_LAST_UPDATE_LOGIN IN NUMBER,
210 X_CLASSIFICATION_1 IN VARCHAR2 DEFAULT NULL,
211 X_CLASSIFICATION_2 IN VARCHAR2 DEFAULT NULL,
212 X_CLASSIFICATION_3 IN VARCHAR2 DEFAULT NULL,
213 X_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
214 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
215 X_ERRORCODE OUT NOCOPY NUMBER
216 )
217 IS
218 l_Sysdate DATE := Sysdate;
219 l_count NUMBER;
220 l_rowid VARCHAR2(255);
221 l_data_level VARCHAR2(4000);
222
223 BEGIN
224
225 IF FND_API.To_Boolean(x_init_msg_list) THEN
226 FND_MSG_PUB.Initialize;
227 END IF;
228
229 /*IF (Results_Format_Name_Exists(X_NAME
230 ,X_WEB_USER_ID
231 ,X_CUSTOMIZATION_CODE
232 ,X_CUSTOMIZATION_APPLICATION_ID
233 ,X_REGION_APPLICATION_ID
234 ,X_REGION_CODE
235 ,X_CUSTOMIZATION_LEVEL_ID
236 ,X_CLASSIFICATION_1
237 ,X_CLASSIFICATION_2
238 ,X_CLASSIFICATION_3) = FALSE) THEN */
239
240 AK_CUSTOM_REGIONS_PKG.UPDATE_ROW(
241 X_CUSTOMIZATION_APPLICATION_ID => X_CUSTOMIZATION_APPLICATION_ID,
242 X_CUSTOMIZATION_CODE => X_CUSTOMIZATION_CODE,
243 X_REGION_APPLICATION_ID => X_REGION_APPLICATION_ID,
244 X_REGION_CODE => X_REGION_CODE,
245 X_PROPERTY_NAME => 'CONFIG_NAME',
246 X_PROPERTY_VARCHAR2_VALUE => X_NAME,
247 X_PROPERTY_NUMBER_VALUE => NULL,
248 X_CRITERIA_JOIN_CONDITION => NULL,
249 X_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
250 X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
251 X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN
252 );
253
254
255
256 X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
257
258 /*ELSE
259
260 FND_MESSAGE.Set_Name(g_app_name, 'EGO_DUP_RESULTS_FORMAT');
261 FND_MSG_PUB.Add;
262
263 X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
264
265 END IF;*/
266
267 END update_type_Config;
268
269 -------------------------------------------------------------
270
271 PROCEDURE delete_type_config
272 (
273 X_CUSTOMIZATION_APPLICATION_ID IN NUMBER,
274 X_CUSTOMIZATION_CODE IN VARCHAR2,
275 X_REGION_APPLICATION_ID IN NUMBER,
276 X_REGION_CODE IN VARCHAR2,
277 X_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
278 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
279 X_ERRORCODE OUT NOCOPY NUMBER
280 )
281 IS
282
283 BEGIN
284
285 IF FND_API.To_Boolean(x_init_msg_list) THEN
286 FND_MSG_PUB.Initialize;
287 END IF;
288
289 Check_Configuration_delete
290 (
291 X_CUSTOMIZATION_APPLICATION_ID,
292 X_CUSTOMIZATION_CODE,
293 X_REGION_APPLICATION_ID,
294 X_REGION_CODE,
295 FND_API.G_FALSE,
296 X_RETURN_STATUS,
297 X_ERRORCODE
298 );
299
300 IF (X_RETURN_STATUS = FND_API.G_RET_STS_SUCCESS) THEN
301
302 DELETE FROM AK_CUSTOM_REGIONS
303 WHERE CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID
304 AND CUSTOMIZATION_CODE = X_CUSTOMIZATION_CODE
305 AND REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
306 AND REGION_CODE = X_REGION_CODE;
307
308 DELETE FROM AK_CUSTOM_REGIONS_TL
309 WHERE CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID
310 AND CUSTOMIZATION_CODE = X_CUSTOMIZATION_CODE
311 AND REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
312 AND REGION_CODE = X_REGION_CODE;
313
314 DELETE FROM EGO_CUSTOMIZATION_EXT
315 WHERE CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID
316 AND CUSTOMIZATION_CODE = X_CUSTOMIZATION_CODE
317 AND REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
318 AND REGION_CODE = X_REGION_CODE;
319
320 DELETE FROM AK_CUSTOM_REGION_ITEMS
321 WHERE CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID
322 AND CUSTOMIZATION_CODE = X_CUSTOMIZATION_CODE
323 AND REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
324 AND REGION_CODE = X_REGION_CODE;
325
326 DELETE FROM AK_CUSTOM_REGION_ITEMS_TL
327 WHERE CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID
328 AND CUSTOMIZATION_CODE = X_CUSTOMIZATION_CODE
329 AND REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
330 AND REGION_CODE = X_REGION_CODE;
331
332 X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
333
334 ELSE
335
336 X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
337
338 END IF;
339
340 END delete_type_config;
341 ---------------------------------------------------------
342
343
344 PROCEDURE create_Primary_Attribute
345 (
346 X_CUSTOMIZATION_APPLICATION_ID IN NUMBER,
347 X_CUSTOMIZATION_CODE IN VARCHAR2,
348 X_REGION_APPLICATION_ID IN NUMBER,
349 X_REGION_CODE IN VARCHAR2,
350 X_ATTRIBUTE_APPLICATION_ID IN NUMBER,
351 X_ATTRIBUTE_CODE IN VARCHAR2,
352 X_DISPLAY_SEQUENCE IN NUMBER,
353 X_ORDER_SEQUENCE IN NUMBER,
354 X_ORDER_DIRECTION IN VARCHAR2,
355 X_COLUMN_NAME IN VARCHAR2 := NULL,
356 X_SHOW_TOTAL IN VARCHAR2 := NULL,
357 X_CREATED_BY IN NUMBER,
358 X_CREATION_DATE IN DATE,
359 X_LAST_UPDATED_BY IN NUMBER,
360 X_LAST_UPDATE_DATE IN DATE,
361 X_LAST_UPDATE_LOGIN IN NUMBER,
362 X_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
363 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
364 X_ERRORCODE OUT NOCOPY NUMBER
365 )
366 IS
367
368 l_Sysdate DATE := Sysdate;
369 l_rowid VARCHAR2(255);
370
371 BEGIN
372
373 IF FND_API.To_Boolean(x_init_msg_list) THEN
374 FND_MSG_PUB.Initialize;
375 END IF;
376
377 AK_CUSTOM_REGION_ITEMS_PKG.INSERT_ROW(
378 X_ROWID => l_rowid,
379 X_CUSTOMIZATION_APPLICATION_ID => X_CUSTOMIZATION_APPLICATION_ID,
380 X_CUSTOMIZATION_CODE => X_CUSTOMIZATION_CODE,
381 X_REGION_APPLICATION_ID => X_REGION_APPLICATION_ID,
382 X_REGION_CODE => X_REGION_CODE,
383 X_ATTRIBUTE_APPLICATION_ID => X_ATTRIBUTE_APPLICATION_ID,
384 X_ATTRIBUTE_CODE => X_ATTRIBUTE_CODE,
385 X_PROPERTY_NAME => 'DISPLAY_SEQUENCE',
386 X_PROPERTY_VARCHAR2_VALUE => null,
387 X_PROPERTY_NUMBER_VALUE => X_DISPLAY_SEQUENCE,
388 X_PROPERTY_DATE_VALUE => NULL,
389 X_CREATED_BY => X_CREATED_BY,
390 X_CREATION_DATE => X_CREATION_DATE,
391 X_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
392 X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
393 X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN
394 );
395
396 IF (X_ORDER_SEQUENCE IS NOT NULL) THEN
397
398 AK_CUSTOM_REGION_ITEMS_PKG.INSERT_ROW(
399 X_ROWID => l_rowid,
400 X_CUSTOMIZATION_APPLICATION_ID => X_CUSTOMIZATION_APPLICATION_ID,
401 X_CUSTOMIZATION_CODE => X_CUSTOMIZATION_CODE,
402 X_REGION_APPLICATION_ID => X_REGION_APPLICATION_ID,
403 X_REGION_CODE => X_REGION_CODE,
404 X_ATTRIBUTE_APPLICATION_ID => X_ATTRIBUTE_APPLICATION_ID,
405 X_ATTRIBUTE_CODE => X_ATTRIBUTE_CODE,
406 X_PROPERTY_NAME => 'ORDER_SEQUENCE',
407 X_PROPERTY_VARCHAR2_VALUE => NULL,
408 X_PROPERTY_NUMBER_VALUE => X_ORDER_SEQUENCE,
409 X_PROPERTY_DATE_VALUE => NULL,
410 X_CREATED_BY => X_CREATED_BY,
411 X_CREATION_DATE => X_CREATION_DATE,
412 X_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
413 X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
414 X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN
415 );
416
417 END IF;
418
419 IF (X_ORDER_DIRECTION IS NOT NULL) THEN
420
421 AK_CUSTOM_REGION_ITEMS_PKG.INSERT_ROW(
422 X_ROWID => l_rowid,
423 X_CUSTOMIZATION_APPLICATION_ID => X_CUSTOMIZATION_APPLICATION_ID,
424 X_CUSTOMIZATION_CODE => X_CUSTOMIZATION_CODE,
425 X_REGION_APPLICATION_ID => X_REGION_APPLICATION_ID,
426 X_REGION_CODE => X_REGION_CODE,
427 X_ATTRIBUTE_APPLICATION_ID => X_ATTRIBUTE_APPLICATION_ID,
428 X_ATTRIBUTE_CODE => X_ATTRIBUTE_CODE,
429 X_PROPERTY_NAME => 'ORDER_DIRECTION',
430 X_PROPERTY_VARCHAR2_VALUE => X_ORDER_DIRECTION,
431 X_PROPERTY_NUMBER_VALUE => NULL,
432 X_PROPERTY_DATE_VALUE => NULL,
433 X_CREATED_BY => X_CREATED_BY,
434 X_CREATION_DATE => X_CREATION_DATE,
435 X_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
436 X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
437 X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN
438 );
439 END IF;
440
441 IF (X_COLUMN_NAME IS NOT NULL) THEN
442
443 AK_CUSTOM_REGION_ITEMS_PKG.INSERT_ROW(
444 X_ROWID => l_rowid,
445 X_CUSTOMIZATION_APPLICATION_ID => X_CUSTOMIZATION_APPLICATION_ID,
446 X_CUSTOMIZATION_CODE => X_CUSTOMIZATION_CODE,
447 X_REGION_APPLICATION_ID => X_REGION_APPLICATION_ID,
448 X_REGION_CODE => X_REGION_CODE,
449 X_ATTRIBUTE_APPLICATION_ID => X_ATTRIBUTE_APPLICATION_ID,
450 X_ATTRIBUTE_CODE => X_ATTRIBUTE_CODE,
451 X_PROPERTY_NAME => 'COLUMN_NAME',
452 X_PROPERTY_VARCHAR2_VALUE => X_COLUMN_NAME,
453 X_PROPERTY_NUMBER_VALUE => NULL,
454 X_PROPERTY_DATE_VALUE => NULL,
455 X_CREATED_BY => X_CREATED_BY,
456 X_CREATION_DATE => X_CREATION_DATE,
457 X_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
458 X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
459 X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN
460 );
461 END IF;
462
463 IF (X_SHOW_TOTAL IS NOT NULL) THEN
464
465 AK_CUSTOM_REGION_ITEMS_PKG.INSERT_ROW(
466 X_ROWID => l_rowid,
467 X_CUSTOMIZATION_APPLICATION_ID => X_CUSTOMIZATION_APPLICATION_ID,
468 X_CUSTOMIZATION_CODE => X_CUSTOMIZATION_CODE,
469 X_REGION_APPLICATION_ID => X_REGION_APPLICATION_ID,
470 X_REGION_CODE => X_REGION_CODE,
471 X_ATTRIBUTE_APPLICATION_ID => X_ATTRIBUTE_APPLICATION_ID,
472 X_ATTRIBUTE_CODE => X_ATTRIBUTE_CODE,
473 X_PROPERTY_NAME => 'SHOW_TOTAL',
474 X_PROPERTY_VARCHAR2_VALUE => X_SHOW_TOTAL,
475 X_PROPERTY_NUMBER_VALUE => NULL,
476 X_PROPERTY_DATE_VALUE => NULL,
477 X_CREATED_BY => X_CREATED_BY,
478 X_CREATION_DATE => X_CREATION_DATE,
479 X_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
480 X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
481 X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN
482 );
483 END IF;
484
485 -- X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
486 X_RETURN_STATUS := 'T';
487
488
489 END create_Primary_Attribute;
490
491
492 ---------------------------------------------------------
493
494
495 PROCEDURE update_Primary_Attribute
496 (
497 X_CUSTOMIZATION_APPLICATION_ID IN NUMBER,
498 X_CUSTOMIZATION_CODE IN VARCHAR2,
499 X_REGION_APPLICATION_ID IN NUMBER,
500 X_REGION_CODE IN VARCHAR2,
501 X_ATTRIBUTE_APPLICATION_ID IN NUMBER,
502 X_ATTRIBUTE_CODE IN VARCHAR2,
503 X_DISPLAY_SEQUENCE IN NUMBER,
504 X_ORDER_SEQUENCE IN NUMBER,
505 X_ORDER_DIRECTION IN VARCHAR2,
506 X_COLUMN_NAME IN VARCHAR2 := NULL,
507 X_SHOW_TOTAL IN VARCHAR2 := NULL,
508 X_LAST_UPDATED_BY IN NUMBER,
509 X_LAST_UPDATE_DATE IN DATE,
510 X_LAST_UPDATE_LOGIN IN NUMBER,
511 X_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
512 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
513 X_ERRORCODE OUT NOCOPY NUMBER
514 )
515 IS
516
517 l_Sysdate DATE := Sysdate;
518 l_rowid VARCHAR2(255);
519 l_count NUMBER;
520
521 BEGIN
522
523 IF FND_API.To_Boolean(x_init_msg_list) THEN
524 FND_MSG_PUB.Initialize;
525 END IF;
526
527 AK_CUSTOM_REGION_ITEMS_PKG.UPDATE_ROW(
528 X_CUSTOMIZATION_APPLICATION_ID => X_CUSTOMIZATION_APPLICATION_ID,
529 X_CUSTOMIZATION_CODE => X_CUSTOMIZATION_CODE,
530 X_REGION_APPLICATION_ID => X_REGION_APPLICATION_ID,
531 X_REGION_CODE => X_REGION_CODE,
532 X_ATTRIBUTE_APPLICATION_ID => X_ATTRIBUTE_APPLICATION_ID,
533 X_ATTRIBUTE_CODE => X_ATTRIBUTE_CODE,
534 X_PROPERTY_NAME => 'DISPLAY_SEQUENCE',
535 X_PROPERTY_VARCHAR2_VALUE => NULL,
536 X_PROPERTY_NUMBER_VALUE => X_DISPLAY_SEQUENCE,
537 X_PROPERTY_DATE_VALUE => NULL,
538 X_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
539 X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
540 X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN
541 );
542
543 SELECT
544 COUNT(*) INTO l_count
545 FROM
546 AK_CUSTOM_REGION_ITEMS
547 WHERE
548 CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID
549 AND CUSTOMIZATION_CODE = X_CUSTOMIZATION_CODE
550 AND REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
551 AND REGION_CODE = X_REGION_CODE
552 AND ATTRIBUTE_APPLICATION_ID = X_ATTRIBUTE_APPLICATION_ID
553 AND ATTRIBUTE_CODE = X_ATTRIBUTE_CODE
554 AND PROPERTY_NAME = 'ORDER_SEQUENCE';
555
556 IF (X_ORDER_SEQUENCE IS NULL) THEN
557
558 IF (l_count > 0) THEN
559 DELETE FROM AK_CUSTOM_REGION_ITEMS
560 WHERE CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID
561 AND CUSTOMIZATION_CODE = X_CUSTOMIZATION_CODE
562 AND REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
563 AND REGION_CODE = X_REGION_CODE
564 AND ATTRIBUTE_APPLICATION_ID = X_ATTRIBUTE_APPLICATION_ID
565 AND ATTRIBUTE_CODE = X_ATTRIBUTE_CODE
566 AND PROPERTY_NAME = 'ORDER_SEQUENCE';
567 END IF;
568
569 ELSE
570
571 IF (l_count > 0) THEN
572
573 AK_CUSTOM_REGION_ITEMS_PKG.UPDATE_ROW(
574 X_CUSTOMIZATION_APPLICATION_ID => X_CUSTOMIZATION_APPLICATION_ID,
575 X_CUSTOMIZATION_CODE => X_CUSTOMIZATION_CODE,
576 X_REGION_APPLICATION_ID => X_REGION_APPLICATION_ID,
577 X_REGION_CODE => X_REGION_CODE,
578 X_ATTRIBUTE_APPLICATION_ID => X_ATTRIBUTE_APPLICATION_ID,
579 X_ATTRIBUTE_CODE => X_ATTRIBUTE_CODE,
580 X_PROPERTY_NAME => 'ORDER_SEQUENCE',
581 X_PROPERTY_VARCHAR2_VALUE => NULL,
582 X_PROPERTY_NUMBER_VALUE => X_ORDER_SEQUENCE,
583 X_PROPERTY_DATE_VALUE => NULL,
584 X_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
585 X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
586 X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN
587 );
588
589 ELSE
590
591 AK_CUSTOM_REGION_ITEMS_PKG.INSERT_ROW(
592 X_ROWID => l_rowid,
593 X_CUSTOMIZATION_APPLICATION_ID => X_CUSTOMIZATION_APPLICATION_ID,
594 X_CUSTOMIZATION_CODE => X_CUSTOMIZATION_CODE,
595 X_REGION_APPLICATION_ID => X_REGION_APPLICATION_ID,
596 X_REGION_CODE => X_REGION_CODE,
597 X_ATTRIBUTE_APPLICATION_ID => X_ATTRIBUTE_APPLICATION_ID,
598 X_ATTRIBUTE_CODE => X_ATTRIBUTE_CODE,
599 X_PROPERTY_NAME => 'ORDER_SEQUENCE',
600 X_PROPERTY_VARCHAR2_VALUE => NULL,
601 X_PROPERTY_NUMBER_VALUE => X_ORDER_SEQUENCE,
602 X_PROPERTY_DATE_VALUE => NULL,
603 X_CREATED_BY => X_LAST_UPDATED_BY,
604 X_CREATION_DATE => SYSDATE,
605 X_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
606 X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
607 X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN
608 );
609
610 END IF;
611
612 END IF;
613
614
615 SELECT
616 COUNT(*) INTO l_count
617 FROM
618 AK_CUSTOM_REGION_ITEMS
619 WHERE
620 CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID
621 AND CUSTOMIZATION_CODE = X_CUSTOMIZATION_CODE
622 AND REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
623 AND REGION_CODE = X_REGION_CODE
624 AND ATTRIBUTE_APPLICATION_ID = X_ATTRIBUTE_APPLICATION_ID
625 AND ATTRIBUTE_CODE = X_ATTRIBUTE_CODE
626 AND PROPERTY_NAME = 'ORDER_DIRECTION';
627
628 IF (X_ORDER_DIRECTION IS NULL) THEN
629
630 IF (l_count > 0) THEN
631 DELETE FROM AK_CUSTOM_REGION_ITEMS
632 WHERE CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID
633 AND CUSTOMIZATION_CODE = X_CUSTOMIZATION_CODE
634 AND REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
635 AND REGION_CODE = X_REGION_CODE
636 AND ATTRIBUTE_APPLICATION_ID = X_ATTRIBUTE_APPLICATION_ID
637 AND ATTRIBUTE_CODE = X_ATTRIBUTE_CODE
638 AND PROPERTY_NAME = 'ORDER_DIRECTION';
639 END IF;
640
641 ELSE
642
643 IF (l_count > 0) THEN
644
645 AK_CUSTOM_REGION_ITEMS_PKG.UPDATE_ROW(
646 X_CUSTOMIZATION_APPLICATION_ID => X_CUSTOMIZATION_APPLICATION_ID,
647 X_CUSTOMIZATION_CODE => X_CUSTOMIZATION_CODE,
648 X_REGION_APPLICATION_ID => X_REGION_APPLICATION_ID,
649 X_REGION_CODE => X_REGION_CODE,
650 X_ATTRIBUTE_APPLICATION_ID => X_ATTRIBUTE_APPLICATION_ID,
651 X_ATTRIBUTE_CODE => X_ATTRIBUTE_CODE,
652 X_PROPERTY_NAME => 'ORDER_DIRECTION',
653 X_PROPERTY_VARCHAR2_VALUE => X_ORDER_DIRECTION,
654 X_PROPERTY_NUMBER_VALUE => NULL,
655 X_PROPERTY_DATE_VALUE => NULL,
656 X_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
657 X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
658 X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN
659 );
660
661 ELSE
662
663 AK_CUSTOM_REGION_ITEMS_PKG.INSERT_ROW(
664 X_ROWID => l_rowid,
665 X_CUSTOMIZATION_APPLICATION_ID => X_CUSTOMIZATION_APPLICATION_ID,
666 X_CUSTOMIZATION_CODE => X_CUSTOMIZATION_CODE,
667 X_REGION_APPLICATION_ID => X_REGION_APPLICATION_ID,
668 X_REGION_CODE => X_REGION_CODE,
669 X_ATTRIBUTE_APPLICATION_ID => X_ATTRIBUTE_APPLICATION_ID,
670 X_ATTRIBUTE_CODE => X_ATTRIBUTE_CODE,
671 X_PROPERTY_NAME => 'ORDER_DIRECTION',
672 X_PROPERTY_VARCHAR2_VALUE => X_ORDER_DIRECTION,
673 X_PROPERTY_NUMBER_VALUE => NULL,
674 X_PROPERTY_DATE_VALUE => NULL,
675 X_CREATED_BY => X_LAST_UPDATED_BY,
676 X_CREATION_DATE => SYSDATE,
677 X_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
678 X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
679 X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN
680 );
681
682 END IF;
683
684 END IF;
685
686 SELECT
687 COUNT(*) INTO l_count
688 FROM
689 AK_CUSTOM_REGION_ITEMS
690 WHERE
691 CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID
692 AND CUSTOMIZATION_CODE = X_CUSTOMIZATION_CODE
693 AND REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
694 AND REGION_CODE = X_REGION_CODE
695 AND ATTRIBUTE_APPLICATION_ID = X_ATTRIBUTE_APPLICATION_ID
696 AND ATTRIBUTE_CODE = X_ATTRIBUTE_CODE
697 AND PROPERTY_NAME = 'COLUMN_NAME';
698
699 IF (X_COLUMN_NAME IS NULL) THEN
700
701 IF (l_count > 0) THEN
702 DELETE FROM AK_CUSTOM_REGION_ITEMS
703 WHERE CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID
704 AND CUSTOMIZATION_CODE = X_CUSTOMIZATION_CODE
705 AND REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
706 AND REGION_CODE = X_REGION_CODE
707 AND ATTRIBUTE_APPLICATION_ID = X_ATTRIBUTE_APPLICATION_ID
708 AND ATTRIBUTE_CODE = X_ATTRIBUTE_CODE
709 AND PROPERTY_NAME = 'COLUMN_NAME';
710 END IF;
711
712 ELSE
713
714 IF (l_count > 0) THEN
715
716 AK_CUSTOM_REGION_ITEMS_PKG.UPDATE_ROW(
717 X_CUSTOMIZATION_APPLICATION_ID => X_CUSTOMIZATION_APPLICATION_ID,
718 X_CUSTOMIZATION_CODE => X_CUSTOMIZATION_CODE,
719 X_REGION_APPLICATION_ID => X_REGION_APPLICATION_ID,
720 X_REGION_CODE => X_REGION_CODE,
721 X_ATTRIBUTE_APPLICATION_ID => X_ATTRIBUTE_APPLICATION_ID,
722 X_ATTRIBUTE_CODE => X_ATTRIBUTE_CODE,
723 X_PROPERTY_NAME => 'COLUMN_NAME',
724 X_PROPERTY_VARCHAR2_VALUE => X_COLUMN_NAME,
725 X_PROPERTY_NUMBER_VALUE => NULL,
726 X_PROPERTY_DATE_VALUE => NULL,
727 X_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
728 X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
729 X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN
730 );
731
732 ELSE
733
734 AK_CUSTOM_REGION_ITEMS_PKG.INSERT_ROW(
735 X_ROWID => l_rowid,
736 X_CUSTOMIZATION_APPLICATION_ID => X_CUSTOMIZATION_APPLICATION_ID,
737 X_CUSTOMIZATION_CODE => X_CUSTOMIZATION_CODE,
738 X_REGION_APPLICATION_ID => X_REGION_APPLICATION_ID,
739 X_REGION_CODE => X_REGION_CODE,
740 X_ATTRIBUTE_APPLICATION_ID => X_ATTRIBUTE_APPLICATION_ID,
741 X_ATTRIBUTE_CODE => X_ATTRIBUTE_CODE,
742 X_PROPERTY_NAME => 'COLUMN_NAME',
743 X_PROPERTY_VARCHAR2_VALUE => X_COLUMN_NAME,
744 X_PROPERTY_NUMBER_VALUE => NULL,
745 X_PROPERTY_DATE_VALUE => NULL,
746 X_CREATED_BY => X_LAST_UPDATED_BY,
747 X_CREATION_DATE => SYSDATE,
748 X_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
749 X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
750 X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN
751 );
752
753 END IF;
754
755 END IF;
756
757 SELECT
758 COUNT(*) INTO l_count
759 FROM
760 AK_CUSTOM_REGION_ITEMS
761 WHERE
762 CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID
763 AND CUSTOMIZATION_CODE = X_CUSTOMIZATION_CODE
764 AND REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
765 AND REGION_CODE = X_REGION_CODE
766 AND ATTRIBUTE_APPLICATION_ID = X_ATTRIBUTE_APPLICATION_ID
767 AND ATTRIBUTE_CODE = X_ATTRIBUTE_CODE
768 AND PROPERTY_NAME = 'SHOW_TOTAL';
769
770 IF (X_SHOW_TOTAL IS NULL) THEN
771
772 IF (l_count > 0) THEN
773 DELETE FROM AK_CUSTOM_REGION_ITEMS
774 WHERE CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID
775 AND CUSTOMIZATION_CODE = X_CUSTOMIZATION_CODE
776 AND REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
777 AND REGION_CODE = X_REGION_CODE
778 AND ATTRIBUTE_APPLICATION_ID = X_ATTRIBUTE_APPLICATION_ID
779 AND ATTRIBUTE_CODE = X_ATTRIBUTE_CODE
780 AND PROPERTY_NAME = 'SHOW_TOTAL';
781 END IF;
782
783 ELSE
784
785 IF (l_count > 0) THEN
786
787 AK_CUSTOM_REGION_ITEMS_PKG.UPDATE_ROW(
788 X_CUSTOMIZATION_APPLICATION_ID => X_CUSTOMIZATION_APPLICATION_ID,
789 X_CUSTOMIZATION_CODE => X_CUSTOMIZATION_CODE,
790 X_REGION_APPLICATION_ID => X_REGION_APPLICATION_ID,
791 X_REGION_CODE => X_REGION_CODE,
792 X_ATTRIBUTE_APPLICATION_ID => X_ATTRIBUTE_APPLICATION_ID,
793 X_ATTRIBUTE_CODE => X_ATTRIBUTE_CODE,
794 X_PROPERTY_NAME => 'SHOW_TOTAL',
795 X_PROPERTY_VARCHAR2_VALUE => X_SHOW_TOTAL,
796 X_PROPERTY_NUMBER_VALUE => NULL,
797 X_PROPERTY_DATE_VALUE => NULL,
798 X_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
799 X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
800 X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN
801 );
802
803 ELSE
804
805 AK_CUSTOM_REGION_ITEMS_PKG.INSERT_ROW(
806 X_ROWID => l_rowid,
807 X_CUSTOMIZATION_APPLICATION_ID => X_CUSTOMIZATION_APPLICATION_ID,
808 X_CUSTOMIZATION_CODE => X_CUSTOMIZATION_CODE,
809 X_REGION_APPLICATION_ID => X_REGION_APPLICATION_ID,
810 X_REGION_CODE => X_REGION_CODE,
811 X_ATTRIBUTE_APPLICATION_ID => X_ATTRIBUTE_APPLICATION_ID,
812 X_ATTRIBUTE_CODE => X_ATTRIBUTE_CODE,
813 X_PROPERTY_NAME => 'SHOW_TOTAL',
814 X_PROPERTY_VARCHAR2_VALUE => X_SHOW_TOTAL,
815 X_PROPERTY_NUMBER_VALUE => NULL,
816 X_PROPERTY_DATE_VALUE => NULL,
817 X_CREATED_BY => X_LAST_UPDATED_BY,
818 X_CREATION_DATE => SYSDATE,
819 X_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
820 X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
821 X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN
822 );
823
824 END IF;
825
826 END IF;
827
828
829 -- X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
830 X_RETURN_STATUS := 'T';
831
832
833 END update_Primary_Attribute;
834
835 -------------------------------------------------------------
836
837 PROCEDURE delete_Primary_Attribute
838 (
839 X_CUSTOMIZATION_APPLICATION_ID IN NUMBER,
840 X_CUSTOMIZATION_CODE IN VARCHAR2,
841 X_REGION_APPLICATION_ID IN NUMBER,
842 X_REGION_CODE IN VARCHAR2,
843 X_ATTRIBUTE_APPLICATION_ID IN NUMBER,
844 X_ATTRIBUTE_CODE IN VARCHAR2,
845 X_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
846 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
847 X_ERRORCODE OUT NOCOPY NUMBER
848 )
849 IS
850
851 BEGIN
852
853 IF FND_API.To_Boolean(x_init_msg_list) THEN
854 FND_MSG_PUB.Initialize;
855 END IF;
856
857 DELETE FROM AK_CUSTOM_REGION_ITEMS
858 WHERE CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID
859 AND CUSTOMIZATION_CODE = X_CUSTOMIZATION_CODE
860 AND REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
861 AND REGION_CODE = X_REGION_CODE
862 AND ATTRIBUTE_APPLICATION_ID = X_ATTRIBUTE_APPLICATION_ID
863 AND ATTRIBUTE_CODE = X_ATTRIBUTE_CODE;
864
865 DELETE FROM AK_CUSTOM_REGION_ITEMS_TL
866 WHERE CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID
867 AND CUSTOMIZATION_CODE = X_CUSTOMIZATION_CODE
868 AND REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
869 AND REGION_CODE = X_REGION_CODE
870 AND ATTRIBUTE_APPLICATION_ID = X_ATTRIBUTE_APPLICATION_ID
871 AND ATTRIBUTE_CODE = X_ATTRIBUTE_CODE;
872
873 -- X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
874 X_RETURN_STATUS := 'T';
875
876
877 END delete_Primary_Attribute;
878 ---------------------------------------------------------
879
880
881
882 PROCEDURE create_config_section
883 (
884 X_CUSTOMIZATION_APPLICATION_ID IN NUMBER,
885 X_CUSTOMIZATION_CODE IN VARCHAR2,
886 X_REGION_APPLICATION_ID IN NUMBER,
887 X_REGION_CODE IN VARCHAR2,
888 X_ATTRIBUTE_APPLICATION_ID IN NUMBER,
889 X_ATTRIBUTE_CODE IN VARCHAR2,
890 X_DISPLAY_SEQUENCE IN NUMBER,
891 X_CREATED_BY IN NUMBER,
892 X_CREATION_DATE IN DATE,
893 X_LAST_UPDATED_BY IN NUMBER,
894 X_LAST_UPDATE_DATE IN DATE,
895 X_LAST_UPDATE_LOGIN IN NUMBER,
896 X_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
897 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
898 X_ERRORCODE OUT NOCOPY NUMBER
899 )
900 IS
901
902 l_Sysdate DATE := Sysdate;
903 l_rowid VARCHAR2(255);
904
905 BEGIN
906
907 IF FND_API.To_Boolean(x_init_msg_list) THEN
908 FND_MSG_PUB.Initialize;
909 END IF;
910
911 AK_CUSTOM_REGION_ITEMS_PKG.INSERT_ROW(
912 X_ROWID => l_rowid,
913 X_CUSTOMIZATION_APPLICATION_ID => X_CUSTOMIZATION_APPLICATION_ID,
914 X_CUSTOMIZATION_CODE => X_CUSTOMIZATION_CODE,
915 X_REGION_APPLICATION_ID => X_REGION_APPLICATION_ID,
916 X_REGION_CODE => X_REGION_CODE,
917 X_ATTRIBUTE_APPLICATION_ID => X_ATTRIBUTE_APPLICATION_ID,
918 X_ATTRIBUTE_CODE => X_ATTRIBUTE_CODE,
919 X_PROPERTY_NAME => 'SECTION_SEQUENCE',
920 X_PROPERTY_VARCHAR2_VALUE => NULL,
921 X_PROPERTY_NUMBER_VALUE => X_DISPLAY_SEQUENCE,
922 X_PROPERTY_DATE_VALUE => NULL,
923 X_CREATED_BY => X_CREATED_BY,
924 X_CREATION_DATE => X_CREATION_DATE,
925 X_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
926 X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
927 X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN
928 );
929
930 -- X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
931 X_RETURN_STATUS := 'T';
932
933
934 END create_config_section;
935
936
937 ---------------------------------------------------------
938
939
940 PROCEDURE update_config_section
941 (
942 X_CUSTOMIZATION_APPLICATION_ID IN NUMBER,
943 X_CUSTOMIZATION_CODE IN VARCHAR2,
944 X_REGION_APPLICATION_ID IN NUMBER,
945 X_REGION_CODE IN VARCHAR2,
946 X_ATTRIBUTE_APPLICATION_ID IN NUMBER,
947 X_ATTRIBUTE_CODE IN VARCHAR2,
948 X_DISPLAY_SEQUENCE IN NUMBER,
949 X_LAST_UPDATED_BY IN NUMBER,
950 X_LAST_UPDATE_DATE IN DATE,
951 X_LAST_UPDATE_LOGIN IN NUMBER,
952 X_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
953 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
954 X_ERRORCODE OUT NOCOPY NUMBER
955 )
956 IS
957
958 l_Sysdate DATE := Sysdate;
959 l_rowid VARCHAR2(255);
960
961 BEGIN
962
963 IF FND_API.To_Boolean(x_init_msg_list) THEN
964 FND_MSG_PUB.Initialize;
965 END IF;
966
967 AK_CUSTOM_REGION_ITEMS_PKG.UPDATE_ROW(
968 X_CUSTOMIZATION_APPLICATION_ID => X_CUSTOMIZATION_APPLICATION_ID,
969 X_CUSTOMIZATION_CODE => X_CUSTOMIZATION_CODE,
970 X_REGION_APPLICATION_ID => X_REGION_APPLICATION_ID,
971 X_REGION_CODE => X_REGION_CODE,
972 X_ATTRIBUTE_APPLICATION_ID => X_ATTRIBUTE_APPLICATION_ID,
973 X_ATTRIBUTE_CODE => X_ATTRIBUTE_CODE,
974 X_PROPERTY_NAME => 'SECTION_SEQUENCE',
975 X_PROPERTY_VARCHAR2_VALUE => NULL,
976 X_PROPERTY_NUMBER_VALUE => X_DISPLAY_SEQUENCE,
977 X_PROPERTY_DATE_VALUE => NULL,
978 X_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
979 X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
980 X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN
981 );
982
983 -- X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
984 X_RETURN_STATUS := 'T';
985
986
987 END update_config_section;
988
989 -------------------------------------------------------------
990
991 PROCEDURE delete_config_section
992 (
993 X_CUSTOMIZATION_APPLICATION_ID IN NUMBER,
994 X_CUSTOMIZATION_CODE IN VARCHAR2,
995 X_REGION_APPLICATION_ID IN NUMBER,
996 X_REGION_CODE IN VARCHAR2,
997 X_ATTRIBUTE_APPLICATION_ID IN NUMBER,
998 X_ATTRIBUTE_CODE IN VARCHAR2,
999 X_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
1000 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1001 X_ERRORCODE OUT NOCOPY NUMBER
1002 )
1003 IS
1004
1005 BEGIN
1006
1007 IF FND_API.To_Boolean(x_init_msg_list) THEN
1008 FND_MSG_PUB.Initialize;
1009 END IF;
1010
1011 DELETE FROM AK_CUSTOM_REGION_ITEMS
1012 WHERE CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID
1013 AND CUSTOMIZATION_CODE = X_CUSTOMIZATION_CODE
1014 AND REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
1015 AND REGION_CODE = X_REGION_CODE
1016 AND ATTRIBUTE_APPLICATION_ID = X_ATTRIBUTE_APPLICATION_ID
1017 AND ATTRIBUTE_CODE = X_ATTRIBUTE_CODE;
1018
1019 DELETE FROM AK_CUSTOM_REGION_ITEMS_TL
1020 WHERE CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID
1021 AND CUSTOMIZATION_CODE = X_CUSTOMIZATION_CODE
1022 AND REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
1023 AND REGION_CODE = X_REGION_CODE
1024 AND ATTRIBUTE_APPLICATION_ID = X_ATTRIBUTE_APPLICATION_ID
1025 AND ATTRIBUTE_CODE = X_ATTRIBUTE_CODE;
1026
1027 -- X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1028 X_RETURN_STATUS := 'T';
1029
1030
1031 END delete_config_section;
1032 ---------------------------------------------------------
1033
1034 /*
1035
1036 FUNCTION CONFIG_NAME_EXISTS
1037 (
1038 X_NAME IN VARCHAR2,
1039 X_WEB_USER_ID IN NUMBER,
1040 X_CUSTOMIZATION_CODE IN VARCHAR2,
1041 X_CUSTOMIZATION_APPLICATION_ID IN NUMBER,
1042 X_REGION_APPLICATION_ID IN NUMBER,
1043 X_REGION_CODE IN VARCHAR2,
1044 X_CUSTOMIZATION_LEVEL_ID IN NUMBER,
1045 X_CLASSIFICATION1 IN VARCHAR2,
1046 X_CLASSIFICATION2 IN VARCHAR2,
1047 X_CLASSIFICATION3 IN VARCHAR2
1048 )
1049 RETURN BOOLEAN
1050 IS
1051
1052 l_count NUMBER;
1053
1054 BEGIN
1055
1056 IF (X_CUSTOMIZATION_CODE IS NOT NULL) THEN
1057
1058 IF (X_CUSTOMIZATION_LEVEL_ID = 30) THEN
1059
1060 SELECT
1061 COUNT(*)
1062 INTO
1063 l_count
1064 FROM
1065 EGO_RESULTS_FORMAT_V
1066 WHERE
1067 NAME = X_NAME
1068 AND CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID
1069 AND REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
1070 AND REGION_CODE = X_REGION_CODE
1071 AND (CUSTOMIZATION_LEVEL_ID = 60 OR (CUSTOMIZATION_LEVEL_ID = 30 AND WEB_USER_ID = X_WEB_USER_ID))
1072 AND CUSTOMIZATION_CODE <> X_CUSTOMIZATION_CODE
1073 AND NVL(X_CLASSIFICATION1, g_null_value) = NVL(CLASSIFICATION1, g_null_value)
1074 AND NVL(X_CLASSIFICATION2, g_null_value) = NVL(CLASSIFICATION2, g_null_value)
1075 AND NVL(X_CLASSIFICATION3, g_null_value) = NVL(CLASSIFICATION3, g_null_value);
1076
1077 ELSE
1078
1079 SELECT
1080 COUNT(*)
1081 INTO
1082 l_count
1083 FROM
1084 EGO_RESULTS_FORMAT_V
1085 WHERE
1086 NAME = X_NAME
1087 AND CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID
1088 AND REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
1089 AND REGION_CODE = X_REGION_CODE
1090 AND CUSTOMIZATION_CODE <> X_CUSTOMIZATION_CODE
1091 AND NVL(X_CLASSIFICATION1, g_null_value) = NVL(CLASSIFICATION1, g_null_value)
1092 AND NVL(X_CLASSIFICATION2, g_null_value) = NVL(CLASSIFICATION2, g_null_value)
1093 AND NVL(X_CLASSIFICATION3, g_null_value) = NVL(CLASSIFICATION3, g_null_value);
1094
1095
1096 END IF;
1097
1098 ELSE
1099
1100 IF (X_CUSTOMIZATION_LEVEL_ID = 30) THEN
1101
1102 SELECT
1103 COUNT(*)
1104 INTO
1105 l_count
1106 FROM
1107 EGO_RESULTS_FORMAT_V
1108 WHERE
1109 NAME = X_NAME
1110 AND CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID
1111 AND REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
1112 AND REGION_CODE = X_REGION_CODE
1113 AND (CUSTOMIZATION_LEVEL_ID = 60 OR (CUSTOMIZATION_LEVEL_ID = 30 AND WEB_USER_ID = X_WEB_USER_ID))
1114 AND NVL(X_CLASSIFICATION1, g_null_value) = NVL(CLASSIFICATION1, g_null_value)
1115 AND NVL(X_CLASSIFICATION2, g_null_value) = NVL(CLASSIFICATION2, g_null_value)
1116 AND NVL(X_CLASSIFICATION3, g_null_value) = NVL(CLASSIFICATION3, g_null_value);
1117
1118
1119 ELSE
1120
1121 SELECT
1122 COUNT(*)
1123 INTO
1124 l_count
1125 FROM
1126 EGO_RESULTS_FORMAT_V
1127 WHERE
1128 NAME = X_NAME
1129 AND CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID
1130 AND REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
1131 AND REGION_CODE = X_REGION_CODE
1132 AND NVL(X_CLASSIFICATION1, g_null_value) = NVL(CLASSIFICATION1, g_null_value)
1133 AND NVL(X_CLASSIFICATION2, g_null_value) = NVL(CLASSIFICATION2, g_null_value)
1134 AND NVL(X_CLASSIFICATION3, g_null_value) = NVL(CLASSIFICATION3, g_null_value);
1135
1136 END IF;
1137
1138 END IF;
1139
1140 RETURN l_count > 0;
1141
1142 END Results_Format_Name_Exists;
1143 */
1144
1145 END ENG_TYPE_CONFIGURATION_PKG;