[Home] [Help]
PACKAGE BODY: APPS.IEO_SVR_TYPES_SEED_PVT
Source
1 PACKAGE BODY IEO_SVR_TYPES_SEED_PVT AS
2 /* $Header: IEOSEEDB.pls 115.0 2000/01/19 10:10:02 pkm ship $ */
3
4 PROCEDURE Insert_Row (p_svr_types_rec IN uwq_svr_types_rec_type) IS
5
6 CURSOR c IS SELECT 'X' FROM ieo_svr_types_b
7 WHERE type_id = p_svr_types_rec.type_id;
8
9 l_dummy CHAR(1);
10
11 BEGIN
12
13 -- API body
14 INSERT INTO ieo_svr_types_b (
15 type_id,
16 created_by,
17 creation_date,
18 last_updated_by,
19 last_update_date,
20 last_update_login,
21 type_uuid,
22 rt_refresh_rate,
23 max_major_load_factor,
24 max_minor_load_factor
25 ) VALUES (
26 p_svr_types_rec.type_id,
27 p_svr_types_rec.created_by,
28 p_svr_types_rec.creation_date,
29 p_svr_types_rec.last_updated_by,
30 p_svr_types_rec.last_update_date,
31 p_svr_types_rec.last_update_login,
32 p_svr_types_rec.type_uuid,
33 p_svr_types_rec.rt_refresh_rate,
34 p_svr_types_rec.max_major_load_factor,
35 p_svr_types_rec.max_minor_load_factor
36 );
37
38 INSERT INTO ieo_svr_types_tl (
39 type_id,
40 language,
41 created_by,
42 creation_date,
43 last_updated_by,
44 last_update_date,
45 last_update_login,
46 type_name,
47 source_lang,
48 type_description,
49 type_extra
50 ) SELECT
51 p_svr_types_rec.type_id,
52 l.language_code,
53 p_svr_types_rec.created_by,
54 p_svr_types_rec.creation_date,
55 p_svr_types_rec.last_updated_by,
56 p_svr_types_rec.last_update_date,
57 p_svr_types_rec.last_update_login,
58 p_svr_types_rec.type_name,
59 USERENV('LANG'),
60 p_svr_types_rec.type_description,
61 p_svr_types_rec.type_extra
62 FROM fnd_languages l
63 WHERE l.installed_flag IN ('I', 'B')
64 AND NOT EXISTS
65 (SELECT NULL
66 FROM ieo_svr_types_tl t
67 WHERE t.type_id = p_svr_types_rec.type_id
68 AND t.language = l.language_code);
69
70 OPEN c;
71 FETCH c INTO l_dummy;
72 IF (c%NOTFOUND) THEN
73 CLOSE c;
74 RAISE NO_DATA_FOUND;
75 END IF;
76 CLOSE c;
77 -- End of API body
78
79 END Insert_Row;
80
81 PROCEDURE Update_Row (p_svr_types_rec IN uwq_svr_types_rec_type) IS
82
83 BEGIN
84 -- API body
85 UPDATE ieo_svr_types_b SET
86 last_updated_by = p_svr_types_rec.last_updated_by,
87 last_update_date = p_svr_types_rec.last_update_date,
88 last_update_login = p_svr_types_rec.last_update_login,
89 type_uuid = p_svr_types_rec.type_uuid,
90 rt_refresh_rate = p_svr_types_rec.rt_refresh_rate,
91 max_major_load_factor = p_svr_types_rec.max_major_load_factor,
92 max_minor_load_factor = p_svr_types_rec.max_minor_load_factor
93 WHERE type_id = p_svr_types_rec.type_id;
94
95 IF (SQL%NOTFOUND) THEN
96 RAISE no_data_found;
97 END IF;
98
99 UPDATE ieo_svr_types_tl SET
100 type_name = p_svr_types_rec.type_name,
101 source_lang = USERENV('LANG'),
102 type_description = p_svr_types_rec.type_description,
103 last_updated_by = p_svr_types_rec.last_updated_by,
104 last_update_date = p_svr_types_rec.last_update_date,
105 last_update_login = p_svr_types_rec.last_update_login,
106 type_extra = p_svr_types_rec.type_extra
107 WHERE type_id = p_svr_types_rec.type_id
108 AND USERENV('LANG') IN (language, source_lang);
109
110 IF (SQL%NOTFOUND) THEN
111 RAISE no_data_found;
112 END IF;
113 -- End of API body
114
115 END Update_Row;
116
117 PROCEDURE Load_Row (
118 p_type_id IN NUMBER,
119 p_type_uuid IN VARCHAR2,
120 p_rt_refresh_rate IN NUMBER,
121 p_max_major_load_factor IN NUMBER,
122 p_max_minor_load_factor IN NUMBER,
123 p_type_name IN VARCHAR2,
124 p_type_description IN VARCHAR2,
125 p_type_extra IN VARCHAR2,
126 p_owner IN VARCHAR2) IS
127 BEGIN
128
129 DECLARE
130 user_id number := 0;
131 l_svr_types_rec uwq_svr_types_rec_type;
132
133 BEGIN
134
135 IF (p_owner = 'SEED') then
136 user_id := -1;
137 END IF;
138
139 l_svr_types_rec.type_id := p_type_id;
140 l_svr_types_rec.type_uuid := p_type_uuid;
141 l_svr_types_rec.rt_refresh_rate := p_rt_refresh_rate;
142 l_svr_types_rec.max_major_load_factor := p_max_major_load_factor;
143 l_svr_types_rec.max_minor_load_factor := p_max_minor_load_factor;
144 l_svr_types_rec.type_name := p_type_name;
145 l_svr_types_rec.type_description := p_type_description;
146 l_svr_types_rec.type_extra := p_type_extra;
147 l_svr_types_rec.last_update_date := sysdate;
148 l_svr_types_rec.last_updated_by := user_id;
149 l_svr_types_rec.last_update_login := 0;
150
151 Update_Row (p_svr_types_rec => l_svr_types_rec);
152 EXCEPTION
153 when no_data_found then
154
155 l_svr_types_rec.type_id := p_type_id;
156 l_svr_types_rec.type_uuid := p_type_uuid;
157 l_svr_types_rec.rt_refresh_rate := p_rt_refresh_rate;
158 l_svr_types_rec.max_major_load_factor := p_max_major_load_factor;
159 l_svr_types_rec.max_minor_load_factor := p_max_minor_load_factor;
160 l_svr_types_rec.type_name := p_type_name;
161 l_svr_types_rec.type_description := p_type_description;
162 l_svr_types_rec.last_update_date := sysdate;
163 l_svr_types_rec.last_updated_by := user_id;
164 l_svr_types_rec.last_update_login := 0;
165 l_svr_types_rec.creation_date := sysdate;
166 l_svr_types_rec.created_by := user_id;
167
168 Insert_Row (p_svr_types_rec => l_svr_types_rec);
169
170 END;
171 END load_row;
172
173 PROCEDURE translate_row (
174 p_type_id IN NUMBER,
175 p_type_name IN VARCHAR2,
176 p_type_description IN VARCHAR2,
177 p_type_extra IN VARCHAR2,
178 p_owner IN VARCHAR2) IS
179 BEGIN
180
181 -- only UPDATE rows that have not been altered by user
182
183 UPDATE ieo_svr_types_tl SET
184 type_name = p_type_name,
185 source_lang = userenv('LANG'),
186 type_description = p_type_description,
187 type_extra = p_type_extra,
188 last_update_date = sysdate,
189 last_updated_by = decode(p_owner, 'SEED', -1, 0),
190 last_update_login = 0
191 WHERE type_id = p_type_id
192 AND userenv('LANG') IN (language, source_lang);
193
194 END translate_row;
195
196 END IEO_SVR_TYPES_SEED_PVT;