1: PACKAGE BODY pn_location_parks_pkg AS
2: -- $Header: PNTRGOFB.pls 115.11 2002/11/12 23:10:48 stripath ship $
3:
4: PROCEDURE Insert_Row (
5: x_rowid IN OUT NOCOPY VARCHAR2,
33: IS
34:
35: CURSOR c IS
36: SELECT rowid
37: FROM pn_location_parks
38: WHERE location_park_id = x_location_park_id
39: AND language = userenv('LANG');
40:
41: BEGIN
39: AND language = userenv('LANG');
40:
41: BEGIN
42:
43: INSERT INTO pn_location_parks
44: (
45: location_park_id,
46: name,
47: location_park_type,
101: x_attribute15
102: FROM fnd_languages l
103: WHERE l.installed_flag IN ('I', 'B')
104: AND NOT EXISTS (SELECT NULL
105: FROM pn_location_parks t
106: WHERE t.location_park_id = x_location_park_id
107: AND t.language = l.language_code);
108:
109: OPEN c;
144: IS
145:
146: CURSOR c1 IS
147: SELECT *
148: FROM pn_location_parks
149: WHERE location_park_id = x_location_park_id
150: AND language = userenv('LANG')
151: FOR UPDATE OF location_park_id NOWAIT;
152:
313: x_attribute15 IN VARCHAR2
314: )
315: IS
316: BEGIN
317: UPDATE pn_location_parks
318: SET location_park_type = x_location_park_type,
319: parent_location_park_id = x_parent_location_park_id,
320: name = x_name,
321: description = x_description,
353: x_location_park_id IN NUMBER
354: )
355: IS
356: BEGIN
357: DELETE FROM pn_location_parks
358: WHERE location_park_id = x_location_park_id;
359:
360: IF (SQL%NOTFOUND) THEN
361: RAISE NO_DATA_FOUND;
366:
367: PROCEDURE Add_Language
368: IS
369: BEGIN
370: UPDATE pn_location_parks t
371: SET (
372: name,
373: description
374: ) =
374: ) =
375: (
376: SELECT b.name,
377: b.description
378: FROM pn_location_parks b
379: WHERE b.location_park_id = t.location_park_id
380: AND b.language = t.source_lang
381: )
382: WHERE (t.location_park_id,
383: t.language
384: ) IN
385: (SELECT subt.location_park_id,
386: subt.language
387: FROM pn_location_parks subb, pn_location_parks subt
388: WHERE subb.location_park_id = subt.location_park_id
389: AND subb.language = subt.source_lang
390: AND (subb.name <> subt.name
391: OR subb.description <> subt.description
394: )
395: );
396:
397:
398: INSERT INTO pn_location_parks
399: (
400: location_park_id,
401: name,
402: location_park_type,
454: b.attribute12,
455: b.attribute13,
456: b.attribute14,
457: b.attribute15
458: FROM pn_location_parks b, fnd_languages l
459: WHERE l.installed_flag IN ('I', 'B')
460: AND b.language = userenv('LANG')
461: AND NOT EXISTS (SELECT null
462: FROM pn_location_parks t
458: FROM pn_location_parks b, fnd_languages l
459: WHERE l.installed_flag IN ('I', 'B')
460: AND b.language = userenv('LANG')
461: AND NOT EXISTS (SELECT null
462: FROM pn_location_parks t
463: WHERE t.location_park_id = b.location_park_id
464: AND t.language = l.language_code);
465:
466: END Add_Language;
464: AND t.language = l.language_code);
465:
466: END Add_Language;
467:
468: END pn_location_parks_pkg;