37: FETCH chk_uniquness INTO l_refno_unq_chk;
38: CLOSE chk_uniquness;
39:
40: IF l_refno_unq_chk IS NOT NULL THEN
41: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
42: p_msg_name => 'OKL_REFNO_UNIQUE_CHECK');
43: RAISE OKL_API.G_EXCEPTION_ERROR;
44: END IF;
45:
39:
40: IF l_refno_unq_chk IS NOT NULL THEN
41: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
42: p_msg_name => 'OKL_REFNO_UNIQUE_CHECK');
43: RAISE OKL_API.G_EXCEPTION_ERROR;
44: END IF;
45:
46: -- viselvar added this validation for Bug 5042858
47: l_return_status := OKL_LEASE_APP_PVT.is_curr_conv_valid(
49: ,p_curr_type => p_lease_opp_rec.currency_conversion_type
50: ,p_curr_rate => p_lease_opp_rec.currency_conversion_rate
51: ,p_curr_date => p_lease_opp_rec.currency_conversion_date);
52:
53: IF (l_return_status = OKL_API.G_RET_STS_ERROR)
54: THEN
55: RAISE OKL_API.G_EXCEPTION_ERROR;
56: END IF;
57:
51: ,p_curr_date => p_lease_opp_rec.currency_conversion_date);
52:
53: IF (l_return_status = OKL_API.G_RET_STS_ERROR)
54: THEN
55: RAISE OKL_API.G_EXCEPTION_ERROR;
56: END IF;
57:
58: /*OPEN c_functional_currency;
59: FETCH c_functional_currency INTO l_functional_currency;
61:
62: IF p_lease_opp_rec.currency_code <> l_functional_currency THEN
63:
64: IF p_lease_opp_rec.currency_conversion_type IS NULL THEN
65: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
66: p_msg_name => 'OKL_REQUIRED_CURRENCY_TYPE');
67: RAISE OKL_API.G_EXCEPTION_ERROR;
68: END IF;
69:
63:
64: IF p_lease_opp_rec.currency_conversion_type IS NULL THEN
65: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
66: p_msg_name => 'OKL_REQUIRED_CURRENCY_TYPE');
67: RAISE OKL_API.G_EXCEPTION_ERROR;
68: END IF;
69:
70: IF p_lease_opp_rec.currency_conversion_date IS NULL THEN
71: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
67: RAISE OKL_API.G_EXCEPTION_ERROR;
68: END IF;
69:
70: IF p_lease_opp_rec.currency_conversion_date IS NULL THEN
71: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
72: p_msg_name => 'OKL_REQUIRED_CURRENCY_DATE');
73: RAISE OKL_API.G_EXCEPTION_ERROR;
74: END IF;
75:
69:
70: IF p_lease_opp_rec.currency_conversion_date IS NULL THEN
71: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
72: p_msg_name => 'OKL_REQUIRED_CURRENCY_DATE');
73: RAISE OKL_API.G_EXCEPTION_ERROR;
74: END IF;
75:
76: IF p_lease_opp_rec.currency_conversion_type = 'User' AND p_lease_opp_rec.CURRENCY_CONVERSION_RATE IS NOT NULL THEN
77: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
73: RAISE OKL_API.G_EXCEPTION_ERROR;
74: END IF;
75:
76: IF p_lease_opp_rec.currency_conversion_type = 'User' AND p_lease_opp_rec.CURRENCY_CONVERSION_RATE IS NOT NULL THEN
77: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
78: p_msg_name => 'OKL_REQUIRED_CURRENCY_RATE');
79: RAISE OKL_API.G_EXCEPTION_ERROR;
80: END IF;
81:
75:
76: IF p_lease_opp_rec.currency_conversion_type = 'User' AND p_lease_opp_rec.CURRENCY_CONVERSION_RATE IS NOT NULL THEN
77: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
78: p_msg_name => 'OKL_REQUIRED_CURRENCY_RATE');
79: RAISE OKL_API.G_EXCEPTION_ERROR;
80: END IF;
81:
82: ELSE
83:
81:
82: ELSE
83:
84: IF p_lease_opp_rec.CURRENCY_CONVERSION_TYPE IS NOT NULL THEN
85: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
86: p_msg_name => 'OKL_NOTREQUIRED_CURRENCY_TYPE');
87: RAISE OKL_API.G_EXCEPTION_ERROR;
88: END IF;
89:
83:
84: IF p_lease_opp_rec.CURRENCY_CONVERSION_TYPE IS NOT NULL THEN
85: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
86: p_msg_name => 'OKL_NOTREQUIRED_CURRENCY_TYPE');
87: RAISE OKL_API.G_EXCEPTION_ERROR;
88: END IF;
89:
90: IF p_lease_opp_rec.CURRENCY_CONVERSION_DATE IS NOT NULL THEN
91: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
87: RAISE OKL_API.G_EXCEPTION_ERROR;
88: END IF;
89:
90: IF p_lease_opp_rec.CURRENCY_CONVERSION_DATE IS NOT NULL THEN
91: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
92: p_msg_name => 'OKL_NOTREQUIRED_CURRENCY_DATE');
93: RAISE OKL_API.G_EXCEPTION_ERROR;
94: END IF;
95:
89:
90: IF p_lease_opp_rec.CURRENCY_CONVERSION_DATE IS NOT NULL THEN
91: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
92: p_msg_name => 'OKL_NOTREQUIRED_CURRENCY_DATE');
93: RAISE OKL_API.G_EXCEPTION_ERROR;
94: END IF;
95:
96: IF p_lease_opp_rec.CURRENCY_CONVERSION_RATE IS NOT NULL THEN
97: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
93: RAISE OKL_API.G_EXCEPTION_ERROR;
94: END IF;
95:
96: IF p_lease_opp_rec.CURRENCY_CONVERSION_RATE IS NOT NULL THEN
97: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
98: p_msg_name => 'OKL_NOTREQUIRED_CURRENCY_RATE');
99: RAISE OKL_API.G_EXCEPTION_ERROR;
100: END IF;
101:
95:
96: IF p_lease_opp_rec.CURRENCY_CONVERSION_RATE IS NOT NULL THEN
97: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
98: p_msg_name => 'OKL_NOTREQUIRED_CURRENCY_RATE');
99: RAISE OKL_API.G_EXCEPTION_ERROR;
100: END IF;
101:
102: END IF;*/
103:
102: END IF;*/
103:
104: -- Date Validations
105: IF p_lease_opp_rec.expected_start_date < p_lease_opp_rec.valid_from THEN
106: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
107: p_msg_name => 'OKL_LOP_INVALID_START_DATE');
108: RAISE OKL_API.G_EXCEPTION_ERROR;
109: END IF;
110:
104: -- Date Validations
105: IF p_lease_opp_rec.expected_start_date < p_lease_opp_rec.valid_from THEN
106: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
107: p_msg_name => 'OKL_LOP_INVALID_START_DATE');
108: RAISE OKL_API.G_EXCEPTION_ERROR;
109: END IF;
110:
111: IF p_lease_opp_rec.funding_date < p_lease_opp_rec.valid_from THEN
112: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
108: RAISE OKL_API.G_EXCEPTION_ERROR;
109: END IF;
110:
111: IF p_lease_opp_rec.funding_date < p_lease_opp_rec.valid_from THEN
112: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
113: p_msg_name => 'OKL_LOP_INVALID_FUNDING_DATE');
114: RAISE OKL_API.G_EXCEPTION_ERROR;
115: END IF;
116:
110:
111: IF p_lease_opp_rec.funding_date < p_lease_opp_rec.valid_from THEN
112: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
113: p_msg_name => 'OKL_LOP_INVALID_FUNDING_DATE');
114: RAISE OKL_API.G_EXCEPTION_ERROR;
115: END IF;
116:
117: IF p_lease_opp_rec.delivery_date < p_lease_opp_rec.valid_from THEN
118: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
114: RAISE OKL_API.G_EXCEPTION_ERROR;
115: END IF;
116:
117: IF p_lease_opp_rec.delivery_date < p_lease_opp_rec.valid_from THEN
118: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
119: p_msg_name => 'OKL_LOP_INVALID_DELV_DATE');
120: RAISE OKL_API.G_EXCEPTION_ERROR;
121: END IF;
122:
116:
117: IF p_lease_opp_rec.delivery_date < p_lease_opp_rec.valid_from THEN
118: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
119: p_msg_name => 'OKL_LOP_INVALID_DELV_DATE');
120: RAISE OKL_API.G_EXCEPTION_ERROR;
121: END IF;
122:
123: EXCEPTION
124:
121: END IF;
122:
123: EXCEPTION
124:
125: WHEN OKL_API.G_EXCEPTION_ERROR THEN
126:
127: x_return_status := G_RET_STS_ERROR;
128:
129: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
125: WHEN OKL_API.G_EXCEPTION_ERROR THEN
126:
127: x_return_status := G_RET_STS_ERROR;
128:
129: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
130:
131: x_return_status := G_RET_STS_UNEXP_ERROR;
132:
133: WHEN OTHERS THEN
131: x_return_status := G_RET_STS_UNEXP_ERROR;
132:
133: WHEN OTHERS THEN
134:
135: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
136: p_msg_name => G_DB_ERROR,
137: p_token1 => G_PROG_NAME_TOKEN,
138: p_token1_value => l_api_name,
139: p_token2 => G_SQLCODE_TOKEN,
198: ,p_curr_type => l_lease_opp_rec.currency_conversion_type
199: ,p_curr_rate => l_lease_opp_rec.currency_conversion_rate
200: ,p_curr_date => l_lease_opp_rec.currency_conversion_date);
201:
202: IF (l_return_status = OKL_API.G_RET_STS_ERROR)
203: THEN
204: RAISE OKL_API.G_EXCEPTION_ERROR;
205: END IF;
206: --Bug 5100228 End
200: ,p_curr_date => l_lease_opp_rec.currency_conversion_date);
201:
202: IF (l_return_status = OKL_API.G_RET_STS_ERROR)
203: THEN
204: RAISE OKL_API.G_EXCEPTION_ERROR;
205: END IF;
206: --Bug 5100228 End
207:
208: validate_lease_opp(p_lease_opp_rec => l_lease_opp_rec,
208: validate_lease_opp(p_lease_opp_rec => l_lease_opp_rec,
209: x_return_status => l_return_status);
210:
211: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
212: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
213: ELSIF l_return_status = G_RET_STS_ERROR THEN
214: RAISE OKL_API.G_EXCEPTION_ERROR;
215: END IF;
216:
210:
211: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
212: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
213: ELSIF l_return_status = G_RET_STS_ERROR THEN
214: RAISE OKL_API.G_EXCEPTION_ERROR;
215: END IF;
216:
217: okl_lop_pvt.insert_row(
218: p_api_version => G_API_VERSION
224: ,x_lopv_rec => x_lease_opp_rec
225: );
226:
227: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
228: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
229: ELSIF l_return_status = G_RET_STS_ERROR THEN
230: RAISE OKL_API.G_EXCEPTION_ERROR;
231: END IF;
232:
226:
227: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
228: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
229: ELSIF l_return_status = G_RET_STS_ERROR THEN
230: RAISE OKL_API.G_EXCEPTION_ERROR;
231: END IF;
232:
233: IF p_quick_quote_id IS NOT NULL THEN
234:
243: x_return_status := l_return_status;
244:
245: EXCEPTION
246:
247: WHEN OKL_API.G_EXCEPTION_ERROR THEN
248:
249: IF p_transaction_control = G_TRUE THEN
250: ROLLBACK TO l_program_name;
251: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
252: END IF;
253:
254: x_return_status := G_RET_STS_ERROR;
255:
256: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
257:
258: IF p_transaction_control = G_TRUE THEN
259: ROLLBACK TO l_program_name;
260: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
263: x_return_status := G_RET_STS_UNEXP_ERROR;
264:
265: WHEN OTHERS THEN
266:
267: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
268: p_msg_name => G_DB_ERROR,
269: p_token1 => G_PROG_NAME_TOKEN,
270: p_token1_value => l_api_name,
271: p_token2 => G_SQLCODE_TOKEN,
331: ,p_curr_type => l_lease_opp_rec.currency_conversion_type
332: ,p_curr_rate => l_lease_opp_rec.currency_conversion_rate
333: ,p_curr_date => l_lease_opp_rec.currency_conversion_date);
334:
335: IF (l_return_status = OKL_API.G_RET_STS_ERROR)
336: THEN
337: RAISE OKL_API.G_EXCEPTION_ERROR;
338: END IF;
339: --Bug 5100228 End
333: ,p_curr_date => l_lease_opp_rec.currency_conversion_date);
334:
335: IF (l_return_status = OKL_API.G_RET_STS_ERROR)
336: THEN
337: RAISE OKL_API.G_EXCEPTION_ERROR;
338: END IF;
339: --Bug 5100228 End
340:
341: validate_lease_opp(p_lease_opp_rec => l_lease_opp_rec,
341: validate_lease_opp(p_lease_opp_rec => l_lease_opp_rec,
342: x_return_status => l_return_status);
343:
344: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
345: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
346: ELSIF l_return_status = G_RET_STS_ERROR THEN
347: RAISE OKL_API.G_EXCEPTION_ERROR;
348: END IF;
349:
343:
344: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
345: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
346: ELSIF l_return_status = G_RET_STS_ERROR THEN
347: RAISE OKL_API.G_EXCEPTION_ERROR;
348: END IF;
349:
350: --Bug 4895154 Beging
351: END IF;
360: ,p_lopv_rec => l_lease_opp_rec
361: ,x_lopv_rec => x_lease_opp_rec);
362:
363: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
364: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
365: ELSIF l_return_status = G_RET_STS_ERROR THEN
366: RAISE OKL_API.G_EXCEPTION_ERROR;
367: END IF;
368:
362:
363: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
364: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
365: ELSIF l_return_status = G_RET_STS_ERROR THEN
366: RAISE OKL_API.G_EXCEPTION_ERROR;
367: END IF;
368:
369: x_return_status := l_return_status;
370: EXCEPTION
368:
369: x_return_status := l_return_status;
370: EXCEPTION
371:
372: WHEN OKL_API.G_EXCEPTION_ERROR THEN
373:
374: IF p_transaction_control = G_TRUE THEN
375: ROLLBACK TO l_program_name;
376: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
377: END IF;
378:
379: x_return_status := G_RET_STS_ERROR;
380:
381: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
382:
383: IF p_transaction_control = G_TRUE THEN
384: ROLLBACK TO l_program_name;
385: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
388: x_return_status := G_RET_STS_UNEXP_ERROR;
389:
390: WHEN OTHERS THEN
391:
392: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
393: p_msg_name => G_DB_ERROR,
394: p_token1 => G_PROG_NAME_TOKEN,
395: p_token1_value => l_api_name,
396: p_token2 => G_SQLCODE_TOKEN,
464: ,p_lease_qte_tbl => l_del_lease_qte_tbl);
465:
466:
467: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
468: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
469: ELSIF l_return_status = G_RET_STS_ERROR THEN
470: RAISE OKL_API.G_EXCEPTION_ERROR;
471: END IF;
472:
466:
467: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
468: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
469: ELSIF l_return_status = G_RET_STS_ERROR THEN
470: RAISE OKL_API.G_EXCEPTION_ERROR;
471: END IF;
472:
473: END IF;
474:
475: x_return_status := G_RET_STS_SUCCESS;
476:
477: EXCEPTION
478:
479: WHEN OKL_API.G_EXCEPTION_ERROR THEN
480:
481: x_return_status := G_RET_STS_ERROR;
482:
483: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
479: WHEN OKL_API.G_EXCEPTION_ERROR THEN
480:
481: x_return_status := G_RET_STS_ERROR;
482:
483: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
484:
485: x_return_status := G_RET_STS_UNEXP_ERROR;
486:
487: WHEN OTHERS THEN
485: x_return_status := G_RET_STS_UNEXP_ERROR;
486:
487: WHEN OTHERS THEN
488:
489: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
490: p_msg_name => G_DB_ERROR,
491: p_token1 => G_PROG_NAME_TOKEN,
492: p_token1_value => l_api_name,
493: p_token2 => G_SQLCODE_TOKEN,
550: ,x_msg_data => x_msg_data);
551:
552:
553: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
554: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
555: ELSIF l_return_status = G_RET_STS_ERROR THEN
556: RAISE OKL_API.G_EXCEPTION_ERROR;
557: END IF;
558:
552:
553: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
554: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
555: ELSIF l_return_status = G_RET_STS_ERROR THEN
556: RAISE OKL_API.G_EXCEPTION_ERROR;
557: END IF;
558:
559: -- Handle Subsidy pool usage
560: okl_lease_quote_subpool_pvt.process_cancel_leaseopp(
565: ,x_return_status => l_return_status
566: ,x_msg_count => x_msg_count
567: ,x_msg_data => x_msg_data);
568: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
569: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
570: ELSIF l_return_status = G_RET_STS_ERROR THEN
571: RAISE OKL_API.G_EXCEPTION_ERROR;
572: END IF;
573:
567: ,x_msg_data => x_msg_data);
568: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
569: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
570: ELSIF l_return_status = G_RET_STS_ERROR THEN
571: RAISE OKL_API.G_EXCEPTION_ERROR;
572: END IF;
573:
574: x_return_status := G_RET_STS_SUCCESS;
575:
574: x_return_status := G_RET_STS_SUCCESS;
575:
576: EXCEPTION
577:
578: WHEN OKL_API.G_EXCEPTION_ERROR THEN
579:
580: IF p_transaction_control = G_TRUE THEN
581: ROLLBACK TO l_program_name;
582: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
583: END IF;
584:
585: x_return_status := G_RET_STS_ERROR;
586:
587: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
588:
589: IF p_transaction_control = G_TRUE THEN
590: ROLLBACK TO l_program_name;
591: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
594: x_return_status := G_RET_STS_UNEXP_ERROR;
595:
596: WHEN OTHERS THEN
597:
598: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
599: p_msg_name => G_DB_ERROR,
600: p_token1 => G_PROG_NAME_TOKEN,
601: p_token1_value => l_api_name,
602: p_token2 => G_SQLCODE_TOKEN,
705: x_return_status := G_RET_STS_SUCCESS;
706:
707: EXCEPTION
708:
709: WHEN OKL_API.G_EXCEPTION_ERROR THEN
710:
711: IF p_transaction_control = G_TRUE THEN
712: ROLLBACK TO l_program_name;
713: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
714: END IF;
715:
716: x_return_status := G_RET_STS_ERROR;
717:
718: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
719:
720: IF p_transaction_control = G_TRUE THEN
721: ROLLBACK TO l_program_name;
722: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
725: x_return_status := G_RET_STS_UNEXP_ERROR;
726:
727: WHEN OTHERS THEN
728:
729: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
730: p_msg_name => G_DB_ERROR,
731: p_token1 => G_PROG_NAME_TOKEN,
732: p_token1_value => l_api_name,
733: p_token2 => G_SQLCODE_TOKEN,
785: ,x_msg_data => x_msg_data
786: );
787:
788: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
790: ELSIF x_return_status = G_RET_STS_ERROR THEN
791: RAISE OKL_API.G_EXCEPTION_ERROR;
792: END IF;
793:
787:
788: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
790: ELSIF x_return_status = G_RET_STS_ERROR THEN
791: RAISE OKL_API.G_EXCEPTION_ERROR;
792: END IF;
793:
794: -- Duplicate Estimates
795: okl_quick_quotes_pvt.duplicate_estimate(
801: ,x_msg_count => x_msg_count
802: ,x_msg_data => x_msg_data );
803:
804: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
805: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
806: ELSIF x_return_status = G_RET_STS_ERROR THEN
807: RAISE OKL_API.G_EXCEPTION_ERROR;
808: END IF;
809:
803:
804: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
805: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
806: ELSIF x_return_status = G_RET_STS_ERROR THEN
807: RAISE OKL_API.G_EXCEPTION_ERROR;
808: END IF;
809:
810: -- Duplicate Quotes
811: okl_lease_quote_pvt.duplicate_quotes (
818: ,x_msg_count => x_msg_count
819: ,x_msg_data => x_msg_data );
820:
821: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
822: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
823: ELSIF x_return_status = G_RET_STS_ERROR THEN
824: RAISE OKL_API.G_EXCEPTION_ERROR;
825: END IF;
826:
820:
821: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
822: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
823: ELSIF x_return_status = G_RET_STS_ERROR THEN
824: RAISE OKL_API.G_EXCEPTION_ERROR;
825: END IF;
826:
827: EXCEPTION
828:
825: END IF;
826:
827: EXCEPTION
828:
829: WHEN OKL_API.G_EXCEPTION_ERROR THEN
830:
831: IF p_transaction_control = G_TRUE THEN
832: ROLLBACK TO l_program_name;
833: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
834: END IF;
835:
836: x_return_status := G_RET_STS_ERROR;
837:
838: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
839:
840: IF p_transaction_control = G_TRUE THEN
841: ROLLBACK TO l_program_name;
842: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
845: x_return_status := G_RET_STS_UNEXP_ERROR;
846:
847: WHEN OTHERS THEN
848:
849: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
850: p_msg_name => G_DB_ERROR,
851: p_token1 => G_PROG_NAME_TOKEN,
852: p_token1_value => l_api_name,
853: p_token2 => G_SQLCODE_TOKEN,