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