[Home] [Help]
PACKAGE BODY: APPS.IEX_WEBSWITCH_PKG
Source
1 package body IEX_WEBSWITCH_PKG as
2 /* $Header: iexvwbsb.pls 120.1 2005/07/06 19:16:25 jypark noship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(30) :='IEX_WEBSWITCH_PKG';
5 G_FILE_NAME CONSTANT VARCHAR2(12) :='iexvwbsw.pls';
6
7 G_APPL_ID NUMBER;
8 G_LOGIN_ID NUMBER;
9 G_PROGRAM_ID NUMBER;
10 G_USER_ID NUMBER;
11 G_REQUEST_ID NUMBER;
12
13 PROCEDURE Create_WebSwitch(
14 p_api_version IN NUMBER,
15 p_init_msg_list IN VARCHAR2,
16 p_commit IN VARCHAR2,
17 p_validation_level IN NUMBER,
18 x_return_status OUT NOCOPY VARCHAR2,
19 x_msg_count OUT NOCOPY NUMBER,
20 x_msg_data OUT NOCOPY VARCHAR2,
21 p_cgi_switch_rec IN cgi_switch_rec_type,
22 p_switch_data_rec IN switch_data_rec_type
23 )
24 AS
25 l_api_version CONSTANT NUMBER := 1.0;
26 l_api_name CONSTANT VARCHAR2(30) := 'Create_WebSearch';
27 l_return_status VARCHAR2(1);
28 l_msg_count NUMBER;
29 l_msg_data VARCHAR2(32767);
30
31 CURSOR c1 IS SELECT 'X' FROM iex_cgi_switches
32 WHERE cgi_switch_id = p_cgi_switch_rec.cgi_switch_id;
33
34 CURSOR c2 IS SELECT 'X' FROM iex_switch_data
35 WHERE switch_data_id = p_switch_data_rec.switch_data_id;
36
37 l_dummy char(1);
38
39 -- added these for user hooks
40 l_cgi_switch_rec cgi_switch_rec_type;
41 l_switch_data_rec switch_data_rec_type;
42 begin
43 -- Standard begin of API savepoint
44 SAVEPOINT Create_WebSwitch_PUB;
45
46 -- Standard call to check for call compatibility.
47 IF NOT FND_API.Compatible_API_Call (l_api_version,
48 p_api_version,
49 l_api_name,
50 G_PKG_NAME)
51 THEN
52 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
53 END IF;
54
55 -- Check p_init_msg_list
56 IF FND_API.to_Boolean( p_init_msg_list ) THEN
57 FND_MSG_PUB.initialize;
58 END IF;
59
60 -- Initialize API return status to success
61 x_return_status := FND_API.G_RET_STS_SUCCESS;
62
63 -- API body
64 OPEN c1;
65 FETCH c1 INTO l_dummy;
66 IF c1%notfound THEN
67
68 INSERT INTO iex_cgi_switches(
69 cgi_switch_id,
70 query_string_id,
71 enabled_flag,
72 object_version_number,
73 switch_code,
74 switch_type,
75 is_required_yn,
76 sort_order,
77 data_separator,
78 last_update_date,
79 creation_date,
80 created_by,
81 last_updated_by,
82 last_update_login,
83 attribute_category,
84 attribute1,
85 attribute2,
86 attribute3,
87 attribute4,
88 attribute5,
89 attribute6,
90 attribute7,
91 attribute8,
92 attribute9,
93 attribute10,
94 attribute11,
95 attribute12,
96 attribute13,
97 attribute14,
98 attribute15
99 )
100 VALUES (
101 p_cgi_switch_rec.cgi_switch_id,
102 p_cgi_switch_rec.query_string_id,
103 p_cgi_switch_rec.enabled_flag,
104 p_cgi_switch_rec.object_version_number,
105 p_cgi_switch_rec.switch_code,
106 p_cgi_switch_rec.switch_type,
107 p_cgi_switch_rec.is_required_yn,
108 p_cgi_switch_rec.sort_order,
109 p_cgi_switch_rec.data_separator,
110 p_cgi_switch_rec.last_update_date,
111 p_cgi_switch_rec.creation_date,
112 p_cgi_switch_rec.created_by,
113 p_cgi_switch_rec.last_updated_by,
114 p_cgi_switch_rec.last_update_login,
115 p_cgi_switch_rec.attribute_category,
116 p_cgi_switch_rec.attribute1,
117 p_cgi_switch_rec.attribute2,
118 p_cgi_switch_rec.attribute3,
119 p_cgi_switch_rec.attribute4,
120 p_cgi_switch_rec.attribute5,
121 p_cgi_switch_rec.attribute6,
122 p_cgi_switch_rec.attribute7,
123 p_cgi_switch_rec.attribute8,
124 p_cgi_switch_rec.attribute9,
125 p_cgi_switch_rec.attribute10,
126 p_cgi_switch_rec.attribute11,
127 p_cgi_switch_rec.attribute12,
128 p_cgi_switch_rec.attribute13,
129 p_cgi_switch_rec.attribute14,
130 p_cgi_switch_rec.attribute15
131 );
132 END IF;
133 CLOSE c1;
134
135 OPEN c2;
136 FETCH c2 INTO l_dummy;
137 IF c2%notfound THEN
138 INSERT INTO iex_switch_data(
139 switch_data_id,
140 cgi_switch_id,
141 enabled_flag,
142 object_version_number,
143 first_name_yn,
144 last_name_yn,
145 address_yn,
146 city_yn,
147 state_yn,
148 zip_yn,
149 country_yn,
150 last_update_date,
151 creation_date,
152 created_by,
153 last_updated_by,
154 last_update_login,
155 attribute_category,
156 attribute1,
157 attribute2,
158 attribute3,
159 attribute4,
160 attribute5,
161 attribute6,
162 attribute7,
163 attribute8,
164 attribute9,
165 attribute10,
166 attribute11,
167 attribute12,
168 attribute13,
169 attribute14,
170 attribute15
171 )
172 VALUES (
173 p_switch_data_rec.switch_data_id,
174 p_switch_data_rec.cgi_switch_id,
175 p_switch_data_rec.enabled_flag,
176 p_switch_data_rec.object_version_number,
177 p_switch_data_rec.first_name_yn,
178 p_switch_data_rec.last_name_yn,
179 p_switch_data_rec.address_yn,
180 p_switch_data_rec.city_yn,
181 p_switch_data_rec.state_yn,
182 p_switch_data_rec.zip_yn,
183 p_switch_data_rec.country_yn,
184 p_switch_data_rec.last_update_date,
185 p_switch_data_rec.creation_date,
186 p_switch_data_rec.created_by,
187 p_switch_data_rec.last_updated_by,
188 p_switch_data_rec.last_update_login,
189 p_switch_data_rec.attribute_category,
190 p_switch_data_rec.attribute1,
191 p_switch_data_rec.attribute2,
192 p_switch_data_rec.attribute3,
193 p_switch_data_rec.attribute4,
194 p_switch_data_rec.attribute5,
195 p_switch_data_rec.attribute6,
196 p_switch_data_rec.attribute7,
197 p_switch_data_rec.attribute8,
198 p_switch_data_rec.attribute9,
199 p_switch_data_rec.attribute10,
200 p_switch_data_rec.attribute11,
201 p_switch_data_rec.attribute12,
202 p_switch_data_rec.attribute13,
203 p_switch_data_rec.attribute14,
204 p_switch_data_rec.attribute15
205 );
206 END IF;
207 CLOSE c2;
208
209 -- Standard check of p_commit.
210 IF FND_API.To_Boolean ( p_commit ) THEN
211 COMMIT WORK;
212 END IF;
213
214 -- Debug Message
215 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
216 THEN
217 FND_MESSAGE.Set_Name('ast', 'Pvt WebAssist API: End');
218 FND_MSG_PUB.Add;
219 END IF;
220
221 -- Standard call to get message count and IF count is 1, get message info.
222 FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
223 p_data => x_msg_data );
224
225
226 --
227 -- Normal API Exception handling, IF exception occurs outside of phone processing loop
228 --
229 EXCEPTION
230
231 WHEN FND_API.G_EXC_ERROR THEN
232
233 ROLLBACK TO Create_WebSwitch_PUB;
234 x_return_status := FND_API.G_RET_STS_ERROR ;
235
236 FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
237 p_data => x_msg_data );
238
239 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
240
241 ROLLBACK TO Create_WebSwitch_PUB;
242 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
243
244 FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
245 p_data => x_msg_data );
246
247 WHEN OTHERS THEN
248
249 ROLLBACK TO Create_WebSwitch_PUB;
250 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
251
252 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
253 THEN
254 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
255 END IF;
256
257 FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
258 p_data => x_msg_data );
259
260 END;
261
262 PROCEDURE Update_WebSwitch(
263 p_api_version IN NUMBER,
264 p_init_msg_list IN VARCHAR2,
265 p_commit IN VARCHAR2,
266 p_validation_level IN NUMBER,
267 x_return_status OUT NOCOPY VARCHAR2,
268 x_msg_count OUT NOCOPY NUMBER,
269 x_msg_data OUT NOCOPY VARCHAR2,
270 p_cgi_switch_rec IN cgi_switch_rec_type,
271 p_switch_data_rec IN switch_data_rec_type
272 )
273 AS
274 l_api_version CONSTANT NUMBER := 1.0;
275 l_api_name CONSTANT VARCHAR2(30) := 'Update_WebSwitch';
276 l_return_status VARCHAR2(1);
277 l_msg_count NUMBER;
278 l_msg_data VARCHAR2(32767);
279 -- added these for user hooks
280 l_cgi_switch_rec cgi_switch_rec_type;
281 l_switch_data_rec switch_data_rec_type;
282
283 begin
284 -- Standard begin of API savepoint
285 SAVEPOINT Update_WebSwitch_PVT;
286
287 -- Standard call to check for call compatibility.
288 IF NOT FND_API.Compatible_API_Call (l_api_version,
289 p_api_version,
290 l_api_name,
291 G_PKG_NAME)
292 THEN
293 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
294 END IF;
295
296 -- Check p_init_msg_list
297 IF FND_API.to_Boolean( p_init_msg_list ) THEN
298 FND_MSG_PUB.initialize;
302 -- Initialize API return status to success
299 END IF;
300
301
303 x_return_status := FND_API.G_RET_STS_SUCCESS;
304
305 -- API body
306 UPDATE iex_cgi_switches
307 SET
308 switch_code = p_cgi_switch_rec.switch_code,
309 switch_type = p_cgi_switch_rec.switch_type,
310 enabled_flag = p_cgi_switch_rec.enabled_flag,
311 is_required_yn = p_cgi_switch_rec.is_required_yn,
312 sort_order = p_cgi_switch_rec.sort_order,
313 data_separator = p_cgi_switch_rec.data_separator,
314 last_update_date = p_cgi_switch_rec.last_update_date,
315 last_updated_by = p_cgi_switch_rec.last_updated_by,
316 last_update_login = p_cgi_switch_rec.last_update_login,
317 attribute_category = p_cgi_switch_rec.attribute_category,
318 attribute1 = p_cgi_switch_rec.attribute1,
319 attribute2 = p_cgi_switch_rec.attribute2,
320 attribute3 = p_cgi_switch_rec.attribute3,
321 attribute4 = p_cgi_switch_rec.attribute4,
322 attribute5 = p_cgi_switch_rec.attribute5,
323 attribute6 = p_cgi_switch_rec.attribute6,
324 attribute7 = p_cgi_switch_rec.attribute7,
325 attribute8 = p_cgi_switch_rec.attribute8,
326 attribute9 = p_cgi_switch_rec.attribute9,
327 attribute10 = p_cgi_switch_rec.attribute10,
328 attribute11 = p_cgi_switch_rec.attribute11,
329 attribute12 = p_cgi_switch_rec.attribute12,
330 attribute13 = p_cgi_switch_rec.attribute13,
331 attribute14 = p_cgi_switch_rec.attribute14,
332 attribute15 = p_cgi_switch_rec.attribute15
333 WHERE query_string_id = p_cgi_switch_rec.query_string_id
334 AND cgi_switch_id = p_cgi_switch_rec.cgi_switch_id;
335
336 UPDATE iex_switch_data
337 SET
338 first_name_yn = p_switch_data_rec.first_name_yn,
339 last_name_yn = p_switch_data_rec.last_name_yn,
340 address_yn = p_switch_data_rec.address_yn,
341 city_yn = p_switch_data_rec.city_yn,
342 state_yn = p_switch_data_rec.state_yn,
343 zip_yn = p_switch_data_rec.zip_yn,
344 country_yn = p_switch_data_rec.country_yn,
345 enabled_flag = p_switch_data_rec.enabled_flag,
346 last_update_date = p_switch_data_rec.last_update_date,
347 last_updated_by = p_switch_data_rec.last_updated_by,
348 last_update_login = p_switch_data_rec.last_update_login,
349 attribute_category = p_switch_data_rec.attribute_category,
350 attribute1 = p_switch_data_rec.attribute1,
351 attribute2 = p_switch_data_rec.attribute2,
352 attribute3 = p_switch_data_rec.attribute3,
353 attribute4 = p_switch_data_rec.attribute4,
354 attribute5 = p_switch_data_rec.attribute5,
355 attribute6 = p_switch_data_rec.attribute6,
356 attribute7 = p_switch_data_rec.attribute7,
357 attribute8 = p_switch_data_rec.attribute8,
358 attribute9 = p_switch_data_rec.attribute9,
359 attribute10 = p_switch_data_rec.attribute10,
360 attribute11 = p_switch_data_rec.attribute11,
361 attribute12 = p_switch_data_rec.attribute12,
362 attribute13 = p_switch_data_rec.attribute13,
363 attribute14 = p_switch_data_rec.attribute14,
364 attribute15 = p_switch_data_rec.attribute15
365 WHERE cgi_switch_id = p_switch_data_rec.cgi_switch_id
366 AND switch_data_id = p_switch_data_rec.switch_data_id;
367
368 -- Standard check of p_commit.
369 IF FND_API.To_Boolean ( p_commit ) THEN
370 COMMIT WORK;
371 END IF;
372
373 -- Standard call to get message count and IF count is 1, get message info.
374 FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
375 p_data => x_msg_data );
376
377
378 --
379 -- Normal API Exception handling, IF exception occurs outside of phone processing loop
380 --
381 EXCEPTION
382
383 WHEN FND_API.G_EXC_ERROR THEN
384
385 ROLLBACK TO Update_WebSwitch_PVT;
386 x_return_status := FND_API.G_RET_STS_ERROR ;
387
388 FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
389 p_data => x_msg_data );
390
391 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
392
393 ROLLBACK TO Update_WebSwitch_PVT;
394 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
395
396 FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
397 p_data => x_msg_data );
398
399 WHEN OTHERS THEN
400
401 ROLLBACK TO Update_WebSwitch_PVT;
402 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
403
404 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
405 THEN
406 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
407 END IF;
408
409 FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
410 p_data => x_msg_data );
411
412 END;
413
414 PROCEDURE Lock_WebSwitch( p_api_version IN NUMBER,
415 p_init_msg_list IN VARCHAR2,
416 p_commit IN VARCHAR2,
417 p_validation_level IN NUMBER,
418 x_return_status OUT NOCOPY VARCHAR2,
419 x_msg_count OUT NOCOPY NUMBER,
420 x_msg_data OUT NOCOPY VARCHAR2,
421 p_cgi_switch_rec IN cgi_switch_rec_type,
422 p_switch_data_rec IN switch_data_rec_type
423 )
424 AS
425 l_api_version CONSTANT NUMBER := 1.0;
426 l_api_name CONSTANT VARCHAR2(30) := 'Lock_WebSwitch';
427 l_return_status VARCHAR2(1);
428 l_msg_count NUMBER;
432 l_cgi_switch_rec cgi_switch_rec_type;
429 l_msg_data VARCHAR2(32767);
430
431 -- added these for user hookes
433 l_switch_data_rec switch_data_rec_type;
434
435 begin
436 -- Standard begin of API savepoint
437 SAVEPOINT Lock_WebSwitch_PVT;
438 -- Standard call to check for call compatibility.
439 IF NOT FND_API.Compatible_API_Call (l_api_version,
440 p_api_version,
441 l_api_name,
442 G_PKG_NAME)
443 THEN
444 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
445 END IF;
446
447 -- Check p_init_msg_list
448 IF FND_API.to_Boolean( p_init_msg_list ) THEN
449 FND_MSG_PUB.initialize;
450 END IF;
451
452 -- Initialize API return status to success
453 x_return_status := FND_API.G_RET_STS_SUCCESS;
454
455 -- API body
456 DECLARE
457 v_dummy CHAR(1);
458 CURSOR c1 IS SELECT 'X'
459 FROM iex_cgi_switches
460 WHERE cgi_switch_id = p_cgi_switch_rec.cgi_switch_id
461 FOR UPDATE;
462 BEGIN
463 OPEN c1;
464 FETCH c1 INTO v_dummy;
465 CLOSE c1;
466 END;
467
468 DECLARE
469 v_dummy Char(1);
470 CURSOR c1 IS SELECT 'X'
471 FROM iex_switch_data
472 WHERE switch_data_id = p_switch_data_rec.switch_data_id
473 FOR UPDATE;
474 BEGIN
475 OPEN c1;
476 FETCH c1 INTO v_dummy;
477 CLOSE c1;
478 END;
479
480
481 -- Success Message
482 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
483 THEN
484 FND_MESSAGE.Set_Name('ast', 'API_ROWS_UPDATED');
485 FND_MESSAGE.Set_Token('ROW', 'ast_QUERY_STRING', TRUE);
486 FND_MESSAGE.Set_Token('NUMBER', 1, FALSE);
487 FND_MSG_PUB.Add;
488 END IF;
489
490 -- END of API body
491
492
493
494 -- Standard check of p_commit.
495 IF FND_API.To_Boolean ( p_commit ) THEN
496 COMMIT WORK;
497 END IF;
498
499 -- Standard call to get message count and IF count is 1, get message info.
500 FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
501 p_data => x_msg_data );
502
503
504 --
505 -- Normal API Exception handling, IF exception occurs outside of phone processing loop
506 --
507 EXCEPTION
508
509 WHEN FND_API.G_EXC_ERROR THEN
510
511 ROLLBACK TO Lock_WebSwitch_PVT;
512 x_return_status := FND_API.G_RET_STS_ERROR ;
513
514 FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
515 p_data => x_msg_data );
516
517 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
518
519 ROLLBACK TO Lock_WebSwitch_PVT;
520 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
521
522 FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
523 p_data => x_msg_data );
524
525 WHEN OTHERS THEN
526
527 ROLLBACK TO Lock_WebSwitch_PVT;
528 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
529
530 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
531 THEN
532 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
533 END IF;
534
535 FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
536 p_data => x_msg_data );
537
538 END;
539
540 PROCEDURE Delete_WebSwitch(
541 p_api_version IN NUMBER,
542 p_init_msg_list IN VARCHAR2,
543 p_commit IN VARCHAR2,
544 p_validation_level IN NUMBER,
545 x_return_status OUT NOCOPY VARCHAR2,
546 x_msg_count OUT NOCOPY NUMBER,
547 x_msg_data OUT NOCOPY VARCHAR2,
548 p_cgi_switch_rec IN cgi_switch_rec_type,
549 p_switch_data_rec IN switch_data_rec_type
550 )
551 AS
552 l_api_version CONSTANT NUMBER := 1.0;
553 l_api_name CONSTANT VARCHAR2(30) := 'Delete_WebSwitch';
554 l_return_status VARCHAR2(1);
555 l_msg_count NUMBER;
556 l_msg_data VARCHAR2(32767);
557
558 -- added these for user hookes
559 l_cgi_switch_rec cgi_switch_rec_type;
560 l_switch_data_rec switch_data_rec_type;
561
562 begin
563 -- Standard begin of API savepoint
564 SAVEPOINT Delete_WebSwitch_PUB;
565
566 -- Standard call to check for call compatibility.
567 IF NOT FND_API.Compatible_API_Call (l_api_version,
568 p_api_version,
569 l_api_name,
570 G_PKG_NAME)
571 THEN
572 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
573 END IF;
574 -- Check p_init_msg_list
575 IF FND_API.to_Boolean( p_init_msg_list ) THEN
576 FND_MSG_PUB.initialize;
577 END IF;
578
579 -- Initialize API return status to success
580 x_return_status := FND_API.G_RET_STS_SUCCESS;
581
582 -- API body
583 IF p_switch_data_rec.switch_data_id IS NOT NULL THEN
584 DELETE FROM iex_switch_data
585 WHERE switch_data_id = p_switch_data_rec.switch_data_id;
586 END IF;
587
588
589 IF p_cgi_switch_rec.cgi_switch_id IS NOT NULL THEN
590 DELETE FROM iex_cgi_switches
591 WHERE cgi_switch_id = p_cgi_switch_rec.cgi_switch_id;
592 END IF;
593
594 -- Standard check of p_commit.
595 IF FND_API.To_Boolean ( p_commit ) THEN
596 COMMIT WORK;
597 END IF;
598
599 -- Debug Message
600 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
601 THEN
602 FND_MESSAGE.Set_Name('ast', 'Pvt WebAssist API: End');
603 FND_MSG_PUB.Add;
604 END IF;
605
606 -- Standard call to get message count and IF count is 1, get message info.
607 FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
608 p_data => x_msg_data );
609
610
611 --
612 -- Normal API Exception handling, IF exception occurs outside of phone processing loop
613 --
614 EXCEPTION
615
616 WHEN FND_API.G_EXC_ERROR THEN
617
618 ROLLBACK TO Delete_WebSwitch_PUB;
619 x_return_status := FND_API.G_RET_STS_ERROR ;
620
621 FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
622 p_data => x_msg_data );
623
624 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
625
626 ROLLBACK TO Delete_WebSwitch_PUB;
627 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
628
629 FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
630 p_data => x_msg_data );
631
632 WHEN OTHERS THEN
633
634 ROLLBACK TO Delete_WebSwitch_PUB;
635 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
636
637 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
638 THEN
639 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
640 END IF;
641
642 FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
643 p_data => x_msg_data );
644
645 END;
646
647 BEGIN
648 G_APPL_ID := FND_GLOBAL.Prog_Appl_Id;
649 G_LOGIN_ID := FND_GLOBAL.Conc_Login_Id;
650 G_PROGRAM_ID := FND_GLOBAL.Conc_Program_Id;
651 G_USER_ID := FND_GLOBAL.User_Id;
652 G_REQUEST_ID := FND_GLOBAL.Conc_Request_Id;
653
654 END;