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