[Home] [Help]
41: l_api_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_program_name;
42:
43: l_tax_treatment VARCHAR2(30);
44: l_fee_id NUMBER;
45: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
46:
47: CURSOR l_get_tax_treatment(cp_quote_id IN NUMBER) IS
48: SELECT upfront_tax_treatment
49: FROM okl_lease_quotes_b
62: FND_MSG_PUB.initialize;
63: END IF;
64:
65: IF p_quote_id IS NULL THEN
66: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
67: p_msg_name => 'OKL_INVALID_SALES_QUOTE');
68: RAISE OKL_API.G_EXCEPTION_ERROR;
69: END IF;
70:
64:
65: IF p_quote_id IS NULL THEN
66: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
67: p_msg_name => 'OKL_INVALID_SALES_QUOTE');
68: RAISE OKL_API.G_EXCEPTION_ERROR;
69: END IF;
70:
71: OPEN l_get_tax_treatment(p_quote_id);
72: FETCH l_get_tax_treatment INTO l_tax_treatment;
89: ,x_msg_count => x_msg_count
90: ,x_msg_data => x_msg_data );
91:
92: IF(l_return_status = G_RET_STS_UNEXP_ERROR) THEN
93: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
94: ELSIF(l_return_status = G_RET_STS_ERROR) THEN
95: RAISE OKL_API.G_EXCEPTION_ERROR;
96: END IF;
97:
91:
92: IF(l_return_status = G_RET_STS_UNEXP_ERROR) THEN
93: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
94: ELSIF(l_return_status = G_RET_STS_ERROR) THEN
95: RAISE OKL_API.G_EXCEPTION_ERROR;
96: END IF;
97:
98: END IF;
99:
102: x_return_status := l_return_status;
103:
104: EXCEPTION
105:
106: WHEN OKL_API.G_EXCEPTION_ERROR THEN
107:
108: x_return_status := G_RET_STS_ERROR;
109:
110: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
106: WHEN OKL_API.G_EXCEPTION_ERROR THEN
107:
108: x_return_status := G_RET_STS_ERROR;
109:
110: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
111:
112: x_return_status := G_RET_STS_UNEXP_ERROR;
113:
114: WHEN OTHERS THEN
111:
112: x_return_status := G_RET_STS_UNEXP_ERROR;
113:
114: WHEN OTHERS THEN
115: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
116: p_msg_name => G_DB_ERROR,
117: p_token1 => G_PROG_NAME_TOKEN,
118: p_token1_value => l_api_name,
119: p_token2 => G_SQLCODE_TOKEN,
153: l_err_msg := 'OKL_SO_LSE_APP_LE_ERR';
154: ELSE
155: l_err_msg := 'OKL_LEASE_QUOTE_LE_ERR';
156: END IF;
157: OKL_API.SET_MESSAGE (
158: p_app_name => G_APP_NAME
159: ,p_msg_name => l_err_msg);
160: RAISE OKL_API.G_EXCEPTION_ERROR;
161: END IF;
156: END IF;
157: OKL_API.SET_MESSAGE (
158: p_app_name => G_APP_NAME
159: ,p_msg_name => l_err_msg);
160: RAISE OKL_API.G_EXCEPTION_ERROR;
161: END IF;
162: END IF;
163:
164: x_return_status := G_RET_STS_SUCCESS;
163:
164: x_return_status := G_RET_STS_SUCCESS;
165: EXCEPTION
166:
167: WHEN OKL_API.G_EXCEPTION_ERROR THEN
168:
169: x_return_status := G_RET_STS_ERROR;
170:
171: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
167: WHEN OKL_API.G_EXCEPTION_ERROR THEN
168:
169: x_return_status := G_RET_STS_ERROR;
170:
171: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
172:
173: x_return_status := G_RET_STS_UNEXP_ERROR;
174:
175: WHEN OTHERS THEN
173: x_return_status := G_RET_STS_UNEXP_ERROR;
174:
175: WHEN OTHERS THEN
176:
177: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
178: p_msg_name => G_DB_ERROR,
179: p_token1 => G_PROG_NAME_TOKEN,
180: p_token1_value => l_api_name,
181: p_token2 => G_SQLCODE_TOKEN,
347: FETCH chk_uniquness INTO l_refno_unq_chk;
348: CLOSE chk_uniquness;
349:
350: IF l_refno_unq_chk IS NOT NULL THEN
351: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
352: p_msg_name => 'OKL_REFNO_UNIQUE_CHECK');
353: RAISE OKL_API.G_EXCEPTION_ERROR;
354: END IF;
355:
349:
350: IF l_refno_unq_chk IS NOT NULL THEN
351: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
352: p_msg_name => 'OKL_REFNO_UNIQUE_CHECK');
353: RAISE OKL_API.G_EXCEPTION_ERROR;
354: END IF;
355:
356: IF p_lease_qte_rec.parent_object_code IS NULL THEN
357: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
353: RAISE OKL_API.G_EXCEPTION_ERROR;
354: END IF;
355:
356: IF p_lease_qte_rec.parent_object_code IS NULL THEN
357: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
358: p_msg_name => 'OKL_INVALID_SALES_QUOTE');
359: RAISE OKL_API.G_EXCEPTION_ERROR;
360: END IF;
361:
355:
356: IF p_lease_qte_rec.parent_object_code IS NULL THEN
357: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
358: p_msg_name => 'OKL_INVALID_SALES_QUOTE');
359: RAISE OKL_API.G_EXCEPTION_ERROR;
360: END IF;
361:
362: IF (p_lease_qte_rec.parent_object_code = 'LEASEOPP') THEN
363: OPEN chk_parent_dates_leaseopp;
372: l_format_mask := NVL(FND_PROFILE.VALUE('ICX_DATE_FORMAT_MASK'), 'DD-MON-YYYY');
373: l_formatted_date := TO_CHAR(l_parent_valid_from , l_format_mask);
374:
375: IF p_lease_qte_rec.expected_start_date < l_parent_valid_from THEN
376: OKL_API.SET_MESSAGE (
377: p_app_name => G_APP_NAME
378: ,p_msg_name => 'OKL_QUOTE_INVALID_START_DATE'
379: ,p_token1 => 'LEASEOPP_DATE'
380: ,p_token1_value => l_formatted_date
378: ,p_msg_name => 'OKL_QUOTE_INVALID_START_DATE'
379: ,p_token1 => 'LEASEOPP_DATE'
380: ,p_token1_value => l_formatted_date
381: );
382: RAISE OKL_API.G_EXCEPTION_ERROR;
383: END IF;
384:
385: IF p_lease_qte_rec.expected_funding_date < l_parent_valid_from THEN
386: OKL_API.SET_MESSAGE (
382: RAISE OKL_API.G_EXCEPTION_ERROR;
383: END IF;
384:
385: IF p_lease_qte_rec.expected_funding_date < l_parent_valid_from THEN
386: OKL_API.SET_MESSAGE (
387: p_app_name => G_APP_NAME
388: ,p_msg_name => 'OKL_QUOTE_INVALID_FUNDING_DATE'
389: ,p_token1 => 'LEASEOPP_DATE'
390: ,p_token1_value => l_formatted_date
388: ,p_msg_name => 'OKL_QUOTE_INVALID_FUNDING_DATE'
389: ,p_token1 => 'LEASEOPP_DATE'
390: ,p_token1_value => l_formatted_date
391: );
392: RAISE OKL_API.G_EXCEPTION_ERROR;
393: END IF;
394:
395: IF p_lease_qte_rec.expected_delivery_date < l_parent_valid_from THEN
396: IF (p_lease_qte_rec.parent_object_code = 'LEASEOPP') THEN
393: END IF;
394:
395: IF p_lease_qte_rec.expected_delivery_date < l_parent_valid_from THEN
396: IF (p_lease_qte_rec.parent_object_code = 'LEASEOPP') THEN
397: OKL_API.SET_MESSAGE (
398: p_app_name => G_APP_NAME
399: ,p_msg_name => 'OKL_QUOTE_INVALID_DELV_DATE'
400: ,p_token1 => 'LEASEOPP_DATE'
401: ,p_token1_value => l_formatted_date
400: ,p_token1 => 'LEASEOPP_DATE'
401: ,p_token1_value => l_formatted_date
402: );
403: ELSIF (p_lease_qte_rec.parent_object_code = 'LEASEAPP') THEN
404: OKL_API.SET_MESSAGE (
405: p_app_name => G_APP_NAME
406: ,p_msg_name => 'OKL_QTE_LAP_INVALID_DELV_DATE'
407: ,p_token1 => 'LEASEAPP_DATE'
408: ,p_token1_value => l_formatted_date
407: ,p_token1 => 'LEASEAPP_DATE'
408: ,p_token1_value => l_formatted_date
409: );
410: end if;
411: RAISE OKL_API.G_EXCEPTION_ERROR;
412:
413: END IF;
414:
415: IF p_lease_qte_rec.term <= 0 THEN
412:
413: END IF;
414:
415: IF p_lease_qte_rec.term <= 0 THEN
416: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_INVALID_QUOTE_TERM');
417: RAISE OKL_API.G_EXCEPTION_ERROR;
418: END IF;
419:
420: IF (p_lease_qte_rec.term <> TRUNC(p_lease_qte_rec.term)) THEN
413: END IF;
414:
415: IF p_lease_qte_rec.term <= 0 THEN
416: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_INVALID_QUOTE_TERM');
417: RAISE OKL_API.G_EXCEPTION_ERROR;
418: END IF;
419:
420: IF (p_lease_qte_rec.term <> TRUNC(p_lease_qte_rec.term)) THEN
421: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_INVALID_QUOTE_TERM2');
417: RAISE OKL_API.G_EXCEPTION_ERROR;
418: END IF;
419:
420: IF (p_lease_qte_rec.term <> TRUNC(p_lease_qte_rec.term)) THEN
421: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_INVALID_QUOTE_TERM2');
422: RAISE OKL_API.G_EXCEPTION_ERROR;
423: END IF;
424: --asawanka bug 4923624 changes start
425: IF (p_lease_qte_rec.valid_from IS NULL OR p_lease_qte_rec.valid_from = OKL_API.G_MISS_DATE )
418: END IF;
419:
420: IF (p_lease_qte_rec.term <> TRUNC(p_lease_qte_rec.term)) THEN
421: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_INVALID_QUOTE_TERM2');
422: RAISE OKL_API.G_EXCEPTION_ERROR;
423: END IF;
424: --asawanka bug 4923624 changes start
425: IF (p_lease_qte_rec.valid_from IS NULL OR p_lease_qte_rec.valid_from = OKL_API.G_MISS_DATE )
426: AND(p_lease_qte_rec.valid_to IS NOT NULL AND p_lease_qte_rec.valid_to <> OKL_API.G_MISS_DATE )THEN
421: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_INVALID_QUOTE_TERM2');
422: RAISE OKL_API.G_EXCEPTION_ERROR;
423: END IF;
424: --asawanka bug 4923624 changes start
425: IF (p_lease_qte_rec.valid_from IS NULL OR p_lease_qte_rec.valid_from = OKL_API.G_MISS_DATE )
426: AND(p_lease_qte_rec.valid_to IS NOT NULL AND p_lease_qte_rec.valid_to <> OKL_API.G_MISS_DATE )THEN
427: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_REQUIRED_VALID_FROM');
428: RAISE OKL_API.G_EXCEPTION_ERROR;
429: END IF;
422: RAISE OKL_API.G_EXCEPTION_ERROR;
423: END IF;
424: --asawanka bug 4923624 changes start
425: IF (p_lease_qte_rec.valid_from IS NULL OR p_lease_qte_rec.valid_from = OKL_API.G_MISS_DATE )
426: AND(p_lease_qte_rec.valid_to IS NOT NULL AND p_lease_qte_rec.valid_to <> OKL_API.G_MISS_DATE )THEN
427: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_REQUIRED_VALID_FROM');
428: RAISE OKL_API.G_EXCEPTION_ERROR;
429: END IF;
430:
423: END IF;
424: --asawanka bug 4923624 changes start
425: IF (p_lease_qte_rec.valid_from IS NULL OR p_lease_qte_rec.valid_from = OKL_API.G_MISS_DATE )
426: AND(p_lease_qte_rec.valid_to IS NOT NULL AND p_lease_qte_rec.valid_to <> OKL_API.G_MISS_DATE )THEN
427: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_REQUIRED_VALID_FROM');
428: RAISE OKL_API.G_EXCEPTION_ERROR;
429: END IF;
430:
431: IF p_lease_qte_rec.valid_to <> OKL_API.G_MISS_DATE AND p_lease_qte_rec.valid_from <> OKL_API.G_MISS_DATE THEN
424: --asawanka bug 4923624 changes start
425: IF (p_lease_qte_rec.valid_from IS NULL OR p_lease_qte_rec.valid_from = OKL_API.G_MISS_DATE )
426: AND(p_lease_qte_rec.valid_to IS NOT NULL AND p_lease_qte_rec.valid_to <> OKL_API.G_MISS_DATE )THEN
427: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_REQUIRED_VALID_FROM');
428: RAISE OKL_API.G_EXCEPTION_ERROR;
429: END IF;
430:
431: IF p_lease_qte_rec.valid_to <> OKL_API.G_MISS_DATE AND p_lease_qte_rec.valid_from <> OKL_API.G_MISS_DATE THEN
432: IF p_lease_qte_rec.valid_to < p_lease_qte_rec.valid_from THEN
427: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_REQUIRED_VALID_FROM');
428: RAISE OKL_API.G_EXCEPTION_ERROR;
429: END IF;
430:
431: IF p_lease_qte_rec.valid_to <> OKL_API.G_MISS_DATE AND p_lease_qte_rec.valid_from <> OKL_API.G_MISS_DATE THEN
432: IF p_lease_qte_rec.valid_to < p_lease_qte_rec.valid_from THEN
433: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_INVALID_VALID_TO');
434: RAISE OKL_API.G_EXCEPTION_ERROR;
435: END IF;
429: END IF;
430:
431: IF p_lease_qte_rec.valid_to <> OKL_API.G_MISS_DATE AND p_lease_qte_rec.valid_from <> OKL_API.G_MISS_DATE THEN
432: IF p_lease_qte_rec.valid_to < p_lease_qte_rec.valid_from THEN
433: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_INVALID_VALID_TO');
434: RAISE OKL_API.G_EXCEPTION_ERROR;
435: END IF;
436: END IF;
437: --asawanka bug 4923624 changes end
430:
431: IF p_lease_qte_rec.valid_to <> OKL_API.G_MISS_DATE AND p_lease_qte_rec.valid_from <> OKL_API.G_MISS_DATE THEN
432: IF p_lease_qte_rec.valid_to < p_lease_qte_rec.valid_from THEN
433: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_INVALID_VALID_TO');
434: RAISE OKL_API.G_EXCEPTION_ERROR;
435: END IF;
436: END IF;
437: --asawanka bug 4923624 changes end
438:
440: validate_le_id(p_le_id => p_lease_qte_rec.legal_entity_id,
441: p_parent_obj_code => p_lease_qte_rec.parent_object_code,
442: x_return_status => x_return_status );
443: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
444: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
445: ELSIF x_return_status = G_RET_STS_ERROR THEN
446: RAISE OKL_API.G_EXCEPTION_ERROR;
447: END IF;
448: --Fixed Bug # 5647107 added Bug ssdeshpa end
442: x_return_status => x_return_status );
443: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
444: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
445: ELSIF x_return_status = G_RET_STS_ERROR THEN
446: RAISE OKL_API.G_EXCEPTION_ERROR;
447: END IF;
448: --Fixed Bug # 5647107 added Bug ssdeshpa end
449:
450: x_return_status := G_RET_STS_SUCCESS;
450: x_return_status := G_RET_STS_SUCCESS;
451:
452: EXCEPTION
453:
454: WHEN OKL_API.G_EXCEPTION_ERROR THEN
455:
456: x_return_status := G_RET_STS_ERROR;
457:
458: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
454: WHEN OKL_API.G_EXCEPTION_ERROR THEN
455:
456: x_return_status := G_RET_STS_ERROR;
457:
458: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
459:
460: x_return_status := G_RET_STS_UNEXP_ERROR;
461:
462: WHEN OTHERS THEN
460: x_return_status := G_RET_STS_UNEXP_ERROR;
461:
462: WHEN OTHERS THEN
463:
464: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
465: p_msg_name => G_DB_ERROR,
466: p_token1 => G_PROG_NAME_TOKEN,
467: p_token1_value => l_api_name,
468: p_token2 => G_SQLCODE_TOKEN,
520: x_return_status := G_RET_STS_SUCCESS;
521:
522: EXCEPTION
523:
524: WHEN OKL_API.G_EXCEPTION_ERROR THEN
525: x_return_status := G_RET_STS_ERROR;
526:
527: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
528: x_return_status := G_RET_STS_UNEXP_ERROR;
523:
524: WHEN OKL_API.G_EXCEPTION_ERROR THEN
525: x_return_status := G_RET_STS_ERROR;
526:
527: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
528: x_return_status := G_RET_STS_UNEXP_ERROR;
529:
530: WHEN OTHERS THEN
531: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
527: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
528: x_return_status := G_RET_STS_UNEXP_ERROR;
529:
530: WHEN OTHERS THEN
531: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
532: p_msg_name => G_DB_ERROR,
533: p_token1 => G_PROG_NAME_TOKEN,
534: p_token1_value => l_program_name,
535: p_token2 => G_SQLCODE_TOKEN,
577: x_return_status := G_RET_STS_SUCCESS;
578:
579: EXCEPTION
580:
581: WHEN OKL_API.G_EXCEPTION_ERROR THEN
582: x_return_status := G_RET_STS_ERROR;
583:
584: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
585: x_return_status := G_RET_STS_UNEXP_ERROR;
580:
581: WHEN OKL_API.G_EXCEPTION_ERROR THEN
582: x_return_status := G_RET_STS_ERROR;
583:
584: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
585: x_return_status := G_RET_STS_UNEXP_ERROR;
586:
587: WHEN OTHERS THEN
588: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
584: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
585: x_return_status := G_RET_STS_UNEXP_ERROR;
586:
587: WHEN OTHERS THEN
588: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
589: p_msg_name => G_DB_ERROR,
590: p_token1 => G_PROG_NAME_TOKEN,
591: p_token1_value => l_program_name,
592: p_token2 => G_SQLCODE_TOKEN,
756: x_return_status := G_RET_STS_SUCCESS;
757:
758: EXCEPTION
759:
760: WHEN OKL_API.G_EXCEPTION_ERROR THEN
761: x_return_status := G_RET_STS_ERROR;
762:
763: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
764: x_return_status := G_RET_STS_UNEXP_ERROR;
759:
760: WHEN OKL_API.G_EXCEPTION_ERROR THEN
761: x_return_status := G_RET_STS_ERROR;
762:
763: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
764: x_return_status := G_RET_STS_UNEXP_ERROR;
765:
766: WHEN OTHERS THEN
767: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
763: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
764: x_return_status := G_RET_STS_UNEXP_ERROR;
765:
766: WHEN OTHERS THEN
767: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
768: p_msg_name => G_DB_ERROR,
769: p_token1 => G_PROG_NAME_TOKEN,
770: p_token1_value => l_program_name,
771: p_token2 => G_SQLCODE_TOKEN,
826: ,x_msg_count => x_msg_count
827: ,x_msg_data => x_msg_data );
828:
829: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
831: ELSIF x_return_status = G_RET_STS_ERROR THEN
832: RAISE OKL_API.G_EXCEPTION_ERROR;
833: END IF;
834: END LOOP;
828:
829: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
831: ELSIF x_return_status = G_RET_STS_ERROR THEN
832: RAISE OKL_API.G_EXCEPTION_ERROR;
833: END IF;
834: END LOOP;
835:
836: -- Cancel Fees
843: ,x_return_status => x_return_status
844: ,x_msg_count => x_msg_count
845: ,x_msg_data => x_msg_data );
846: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
847: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
848: ELSIF x_return_status = G_RET_STS_ERROR THEN
849: RAISE OKL_API.G_EXCEPTION_ERROR;
850: END IF;
851: END LOOP;
845: ,x_msg_data => x_msg_data );
846: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
847: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
848: ELSIF x_return_status = G_RET_STS_ERROR THEN
849: RAISE OKL_API.G_EXCEPTION_ERROR;
850: END IF;
851: END LOOP;
852:
853: -- Cancel Services
860: ,x_return_status => x_return_status
861: ,x_msg_count => x_msg_count
862: ,x_msg_data => x_msg_data );
863: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
864: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
865: ELSIF x_return_status = G_RET_STS_ERROR THEN
866: RAISE OKL_API.G_EXCEPTION_ERROR;
867: END IF;
868: END LOOP;
862: ,x_msg_data => x_msg_data );
863: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
864: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
865: ELSIF x_return_status = G_RET_STS_ERROR THEN
866: RAISE OKL_API.G_EXCEPTION_ERROR;
867: END IF;
868: END LOOP;
869:
870: -- Cancel Insurance Estimates
877: ,x_return_status => x_return_status
878: ,x_msg_count => x_msg_count
879: ,x_msg_data => x_msg_data );
880: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
882: ELSIF x_return_status = G_RET_STS_ERROR THEN
883: RAISE OKL_API.G_EXCEPTION_ERROR;
884: END IF;
885: END LOOP;
879: ,x_msg_data => x_msg_data );
880: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
882: ELSIF x_return_status = G_RET_STS_ERROR THEN
883: RAISE OKL_API.G_EXCEPTION_ERROR;
884: END IF;
885: END LOOP;
886:
887: x_return_status := G_RET_STS_SUCCESS;
887: x_return_status := G_RET_STS_SUCCESS;
888:
889: EXCEPTION
890:
891: WHEN OKL_API.G_EXCEPTION_ERROR THEN
892:
893: x_return_status := G_RET_STS_ERROR;
894:
895: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
891: WHEN OKL_API.G_EXCEPTION_ERROR THEN
892:
893: x_return_status := G_RET_STS_ERROR;
894:
895: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
896:
897: x_return_status := G_RET_STS_UNEXP_ERROR;
898:
899: WHEN OTHERS THEN
897: x_return_status := G_RET_STS_UNEXP_ERROR;
898:
899: WHEN OTHERS THEN
900:
901: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
902: p_msg_name => G_DB_ERROR,
903: p_token1 => G_PROG_NAME_TOKEN,
904: p_token1_value => l_api_name,
905: p_token2 => G_SQLCODE_TOKEN,
970: validate_lease_qte(p_lease_qte_rec => l_lease_qte_rec,
971: x_return_status => l_return_status);
972:
973: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
974: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
975: ELSIF l_return_status = G_RET_STS_ERROR THEN
976: RAISE OKL_API.G_EXCEPTION_ERROR;
977: END IF;
978:
972:
973: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
974: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
975: ELSIF l_return_status = G_RET_STS_ERROR THEN
976: RAISE OKL_API.G_EXCEPTION_ERROR;
977: END IF;
978:
979: --Bug 7022258-Added by kkorrapo
980: l_refno_unq_chk := okl_util.validate_seq_num('OKL_LSQ_REF_SEQ','OKL_LEASE_QUOTES_B','REFERENCE_NUMBER',l_lease_qte_rec.reference_number);
979: --Bug 7022258-Added by kkorrapo
980: l_refno_unq_chk := okl_util.validate_seq_num('OKL_LSQ_REF_SEQ','OKL_LEASE_QUOTES_B','REFERENCE_NUMBER',l_lease_qte_rec.reference_number);
981:
982: IF (l_refno_unq_chk = 'N') THEN
983: RAISE OKL_API.G_EXCEPTION_ERROR;
984: END IF;
985: --Bug 7022258--Addition end
986:
987: okl_lsq_pvt.insert_row(
993: ,p_lsqv_rec => l_lease_qte_rec
994: ,x_lsqv_rec => x_lease_qte_rec );
995:
996: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
997: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
998: ELSIF l_return_status = G_RET_STS_ERROR THEN
999: RAISE OKL_API.G_EXCEPTION_ERROR;
1000: END IF;
1001:
995:
996: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
997: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
998: ELSIF l_return_status = G_RET_STS_ERROR THEN
999: RAISE OKL_API.G_EXCEPTION_ERROR;
1000: END IF;
1001:
1002: -- if the quote is created from OCM, it is an alternate offer
1003: -- Bug#4741121 - viselvar - Modified - Start
1014: ,p_event_name => p_event_name
1015: ,p_parameters => l_parameter_list);
1016:
1017: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1018: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1019: ELSIF l_return_status = G_RET_STS_ERROR THEN
1020: RAISE OKL_API.G_EXCEPTION_ERROR;
1021: END IF;
1022:
1016:
1017: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1018: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1019: ELSIF l_return_status = G_RET_STS_ERROR THEN
1020: RAISE OKL_API.G_EXCEPTION_ERROR;
1021: END IF;
1022:
1023: END IF;
1024: -- Bug#4741121 - viselvar - Modified - End
1026: x_return_status := l_return_status;
1027:
1028: EXCEPTION
1029:
1030: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1031:
1032: IF p_transaction_control = G_TRUE THEN
1033: ROLLBACK TO l_program_name;
1034: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1035: END IF;
1036:
1037: x_return_status := G_RET_STS_ERROR;
1038:
1039: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1040:
1041: IF p_transaction_control = G_TRUE THEN
1042: ROLLBACK TO l_program_name;
1043: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1046: x_return_status := G_RET_STS_UNEXP_ERROR;
1047:
1048: WHEN OTHERS THEN
1049:
1050: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1051: p_msg_name => G_DB_ERROR,
1052: p_token1 => G_PROG_NAME_TOKEN,
1053: p_token1_value => l_api_name,
1054: p_token2 => G_SQLCODE_TOKEN,
1121: FND_MSG_PUB.initialize;
1122: END IF;
1123:
1124: IF ((p_lease_qte_rec.parent_object_code IS NULL OR
1125: p_lease_qte_rec.parent_object_code = OKL_API.G_MISS_CHAR) OR
1126: p_lease_qte_rec.object_version_number IS NULL ) THEN
1127:
1128: lb_validate := FALSE;
1129:
1137: p_contract_start_date => l_lease_qte_rec.expected_start_date,
1138: p_contract_term => l_lease_qte_rec.term,
1139: p_quote_id => l_lease_qte_rec.id);
1140: IF l_term_upd_allowed <> 'Y' THEN
1141: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1142: p_msg_name => 'OKL_LEVEL_EXTENDS_K_END');
1143: RAISE OKL_API.G_EXCEPTION_ERROR;
1144: END IF;
1145: END IF;
1139: p_quote_id => l_lease_qte_rec.id);
1140: IF l_term_upd_allowed <> 'Y' THEN
1141: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1142: p_msg_name => 'OKL_LEVEL_EXTENDS_K_END');
1143: RAISE OKL_API.G_EXCEPTION_ERROR;
1144: END IF;
1145: END IF;
1146: -- End -- Added for Bug# 6930574
1147:
1154:
1155: validate_lease_qte(p_lease_qte_rec => l_lease_qte_rec,
1156: x_return_status => l_return_status);
1157: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1158: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1159: ELSIF l_return_status = G_RET_STS_ERROR THEN
1160: RAISE OKL_API.G_EXCEPTION_ERROR;
1161: END IF;
1162:
1156: x_return_status => l_return_status);
1157: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1158: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1159: ELSIF l_return_status = G_RET_STS_ERROR THEN
1160: RAISE OKL_API.G_EXCEPTION_ERROR;
1161: END IF;
1162:
1163: -- This populates other quote attributes which are not visible from the
1164: -- update quote page
1167: populate_quote_attribs(p_source_quote_id => l_lease_qte_rec.id,
1168: x_quote_rec => l_lease_qte_rec,
1169: x_return_status => l_return_status);
1170: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1171: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1172: ELSIF l_return_status = G_RET_STS_ERROR THEN
1173: RAISE OKL_API.G_EXCEPTION_ERROR;
1174: END IF;
1175: END IF;
1169: x_return_status => l_return_status);
1170: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1171: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1172: ELSIF l_return_status = G_RET_STS_ERROR THEN
1173: RAISE OKL_API.G_EXCEPTION_ERROR;
1174: END IF;
1175: END IF;
1176:
1177: END IF;
1239: ,p_lsqv_rec => l_lease_qte_rec
1240: ,x_lsqv_rec => x_lease_qte_rec );
1241:
1242: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1244: ELSIF l_return_status = G_RET_STS_ERROR THEN
1245: RAISE OKL_API.G_EXCEPTION_ERROR;
1246: END IF;
1247:
1241:
1242: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1244: ELSIF l_return_status = G_RET_STS_ERROR THEN
1245: RAISE OKL_API.G_EXCEPTION_ERROR;
1246: END IF;
1247:
1248: -- Call the Subsidy pool API in case of Counter Offer which has status
1249: -- 'CR-RECOMMENDATION' (Bug 5149367)
1249: -- 'CR-RECOMMENDATION' (Bug 5149367)
1250: IF (l_lease_qte_rec.status = 'CR-RECOMMENDATION' AND l_lease_qte_rec.parent_object_code = 'LEASEAPP') THEN
1251: okl_lease_quote_subpool_pvt.process_leaseapp_subsidy_pool(
1252: p_api_version => p_api_version
1253: ,p_init_msg_list => OKL_API.G_FALSE
1254: ,p_transaction_control => OKL_API.G_TRUE
1255: ,p_leaseapp_id => ln_parent_object_id
1256: ,p_quote_id => l_lease_qte_rec.id
1257: ,p_transaction_reason => 'APPROVE_LEASE_APP_PRICING'
1250: IF (l_lease_qte_rec.status = 'CR-RECOMMENDATION' AND l_lease_qte_rec.parent_object_code = 'LEASEAPP') THEN
1251: okl_lease_quote_subpool_pvt.process_leaseapp_subsidy_pool(
1252: p_api_version => p_api_version
1253: ,p_init_msg_list => OKL_API.G_FALSE
1254: ,p_transaction_control => OKL_API.G_TRUE
1255: ,p_leaseapp_id => ln_parent_object_id
1256: ,p_quote_id => l_lease_qte_rec.id
1257: ,p_transaction_reason => 'APPROVE_LEASE_APP_PRICING'
1258: ,x_return_status => l_return_status
1258: ,x_return_status => l_return_status
1259: ,x_msg_count => x_msg_count
1260: ,x_msg_data => x_msg_data);
1261: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1262: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1263: ELSIF l_return_status = G_RET_STS_ERROR THEN
1264: RAISE OKL_API.G_EXCEPTION_ERROR;
1265: END IF;
1266: END IF;
1260: ,x_msg_data => x_msg_data);
1261: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1262: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1263: ELSIF l_return_status = G_RET_STS_ERROR THEN
1264: RAISE OKL_API.G_EXCEPTION_ERROR;
1265: END IF;
1266: END IF;
1267: -- End Bug 5149367
1268:
1285: x_msg_count => x_msg_count,
1286: x_msg_data => x_msg_data);
1287:
1288: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1289: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1290: ELSIF l_return_status = G_RET_STS_ERROR THEN
1291: RAISE OKL_API.G_EXCEPTION_ERROR;
1292: END IF;
1293: END IF;
1287:
1288: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1289: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1290: ELSIF l_return_status = G_RET_STS_ERROR THEN
1291: RAISE OKL_API.G_EXCEPTION_ERROR;
1292: END IF;
1293: END IF;
1294: END IF;
1295:
1304: ,x_return_status => l_return_status
1305: ,x_msg_count => x_msg_count
1306: ,x_msg_data => x_msg_data);
1307: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1309: ELSIF l_return_status = G_RET_STS_ERROR THEN
1310: RAISE OKL_API.G_EXCEPTION_ERROR;
1311: END IF;
1312: ELSIF (lb_handle_subpool AND l_lease_qte_rec.parent_object_code = 'LEASEAPP') THEN
1306: ,x_msg_data => x_msg_data);
1307: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1309: ELSIF l_return_status = G_RET_STS_ERROR THEN
1310: RAISE OKL_API.G_EXCEPTION_ERROR;
1311: END IF;
1312: ELSIF (lb_handle_subpool AND l_lease_qte_rec.parent_object_code = 'LEASEAPP') THEN
1313: okl_lease_quote_subpool_pvt.process_leaseapp_subsidy_pool(
1314: p_api_version => p_api_version
1320: ,x_return_status => l_return_status
1321: ,x_msg_count => x_msg_count
1322: ,x_msg_data => x_msg_data);
1323: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1324: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1325: ELSIF l_return_status = G_RET_STS_ERROR THEN
1326: RAISE OKL_API.G_EXCEPTION_ERROR;
1327: END IF;
1328: END IF;
1322: ,x_msg_data => x_msg_data);
1323: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1324: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1325: ELSIF l_return_status = G_RET_STS_ERROR THEN
1326: RAISE OKL_API.G_EXCEPTION_ERROR;
1327: END IF;
1328: END IF;
1329:
1330: -- Delete quote tax fee if one exists
1334: ,x_msg_count => x_msg_count
1335: ,x_msg_data => x_msg_data
1336: ,p_quote_id => l_lease_qte_rec.id);
1337: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1339: ELSIF l_return_status = G_RET_STS_ERROR THEN
1340: RAISE OKL_API.G_EXCEPTION_ERROR;
1341: END IF;
1342:
1336: ,p_quote_id => l_lease_qte_rec.id);
1337: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1339: ELSIF l_return_status = G_RET_STS_ERROR THEN
1340: RAISE OKL_API.G_EXCEPTION_ERROR;
1341: END IF;
1342:
1343: x_return_status := l_return_status;
1344:
1343: x_return_status := l_return_status;
1344:
1345: EXCEPTION
1346:
1347: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1348:
1349: IF p_transaction_control = G_TRUE THEN
1350: ROLLBACK TO l_program_name;
1351: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1352: END IF;
1353:
1354: x_return_status := G_RET_STS_ERROR;
1355:
1356: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1357:
1358: IF p_transaction_control = G_TRUE THEN
1359: ROLLBACK TO l_program_name;
1360: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1363: x_return_status := G_RET_STS_UNEXP_ERROR;
1364:
1365: WHEN OTHERS THEN
1366:
1367: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1368: p_msg_name => G_DB_ERROR,
1369: p_token1 => G_PROG_NAME_TOKEN,
1370: p_token1_value => l_api_name,
1371: p_token2 => G_SQLCODE_TOKEN,
1502: x_return_status := G_RET_STS_SUCCESS;
1503:
1504: EXCEPTION
1505:
1506: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1507: x_return_status := G_RET_STS_ERROR;
1508:
1509: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1510: x_return_status := G_RET_STS_UNEXP_ERROR;
1505:
1506: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1507: x_return_status := G_RET_STS_ERROR;
1508:
1509: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1510: x_return_status := G_RET_STS_UNEXP_ERROR;
1511:
1512: WHEN OTHERS THEN
1513: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1509: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1510: x_return_status := G_RET_STS_UNEXP_ERROR;
1511:
1512: WHEN OTHERS THEN
1513: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1514: p_msg_name => G_DB_ERROR,
1515: p_token1 => G_PROG_NAME_TOKEN,
1516: p_token1_value => l_program_name,
1517: p_token2 => G_SQLCODE_TOKEN,
1575: ,x_msg_data => x_msg_data
1576: );
1577:
1578: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1579: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1580: ELSIF x_return_status = G_RET_STS_ERROR THEN
1581: RAISE OKL_API.G_EXCEPTION_ERROR;
1582: END IF;
1583: END IF;
1577:
1578: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1579: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1580: ELSIF x_return_status = G_RET_STS_ERROR THEN
1581: RAISE OKL_API.G_EXCEPTION_ERROR;
1582: END IF;
1583: END IF;
1584:
1585: -- Check if the Quote has header payments defined
1602: ,x_msg_data => x_msg_data
1603: );
1604:
1605: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1607: ELSIF x_return_status = G_RET_STS_ERROR THEN
1608: RAISE OKL_API.G_EXCEPTION_ERROR;
1609: END IF;
1610: END IF;
1604:
1605: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1607: ELSIF x_return_status = G_RET_STS_ERROR THEN
1608: RAISE OKL_API.G_EXCEPTION_ERROR;
1609: END IF;
1610: END IF;
1611:
1612: x_return_status := G_RET_STS_SUCCESS;
1612: x_return_status := G_RET_STS_SUCCESS;
1613:
1614: EXCEPTION
1615:
1616: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1617:
1618: x_return_status := G_RET_STS_ERROR;
1619:
1620: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1616: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1617:
1618: x_return_status := G_RET_STS_ERROR;
1619:
1620: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1621:
1622: x_return_status := G_RET_STS_UNEXP_ERROR;
1623:
1624: WHEN OTHERS THEN
1622: x_return_status := G_RET_STS_UNEXP_ERROR;
1623:
1624: WHEN OTHERS THEN
1625:
1626: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1627: p_msg_name => G_DB_ERROR,
1628: p_token1 => G_PROG_NAME_TOKEN,
1629: p_token1_value => l_api_name,
1630: p_token2 => G_SQLCODE_TOKEN,
1680: ,x_return_status => x_return_status
1681: ,x_msg_count => x_msg_count
1682: ,x_msg_data => x_msg_data );
1683: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1684: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1685: ELSIF x_return_status = G_RET_STS_ERROR THEN
1686: RAISE OKL_API.G_EXCEPTION_ERROR;
1687: END IF;
1688: END LOOP;
1682: ,x_msg_data => x_msg_data );
1683: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1684: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1685: ELSIF x_return_status = G_RET_STS_ERROR THEN
1686: RAISE OKL_API.G_EXCEPTION_ERROR;
1687: END IF;
1688: END LOOP;
1689:
1690: -- Copy Configuration Fees
1699: ,x_return_status => x_return_status
1700: ,x_msg_count => x_msg_count
1701: ,x_msg_data => x_msg_data );
1702: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1703: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1704: ELSIF x_return_status = G_RET_STS_ERROR THEN
1705: RAISE OKL_API.G_EXCEPTION_ERROR;
1706: END IF;
1707:
1701: ,x_msg_data => x_msg_data );
1702: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1703: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1704: ELSIF x_return_status = G_RET_STS_ERROR THEN
1705: RAISE OKL_API.G_EXCEPTION_ERROR;
1706: END IF;
1707:
1708: END LOOP;
1709:
1710: x_return_status := G_RET_STS_SUCCESS;
1711:
1712: EXCEPTION
1713:
1714: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1715:
1716: x_return_status := G_RET_STS_ERROR;
1717:
1718: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1714: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1715:
1716: x_return_status := G_RET_STS_ERROR;
1717:
1718: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1719:
1720: x_return_status := G_RET_STS_UNEXP_ERROR;
1721:
1722: WHEN OTHERS THEN
1720: x_return_status := G_RET_STS_UNEXP_ERROR;
1721:
1722: WHEN OTHERS THEN
1723:
1724: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1725: p_msg_name => G_DB_ERROR,
1726: p_token1 => G_PROG_NAME_TOKEN,
1727: p_token1_value => l_api_name,
1728: p_token2 => G_SQLCODE_TOKEN,
1786: ,x_return_status => x_return_status
1787: ,x_msg_count => x_msg_count
1788: ,x_msg_data => x_msg_data );
1789: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1791: ELSIF x_return_status = G_RET_STS_ERROR THEN
1792: RAISE OKL_API.G_EXCEPTION_ERROR;
1793: END IF;
1794: END LOOP;
1788: ,x_msg_data => x_msg_data );
1789: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1791: ELSIF x_return_status = G_RET_STS_ERROR THEN
1792: RAISE OKL_API.G_EXCEPTION_ERROR;
1793: END IF;
1794: END LOOP;
1795:
1796: -- Copy Non-Configuration Fees
1805: ,x_return_status => x_return_status
1806: ,x_msg_count => x_msg_count
1807: ,x_msg_data => x_msg_data );
1808: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1809: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1810: ELSIF x_return_status = G_RET_STS_ERROR THEN
1811: RAISE OKL_API.G_EXCEPTION_ERROR;
1812: END IF;
1813:
1807: ,x_msg_data => x_msg_data );
1808: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1809: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1810: ELSIF x_return_status = G_RET_STS_ERROR THEN
1811: RAISE OKL_API.G_EXCEPTION_ERROR;
1812: END IF;
1813:
1814: END LOOP;
1815:
1826: ,x_return_status => x_return_status
1827: ,x_msg_count => x_msg_count
1828: ,x_msg_data => x_msg_data );
1829: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1831: ELSIF x_return_status = G_RET_STS_ERROR THEN
1832: RAISE OKL_API.G_EXCEPTION_ERROR;
1833: END IF;
1834: END LOOP;
1828: ,x_msg_data => x_msg_data );
1829: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1831: ELSIF x_return_status = G_RET_STS_ERROR THEN
1832: RAISE OKL_API.G_EXCEPTION_ERROR;
1833: END IF;
1834: END LOOP;
1835: --End of addition by jjuneja
1836:
1837: x_return_status := G_RET_STS_SUCCESS;
1838:
1839: EXCEPTION
1840:
1841: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1842:
1843: x_return_status := G_RET_STS_ERROR;
1844:
1845: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1841: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1842:
1843: x_return_status := G_RET_STS_ERROR;
1844:
1845: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1846:
1847: x_return_status := G_RET_STS_UNEXP_ERROR;
1848:
1849: WHEN OTHERS THEN
1847: x_return_status := G_RET_STS_UNEXP_ERROR;
1848:
1849: WHEN OTHERS THEN
1850:
1851: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1852: p_msg_name => G_DB_ERROR,
1853: p_token1 => G_PROG_NAME_TOKEN,
1854: p_token1_value => l_api_name,
1855: p_token2 => G_SQLCODE_TOKEN,
1912: ,x_return_status => x_return_status
1913: ,x_msg_count => x_msg_count
1914: ,x_msg_data => x_msg_data );
1915: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1917: ELSIF x_return_status = G_RET_STS_ERROR THEN
1918: RAISE OKL_API.G_EXCEPTION_ERROR;
1919: END IF;
1920: END IF;
1914: ,x_msg_data => x_msg_data );
1915: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1917: ELSIF x_return_status = G_RET_STS_ERROR THEN
1918: RAISE OKL_API.G_EXCEPTION_ERROR;
1919: END IF;
1920: END IF;
1921:
1922: x_return_status := G_RET_STS_SUCCESS;
1922: x_return_status := G_RET_STS_SUCCESS;
1923:
1924: EXCEPTION
1925:
1926: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1927:
1928: x_return_status := G_RET_STS_ERROR;
1929:
1930: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1926: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1927:
1928: x_return_status := G_RET_STS_ERROR;
1929:
1930: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1931:
1932: x_return_status := G_RET_STS_UNEXP_ERROR;
1933:
1934: WHEN OTHERS THEN
1932: x_return_status := G_RET_STS_UNEXP_ERROR;
1933:
1934: WHEN OTHERS THEN
1935:
1936: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1937: p_msg_name => G_DB_ERROR,
1938: p_token1 => G_PROG_NAME_TOKEN,
1939: p_token1_value => l_api_name,
1940: p_token2 => G_SQLCODE_TOKEN,
2004: populate_quote_attribs(p_source_quote_id => p_source_quote_id,
2005: x_quote_rec => l_lease_qte_rec,
2006: x_return_status => x_return_status);
2007: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2009: ELSIF x_return_status = G_RET_STS_ERROR THEN
2010: RAISE OKL_API.G_EXCEPTION_ERROR;
2011: END IF;
2012:
2006: x_return_status => x_return_status);
2007: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2009: ELSIF x_return_status = G_RET_STS_ERROR THEN
2010: RAISE OKL_API.G_EXCEPTION_ERROR;
2011: END IF;
2012:
2013: --asawanka bug 4936130 changes start
2014: IF (l_lease_qte_rec.parent_object_code = 'LEASEAPP'
2016: copy_yields(p_source_quote_id => p_source_quote_id,
2017: x_quote_rec => l_lease_qte_rec,
2018: x_return_status => x_return_status);
2019: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2020: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2021: ELSIF x_return_status = G_RET_STS_ERROR THEN
2022: RAISE OKL_API.G_EXCEPTION_ERROR;
2023: END IF;
2024: END IF;
2018: x_return_status => x_return_status);
2019: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2020: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2021: ELSIF x_return_status = G_RET_STS_ERROR THEN
2022: RAISE OKL_API.G_EXCEPTION_ERROR;
2023: END IF;
2024: END IF;
2025: --asawanka bug 4936130 changes end
2026: -- END IF;
2046: x_return_status => x_return_status,
2047: x_msg_count => x_msg_count,
2048: x_msg_data => x_msg_data);
2049: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2050: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2051: ELSIF x_return_status = G_RET_STS_ERROR THEN
2052: RAISE OKL_API.G_EXCEPTION_ERROR;
2053: END IF;
2054:
2048: x_msg_data => x_msg_data);
2049: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2050: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2051: ELSIF x_return_status = G_RET_STS_ERROR THEN
2052: RAISE OKL_API.G_EXCEPTION_ERROR;
2053: END IF;
2054:
2055: p_target_quote_id := x_lease_qte_rec.id;
2056:
2062: x_msg_count => x_msg_count,
2063: x_msg_data => x_msg_data,
2064: x_return_status => x_return_status);
2065: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2067: ELSIF x_return_status = G_RET_STS_ERROR THEN
2068: RAISE OKL_API.G_EXCEPTION_ERROR;
2069: END IF;
2070: END IF;
2064: x_return_status => x_return_status);
2065: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2067: ELSIF x_return_status = G_RET_STS_ERROR THEN
2068: RAISE OKL_API.G_EXCEPTION_ERROR;
2069: END IF;
2070: END IF;
2071:
2072: copy_configuration_lines(p_api_version => p_api_version,
2076: x_msg_count => x_msg_count,
2077: x_msg_data => x_msg_data,
2078: x_return_status => x_return_status);
2079: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2080: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2081: ELSIF x_return_status = G_RET_STS_ERROR THEN
2082: RAISE OKL_API.G_EXCEPTION_ERROR;
2083: END IF;
2084:
2078: x_return_status => x_return_status);
2079: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2080: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2081: ELSIF x_return_status = G_RET_STS_ERROR THEN
2082: RAISE OKL_API.G_EXCEPTION_ERROR;
2083: END IF;
2084:
2085: copy_cost_adjustments(p_api_version => p_api_version,
2086: p_init_msg_list => p_init_msg_list,
2089: x_msg_count => x_msg_count,
2090: x_msg_data => x_msg_data,
2091: x_return_status => x_return_status);
2092: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2093: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2094: ELSIF x_return_status = G_RET_STS_ERROR THEN
2095: RAISE OKL_API.G_EXCEPTION_ERROR;
2096: END IF;
2097:
2091: x_return_status => x_return_status);
2092: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2093: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2094: ELSIF x_return_status = G_RET_STS_ERROR THEN
2095: RAISE OKL_API.G_EXCEPTION_ERROR;
2096: END IF;
2097:
2098: copy_addtl_fees_services(p_api_version => p_api_version,
2099: p_init_msg_list => p_init_msg_list,
2102: x_msg_count => x_msg_count,
2103: x_msg_data => x_msg_data,
2104: x_return_status => x_return_status);
2105: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2106: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2107: ELSIF x_return_status = G_RET_STS_ERROR THEN
2108: RAISE OKL_API.G_EXCEPTION_ERROR;
2109: END IF;
2110:
2104: x_return_status => x_return_status);
2105: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2106: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2107: ELSIF x_return_status = G_RET_STS_ERROR THEN
2108: RAISE OKL_API.G_EXCEPTION_ERROR;
2109: END IF;
2110:
2111: -- Delete quote tax fee if one exists
2112: delete_quote_tax_fee( p_api_version => p_api_version
2115: ,x_msg_count => x_msg_count
2116: ,x_msg_data => x_msg_data
2117: ,p_quote_id => p_target_quote_id);
2118: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2119: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2120: ELSIF x_return_status = G_RET_STS_ERROR THEN
2121: RAISE OKL_API.G_EXCEPTION_ERROR;
2122: END IF;
2123:
2117: ,p_quote_id => p_target_quote_id);
2118: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2119: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2120: ELSIF x_return_status = G_RET_STS_ERROR THEN
2121: RAISE OKL_API.G_EXCEPTION_ERROR;
2122: END IF;
2123:
2124: x_return_status := G_RET_STS_SUCCESS;
2125:
2124: x_return_status := G_RET_STS_SUCCESS;
2125:
2126: EXCEPTION
2127:
2128: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2129:
2130: IF p_transaction_control = G_TRUE THEN
2131: ROLLBACK TO l_program_name;
2132: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2133: END IF;
2134:
2135: x_return_status := G_RET_STS_ERROR;
2136:
2137: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2138:
2139: IF p_transaction_control = G_TRUE THEN
2140: ROLLBACK TO l_program_name;
2141: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2144: x_return_status := G_RET_STS_UNEXP_ERROR;
2145:
2146: WHEN OTHERS THEN
2147:
2148: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2149: p_msg_name => G_DB_ERROR,
2150: p_token1 => G_PROG_NAME_TOKEN,
2151: p_token1_value => l_api_name,
2152: p_token2 => G_SQLCODE_TOKEN,
2191: get_quote_rec ( p_quote_id => p_quote_id,
2192: x_quote_rec => l_quote_rec,
2193: x_return_status => x_return_status );
2194: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2196: ELSIF x_return_status = G_RET_STS_ERROR THEN
2197: RAISE OKL_API.G_EXCEPTION_ERROR;
2198: END IF;
2199:
2193: x_return_status => x_return_status );
2194: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2196: ELSIF x_return_status = G_RET_STS_ERROR THEN
2197: RAISE OKL_API.G_EXCEPTION_ERROR;
2198: END IF;
2199:
2200: -- Generate reference number
2201:
2215: x_return_status => x_return_status,
2216: x_msg_count => x_msg_count,
2217: x_msg_data => x_msg_data);
2218: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2219: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2220: ELSIF x_return_status = G_RET_STS_ERROR THEN
2221: RAISE OKL_API.G_EXCEPTION_ERROR;
2222: END IF;
2223:
2217: x_msg_data => x_msg_data);
2218: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2219: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2220: ELSIF x_return_status = G_RET_STS_ERROR THEN
2221: RAISE OKL_API.G_EXCEPTION_ERROR;
2222: END IF;
2223:
2224: x_return_status := G_RET_STS_SUCCESS;
2225:
2224: x_return_status := G_RET_STS_SUCCESS;
2225:
2226: EXCEPTION
2227:
2228: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2229:
2230: IF p_transaction_control = G_TRUE THEN
2231: ROLLBACK TO l_program_name;
2232: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2233: END IF;
2234:
2235: x_return_status := G_RET_STS_ERROR;
2236:
2237: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2238:
2239: IF p_transaction_control = G_TRUE THEN
2240: ROLLBACK TO l_program_name;
2241: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2244: x_return_status := G_RET_STS_UNEXP_ERROR;
2245:
2246: WHEN OTHERS THEN
2247:
2248: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2249: p_msg_name => G_DB_ERROR,
2250: p_token1 => G_PROG_NAME_TOKEN,
2251: p_token1_value => l_api_name,
2252: p_token2 => G_SQLCODE_TOKEN,
2305: x_return_status := G_RET_STS_SUCCESS;
2306:
2307: EXCEPTION
2308:
2309: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2310:
2311: x_return_status := G_RET_STS_ERROR;
2312:
2313: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2309: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2310:
2311: x_return_status := G_RET_STS_ERROR;
2312:
2313: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2314:
2315: x_return_status := G_RET_STS_UNEXP_ERROR;
2316:
2317: WHEN OTHERS THEN
2315: x_return_status := G_RET_STS_UNEXP_ERROR;
2316:
2317: WHEN OTHERS THEN
2318:
2319: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2320: p_msg_name => G_DB_ERROR,
2321: p_token1 => G_PROG_NAME_TOKEN,
2322: p_token1_value => l_api_name,
2323: p_token2 => G_SQLCODE_TOKEN,
2370: x_msg_count => x_msg_count,
2371: x_msg_data => x_msg_data,
2372: x_return_status => l_return_status);
2373: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
2374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2375: ELSIF l_return_status = G_RET_STS_ERROR THEN
2376: RAISE OKL_API.G_EXCEPTION_ERROR;
2377: END IF;
2378:
2372: x_return_status => l_return_status);
2373: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
2374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2375: ELSIF l_return_status = G_RET_STS_ERROR THEN
2376: RAISE OKL_API.G_EXCEPTION_ERROR;
2377: END IF;
2378:
2379: /*cancel_lease_qte_childs(p_lease_qte_rec => p_lease_qte_tbl(i)
2380: ,x_msg_count => x_msg_count
2387: ,x_msg_count => x_msg_count
2388: ,x_msg_data => x_msg_data
2389: ,p_lsqv_rec => p_lease_qte_tbl(i));
2390: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
2391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2392: ELSIF l_return_status = G_RET_STS_ERROR THEN
2393: RAISE OKL_API.G_EXCEPTION_ERROR;
2394: END IF;
2395:
2389: ,p_lsqv_rec => p_lease_qte_tbl(i));
2390: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
2391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2392: ELSIF l_return_status = G_RET_STS_ERROR THEN
2393: RAISE OKL_API.G_EXCEPTION_ERROR;
2394: END IF;
2395:
2396: END IF;
2397:
2402: x_return_status := G_RET_STS_SUCCESS;
2403:
2404: EXCEPTION
2405:
2406: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2407:
2408: IF p_transaction_control = G_TRUE THEN
2409: ROLLBACK TO l_program_name;
2410: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2411: END IF;
2412:
2413: x_return_status := G_RET_STS_ERROR;
2414:
2415: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2416:
2417: IF p_transaction_control = G_TRUE THEN
2418: ROLLBACK TO l_program_name;
2419: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2422: x_return_status := G_RET_STS_UNEXP_ERROR;
2423:
2424: WHEN OTHERS THEN
2425:
2426: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2427: p_msg_name => G_DB_ERROR,
2428: p_token1 => G_PROG_NAME_TOKEN,
2429: p_token1_value => l_api_name,
2430: p_token2 => G_SQLCODE_TOKEN,
2488: get_quote_rec ( p_quote_id => p_quote_id,
2489: x_quote_rec => l_lease_qte_rec,
2490: x_return_status => x_return_status );
2491: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2492: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2493: ELSIF x_return_status = G_RET_STS_ERROR THEN
2494: RAISE OKL_API.G_EXCEPTION_ERROR;
2495: END IF;
2496:
2490: x_return_status => x_return_status );
2491: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2492: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2493: ELSIF x_return_status = G_RET_STS_ERROR THEN
2494: RAISE OKL_API.G_EXCEPTION_ERROR;
2495: END IF;
2496:
2497: --Validate IF Legal Entity Id is present on Quote Bug # 5647107
2498: --If Upfront Tax setup is complete/Changed
2499: validate_le_id(p_le_id => l_lease_qte_rec.legal_entity_id,
2500: p_parent_obj_code => l_lease_qte_rec.parent_object_code,
2501: x_return_status => x_return_status);
2502: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2503: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2504: ELSIF x_return_status = G_RET_STS_ERROR THEN
2505: RAISE OKL_API.G_EXCEPTION_ERROR;
2506: END IF;
2507:
2501: x_return_status => x_return_status);
2502: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2503: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2504: ELSIF x_return_status = G_RET_STS_ERROR THEN
2505: RAISE OKL_API.G_EXCEPTION_ERROR;
2506: END IF;
2507:
2508: -- Bug#9708535 - Added - Start
2509: IF (l_lease_qte_rec.parent_object_code = 'LEASEOPP') THEN
2520: -- quote cannot be accepted until tax is calculated.
2521: IF (l_ou_tax_upfront_yn ='Y' AND l_tax_calcualted_yn IS NULL) THEN
2522: -- Quote QUOTE_NUMBER cannot be accepted until tax is calculated.
2523: -- Please calculate tax for this quote before accepting it.
2524: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2525: p_msg_name => 'OKL_TAXCALC_ACCEPT_QUOTE',
2526: p_token1 => 'QUOTE_NUMBER',
2527: p_token1_value => l_lease_qte_rec.reference_number);
2528: RAISE OKL_API.G_EXCEPTION_ERROR;
2524: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2525: p_msg_name => 'OKL_TAXCALC_ACCEPT_QUOTE',
2526: p_token1 => 'QUOTE_NUMBER',
2527: p_token1_value => l_lease_qte_rec.reference_number);
2528: RAISE OKL_API.G_EXCEPTION_ERROR;
2529: END IF;
2530: END IF;
2531: -- Bug#9708535 - Added - End
2532:
2533: -- Call Submit workflow
2534: okl_lease_quote_workflow_pvt.raise_quote_submit_event(p_quote_id => p_quote_id,
2535: x_return_status => x_return_status);
2536: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2537: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2538: ELSIF x_return_status = G_RET_STS_ERROR THEN
2539: RAISE OKL_API.G_EXCEPTION_ERROR;
2540: END IF;
2541:
2535: x_return_status => x_return_status);
2536: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2537: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2538: ELSIF x_return_status = G_RET_STS_ERROR THEN
2539: RAISE OKL_API.G_EXCEPTION_ERROR;
2540: END IF;
2541:
2542: -- Handle Subsidy pool usage
2543: IF (l_lease_qte_rec.parent_object_code = 'LEASEOPP') THEN
2550: ,x_return_status => x_return_status
2551: ,x_msg_count => x_msg_count
2552: ,x_msg_data => x_msg_data);
2553: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2554: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2555: ELSIF x_return_status = G_RET_STS_ERROR THEN
2556: RAISE OKL_API.G_EXCEPTION_ERROR;
2557: END IF;
2558: END IF;
2552: ,x_msg_data => x_msg_data);
2553: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2554: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2555: ELSIF x_return_status = G_RET_STS_ERROR THEN
2556: RAISE OKL_API.G_EXCEPTION_ERROR;
2557: END IF;
2558: END IF;
2559:
2560: x_return_status := G_RET_STS_SUCCESS;
2560: x_return_status := G_RET_STS_SUCCESS;
2561:
2562: EXCEPTION
2563:
2564: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2565:
2566: IF p_transaction_control = G_TRUE THEN
2567: ROLLBACK TO l_program_name;
2568: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2569: END IF;
2570:
2571: x_return_status := G_RET_STS_ERROR;
2572:
2573: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2574:
2575: IF p_transaction_control = G_TRUE THEN
2576: ROLLBACK TO l_program_name;
2577: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2580: x_return_status := G_RET_STS_UNEXP_ERROR;
2581:
2582: WHEN OTHERS THEN
2583:
2584: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2585: p_msg_name => G_DB_ERROR,
2586: p_token1 => G_PROG_NAME_TOKEN,
2587: p_token1_value => l_api_name,
2588: p_token2 => G_SQLCODE_TOKEN,
2640: get_quote_rec ( p_quote_id => p_quote_id,
2641: x_quote_rec => l_lease_qte_rec,
2642: x_return_status => x_return_status );
2643: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2645: ELSIF x_return_status = G_RET_STS_ERROR THEN
2646: RAISE OKL_API.G_EXCEPTION_ERROR;
2647: END IF;
2648:
2642: x_return_status => x_return_status );
2643: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2645: ELSIF x_return_status = G_RET_STS_ERROR THEN
2646: RAISE OKL_API.G_EXCEPTION_ERROR;
2647: END IF;
2648:
2649: -- Check if any quote is accepted within this Lease Opportunity
2650: IF (l_lease_qte_rec.parent_object_code = 'LEASEOPP') THEN
2652: FETCH c_chk_accept_lease_qte INTO l_chk_lease_qte;
2653: CLOSE c_chk_accept_lease_qte;
2654:
2655: IF (l_chk_lease_qte = 'Y') THEN
2656: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2657: p_msg_name => 'OKL_CANNOT_ACCEPT_QUOTE');
2658: RAISE OKL_API.G_EXCEPTION_ERROR;
2659: ELSE
2660:
2654:
2655: IF (l_chk_lease_qte = 'Y') THEN
2656: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2657: p_msg_name => 'OKL_CANNOT_ACCEPT_QUOTE');
2658: RAISE OKL_API.G_EXCEPTION_ERROR;
2659: ELSE
2660:
2661: --Validate IF Legal Entity Id is present on Quote Bug # 5647107
2662: --If Upfront Tax setup is complete/Changed
2664: p_parent_obj_code => l_lease_qte_rec.parent_object_code,
2665: x_return_status => x_return_status);
2666:
2667: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2668: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2669: ELSIF x_return_status = G_RET_STS_ERROR THEN
2670: RAISE OKL_API.G_EXCEPTION_ERROR;
2671: END IF;
2672: -- Call Accept workflow
2666:
2667: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2668: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2669: ELSIF x_return_status = G_RET_STS_ERROR THEN
2670: RAISE OKL_API.G_EXCEPTION_ERROR;
2671: END IF;
2672: -- Call Accept workflow
2673: okl_lease_quote_workflow_pvt.raise_quote_accept_event(p_quote_id => p_quote_id,
2674: x_return_status => x_return_status);
2672: -- Call Accept workflow
2673: okl_lease_quote_workflow_pvt.raise_quote_accept_event(p_quote_id => p_quote_id,
2674: x_return_status => x_return_status);
2675: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2677: ELSIF x_return_status = G_RET_STS_ERROR THEN
2678: RAISE OKL_API.G_EXCEPTION_ERROR;
2679: END IF;
2680:
2674: x_return_status => x_return_status);
2675: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2677: ELSIF x_return_status = G_RET_STS_ERROR THEN
2678: RAISE OKL_API.G_EXCEPTION_ERROR;
2679: END IF;
2680:
2681: -- Update the Lease opportunity with status to 'Accepted'
2682: get_leaseopp_rec ( p_leaseopp_id => l_lease_qte_rec.parent_object_id,
2682: get_leaseopp_rec ( p_leaseopp_id => l_lease_qte_rec.parent_object_id,
2683: x_leaseopp_rec => l_lease_opp_rec,
2684: x_return_status => x_return_status );
2685: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2686: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2687: ELSIF x_return_status = G_RET_STS_ERROR THEN
2688: RAISE OKL_API.G_EXCEPTION_ERROR;
2689: END IF;
2690:
2684: x_return_status => x_return_status );
2685: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2686: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2687: ELSIF x_return_status = G_RET_STS_ERROR THEN
2688: RAISE OKL_API.G_EXCEPTION_ERROR;
2689: END IF;
2690:
2691: l_lease_opp_rec.status := 'ACCEPTED';
2692: okl_lop_pvt.update_row(
2697: ,x_msg_data => x_msg_data
2698: ,p_lopv_rec => l_lease_opp_rec
2699: ,x_lopv_rec => x_lease_opp_rec );
2700: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2701: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2702: ELSIF x_return_status = G_RET_STS_ERROR THEN
2703: RAISE OKL_API.G_EXCEPTION_ERROR;
2704: END IF;
2705: END IF;
2699: ,x_lopv_rec => x_lease_opp_rec );
2700: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2701: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2702: ELSIF x_return_status = G_RET_STS_ERROR THEN
2703: RAISE OKL_API.G_EXCEPTION_ERROR;
2704: END IF;
2705: END IF;
2706: END IF;
2707:
2708: x_return_status := G_RET_STS_SUCCESS;
2709:
2710: EXCEPTION
2711:
2712: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2713:
2714: IF p_transaction_control = G_TRUE THEN
2715: ROLLBACK TO l_program_name;
2716: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2717: END IF;
2718:
2719: x_return_status := G_RET_STS_ERROR;
2720:
2721: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2722:
2723: IF p_transaction_control = G_TRUE THEN
2724: ROLLBACK TO l_program_name;
2725: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2728: x_return_status := G_RET_STS_UNEXP_ERROR;
2729:
2730: WHEN OTHERS THEN
2731:
2732: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2733: p_msg_name => G_DB_ERROR,
2734: p_token1 => G_PROG_NAME_TOKEN,
2735: p_token1_value => l_api_name,
2736: p_token2 => G_SQLCODE_TOKEN,
2787: get_quote_rec ( p_quote_id => l_get_quotes.id,
2788: x_quote_rec => l_quote_rec,
2789: x_return_status => x_return_status );
2790: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2791: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2792: ELSIF x_return_status = G_RET_STS_ERROR THEN
2793: RAISE OKL_API.G_EXCEPTION_ERROR;
2794: END IF;
2795:
2789: x_return_status => x_return_status );
2790: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2791: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2792: ELSIF x_return_status = G_RET_STS_ERROR THEN
2793: RAISE OKL_API.G_EXCEPTION_ERROR;
2794: END IF;
2795:
2796: -- Generate reference number
2797:
2812: x_return_status => x_return_status,
2813: x_msg_count => x_msg_count,
2814: x_msg_data => x_msg_data);
2815: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2816: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2817: ELSIF x_return_status = G_RET_STS_ERROR THEN
2818: RAISE OKL_API.G_EXCEPTION_ERROR;
2819: END IF;
2820:
2814: x_msg_data => x_msg_data);
2815: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2816: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2817: ELSIF x_return_status = G_RET_STS_ERROR THEN
2818: RAISE OKL_API.G_EXCEPTION_ERROR;
2819: END IF;
2820:
2821: END LOOP;
2822:
2823: x_return_status := G_RET_STS_SUCCESS;
2824:
2825: EXCEPTION
2826:
2827: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2828:
2829: IF p_transaction_control = G_TRUE THEN
2830: ROLLBACK TO l_program_name;
2831: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2832: END IF;
2833:
2834: x_return_status := G_RET_STS_ERROR;
2835:
2836: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2837:
2838: IF p_transaction_control = G_TRUE THEN
2839: ROLLBACK TO l_program_name;
2840: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2843: x_return_status := G_RET_STS_UNEXP_ERROR;
2844:
2845: WHEN OTHERS THEN
2846:
2847: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2848: p_msg_name => G_DB_ERROR,
2849: p_token1 => G_PROG_NAME_TOKEN,
2850: p_token1_value => l_api_name,
2851: p_token2 => G_SQLCODE_TOKEN,
2899: ,x_msg_data => lx_msg_data
2900: ,p_lsqv_rec => l_lease_qte_rec
2901: ,x_lsqv_rec => x_lease_qte_rec );
2902:
2903: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2904: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2905: ELSIF lx_return_status = G_RET_STS_ERROR THEN
2906: RAISE OKL_API.G_EXCEPTION_ERROR;
2907: END IF;
2900: ,p_lsqv_rec => l_lease_qte_rec
2901: ,x_lsqv_rec => x_lease_qte_rec );
2902:
2903: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2904: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2905: ELSIF lx_return_status = G_RET_STS_ERROR THEN
2906: RAISE OKL_API.G_EXCEPTION_ERROR;
2907: END IF;
2908:
2902:
2903: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2904: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2905: ELSIF lx_return_status = G_RET_STS_ERROR THEN
2906: RAISE OKL_API.G_EXCEPTION_ERROR;
2907: END IF;
2908:
2909: x_return_status := lx_return_status;
2910:
2909: x_return_status := lx_return_status;
2910:
2911: EXCEPTION
2912:
2913: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2914:
2915: x_return_status := G_RET_STS_ERROR;
2916:
2917: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2913: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2914:
2915: x_return_status := G_RET_STS_ERROR;
2916:
2917: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2918:
2919: x_return_status := G_RET_STS_UNEXP_ERROR;
2920:
2921: WHEN OTHERS THEN
2919: x_return_status := G_RET_STS_UNEXP_ERROR;
2920:
2921: WHEN OTHERS THEN
2922:
2923: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2924: p_msg_name => G_UNEXPECTED_ERROR,
2925: p_token1 => G_SQLCODE_TOKEN,
2926: p_token1_value => sqlcode,
2927: p_token2 => G_SQLERRM_TOKEN,
2972: get_quote_rec ( p_quote_id => p_quote_id,
2973: x_quote_rec => l_lease_qte_rec,
2974: x_return_status => x_return_status );
2975: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2976: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2977: ELSIF x_return_status = G_RET_STS_ERROR THEN
2978: RAISE OKL_API.G_EXCEPTION_ERROR;
2979: END IF;
2980:
2974: x_return_status => x_return_status );
2975: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2976: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2977: ELSIF x_return_status = G_RET_STS_ERROR THEN
2978: RAISE OKL_API.G_EXCEPTION_ERROR;
2979: END IF;
2980:
2981: change_quote_status(p_quote_id => p_quote_id,
2982: p_qte_status => 'PR-APPROVED',
2981: change_quote_status(p_quote_id => p_quote_id,
2982: p_qte_status => 'PR-APPROVED',
2983: x_return_status => x_return_status);
2984:
2985: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2986: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2987: ELSIF x_return_status = G_RET_STS_ERROR THEN
2988: RAISE OKL_API.G_EXCEPTION_ERROR;
2989: END IF;
2982: p_qte_status => 'PR-APPROVED',
2983: x_return_status => x_return_status);
2984:
2985: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2986: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2987: ELSIF x_return_status = G_RET_STS_ERROR THEN
2988: RAISE OKL_API.G_EXCEPTION_ERROR;
2989: END IF;
2990:
2984:
2985: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2986: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2987: ELSIF x_return_status = G_RET_STS_ERROR THEN
2988: RAISE OKL_API.G_EXCEPTION_ERROR;
2989: END IF;
2990:
2991: -- Check if any quote is accepted within this Lease Opportunity
2992: IF (l_lease_qte_rec.parent_object_code = 'LEASEOPP') THEN
2994: get_leaseopp_rec ( p_leaseopp_id => l_lease_qte_rec.parent_object_id,
2995: x_leaseopp_rec => l_lease_opp_rec,
2996: x_return_status => x_return_status );
2997: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2999: ELSIF x_return_status = G_RET_STS_ERROR THEN
3000: RAISE OKL_API.G_EXCEPTION_ERROR;
3001: END IF;
3002:
2996: x_return_status => x_return_status );
2997: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2999: ELSIF x_return_status = G_RET_STS_ERROR THEN
3000: RAISE OKL_API.G_EXCEPTION_ERROR;
3001: END IF;
3002:
3003: l_lease_opp_rec.status := 'INCOMPLETE';
3004: okl_lop_pvt.update_row(
3009: ,x_msg_data => x_msg_data
3010: ,p_lopv_rec => l_lease_opp_rec
3011: ,x_lopv_rec => x_lease_opp_rec );
3012: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3013: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3014: ELSIF x_return_status = G_RET_STS_ERROR THEN
3015: RAISE OKL_API.G_EXCEPTION_ERROR;
3016: END IF;
3017: END IF;
3011: ,x_lopv_rec => x_lease_opp_rec );
3012: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3013: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3014: ELSIF x_return_status = G_RET_STS_ERROR THEN
3015: RAISE OKL_API.G_EXCEPTION_ERROR;
3016: END IF;
3017: END IF;
3018:
3019: x_return_status := G_RET_STS_SUCCESS;
3019: x_return_status := G_RET_STS_SUCCESS;
3020:
3021: EXCEPTION
3022:
3023: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3024:
3025: IF p_transaction_control = G_TRUE THEN
3026: ROLLBACK TO l_program_name;
3027: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3028: END IF;
3029:
3030: x_return_status := G_RET_STS_ERROR;
3031:
3032: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3033:
3034: IF p_transaction_control = G_TRUE THEN
3035: ROLLBACK TO l_program_name;
3036: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3039: x_return_status := G_RET_STS_UNEXP_ERROR;
3040:
3041: WHEN OTHERS THEN
3042:
3043: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3044: p_msg_name => G_DB_ERROR,
3045: p_token1 => G_PROG_NAME_TOKEN,
3046: p_token1_value => l_api_name,
3047: p_token2 => G_SQLCODE_TOKEN,
3152: x_return_status := G_RET_STS_SUCCESS;
3153:
3154: EXCEPTION
3155:
3156: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3157: x_return_status := G_RET_STS_ERROR;
3158:
3159: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3160: x_return_status := G_RET_STS_UNEXP_ERROR;
3155:
3156: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3157: x_return_status := G_RET_STS_ERROR;
3158:
3159: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3160: x_return_status := G_RET_STS_UNEXP_ERROR;
3161:
3162: WHEN OTHERS THEN
3163: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3159: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3160: x_return_status := G_RET_STS_UNEXP_ERROR;
3161:
3162: WHEN OTHERS THEN
3163: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3164: p_msg_name => G_DB_ERROR,
3165: p_token1 => G_PROG_NAME_TOKEN,
3166: p_token1_value => l_program_name,
3167: p_token2 => G_SQLCODE_TOKEN,
3200: l_api_version NUMBER := 1.0;
3201: lp_cafv_tbl OKL_CAF_PVT.cafv_tbl_type;
3202: lx_cafv_tbl OKL_CAF_PVT.cafv_tbl_type;
3203:
3204: lx_error_tbl OKL_API.ERROR_TBL_TYPE;
3205: BEGIN
3206: IF(p_source_object_code = 'QUOTED_ASSET') THEN
3207: lp_source_table := 'OKL_ASSETS_B';
3208: ELSIF(p_source_object_code = 'LEASE_QUOTE') THEN
3228: ,x_msg_count => x_msg_count
3229: ,x_msg_data => x_msg_data);
3230:
3231: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3232: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3233: ELSIF x_return_status = G_RET_STS_ERROR THEN
3234: RAISE OKL_API.G_EXCEPTION_ERROR;
3235: END IF;
3236:
3230:
3231: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3232: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3233: ELSIF x_return_status = G_RET_STS_ERROR THEN
3234: RAISE OKL_API.G_EXCEPTION_ERROR;
3235: END IF;
3236:
3237: EXCEPTION
3238:
3235: END IF;
3236:
3237: EXCEPTION
3238:
3239: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3240: x_return_status := G_RET_STS_ERROR;
3241:
3242: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3243: x_return_status := G_RET_STS_UNEXP_ERROR;
3238:
3239: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3240: x_return_status := G_RET_STS_ERROR;
3241:
3242: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3243: x_return_status := G_RET_STS_UNEXP_ERROR;
3244:
3245: WHEN OTHERS THEN
3246: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3242: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3243: x_return_status := G_RET_STS_UNEXP_ERROR;
3244:
3245: WHEN OTHERS THEN
3246: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3247: p_msg_name => G_DB_ERROR,
3248: p_token1 => G_PROG_NAME_TOKEN,
3249: p_token1_value => l_program_name,
3250: p_token2 => G_SQLCODE_TOKEN,
3310: ,x_return_status => x_return_status );
3311: lp_lease_qte_rec.id := p_quote_id;
3312:
3313: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3315: ELSIF x_return_status = G_RET_STS_ERROR THEN
3316: RAISE OKL_API.G_EXCEPTION_ERROR;
3317: END IF;
3318:
3312:
3313: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3315: ELSIF x_return_status = G_RET_STS_ERROR THEN
3316: RAISE OKL_API.G_EXCEPTION_ERROR;
3317: END IF;
3318:
3319: OPEN get_asset_count(p_quote_id);
3320: FETCH get_asset_count INTO lp_asset_count;
3325: get_asset_rec(p_asset_id => quote_asset_rec.id
3326: ,x_asset_rec => lp_asset_tbl(i)
3327: ,x_return_status => x_return_status);
3328: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3329: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3330: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3331: RAISE OKL_API.G_EXCEPTION_ERROR;
3332: END IF;
3333: i := i + 1;
3327: ,x_return_status => x_return_status);
3328: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3329: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3330: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3331: RAISE OKL_API.G_EXCEPTION_ERROR;
3332: END IF;
3333: i := i + 1;
3334: END LOOP;
3335: --Delete all Lease Quote Consolidated Cash Flows
3342: ,x_msg_count => x_msg_count
3343: ,x_msg_data => x_msg_data);
3344:
3345: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3347: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3348: RAISE OKL_API.G_EXCEPTION_ERROR;
3349: END IF;
3350: IF(lp_asset_count > 1) THEN
3344:
3345: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3347: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3348: RAISE OKL_API.G_EXCEPTION_ERROR;
3349: END IF;
3350: IF(lp_asset_count > 1) THEN
3351: lp_lease_qte_rec.STRUCTURED_PRICING := NULL;
3352: lp_lease_qte_rec.LINE_LEVEL_PRICING := 'Y';
3364: ,x_msg_count => x_msg_count
3365: ,x_msg_data => x_msg_data);
3366:
3367: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3368: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3369: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3370: RAISE OKL_API.G_EXCEPTION_ERROR;
3371: END IF;
3372: --Delete Cash Flows for Quote Completed
3366:
3367: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3368: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3369: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3370: RAISE OKL_API.G_EXCEPTION_ERROR;
3371: END IF;
3372: --Delete Cash Flows for Quote Completed
3373: --Loop on All Assets ;Set Sp=Y Nullified SRT and change all cash flows from
3374: --Work to Current
3387: ,x_return_status => x_return_status
3388: ,x_msg_count => x_msg_count
3389: ,x_msg_data => x_msg_data);
3390: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3392: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3393: RAISE OKL_API.G_EXCEPTION_ERROR;
3394: END IF;
3395:
3389: ,x_msg_data => x_msg_data);
3390: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3392: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3393: RAISE OKL_API.G_EXCEPTION_ERROR;
3394: END IF;
3395:
3396: okl_ass_pvt.update_row (p_api_version => G_API_VERSION
3397: ,p_init_msg_list => G_FALSE
3400: ,x_msg_data => x_msg_data
3401: ,p_assv_rec => lp_asset_tbl(i)
3402: ,x_assv_rec => lx_asset_rec);
3403: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3404: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3405: ELSIF x_return_status = G_RET_STS_ERROR THEN
3406: RAISE OKL_API.G_EXCEPTION_ERROR;
3407: END IF;
3408:
3402: ,x_assv_rec => lx_asset_rec);
3403: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3404: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3405: ELSIF x_return_status = G_RET_STS_ERROR THEN
3406: RAISE OKL_API.G_EXCEPTION_ERROR;
3407: END IF;
3408:
3409:
3410:
3421: ,x_return_status => x_return_status
3422: ,x_msg_count => x_msg_count
3423: ,x_msg_data => x_msg_data);
3424: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3426: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3427: RAISE OKL_API.G_EXCEPTION_ERROR;
3428: END IF;
3429:
3423: ,x_msg_data => x_msg_data);
3424: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3426: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3427: RAISE OKL_API.G_EXCEPTION_ERROR;
3428: END IF;
3429:
3430: FOR i IN lp_asset_tbl.FIRST..lp_asset_tbl.LAST LOOP
3431: IF(lp_asset_tbl.EXISTS(i)) THEN
3445: ,x_msg_count => x_msg_count
3446: ,x_msg_data => x_msg_data);
3447:
3448: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3449: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3450: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3451: RAISE OKL_API.G_EXCEPTION_ERROR;
3452: END IF;
3453:
3447:
3448: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3449: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3450: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3451: RAISE OKL_API.G_EXCEPTION_ERROR;
3452: END IF;
3453:
3454: okl_ass_pvt.update_row (p_api_version => G_API_VERSION
3455: ,p_init_msg_list => G_FALSE
3458: ,x_msg_data => x_msg_data
3459: ,p_assv_rec => lp_asset_tbl(i)
3460: ,x_assv_rec => lx_asset_rec);
3461: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3462: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3463: ELSIF x_return_status = G_RET_STS_ERROR THEN
3464: RAISE OKL_API.G_EXCEPTION_ERROR;
3465: END IF;
3466:
3460: ,x_assv_rec => lx_asset_rec);
3461: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3462: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3463: ELSIF x_return_status = G_RET_STS_ERROR THEN
3464: RAISE OKL_API.G_EXCEPTION_ERROR;
3465: END IF;
3466:
3467: END IF;
3468: END LOOP;
3491: ,p_lsqv_rec => lp_lease_qte_rec
3492: ,x_lsqv_rec => lx_lease_qte_rec );
3493:
3494: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3495: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3496: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3497: RAISE OKL_API.G_EXCEPTION_ERROR;
3498: END IF;
3499:
3493:
3494: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3495: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3496: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3497: RAISE OKL_API.G_EXCEPTION_ERROR;
3498: END IF;
3499:
3500: EXCEPTION
3501:
3498: END IF;
3499:
3500: EXCEPTION
3501:
3502: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3503:
3504: IF p_transaction_control = G_TRUE THEN
3505: ROLLBACK TO l_program_name;
3506: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3507: END IF;
3508:
3509: x_return_status := G_RET_STS_ERROR;
3510:
3511: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3512:
3513: IF p_transaction_control = G_TRUE THEN
3514: ROLLBACK TO l_program_name;
3515: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3518: x_return_status := G_RET_STS_UNEXP_ERROR;
3519:
3520: WHEN OTHERS THEN
3521:
3522: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3523: p_msg_name => G_DB_ERROR,
3524: p_token1 => G_PROG_NAME_TOKEN,
3525: p_token1_value => l_api_name,
3526: p_token2 => G_SQLCODE_TOKEN,
3664: FND_MSG_PUB.initialize;
3665: END IF;
3666:
3667: IF p_quote_id IS NULL THEN
3668: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3669: p_msg_name => 'OKL_INVALID_SALES_QUOTE');
3670: RAISE OKL_API.G_EXCEPTION_ERROR;
3671: END IF;
3672:
3666:
3667: IF p_quote_id IS NULL THEN
3668: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3669: p_msg_name => 'OKL_INVALID_SALES_QUOTE');
3670: RAISE OKL_API.G_EXCEPTION_ERROR;
3671: END IF;
3672:
3673: -- Calculate Sales tax
3674: OKL_PROCESS_SALES_TAX_PVT.calculate_sales_tax(p_api_version => p_api_version,
3679: p_source_trx_id => p_quote_id,
3680: p_source_trx_name => 'Sales Quote',
3681: p_source_table => 'OKL_LEASE_QUOTES_B');
3682: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3683: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3684: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3685: RAISE OKL_API.G_EXCEPTION_ERROR;
3686: END IF;
3687:
3681: p_source_table => 'OKL_LEASE_QUOTES_B');
3682: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3683: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3684: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3685: RAISE OKL_API.G_EXCEPTION_ERROR;
3686: END IF;
3687:
3688: -- Create the Upfront tax fee only if the tax amount returned is > 0
3689: -- based on the setup defined on Lease Quote/ Lease Application
3752: ,x_return_status => x_return_status
3753: ,x_msg_count => x_msg_count
3754: ,x_msg_data => x_msg_data );
3755: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3757: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3758: RAISE OKL_API.G_EXCEPTION_ERROR;
3759: END IF;
3760:
3754: ,x_msg_data => x_msg_data );
3755: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3757: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3758: RAISE OKL_API.G_EXCEPTION_ERROR;
3759: END IF;
3760:
3761: ELSE -- Tax fee exists .. update it
3762:
3826: ,x_return_status => x_return_status
3827: ,x_msg_count => x_msg_count
3828: ,x_msg_data => x_msg_data );
3829: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3831: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3832: RAISE OKL_API.G_EXCEPTION_ERROR;
3833: END IF;
3834:
3828: ,x_msg_data => x_msg_data );
3829: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3831: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3832: RAISE OKL_API.G_EXCEPTION_ERROR;
3833: END IF;
3834:
3835: END IF;
3836: END IF;
3844: p_qte_status => 'PR-INCOMPLETE',
3845: x_return_status => x_return_status);
3846:
3847: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3848: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3849: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3850: RAISE OKL_API.G_EXCEPTION_ERROR;
3851: END IF;
3852: END IF;
3846:
3847: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3848: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3849: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3850: RAISE OKL_API.G_EXCEPTION_ERROR;
3851: END IF;
3852: END IF;
3853:
3854: IF (l_parent_object_code = 'LEASEAPP') THEN
3859: x_return_status => x_return_status,
3860: x_msg_count => x_msg_count,
3861: x_msg_data => x_msg_data);
3862: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3864: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3865: RAISE OKL_API.G_EXCEPTION_ERROR;
3866: END IF;
3867: END IF;
3861: x_msg_data => x_msg_data);
3862: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3864: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3865: RAISE OKL_API.G_EXCEPTION_ERROR;
3866: END IF;
3867: END IF;
3868:
3869: END IF;
3871: END IF;
3872:
3873: EXCEPTION
3874:
3875: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3876: IF p_transaction_control = G_TRUE THEN
3877: ROLLBACK TO l_program_name;
3878: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3879: END IF;
3878: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3879: END IF;
3880: x_return_status := G_RET_STS_ERROR;
3881:
3882: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3883: IF p_transaction_control = G_TRUE THEN
3884: ROLLBACK TO l_program_name;
3885: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3886: END IF;
3886: END IF;
3887: x_return_status := G_RET_STS_UNEXP_ERROR;
3888:
3889: WHEN OTHERS THEN
3890: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3891: p_msg_name => G_DB_ERROR,
3892: p_token1 => G_PROG_NAME_TOKEN,
3893: p_token1_value => l_api_name,
3894: p_token2 => G_SQLCODE_TOKEN,