[Home] [Help]
PACKAGE BODY: APPS.OKL_INS_QUOTE_PUB
Source
1 PACKAGE BODY OKL_INS_QUOTE_PUB AS
2 /* $Header: OKLPINQB.pls 120.4 2005/09/19 11:36:22 pagarg noship $ */
3
4 L_MODULE FND_LOG_MESSAGES.MODULE%TYPE;
5 L_DEBUG_ENABLED VARCHAR2(10);
6 IS_DEBUG_PROCEDURE_ON BOOLEAN;
7 IS_DEBUG_STATEMENT_ON BOOLEAN;
8
9 ----------------------------------------------------
10 --- Save Quote
11 ----------------------------------------------------
12 PROCEDURE save_quote(
13 p_api_version IN NUMBER,
14 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
15 x_return_status OUT NOCOPY VARCHAR2,
16 x_msg_count OUT NOCOPY NUMBER,
17 x_msg_data OUT NOCOPY VARCHAR2,
18 px_ipyv_rec IN OUT NOCOPY ipyv_rec_type,
19 x_message OUT NOCOPY VARCHAR2 )IS
20 l_api_version NUMBER ;
21 l_init_msg_list VARCHAR2(1) ;
22 l_return_status VARCHAR2(1);
23 l_msg_count NUMBER ;
24 l_msg_data VARCHAR2(2000);
25 l_ipyv_rec ipyv_rec_type;
26 l_iasset_tbl iasset_tbl_type;
27 l_message VARCHAR2(2000);
28 BEGIN
29 SAVEPOINT ins_save_quote;
30 l_api_version := p_api_version ;
31 l_init_msg_list := p_init_msg_list ;
32 l_return_status := x_return_status ;
33 l_msg_count := x_msg_count ;
34 l_msg_data := x_msg_data ;
35 l_ipyv_rec := px_ipyv_rec;
36 Okl_Ins_Quote_Pvt.save_quote(
37 l_api_version ,
38 l_init_msg_list ,
39 l_return_status ,
40 l_msg_count ,
41 l_msg_data ,
42 l_ipyv_rec ,
43 x_message
44 );
45 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
46 RAISE FND_API.G_EXC_ERROR;
47 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
48 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
49 END IF;
50 --Assign value to OUT variables
51 x_return_status := l_return_status ;
52 x_msg_count := l_msg_count ;
53 x_msg_data := l_msg_data ;
54 px_ipyv_rec := l_ipyv_rec ;
55 EXCEPTION
56 WHEN FND_API.G_EXC_ERROR THEN
57 ROLLBACK TO ins_save_quote;
58 x_return_status := FND_API.G_RET_STS_ERROR;
59 x_msg_count := l_msg_count ;
60 x_msg_data := l_msg_data ;
61 FND_MSG_PUB.count_and_get(
62 p_count => x_msg_count
63 ,p_data => x_msg_data);
64 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
65 ROLLBACK TO ins_save_quote;
66 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
67 x_msg_count := l_msg_count ;
68 x_msg_data := l_msg_data ;
69 FND_MSG_PUB.count_and_get(
70 p_count => x_msg_count
71 ,p_data => x_msg_data);
72 WHEN OTHERS THEN
73 ROLLBACK TO ins_save_quote;
74 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
75 x_msg_count := l_msg_count ;
76 x_msg_data := l_msg_data ;
77 FND_MSG_PUB.ADD_EXC_MSG('OKL_INS_QUOTE_PUB','save_quote');
78 FND_MSG_PUB.count_and_get(
79 p_count => x_msg_count
80 ,p_data => x_msg_data);
81 END save_quote ;
82
83 ----------------------------------------------------
84 --- Save Accept Quote
85 ----------------------------------------------------
86 PROCEDURE save_accept_quote(
87 p_api_version IN NUMBER,
88 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
89 x_return_status OUT NOCOPY VARCHAR2,
90 x_msg_count OUT NOCOPY NUMBER,
91 x_msg_data OUT NOCOPY VARCHAR2,
92 p_ipyv_rec IN ipyv_rec_type,
93 x_message OUT NOCOPY VARCHAR2 ) IS
94 l_api_version NUMBER ;
95 l_init_msg_list VARCHAR2(1) ;
96 l_return_status VARCHAR2(1);
97 l_msg_count NUMBER ;
98 l_msg_data VARCHAR2(2000);
99 l_ipyv_rec ipyv_rec_type;
100 l_message VARCHAR2(2000);
101 BEGIN
102 SAVEPOINT ins_save_accept_quote;
103 l_api_version := p_api_version ;
104 l_init_msg_list := p_init_msg_list ;
105 l_return_status := x_return_status ;
106 l_msg_count := x_msg_count ;
107 l_msg_data := x_msg_data ;
108 l_ipyv_rec := p_ipyv_rec;
109 Okl_Ins_Quote_Pvt.save_accept_quote(
110 l_api_version ,
111 l_init_msg_list ,
112 l_return_status ,
113 l_msg_count ,
114 l_msg_data ,
115 l_ipyv_rec ,
116 x_message
117 );
118 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
119 RAISE FND_API.G_EXC_ERROR;
120 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
121 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
122 END IF;
123 --Assign value to OUT variables
124 x_return_status := l_return_status ;
125 x_msg_count := l_msg_count ;
126 x_msg_data := l_msg_data ;
127 EXCEPTION
128 WHEN FND_API.G_EXC_ERROR THEN
129 ROLLBACK TO ins_save_accept_quote;
130 x_return_status := FND_API.G_RET_STS_ERROR;
131 x_msg_count := l_msg_count ;
132 x_msg_data := l_msg_data ;
133 FND_MSG_PUB.count_and_get(
134 p_count => x_msg_count
135 ,p_data => x_msg_data);
136 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
137 ROLLBACK TO ins_save_accept_quote;
138 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
139 x_msg_count := l_msg_count ;
140 x_msg_data := l_msg_data ;
141 FND_MSG_PUB.count_and_get(
142 p_count => x_msg_count
143 ,p_data => x_msg_data);
144 WHEN OTHERS THEN
145 ROLLBACK TO ins_save_accept_quote;
146 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
147 x_msg_count := l_msg_count ;
148 x_msg_data := l_msg_data ;
149 FND_MSG_PUB.ADD_EXC_MSG('OKL_INS_QUOTE_PUB','save_accept_quote');
150 FND_MSG_PUB.count_and_get(
151 p_count => x_msg_count
152 ,p_data => x_msg_data);
153 END save_accept_quote ;
154
155 ----------------------------------------------------
156 --- Accept Quote
157 ----------------------------------------------------
158 PROCEDURE accept_quote(
159 p_api_version IN NUMBER,
160 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
161 x_return_status OUT NOCOPY VARCHAR2,
162 x_msg_count OUT NOCOPY NUMBER,
163 x_msg_data OUT NOCOPY VARCHAR2,
164 p_quote_id IN NUMBER ) IS
165 l_api_version NUMBER ;
166 l_init_msg_list VARCHAR2(1) ;
167 l_return_status VARCHAR2(1);
168 l_msg_count NUMBER ;
169 l_msg_data VARCHAR2(2000);
170 l_quote_id NUMBER ;
171 BEGIN
172 SAVEPOINT ins_accept_quote;
173 l_api_version := p_api_version ;
174 l_init_msg_list := p_init_msg_list ;
175 l_return_status := x_return_status ;
176 l_msg_count := x_msg_count ;
177 l_msg_data := x_msg_data ;
178 l_quote_id := p_quote_id;
179 Okl_Ins_Quote_Pvt.accept_quote(
180 l_api_version
181 ,l_init_msg_list
182 ,l_return_status
183 ,l_msg_count
184 ,l_msg_data,
185 l_quote_id);
186 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
187 RAISE FND_API.G_EXC_ERROR;
188 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
189 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
190 END IF;
191 --Assign value to OUT variables
192 x_return_status := l_return_status ;
193 x_msg_count := l_msg_count ;
194 x_msg_data := l_msg_data ;
195 EXCEPTION
196 WHEN FND_API.G_EXC_ERROR THEN
197 ROLLBACK TO ins_accept_quote;
198 x_return_status := FND_API.G_RET_STS_ERROR;
199 x_msg_count := l_msg_count ;
200 x_msg_data := l_msg_data ;
201 FND_MSG_PUB.count_and_get(
202 p_count => x_msg_count
203 ,p_data => x_msg_data);
204 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
205 ROLLBACK TO ins_accept_quote;
206 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
207 x_msg_count := l_msg_count ;
208 x_msg_data := l_msg_data ;
209 FND_MSG_PUB.count_and_get(
210 p_count => x_msg_count
211 ,p_data => x_msg_data);
212 WHEN OTHERS THEN
213 ROLLBACK TO ins_accept_quote;
214 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
215 x_msg_count := l_msg_count ;
216 x_msg_data := l_msg_data ;
217 FND_MSG_PUB.ADD_EXC_MSG('OKL_INS_QUOTE_PUB','accept_quote');
218 FND_MSG_PUB.count_and_get(
219 p_count => x_msg_count
220 ,p_data => x_msg_data);
221 END accept_quote;
222
223 ----------------------------------------------------
224 --- Create Insurance Stream
225 ----------------------------------------------------
226 PROCEDURE create_ins_streams(
227 p_api_version IN NUMBER,
228 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
229 x_return_status OUT NOCOPY VARCHAR2,
230 x_msg_count OUT NOCOPY NUMBER,
231 x_msg_data OUT NOCOPY VARCHAR2,
232 p_ipyv_rec IN ipyv_rec_type
233 ) IS
234 l_api_version NUMBER ;
235 l_init_msg_list VARCHAR2(1) ;
236 l_return_status VARCHAR2(1);
237 l_msg_count NUMBER ;
238 l_msg_data VARCHAR2(2000);
239 l_ipyv_rec ipyv_rec_type;
240 BEGIN
241 SAVEPOINT ins_create_ins_streams;
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 l_ipyv_rec := p_ipyv_rec;
248 Okl_Ins_Quote_Pvt.create_ins_streams(
249 l_api_version ,
250 l_init_msg_list ,
251 l_return_status ,
252 l_msg_count ,
253 l_msg_data ,
254 l_ipyv_rec
255 );
256
257 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
258 RAISE FND_API.G_EXC_ERROR;
259 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
260 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
261 END IF;
262 --Assign value to OUT variables
263 x_return_status := l_return_status ;
264 x_msg_count := l_msg_count ;
265 x_msg_data := l_msg_data ;
266 EXCEPTION
267 WHEN FND_API.G_EXC_ERROR THEN
268 ROLLBACK TO ins_create_ins_streams;
269 x_return_status := FND_API.G_RET_STS_ERROR;
270 x_msg_count := l_msg_count ;
271 x_msg_data := l_msg_data ;
272 FND_MSG_PUB.count_and_get(
273 p_count => x_msg_count
274 ,p_data => x_msg_data);
275 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
276 ROLLBACK TO ins_create_ins_streams;
277 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
278 x_msg_count := l_msg_count ;
279 x_msg_data := l_msg_data ;
280 FND_MSG_PUB.count_and_get(
281 p_count => x_msg_count
282 ,p_data => x_msg_data);
283 WHEN OTHERS THEN
284 ROLLBACK TO ins_create_ins_streams;
285 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
286 x_msg_count := l_msg_count ;
287 x_msg_data := l_msg_data ;
288 FND_MSG_PUB.ADD_EXC_MSG('OKL_INS_QUOTE_PUB','create_ins_streams');
289 FND_MSG_PUB.count_and_get(
290 p_count => x_msg_count
291 ,p_data => x_msg_data);
292 END create_ins_streams ;
293
294 ----------------------------------------------------
295 --- calculate lease premium
296 ----------------------------------------------------
297 PROCEDURE calc_lease_premium(
298 p_api_version IN NUMBER,
299 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
300 x_return_status OUT NOCOPY VARCHAR2,
301 x_msg_count OUT NOCOPY NUMBER,
302 x_msg_data OUT NOCOPY VARCHAR2,
303 px_ipyv_rec IN OUT NOCOPY ipyv_rec_type,
304 x_message OUT NOCOPY VARCHAR2,
305 x_iasset_tbl OUT NOCOPY iasset_tbl_type
306 )IS
307 l_api_version NUMBER ;
308 l_init_msg_list VARCHAR2(1) ;
309 l_return_status VARCHAR2(1);
310 l_msg_count NUMBER ;
311 l_msg_data VARCHAR2(2000);
312 l_ipyv_rec ipyv_rec_type;
313 l_iasset_tbl iasset_tbl_type;
314 l_message VARCHAR2(2000);
315 BEGIN
316 SAVEPOINT ins_calc_lease_premium;
317 l_api_version := p_api_version ;
318 l_init_msg_list := p_init_msg_list ;
319 l_return_status := x_return_status ;
320 l_msg_count := x_msg_count ;
321 l_msg_data := x_msg_data ;
322 l_ipyv_rec := px_ipyv_rec;
323 Okl_Ins_Quote_Pvt.CALC_LEASE_PREMIUM(
324 l_api_version ,
325 l_init_msg_list ,
326 l_return_status ,
327 l_msg_count ,
328 l_msg_data ,
329 l_ipyv_rec ,
330 x_message ,
331 x_iasset_tbl );
332 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
333 RAISE FND_API.G_EXC_ERROR;
334 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
335 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
336 END IF;
337 --Assign value to OUT variables
338 x_return_status := l_return_status ;
339 x_msg_count := l_msg_count ;
340 x_msg_data := l_msg_data ;
341 px_ipyv_rec := l_ipyv_rec ;
342 EXCEPTION
343 WHEN FND_API.G_EXC_ERROR THEN
344 ROLLBACK TO ins_calc_lease_premium;
345 x_return_status := FND_API.G_RET_STS_ERROR;
346 x_msg_count := l_msg_count ;
347 x_msg_data := l_msg_data ;
348 FND_MSG_PUB.count_and_get(
349 p_count => x_msg_count
350 ,p_data => x_msg_data);
351 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
352 ROLLBACK TO ins_calc_lease_premium;
353 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
354 x_msg_count := l_msg_count ;
355 x_msg_data := l_msg_data ;
356 FND_MSG_PUB.count_and_get(
357 p_count => x_msg_count
358 ,p_data => x_msg_data);
359 WHEN OTHERS THEN
360 ROLLBACK TO ins_calc_lease_premium;
361 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
362 x_msg_count := l_msg_count ;
363 x_msg_data := l_msg_data ;
364 FND_MSG_PUB.ADD_EXC_MSG('OKL_INS_QUOTE_PUB','calc_lease_premium');
365 FND_MSG_PUB.count_and_get(
366 p_count => x_msg_count
367 ,p_data => x_msg_data);
368 END calc_lease_premium ;
369
370 ----------------------------------------------------
371 --- activate_ins_stream for policy
372 ----------------------------------------------------
373 PROCEDURE activate_ins_stream(
374 p_api_version IN NUMBER,
375 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
376 x_return_status OUT NOCOPY VARCHAR2,
377 x_msg_count OUT NOCOPY NUMBER,
378 x_msg_data OUT NOCOPY VARCHAR2,
379 p_ipyv_rec IN ipyv_rec_type
380 ) IS
381
382 l_api_version NUMBER ;
383 l_init_msg_list VARCHAR2(1) ;
384 l_return_status VARCHAR2(1);
385 l_msg_count NUMBER ;
386 l_msg_data VARCHAR2(2000);
387 l_ipyv_rec ipyv_rec_type;
388 BEGIN
389 SAVEPOINT ins_activate_ins_stream;
390 l_api_version := p_api_version ;
391 l_init_msg_list := p_init_msg_list ;
392 l_return_status := x_return_status ;
393 l_msg_count := x_msg_count ;
394 l_msg_data := x_msg_data ;
395 l_ipyv_rec := p_ipyv_rec;
396 Okl_Ins_Quote_Pvt.activate_ins_stream(
397 l_api_version ,
398 l_init_msg_list ,
399 l_return_status ,
400 l_msg_count ,
401 l_msg_data ,
402 l_ipyv_rec
403 );
404
405 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
406 RAISE FND_API.G_EXC_ERROR;
407 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
408 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
409 END IF;
410 --Assign value to OUT variables
411 x_return_status := l_return_status ;
412 x_msg_count := l_msg_count ;
413 x_msg_data := l_msg_data ;
414 EXCEPTION
415 WHEN FND_API.G_EXC_ERROR THEN
416 ROLLBACK TO ins_activate_ins_stream;
417 x_return_status := FND_API.G_RET_STS_ERROR;
418 x_msg_count := l_msg_count ;
419 x_msg_data := l_msg_data ;
420 FND_MSG_PUB.count_and_get(
421 p_count => x_msg_count
422 ,p_data => x_msg_data);
423 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
424 ROLLBACK TO ins_activate_ins_stream;
425 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
426 x_msg_count := l_msg_count ;
427 x_msg_data := l_msg_data ;
428 FND_MSG_PUB.count_and_get(
429 p_count => x_msg_count
430 ,p_data => x_msg_data);
431 WHEN OTHERS THEN
432 ROLLBACK TO ins_activate_ins_stream;
433 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
434 x_msg_count := l_msg_count ;
435 x_msg_data := l_msg_data ;
436 FND_MSG_PUB.ADD_EXC_MSG('OKL_INS_QUOTE_PUB','activate_ins_stream');
437 FND_MSG_PUB.count_and_get(
438 p_count => x_msg_count
439 ,p_data => x_msg_data);
440 END activate_ins_stream;
441
442 ----------------------------------------------------
443 --- activate_ins_stream for backgroud process
444 ----------------------------------------------------
445 PROCEDURE activate_ins_streams(
446 errbuf OUT NOCOPY VARCHAR2,
447 retcode OUT NOCOPY NUMBER
448 )IS
449 BEGIN
450 NULL;
451 END activate_ins_streams;
452
453 ----------------------------------------------------
454 --- activate_ins_stream for contract
455 ----------------------------------------------------
456 PROCEDURE activate_ins_streams(
457 p_api_version IN NUMBER,
458 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
459 x_return_status OUT NOCOPY VARCHAR2,
460 x_msg_count OUT NOCOPY NUMBER,
461 x_msg_data OUT NOCOPY VARCHAR2,
462 p_contract_id IN NUMBER
463 )IS
464 l_api_version NUMBER ;
465 l_init_msg_list VARCHAR2(1) ;
466 l_return_status VARCHAR2(1);
467 l_msg_count NUMBER ;
468 l_msg_data VARCHAR2(2000);
469 l_contract_id NUMBER ;
470 BEGIN
471 SAVEPOINT activate_ins_streams;
472 l_api_version := p_api_version ;
473 l_init_msg_list := p_init_msg_list ;
474 l_return_status := x_return_status ;
475 l_msg_count := x_msg_count ;
476 l_msg_data := x_msg_data ;
477 l_contract_id := p_contract_id;
478 Okl_Ins_Quote_Pvt.activate_ins_streams(
479 l_api_version
480 ,l_init_msg_list
481 ,l_return_status
482 ,l_msg_count
483 ,l_msg_data
484 ,l_contract_id) ;
485 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
486 RAISE FND_API.G_EXC_ERROR;
487 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
488 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
489 END IF;
490 --Assign value to OUT variables
491 x_return_status := l_return_status ;
492 x_msg_count := l_msg_count ;
493 x_msg_data := l_msg_data ;
494 EXCEPTION
495 WHEN FND_API.G_EXC_ERROR THEN
496 ROLLBACK TO activate_ins_streams;
497 x_return_status := FND_API.G_RET_STS_ERROR;
498 x_msg_count := l_msg_count ;
499 x_msg_data := l_msg_data ;
500 FND_MSG_PUB.count_and_get(
501 p_count => x_msg_count
502 ,p_data => x_msg_data);
503 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
504 ROLLBACK TO activate_ins_streams;
505 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
506 x_msg_count := l_msg_count ;
507 x_msg_data := l_msg_data ;
508 FND_MSG_PUB.count_and_get(
509 p_count => x_msg_count
510 ,p_data => x_msg_data);
511 WHEN OTHERS THEN
512 ROLLBACK TO activate_ins_streams;
513 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
514 x_msg_count := l_msg_count ;
515 x_msg_data := l_msg_data ;
516 FND_MSG_PUB.ADD_EXC_MSG('OKL_INS_QUOTE_PUB','activate_ins_streams');
517 FND_MSG_PUB.count_and_get(
518 p_count => x_msg_count
519 ,p_data => x_msg_data);
520 END activate_ins_streams;
521
522 ----------------------------------------------------
523 --- activate insurance policy
524 ----------------------------------------------------
525 PROCEDURE activate_ins_policy(
526 p_api_version IN NUMBER,
527 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
528 x_return_status OUT NOCOPY VARCHAR2,
529 x_msg_count OUT NOCOPY NUMBER,
530 x_msg_data OUT NOCOPY VARCHAR2,
531 p_ins_policy_id IN NUMBER ) IS
532 l_api_version NUMBER ;
533 l_init_msg_list VARCHAR2(1) ;
534 l_return_status VARCHAR2(1);
535 l_msg_count NUMBER ;
536 l_msg_data VARCHAR2(2000);
537 l_ins_policy_id NUMBER ;
538 BEGIN
539 SAVEPOINT activate_ins_policy;
540 l_api_version := p_api_version ;
541 l_init_msg_list := p_init_msg_list ;
542 l_return_status := x_return_status ;
543 l_msg_count := x_msg_count ;
544 l_msg_data := x_msg_data ;
545 l_ins_policy_id := p_ins_policy_id;
546 Okl_Ins_Quote_Pvt.activate_ins_policy(
547 l_api_version
548 ,l_init_msg_list
549 ,l_return_status
550 ,l_msg_count
551 ,l_msg_data
552 ,l_ins_policy_id) ;
553 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
554 RAISE FND_API.G_EXC_ERROR;
555 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
556 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
557 END IF;
558 --Assign value to OUT variables
559 x_return_status := l_return_status ;
560 x_msg_count := l_msg_count ;
561 x_msg_data := l_msg_data ;
562 EXCEPTION
563 WHEN FND_API.G_EXC_ERROR THEN
564 ROLLBACK TO activate_ins_policy;
565 x_return_status := FND_API.G_RET_STS_ERROR;
566 x_msg_count := l_msg_count ;
567 x_msg_data := l_msg_data ;
568 FND_MSG_PUB.count_and_get(
569 p_count => x_msg_count
570 ,p_data => x_msg_data);
571 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
572 ROLLBACK TO activate_ins_policy;
573 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
574 x_msg_count := l_msg_count ;
575 x_msg_data := l_msg_data ;
576 FND_MSG_PUB.count_and_get(
577 p_count => x_msg_count
578 ,p_data => x_msg_data);
579 WHEN OTHERS THEN
580 ROLLBACK TO activate_ins_policy;
581 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
582 x_msg_count := l_msg_count ;
583 x_msg_data := l_msg_data ;
584 FND_MSG_PUB.ADD_EXC_MSG('OKL_INS_QUOTE_PUB','activate_ins_policy');
585 FND_MSG_PUB.count_and_get(
586 p_count => x_msg_count
587 ,p_data => x_msg_data);
588 END activate_ins_policy;
589
590 ----------------------------------------------------
591 --- calculate optional premium
592 ----------------------------------------------------
593 PROCEDURE calc_optional_premium(
594 p_api_version IN NUMBER,
595 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
596 x_return_status OUT NOCOPY VARCHAR2,
597 x_msg_count OUT NOCOPY NUMBER,
598 x_msg_data OUT NOCOPY VARCHAR2,
599 p_ipyv_rec IN ipyv_rec_type,
600 x_message OUT NOCOPY VARCHAR2,
601 x_ipyv_rec OUT NOCOPY ipyv_rec_type
602 )IS
603 l_api_version NUMBER ;
604 l_init_msg_list VARCHAR2(1) ;
605 l_return_status VARCHAR2(1);
606 l_msg_count NUMBER ;
607 l_msg_data VARCHAR2(2000);
608 l_ipyv_rec ipyv_rec_type;
609 lx_ipyv_rec ipyv_rec_type;
610 l_message VARCHAR2(2000);
611 BEGIN
612 SAVEPOINT ins_calc_optional_premium;
613 l_api_version := p_api_version ;
614 l_init_msg_list := p_init_msg_list ;
615 l_return_status := x_return_status ;
616 l_msg_count := x_msg_count ;
617 l_msg_data := x_msg_data ;
618 l_ipyv_rec := p_ipyv_rec;
619
620 Okl_Ins_Quote_Pvt.CALC_optional_PREMIUM(
621 l_api_version ,
622 l_init_msg_list ,
623 l_return_status ,
624 l_msg_count ,
625 l_msg_data ,
626 l_ipyv_rec ,
627 x_message ,
628 lx_ipyv_rec );
629 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
630 RAISE FND_API.G_EXC_ERROR;
631 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
632 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
633 END IF;
634 --Assign value to OUT variables
635 x_return_status := l_return_status ;
636 x_msg_count := l_msg_count ;
637 x_msg_data := l_msg_data ;
638 x_ipyv_rec := lx_ipyv_rec ;
639 EXCEPTION
640 WHEN FND_API.G_EXC_ERROR THEN
641 ROLLBACK TO ins_calc_optional_premium;
642 x_return_status := FND_API.G_RET_STS_ERROR;
643 x_msg_count := l_msg_count ;
644 x_msg_data := l_msg_data ;
645 FND_MSG_PUB.count_and_get(
646 p_count => x_msg_count
647 ,p_data => x_msg_data);
648 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
649 ROLLBACK TO ins_calc_optional_premium;
650 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
651 x_msg_count := l_msg_count ;
652 x_msg_data := l_msg_data ;
653 FND_MSG_PUB.count_and_get(
654 p_count => x_msg_count
655 ,p_data => x_msg_data);
656 WHEN OTHERS THEN
657 ROLLBACK TO ins_calc_optional_premium;
658 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
659 x_msg_count := l_msg_count ;
660 x_msg_data := l_msg_data ;
661 FND_MSG_PUB.ADD_EXC_MSG('OKL_INS_QUOTE_PUB','calc_optional_premium');
662 FND_MSG_PUB.count_and_get(
663 p_count => x_msg_count
664 ,p_data => x_msg_data);
665 END calc_optional_premium ;
666
667 ---------------------------------------------------------------------------
668 -- Start of comments
669 --skgautam
670 -- Function Name : calc_total_premium
671 --workflow
672 -- Description :Calculates the total premium
673 -- Business Rules :
674 -- Parameters :
675 -- Version : 1.0
676 -- End of Comments
677 ---------------------------------------------------------------------------
678 -- Added as part of fix of bug:3967640
679
680 PROCEDURE calc_total_premium(p_api_version IN NUMBER,
681 p_init_msg_list IN VARCHAR2 ,
682 x_return_status OUT NOCOPY VARCHAR2,
683 x_msg_count OUT NOCOPY NUMBER,
684 x_msg_data OUT NOCOPY VARCHAR2,
685 p_pol_qte_id IN VARCHAR2,
686 x_total_premium OUT NOCOPY NUMBER) IS
687
688 l_api_version NUMBER ;
689 l_init_msg_list VARCHAR2(1) ;
690 l_return_status VARCHAR2(1);
691 l_msg_count NUMBER ;
692 l_msg_data VARCHAR2(2000);
693 l_pol_qte_id VARCHAR2(100);
694 lx_total_premium NUMBER;
695
696 BEGIN
697 SAVEPOINT ins_calc_total_premium;
698 l_api_version := p_api_version ;
699 l_init_msg_list := p_init_msg_list ;
700 l_return_status := x_return_status ;
701 l_msg_count := x_msg_count ;
702 l_msg_data := x_msg_data ;
703 l_pol_qte_id := p_pol_qte_id;
704
705 OKL_INS_QUOTE_PVT.calc_total_premium(l_api_version ,
706 l_init_msg_list ,
707 l_return_status ,
708 l_msg_count ,
709 l_msg_data ,
710 l_pol_qte_id ,
711 lx_total_premium );
712
713 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
714 RAISE FND_API.G_EXC_ERROR;
715 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
716 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
717 END IF;
718 --Assign value to OUT variables
719 x_return_status := l_return_status ;
720 x_msg_count := l_msg_count ;
721 x_msg_data := l_msg_data ;
722 x_total_premium := lx_total_premium;
723 EXCEPTION
724 WHEN FND_API.G_EXC_ERROR THEN
725 ROLLBACK TO ins_calc_total_premium;
726 x_return_status := FND_API.G_RET_STS_ERROR;
727 x_msg_count := l_msg_count ;
728 x_msg_data := l_msg_data ;
729 FND_MSG_PUB.count_and_get(
730 p_count => x_msg_count
731 ,p_data => x_msg_data);
732 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
733 ROLLBACK TO ins_calc_total_premium;
734 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
735 x_msg_count := l_msg_count ;
736 x_msg_data := l_msg_data ;
737 FND_MSG_PUB.count_and_get(
738 p_count => x_msg_count
739 ,p_data => x_msg_data);
740 WHEN OTHERS THEN
741 ROLLBACK TO ins_calc_total_premium;
742 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
743 x_msg_count := l_msg_count ;
744 x_msg_data := l_msg_data ;
745 FND_MSG_PUB.ADD_EXC_MSG('OKL_INS_QUOTE_PUB','calc_total_premium');
746 FND_MSG_PUB.count_and_get(
747 p_count => x_msg_count
748 ,p_data => x_msg_data);
749 END calc_total_premium ;
750 --------------------------
751
752 PROCEDURE create_third_prt_ins(
753 p_api_version IN NUMBER,
754 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
755 x_return_status OUT NOCOPY VARCHAR2,
756 x_msg_count OUT NOCOPY NUMBER,
757 x_msg_data OUT NOCOPY VARCHAR2,
758 p_ipyv_rec IN ipyv_rec_type,
759 x_ipyv_rec OUT NOCOPY ipyv_rec_type
760 )IS
761 l_api_version NUMBER ;
762 l_init_msg_list VARCHAR2(1) ;
763 l_return_status VARCHAR2(1);
764 l_msg_count NUMBER ;
765 l_msg_data VARCHAR2(2000);
766 l_ipyv_rec ipyv_rec_type;
767 lx_ipyv_rec ipyv_rec_type;
768
769 BEGIN
770 SAVEPOINT create_third_prt_ins;
771 l_api_version := p_api_version ;
772 l_init_msg_list := p_init_msg_list ;
773 l_return_status := x_return_status ;
774 l_msg_count := x_msg_count ;
775 l_msg_data := x_msg_data ;
776 l_ipyv_rec := p_ipyv_rec;
777
778 Okl_Ins_Quote_Pvt.create_third_prt_ins(
779 l_api_version ,
780 l_init_msg_list ,
781 l_return_status ,
782 l_msg_count ,
783 l_msg_data ,
784 l_ipyv_rec ,
785 lx_ipyv_rec );
786 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
787 RAISE FND_API.G_EXC_ERROR;
788 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
789 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
790 END IF;
791
792 --Assign value to OUT variables
793 x_return_status := l_return_status ;
794 x_msg_count := l_msg_count ;
795 x_msg_data := l_msg_data ;
796 x_ipyv_rec := lx_ipyv_rec ;
797 EXCEPTION
798 WHEN FND_API.G_EXC_ERROR THEN
799 ROLLBACK TO create_third_prt_ins;
800 x_return_status := FND_API.G_RET_STS_ERROR;
801 x_msg_count := l_msg_count ;
802 x_msg_data := l_msg_data ;
803 FND_MSG_PUB.count_and_get(
804 p_count => x_msg_count
805 ,p_data => x_msg_data);
806 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
807 ROLLBACK TO create_third_prt_ins;
808 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
809 x_msg_count := l_msg_count ;
810 x_msg_data := l_msg_data ;
811 FND_MSG_PUB.count_and_get(
812 p_count => x_msg_count
813 ,p_data => x_msg_data);
814 WHEN OTHERS THEN
815 ROLLBACK TO create_third_prt_ins;
816 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
817 x_msg_count := l_msg_count ;
818 x_msg_data := l_msg_data ;
819 FND_MSG_PUB.ADD_EXC_MSG('OKL_INS_QUOTE_PUB','create_third_prt_ins');
820 FND_MSG_PUB.count_and_get(
821 p_count => x_msg_count
822 ,p_data => x_msg_data);
823 END create_third_prt_ins ;
824 -----------------------------------
825
826 ---------------------------------------------------------------------------
827 -- Start of comments
828 --
829 -- Function Name : crt_lseapp_thrdprt_ins
830 -- Description : Wrapper on Create Third Party Insurance for Lease Application.
831 -- Business Rules :
832 -- Parameters :
833 -- Version : 1.0
834 -- History : 19-Sep-2005:Bug 4567777 PAGARG new procedures for Lease
835 -- Application Functionality.
836 -- End of Comments
837 ---------------------------------------------------------------------------
838 PROCEDURE crt_lseapp_thrdprt_ins(
839 p_api_version IN NUMBER,
840 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
841 x_return_status OUT NOCOPY VARCHAR2,
842 x_msg_count OUT NOCOPY NUMBER,
843 x_msg_data OUT NOCOPY VARCHAR2,
844 p_ipyv_rec IN ipyv_rec_type,
845 x_ipyv_rec OUT NOCOPY ipyv_rec_type)
846 IS
847 -- Variables Declarations
848 l_api_version CONSTANT NUMBER DEFAULT 1.0;
849 l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CRT_LSEAPP_THRDPRT_INS';
850 l_return_status VARCHAR2(1);
851
852 -- Record/Table Type Declarations
853 l_ipyv_rec ipyv_rec_type;
854 lx_ipyv_rec ipyv_rec_type;
855 BEGIN
856 l_return_status := OKL_API.G_RET_STS_SUCCESS;
857 L_MODULE := 'OKL.PLSQL.OKL_INS_QUOTE_PUB.CRT_LSEAPP_THRDPRT_INS';
858
859 -- check for logging on PROCEDURE level
860 L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
861 IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
862 -- check for logging on STATEMENT level
863 IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
864
865 -- call START_ACTIVITY to create savepoint, check compatibility
866 -- and initialize message list
867 l_return_status := OKL_API.START_ACTIVITY(
868 p_api_name => l_api_name
869 ,p_pkg_name => G_PKG_NAME
870 ,p_init_msg_list => p_init_msg_list
871 ,l_api_version => l_api_version
872 ,p_api_version => p_api_version
873 ,p_api_type => G_API_TYPE
874 ,x_return_status => l_return_status);
875
876 -- check if activity started successfully
877 IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
878 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
879 ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
880 RAISE OKL_API.G_EXCEPTION_ERROR;
881 END IF;
882 l_ipyv_rec := p_ipyv_rec;
883
884 IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
885 THEN
886 OKL_DEBUG_PUB.LOG_DEBUG(
887 FND_LOG.LEVEL_PROCEDURE
888 ,L_MODULE
889 ,'begin debug call OKL_INS_QUOTE_PVT.CRT_LSEAPP_THRDPRT_INS');
890 END IF;
891
892 OKL_INS_QUOTE_PVT.crt_lseapp_thrdprt_ins(
893 l_api_version
894 ,OKL_API.G_FALSE
895 ,l_return_status
896 ,x_msg_count
897 ,x_msg_data
898 ,l_ipyv_rec
899 ,lx_ipyv_rec);
900
901 IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
902 THEN
903 OKL_DEBUG_PUB.LOG_DEBUG(
904 FND_LOG.LEVEL_PROCEDURE
905 ,L_MODULE
906 ,'end debug call OKL_INS_QUOTE_PVT.CRT_LSEAPP_THRDPRT_INS');
907 END IF;
908
909 -- write to log
910 IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
911 OKL_DEBUG_PUB.LOG_DEBUG(
912 FND_LOG.LEVEL_STATEMENT
913 ,L_MODULE || ' Result of OKL_INS_QUOTE_PVT.CRT_LSEAPP_THRDPRT_INS'
914 ,'l_return_status ' || l_return_status);
915 END IF; -- end of statement level debug
916
917 IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
918 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
919 ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
920 RAISE OKL_API.G_EXCEPTION_ERROR;
921 END IF;
922
923 --Assign value to OUT variables
924 x_return_status := l_return_status ;
925 x_ipyv_rec := lx_ipyv_rec ;
926 EXCEPTION
927 WHEN OKL_API.G_EXCEPTION_ERROR THEN
928 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
929 p_api_name => l_api_name,
930 p_pkg_name => G_PKG_NAME,
931 p_exc_name => 'OKL_API.G_RET_STS_ERROR',
932 x_msg_count => x_msg_count,
933 x_msg_data => x_msg_data,
934 p_api_type => G_API_TYPE);
935
936 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
937 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
938 p_api_name => l_api_name,
939 p_pkg_name => G_PKG_NAME,
940 p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
941 x_msg_count => x_msg_count,
942 x_msg_data => x_msg_data,
943 p_api_type => G_API_TYPE);
944
945 WHEN OTHERS THEN
946 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
947 p_api_name => l_api_name,
948 p_pkg_name => G_PKG_NAME,
949 p_exc_name => 'OTHERS',
950 x_msg_count => x_msg_count,
951 x_msg_data => x_msg_data,
952 p_api_type => G_API_TYPE);
953 END crt_lseapp_thrdprt_ins;
954
955 ---------------------------------------------------------------------------
956 -- Start of comments
957 --
958 -- Function Name : lseapp_thrdprty_to_ctrct
959 -- Description : Wrapper to attach Third Party Insurance to contract created
960 -- from Lease Application..
961 -- Business Rules :
962 -- Parameters :
963 -- Version : 1.0
964 -- History : 19-Sep-2005:Bug 4567777 PAGARG new procedures for Lease
965 -- Application Functionality.
966 -- End of Comments
967 ---------------------------------------------------------------------------
968 PROCEDURE lseapp_thrdprty_to_ctrct(
969 p_api_version IN NUMBER,
970 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
971 x_return_status OUT NOCOPY VARCHAR2,
972 x_msg_count OUT NOCOPY NUMBER,
973 x_msg_data OUT NOCOPY VARCHAR2,
974 p_lakhr_id IN NUMBER,
975 x_ipyv_rec OUT NOCOPY ipyv_rec_type)
976 IS
977 -- Variables Declarations
978 l_api_version CONSTANT NUMBER DEFAULT 1.0;
979 l_api_name CONSTANT VARCHAR2(30) DEFAULT 'LSEAPP_THRDPRTY_TO_CTRCT';
980 l_return_status VARCHAR2(1);
981
982 -- Record/Table Type Declarations
983 l_lakhr_id NUMBER;
984 lx_ipyv_rec ipyv_rec_type;
985 BEGIN
986 l_return_status := OKL_API.G_RET_STS_SUCCESS;
987 L_MODULE := 'OKL.PLSQL.OKL_INS_QUOTE_PUB.LSEAPP_THRDPRTY_TO_CTRCT';
988
989 -- check for logging on PROCEDURE level
990 L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
991 IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
992 -- check for logging on STATEMENT level
993 IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
994
995 -- call START_ACTIVITY to create savepoint, check compatibility
996 -- and initialize message list
997 l_return_status := OKL_API.START_ACTIVITY(
998 p_api_name => l_api_name
999 ,p_pkg_name => G_PKG_NAME
1000 ,p_init_msg_list => p_init_msg_list
1001 ,l_api_version => l_api_version
1002 ,p_api_version => p_api_version
1003 ,p_api_type => G_API_TYPE
1004 ,x_return_status => l_return_status);
1005
1006 -- check if activity started successfully
1007 IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1008 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1009 ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1010 RAISE OKL_API.G_EXCEPTION_ERROR;
1011 END IF;
1012 l_lakhr_id := p_lakhr_id;
1013
1014 IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
1015 THEN
1016 OKL_DEBUG_PUB.LOG_DEBUG(
1017 FND_LOG.LEVEL_PROCEDURE
1018 ,L_MODULE
1019 ,'begin debug call OKL_INS_QUOTE_PVT.LSEAPP_THRDPRTY_TO_CTRCT');
1020 END IF;
1021
1022 OKL_INS_QUOTE_PVT.lseapp_thrdprty_to_ctrct(
1023 l_api_version
1024 ,OKL_API.G_FALSE
1025 ,l_return_status
1026 ,x_msg_count
1027 ,x_msg_data
1028 ,l_lakhr_id
1029 ,lx_ipyv_rec);
1030
1031 IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
1032 THEN
1033 OKL_DEBUG_PUB.LOG_DEBUG(
1034 FND_LOG.LEVEL_PROCEDURE
1035 ,L_MODULE
1036 ,'end debug call OKL_INS_QUOTE_PVT.LSEAPP_THRDPRTY_TO_CTRCT');
1037 END IF;
1038
1039 -- write to log
1040 IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
1041 OKL_DEBUG_PUB.LOG_DEBUG(
1042 FND_LOG.LEVEL_STATEMENT
1043 ,L_MODULE || ' Result of OKL_INS_QUOTE_PVT.LSEAPP_THRDPRTY_TO_CTRCT'
1044 ,'l_return_status ' || l_return_status);
1045 END IF; -- end of statement level debug
1046
1047 IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1048 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049 ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
1050 RAISE OKL_API.G_EXCEPTION_ERROR;
1051 END IF;
1052
1053 --Assign value to OUT variables
1054 x_return_status := l_return_status ;
1055 x_ipyv_rec := lx_ipyv_rec ;
1056 EXCEPTION
1057 WHEN OKL_API.G_EXCEPTION_ERROR THEN
1058 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1059 p_api_name => l_api_name,
1060 p_pkg_name => G_PKG_NAME,
1061 p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1062 x_msg_count => x_msg_count,
1063 x_msg_data => x_msg_data,
1064 p_api_type => G_API_TYPE);
1065
1066 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1067 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1068 p_api_name => l_api_name,
1069 p_pkg_name => G_PKG_NAME,
1070 p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1071 x_msg_count => x_msg_count,
1072 x_msg_data => x_msg_data,
1073 p_api_type => G_API_TYPE);
1074
1075 WHEN OTHERS THEN
1076 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1077 p_api_name => l_api_name,
1078 p_pkg_name => G_PKG_NAME,
1079 p_exc_name => 'OTHERS',
1080 x_msg_count => x_msg_count,
1081 x_msg_data => x_msg_data,
1082 p_api_type => G_API_TYPE);
1083 END lseapp_thrdprty_to_ctrct;
1084
1085 END OKL_INS_QUOTE_PUB;