1 PACKAGE BODY INL_SHIP_LINE_TYPES_PKG AS
2 /* $Header: INLTSLTB.pls 120.0.12010000.1 2008/11/27 19:45:12 ebarbosa noship $ */
3
4 --
5 -- This procedure encapsulates MLS operations
6 -- for INL_SHIP_LINE_TYPES_TL table.
7 --
8 PROCEDURE ADD_LANGUAGE IS
9 BEGIN
10
11 DELETE FROM inl_ship_line_types_tl tl
12 WHERE NOT EXISTS (SELECT NULL
13 FROM inl_ship_line_types_b b
14 WHERE b.ship_line_type_id = tl.ship_line_type_id);
15
16 UPDATE inl_ship_line_types_tl tl
17 SET (ship_line_type_name) = (SELECT b.ship_line_type_name
18 FROM inl_ship_line_types_tl b
19 WHERE b.ship_line_type_id = tl.ship_line_type_id
20 AND b.language = tl.source_lang)
21 WHERE (tl.ship_line_type_id, tl.language) IN (SELECT subt.ship_line_type_id,
22 subt.language
23 FROM inl_ship_line_types_tl subb, inl_ship_line_types_tl subt
24 WHERE subb.ship_line_type_id = subt.ship_line_type_id
25 AND subb.language = subt.source_lang
26 AND (subb.ship_line_type_name <> subt.ship_line_type_name
27 OR (subb.ship_line_type_name IS NULL AND subt.ship_line_type_name IS NOT NULL)
28 OR (subb.ship_line_type_name IS NOT NULL AND subt.ship_line_type_name IS NULL)));
29
30 INSERT INTO inl_ship_line_types_tl (ship_line_type_id,
31 ship_line_type_name,
32 created_by,
33 creation_date,
34 last_updated_by,
35 last_update_date,
36 last_update_login,
37 language,
38 source_lang)
39 SELECT b.ship_line_type_id,
40 b.ship_line_type_name,
41 b.created_by,
42 b.creation_date,
43 b.last_updated_by,
44 b.last_update_date,
45 b.last_update_login,
46 l.language_code,
47 b.source_lang
48 FROM inl_ship_line_types_tl b, fnd_languages l
49 WHERE l.installed_flag IN ('I', 'B')
50 AND b.language = userenv('LANG')
51 AND NOT EXISTS (SELECT NULL
52 FROM inl_ship_line_types_tl t
53 WHERE t.ship_line_type_id = b.ship_line_type_id
54 AND t.language = l.language_code);
55 END ADD_LANGUAGE;
56
57 END INL_SHIP_LINE_TYPES_PKG;