[Home] [Help]
PACKAGE BODY: APPS.PV_GQ_ELEMENTS_PKG
Source
1 PACKAGE BODY PV_Gq_Elements_PKG as
2 /* $Header: pvxtgqeb.pls 120.2 2006/07/27 19:05:34 saarumug noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- PV_Gq_Elements_PKG
7 -- Purpose
8 --
9 -- History
10 --
11 -- NOTE
12 --
13 -- This Api is generated with Latest version of
14 -- Rosetta, where g_miss indicates NULL and
15 -- NULL indicates missing value. Rosetta Version 1.55
16 -- End of Comments
17 -- ===============================================================
18
19
20 G_PKG_NAME CONSTANT VARCHAR2(30):= 'PV_Gq_Elements_PKG';
21 G_FILE_NAME CONSTANT VARCHAR2(12) := 'pvxtgqeb.pls';
22
23
24
25
26 -- ========================================================
27 --
28 -- NAME
29 -- Insert_Row
30 --
31 -- PURPOSE
32 --
33 -- NOTES
34 --
35 -- HISTORY
36 --
37 -- ========================================================
38 PV_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
39 PV_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
40 PV_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
41
42 PROCEDURE Insert_Row(
43 px_qsnr_element_id IN OUT NOCOPY NUMBER,
44 px_object_version_number IN OUT NOCOPY NUMBER,
45 p_arc_used_by_entity_code VARCHAR2,
46 p_used_by_entity_id NUMBER,
47 p_qsnr_elmt_seq_num NUMBER,
48 p_qsnr_elmt_type VARCHAR2,
49 p_entity_attr_id NUMBER,
50 p_qsnr_elmt_page_num NUMBER,
51 p_is_required_flag VARCHAR2,
52 p_created_by NUMBER,
53 p_creation_date DATE,
54 p_last_updated_by NUMBER,
55 p_last_update_date DATE,
56 p_last_update_login NUMBER,
57 p_elmt_content VARCHAR2
58 )
59
60 IS
61 x_rowid VARCHAR2(30);
62
63
64 BEGIN
65
66
67 px_object_version_number := nvl(px_object_version_number, 1);
68
69
70 INSERT INTO pv_ge_qsnr_elements_b(
71 qsnr_element_id,
72 object_version_number,
73 arc_used_by_entity_code,
74 used_by_entity_id,
75 qsnr_elmt_seq_num,
76 qsnr_elmt_type,
77 entity_attr_id,
78 qsnr_elmt_page_num,
79 is_required_flag,
80 created_by,
81 creation_date,
82 last_updated_by,
83 last_update_date,
84 last_update_login
85 ) VALUES (
86 DECODE( px_qsnr_element_id, FND_API.G_MISS_NUM, NULL, px_qsnr_element_id),
87 DECODE( px_object_version_number, FND_API.G_MISS_NUM, 1, px_object_version_number),
88 DECODE( p_arc_used_by_entity_code, FND_API.g_miss_char, NULL, p_arc_used_by_entity_code),
89 DECODE( p_used_by_entity_id, FND_API.G_MISS_NUM, NULL, p_used_by_entity_id),
90 DECODE( p_qsnr_elmt_seq_num, FND_API.G_MISS_NUM, NULL, p_qsnr_elmt_seq_num),
91 DECODE( p_qsnr_elmt_type, FND_API.g_miss_char, NULL, p_qsnr_elmt_type),
92 DECODE( p_entity_attr_id, FND_API.G_MISS_NUM, NULL, p_entity_attr_id),
93 DECODE( p_qsnr_elmt_page_num, FND_API.G_MISS_NUM, NULL, p_qsnr_elmt_page_num),
94 DECODE( p_is_required_flag, FND_API.g_miss_char, NULL, p_is_required_flag),
95 DECODE( p_created_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID, p_created_by),
96 DECODE( p_creation_date, FND_API.G_MISS_DATE, SYSDATE, p_creation_date),
97 DECODE( p_last_updated_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID, p_last_updated_by),
98 DECODE( p_last_update_date, FND_API.G_MISS_DATE, SYSDATE, p_last_update_date),
99 DECODE( p_last_update_login, FND_API.G_MISS_NUM, FND_GLOBAL.CONC_LOGIN_ID, p_last_update_login));
100
101 INSERT INTO pv_ge_qsnr_elements_tl(
102 qsnr_element_id ,
103 --object_version_number,
104 language ,
105 last_update_date ,
106 last_updated_by ,
107 creation_date ,
108 created_by ,
109 last_update_login ,
110 source_lang ,
111 elmt_content
112 )
113 SELECT
114 DECODE( px_qsnr_element_id, FND_API.G_MISS_NUM, NULL, px_qsnr_element_id),
115 --DECODE( px_object_version_number, FND_API.G_MISS_NUM, 1, px_object_version_number),
116 l.language_code,
117 DECODE( p_last_update_date, NULL, SYSDATE, p_last_update_date),
118 DECODE( p_last_updated_by, NULL, FND_GLOBAL.USER_ID, p_last_updated_by),
119 DECODE( p_creation_date, NULL, SYSDATE, p_creation_date),
120 DECODE( p_created_by, NULL, FND_GLOBAL.USER_ID, p_created_by),
121 DECODE( p_last_update_login, NULL, FND_GLOBAL.CONC_LOGIN_ID, p_last_update_login),
122 USERENV('LANG'),
123 DECODE( p_elmt_content, FND_API.G_MISS_CHAR, NULL, p_elmt_content)
124 FROM fnd_languages l
125 WHERE l.installed_flag IN ('I','B')
126 AND NOT EXISTS(SELECT NULL FROM pv_ge_qsnr_elements_tl t
127 WHERE t.qsnr_element_id = DECODE( px_qsnr_element_id, FND_API.G_MISS_NUM, NULL, px_qsnr_element_id)
128 AND t.language = l.language_code);
129 END Insert_Row;
130
131
132
133
134 -- ========================================================
135 --
136 -- NAME
137 -- Update_Row
138 --
139 -- PURPOSE
140 --
141 -- NOTES
142 --
143 -- HISTORY
144 --
145 -- ========================================================
146 PROCEDURE Update_Row(
147 p_qsnr_element_id NUMBER,
148 px_object_version_number IN OUT NOCOPY NUMBER,
149 p_arc_used_by_entity_code VARCHAR2,
150 p_used_by_entity_id NUMBER,
151 p_qsnr_elmt_seq_num NUMBER,
152 p_qsnr_elmt_type VARCHAR2,
153 p_entity_attr_id NUMBER,
154 p_qsnr_elmt_page_num NUMBER,
155 p_is_required_flag VARCHAR2,
156 p_last_updated_by NUMBER,
157 p_last_update_date DATE,
158 p_last_update_login NUMBER,
159 p_elmt_content VARCHAR2
160 )
161
162 IS
163 BEGIN
164 Update pv_ge_qsnr_elements_b
165 SET
166 qsnr_element_id = DECODE( p_qsnr_element_id, null, qsnr_element_id, FND_API.G_MISS_NUM, null, p_qsnr_element_id),
167 --object_version_number = object_version_number + 1 ,
168 object_version_number = DECODE( px_object_version_number, NULL, object_version_number, FND_API.g_miss_num, NULL, px_object_version_number+1),
169 arc_used_by_entity_code = DECODE( p_arc_used_by_entity_code, null, arc_used_by_entity_code, FND_API.g_miss_char, null, p_arc_used_by_entity_code),
170 used_by_entity_id = DECODE( p_used_by_entity_id, null, used_by_entity_id, FND_API.G_MISS_NUM, null, p_used_by_entity_id),
171 qsnr_elmt_seq_num = DECODE( p_qsnr_elmt_seq_num, null, qsnr_elmt_seq_num, FND_API.G_MISS_NUM, null, p_qsnr_elmt_seq_num),
172 qsnr_elmt_type = DECODE( p_qsnr_elmt_type, null, qsnr_elmt_type, FND_API.g_miss_char, null, p_qsnr_elmt_type),
173 entity_attr_id = DECODE( p_entity_attr_id, null, entity_attr_id, FND_API.G_MISS_NUM, null, p_entity_attr_id),
174 qsnr_elmt_page_num = DECODE( p_qsnr_elmt_page_num, null, qsnr_elmt_page_num, FND_API.G_MISS_NUM, null, p_qsnr_elmt_page_num),
175 is_required_flag = DECODE( p_is_required_flag, null, is_required_flag, FND_API.g_miss_char, null, p_is_required_flag),
176 last_updated_by = DECODE( p_last_updated_by, null, last_updated_by, FND_API.G_MISS_NUM, null, p_last_updated_by),
177 last_update_date = DECODE( p_last_update_date, null, last_update_date, FND_API.G_MISS_DATE, null, p_last_update_date),
178 last_update_login = DECODE( p_last_update_login, null, last_update_login, FND_API.G_MISS_NUM, null, p_last_update_login)
179 WHERE qsnr_element_id = p_qsnr_element_id
180 AND object_version_number = px_object_version_number;
181
182 UPDATE pv_ge_qsnr_elements_tl
183 set elmt_content = DECODE( p_elmt_content, null, elmt_content, FND_API.g_miss_char, null, p_elmt_content),
184 last_update_date = DECODE( p_last_update_date, null, last_update_date, FND_API.G_MISS_DATE, null, p_last_update_date),
185 last_updated_by = DECODE( p_last_updated_by, null, last_updated_by, FND_API.G_MISS_NUM, null, p_last_updated_by),
186 last_update_login = DECODE( p_last_update_login, null, last_update_login, FND_API.G_MISS_NUM, null, p_last_update_login),
187 source_lang = USERENV('LANG')
188 WHERE qsnr_element_id = p_qsnr_element_id
189 AND USERENV('LANG') IN (language, source_lang);
190
191 IF (SQL%NOTFOUND) THEN
192 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
193 END IF;
194
195 px_object_version_number := nvl(px_object_version_number,0) + 1;
196
197 END Update_Row;
198
199
200
201
202 -- ========================================================
203 --
204 -- NAME
205 -- Delete_Row
206 --
207 -- PURPOSE
208 --
209 -- NOTES
210 --
211 -- HISTORY
212 --
213 -- ========================================================
214 PROCEDURE Delete_Row(
215 p_qsnr_element_id NUMBER,
216 p_object_version_number NUMBER)
217 IS
218 BEGIN
219 DELETE FROM pv_ge_qsnr_elements_b
220 WHERE qsnr_element_id = p_qsnr_element_id
221 AND object_version_number = p_object_version_number;
222 If (SQL%NOTFOUND) then
223 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
224 End If;
225 END Delete_Row ;
226
227
228
229
230
231 -- ========================================================
232 --
233 -- NAME
234 -- Lock_Row
235 --
236 -- PURPOSE
237 --
238 -- NOTES
239 --
240 -- HISTORY
241 --
242 -- ========================================================
243 PROCEDURE Lock_Row(
244 p_qsnr_element_id NUMBER,
245 p_object_version_number NUMBER)
246 IS
247 CURSOR C IS
248 SELECT *
249 FROM pv_ge_qsnr_elements_b
250 WHERE qsnr_element_id = p_qsnr_element_id
251 AND object_version_number = p_object_version_number
252 FOR UPDATE OF qsnr_element_id NOWAIT;
253 Recinfo C%ROWTYPE;
254 BEGIN
255
256 OPEN c;
257 FETCH c INTO Recinfo;
258 IF (c%NOTFOUND) THEN
259 CLOSE c;
260 AMS_Utility_PVT.error_message ('AMS_API_RECORD_NOT_FOUND');
261 RAISE FND_API.g_exc_error;
262 END IF;
263 CLOSE c;
264 END Lock_Row;
265
266 -- ==============================================================================
267 -- Start of Comments
268 -- ==============================================================================
269 -- API Name
270 -- add_language
271 -- Type
272 -- Private
273 -- History
274 --
275 -- NOTE
276 --
277 -- End of Comments
278 -- ===============================================================
279
280
281
282 PROCEDURE Add_Language
283 IS
284 BEGIN
285 -- changing by pukken as per performance team guidelines to fix performance issue
286 -- as described in bug 3723612 (*** RTIKKU 03/24/05 12:46pm ***)
287 INSERT /*+ append parallel(tt) */ INTO pv_ge_qsnr_elements_tl tt
288 (
289 qsnr_element_id,
290 creation_date,
291 created_by,
292 last_update_date,
293 last_updated_by,
294 last_update_login,
295 elmt_content,
296 language,
297 source_lang
298 )
299 SELECT /*+ parallel(v) parallel(t) use_nl(t) */ v.*
300 FROM
301 (
302 SELECT /*+ no_merge ordered parallel(b) */
303 b.qsnr_element_id,
304 b.creation_date,
305 b.created_by,
306 b.last_update_date,
307 b.last_updated_by,
308 b.last_update_login,
309 b.elmt_content,
310 l.language_code,
311 b.source_lang
312 FROM pv_ge_qsnr_elements_tl B , FND_LANGUAGES L
313 WHERE L.INSTALLED_FLAG IN ( 'I','B' ) AND B.LANGUAGE = USERENV ( 'LANG' )
314 ) v
315 , pv_ge_qsnr_elements_tl t
316 WHERE t.qsnr_element_id(+) = v.qsnr_element_id
317 AND t.language(+) = v.language_code
318 AND t.qsnr_element_id IS NULL ;
319
320
321 END ADD_LANGUAGE;
322
323 -- ===========================================================================
324 -- THIS SECTION HAS BEEN ADDED TO SUPPORT THE CALL FROM JAV OA TL ENTITY IMPL.
325 -- IN OA THE OBJECT VERSION NUMBER IS HANDLED IN THE MIDDLE TIER WHEREAS IN THIS
326 -- TABLE HANDLER THE OBJECT VERSION NUMBER IS CHANGED IN THE PL/SQL PACKAGE.
327 -- SO THIS TABLE HANDLER CANNOT BE USED IN THE FORM THAT IT IS IN.
328 --
329 -- INSTEAD OF CREATING A NEW TABLE HANDLER THE PRODUCURES INSERT_ROW, UPDATE_ROW,
330 -- LOCK_ROW AND DELETE_ROW WILL BE OVERRIDDEN. A NEW SET OF SIGNATURES WILL BE
331 -- ADDED THAT ARE CONSISTANT WITH THE OA STANDARD FOR TABLE HANDLER IMPLEMENTATION
332 --
333 -- Bug 5400481
334 -- ======================================================================
335 procedure INSERT_ROW (
336 X_ROWID in out NOCOPY VARCHAR2,
337 X_QSNR_ELEMENT_ID in NUMBER,
338 X_OBJECT_VERSION_NUMBER in NUMBER,
339 X_ARC_USED_BY_ENTITY_CODE in VARCHAR2,
340 X_USED_BY_ENTITY_ID in NUMBER,
341 X_QSNR_ELMT_SEQ_NUM in NUMBER,
342 X_QSNR_ELMT_TYPE in VARCHAR2,
343 X_ENTITY_ATTR_ID in NUMBER,
344 X_QSNR_ELMT_PAGE_NUM in NUMBER,
345 X_IS_REQUIRED_FLAG in VARCHAR2,
346 X_ELMT_CONTENT in VARCHAR2,
347 X_CREATION_DATE in DATE,
348 X_CREATED_BY in NUMBER,
349 X_LAST_UPDATE_DATE in DATE,
350 X_LAST_UPDATED_BY in NUMBER,
351 X_LAST_UPDATE_LOGIN in NUMBER
352 ) is
353 cursor C is select ROWID from PV_GE_QSNR_ELEMENTS_B
354 where QSNR_ELEMENT_ID = X_QSNR_ELEMENT_ID
355 ;
356 begin
357 insert into PV_GE_QSNR_ELEMENTS_B (
358 QSNR_ELEMENT_ID,
359 OBJECT_VERSION_NUMBER,
360 ARC_USED_BY_ENTITY_CODE,
361 USED_BY_ENTITY_ID,
362 QSNR_ELMT_SEQ_NUM,
363 QSNR_ELMT_TYPE,
364 ENTITY_ATTR_ID,
365 QSNR_ELMT_PAGE_NUM,
366 IS_REQUIRED_FLAG,
367 CREATION_DATE,
368 CREATED_BY,
369 LAST_UPDATE_DATE,
370 LAST_UPDATED_BY,
371 LAST_UPDATE_LOGIN
375 X_ARC_USED_BY_ENTITY_CODE,
372 ) values (
373 X_QSNR_ELEMENT_ID,
374 X_OBJECT_VERSION_NUMBER,
376 X_USED_BY_ENTITY_ID,
377 X_QSNR_ELMT_SEQ_NUM,
378 X_QSNR_ELMT_TYPE,
379 X_ENTITY_ATTR_ID,
380 X_QSNR_ELMT_PAGE_NUM,
381 X_IS_REQUIRED_FLAG,
382 X_CREATION_DATE,
383 X_CREATED_BY,
384 X_LAST_UPDATE_DATE,
385 X_LAST_UPDATED_BY,
386 X_LAST_UPDATE_LOGIN
387 );
388
389 insert into PV_GE_QSNR_ELEMENTS_TL (
390 QSNR_ELEMENT_ID,
391 ELMT_CONTENT,
392 CREATED_BY,
393 CREATION_DATE,
394 LAST_UPDATED_BY,
395 LAST_UPDATE_DATE,
396 LAST_UPDATE_LOGIN,
397 LANGUAGE,
398 SOURCE_LANG
399 ) select
400 X_QSNR_ELEMENT_ID,
401 X_ELMT_CONTENT,
402 X_CREATED_BY,
403 X_CREATION_DATE,
404 X_LAST_UPDATED_BY,
405 X_LAST_UPDATE_DATE,
406 X_LAST_UPDATE_LOGIN,
407 L.LANGUAGE_CODE,
408 userenv('LANG')
409 from FND_LANGUAGES L
410 where L.INSTALLED_FLAG in ('I', 'B')
411 and not exists
412 (select NULL
413 from PV_GE_QSNR_ELEMENTS_TL T
414 where T.QSNR_ELEMENT_ID = X_QSNR_ELEMENT_ID
415 and T.LANGUAGE = L.LANGUAGE_CODE);
416
417 open c;
418 fetch c into X_ROWID;
419 if (c%notfound) then
420 close c;
421 raise no_data_found;
422 end if;
423 close c;
424
425 end INSERT_ROW;
426
427 procedure LOCK_ROW (
428 X_QSNR_ELEMENT_ID in NUMBER,
429 X_OBJECT_VERSION_NUMBER in NUMBER,
430 X_ARC_USED_BY_ENTITY_CODE in VARCHAR2,
431 X_USED_BY_ENTITY_ID in NUMBER,
432 X_QSNR_ELMT_SEQ_NUM in NUMBER,
433 X_QSNR_ELMT_TYPE in VARCHAR2,
434 X_ENTITY_ATTR_ID in NUMBER,
435 X_QSNR_ELMT_PAGE_NUM in NUMBER,
436 X_IS_REQUIRED_FLAG in VARCHAR2,
437 X_ELMT_CONTENT in VARCHAR2
438 ) is
439 cursor c is select
440 OBJECT_VERSION_NUMBER,
441 ARC_USED_BY_ENTITY_CODE,
442 USED_BY_ENTITY_ID,
443 QSNR_ELMT_SEQ_NUM,
444 QSNR_ELMT_TYPE,
445 ENTITY_ATTR_ID,
446 QSNR_ELMT_PAGE_NUM,
447 IS_REQUIRED_FLAG
448 from PV_GE_QSNR_ELEMENTS_B
449 where QSNR_ELEMENT_ID = X_QSNR_ELEMENT_ID
450 for update of QSNR_ELEMENT_ID nowait;
451 recinfo c%rowtype;
452
453 cursor c1 is select
454 ELMT_CONTENT,
455 decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
456 from PV_GE_QSNR_ELEMENTS_TL
457 where QSNR_ELEMENT_ID = X_QSNR_ELEMENT_ID
458 and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
459 for update of QSNR_ELEMENT_ID nowait;
460 begin
461 open c;
462 fetch c into recinfo;
463 if (c%notfound) then
464 close c;
465 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
466 app_exception.raise_exception;
467 end if;
468 close c;
469 if ( (recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
470 AND (recinfo.ARC_USED_BY_ENTITY_CODE = X_ARC_USED_BY_ENTITY_CODE)
471 AND (recinfo.USED_BY_ENTITY_ID = X_USED_BY_ENTITY_ID)
472 AND (recinfo.QSNR_ELMT_SEQ_NUM = X_QSNR_ELMT_SEQ_NUM)
473 AND (recinfo.QSNR_ELMT_TYPE = X_QSNR_ELMT_TYPE)
474 AND ((recinfo.ENTITY_ATTR_ID = X_ENTITY_ATTR_ID)
475 OR ((recinfo.ENTITY_ATTR_ID is null) AND (X_ENTITY_ATTR_ID is null)))
476 AND (recinfo.QSNR_ELMT_PAGE_NUM = X_QSNR_ELMT_PAGE_NUM)
477 AND (recinfo.IS_REQUIRED_FLAG = X_IS_REQUIRED_FLAG)
478 ) then
479 null;
480 else
481 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
482 app_exception.raise_exception;
483 end if;
484
485 for tlinfo in c1 loop
486 if (tlinfo.BASELANG = 'Y') then
487 if ( ((tlinfo.ELMT_CONTENT = X_ELMT_CONTENT)
488 OR ((tlinfo.ELMT_CONTENT is null) AND (X_ELMT_CONTENT is null)))
489 ) then
490 null;
491 else
492 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
493 app_exception.raise_exception;
494 end if;
495 end if;
496 end loop;
497 return;
498 end LOCK_ROW;
499
500 procedure UPDATE_ROW (
501 X_QSNR_ELEMENT_ID in NUMBER,
502 X_OBJECT_VERSION_NUMBER in NUMBER,
503 X_ARC_USED_BY_ENTITY_CODE in VARCHAR2,
504 X_USED_BY_ENTITY_ID in NUMBER,
505 X_QSNR_ELMT_SEQ_NUM in NUMBER,
506 X_QSNR_ELMT_TYPE in VARCHAR2,
507 X_ENTITY_ATTR_ID in NUMBER,
508 X_QSNR_ELMT_PAGE_NUM in NUMBER,
509 X_IS_REQUIRED_FLAG in VARCHAR2,
510 X_ELMT_CONTENT in VARCHAR2,
511 X_LAST_UPDATE_DATE in DATE,
512 X_LAST_UPDATED_BY in NUMBER,
513 X_LAST_UPDATE_LOGIN in NUMBER
514 ) is
515 begin
516 update PV_GE_QSNR_ELEMENTS_B set
517 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
518 ARC_USED_BY_ENTITY_CODE = X_ARC_USED_BY_ENTITY_CODE,
519 USED_BY_ENTITY_ID = X_USED_BY_ENTITY_ID,
520 QSNR_ELMT_SEQ_NUM = X_QSNR_ELMT_SEQ_NUM,
521 QSNR_ELMT_TYPE = X_QSNR_ELMT_TYPE,
522 ENTITY_ATTR_ID = X_ENTITY_ATTR_ID,
523 QSNR_ELMT_PAGE_NUM = X_QSNR_ELMT_PAGE_NUM,
524 IS_REQUIRED_FLAG = X_IS_REQUIRED_FLAG,
525 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
526 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
527 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
528 where QSNR_ELEMENT_ID = X_QSNR_ELEMENT_ID;
529
530 if (sql%notfound) then
531 raise no_data_found;
532 end if;
533
534 update PV_GE_QSNR_ELEMENTS_TL set
535 ELMT_CONTENT = X_ELMT_CONTENT,
536 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
537 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
538 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
539 SOURCE_LANG = userenv('LANG')
543 if (sql%notfound) then
540 where QSNR_ELEMENT_ID = X_QSNR_ELEMENT_ID
541 and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
542
544 raise no_data_found;
545 end if;
546 end UPDATE_ROW;
547
548 procedure DELETE_ROW (
549 X_QSNR_ELEMENT_ID in NUMBER
550 ) is
551 begin
552 delete from PV_GE_QSNR_ELEMENTS_TL
553 where QSNR_ELEMENT_ID = X_QSNR_ELEMENT_ID;
554
555 if (sql%notfound) then
556 raise no_data_found;
557 end if;
558
559 delete from PV_GE_QSNR_ELEMENTS_B
560 where QSNR_ELEMENT_ID = X_QSNR_ELEMENT_ID;
561
562 if (sql%notfound) then
563 raise no_data_found;
564 end if;
565 end DELETE_ROW;
566
567
568
569 END PV_Gq_Elements_PKG;