[Home] [Help]
PACKAGE BODY: APPS.CUG_TSK_TYP_ATTR_MAPS_PKG
Source
1 package body CUG_TSK_TYP_ATTR_MAPS_PKG as
2 /* $Header: CUGTSKTB.pls 115.7 2004/03/29 21:46:50 aneemuch ship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out NOCOPY VARCHAR2,
5 X_TSK_TYP_ATTR_MAP_ID in NUMBER,
6 X_END_DATE_ACTIVE in DATE,
7 X_OBJECT_VERSION_NUMBER in NUMBER,
8 X_START_DATE_ACTIVE in DATE,
9 X_TASK_TYPE_ATTRIBUTE_CODE in VARCHAR2,
10 X_TASK_TYPE_ID in NUMBER,
11 X_TASK_ATTR_MANDATORY_FLAG in VARCHAR2,
12 X_TASK_ATTR_DISPLAYED_FLAG in VARCHAR2,
13 X_TASK_ATTRIBUTE_LIST_NAME in VARCHAR2,
14 X_ATTRIBUTE1 in VARCHAR2,
15 X_ATTRIBUTE2 in VARCHAR2,
16 X_ATTRIBUTE3 in VARCHAR2,
17 X_ATTRIBUTE4 in VARCHAR2,
18 X_ATTRIBUTE5 in VARCHAR2,
19 X_ATTRIBUTE6 in VARCHAR2,
20 X_ATTRIBUTE7 in VARCHAR2,
21 X_ATTRIBUTE8 in VARCHAR2,
22 X_ATTRIBUTE9 in VARCHAR2,
23 X_ATTRIBUTE10 in VARCHAR2,
24 X_ATTRIBUTE11 in VARCHAR2,
25 X_ATTRIBUTE12 in VARCHAR2,
26 X_ATTRIBUTE13 in VARCHAR2,
27 X_ATTRIBUTE14 in VARCHAR2,
28 X_ATTRIBUTE15 in VARCHAR2,
29 X_ATTRIBUTE_CATEGORY in VARCHAR2,
30 X_TASK_ATTR_DEFAULT_VALUE in VARCHAR2,
31 X_CREATION_DATE in DATE,
32 X_CREATED_BY in NUMBER,
33 X_LAST_UPDATE_DATE in DATE,
34 X_LAST_UPDATED_BY in NUMBER,
35 X_LAST_UPDATE_LOGIN in NUMBER
36 ) is
37 cursor C is select ROWID from CUG_TSK_TYP_ATTR_MAPS_B
38 where TSK_TYP_ATTR_MAP_ID = X_TSK_TYP_ATTR_MAP_ID
39 ;
40 begin
41 insert into CUG_TSK_TYP_ATTR_MAPS_B (
42 END_DATE_ACTIVE,
43 TSK_TYP_ATTR_MAP_ID,
44 OBJECT_VERSION_NUMBER,
45 START_DATE_ACTIVE,
46 TASK_TYPE_ATTRIBUTE_CODE,
47 TASK_TYPE_ID,
48 TASK_ATTR_MANDATORY_FLAG,
49 TASK_ATTR_DISPLAYED_FLAG,
50 TASK_ATTRIBUTE_LIST_NAME,
51 ATTRIBUTE1,
52 ATTRIBUTE2,
53 ATTRIBUTE3,
54 ATTRIBUTE4,
55 ATTRIBUTE5,
56 ATTRIBUTE6,
57 ATTRIBUTE7,
58 ATTRIBUTE8,
59 ATTRIBUTE9,
60 ATTRIBUTE10,
61 ATTRIBUTE11,
62 ATTRIBUTE12,
63 ATTRIBUTE13,
64 ATTRIBUTE14,
65 ATTRIBUTE15,
66 ATTRIBUTE_CATEGORY,
67 CREATION_DATE,
68 CREATED_BY,
69 LAST_UPDATE_DATE,
70 LAST_UPDATED_BY,
71 LAST_UPDATE_LOGIN
72 ) values (
73 X_END_DATE_ACTIVE,
74 X_TSK_TYP_ATTR_MAP_ID,
75 X_OBJECT_VERSION_NUMBER,
76 X_START_DATE_ACTIVE,
77 X_TASK_TYPE_ATTRIBUTE_CODE,
78 X_TASK_TYPE_ID,
79 X_TASK_ATTR_MANDATORY_FLAG,
80 X_TASK_ATTR_DISPLAYED_FLAG,
81 X_TASK_ATTRIBUTE_LIST_NAME,
82 X_ATTRIBUTE1,
83 X_ATTRIBUTE2,
84 X_ATTRIBUTE3,
85 X_ATTRIBUTE4,
86 X_ATTRIBUTE5,
87 X_ATTRIBUTE6,
88 X_ATTRIBUTE7,
89 X_ATTRIBUTE8,
90 X_ATTRIBUTE9,
91 X_ATTRIBUTE10,
92 X_ATTRIBUTE11,
93 X_ATTRIBUTE12,
94 X_ATTRIBUTE13,
95 X_ATTRIBUTE14,
96 X_ATTRIBUTE15,
97 X_ATTRIBUTE_CATEGORY,
98 X_CREATION_DATE,
99 X_CREATED_BY,
100 X_LAST_UPDATE_DATE,
101 X_LAST_UPDATED_BY,
102 X_LAST_UPDATE_LOGIN
103 );
104
105 insert into CUG_TSK_TYP_ATTR_MAPS_TL (
106 TSK_TYP_ATTR_MAP_ID,
107 CREATED_BY,
108 CREATION_DATE,
109 LAST_UPDATED_BY,
110 LAST_UPDATE_LOGIN,
111 LAST_UPDATE_DATE,
112 TASK_ATTR_DEFAULT_VALUE,
113 LANGUAGE,
114 SOURCE_LANG
115 ) select
116 X_TSK_TYP_ATTR_MAP_ID,
117 X_CREATED_BY,
118 X_CREATION_DATE,
119 X_LAST_UPDATED_BY,
120 X_LAST_UPDATE_LOGIN,
121 X_LAST_UPDATE_DATE,
122 X_TASK_ATTR_DEFAULT_VALUE,
123 L.LANGUAGE_CODE,
124 userenv('LANG')
125 from FND_LANGUAGES L
126 where L.INSTALLED_FLAG in ('I', 'B')
127 and not exists
128 (select NULL
129 from CUG_TSK_TYP_ATTR_MAPS_TL T
130 where T.TSK_TYP_ATTR_MAP_ID = X_TSK_TYP_ATTR_MAP_ID
131 and T.LANGUAGE = L.LANGUAGE_CODE);
132
133 open c;
134 fetch c into X_ROWID;
135 if (c%notfound) then
136 close c;
137 raise no_data_found;
138 end if;
139 close c;
140
141 end INSERT_ROW;
142
143 procedure LOCK_ROW (
144 X_TSK_TYP_ATTR_MAP_ID in NUMBER,
145 X_END_DATE_ACTIVE in DATE,
146 X_OBJECT_VERSION_NUMBER in NUMBER,
147 X_START_DATE_ACTIVE in DATE,
148 X_TASK_TYPE_ATTRIBUTE_CODE in VARCHAR2,
149 X_TASK_TYPE_ID in NUMBER,
150 X_TASK_ATTR_MANDATORY_FLAG in VARCHAR2,
151 X_TASK_ATTR_DISPLAYED_FLAG in VARCHAR2,
152 X_TASK_ATTRIBUTE_LIST_NAME in VARCHAR2,
153 X_ATTRIBUTE1 in VARCHAR2,
154 X_ATTRIBUTE2 in VARCHAR2,
155 X_ATTRIBUTE3 in VARCHAR2,
156 X_ATTRIBUTE4 in VARCHAR2,
157 X_ATTRIBUTE5 in VARCHAR2,
158 X_ATTRIBUTE6 in VARCHAR2,
159 X_ATTRIBUTE7 in VARCHAR2,
160 X_ATTRIBUTE8 in VARCHAR2,
161 X_ATTRIBUTE9 in VARCHAR2,
162 X_ATTRIBUTE10 in VARCHAR2,
163 X_ATTRIBUTE11 in VARCHAR2,
164 X_ATTRIBUTE12 in VARCHAR2,
165 X_ATTRIBUTE13 in VARCHAR2,
166 X_ATTRIBUTE14 in VARCHAR2,
167 X_ATTRIBUTE15 in VARCHAR2,
168 X_ATTRIBUTE_CATEGORY in VARCHAR2,
169 X_TASK_ATTR_DEFAULT_VALUE in VARCHAR2
170 ) is
171 cursor c is select
172 END_DATE_ACTIVE,
173 OBJECT_VERSION_NUMBER,
174 START_DATE_ACTIVE,
175 TASK_TYPE_ATTRIBUTE_CODE,
176 TASK_TYPE_ID,
177 TASK_ATTR_MANDATORY_FLAG,
178 TASK_ATTR_DISPLAYED_FLAG,
179 TASK_ATTRIBUTE_LIST_NAME,
180 ATTRIBUTE1,
181 ATTRIBUTE2,
182 ATTRIBUTE3,
183 ATTRIBUTE4,
184 ATTRIBUTE5,
185 ATTRIBUTE6,
186 ATTRIBUTE7,
187 ATTRIBUTE8,
188 ATTRIBUTE9,
189 ATTRIBUTE10,
190 ATTRIBUTE11,
191 ATTRIBUTE12,
192 ATTRIBUTE13,
193 ATTRIBUTE14,
194 ATTRIBUTE15,
195 ATTRIBUTE_CATEGORY
196 from CUG_TSK_TYP_ATTR_MAPS_B
197 where TSK_TYP_ATTR_MAP_ID = X_TSK_TYP_ATTR_MAP_ID
198 for update of TSK_TYP_ATTR_MAP_ID nowait;
199 recinfo c%rowtype;
200
201 cursor c1 is select
202 TASK_ATTR_DEFAULT_VALUE,
203 decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
204 from CUG_TSK_TYP_ATTR_MAPS_TL
205 where TSK_TYP_ATTR_MAP_ID = X_TSK_TYP_ATTR_MAP_ID
206 and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
207 for update of TSK_TYP_ATTR_MAP_ID nowait;
208 begin
209 open c;
210 fetch c into recinfo;
211 if (c%notfound) then
212 close c;
213 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
214 app_exception.raise_exception;
215 end if;
216 close c;
217 if ( ((recinfo.END_DATE_ACTIVE = X_END_DATE_ACTIVE)
218 OR ((recinfo.END_DATE_ACTIVE is null) AND (X_END_DATE_ACTIVE is null)))
219 AND ((recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
220 OR ((recinfo.OBJECT_VERSION_NUMBER is null) AND (X_OBJECT_VERSION_NUMBER is null)))
221 AND ((recinfo.START_DATE_ACTIVE = X_START_DATE_ACTIVE)
222 OR ((recinfo.START_DATE_ACTIVE is null) AND (X_START_DATE_ACTIVE is null)))
223 AND (recinfo.TASK_TYPE_ATTRIBUTE_CODE = X_TASK_TYPE_ATTRIBUTE_CODE)
224 AND (recinfo.TASK_TYPE_ID = X_TASK_TYPE_ID)
225 AND ((recinfo.TASK_ATTR_MANDATORY_FLAG = X_TASK_ATTR_MANDATORY_FLAG)
226 OR ((recinfo.TASK_ATTR_MANDATORY_FLAG is null) AND (X_TASK_ATTR_MANDATORY_FLAG is null)))
227 AND ((recinfo.TASK_ATTR_DISPLAYED_FLAG = X_TASK_ATTR_DISPLAYED_FLAG)
228 OR ((recinfo.TASK_ATTR_DISPLAYED_FLAG is null) AND (X_TASK_ATTR_DISPLAYED_FLAG is null)))
229 AND ((recinfo.TASK_ATTRIBUTE_LIST_NAME = X_TASK_ATTRIBUTE_LIST_NAME)
230 OR ((recinfo.TASK_ATTRIBUTE_LIST_NAME is null) AND (X_TASK_ATTRIBUTE_LIST_NAME is null)))
231 AND ((recinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
232 OR ((recinfo.ATTRIBUTE1 is null) AND (X_ATTRIBUTE1 is null)))
233 AND ((recinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
234 OR ((recinfo.ATTRIBUTE2 is null) AND (X_ATTRIBUTE2 is null)))
235 AND ((recinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
236 OR ((recinfo.ATTRIBUTE3 is null) AND (X_ATTRIBUTE3 is null)))
237 AND ((recinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
238 OR ((recinfo.ATTRIBUTE4 is null) AND (X_ATTRIBUTE4 is null)))
239 AND ((recinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
240 OR ((recinfo.ATTRIBUTE5 is null) AND (X_ATTRIBUTE5 is null)))
241 AND ((recinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
242 OR ((recinfo.ATTRIBUTE6 is null) AND (X_ATTRIBUTE6 is null)))
243 AND ((recinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
244 OR ((recinfo.ATTRIBUTE7 is null) AND (X_ATTRIBUTE7 is null)))
245 AND ((recinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
246 OR ((recinfo.ATTRIBUTE8 is null) AND (X_ATTRIBUTE8 is null)))
247 AND ((recinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
248 OR ((recinfo.ATTRIBUTE9 is null) AND (X_ATTRIBUTE9 is null)))
249 AND ((recinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
250 OR ((recinfo.ATTRIBUTE10 is null) AND (X_ATTRIBUTE10 is null)))
251 AND ((recinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
252 OR ((recinfo.ATTRIBUTE11 is null) AND (X_ATTRIBUTE11 is null)))
253 AND ((recinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
254 OR ((recinfo.ATTRIBUTE12 is null) AND (X_ATTRIBUTE12 is null)))
255 AND ((recinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
256 OR ((recinfo.ATTRIBUTE13 is null) AND (X_ATTRIBUTE13 is null)))
257 AND ((recinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
258 OR ((recinfo.ATTRIBUTE14 is null) AND (X_ATTRIBUTE14 is null)))
259 AND ((recinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
260 OR ((recinfo.ATTRIBUTE15 is null) AND (X_ATTRIBUTE15 is null)))
261 AND ((recinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
262 OR ((recinfo.ATTRIBUTE_CATEGORY is null) AND (X_ATTRIBUTE_CATEGORY is null)))
263 ) then
264 null;
265 else
266 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
267 app_exception.raise_exception;
268 end if;
269
270 for tlinfo in c1 loop
271 if (tlinfo.BASELANG = 'Y') then
272 if ( ((tlinfo.TASK_ATTR_DEFAULT_VALUE = X_TASK_ATTR_DEFAULT_VALUE)
273 OR ((tlinfo.TASK_ATTR_DEFAULT_VALUE is null) AND (X_TASK_ATTR_DEFAULT_VALUE is null)))
274 ) then
275 null;
276 else
277 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
278 app_exception.raise_exception;
279 end if;
280 end if;
281 end loop;
282 return;
283 end LOCK_ROW;
284
285 procedure UPDATE_ROW (
286 X_TSK_TYP_ATTR_MAP_ID in NUMBER,
287 X_END_DATE_ACTIVE in DATE,
288 X_OBJECT_VERSION_NUMBER in NUMBER,
289 X_START_DATE_ACTIVE in DATE,
290 X_TASK_TYPE_ATTRIBUTE_CODE in VARCHAR2,
291 X_TASK_TYPE_ID in NUMBER,
292 X_TASK_ATTR_MANDATORY_FLAG in VARCHAR2,
293 X_TASK_ATTR_DISPLAYED_FLAG in VARCHAR2,
294 X_TASK_ATTRIBUTE_LIST_NAME in VARCHAR2,
295 X_ATTRIBUTE1 in VARCHAR2,
296 X_ATTRIBUTE2 in VARCHAR2,
297 X_ATTRIBUTE3 in VARCHAR2,
298 X_ATTRIBUTE4 in VARCHAR2,
299 X_ATTRIBUTE5 in VARCHAR2,
300 X_ATTRIBUTE6 in VARCHAR2,
301 X_ATTRIBUTE7 in VARCHAR2,
302 X_ATTRIBUTE8 in VARCHAR2,
303 X_ATTRIBUTE9 in VARCHAR2,
304 X_ATTRIBUTE10 in VARCHAR2,
305 X_ATTRIBUTE11 in VARCHAR2,
306 X_ATTRIBUTE12 in VARCHAR2,
307 X_ATTRIBUTE13 in VARCHAR2,
308 X_ATTRIBUTE14 in VARCHAR2,
309 X_ATTRIBUTE15 in VARCHAR2,
310 X_ATTRIBUTE_CATEGORY in VARCHAR2,
311 X_TASK_ATTR_DEFAULT_VALUE in VARCHAR2,
312 X_LAST_UPDATE_DATE in DATE,
313 X_LAST_UPDATED_BY in NUMBER,
314 X_LAST_UPDATE_LOGIN in NUMBER
315 ) is
316 begin
317 update CUG_TSK_TYP_ATTR_MAPS_B set
318 END_DATE_ACTIVE = X_END_DATE_ACTIVE,
319 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
320 START_DATE_ACTIVE = X_START_DATE_ACTIVE,
321 TASK_TYPE_ATTRIBUTE_CODE = X_TASK_TYPE_ATTRIBUTE_CODE,
322 TASK_TYPE_ID = X_TASK_TYPE_ID,
323 TASK_ATTR_MANDATORY_FLAG = X_TASK_ATTR_MANDATORY_FLAG,
324 TASK_ATTR_DISPLAYED_FLAG = X_TASK_ATTR_DISPLAYED_FLAG,
325 TASK_ATTRIBUTE_LIST_NAME = X_TASK_ATTRIBUTE_LIST_NAME,
326 ATTRIBUTE1 = X_ATTRIBUTE1,
327 ATTRIBUTE2 = X_ATTRIBUTE2,
328 ATTRIBUTE3 = X_ATTRIBUTE3,
329 ATTRIBUTE4 = X_ATTRIBUTE4,
330 ATTRIBUTE5 = X_ATTRIBUTE5,
331 ATTRIBUTE6 = X_ATTRIBUTE6,
332 ATTRIBUTE7 = X_ATTRIBUTE7,
333 ATTRIBUTE8 = X_ATTRIBUTE8,
334 ATTRIBUTE9 = X_ATTRIBUTE9,
335 ATTRIBUTE10 = X_ATTRIBUTE10,
336 ATTRIBUTE11 = X_ATTRIBUTE11,
337 ATTRIBUTE12 = X_ATTRIBUTE12,
338 ATTRIBUTE13 = X_ATTRIBUTE13,
339 ATTRIBUTE14 = X_ATTRIBUTE14,
340 ATTRIBUTE15 = X_ATTRIBUTE15,
341 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
342 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
343 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
344 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
345 where TSK_TYP_ATTR_MAP_ID = X_TSK_TYP_ATTR_MAP_ID;
346
347 if (sql%notfound) then
348 raise no_data_found;
349 end if;
350
351 update CUG_TSK_TYP_ATTR_MAPS_TL set
352 TASK_ATTR_DEFAULT_VALUE = X_TASK_ATTR_DEFAULT_VALUE,
353 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
354 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
355 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
356 SOURCE_LANG = userenv('LANG')
357 where TSK_TYP_ATTR_MAP_ID = X_TSK_TYP_ATTR_MAP_ID
358 and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
359
360 if (sql%notfound) then
361 raise no_data_found;
362 end if;
363 end UPDATE_ROW;
364
365 procedure DELETE_ROW (
366 X_TSK_TYP_ATTR_MAP_ID in NUMBER
367 ) is
368 begin
369 delete from CUG_TSK_TYP_ATTR_MAPS_TL
370 where TSK_TYP_ATTR_MAP_ID = X_TSK_TYP_ATTR_MAP_ID;
371
372 if (sql%notfound) then
376 delete from CUG_TSK_TYP_ATTR_MAPS_B
373 raise no_data_found;
374 end if;
375
377 where TSK_TYP_ATTR_MAP_ID = X_TSK_TYP_ATTR_MAP_ID;
378
379 if (sql%notfound) then
380 raise no_data_found;
381 end if;
382 end DELETE_ROW;
383 procedure LOAD_ROW (
384 X_TSK_TYP_ATTR_MAP_ID in NUMBER,
385 X_END_DATE_ACTIVE in DATE,
386 X_START_DATE_ACTIVE in DATE,
387 X_TASK_TYPE_ATTRIBUTE_CODE in VARCHAR2,
388 X_TASK_TYPE_ID in NUMBER,
389 X_TASK_ATTR_MANDATORY_FLAG in VARCHAR2,
390 X_TASK_ATTR_DISPLAYED_FLAG in VARCHAR2,
391 X_TASK_ATTRIBUTE_LIST_NAME in VARCHAR2,
392 X_TASK_ATTR_DEFAULT_VALUE in VARCHAR2,
393 X_CREATION_DATE IN VARCHAR2,
394 X_CREATED_BY IN NUMBER,
395 X_LAST_UPDATE_DATE IN VARCHAR2,
396 X_LAST_UPDATED_BY IN NUMBER,
397 X_LAST_UPDATE_LOGIN IN NUMBER,
398 X_ATTRIBUTE1 in VARCHAR2,
399 X_ATTRIBUTE2 in VARCHAR2,
400 X_ATTRIBUTE3 in VARCHAR2,
401 X_ATTRIBUTE4 in VARCHAR2,
402 X_ATTRIBUTE5 in VARCHAR2,
403 X_ATTRIBUTE6 in VARCHAR2,
404 X_ATTRIBUTE7 in VARCHAR2,
405 X_ATTRIBUTE8 in VARCHAR2,
406 X_ATTRIBUTE9 in VARCHAR2,
407 X_ATTRIBUTE10 in VARCHAR2,
408 X_ATTRIBUTE11 in VARCHAR2,
409 X_ATTRIBUTE12 in VARCHAR2,
410 X_ATTRIBUTE13 in VARCHAR2,
411 X_ATTRIBUTE14 in VARCHAR2,
412 X_ATTRIBUTE15 in VARCHAR2,
413 X_ATTRIBUTE_CATEGORY in VARCHAR2,
414 X_OWNER IN VARCHAR2 ) IS
415
416 BEGIN
417 DECLARE
418 user_id NUMBER := 0;
419 row_id VARCHAR2(64);
420
421 BEGIN
422
423 IF (X_OWNER = 'SEED') THEN
424 user_id := 1;
425 END IF;
426 CUG_TSK_TYP_ATTR_MAPS_PKG.UPDATE_ROW (
427 X_TSK_TYP_ATTR_MAP_ID => X_TSK_TYP_ATTR_MAP_ID ,
428 X_END_DATE_ACTIVE => X_END_DATE_ACTIVE ,
429 X_START_DATE_ACTIVE => X_START_DATE_ACTIVE ,
430 X_TASK_TYPE_ATTRIBUTE_CODE =>X_TASK_TYPE_ATTRIBUTE_CODE ,
431 X_TASK_TYPE_ID => X_TASK_TYPE_ID ,
432 X_TASK_ATTR_MANDATORY_FLAG => X_TASK_ATTR_MANDATORY_FLAG ,
433 X_TASK_ATTR_DISPLAYED_FLAG => X_TASK_ATTR_DISPLAYED_FLAG,
434 X_TASK_ATTRIBUTE_LIST_NAME =>X_TASK_ATTRIBUTE_LIST_NAME ,
435 X_TASK_ATTR_DEFAULT_VALUE =>X_TASK_ATTR_DEFAULT_VALUE ,
436 X_ATTRIBUTE1 =>X_ATTRIBUTE1 ,
437 X_ATTRIBUTE2 =>X_ATTRIBUTE2,
438 X_ATTRIBUTE3 =>X_ATTRIBUTE3 ,
439 X_ATTRIBUTE4 =>X_ATTRIBUTE4 ,
440 X_ATTRIBUTE5 =>X_ATTRIBUTE5 ,
441 X_ATTRIBUTE6 =>X_ATTRIBUTE6 ,
442 X_ATTRIBUTE7 =>X_ATTRIBUTE7 ,
443 X_ATTRIBUTE8 =>X_ATTRIBUTE8 ,
444 X_ATTRIBUTE9 =>X_ATTRIBUTE9 ,
445 X_ATTRIBUTE10 =>X_ATTRIBUTE10 ,
446 X_ATTRIBUTE11 =>X_ATTRIBUTE11 ,
447 X_ATTRIBUTE12 =>X_ATTRIBUTE12 ,
448 X_ATTRIBUTE13 =>X_ATTRIBUTE13 ,
449 X_ATTRIBUTE14 =>X_ATTRIBUTE14 ,
450 X_ATTRIBUTE15 =>X_ATTRIBUTE15 ,
451 X_ATTRIBUTE_CATEGORY =>X_ATTRIBUTE_CATEGORY ,
452 X_OBJECT_VERSION_NUMBER => null,
453 X_LAST_UPDATE_DATE => nvl(to_date(x_last_update_date, 'DD-MM-YYYY'), sysdate),
454 X_LAST_UPDATED_BY => user_id ,
455 X_LAST_UPDATE_LOGIN => 0);
456 EXCEPTION
457 WHEN NO_DATA_FOUND THEN
458 CUG_TSK_TYP_ATTR_MAPS_PKG.INSERT_ROW (
459 X_ROWID => row_id,
460 X_TSK_TYP_ATTR_MAP_ID => X_TSK_TYP_ATTR_MAP_ID ,
461 X_END_DATE_ACTIVE => X_END_DATE_ACTIVE ,
462 X_START_DATE_ACTIVE => X_START_DATE_ACTIVE ,
463 X_TASK_TYPE_ATTRIBUTE_CODE => X_TASK_TYPE_ATTRIBUTE_CODE ,
464 X_TASK_TYPE_ID => X_TASK_TYPE_ID ,
465 X_TASK_ATTR_MANDATORY_FLAG => X_TASK_ATTR_MANDATORY_FLAG ,
466 X_TASK_ATTR_DISPLAYED_FLAG => X_TASK_ATTR_DISPLAYED_FLAG,
467 X_TASK_ATTRIBUTE_LIST_NAME => X_TASK_ATTRIBUTE_LIST_NAME ,
468 X_ATTRIBUTE1 =>X_ATTRIBUTE1 ,
469 X_ATTRIBUTE2 =>X_ATTRIBUTE2,
470 X_ATTRIBUTE3 =>X_ATTRIBUTE3 ,
471 X_ATTRIBUTE4 =>X_ATTRIBUTE4 ,
472 X_ATTRIBUTE5 =>X_ATTRIBUTE5 ,
473 X_ATTRIBUTE6 =>X_ATTRIBUTE6 ,
474 X_ATTRIBUTE7 =>X_ATTRIBUTE7 ,
475 X_ATTRIBUTE8 =>X_ATTRIBUTE8 ,
476 X_ATTRIBUTE9 =>X_ATTRIBUTE9 ,
477 X_ATTRIBUTE10 =>X_ATTRIBUTE10 ,
478 X_ATTRIBUTE11 =>X_ATTRIBUTE11 ,
479 X_ATTRIBUTE12 =>X_ATTRIBUTE12 ,
480 X_ATTRIBUTE13 =>X_ATTRIBUTE13 ,
481 X_ATTRIBUTE14 =>X_ATTRIBUTE14 ,
482 X_ATTRIBUTE15 =>X_ATTRIBUTE15 ,
483 X_ATTRIBUTE_CATEGORY =>X_ATTRIBUTE_CATEGORY ,
484 X_OBJECT_VERSION_NUMBER => null,
485 X_TASK_ATTR_DEFAULT_VALUE => X_TASK_ATTR_DEFAULT_VALUE ,
486 X_CREATION_DATE => nvl(to_date(x_creation_date, 'DD-MM-YYYY'), sysdate),
487 X_CREATED_BY => user_id,
488 X_LAST_UPDATE_DATE => nvl(to_date(x_last_update_date, 'DD-MM-YYYY'), sysdate),
489 X_LAST_UPDATED_BY => user_id,
490 X_LAST_UPDATE_LOGIN => 0);
491 END;
492 END LOAD_ROW;
493
494
495 PROCEDURE TRANSLATE_ROW (
496 X_TSK_TYP_ATTR_MAP_ID in NUMBER,
497 X_TASK_ATTR_DEFAULT_VALUE in VARCHAR2,
498 X_OWNER in VARCHAR2) IS
499 BEGIN
500 UPDATE CUG_TSK_TYP_ATTR_MAPS_TL
501 SET TASK_ATTR_DEFAULT_VALUE = X_TASK_ATTR_DEFAULT_VALUE,
502 source_lang = userenv('LANG'),
503 last_update_date = sysdate,
504 last_updated_by = decode(X_OWNER, 'SEED', 1, 0),
505 last_update_login = 0
506 where tsk_typ_attr_map_id = X_TSK_TYP_ATTR_MAP_ID
507 and userenv('LANG') in (language, source_lang);
508
509 END TRANSLATE_ROW;
510
511
512 procedure ADD_LANGUAGE
513 is
514 begin
515 delete from CUG_TSK_TYP_ATTR_MAPS_TL T
516 where not exists
517 (select NULL
518 from CUG_TSK_TYP_ATTR_MAPS_B B
519 where B.TSK_TYP_ATTR_MAP_ID = T.TSK_TYP_ATTR_MAP_ID
520 );
521
522 update CUG_TSK_TYP_ATTR_MAPS_TL T set (
523 TASK_ATTR_DEFAULT_VALUE
524 ) = (select
525 B.TASK_ATTR_DEFAULT_VALUE
529 where (
526 from CUG_TSK_TYP_ATTR_MAPS_TL B
527 where B.TSK_TYP_ATTR_MAP_ID = T.TSK_TYP_ATTR_MAP_ID
528 and B.LANGUAGE = T.SOURCE_LANG)
530 T.TSK_TYP_ATTR_MAP_ID,
531 T.LANGUAGE
532 ) in (select
533 SUBT.TSK_TYP_ATTR_MAP_ID,
534 SUBT.LANGUAGE
535 from CUG_TSK_TYP_ATTR_MAPS_TL SUBB, CUG_TSK_TYP_ATTR_MAPS_TL SUBT
536 where SUBB.TSK_TYP_ATTR_MAP_ID = SUBT.TSK_TYP_ATTR_MAP_ID
537 and SUBB.LANGUAGE = SUBT.SOURCE_LANG
538 and (SUBB.TASK_ATTR_DEFAULT_VALUE <> SUBT.TASK_ATTR_DEFAULT_VALUE
539 or (SUBB.TASK_ATTR_DEFAULT_VALUE is null and SUBT.TASK_ATTR_DEFAULT_VALUE is not null)
540 or (SUBB.TASK_ATTR_DEFAULT_VALUE is not null and SUBT.TASK_ATTR_DEFAULT_VALUE is null)
541 ));
542
543 insert into CUG_TSK_TYP_ATTR_MAPS_TL (
544 TSK_TYP_ATTR_MAP_ID,
545 CREATED_BY,
546 CREATION_DATE,
547 LAST_UPDATED_BY,
548 LAST_UPDATE_LOGIN,
549 LAST_UPDATE_DATE,
550 TASK_ATTR_DEFAULT_VALUE,
551 LANGUAGE,
552 SOURCE_LANG
553 ) select /*+ ORDERED */
554 B.TSK_TYP_ATTR_MAP_ID,
555 B.CREATED_BY,
556 B.CREATION_DATE,
557 B.LAST_UPDATED_BY,
558 B.LAST_UPDATE_LOGIN,
559 B.LAST_UPDATE_DATE,
560 B.TASK_ATTR_DEFAULT_VALUE,
561 L.LANGUAGE_CODE,
562 B.SOURCE_LANG
563 from CUG_TSK_TYP_ATTR_MAPS_TL B, FND_LANGUAGES L
564 where L.INSTALLED_FLAG in ('I', 'B')
565 and B.LANGUAGE = userenv('LANG')
566 and not exists
567 (select NULL
568 from CUG_TSK_TYP_ATTR_MAPS_TL T
569 where T.TSK_TYP_ATTR_MAP_ID = B.TSK_TYP_ATTR_MAP_ID
570 and T.LANGUAGE = L.LANGUAGE_CODE);
571 end ADD_LANGUAGE;
572
573 end CUG_TSK_TYP_ATTR_MAPS_PKG;