[Home] [Help]
PACKAGE BODY: APPS.VEA_EXCEPTIONS_SV
Source
1 PACKAGE BODY VEA_EXCEPTIONS_SV as
2 /* $Header: VEAVAEXB.pls 115.4 2003/04/28 17:43:25 heali noship $ */
3 --{
4 /*====================== vea_EXCEPTIONS_sv =========================*/
5 /*========================================================================
6 PURPOSE: Table handler package for table VEA_EXCEPTIONS
7
8 NOTES: To run the script:
9
10 sql> start VEAVAPKB.pls
11
12 HISTORY
13 Created BMUNAGAL 04/13/2000
14
15 =========================================================================*/
16
17 G_PACKAGE_NAME CONSTANT VARCHAR2(30) := 'VEA_EXCEPTIONS_SV';
18 --
19 --
20 /*========================================================================
21
22 PROCEDURE NAME: insert_row
23
24 PURPOSE: Inserts a record into VEA_EXCEPTIONS table
25
26 ========================================================================*/
27 PROCEDURE
28 insert_row
29 (
30 p_exception_id IN VEA_EXCEPTIONS.exception_id%TYPE,
31 p_release_id IN VEA_EXCEPTIONS.release_id%TYPE,
32 p_layer_provider_code IN VEA_EXCEPTIONS.layer_provider_code%TYPE,
33 p_message_name IN VEA_EXCEPTIONS.message_name%TYPE,
34 p_exception_level IN VEA_EXCEPTIONS.exception_level%TYPE,
35 p_message_text IN VEA_EXCEPTIONS.message_text%TYPE,
36 p_description IN VEA_EXCEPTIONS.description%TYPE
37 )
38 IS
39 --{
40 l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
41 l_location VARCHAR2(32767);
42 --
43 --
44 l_user_id NUMBER := vea_tpa_util_pvt.get_user_id;
45 l_login_id NUMBER := vea_tpa_util_pvt.get_login_id;
46 --}
47 BEGIN
48 --{
49 l_location := '0010';
50 --
51 INSERT INTO vea_EXCEPTIONS
52 (
53 exception_id, release_id, layer_provider_code,
54 message_name, exception_level,
55 message_text, description,
56 created_by, creation_date,
57 last_updated_by, last_update_date,
58 last_update_login
59 )
60 VALUES
61 (
62 p_exception_id, p_release_id, p_layer_provider_code,
63 p_message_name, p_exception_level,
64 p_message_text, p_description,
65 l_user_id, SYSDATE,
66 l_user_id, SYSDATE,
67 l_login_id
68 );
69 --}
70 EXCEPTION
71 --{
72 WHEN OTHERS
73 THEN
74 --{
75 vea_tpa_util_pvt.add_exc_message_and_raise
76 (
77 p_package_name => G_PACKAGE_NAME,
78 p_api_name => l_api_name,
79 p_location => l_location
80 );
81 --}
82 --}
83 END insert_row;
84 --
85 --
86 /*========================================================================
87
88 PROCEDURE NAME: update_row
89
90 PURPOSE: Updates a record into VEA_EXCEPTIONS table
91
92 ========================================================================*/
93 PROCEDURE
94 update_row
95 (
96 p_exception_id IN VEA_EXCEPTIONS.exception_id%TYPE,
97 p_release_id IN VEA_EXCEPTIONS.release_id%TYPE,
98 p_layer_provider_code IN VEA_EXCEPTIONS.layer_provider_code%TYPE,
99 p_message_name IN VEA_EXCEPTIONS.message_name%TYPE,
100 p_exception_level IN VEA_EXCEPTIONS.exception_level%TYPE,
101 p_message_text IN VEA_EXCEPTIONS.message_text%TYPE,
102 p_description IN VEA_EXCEPTIONS.description%TYPE
103 )
104 IS
105 --{
106 l_api_name CONSTANT VARCHAR2(30) := 'update_row';
107 l_location VARCHAR2(32767);
108 --
109 --
110 l_user_id NUMBER := vea_tpa_util_pvt.get_user_id;
111 l_login_id NUMBER := vea_tpa_util_pvt.get_login_id;
112 --}
113 BEGIN
114 --{
115 l_location := '0010';
116 --
117 UPDATE vea_EXCEPTIONS
118 SET release_id = p_release_id,
119 message_name = p_message_name,
120 exception_level = p_exception_level,
121 message_text = p_message_text,
122 description = p_description,
123 last_updated_by = l_user_id,
124 last_update_date = SYSDATE,
125 last_update_login = l_login_id
126 WHERE layer_provider_code = p_layer_provider_code
127 AND exception_id = p_exception_id;
128 --}
129 EXCEPTION
130 --{
131 WHEN OTHERS
132 THEN
133 --{
134 vea_tpa_util_pvt.add_exc_message_and_raise
135 (
136 p_package_name => G_PACKAGE_NAME,
137 p_api_name => l_api_name,
138 p_location => l_location
139 );
140 --}
141 --}
142 END update_row;
143 --
144 --
145 /*========================================================================
146
147 PROCEDURE NAME: process
148
149 PURPOSE: Table hadndler API for VEA_EXCEPTIONS table.
150
151 It inserts/updates a record in VEA_EXCEPTIONS table.
152
153 ========================================================================*/
154 PROCEDURE
155 process
156 (
157 p_api_version IN NUMBER,
158 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
159 p_commit IN VARCHAR2 := FND_API.G_FALSE,
160 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
161 x_return_status OUT NOCOPY VARCHAR2,
162 x_msg_count OUT NOCOPY NUMBER,
163 x_msg_data OUT NOCOPY VARCHAR2,
164 x_id OUT NOCOPY vea_EXCEPTIONS.exception_id%TYPE,
165 p_release_id IN VEA_EXCEPTIONS.release_id%TYPE,
166 p_layer_provider_code IN VEA_EXCEPTIONS.layer_provider_code%TYPE,
167 p_message_name IN VEA_EXCEPTIONS.message_name%TYPE,
168 p_exception_level IN VEA_EXCEPTIONS.exception_level%TYPE,
169 p_message_text IN VEA_EXCEPTIONS.message_text%TYPE,
170 p_description IN VEA_EXCEPTIONS.description%TYPE,
171 p_id IN VEA_EXCEPTIONS.exception_id%TYPE := NULL
172 )
173 IS
174 --{
175 l_api_name CONSTANT VARCHAR2(30) := 'process';
176 l_api_version CONSTANT NUMBER := 1.0;
177 l_api_type CONSTANT VARCHAR2(3) := vea_tpa_util_pvt.G_PUBLIC_API;
178 --
179 --
180 l_location VARCHAR2(32767);
181 l_savepoint_name VARCHAR2(30);
182 --
183 --
184 --}
185 BEGIN
186 --{
187 l_location := '0010';
188 --
189 IF NOT( vea_tpa_util_pvt.is_vea_installed() )
190 THEN
191 RETURN;
192 END IF;
193 --
194 --
195 -- Standard API Header
196 --
197 l_location := '0020';
198 --
199 vea_tpa_util_pvt.api_header
200 (
201 p_package_name => G_PACKAGE_NAME,
202 p_api_name => l_api_name,
203 p_api_type => l_api_type,
204 p_api_current_version => l_api_version,
205 p_api_caller_version => p_api_version,
206 p_init_msg_list => p_init_msg_list,
207 x_savepoint_name => l_savepoint_name,
208 x_api_return_status => x_return_status
209 );
210 --
211 --
212 --{ API Body
213 --
214 --
215 l_location := '0030';
216 --
217 --
218 x_id := p_id;
219 --
220
221 IF x_id IS NULL
222 THEN
223 --{
224 l_location := '0070';
225 --
226 SELECT NVL( x_id, vea_EXCEPTIONS_s.NEXTVAL )
227 INTO x_id
228 FROM DUAL;
229 --
230 --
231 l_location := '0090';
232 --
233
234 insert_row
235 (
236 p_exception_id => x_id,
237 p_release_id => p_release_id,
238 p_layer_provider_code => p_layer_provider_code,
239 p_message_name => p_message_name,
240 p_exception_level => p_exception_level,
241 p_message_text => p_message_text,
242 p_description => p_description
243 );
244 --}
245 ELSE
246 --{
247 l_location := '0100';
248 --
249
250 update_row
251 (
252 p_exception_id => x_id,
253 p_release_id => p_release_id,
254 p_layer_provider_code => p_layer_provider_code,
255 p_message_name => p_message_name,
256 p_exception_level => p_exception_level,
257 p_message_text => p_message_text,
258 p_description => p_description
259 );
260 --}
261 END IF;
262 --
263 --
264 --} API Body
265 --
266 --
267 -- Standard API Footer
268 --
269 l_location := '0140';
270 --
271 vea_tpa_util_pvt.api_footer
272 (
273 p_commit => p_commit,
274 x_msg_count => x_msg_count,
275 x_msg_data => x_msg_data
276 );
277 --}
278 EXCEPTION
279 --{
280 WHEN FND_API.G_EXC_ERROR
281 THEN
282 --{
283 --RAISE;
284 vea_tpa_util_pvt.handle_error
285 (
286 p_error_type => vea_tpa_util_pvt.G_ERROR,
287 p_savepoint_name => l_savepoint_name,
288 p_package_name => G_PACKAGE_NAME,
289 p_api_name => l_api_name,
290 p_location => l_location,
291 x_msg_count => x_msg_count,
292 x_msg_data => x_msg_data,
293 x_api_return_status => x_return_status
294 );
295 --}
296 WHEN FND_API.G_EXC_UNEXPECTED_ERROR
297 THEN
298 --{
299 --RAISE;
300 vea_tpa_util_pvt.handle_error
301 (
302 p_error_type => vea_tpa_util_pvt.G_UNEXPECTED_ERROR,
303 p_savepoint_name => l_savepoint_name,
304 p_package_name => G_PACKAGE_NAME,
305 p_api_name => l_api_name,
306 p_location => l_location,
307 x_msg_count => x_msg_count,
308 x_msg_data => x_msg_data,
309 x_api_return_status => x_return_status
310 );
311 --}
312 WHEN OTHERS
313 THEN
314 --{
315 --RAISE;
316 vea_tpa_util_pvt.handle_error
317 (
318 p_error_type => vea_tpa_util_pvt.G_OTHER_ERROR,
319 p_savepoint_name => l_savepoint_name,
320 p_package_name => G_PACKAGE_NAME,
321 p_api_name => l_api_name,
322 p_location => l_location,
323 x_msg_count => x_msg_count,
324 x_msg_data => x_msg_data,
325 x_api_return_status => x_return_status
326 );
327 --}
328 --}
329 END process;
330 --}
331 END VEA_EXCEPTIONS_SV;