[Home] [Help]
PACKAGE BODY: APPS.OKL_INSURANCE_POLICIES_PUB
Source
1 PACKAGE BODY OKL_INSURANCE_POLICIES_PUB AS
2 /* $Header: OKLPIPXB.pls 120.6 2007/09/13 18:35:32 smereddy ship $ */
3 --------------------------------------------------------------------------
4 -- Procedures and Functions
5 ---------------------------------------------------------------------------
6
7 PROCEDURE insert_ap_request(
8 p_api_version IN NUMBER,
9 p_init_msg_list IN VARCHAR2 ,
10 x_return_status OUT NOCOPY VARCHAR2,
11 x_msg_count OUT NOCOPY NUMBER,
12 x_msg_data OUT NOCOPY VARCHAR2,
13 p_tap_id IN NUMBER,
14 p_credit_amount IN NUMBER,
15 p_credit_sty_id IN NUMBER,
16 p_khr_id IN NUMBER ,
17 p_kle_id IN NUMBER,
18 p_invoice_date IN DATE,
19 p_trx_id IN NUMBER,
20 p_vendor_site_id IN NUMBER ,
21 x_request_id OUT NOCOPY NUMBER
22
23 ) IS
24
25 l_api_version NUMBER ;
26
27 l_init_msg_list VARCHAR2(1) ;
28 l_return_status VARCHAR2(1);
29 l_msg_count NUMBER ;
30 l_msg_data VARCHAR2(2000);
31 l_message VARCHAR2(2000);
32 l_tap_id NUMBER;
33 l_credit_amount NUMBER;
34 l_credit_sty_id NUMBER;
35 l_khr_id NUMBER ;
36 l_kle_id NUMBER;
37 l_invoice_date DATE;
38 l_trx_id NUMBER ;
39 l_vendor_site_id NUMBER ;
40 l_request_id NUMBER;
41
42 BEGIN
43 SAVEPOINT insert_ap_request;
44 l_api_version := p_api_version ;
45 l_init_msg_list := p_init_msg_list ;
46 l_return_status := x_return_status ;
47 l_msg_count := x_msg_count ;
48 l_msg_data := x_msg_data ;
49 l_tap_id := p_tap_id ;
50 l_credit_amount := p_credit_amount ;
51 l_credit_sty_id := p_credit_sty_id ;
52 l_khr_id := p_khr_id ;
53 l_kle_id := p_kle_id ;
54 l_invoice_date := p_invoice_date ;
55 l_trx_id := p_trx_id ;
56 l_vendor_site_id := p_vendor_site_id;
57
58
59
60
61 OKL_INSURANCE_POLICIES_Pvt.insert_ap_request(
62 l_api_version ,
63 l_init_msg_list ,
64 l_return_status ,
65 l_msg_count ,
66 l_msg_data ,
67 l_tap_id ,
68 l_credit_amount ,
69 l_credit_sty_id ,
70 l_khr_id ,
71 l_kle_id ,
72 l_invoice_date ,
73 l_trx_id,
74 l_vendor_site_id,
75 l_request_id
76 );
77
78
79 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
80 RAISE FND_API.G_EXC_ERROR;
81 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
82 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
83 END IF;
84 --Assign value to OUT variables
85 x_return_status := l_return_status ;
86 x_msg_count := l_msg_count ;
87 x_msg_data := l_msg_data ;
88 x_request_id :=l_request_id ;
89 EXCEPTION
90 WHEN FND_API.G_EXC_ERROR THEN
91 ROLLBACK TO insert_ap_request;
92 x_return_status := FND_API.G_RET_STS_ERROR;
93 x_msg_count := l_msg_count ;
94 x_msg_data := l_msg_data ;
95 FND_MSG_PUB.count_and_get(
96 p_count => x_msg_count
97 ,p_data => x_msg_data);
98 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
99 ROLLBACK TO insert_ap_request;
100 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
101 x_msg_count := l_msg_count ;
102 x_msg_data := l_msg_data ;
103 FND_MSG_PUB.count_and_get(
104 p_count => x_msg_count
105 ,p_data => x_msg_data);
106 WHEN OTHERS THEN
107 ROLLBACK TO insert_ap_request;
108 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
109 x_msg_count := l_msg_count ;
110 x_msg_data := l_msg_data ;
111 FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME , 'insert_ap_request');
112 FND_MSG_PUB.count_and_get(
113 p_count => x_msg_count
114 ,p_data => x_msg_data);
115 END insert_ap_request;
116
117
118 ---------------------------------------------------------------------------
119 PROCEDURE insert_ap_request(
120 p_api_version IN NUMBER,
121 p_init_msg_list IN VARCHAR2 ,
122 x_return_status OUT NOCOPY VARCHAR2,
123 x_msg_count OUT NOCOPY NUMBER,
124 x_msg_data OUT NOCOPY VARCHAR2,
125 p_tap_id IN NUMBER,
126 p_credit_amount IN NUMBER,
127 p_credit_sty_id IN NUMBER,
128 p_khr_id IN NUMBER ,
129 p_kle_id IN NUMBER,
130 p_invoice_date IN DATE,
131 p_trx_id IN NUMBER
132
133 ) IS
134
135 l_api_version NUMBER ;
136
137 l_init_msg_list VARCHAR2(1) ;
138 l_return_status VARCHAR2(1);
139 l_msg_count NUMBER ;
140 l_msg_data VARCHAR2(2000);
141 l_message VARCHAR2(2000);
142 l_tap_id NUMBER;
143 l_credit_amount NUMBER;
144 l_credit_sty_id NUMBER;
145 l_khr_id NUMBER ;
146 l_kle_id NUMBER;
147 l_invoice_date DATE;
148 l_trx_id NUMBER ;
149
150 BEGIN
151 SAVEPOINT insert_ap_request;
152 l_api_version := p_api_version ;
153 l_init_msg_list := p_init_msg_list ;
154 l_return_status := x_return_status ;
155 l_msg_count := x_msg_count ;
156 l_msg_data := x_msg_data ;
157 l_tap_id := p_tap_id ;
158 l_credit_amount := p_credit_amount ;
159 l_credit_sty_id := p_credit_sty_id ;
160 l_khr_id := p_khr_id ;
161 l_kle_id := p_kle_id ;
162 l_invoice_date := p_invoice_date ;
163 l_trx_id := p_trx_id ;
164
165
166
167 OKL_INSURANCE_POLICIES_Pvt.insert_ap_request(
168 l_api_version ,
169 l_init_msg_list ,
170 l_return_status ,
171 l_msg_count ,
172 l_msg_data ,
173 l_tap_id ,
174 l_credit_amount ,
175 l_credit_sty_id ,
176 l_khr_id ,
177 l_kle_id ,
178 l_invoice_date ,
179 l_trx_id
180 );
181
182
183 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
184 RAISE FND_API.G_EXC_ERROR;
185 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
186 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
187 END IF;
188 --Assign value to OUT variables
189 x_return_status := l_return_status ;
190 x_msg_count := l_msg_count ;
191 x_msg_data := l_msg_data ;
192 EXCEPTION
193 WHEN FND_API.G_EXC_ERROR THEN
194 ROLLBACK TO insert_ap_request;
195 x_return_status := FND_API.G_RET_STS_ERROR;
196 x_msg_count := l_msg_count ;
197 x_msg_data := l_msg_data ;
198 FND_MSG_PUB.count_and_get(
199 p_count => x_msg_count
200 ,p_data => x_msg_data);
201 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
202 ROLLBACK TO insert_ap_request;
203 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
204 x_msg_count := l_msg_count ;
205 x_msg_data := l_msg_data ;
206 FND_MSG_PUB.count_and_get(
207 p_count => x_msg_count
208 ,p_data => x_msg_data);
209 WHEN OTHERS THEN
210 ROLLBACK TO insert_ap_request;
211 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
212 x_msg_count := l_msg_count ;
213 x_msg_data := l_msg_data ;
214 FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME , 'insert_ap_request' );
215 FND_MSG_PUB.count_and_get(
216 p_count => x_msg_count
217 ,p_data => x_msg_data);
218 END insert_ap_request;
219
220
221
222
223 -----------------
224
225
226
227
228
229
230 PROCEDURE cancel_policy(
231 p_api_version IN NUMBER,
232 p_init_msg_list IN VARCHAR2 ,
233 x_return_status OUT NOCOPY VARCHAR2,
234 x_msg_count OUT NOCOPY NUMBER,
235 x_msg_data OUT NOCOPY VARCHAR2,
236 p_ipyv_rec IN ipyv_rec_type,
237 x_ipyv_rec OUT NOCOPY ipyv_rec_type
238 ) IS
239 l_api_version NUMBER ;
240
241 l_init_msg_list VARCHAR2(1) ;
242 l_return_status VARCHAR2(1);
243 l_msg_count NUMBER ;
244 l_msg_data VARCHAR2(2000);
245 l_ipyv_rec ipyv_rec_type;
246 lx_ipyv_rec ipyv_rec_type;
247 l_message VARCHAR2(2000);
248 BEGIN
249 SAVEPOINT ins_cancel_policy;
250 l_api_version := p_api_version ;
251 l_init_msg_list := p_init_msg_list ;
252 l_return_status := x_return_status ;
253 l_msg_count := x_msg_count ;
254 l_msg_data := x_msg_data ;
255 l_ipyv_rec := p_ipyv_rec;
256
257 OKL_INSURANCE_POLICIES_Pvt.cancel_policy(
258 l_api_version ,
259 l_init_msg_list ,
260 l_return_status ,
261 l_msg_count ,
262 l_msg_data ,
263 l_ipyv_rec ,
264 lx_ipyv_rec );
265 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
266 RAISE FND_API.G_EXC_ERROR;
267 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
268 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
269 END IF;
270 --Assign value to OUT variables
271 x_return_status := l_return_status ;
272 x_msg_count := l_msg_count ;
273 x_msg_data := l_msg_data ;
274 x_ipyv_rec := lx_ipyv_rec ;
275 EXCEPTION
276 WHEN FND_API.G_EXC_ERROR THEN
277 ROLLBACK TO ins_cancel_policy;
278 x_return_status := FND_API.G_RET_STS_ERROR;
279 x_msg_count := l_msg_count ;
280 x_msg_data := l_msg_data ;
281 FND_MSG_PUB.count_and_get(
282 p_count => x_msg_count
283 ,p_data => x_msg_data);
284 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
285 ROLLBACK TO ins_cancel_policy;
286 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
287 x_msg_count := l_msg_count ;
288 x_msg_data := l_msg_data ;
289 FND_MSG_PUB.count_and_get(
290 p_count => x_msg_count
291 ,p_data => x_msg_data);
292 WHEN OTHERS THEN
293 ROLLBACK TO ins_cancel_policy;
294 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
295 x_msg_count := l_msg_count ;
296 x_msg_data := l_msg_data ;
297 FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME , 'cancel_policy' );
298 FND_MSG_PUB.count_and_get(
299 p_count => x_msg_count
300 ,p_data => x_msg_data);
301 END cancel_policy;
302
303 PROCEDURE delete_policy(
304 p_api_version IN NUMBER,
305 p_init_msg_list IN VARCHAR2 ,
306 x_return_status OUT NOCOPY VARCHAR2,
307 x_msg_count OUT NOCOPY NUMBER,
308 x_msg_data OUT NOCOPY VARCHAR2,
309 p_ipyv_rec IN ipyv_rec_type,
310 x_ipyv_rec OUT NOCOPY ipyv_rec_type
311 )IS
312 l_api_version NUMBER ;
313
314 l_init_msg_list VARCHAR2(1) ;
315 l_return_status VARCHAR2(1);
316 l_msg_count NUMBER ;
317 l_msg_data VARCHAR2(2000);
318 l_ipyv_rec ipyv_rec_type;
319 lx_ipyv_rec ipyv_rec_type;
320 l_message VARCHAR2(2000);
321 BEGIN
322 SAVEPOINT ins_delete_policy;
323 l_api_version := p_api_version ;
324 l_init_msg_list := p_init_msg_list ;
325 l_return_status := x_return_status ;
326 l_msg_count := x_msg_count ;
327 l_msg_data := x_msg_data ;
328 l_ipyv_rec := p_ipyv_rec;
329
330
331 OKL_INSURANCE_POLICIES_Pvt.delete_policy(
332 l_api_version ,
333 l_init_msg_list ,
334 l_return_status ,
335 l_msg_count ,
336 l_msg_data ,
337 l_ipyv_rec ,
338 lx_ipyv_rec );
339 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
340 RAISE FND_API.G_EXC_ERROR;
341 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
342 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
343 END IF;
344 --Assign value to OUT variables
345 x_return_status := l_return_status ;
346 x_msg_count := l_msg_count ;
347 x_msg_data := l_msg_data ;
348 x_ipyv_rec := lx_ipyv_rec ;
349 EXCEPTION
350 WHEN FND_API.G_EXC_ERROR THEN
351 ROLLBACK TO ins_delete_policy;
352 x_return_status := FND_API.G_RET_STS_ERROR;
353 x_msg_count := l_msg_count ;
354 x_msg_data := l_msg_data ;
355 FND_MSG_PUB.count_and_get(
356 p_count => x_msg_count
357 ,p_data => x_msg_data);
358 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
359 ROLLBACK TO ins_delete_policy;
360 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
361 x_msg_count := l_msg_count ;
362 x_msg_data := l_msg_data ;
363 FND_MSG_PUB.count_and_get(
364 p_count => x_msg_count
365 ,p_data => x_msg_data);
366 WHEN OTHERS THEN
367 ROLLBACK TO ins_delete_policy;
368 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
369 x_msg_count := l_msg_count ;
370 x_msg_data := l_msg_data ;
371 FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME , 'delete_policy' );
372 FND_MSG_PUB.count_and_get(
373 p_count => x_msg_count
374 ,p_data => x_msg_data);
375 END delete_policy;
376
377 --Bug#5955320
378 PROCEDURE cancel_create_policies(
379 p_api_version IN NUMBER,
380 p_init_msg_list IN VARCHAR2 ,
381 x_return_status OUT NOCOPY VARCHAR2,
382 x_msg_count OUT NOCOPY NUMBER,
383 x_msg_data OUT NOCOPY VARCHAR2,
384 p_khr_id IN NUMBER,
385 p_cancellation_date IN DATE,
386 p_crx_code IN VARCHAR2 DEFAULT null, --++++++++ Effective Dated Term Qte changes +++++++++
387 p_transaction_id IN NUMBER
388 ) IS
389 l_api_name CONSTANT VARCHAR2(30) := 'cancel_create_policies';
390 l_api_version NUMBER ;
391 l_init_msg_list VARCHAR2(1) ;
392 l_msg_count NUMBER ;
393 l_msg_data VARCHAR2(2000);
394 --l_api_version CONSTANT NUMBER := 1;
395 l_return_status VARCHAR2(1) ;
396 l_khr_id number;
397 l_cancellation_date DATE ;
398 l_crx_code VARCHAR2(30) ;
399 l_ignore_flag VARCHAR2(1); -- 3945995
400 l_transaction_id NUMBER;
401 BEGIN
402
403
404 SAVEPOINT ins_cancel_policies;
405 l_api_version := p_api_version ;
406 l_init_msg_list := p_init_msg_list ;
407 l_return_status := x_return_status ;
408 l_msg_count := x_msg_count ;
409 l_msg_data := x_msg_data ;
410 l_khr_id := p_khr_id;
411 l_cancellation_date := p_cancellation_date;
412 l_crx_code := p_crx_code; --Effective Dated Term Change ++--
413 l_transaction_id := p_transaction_id;
414
415 OKL_INSURANCE_POLICIES_PVT.cancel_create_policies(
416 l_api_version ,
417 l_init_msg_list ,
418 l_return_status ,
419 l_msg_count ,
420 l_msg_data ,
421 l_khr_id ,
422 l_cancellation_date ,
423 l_crx_code, --+++ Eff Quote Date Modification +++----
424 l_transaction_id,
425 l_ignore_flag); -- 3945995
426
427 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
428 RAISE FND_API.G_EXC_ERROR;
429 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
430 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
431 END IF;
432 --Assign value to OUT variables
433
434 x_return_status := l_return_status ;
435 x_msg_count := l_msg_count ;
436 x_msg_data := l_msg_data ;
437
438 EXCEPTION
439 WHEN FND_API.G_EXC_ERROR THEN
440 ROLLBACK TO ins_cancel_policies;
441 x_return_status := FND_API.G_RET_STS_ERROR;
442 x_msg_count := l_msg_count ;
443 x_msg_data := l_msg_data ;
444 FND_MSG_PUB.count_and_get(
445 p_count => x_msg_count
446 ,p_data => x_msg_data);
447 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
448 ROLLBACK TO ins_cancel_policies;
449 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
450 x_msg_count := l_msg_count ;
451 x_msg_data := l_msg_data ;
452 FND_MSG_PUB.count_and_get(
453 p_count => x_msg_count
454 ,p_data => x_msg_data);
455 WHEN OTHERS THEN
456 ROLLBACK TO ins_cancel_policies;
457 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
458 x_msg_count := l_msg_count ;
459 x_msg_data := l_msg_data ;
460 FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME , l_api_name);
461 FND_MSG_PUB.count_and_get(
462 p_count => x_msg_count
463 ,p_data => x_msg_data);
464
465
466 END cancel_create_policies;
467
468
469
470 PROCEDURE cancel_create_policies(
471 p_api_version IN NUMBER,
472 p_init_msg_list IN VARCHAR2 ,
473 x_return_status OUT NOCOPY VARCHAR2,
474 x_msg_count OUT NOCOPY NUMBER,
475 x_msg_data OUT NOCOPY VARCHAR2,
476 p_khr_id IN NUMBER,
477 p_cancellation_date IN DATE,
478 p_crx_code IN VARCHAR2 DEFAULT NULL,
479 p_transaction_id IN NUMBER,
480 x_ignore_flag OUT NOCOPY VARCHAR2 -- 3945995
481 ) IS
482 l_api_name CONSTANT VARCHAR2(30) := 'cancel_create_policies';
483 l_api_version NUMBER ;
484 l_init_msg_list VARCHAR2(1) ;
485 l_msg_count NUMBER ;
486 l_msg_data VARCHAR2(2000);
487 l_ignore_flag VARCHAR2(1) := Okc_Api.G_TRUE;
488 l_return_status VARCHAR2(1) ;
489 l_khr_id number;
490 l_cancellation_date DATE ;
491 l_crx_code VARCHAR2(30);
492 l_transaction_id NUMBER;
493 BEGIN
494
495
496 SAVEPOINT cancel_create_policies;
497 l_api_version := p_api_version ;
498 l_init_msg_list := p_init_msg_list ;
499 l_return_status := x_return_status ;
500 l_msg_count := x_msg_count ;
501 l_msg_data := x_msg_data ;
502 l_khr_id := p_khr_id;
503 l_cancellation_date := p_cancellation_date;
504 l_crx_code := p_crx_code;
505 l_transaction_id := p_transaction_id;
506
507
508
509
510 OKL_INSURANCE_POLICIES_PVT.cancel_create_policies(
511 l_api_version ,
512 l_init_msg_list ,
513 l_return_status ,
514 l_msg_count ,
515 l_msg_data ,
516 l_khr_id ,
517 l_cancellation_date,
518 l_crx_code,
519 l_transaction_id,
520 l_ignore_flag ); -- 3945995
521
522 x_return_status := l_return_status ;
523 x_msg_count := l_msg_count ;
524 x_msg_data := l_msg_data ;
525 x_ignore_flag := l_ignore_flag ;
526
527 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
528 RAISE FND_API.G_EXC_ERROR;
529 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
530 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
531 END IF;
532
533
534
535 --Assign value to OUT variables
536
537
538
539 EXCEPTION
540 WHEN FND_API.G_EXC_ERROR THEN
541
542
543 IF (x_ignore_flag = Okc_Api.G_TRUE) THEN
544 x_return_status := l_return_status ;
545
546 ELSE
547
548 ROLLBACK TO cancel_create_policies;
549 x_return_status := FND_API.G_RET_STS_ERROR;
550 x_msg_count := l_msg_count ;
551 x_msg_data := l_msg_data ;
552 FND_MSG_PUB.count_and_get(
553 p_count => x_msg_count
554 ,p_data => x_msg_data);
555 END IF;
556
557
558
559 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
560 ROLLBACK TO cancel_create_policies;
561 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
562 x_msg_count := l_msg_count ;
563 x_msg_data := l_msg_data ;
564 FND_MSG_PUB.count_and_get(
565 p_count => x_msg_count
566 ,p_data => x_msg_data);
567 WHEN OTHERS THEN
568 ROLLBACK TO cancel_create_policies;
569 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
570 x_msg_count := l_msg_count ;
571 x_msg_data := l_msg_data ;
572 FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME , l_api_name );
573 FND_MSG_PUB.count_and_get(
574 p_count => x_msg_count
575 ,p_data => x_msg_data);
576
577
578 END cancel_create_policies;
579
580 PROCEDURE cancel_policies(
581 p_api_version IN NUMBER,
582 p_init_msg_list IN VARCHAR2 ,
583 x_return_status OUT NOCOPY VARCHAR2,
584 x_msg_count OUT NOCOPY NUMBER,
585 x_msg_data OUT NOCOPY VARCHAR2,
586 p_contract_id IN NUMBER,
587 p_cancellation_date IN DATE,
588 p_crx_code IN VARCHAR2 DEFAULT NULL ) IS --++++++++ Effective Dated Term Qte changes +++++++++
589
590 l_api_version NUMBER ;
591
592 l_init_msg_list VARCHAR2(1) ;
593 l_return_status VARCHAR2(1);
594 l_msg_count NUMBER ;
595 l_msg_data VARCHAR2(2000);
596 l_contract_id NUMBER;
597 l_cancellation_date DATE ;
598 l_crx_code VARCHAR2(30) ; --Effective Dated Term Change ++---
599
600 BEGIN
601 SAVEPOINT ins_cancel_policies;
602 l_api_version := p_api_version ;
603 l_init_msg_list := p_init_msg_list ;
604 l_return_status := x_return_status ;
605 l_msg_count := x_msg_count ;
606 l_msg_data := x_msg_data ;
607 l_contract_id := p_contract_id;
608 l_cancellation_date := p_cancellation_date ;
609 l_crx_code := p_crx_code ;--Effective Dated Term Change ++---
610
611
612 OKL_INSURANCE_POLICIES_Pvt.cancel_policies(
613 l_api_version ,
614 l_init_msg_list ,
615 l_return_status ,
616 l_msg_count ,
617 l_msg_data ,
618 l_contract_id ,
619 l_cancellation_date ,
620 l_crx_code );--Effective Dated Term Change ++---
621
622 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
623 RAISE FND_API.G_EXC_ERROR;
624 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
625 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
626 END IF;
627 --Assign value to OUT variables
628 x_return_status := l_return_status ;
629 x_msg_count := l_msg_count ;
630 x_msg_data := l_msg_data ;
631
632 EXCEPTION
633 WHEN FND_API.G_EXC_ERROR THEN
634 ROLLBACK TO ins_cancel_policies;
635 x_return_status := FND_API.G_RET_STS_ERROR;
636 x_msg_count := l_msg_count ;
637 x_msg_data := l_msg_data ;
638 FND_MSG_PUB.count_and_get(
639 p_count => x_msg_count
640 ,p_data => x_msg_data);
641 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
642 ROLLBACK TO ins_cancel_policies;
643 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
644 x_msg_count := l_msg_count ;
645 x_msg_data := l_msg_data ;
646 FND_MSG_PUB.count_and_get(
647 p_count => x_msg_count
648 ,p_data => x_msg_data);
649 WHEN OTHERS THEN
650 ROLLBACK TO ins_cancel_policies;
651 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
652 x_msg_count := l_msg_count ;
653 x_msg_data := l_msg_data ;
654 FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME , 'cancel_policies' );
655 FND_MSG_PUB.count_and_get(
656 p_count => x_msg_count
657 ,p_data => x_msg_data);
658 END cancel_policies;
659
660 --+++++++++++++ Effective Dated Term Qte changes -- start +++++++++
661 PROCEDURE check_claims(
662 p_api_version IN NUMBER,
663 p_init_msg_list IN VARCHAR2 ,
664 x_return_status OUT NOCOPY VARCHAR2,
665 x_msg_count OUT NOCOPY NUMBER,
666 x_msg_data OUT NOCOPY VARCHAR2,
667 x_clm_exist OUT NOCOPY VARCHAR2,
668 p_khr_id IN NUMBER,
669 p_trx_date IN DATE
670 ) IS
671 l_api_name CONSTANT VARCHAR2(30) := 'check_claims';
672 l_api_version NUMBER ;
673 l_init_msg_list VARCHAR2(1) ;
674 l_msg_count NUMBER ;
675 l_msg_data VARCHAR2(2000);
676 --l_api_version CONSTANT NUMBER := 1;
677 l_return_status VARCHAR2(1) ;
678 l_clm_exist VARCHAR2(1) ;
679 l_khr_id number;
680 l_trx_date DATE ;
681 BEGIN
682 SAVEPOINT check_claims;
683 l_api_version := p_api_version ;
684 l_init_msg_list := p_init_msg_list ;
685 l_return_status := x_return_status ;
686 l_msg_count := x_msg_count ;
687 l_msg_data := x_msg_data ;
688 l_clm_exist := x_clm_exist ;
689 l_khr_id := p_khr_id;
690 l_trx_date := p_trx_date;
691 OKL_INSURANCE_POLICIES_PVT.check_claims(
692 l_api_version ,
693 l_init_msg_list ,
694 l_return_status ,
695 l_msg_count ,
696 l_msg_data ,
697 l_clm_exist ,
698 l_khr_id ,
699 l_trx_date );
700 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
701 RAISE FND_API.G_EXC_ERROR;
702 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
703 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
704 END IF;
705 x_return_status := l_return_status ;
706 x_msg_count := l_msg_count ;
707 x_msg_data := l_msg_data ;
708 EXCEPTION
709 WHEN FND_API.G_EXC_ERROR THEN
710 ROLLBACK TO check_claims;
711 x_return_status := FND_API.G_RET_STS_ERROR;
712 x_msg_count := l_msg_count ;
713 x_msg_data := l_msg_data ;
714 FND_MSG_PUB.count_and_get(
715 p_count => x_msg_count
716 ,p_data => x_msg_data);
717 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
718 ROLLBACK TO check_Claims;
719 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
720 x_msg_count := l_msg_count ;
721 x_msg_data := l_msg_data ;
722 FND_MSG_PUB.count_and_get(
723 p_count => x_msg_count
724 ,p_data => x_msg_data);
725 WHEN OTHERS THEN
726 ROLLBACK TO check_claims;
727 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
728 x_msg_count := l_msg_count ;
729 x_msg_data := l_msg_data ;
730 FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME , 'check_claims' );
731 FND_MSG_PUB.count_and_get(
732 p_count => x_msg_count
733 ,p_data => x_msg_data);
734 END check_claims;
735 --+++++++++++++ Effective Dated Term Qte changes -- End +++++++++
736
737
738
739 END OKL_INSURANCE_POLICIES_PUB;