[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_SEND_FULFILLMENT_PUB
Source
1 PACKAGE BODY OKL_AM_SEND_FULFILLMENT_PUB AS
2 /* $Header: OKLPSFWB.pls 115.6 2004/04/13 11:06:38 rnaik noship $ */
3
4
5 -- Start of comments
6 --
7 -- Procedure Name : send_fulfillment
8 -- Description : Generic procedure which can be called from any AM screen
9 -- to launch fulfillment
10 -- Business Rules :
11 -- Parameters :
12 -- Version : 1.0
13 --
14 -- End of comments
15 PROCEDURE send_fulfillment (
16 p_api_version IN NUMBER,
17 p_init_msg_list IN VARCHAR2,
18 x_return_status OUT NOCOPY VARCHAR2,
19 x_msg_count OUT NOCOPY NUMBER,
20 x_msg_data OUT NOCOPY VARCHAR2,
21 p_send_rec IN full_rec_type,
22 x_send_rec OUT NOCOPY full_rec_type) IS
23
24 l_api_version NUMBER;
25 l_init_msg_list VARCHAR2(1) ;
26 l_return_status VARCHAR2(1);
27 l_msg_count NUMBER ;
28 l_msg_data VARCHAR2(2000);
29 lp_send_rec full_rec_type;
30 lx_send_rec full_rec_type;
31
32 BEGIN
33
34 SAVEPOINT trx_send_fulfillment;
35
36 l_api_version := p_api_version ;
37 l_init_msg_list := p_init_msg_list ;
38 l_return_status := x_return_status ;
39 l_msg_count := x_msg_count ;
40 l_msg_data := x_msg_data ;
41 lp_send_rec := p_send_rec;
42 lx_send_rec := p_send_rec;
43
44
45
46 -- call procedure of PVT
47 OKL_AM_SEND_FULFILLMENT_PVT.send_fulfillment(
48 p_api_version => l_api_version,
49 p_init_msg_list => l_init_msg_list,
50 x_return_status => l_return_status,
51 x_msg_count => l_msg_count,
52 x_msg_data => l_msg_data,
53 p_send_rec => lp_send_rec,
54 x_send_rec => lx_send_rec);
55
56 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
57 RAISE FND_API.G_EXC_ERROR;
58 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
59 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
60 END IF;
61
62 -- Set IN as OUT
63 lp_send_rec := lx_send_rec;
64
65
66
67 --Assign value to OUT variables
68 x_return_status := l_return_status ;
69 x_msg_count := l_msg_count ;
70 x_msg_data := l_msg_data ;
71 x_send_rec := lx_send_rec;
72
73 EXCEPTION
74
75 WHEN FND_API.G_EXC_ERROR THEN
76 ROLLBACK TO trx_send_fulfillment;
77 x_return_status := FND_API.G_RET_STS_ERROR;
78 x_msg_count := l_msg_count ;
79 x_msg_data := l_msg_data ;
80 FND_MSG_PUB.count_and_get(
81 p_count => x_msg_count,
82 p_data => x_msg_data);
83
84 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
85 ROLLBACK TO trx_send_fulfillment;
86 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
87 x_msg_count := l_msg_count ;
88 x_msg_data := l_msg_data ;
89 FND_MSG_PUB.count_and_get(
90 p_count => x_msg_count,
91 p_data => x_msg_data);
92
93 WHEN OTHERS THEN
94 ROLLBACK TO trx_send_fulfillment;
95 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
96 x_msg_count := l_msg_count ;
97 x_msg_data := l_msg_data ;
98 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_SEND_FULFILLMENT_PUB','send_fulfillment');
99 FND_MSG_PUB.count_and_get(
100 p_count => x_msg_count,
101 p_data => x_msg_data);
102
103 END send_fulfillment;
104
105 -- Start of comments
106 --
107 -- Procedure Name : send_fulfillment
108 -- Description : Generic procedure which can be called from any AM screen
109 -- to launch fulfillment. Can be used to send fulfullment to
110 -- multiple parties/contacts/vendors simultaneously
111 -- Business Rules :
112 -- Parameters :
113 -- Version : 1.0
114 --
115 -- End of comments
116 PROCEDURE send_fulfillment (
117 p_api_version IN NUMBER,
118 p_init_msg_list IN VARCHAR2,
119 x_return_status OUT NOCOPY VARCHAR2,
120 x_msg_count OUT NOCOPY NUMBER,
121 x_msg_data OUT NOCOPY VARCHAR2,
122 p_send_tbl IN full_tbl_type,
123 x_send_tbl OUT NOCOPY full_tbl_type) IS
124
125 l_api_version NUMBER;
126 l_init_msg_list VARCHAR2(1) ;
127 l_return_status VARCHAR2(1);
128 l_msg_count NUMBER ;
129 l_msg_data VARCHAR2(2000);
130 lp_send_tbl full_tbl_type;
131 lx_send_tbl full_tbl_type;
132
133 BEGIN
134
135 SAVEPOINT trx_send_fulfillment;
136
137 l_api_version := p_api_version ;
138 l_init_msg_list := p_init_msg_list ;
139 l_return_status := x_return_status ;
140 l_msg_count := x_msg_count ;
141 l_msg_data := x_msg_data ;
142 lp_send_tbl := p_send_tbl;
143 lx_send_tbl := p_send_tbl;
144
145
146
147 -- call procedure of PVT
148 OKL_AM_SEND_FULFILLMENT_PVT.send_fulfillment(
149 p_api_version => l_api_version,
150 p_init_msg_list => l_init_msg_list,
151 x_return_status => l_return_status,
152 x_msg_count => l_msg_count,
153 x_msg_data => l_msg_data,
154 p_send_tbl => lp_send_tbl,
155 x_send_tbl => lx_send_tbl);
156
157 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
158 RAISE FND_API.G_EXC_ERROR;
159 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
160 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
161 END IF;
162
163 -- Set IN as OUT
164 lp_send_tbl := lx_send_tbl;
165
166
167
168 --Assign value to OUT variables
169 x_return_status := l_return_status ;
170 x_msg_count := l_msg_count ;
171 x_msg_data := l_msg_data ;
172 x_send_tbl := lx_send_tbl;
173
174 EXCEPTION
175
176 WHEN FND_API.G_EXC_ERROR THEN
177 ROLLBACK TO trx_send_fulfillment;
178 x_return_status := FND_API.G_RET_STS_ERROR;
179 x_msg_count := l_msg_count ;
180 x_msg_data := l_msg_data ;
181 FND_MSG_PUB.count_and_get(
182 p_count => x_msg_count,
183 p_data => x_msg_data);
184
185 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
186 ROLLBACK TO trx_send_fulfillment;
187 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
188 x_msg_count := l_msg_count ;
189 x_msg_data := l_msg_data ;
190 FND_MSG_PUB.count_and_get(
191 p_count => x_msg_count,
192 p_data => x_msg_data);
193
194 WHEN OTHERS THEN
195 ROLLBACK TO trx_send_fulfillment;
196 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
197 x_msg_count := l_msg_count ;
198 x_msg_data := l_msg_data ;
199 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_SEND_FULFILLMENT_PUB','send_fulfillment');
200 FND_MSG_PUB.count_and_get(
201 p_count => x_msg_count,
202 p_data => x_msg_data);
203
204 END send_fulfillment;
205
206
207 -- Start of comments
208 --
209 -- Procedure Name : send_repurchase_quote
210 -- Description : Procedure to launch fulfillment from repurchase asset scrn
211 -- Business Rules :
212 -- Parameters :
213 -- Version : 1.0
214 --
215 -- End of comments
216 PROCEDURE send_repurchase_quote (
217 p_api_version IN NUMBER,
218 p_init_msg_list IN VARCHAR2,
219 x_return_status OUT NOCOPY VARCHAR2,
220 x_msg_count OUT NOCOPY NUMBER,
221 x_msg_data OUT NOCOPY VARCHAR2,
222 p_send_tbl IN full_tbl_type,
223 x_send_tbl OUT NOCOPY full_tbl_type,
224 p_qtev_rec IN qtev_rec_type,
225 x_qtev_rec OUT NOCOPY qtev_rec_type) IS
226
227
228 l_api_version NUMBER;
229 l_init_msg_list VARCHAR2(1) ;
230 l_return_status VARCHAR2(1);
231 l_msg_count NUMBER ;
232 l_msg_data VARCHAR2(2000);
233 lp_send_tbl full_tbl_type;
234 lx_send_tbl full_tbl_type;
235 lp_qtev_rec qtev_rec_type;
236 lx_qtev_rec qtev_rec_type;
237
238 BEGIN
239
240 SAVEPOINT trx_send_repurchase_quote;
241
242 l_api_version := p_api_version ;
243 l_init_msg_list := p_init_msg_list ;
244 l_return_status := x_return_status ;
245 l_msg_count := x_msg_count ;
246 l_msg_data := x_msg_data ;
247 lp_send_tbl := p_send_tbl;
248 lx_send_tbl := p_send_tbl;
249 lp_qtev_rec := p_qtev_rec;
250 lx_qtev_rec := p_qtev_rec;
251
252
253
254 -- call procedure of PVT
255 OKL_AM_SEND_FULFILLMENT_PVT.send_repurchase_quote(
256 p_api_version => l_api_version,
257 p_init_msg_list => l_init_msg_list,
258 x_return_status => l_return_status,
259 x_msg_count => l_msg_count,
260 x_msg_data => l_msg_data,
261 p_send_tbl => lp_send_tbl,
262 x_send_tbl => lx_send_tbl,
263 p_qtev_rec => lp_qtev_rec,
264 x_qtev_rec => lx_qtev_rec);
265
266 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
267 RAISE FND_API.G_EXC_ERROR;
268 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
269 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
270 END IF;
271
272 -- Set IN from OUT
273 lp_qtev_rec := lx_qtev_rec;
274 lp_send_tbl := lx_send_tbl;
275
276
277
278 --Assign value to OUT variables
279 x_return_status := l_return_status ;
280 x_msg_count := l_msg_count ;
281 x_msg_data := l_msg_data ;
282 x_qtev_rec := lx_qtev_rec;
283 x_send_tbl := lx_send_tbl;
284
285 EXCEPTION
286
287 WHEN FND_API.G_EXC_ERROR THEN
288 ROLLBACK TO trx_send_repurchase_quote;
289 x_return_status := FND_API.G_RET_STS_ERROR;
290 x_msg_count := l_msg_count ;
291 x_msg_data := l_msg_data ;
292 FND_MSG_PUB.count_and_get(
293 p_count => x_msg_count,
294 p_data => x_msg_data);
295
296 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
297 ROLLBACK TO trx_send_repurchase_quote;
298 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
299 x_msg_count := l_msg_count ;
300 x_msg_data := l_msg_data ;
301 FND_MSG_PUB.count_and_get(
302 p_count => x_msg_count,
303 p_data => x_msg_data);
304
305 WHEN OTHERS THEN
306 ROLLBACK TO trx_send_repurchase_quote;
307 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
308 x_msg_count := l_msg_count ;
309 x_msg_data := l_msg_data ;
310 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_SEND_FULFILLMENT_PUB','send_repurchase_quote');
311 FND_MSG_PUB.count_and_get(
312 p_count => x_msg_count,
313 p_data => x_msg_data);
314 END send_repurchase_quote;
315
316
317 -- Start of comments
318 --
319 -- Procedure Name : send_terminate_quote
320 -- Description : Procedure to launch fulfillment from terminate quote update
321 -- Business Rules :
322 -- Parameters :
323 -- Version : 1.0
324 --
325 -- End of comments
326 PROCEDURE send_terminate_quote (
327 p_api_version IN NUMBER,
328 p_init_msg_list IN VARCHAR2,
329 x_return_status OUT NOCOPY VARCHAR2,
330 x_msg_count OUT NOCOPY NUMBER,
331 x_msg_data OUT NOCOPY VARCHAR2,
332 p_party_tbl IN q_party_uv_tbl_type,
333 x_party_tbl OUT NOCOPY q_party_uv_tbl_type,
334 p_qtev_rec IN qtev_rec_type,
335 x_qtev_rec OUT NOCOPY qtev_rec_type) IS
336
337
338 l_api_version NUMBER;
339 l_init_msg_list VARCHAR2(1) ;
340 l_return_status VARCHAR2(1);
341 l_msg_count NUMBER ;
342 l_msg_data VARCHAR2(2000);
343 lp_party_tbl q_party_uv_tbl_type;
344 lx_party_tbl q_party_uv_tbl_type;
345 lp_qtev_rec qtev_rec_type;
346 lx_qtev_rec qtev_rec_type;
347
348 BEGIN
349
350 SAVEPOINT trx_send_terminate_quote;
351
352 l_api_version := p_api_version ;
353 l_init_msg_list := p_init_msg_list ;
354 l_return_status := x_return_status ;
355 l_msg_count := x_msg_count ;
356 l_msg_data := x_msg_data ;
357 lp_party_tbl := p_party_tbl;
358 lx_party_tbl := p_party_tbl;
359 lp_qtev_rec := p_qtev_rec;
360 lx_qtev_rec := p_qtev_rec;
361
362
363
364 -- call procedure of PVT
365 OKL_AM_SEND_FULFILLMENT_PVT.send_terminate_quote(
366 p_api_version => l_api_version,
367 p_init_msg_list => l_init_msg_list,
368 x_return_status => l_return_status,
369 x_msg_count => l_msg_count,
370 x_msg_data => l_msg_data,
371 p_party_tbl => lp_party_tbl,
372 x_party_tbl => lx_party_tbl,
373 p_qtev_rec => lp_qtev_rec,
374 x_qtev_rec => lx_qtev_rec);
375
376 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
377 RAISE FND_API.G_EXC_ERROR;
378 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
379 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
380 END IF;
381
382 -- Set IN from OUT
383 lp_qtev_rec := lx_qtev_rec;
384 lp_party_tbl := lx_party_tbl;
385
386
387
388 --Assign value to OUT variables
389 x_return_status := l_return_status ;
390 x_msg_count := l_msg_count ;
391 x_msg_data := l_msg_data ;
392 x_qtev_rec := lx_qtev_rec;
393 x_party_tbl := lx_party_tbl;
394
395 EXCEPTION
396
397 WHEN FND_API.G_EXC_ERROR THEN
398 ROLLBACK TO trx_send_terminate_quote;
399 x_return_status := FND_API.G_RET_STS_ERROR;
400 x_msg_count := l_msg_count ;
401 x_msg_data := l_msg_data ;
402 FND_MSG_PUB.count_and_get(
403 p_count => x_msg_count,
404 p_data => x_msg_data);
405
406 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
407 ROLLBACK TO trx_send_terminate_quote;
408 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
409 x_msg_count := l_msg_count ;
410 x_msg_data := l_msg_data ;
411 FND_MSG_PUB.count_and_get(
412 p_count => x_msg_count,
413 p_data => x_msg_data);
414
415 WHEN OTHERS THEN
416 ROLLBACK TO trx_send_terminate_quote;
417 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
418 x_msg_count := l_msg_count ;
419 x_msg_data := l_msg_data ;
420 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_SEND_FULFILLMENT_PUB','send_terminate_quote');
421 FND_MSG_PUB.count_and_get(
422 p_count => x_msg_count,
423 p_data => x_msg_data);
424 END send_terminate_quote;
425
426
427 -- Start of comments
428 --
429 -- Procedure Name : send_restructure_quote
430 -- Description : Procedure to launch fulfillment from restructure quote screen
431 -- Business Rules :
432 -- Parameters :
433 -- Version : 1.0
434 --
435 -- End of comments
436 PROCEDURE send_restructure_quote (
437 p_api_version IN NUMBER,
438 p_init_msg_list IN VARCHAR2,
439 x_return_status OUT NOCOPY VARCHAR2,
440 x_msg_count OUT NOCOPY NUMBER,
441 x_msg_data OUT NOCOPY VARCHAR2,
442 p_send_tbl IN full_tbl_type,
443 x_send_tbl OUT NOCOPY full_tbl_type,
444 p_qtev_rec IN qtev_rec_type,
445 x_qtev_rec OUT NOCOPY qtev_rec_type) IS
446
447
448 l_api_version NUMBER;
449 l_init_msg_list VARCHAR2(1) ;
450 l_return_status VARCHAR2(1);
451 l_msg_count NUMBER ;
452 l_msg_data VARCHAR2(2000);
453 lp_send_tbl full_tbl_type;
454 lx_send_tbl full_tbl_type;
455 lp_qtev_rec qtev_rec_type;
456 lx_qtev_rec qtev_rec_type;
457
458 BEGIN
459
460 SAVEPOINT trx_send_restructure_quote;
461
462 l_api_version := p_api_version ;
463 l_init_msg_list := p_init_msg_list ;
464 l_return_status := x_return_status ;
465 l_msg_count := x_msg_count ;
466 l_msg_data := x_msg_data ;
467 lp_send_tbl := p_send_tbl;
468 lx_send_tbl := p_send_tbl;
469 lp_qtev_rec := p_qtev_rec;
470 lx_qtev_rec := p_qtev_rec;
471
472
473
474 -- call procedure of PVT
475 OKL_AM_SEND_FULFILLMENT_PVT.send_restructure_quote(
476 p_api_version => l_api_version,
477 p_init_msg_list => l_init_msg_list,
478 x_return_status => l_return_status,
479 x_msg_count => l_msg_count,
480 x_msg_data => l_msg_data,
481 p_send_tbl => lp_send_tbl,
482 x_send_tbl => lx_send_tbl,
483 p_qtev_rec => lp_qtev_rec,
484 x_qtev_rec => lx_qtev_rec);
485
486 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
487 RAISE FND_API.G_EXC_ERROR;
488 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
489 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
490 END IF;
491
492 -- Set IN from OUT
493 lp_qtev_rec := lx_qtev_rec;
494 lp_send_tbl := lx_send_tbl;
495
496
497
498 --Assign value to OUT variables
499 x_return_status := l_return_status ;
500 x_msg_count := l_msg_count ;
501 x_msg_data := l_msg_data ;
502 x_qtev_rec := lx_qtev_rec;
503 x_send_tbl := lx_send_tbl;
504
505 EXCEPTION
506
507 WHEN FND_API.G_EXC_ERROR THEN
508 ROLLBACK TO trx_send_restructure_quote;
509 x_return_status := FND_API.G_RET_STS_ERROR;
510 x_msg_count := l_msg_count ;
511 x_msg_data := l_msg_data ;
512 FND_MSG_PUB.count_and_get(
513 p_count => x_msg_count,
514 p_data => x_msg_data);
515
516 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
517 ROLLBACK TO trx_send_restructure_quote;
518 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
519 x_msg_count := l_msg_count ;
520 x_msg_data := l_msg_data ;
521 FND_MSG_PUB.count_and_get(
522 p_count => x_msg_count,
523 p_data => x_msg_data);
524
525 WHEN OTHERS THEN
526 ROLLBACK TO trx_send_restructure_quote;
527 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
528 x_msg_count := l_msg_count ;
529 x_msg_data := l_msg_data ;
530 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_SEND_FULFILLMENT_PUB','send_restructure_quote');
531 FND_MSG_PUB.count_and_get(
532 p_count => x_msg_count,
533 p_data => x_msg_data);
534 END send_restructure_quote;
535
536
537
538 -- Start of comments
539 --
540 -- Procedure Name : send_consolidate_quote
541 -- Description : Procedure to launch fulfillment from consolidate quote screen
542 -- Business Rules :
543 -- Parameters :
544 -- Version : 1.0
545 --
546 -- End of comments
547 PROCEDURE send_consolidate_quote (
548 p_api_version IN NUMBER,
549 p_init_msg_list IN VARCHAR2,
550 x_return_status OUT NOCOPY VARCHAR2,
551 x_msg_count OUT NOCOPY NUMBER,
552 x_msg_data OUT NOCOPY VARCHAR2,
553 p_send_tbl IN full_tbl_type,
554 x_send_tbl OUT NOCOPY full_tbl_type,
555 p_qtev_rec IN qtev_rec_type,
556 x_qtev_rec OUT NOCOPY qtev_rec_type) IS
557
558
559 l_api_version NUMBER;
560 l_init_msg_list VARCHAR2(1) ;
561 l_return_status VARCHAR2(1);
562 l_msg_count NUMBER ;
563 l_msg_data VARCHAR2(2000);
564 lp_send_tbl full_tbl_type;
565 lx_send_tbl full_tbl_type;
566 lp_qtev_rec qtev_rec_type;
567 lx_qtev_rec qtev_rec_type;
568
569 BEGIN
570
571 SAVEPOINT trx_send_consolidate_quote;
572
573 l_api_version := p_api_version ;
574 l_init_msg_list := p_init_msg_list ;
575 l_return_status := x_return_status ;
576 l_msg_count := x_msg_count ;
577 l_msg_data := x_msg_data ;
578 lp_send_tbl := p_send_tbl;
579 lx_send_tbl := p_send_tbl;
580 lp_qtev_rec := p_qtev_rec;
581 lx_qtev_rec := p_qtev_rec;
582
583
584
585 -- call procedure of PVT
586 OKL_AM_SEND_FULFILLMENT_PVT.send_consolidate_quote(
587 p_api_version => l_api_version,
588 p_init_msg_list => l_init_msg_list,
589 x_return_status => l_return_status,
590 x_msg_count => l_msg_count,
591 x_msg_data => l_msg_data,
592 p_send_tbl => lp_send_tbl,
593 x_send_tbl => lx_send_tbl,
594 p_qtev_rec => lp_qtev_rec,
595 x_qtev_rec => lx_qtev_rec);
596
597 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
598 RAISE FND_API.G_EXC_ERROR;
599 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
600 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
601 END IF;
602
603 -- Set IN from OUT
604 lp_qtev_rec := lx_qtev_rec;
605 lp_send_tbl := lx_send_tbl;
606
607
608
609 --Assign value to OUT variables
610 x_return_status := l_return_status ;
611 x_msg_count := l_msg_count ;
612 x_msg_data := l_msg_data ;
613 x_qtev_rec := lx_qtev_rec;
614 x_send_tbl := lx_send_tbl;
615
616 EXCEPTION
617
618 WHEN FND_API.G_EXC_ERROR THEN
619 ROLLBACK TO trx_send_consolidate_quote;
620 x_return_status := FND_API.G_RET_STS_ERROR;
621 x_msg_count := l_msg_count ;
622 x_msg_data := l_msg_data ;
623 FND_MSG_PUB.count_and_get(
624 p_count => x_msg_count,
625 p_data => x_msg_data);
626
627 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
628 ROLLBACK TO trx_send_consolidate_quote;
629 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
630 x_msg_count := l_msg_count ;
631 x_msg_data := l_msg_data ;
632 FND_MSG_PUB.count_and_get(
633 p_count => x_msg_count,
634 p_data => x_msg_data);
635
636 WHEN OTHERS THEN
637 ROLLBACK TO trx_send_consolidate_quote;
638 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
639 x_msg_count := l_msg_count ;
640 x_msg_data := l_msg_data ;
641 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_SEND_FULFILLMENT_PUB','send_consolidate_quote');
642 FND_MSG_PUB.count_and_get(
643 p_count => x_msg_count,
644 p_data => x_msg_data);
645 END send_consolidate_quote;
646
647 END OKL_AM_SEND_FULFILLMENT_PUB;