eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.AK_REGIONS_PKG

Source


1 package body AK_REGIONS_PKG as
2 /* $Header: AKDREGNB.pls 120.3 2006/01/25 15:58:41 tshort ship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out NOCOPY VARCHAR2,
5 X_REGION_APPLICATION_ID in NUMBER,
6 X_REGION_CODE in VARCHAR2,
7 X_DATABASE_OBJECT_NAME in VARCHAR2,
8 X_REGION_STYLE in VARCHAR2,
9 X_NUM_COLUMNS in NUMBER,
10 X_ICX_CUSTOM_CALL in VARCHAR2,
11 X_NAME in VARCHAR2,
12 X_DESCRIPTION in VARCHAR2,
13 X_REGION_DEFAULTING_API_PKG in VARCHAR2,
14 X_REGION_DEFAULTING_API_PROC in VARCHAR2,
15 X_REGION_VALIDATION_API_PKG in VARCHAR2,
16 X_REGION_VALIDATION_API_PROC in VARCHAR2,
17 X_APPL_MODULE_OBJECT_TYPE in VARCHAR2,
18 X_NUM_ROWS_DISPLAY in NUMBER,
19 X_REGION_OBJECT_TYPE in VARCHAR2,
20 X_IMAGE_FILE_NAME in VARCHAR2,
21 X_ISFORM_FLAG in VARCHAR2,
22 X_HELP_TARGET in VARCHAR2,
23 X_STYLE_SHEET_FILENAME in VARCHAR2,
24 X_VERSION in VARCHAR2,
25 X_APPLICATIONMODULE_USAGE_NAME in VARCHAR2 := NULL,
26 X_ADD_INDEXED_CHILDREN in VARCHAR2 := NULL,
27 X_STATEFUL_FLAG in VARCHAR2 := NULL,
28 X_FUNCTION_NAME in VARCHAR2 := NULL,
29 X_CHILDREN_VIEW_USAGE_NAME in VARCHAR2 := NULL,
30 X_SEARCH_PANEL in VARCHAR2 := NULL,
31 X_ADVANCED_SEARCH_PANEL in VARCHAR2 := NULL,
32 X_CUSTOMIZE_PANEL in VARCHAR2 := NULL,
33 X_DEFAULT_SEARCH_PANEL in VARCHAR2 := NULL,
34 X_RESULTS_BASED_SEARCH in VARCHAR2 := NULL,
35 X_DISPLAY_GRAPH_TABLE in VARCHAR2 := NULL,
36 X_DISABLE_HEADER in VARCHAR2 := NULL,
37 X_STANDALONE in VARCHAR2 := 'Y',
38 X_AUTO_CUSTOMIZATION_CRITERIA in VARCHAR2 := NULL,
39 X_CREATION_DATE in DATE,
40 X_CREATED_BY in NUMBER,
41 X_LAST_UPDATE_DATE in DATE,
42 X_LAST_UPDATED_BY in NUMBER,
43 X_LAST_UPDATE_LOGIN in NUMBER,
44 X_ATTRIBUTE_CATEGORY in VARCHAR2,
45 X_ATTRIBUTE1 in VARCHAR2,
46 X_ATTRIBUTE2 in VARCHAR2,
47 X_ATTRIBUTE3 in VARCHAR2,
48 X_ATTRIBUTE4 in VARCHAR2,
49 X_ATTRIBUTE5 in VARCHAR2,
50 X_ATTRIBUTE6 in VARCHAR2,
51 X_ATTRIBUTE7 in VARCHAR2,
52 X_ATTRIBUTE8 in VARCHAR2,
53 X_ATTRIBUTE9 in VARCHAR2,
54 X_ATTRIBUTE10 in VARCHAR2,
55 X_ATTRIBUTE11 in VARCHAR2,
56 X_ATTRIBUTE12 in VARCHAR2,
57 X_ATTRIBUTE13 in VARCHAR2,
58 X_ATTRIBUTE14 in VARCHAR2,
59 X_ATTRIBUTE15 in VARCHAR2
60 ) is
61 cursor C is select ROWID from AK_REGIONS
62 where REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
63 and REGION_CODE = X_REGION_CODE;
64 begin
65 insert into AK_REGIONS (
66 REGION_APPLICATION_ID,
67 REGION_CODE,
68 DATABASE_OBJECT_NAME,
69 REGION_STYLE,
70 NUM_COLUMNS,
71 ICX_CUSTOM_CALL,
72 REGION_DEFAULTING_API_PKG,
73 REGION_DEFAULTING_API_PROC,
74 REGION_VALIDATION_API_PKG,
75 REGION_VALIDATION_API_PROC,
76 APPLICATIONMODULE_OBJECT_TYPE,
77 NUM_ROWS_DISPLAY,
78 REGION_OBJECT_TYPE,
79 ISFORM_FLAG,
80 IMAGE_FILE_NAME,
81 HELP_TARGET,
82 STYLE_SHEET_FILENAME,
83 VERSION,
84 APPLICATIONMODULE_USAGE_NAME,
85 ADD_INDEXED_CHILDREN,
86 STATEFUL_FLAG,
87 FUNCTION_NAME,
88 CHILDREN_VIEW_USAGE_NAME,
89 SEARCH_PANEL,
90 ADVANCED_SEARCH_PANEL,
91 CUSTOMIZE_PANEL,
92 DEFAULT_SEARCH_PANEL,
93 RESULTS_BASED_SEARCH,
94 DISPLAY_GRAPH_TABLE,
95 DISABLE_HEADER,
96 STANDALONE,
97 AUTO_CUSTOMIZATION_CRITERIA,
98 CREATION_DATE,
99 CREATED_BY,
100 LAST_UPDATE_DATE,
101 LAST_UPDATED_BY,
102 LAST_UPDATE_LOGIN,
103 ATTRIBUTE_CATEGORY,
104 ATTRIBUTE1,
105 ATTRIBUTE2,
106 ATTRIBUTE3,
107 ATTRIBUTE4,
108 ATTRIBUTE5,
109 ATTRIBUTE6,
110 ATTRIBUTE7,
111 ATTRIBUTE8,
112 ATTRIBUTE9,
113 ATTRIBUTE10,
114 ATTRIBUTE11,
115 ATTRIBUTE12,
116 ATTRIBUTE13,
117 ATTRIBUTE14,
118 ATTRIBUTE15
119 ) values (
120 X_REGION_APPLICATION_ID,
121 X_REGION_CODE,
122 X_DATABASE_OBJECT_NAME,
123 X_REGION_STYLE,
124 X_NUM_COLUMNS,
125 X_ICX_CUSTOM_CALL,
126 X_REGION_DEFAULTING_API_PKG,
127 X_REGION_DEFAULTING_API_PROC,
128 X_REGION_VALIDATION_API_PKG,
129 X_REGION_VALIDATION_API_PROC,
130 X_APPL_MODULE_OBJECT_TYPE,
131 X_NUM_ROWS_DISPLAY,
132 X_REGION_OBJECT_TYPE,
133 X_ISFORM_FLAG,
134 X_IMAGE_FILE_NAME,
135 X_HELP_TARGET,
136 X_STYLE_SHEET_FILENAME,
137 X_VERSION,
138 X_APPLICATIONMODULE_USAGE_NAME,
139 X_ADD_INDEXED_CHILDREN,
140 X_STATEFUL_FLAG,
141 X_FUNCTION_NAME,
142 X_CHILDREN_VIEW_USAGE_NAME,
143 X_SEARCH_PANEL,
144 X_ADVANCED_SEARCH_PANEL,
145 X_CUSTOMIZE_PANEL,
146 X_DEFAULT_SEARCH_PANEL,
147 X_RESULTS_BASED_SEARCH,
148 X_DISPLAY_GRAPH_TABLE,
149 X_DISABLE_HEADER,
150 X_STANDALONE,
151 X_AUTO_CUSTOMIZATION_CRITERIA,
152 X_CREATION_DATE,
153 X_CREATED_BY,
154 X_LAST_UPDATE_DATE,
155 X_LAST_UPDATED_BY,
156 X_LAST_UPDATE_LOGIN,
157 X_ATTRIBUTE_CATEGORY,
158 X_ATTRIBUTE1,
159 X_ATTRIBUTE2,
160 X_ATTRIBUTE3,
161 X_ATTRIBUTE4,
162 X_ATTRIBUTE5,
163 X_ATTRIBUTE6,
164 X_ATTRIBUTE7,
165 X_ATTRIBUTE8,
166 X_ATTRIBUTE9,
167 X_ATTRIBUTE10,
168 X_ATTRIBUTE11,
169 X_ATTRIBUTE12,
170 X_ATTRIBUTE13,
171 X_ATTRIBUTE14,
172 X_ATTRIBUTE15
173 );
174 
175 open c;
176 fetch c into X_ROWID;
177 if (c%notfound) then
178 close c;
179 raise no_data_found;
180 end if;
181 close c;
182 
183 insert into AK_REGIONS_TL (
184 REGION_APPLICATION_ID,
185 REGION_CODE,
186 LANGUAGE,
187 NAME,
188 DESCRIPTION,
189 SOURCE_LANG,
190 CREATED_BY,
191 CREATION_DATE,
192 LAST_UPDATED_BY,
193 LAST_UPDATE_DATE,
194 LAST_UPDATE_LOGIN
195 ) select
196 X_REGION_APPLICATION_ID,
197 X_REGION_CODE,
198 L.LANGUAGE_CODE,
199 X_NAME,
200 X_DESCRIPTION,
201 userenv('LANG'),
202 X_CREATED_BY,
203 X_CREATION_DATE,
204 X_LAST_UPDATED_BY,
205 X_LAST_UPDATE_DATE,
206 X_LAST_UPDATE_LOGIN
207 from FND_LANGUAGES L
208 where L.INSTALLED_FLAG in ('I', 'B')
209 and not exists
210 (select NULL
211 from AK_REGIONS_TL T
212 where T.REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
213 and T.REGION_CODE = X_REGION_CODE
214 and T.LANGUAGE = L.LANGUAGE_CODE);
215 end INSERT_ROW;
216 
217 procedure LOCK_ROW (
218 X_REGION_APPLICATION_ID in NUMBER,
219 X_REGION_CODE in VARCHAR2,
220 X_ATTRIBUTE_CATEGORY in VARCHAR2,
221 X_ATTRIBUTE1 in VARCHAR2,
222 X_ATTRIBUTE2 in VARCHAR2,
223 X_ATTRIBUTE3 in VARCHAR2,
224 X_ATTRIBUTE4 in VARCHAR2,
225 X_ATTRIBUTE5 in VARCHAR2,
226 X_ATTRIBUTE6 in VARCHAR2,
227 X_ATTRIBUTE7 in VARCHAR2,
228 X_ATTRIBUTE8 in VARCHAR2,
229 X_ATTRIBUTE9 in VARCHAR2,
230 X_ATTRIBUTE10 in VARCHAR2,
231 X_ATTRIBUTE11 in VARCHAR2,
232 X_ATTRIBUTE12 in VARCHAR2,
233 X_ATTRIBUTE13 in VARCHAR2,
234 X_ATTRIBUTE14 in VARCHAR2,
235 X_ATTRIBUTE15 in VARCHAR2,
236 X_DATABASE_OBJECT_NAME in VARCHAR2,
237 X_REGION_STYLE in VARCHAR2,
238 X_NUM_COLUMNS in NUMBER,
239 X_ICX_CUSTOM_CALL in VARCHAR2,
240 X_NAME in VARCHAR2,
241 X_DESCRIPTION in VARCHAR2,
242 X_REGION_DEFAULTING_API_PKG in VARCHAR2,
243 X_REGION_DEFAULTING_API_PROC in VARCHAR2,
244 X_REGION_VALIDATION_API_PKG in VARCHAR2,
245 X_REGION_VALIDATION_API_PROC in VARCHAR2,
246 X_APPL_MODULE_OBJECT_TYPE in VARCHAR2,
247 X_NUM_ROWS_DISPLAY in NUMBER,
248 X_REGION_OBJECT_TYPE in VARCHAR2,
249 X_IMAGE_FILE_NAME in VARCHAR2,
250 X_ISFORM_FLAG in VARCHAR2,
251 X_HELP_TARGET in VARCHAR2,
252 X_STYLE_SHEET_FILENAME in VARCHAR2,
253 X_VERSION in VARCHAR2,
254 X_APPLICATIONMODULE_USAGE_NAME in VARCHAR2,
255 X_ADD_INDEXED_CHILDREN in VARCHAR2,
259 X_SEARCH_PANEL in VARCHAR2,
256 X_STATEFUL_FLAG in VARCHAR2,
257 X_FUNCTION_NAME in VARCHAR2,
258 X_CHILDREN_VIEW_USAGE_NAME in VARCHAR2,
260 X_ADVANCED_SEARCH_PANEL in VARCHAR2,
261 X_CUSTOMIZE_PANEL in VARCHAR2,
262 X_DEFAULT_SEARCH_PANEL in VARCHAR2,
263 X_RESULTS_BASED_SEARCH in VARCHAR2,
264 X_DISPLAY_GRAPH_TABLE in VARCHAR2,
265 X_DISABLE_HEADER in VARCHAR2,
266 X_STANDALONE in VARCHAR2,
267 X_AUTO_CUSTOMIZATION_CRITERIA in VARCHAR2
268 ) is
269 cursor c is select
270 ATTRIBUTE_CATEGORY,
271 ATTRIBUTE1,
272 ATTRIBUTE2,
273 ATTRIBUTE3,
274 ATTRIBUTE4,
275 ATTRIBUTE5,
276 ATTRIBUTE6,
277 ATTRIBUTE7,
278 ATTRIBUTE8,
279 ATTRIBUTE9,
280 ATTRIBUTE10,
281 ATTRIBUTE11,
282 ATTRIBUTE12,
283 ATTRIBUTE13,
284 ATTRIBUTE14,
285 ATTRIBUTE15,
286 DATABASE_OBJECT_NAME,
287 REGION_STYLE,
288 NUM_COLUMNS,
289 ICX_CUSTOM_CALL,
290 REGION_DEFAULTING_API_PKG,
291 REGION_DEFAULTING_API_PROC,
292 REGION_VALIDATION_API_PKG,
293 REGION_VALIDATION_API_PROC,
294 APPLICATIONMODULE_OBJECT_TYPE,
295 NUM_ROWS_DISPLAY,
296 REGION_OBJECT_TYPE,
297 ISFORM_FLAG,
298 IMAGE_FILE_NAME,
299 HELP_TARGET,
300 STYLE_SHEET_FILENAME,
301 VERSION,
302 APPLICATIONMODULE_USAGE_NAME,
303 ADD_INDEXED_CHILDREN,
304 STATEFUL_FLAG,
305 FUNCTION_NAME,
306 CHILDREN_VIEW_USAGE_NAME,
307 SEARCH_PANEL,
308 ADVANCED_SEARCH_PANEL,
309 CUSTOMIZE_PANEL,
310 DEFAULT_SEARCH_PANEL,
311 RESULTS_BASED_SEARCH,
312 DISPLAY_GRAPH_TABLE,
313 DISABLE_HEADER,
314 STANDALONE,
315 AUTO_CUSTOMIZATION_CRITERIA
316 from AK_REGIONS
317 where REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
318 and REGION_CODE = X_REGION_CODE
319 for update of REGION_APPLICATION_ID nowait;
320 recinfo c%rowtype;
321 
322 cursor c1 is select
323 NAME,
324 DESCRIPTION
325 from AK_REGIONS_TL
326 where REGION_CODE = X_REGION_CODE
327 and REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
328 and LANGUAGE = userenv('LANG')
329 for update of REGION_CODE nowait;
330 tlinfo c1%rowtype;
331 
332 begin
333 open c;
334 fetch c into recinfo;
335 if (c%notfound) then
336 close c;
337 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
338 app_exception.raise_exception;
339 end if;
340 close c;
341 if ( ((recinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
342 OR ((recinfo.ATTRIBUTE_CATEGORY is null)
343 AND (X_ATTRIBUTE_CATEGORY is null)))
344 AND ((recinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
345 OR ((recinfo.ATTRIBUTE1 is null)
346 AND (X_ATTRIBUTE1 is null)))
347 AND ((recinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
348 OR ((recinfo.ATTRIBUTE2 is null)
349 AND (X_ATTRIBUTE2 is null)))
350 AND ((recinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
351 OR ((recinfo.ATTRIBUTE3 is null)
352 AND (X_ATTRIBUTE3 is null)))
353 AND ((recinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
354 OR ((recinfo.ATTRIBUTE4 is null)
355 AND (X_ATTRIBUTE4 is null)))
356 AND ((recinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
357 OR ((recinfo.ATTRIBUTE5 is null)
358 AND (X_ATTRIBUTE5 is null)))
359 AND ((recinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
360 OR ((recinfo.ATTRIBUTE6 is null)
361 AND (X_ATTRIBUTE6 is null)))
362 AND ((recinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
363 OR ((recinfo.ATTRIBUTE7 is null)
364 AND (X_ATTRIBUTE7 is null)))
365 AND ((recinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
366 OR ((recinfo.ATTRIBUTE8 is null)
367 AND (X_ATTRIBUTE8 is null)))
368 AND ((recinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
369 OR ((recinfo.ATTRIBUTE9 is null)
370 AND (X_ATTRIBUTE9 is null)))
371 AND ((recinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
372 OR ((recinfo.ATTRIBUTE10 is null)
373 AND (X_ATTRIBUTE10 is null)))
374 AND ((recinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
375 OR ((recinfo.ATTRIBUTE11 is null)
376 AND (X_ATTRIBUTE11 is null)))
377 AND ((recinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
378 OR ((recinfo.ATTRIBUTE12 is null)
379 AND (X_ATTRIBUTE12 is null)))
380 AND ((recinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
381 OR ((recinfo.ATTRIBUTE13 is null)
382 AND (X_ATTRIBUTE13 is null)))
383 AND ((recinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
384 OR ((recinfo.ATTRIBUTE14 is null)
385 AND (X_ATTRIBUTE14 is null)))
386 AND ((recinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
387 OR ((recinfo.ATTRIBUTE15 is null)
388 AND (X_ATTRIBUTE15 is null)))
389 AND (recinfo.DATABASE_OBJECT_NAME = X_DATABASE_OBJECT_NAME)
390 AND (recinfo.REGION_STYLE = X_REGION_STYLE)
391 AND ((recinfo.NUM_COLUMNS = X_NUM_COLUMNS)
392 OR ((recinfo.NUM_COLUMNS is null)
393 AND (X_NUM_COLUMNS is null)))
394 AND ((recinfo.ICX_CUSTOM_CALL = X_ICX_CUSTOM_CALL)
395 OR ((recinfo.ICX_CUSTOM_CALL is null)
396 AND (X_ICX_CUSTOM_CALL is null)))
397 AND ((recinfo.REGION_DEFAULTING_API_PKG = X_REGION_DEFAULTING_API_PKG)
398 or ((recinfo.REGION_DEFAULTING_API_PKG is null)
399 and (X_REGION_DEFAULTING_API_PKG is null)))
400 AND ((recinfo.REGION_DEFAULTING_API_PROC = X_REGION_DEFAULTING_API_PROC)
401 or ((recinfo.REGION_DEFAULTING_API_PROC is null)
402 and (X_REGION_DEFAULTING_API_PROC is null)))
403 AND ((recinfo.REGION_VALIDATION_API_PKG = X_REGION_VALIDATION_API_PKG)
404 or ((recinfo.REGION_VALIDATION_API_PKG is null)
405 and (X_REGION_VALIDATION_API_PKG is null)))
406 AND ((recinfo.REGION_VALIDATION_API_PROC = X_REGION_VALIDATION_API_PROC)
407 or ((recinfo.REGION_VALIDATION_API_PROC is null)
408 and (X_REGION_VALIDATION_API_PROC is null)))
409 AND ((recinfo.APPLICATIONMODULE_OBJECT_TYPE = X_APPL_MODULE_OBJECT_TYPE)
410 or ((recinfo.APPLICATIONMODULE_OBJECT_TYPE is null)
411 and (X_APPL_MODULE_OBJECT_TYPE is null)))
412 AND ((recinfo.NUM_ROWS_DISPLAY = X_NUM_ROWS_DISPLAY)
413 or ((recinfo.NUM_ROWS_DISPLAY is null)
414 and (X_NUM_ROWS_DISPLAY is null)))
418 AND ((recinfo.ISFORM_FLAG = X_ISFORM_FLAG)
415 AND ((recinfo.REGION_OBJECT_TYPE = X_REGION_OBJECT_TYPE)
416 or ((recinfo.REGION_OBJECT_TYPE is null)
417 and (X_REGION_OBJECT_TYPE is null)))
419 or ((recinfo.ISFORM_FLAG is null)
423 and (X_IMAGE_FILE_NAME is null)))
420 and (X_ISFORM_FLAG is null)))
421 AND ((recinfo.IMAGE_FILE_NAME = X_IMAGE_FILE_NAME)
422 or ((recinfo.IMAGE_FILE_NAME is null)
424 AND ((recinfo.HELP_TARGET = X_HELP_TARGET)
425 or ((recinfo.HELP_TARGET is null)
426 and (X_HELP_TARGET is null)))
427 AND ((recinfo.STYLE_SHEET_FILENAME = X_STYLE_SHEET_FILENAME)
428 or ((recinfo.STYLE_SHEET_FILENAME is null)
429 and (X_STYLE_SHEET_FILENAME is null)))
430 AND ((recinfo.VERSION = X_VERSION)
431 or ((recinfo.VERSION is null)
432 and (X_VERSION is null)))
433 AND ((recinfo.APPLICATIONMODULE_USAGE_NAME = X_APPLICATIONMODULE_USAGE_NAME)
434 or ((recinfo.APPLICATIONMODULE_USAGE_NAME is null)
435 and (X_APPLICATIONMODULE_USAGE_NAME is null)))
436 AND ((recinfo.ADD_INDEXED_CHILDREN = X_ADD_INDEXED_CHILDREN)
437 or ((recinfo.ADD_INDEXED_CHILDREN is null)
438 and (X_ADD_INDEXED_CHILDREN is null)))
439 AND ((recinfo.STATEFUL_FLAG = X_STATEFUL_FLAG)
440 or ((recinfo.STATEFUL_FLAG is null)
441 and (X_STATEFUL_FLAG is null)))
442 AND ((recinfo.FUNCTION_NAME = X_FUNCTION_NAME)
443 or ((recinfo.FUNCTION_NAME is null)
444 and (X_FUNCTION_NAME is null)))
445 AND ((recinfo.CHILDREN_VIEW_USAGE_NAME = X_CHILDREN_VIEW_USAGE_NAME)
446 or ((recinfo.CHILDREN_VIEW_USAGE_NAME is null)
447 and (X_CHILDREN_VIEW_USAGE_NAME is null)))
448 AND ((recinfo.SEARCH_PANEL = X_SEARCH_PANEL)
449 or ((recinfo.SEARCH_PANEL is null)
450 and (X_SEARCH_PANEL is null)))
451 AND ((recinfo.ADVANCED_SEARCH_PANEL = X_ADVANCED_SEARCH_PANEL)
452 or ((recinfo.ADVANCED_SEARCH_PANEL is null)
453 and (X_ADVANCED_SEARCH_PANEL is null)))
454 AND ((recinfo.CUSTOMIZE_PANEL = X_CUSTOMIZE_PANEL)
455 or ((recinfo.CUSTOMIZE_PANEL is null)
456 and (X_CUSTOMIZE_PANEL is null)))
457 AND ((recinfo.DEFAULT_SEARCH_PANEL = X_DEFAULT_SEARCH_PANEL)
458 or ((recinfo.DEFAULT_SEARCH_PANEL is null)
459 and (X_DEFAULT_SEARCH_PANEL is null)))
460 AND ((recinfo.RESULTS_BASED_SEARCH = X_RESULTS_BASED_SEARCH)
461 or ((recinfo.RESULTS_BASED_SEARCH is null)
462 and (X_RESULTS_BASED_SEARCH is null)))
463 AND ((recinfo.DISPLAY_GRAPH_TABLE = X_DISPLAY_GRAPH_TABLE)
464 or ((recinfo.DISPLAY_GRAPH_TABLE is null)
465 and (X_DISPLAY_GRAPH_TABLE is null)))
466 AND ((recinfo.DISABLE_HEADER = X_DISABLE_HEADER)
467 or ((recinfo.DISABLE_HEADER is null)
468 and (X_DISABLE_HEADER is null)))
469 AND ((recinfo.STANDALONE = X_STANDALONE)
470 or ((recinfo.STANDALONE is null)
471 and (X_STANDALONE is null)))
472 AND ((recinfo.AUTO_CUSTOMIZATION_CRITERIA = X_AUTO_CUSTOMIZATION_CRITERIA)
473 or ((recinfo.AUTO_CUSTOMIZATION_CRITERIA is null)
474 and (X_AUTO_CUSTOMIZATION_CRITERIA is null)))
475 
476 ) then
477 null;
478 else
479 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
480 app_exception.raise_exception;
481 end if;
482 
483 open c1;
484 fetch c1 into tlinfo;
485 if (c1%notfound) then
486 close c1;
487 return;
488 end if;
489 close c1;
490 
491 if ( (tlinfo.NAME = X_NAME)
492 AND ((tlinfo.DESCRIPTION = X_DESCRIPTION)
493 OR ((tlinfo.DESCRIPTION is null)
494 AND (X_DESCRIPTION is null)))
495 ) then
496 null;
497 else
498 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
499 app_exception.raise_exception;
500 end if;
501 return;
502 end LOCK_ROW;
503 
504 procedure UPDATE_ROW (
505 X_REGION_APPLICATION_ID in NUMBER,
506 X_REGION_CODE in VARCHAR2,
507 X_DATABASE_OBJECT_NAME in VARCHAR2,
508 X_REGION_STYLE in VARCHAR2,
509 X_NUM_COLUMNS in NUMBER,
513 X_REGION_DEFAULTING_API_PKG in VARCHAR2,
510 X_ICX_CUSTOM_CALL in VARCHAR2,
511 X_NAME in VARCHAR2,
512 X_DESCRIPTION in VARCHAR2,
514 X_REGION_DEFAULTING_API_PROC in VARCHAR2,
515 X_REGION_VALIDATION_API_PKG in VARCHAR2,
516 X_REGION_VALIDATION_API_PROC in VARCHAR2,
517 X_APPL_MODULE_OBJECT_TYPE in VARCHAR2,
518 X_NUM_ROWS_DISPLAY in NUMBER,
519 X_REGION_OBJECT_TYPE in VARCHAR2,
520 X_IMAGE_FILE_NAME in VARCHAR2,
521 X_ISFORM_FLAG in VARCHAR2,
522 X_HELP_TARGET in VARCHAR2,
523 X_STYLE_SHEET_FILENAME in VARCHAR2,
524 X_VERSION in VARCHAR2,
525 X_APPLICATIONMODULE_USAGE_NAME in VARCHAR2 := NULL,
526 X_ADD_INDEXED_CHILDREN in VARCHAR2 := NULL,
527 X_STATEFUL_FLAG in VARCHAR2 := NULL,
528 X_FUNCTION_NAME in VARCHAR2 := NULL,
529 X_CHILDREN_VIEW_USAGE_NAME in VARCHAR2 := NULL,
530 X_SEARCH_PANEL in VARCHAR2 := NULL,
531 X_ADVANCED_SEARCH_PANEL in VARCHAR2 := NULL,
532 X_CUSTOMIZE_PANEL in VARCHAR2 := NULL,
533 X_DEFAULT_SEARCH_PANEL in VARCHAR2 := NULL,
534 X_RESULTS_BASED_SEARCH in VARCHAR2 := NULL,
535 X_DISPLAY_GRAPH_TABLE in VARCHAR2 := NULL,
536 X_DISABLE_HEADER in VARCHAR2 := NULL,
537 X_STANDALONE in VARCHAR2 := 'Y',
538 X_AUTO_CUSTOMIZATION_CRITERIA in VARCHAR2 := NULL,
539 X_LAST_UPDATE_DATE in DATE,
540 X_LAST_UPDATED_BY in NUMBER,
541 X_LAST_UPDATE_LOGIN in NUMBER,
542 X_ATTRIBUTE_CATEGORY in VARCHAR2,
543 X_ATTRIBUTE1 in VARCHAR2,
544 X_ATTRIBUTE2 in VARCHAR2,
545 X_ATTRIBUTE3 in VARCHAR2,
546 X_ATTRIBUTE4 in VARCHAR2,
547 X_ATTRIBUTE5 in VARCHAR2,
548 X_ATTRIBUTE6 in VARCHAR2,
549 X_ATTRIBUTE7 in VARCHAR2,
550 X_ATTRIBUTE8 in VARCHAR2,
551 X_ATTRIBUTE9 in VARCHAR2,
552 X_ATTRIBUTE10 in VARCHAR2,
553 X_ATTRIBUTE11 in VARCHAR2,
554 X_ATTRIBUTE12 in VARCHAR2,
555 X_ATTRIBUTE13 in VARCHAR2,
556 X_ATTRIBUTE14 in VARCHAR2,
557 X_ATTRIBUTE15 in VARCHAR2
558 ) is
559 begin
560 update AK_REGIONS set
561 REGION_APPLICATION_ID = X_REGION_APPLICATION_ID,
562 REGION_CODE = X_REGION_CODE,
563 DATABASE_OBJECT_NAME = X_DATABASE_OBJECT_NAME,
564 REGION_STYLE = X_REGION_STYLE,
565 NUM_COLUMNS = X_NUM_COLUMNS,
566 ICX_CUSTOM_CALL = X_ICX_CUSTOM_CALL,
567 REGION_DEFAULTING_API_PKG = X_REGION_DEFAULTING_API_PKG,
568 REGION_DEFAULTING_API_PROC = X_REGION_DEFAULTING_API_PROC,
569 REGION_VALIDATION_API_PKG = X_REGION_VALIDATION_API_PKG,
570 REGION_VALIDATION_API_PROC = X_REGION_VALIDATION_API_PROC,
571 APPLICATIONMODULE_OBJECT_TYPE =  X_APPL_MODULE_OBJECT_TYPE,
572 NUM_ROWS_DISPLAY =  X_NUM_ROWS_DISPLAY,
573 REGION_OBJECT_TYPE =  X_REGION_OBJECT_TYPE,
574 ISFORM_FLAG = X_ISFORM_FLAG,
575 IMAGE_FILE_NAME = X_IMAGE_FILE_NAME,
576 HELP_TARGET = X_HELP_TARGET,
577 STYLE_SHEET_FILENAME = X_STYLE_SHEET_FILENAME,
578 VERSION = X_VERSION,
579 APPLICATIONMODULE_USAGE_NAME = X_APPLICATIONMODULE_USAGE_NAME,
580 ADD_INDEXED_CHILDREN = X_ADD_INDEXED_CHILDREN,
581 STATEFUL_FLAG = X_STATEFUL_FLAG,
582 FUNCTION_NAME = X_FUNCTION_NAME,
583 CHILDREN_VIEW_USAGE_NAME = X_CHILDREN_VIEW_USAGE_NAME,
584 SEARCH_PANEL = X_SEARCH_PANEL,
585 ADVANCED_SEARCH_PANEL = X_ADVANCED_SEARCH_PANEL,
586 CUSTOMIZE_PANEL = X_CUSTOMIZE_PANEL,
587 DEFAULT_SEARCH_PANEL = X_DEFAULT_SEARCH_PANEL,
588 RESULTS_BASED_SEARCH = X_RESULTS_BASED_SEARCH,
589 DISPLAY_GRAPH_TABLE = X_DISPLAY_GRAPH_TABLE,
593 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
590 DISABLE_HEADER = X_DISABLE_HEADER,
591 STANDALONE = X_STANDALONE,
592 AUTO_CUSTOMIZATION_CRITERIA = X_AUTO_CUSTOMIZATION_CRITERIA,
594 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
595 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
596 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
597 ATTRIBUTE1 = X_ATTRIBUTE1,
598 ATTRIBUTE2 = X_ATTRIBUTE2,
599 ATTRIBUTE3 = X_ATTRIBUTE3,
600 ATTRIBUTE4 = X_ATTRIBUTE4,
601 ATTRIBUTE5 = X_ATTRIBUTE5,
602 ATTRIBUTE6 = X_ATTRIBUTE6,
603 ATTRIBUTE7 = X_ATTRIBUTE7,
604 ATTRIBUTE8 = X_ATTRIBUTE8,
605 ATTRIBUTE9 = X_ATTRIBUTE9,
606 ATTRIBUTE10 = X_ATTRIBUTE10,
607 ATTRIBUTE11 = X_ATTRIBUTE11,
608 ATTRIBUTE12 = X_ATTRIBUTE12,
609 ATTRIBUTE13 = X_ATTRIBUTE13,
610 ATTRIBUTE14 = X_ATTRIBUTE14,
611 ATTRIBUTE15 = X_ATTRIBUTE15
612 where REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
613 and REGION_CODE = X_REGION_CODE;
614 if (sql%notfound) then
615 raise no_data_found;
616 end if;
617 
618 update AK_REGIONS_TL set
619 NAME = X_NAME,
620 DESCRIPTION = X_DESCRIPTION,
621 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
622 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
623 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
624 SOURCE_LANG = userenv('LANG')
625 where REGION_CODE = X_REGION_CODE
626 and REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
627 and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
631 end UPDATE_ROW;
628 if (sql%notfound) then
629 raise no_data_found;
630 end if;
632 
633 procedure DELETE_ROW (
634 X_REGION_APPLICATION_ID in NUMBER,
635 X_REGION_CODE in VARCHAR2
636 ) is
637 begin
638 delete from AK_REGIONS
639 where REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
640 and REGION_CODE = X_REGION_CODE;
641 
642 if (sql%notfound) then
643 raise no_data_found;
644 end if;
645 
646 delete from AK_REGIONS_TL
647 where REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
648 and REGION_CODE = X_REGION_CODE;
649 
650 if (sql%notfound) then
651 raise no_data_found;
652 end if;
653 end DELETE_ROW;
654 
655 procedure ADD_LANGUAGE
656 is
657 begin
658 
659 /* Mar/19/03 requested by Ric Ginsberg */
660 /* The following delete and update statements are commented out */
661 /* as a quick workaround to fix the time-consuming table handler issue */
662 /* Eventually we'll need to turn them into a separate fix_language procedure */
663 /*
664 delete from AK_REGIONS_TL T
665 where not exists
666 (select NULL
667 from AK_REGIONS B
668 where B.REGION_CODE = T.REGION_CODE
669 and B.REGION_APPLICATION_ID = T.REGION_APPLICATION_ID
670 );
671 
672 update AK_REGIONS_TL T set (
673 NAME,
674 DESCRIPTION
675 ) = (select
676 B.NAME,
677 B.DESCRIPTION
678 from AK_REGIONS_TL B
679 where B.REGION_CODE = T.REGION_CODE
680 and B.REGION_APPLICATION_ID = T.REGION_APPLICATION_ID
681 and B.LANGUAGE = T.SOURCE_LANG)
682 where (
683 T.REGION_CODE,
684 T.REGION_APPLICATION_ID,
685 T.LANGUAGE
686 ) in (select
687 SUBT.REGION_CODE,
688 SUBT.REGION_APPLICATION_ID,
689 SUBT.LANGUAGE
690 from AK_REGIONS_TL SUBB, AK_REGIONS_TL SUBT
691 where SUBB.REGION_CODE = SUBT.REGION_CODE
692 and SUBB.REGION_APPLICATION_ID = SUBT.REGION_APPLICATION_ID
693 and SUBB.LANGUAGE = SUBT.SOURCE_LANG
694 and (SUBB.NAME <> SUBT.NAME
695 or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
696 or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
697 or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
698 ));
699 */
700 
701 insert /*+ append parallel(tt) */ into AK_REGIONS_TL tt (
702 REGION_APPLICATION_ID,
703 REGION_CODE,
704 NAME,
705 DESCRIPTION,
706 CREATED_BY,
707 CREATION_DATE,
708 LAST_UPDATED_BY,
709 LAST_UPDATE_DATE,
710 LAST_UPDATE_LOGIN,
711 LANGUAGE,
712 SOURCE_LANG
713 ) select /*+ parallel(v) parallel(t) use_nl(t)  */ v.* from
714 (select /*+ no_merge ordered parallel(b) */
715 B.REGION_APPLICATION_ID,
716 B.REGION_CODE,
717 B.NAME,
718 B.DESCRIPTION,
719 B.CREATED_BY,
720 B.CREATION_DATE,
721 B.LAST_UPDATED_BY,
722 B.LAST_UPDATE_DATE,
723 B.LAST_UPDATE_LOGIN,
724 L.LANGUAGE_CODE,
725 B.SOURCE_LANG
726 from AK_REGIONS_TL B, FND_LANGUAGES L
727 where L.INSTALLED_FLAG in ('I', 'B')
728 and B.LANGUAGE = userenv('LANG')
729 ) v, AK_REGIONS_TL t
730 where T.REGION_CODE(+) = v.REGION_CODE
731 and T.REGION_APPLICATION_ID(+) = v.REGION_APPLICATION_ID
732 and T.LANGUAGE(+) = v.LANGUAGE_CODE
733 and T.REGION_CODE is NULL
734 and T.REGION_APPLICATION_ID is NULL;
735 
736 end ADD_LANGUAGE;
737 
738 end AK_REGIONS_PKG;