[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: OKL_API.SET_MESSAGE (
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: OKL_API.SET_MESSAGE (
397: p_app_name => G_APP_NAME
398: ,p_msg_name => 'OKL_QUOTE_INVALID_DELV_DATE'
399: ,p_token1 => 'LEASEOPP_DATE'
400: ,p_token1_value => l_formatted_date
398: ,p_msg_name => 'OKL_QUOTE_INVALID_DELV_DATE'
399: ,p_token1 => 'LEASEOPP_DATE'
400: ,p_token1_value => l_formatted_date
401: );
402: RAISE OKL_API.G_EXCEPTION_ERROR;
403: END IF;
404:
405: IF p_lease_qte_rec.term <= 0 THEN
406: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_INVALID_QUOTE_TERM');
402: RAISE OKL_API.G_EXCEPTION_ERROR;
403: END IF;
404:
405: IF p_lease_qte_rec.term <= 0 THEN
406: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_INVALID_QUOTE_TERM');
407: RAISE OKL_API.G_EXCEPTION_ERROR;
408: END IF;
409:
410: IF (p_lease_qte_rec.term <> TRUNC(p_lease_qte_rec.term)) THEN
403: END IF;
404:
405: IF p_lease_qte_rec.term <= 0 THEN
406: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_INVALID_QUOTE_TERM');
407: RAISE OKL_API.G_EXCEPTION_ERROR;
408: END IF;
409:
410: IF (p_lease_qte_rec.term <> TRUNC(p_lease_qte_rec.term)) THEN
411: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_INVALID_QUOTE_TERM2');
407: RAISE OKL_API.G_EXCEPTION_ERROR;
408: END IF;
409:
410: IF (p_lease_qte_rec.term <> TRUNC(p_lease_qte_rec.term)) THEN
411: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_INVALID_QUOTE_TERM2');
412: RAISE OKL_API.G_EXCEPTION_ERROR;
413: END IF;
414: --asawanka bug 4923624 changes start
415: IF (p_lease_qte_rec.valid_from IS NULL OR p_lease_qte_rec.valid_from = OKL_API.G_MISS_DATE )
408: END IF;
409:
410: IF (p_lease_qte_rec.term <> TRUNC(p_lease_qte_rec.term)) THEN
411: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_INVALID_QUOTE_TERM2');
412: RAISE OKL_API.G_EXCEPTION_ERROR;
413: END IF;
414: --asawanka bug 4923624 changes start
415: IF (p_lease_qte_rec.valid_from IS NULL OR p_lease_qte_rec.valid_from = OKL_API.G_MISS_DATE )
416: AND(p_lease_qte_rec.valid_to IS NOT NULL AND p_lease_qte_rec.valid_to <> OKL_API.G_MISS_DATE )THEN
411: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_INVALID_QUOTE_TERM2');
412: RAISE OKL_API.G_EXCEPTION_ERROR;
413: END IF;
414: --asawanka bug 4923624 changes start
415: IF (p_lease_qte_rec.valid_from IS NULL OR p_lease_qte_rec.valid_from = OKL_API.G_MISS_DATE )
416: AND(p_lease_qte_rec.valid_to IS NOT NULL AND p_lease_qte_rec.valid_to <> OKL_API.G_MISS_DATE )THEN
417: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_REQUIRED_VALID_FROM');
418: RAISE OKL_API.G_EXCEPTION_ERROR;
419: END IF;
412: RAISE OKL_API.G_EXCEPTION_ERROR;
413: END IF;
414: --asawanka bug 4923624 changes start
415: IF (p_lease_qte_rec.valid_from IS NULL OR p_lease_qte_rec.valid_from = OKL_API.G_MISS_DATE )
416: AND(p_lease_qte_rec.valid_to IS NOT NULL AND p_lease_qte_rec.valid_to <> OKL_API.G_MISS_DATE )THEN
417: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_REQUIRED_VALID_FROM');
418: RAISE OKL_API.G_EXCEPTION_ERROR;
419: END IF;
420:
413: END IF;
414: --asawanka bug 4923624 changes start
415: IF (p_lease_qte_rec.valid_from IS NULL OR p_lease_qte_rec.valid_from = OKL_API.G_MISS_DATE )
416: AND(p_lease_qte_rec.valid_to IS NOT NULL AND p_lease_qte_rec.valid_to <> OKL_API.G_MISS_DATE )THEN
417: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_REQUIRED_VALID_FROM');
418: RAISE OKL_API.G_EXCEPTION_ERROR;
419: END IF;
420:
421: 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
414: --asawanka bug 4923624 changes start
415: IF (p_lease_qte_rec.valid_from IS NULL OR p_lease_qte_rec.valid_from = OKL_API.G_MISS_DATE )
416: AND(p_lease_qte_rec.valid_to IS NOT NULL AND p_lease_qte_rec.valid_to <> OKL_API.G_MISS_DATE )THEN
417: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_REQUIRED_VALID_FROM');
418: RAISE OKL_API.G_EXCEPTION_ERROR;
419: END IF;
420:
421: 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
422: IF p_lease_qte_rec.valid_to < p_lease_qte_rec.valid_from THEN
417: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_REQUIRED_VALID_FROM');
418: RAISE OKL_API.G_EXCEPTION_ERROR;
419: END IF;
420:
421: 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
422: IF p_lease_qte_rec.valid_to < p_lease_qte_rec.valid_from THEN
423: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_INVALID_VALID_TO');
424: RAISE OKL_API.G_EXCEPTION_ERROR;
425: END IF;
419: END IF;
420:
421: 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
422: IF p_lease_qte_rec.valid_to < p_lease_qte_rec.valid_from THEN
423: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_INVALID_VALID_TO');
424: RAISE OKL_API.G_EXCEPTION_ERROR;
425: END IF;
426: END IF;
427: --asawanka bug 4923624 changes end
420:
421: 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
422: IF p_lease_qte_rec.valid_to < p_lease_qte_rec.valid_from THEN
423: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_INVALID_VALID_TO');
424: RAISE OKL_API.G_EXCEPTION_ERROR;
425: END IF;
426: END IF;
427: --asawanka bug 4923624 changes end
428:
430: validate_le_id(p_le_id => p_lease_qte_rec.legal_entity_id,
431: p_parent_obj_code => p_lease_qte_rec.parent_object_code,
432: x_return_status => x_return_status );
433: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
434: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
435: ELSIF x_return_status = G_RET_STS_ERROR THEN
436: RAISE OKL_API.G_EXCEPTION_ERROR;
437: END IF;
438: --Fixed Bug # 5647107 added Bug ssdeshpa end
432: x_return_status => x_return_status );
433: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
434: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
435: ELSIF x_return_status = G_RET_STS_ERROR THEN
436: RAISE OKL_API.G_EXCEPTION_ERROR;
437: END IF;
438: --Fixed Bug # 5647107 added Bug ssdeshpa end
439:
440: x_return_status := G_RET_STS_SUCCESS;
440: x_return_status := G_RET_STS_SUCCESS;
441:
442: EXCEPTION
443:
444: WHEN OKL_API.G_EXCEPTION_ERROR THEN
445:
446: x_return_status := G_RET_STS_ERROR;
447:
448: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
444: WHEN OKL_API.G_EXCEPTION_ERROR THEN
445:
446: x_return_status := G_RET_STS_ERROR;
447:
448: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
449:
450: x_return_status := G_RET_STS_UNEXP_ERROR;
451:
452: WHEN OTHERS THEN
450: x_return_status := G_RET_STS_UNEXP_ERROR;
451:
452: WHEN OTHERS THEN
453:
454: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
455: p_msg_name => G_DB_ERROR,
456: p_token1 => G_PROG_NAME_TOKEN,
457: p_token1_value => l_api_name,
458: p_token2 => G_SQLCODE_TOKEN,
510: x_return_status := G_RET_STS_SUCCESS;
511:
512: EXCEPTION
513:
514: WHEN OKL_API.G_EXCEPTION_ERROR THEN
515: x_return_status := G_RET_STS_ERROR;
516:
517: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
518: x_return_status := G_RET_STS_UNEXP_ERROR;
513:
514: WHEN OKL_API.G_EXCEPTION_ERROR THEN
515: x_return_status := G_RET_STS_ERROR;
516:
517: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
518: x_return_status := G_RET_STS_UNEXP_ERROR;
519:
520: WHEN OTHERS THEN
521: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
517: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
518: x_return_status := G_RET_STS_UNEXP_ERROR;
519:
520: WHEN OTHERS THEN
521: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
522: p_msg_name => G_DB_ERROR,
523: p_token1 => G_PROG_NAME_TOKEN,
524: p_token1_value => l_program_name,
525: p_token2 => G_SQLCODE_TOKEN,
567: x_return_status := G_RET_STS_SUCCESS;
568:
569: EXCEPTION
570:
571: WHEN OKL_API.G_EXCEPTION_ERROR THEN
572: x_return_status := G_RET_STS_ERROR;
573:
574: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
575: x_return_status := G_RET_STS_UNEXP_ERROR;
570:
571: WHEN OKL_API.G_EXCEPTION_ERROR THEN
572: x_return_status := G_RET_STS_ERROR;
573:
574: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
575: x_return_status := G_RET_STS_UNEXP_ERROR;
576:
577: WHEN OTHERS THEN
578: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
574: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
575: x_return_status := G_RET_STS_UNEXP_ERROR;
576:
577: WHEN OTHERS THEN
578: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
579: p_msg_name => G_DB_ERROR,
580: p_token1 => G_PROG_NAME_TOKEN,
581: p_token1_value => l_program_name,
582: p_token2 => G_SQLCODE_TOKEN,
746: x_return_status := G_RET_STS_SUCCESS;
747:
748: EXCEPTION
749:
750: WHEN OKL_API.G_EXCEPTION_ERROR THEN
751: x_return_status := G_RET_STS_ERROR;
752:
753: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
754: x_return_status := G_RET_STS_UNEXP_ERROR;
749:
750: WHEN OKL_API.G_EXCEPTION_ERROR THEN
751: x_return_status := G_RET_STS_ERROR;
752:
753: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
754: x_return_status := G_RET_STS_UNEXP_ERROR;
755:
756: WHEN OTHERS THEN
757: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
753: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
754: x_return_status := G_RET_STS_UNEXP_ERROR;
755:
756: WHEN OTHERS THEN
757: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
758: p_msg_name => G_DB_ERROR,
759: p_token1 => G_PROG_NAME_TOKEN,
760: p_token1_value => l_program_name,
761: p_token2 => G_SQLCODE_TOKEN,
816: ,x_msg_count => x_msg_count
817: ,x_msg_data => x_msg_data );
818:
819: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
821: ELSIF x_return_status = G_RET_STS_ERROR THEN
822: RAISE OKL_API.G_EXCEPTION_ERROR;
823: END IF;
824: END LOOP;
818:
819: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
821: ELSIF x_return_status = G_RET_STS_ERROR THEN
822: RAISE OKL_API.G_EXCEPTION_ERROR;
823: END IF;
824: END LOOP;
825:
826: -- Cancel Fees
833: ,x_return_status => x_return_status
834: ,x_msg_count => x_msg_count
835: ,x_msg_data => x_msg_data );
836: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
837: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
838: ELSIF x_return_status = G_RET_STS_ERROR THEN
839: RAISE OKL_API.G_EXCEPTION_ERROR;
840: END IF;
841: END LOOP;
835: ,x_msg_data => x_msg_data );
836: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
837: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
838: ELSIF x_return_status = G_RET_STS_ERROR THEN
839: RAISE OKL_API.G_EXCEPTION_ERROR;
840: END IF;
841: END LOOP;
842:
843: -- Cancel Services
850: ,x_return_status => x_return_status
851: ,x_msg_count => x_msg_count
852: ,x_msg_data => x_msg_data );
853: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
854: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
855: ELSIF x_return_status = G_RET_STS_ERROR THEN
856: RAISE OKL_API.G_EXCEPTION_ERROR;
857: END IF;
858: END LOOP;
852: ,x_msg_data => x_msg_data );
853: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
854: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
855: ELSIF x_return_status = G_RET_STS_ERROR THEN
856: RAISE OKL_API.G_EXCEPTION_ERROR;
857: END IF;
858: END LOOP;
859:
860: -- Cancel Insurance Estimates
867: ,x_return_status => x_return_status
868: ,x_msg_count => x_msg_count
869: ,x_msg_data => x_msg_data );
870: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
871: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
872: ELSIF x_return_status = G_RET_STS_ERROR THEN
873: RAISE OKL_API.G_EXCEPTION_ERROR;
874: END IF;
875: END LOOP;
869: ,x_msg_data => x_msg_data );
870: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
871: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
872: ELSIF x_return_status = G_RET_STS_ERROR THEN
873: RAISE OKL_API.G_EXCEPTION_ERROR;
874: END IF;
875: END LOOP;
876:
877: x_return_status := G_RET_STS_SUCCESS;
877: x_return_status := G_RET_STS_SUCCESS;
878:
879: EXCEPTION
880:
881: WHEN OKL_API.G_EXCEPTION_ERROR THEN
882:
883: x_return_status := G_RET_STS_ERROR;
884:
885: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
881: WHEN OKL_API.G_EXCEPTION_ERROR THEN
882:
883: x_return_status := G_RET_STS_ERROR;
884:
885: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
886:
887: x_return_status := G_RET_STS_UNEXP_ERROR;
888:
889: WHEN OTHERS THEN
887: x_return_status := G_RET_STS_UNEXP_ERROR;
888:
889: WHEN OTHERS THEN
890:
891: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
892: p_msg_name => G_DB_ERROR,
893: p_token1 => G_PROG_NAME_TOKEN,
894: p_token1_value => l_api_name,
895: p_token2 => G_SQLCODE_TOKEN,
960: validate_lease_qte(p_lease_qte_rec => l_lease_qte_rec,
961: x_return_status => l_return_status);
962:
963: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
964: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
965: ELSIF l_return_status = G_RET_STS_ERROR THEN
966: RAISE OKL_API.G_EXCEPTION_ERROR;
967: END IF;
968:
962:
963: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
964: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
965: ELSIF l_return_status = G_RET_STS_ERROR THEN
966: RAISE OKL_API.G_EXCEPTION_ERROR;
967: END IF;
968:
969: --Bug 7022258-Added by kkorrapo
970: 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);
969: --Bug 7022258-Added by kkorrapo
970: 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);
971:
972: IF (l_refno_unq_chk = 'N') THEN
973: RAISE OKL_API.G_EXCEPTION_ERROR;
974: END IF;
975: --Bug 7022258--Addition end
976:
977: okl_lsq_pvt.insert_row(
983: ,p_lsqv_rec => l_lease_qte_rec
984: ,x_lsqv_rec => x_lease_qte_rec );
985:
986: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
987: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
988: ELSIF l_return_status = G_RET_STS_ERROR THEN
989: RAISE OKL_API.G_EXCEPTION_ERROR;
990: END IF;
991:
985:
986: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
987: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
988: ELSIF l_return_status = G_RET_STS_ERROR THEN
989: RAISE OKL_API.G_EXCEPTION_ERROR;
990: END IF;
991:
992: -- if the quote is created from OCM, it is an alternate offer
993: -- Bug#4741121 - viselvar - Modified - Start
1004: ,p_event_name => p_event_name
1005: ,p_parameters => l_parameter_list);
1006:
1007: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1009: ELSIF l_return_status = G_RET_STS_ERROR THEN
1010: RAISE OKL_API.G_EXCEPTION_ERROR;
1011: END IF;
1012:
1006:
1007: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1009: ELSIF l_return_status = G_RET_STS_ERROR THEN
1010: RAISE OKL_API.G_EXCEPTION_ERROR;
1011: END IF;
1012:
1013: END IF;
1014: -- Bug#4741121 - viselvar - Modified - End
1016: x_return_status := l_return_status;
1017:
1018: EXCEPTION
1019:
1020: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1021:
1022: IF p_transaction_control = G_TRUE THEN
1023: ROLLBACK TO l_program_name;
1024: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1025: END IF;
1026:
1027: x_return_status := G_RET_STS_ERROR;
1028:
1029: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1030:
1031: IF p_transaction_control = G_TRUE THEN
1032: ROLLBACK TO l_program_name;
1033: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1036: x_return_status := G_RET_STS_UNEXP_ERROR;
1037:
1038: WHEN OTHERS THEN
1039:
1040: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1041: p_msg_name => G_DB_ERROR,
1042: p_token1 => G_PROG_NAME_TOKEN,
1043: p_token1_value => l_api_name,
1044: p_token2 => G_SQLCODE_TOKEN,
1104: FND_MSG_PUB.initialize;
1105: END IF;
1106:
1107: IF ((p_lease_qte_rec.parent_object_code IS NULL OR
1108: p_lease_qte_rec.parent_object_code = OKL_API.G_MISS_CHAR) OR
1109: p_lease_qte_rec.object_version_number IS NULL ) THEN
1110:
1111: lb_validate := FALSE;
1112:
1120: p_contract_start_date => l_lease_qte_rec.expected_start_date,
1121: p_contract_term => l_lease_qte_rec.term,
1122: p_quote_id => l_lease_qte_rec.id);
1123: IF l_term_upd_allowed <> 'Y' THEN
1124: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1125: p_msg_name => 'OKL_LEVEL_EXTENDS_K_END');
1126: RAISE OKL_API.G_EXCEPTION_ERROR;
1127: END IF;
1128: END IF;
1122: p_quote_id => l_lease_qte_rec.id);
1123: IF l_term_upd_allowed <> 'Y' THEN
1124: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1125: p_msg_name => 'OKL_LEVEL_EXTENDS_K_END');
1126: RAISE OKL_API.G_EXCEPTION_ERROR;
1127: END IF;
1128: END IF;
1129: -- End -- Added for Bug# 6930574
1130:
1137:
1138: validate_lease_qte(p_lease_qte_rec => l_lease_qte_rec,
1139: x_return_status => l_return_status);
1140: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1142: ELSIF l_return_status = G_RET_STS_ERROR THEN
1143: RAISE OKL_API.G_EXCEPTION_ERROR;
1144: END IF;
1145:
1139: x_return_status => l_return_status);
1140: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1142: ELSIF l_return_status = G_RET_STS_ERROR THEN
1143: RAISE OKL_API.G_EXCEPTION_ERROR;
1144: END IF;
1145:
1146: -- This populates other quote attributes which are not visible from the
1147: -- update quote page
1150: populate_quote_attribs(p_source_quote_id => l_lease_qte_rec.id,
1151: x_quote_rec => l_lease_qte_rec,
1152: x_return_status => l_return_status);
1153: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1154: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1155: ELSIF l_return_status = G_RET_STS_ERROR THEN
1156: RAISE OKL_API.G_EXCEPTION_ERROR;
1157: END IF;
1158: END IF;
1152: x_return_status => l_return_status);
1153: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1154: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1155: ELSIF l_return_status = G_RET_STS_ERROR THEN
1156: RAISE OKL_API.G_EXCEPTION_ERROR;
1157: END IF;
1158: END IF;
1159:
1160: END IF;
1213: ,p_lsqv_rec => l_lease_qte_rec
1214: ,x_lsqv_rec => x_lease_qte_rec );
1215:
1216: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1217: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1218: ELSIF l_return_status = G_RET_STS_ERROR THEN
1219: RAISE OKL_API.G_EXCEPTION_ERROR;
1220: END IF;
1221:
1215:
1216: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1217: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1218: ELSIF l_return_status = G_RET_STS_ERROR THEN
1219: RAISE OKL_API.G_EXCEPTION_ERROR;
1220: END IF;
1221:
1222: -- Call the Subsidy pool API in case of Counter Offer which has status
1223: -- 'CR-RECOMMENDATION' (Bug 5149367)
1223: -- 'CR-RECOMMENDATION' (Bug 5149367)
1224: IF (l_lease_qte_rec.status = 'CR-RECOMMENDATION' AND l_lease_qte_rec.parent_object_code = 'LEASEAPP') THEN
1225: okl_lease_quote_subpool_pvt.process_leaseapp_subsidy_pool(
1226: p_api_version => p_api_version
1227: ,p_init_msg_list => OKL_API.G_FALSE
1228: ,p_transaction_control => OKL_API.G_TRUE
1229: ,p_leaseapp_id => ln_parent_object_id
1230: ,p_quote_id => l_lease_qte_rec.id
1231: ,p_transaction_reason => 'APPROVE_LEASE_APP_PRICING'
1224: IF (l_lease_qte_rec.status = 'CR-RECOMMENDATION' AND l_lease_qte_rec.parent_object_code = 'LEASEAPP') THEN
1225: okl_lease_quote_subpool_pvt.process_leaseapp_subsidy_pool(
1226: p_api_version => p_api_version
1227: ,p_init_msg_list => OKL_API.G_FALSE
1228: ,p_transaction_control => OKL_API.G_TRUE
1229: ,p_leaseapp_id => ln_parent_object_id
1230: ,p_quote_id => l_lease_qte_rec.id
1231: ,p_transaction_reason => 'APPROVE_LEASE_APP_PRICING'
1232: ,x_return_status => l_return_status
1232: ,x_return_status => l_return_status
1233: ,x_msg_count => x_msg_count
1234: ,x_msg_data => x_msg_data);
1235: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1237: ELSIF l_return_status = G_RET_STS_ERROR THEN
1238: RAISE OKL_API.G_EXCEPTION_ERROR;
1239: END IF;
1240: END IF;
1234: ,x_msg_data => x_msg_data);
1235: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1237: ELSIF l_return_status = G_RET_STS_ERROR THEN
1238: RAISE OKL_API.G_EXCEPTION_ERROR;
1239: END IF;
1240: END IF;
1241: -- End Bug 5149367
1242:
1259: x_msg_count => x_msg_count,
1260: x_msg_data => x_msg_data);
1261:
1262: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1263: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1264: ELSIF l_return_status = G_RET_STS_ERROR THEN
1265: RAISE OKL_API.G_EXCEPTION_ERROR;
1266: END IF;
1267: END IF;
1261:
1262: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1263: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1264: ELSIF l_return_status = G_RET_STS_ERROR THEN
1265: RAISE OKL_API.G_EXCEPTION_ERROR;
1266: END IF;
1267: END IF;
1268: END IF;
1269:
1278: ,x_return_status => l_return_status
1279: ,x_msg_count => x_msg_count
1280: ,x_msg_data => x_msg_data);
1281: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1283: ELSIF l_return_status = G_RET_STS_ERROR THEN
1284: RAISE OKL_API.G_EXCEPTION_ERROR;
1285: END IF;
1286: ELSIF (lb_handle_subpool AND l_lease_qte_rec.parent_object_code = 'LEASEAPP') THEN
1280: ,x_msg_data => x_msg_data);
1281: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1283: ELSIF l_return_status = G_RET_STS_ERROR THEN
1284: RAISE OKL_API.G_EXCEPTION_ERROR;
1285: END IF;
1286: ELSIF (lb_handle_subpool AND l_lease_qte_rec.parent_object_code = 'LEASEAPP') THEN
1287: okl_lease_quote_subpool_pvt.process_leaseapp_subsidy_pool(
1288: p_api_version => p_api_version
1294: ,x_return_status => l_return_status
1295: ,x_msg_count => x_msg_count
1296: ,x_msg_data => x_msg_data);
1297: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1298: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1299: ELSIF l_return_status = G_RET_STS_ERROR THEN
1300: RAISE OKL_API.G_EXCEPTION_ERROR;
1301: END IF;
1302: END IF;
1296: ,x_msg_data => x_msg_data);
1297: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1298: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1299: ELSIF l_return_status = G_RET_STS_ERROR THEN
1300: RAISE OKL_API.G_EXCEPTION_ERROR;
1301: END IF;
1302: END IF;
1303:
1304: -- Delete quote tax fee if one exists
1308: ,x_msg_count => x_msg_count
1309: ,x_msg_data => x_msg_data
1310: ,p_quote_id => l_lease_qte_rec.id);
1311: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1312: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1313: ELSIF l_return_status = G_RET_STS_ERROR THEN
1314: RAISE OKL_API.G_EXCEPTION_ERROR;
1315: END IF;
1316:
1310: ,p_quote_id => l_lease_qte_rec.id);
1311: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1312: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1313: ELSIF l_return_status = G_RET_STS_ERROR THEN
1314: RAISE OKL_API.G_EXCEPTION_ERROR;
1315: END IF;
1316:
1317: x_return_status := l_return_status;
1318:
1317: x_return_status := l_return_status;
1318:
1319: EXCEPTION
1320:
1321: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1322:
1323: IF p_transaction_control = G_TRUE THEN
1324: ROLLBACK TO l_program_name;
1325: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1326: END IF;
1327:
1328: x_return_status := G_RET_STS_ERROR;
1329:
1330: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1331:
1332: IF p_transaction_control = G_TRUE THEN
1333: ROLLBACK TO l_program_name;
1334: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1337: x_return_status := G_RET_STS_UNEXP_ERROR;
1338:
1339: WHEN OTHERS THEN
1340:
1341: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1342: p_msg_name => G_DB_ERROR,
1343: p_token1 => G_PROG_NAME_TOKEN,
1344: p_token1_value => l_api_name,
1345: p_token2 => G_SQLCODE_TOKEN,
1476: x_return_status := G_RET_STS_SUCCESS;
1477:
1478: EXCEPTION
1479:
1480: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1481: x_return_status := G_RET_STS_ERROR;
1482:
1483: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1484: x_return_status := G_RET_STS_UNEXP_ERROR;
1479:
1480: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1481: x_return_status := G_RET_STS_ERROR;
1482:
1483: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1484: x_return_status := G_RET_STS_UNEXP_ERROR;
1485:
1486: WHEN OTHERS THEN
1487: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1483: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1484: x_return_status := G_RET_STS_UNEXP_ERROR;
1485:
1486: WHEN OTHERS THEN
1487: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1488: p_msg_name => G_DB_ERROR,
1489: p_token1 => G_PROG_NAME_TOKEN,
1490: p_token1_value => l_program_name,
1491: p_token2 => G_SQLCODE_TOKEN,
1549: ,x_msg_data => x_msg_data
1550: );
1551:
1552: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1553: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1554: ELSIF x_return_status = G_RET_STS_ERROR THEN
1555: RAISE OKL_API.G_EXCEPTION_ERROR;
1556: END IF;
1557: END IF;
1551:
1552: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1553: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1554: ELSIF x_return_status = G_RET_STS_ERROR THEN
1555: RAISE OKL_API.G_EXCEPTION_ERROR;
1556: END IF;
1557: END IF;
1558:
1559: -- Check if the Quote has header payments defined
1576: ,x_msg_data => x_msg_data
1577: );
1578:
1579: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1581: ELSIF x_return_status = G_RET_STS_ERROR THEN
1582: RAISE OKL_API.G_EXCEPTION_ERROR;
1583: END IF;
1584: END IF;
1578:
1579: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1581: ELSIF x_return_status = G_RET_STS_ERROR THEN
1582: RAISE OKL_API.G_EXCEPTION_ERROR;
1583: END IF;
1584: END IF;
1585:
1586: x_return_status := G_RET_STS_SUCCESS;
1586: x_return_status := G_RET_STS_SUCCESS;
1587:
1588: EXCEPTION
1589:
1590: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1591:
1592: x_return_status := G_RET_STS_ERROR;
1593:
1594: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1590: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1591:
1592: x_return_status := G_RET_STS_ERROR;
1593:
1594: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1595:
1596: x_return_status := G_RET_STS_UNEXP_ERROR;
1597:
1598: WHEN OTHERS THEN
1596: x_return_status := G_RET_STS_UNEXP_ERROR;
1597:
1598: WHEN OTHERS THEN
1599:
1600: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1601: p_msg_name => G_DB_ERROR,
1602: p_token1 => G_PROG_NAME_TOKEN,
1603: p_token1_value => l_api_name,
1604: p_token2 => G_SQLCODE_TOKEN,
1654: ,x_return_status => x_return_status
1655: ,x_msg_count => x_msg_count
1656: ,x_msg_data => x_msg_data );
1657: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1658: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1659: ELSIF x_return_status = G_RET_STS_ERROR THEN
1660: RAISE OKL_API.G_EXCEPTION_ERROR;
1661: END IF;
1662: END LOOP;
1656: ,x_msg_data => x_msg_data );
1657: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1658: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1659: ELSIF x_return_status = G_RET_STS_ERROR THEN
1660: RAISE OKL_API.G_EXCEPTION_ERROR;
1661: END IF;
1662: END LOOP;
1663:
1664: -- Copy Configuration Fees
1673: ,x_return_status => x_return_status
1674: ,x_msg_count => x_msg_count
1675: ,x_msg_data => x_msg_data );
1676: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1677: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1678: ELSIF x_return_status = G_RET_STS_ERROR THEN
1679: RAISE OKL_API.G_EXCEPTION_ERROR;
1680: END IF;
1681:
1675: ,x_msg_data => x_msg_data );
1676: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1677: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1678: ELSIF x_return_status = G_RET_STS_ERROR THEN
1679: RAISE OKL_API.G_EXCEPTION_ERROR;
1680: END IF;
1681:
1682: END LOOP;
1683:
1684: x_return_status := G_RET_STS_SUCCESS;
1685:
1686: EXCEPTION
1687:
1688: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1689:
1690: x_return_status := G_RET_STS_ERROR;
1691:
1692: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1688: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1689:
1690: x_return_status := G_RET_STS_ERROR;
1691:
1692: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1693:
1694: x_return_status := G_RET_STS_UNEXP_ERROR;
1695:
1696: WHEN OTHERS THEN
1694: x_return_status := G_RET_STS_UNEXP_ERROR;
1695:
1696: WHEN OTHERS THEN
1697:
1698: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1699: p_msg_name => G_DB_ERROR,
1700: p_token1 => G_PROG_NAME_TOKEN,
1701: p_token1_value => l_api_name,
1702: p_token2 => G_SQLCODE_TOKEN,
1751: ,x_return_status => x_return_status
1752: ,x_msg_count => x_msg_count
1753: ,x_msg_data => x_msg_data );
1754: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1756: ELSIF x_return_status = G_RET_STS_ERROR THEN
1757: RAISE OKL_API.G_EXCEPTION_ERROR;
1758: END IF;
1759: END LOOP;
1753: ,x_msg_data => x_msg_data );
1754: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1756: ELSIF x_return_status = G_RET_STS_ERROR THEN
1757: RAISE OKL_API.G_EXCEPTION_ERROR;
1758: END IF;
1759: END LOOP;
1760:
1761: -- Copy Non-Configuration Fees
1770: ,x_return_status => x_return_status
1771: ,x_msg_count => x_msg_count
1772: ,x_msg_data => x_msg_data );
1773: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1774: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1775: ELSIF x_return_status = G_RET_STS_ERROR THEN
1776: RAISE OKL_API.G_EXCEPTION_ERROR;
1777: END IF;
1778:
1772: ,x_msg_data => x_msg_data );
1773: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1774: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1775: ELSIF x_return_status = G_RET_STS_ERROR THEN
1776: RAISE OKL_API.G_EXCEPTION_ERROR;
1777: END IF;
1778:
1779: END LOOP;
1780:
1781: x_return_status := G_RET_STS_SUCCESS;
1782:
1783: EXCEPTION
1784:
1785: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1786:
1787: x_return_status := G_RET_STS_ERROR;
1788:
1789: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1785: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1786:
1787: x_return_status := G_RET_STS_ERROR;
1788:
1789: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1790:
1791: x_return_status := G_RET_STS_UNEXP_ERROR;
1792:
1793: WHEN OTHERS THEN
1791: x_return_status := G_RET_STS_UNEXP_ERROR;
1792:
1793: WHEN OTHERS THEN
1794:
1795: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1796: p_msg_name => G_DB_ERROR,
1797: p_token1 => G_PROG_NAME_TOKEN,
1798: p_token1_value => l_api_name,
1799: p_token2 => G_SQLCODE_TOKEN,
1856: ,x_return_status => x_return_status
1857: ,x_msg_count => x_msg_count
1858: ,x_msg_data => x_msg_data );
1859: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1860: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1861: ELSIF x_return_status = G_RET_STS_ERROR THEN
1862: RAISE OKL_API.G_EXCEPTION_ERROR;
1863: END IF;
1864: END IF;
1858: ,x_msg_data => x_msg_data );
1859: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1860: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1861: ELSIF x_return_status = G_RET_STS_ERROR THEN
1862: RAISE OKL_API.G_EXCEPTION_ERROR;
1863: END IF;
1864: END IF;
1865:
1866: x_return_status := G_RET_STS_SUCCESS;
1866: x_return_status := G_RET_STS_SUCCESS;
1867:
1868: EXCEPTION
1869:
1870: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1871:
1872: x_return_status := G_RET_STS_ERROR;
1873:
1874: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1870: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1871:
1872: x_return_status := G_RET_STS_ERROR;
1873:
1874: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1875:
1876: x_return_status := G_RET_STS_UNEXP_ERROR;
1877:
1878: WHEN OTHERS THEN
1876: x_return_status := G_RET_STS_UNEXP_ERROR;
1877:
1878: WHEN OTHERS THEN
1879:
1880: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1881: p_msg_name => G_DB_ERROR,
1882: p_token1 => G_PROG_NAME_TOKEN,
1883: p_token1_value => l_api_name,
1884: p_token2 => G_SQLCODE_TOKEN,
1948: populate_quote_attribs(p_source_quote_id => p_source_quote_id,
1949: x_quote_rec => l_lease_qte_rec,
1950: x_return_status => x_return_status);
1951: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1952: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1953: ELSIF x_return_status = G_RET_STS_ERROR THEN
1954: RAISE OKL_API.G_EXCEPTION_ERROR;
1955: END IF;
1956:
1950: x_return_status => x_return_status);
1951: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1952: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1953: ELSIF x_return_status = G_RET_STS_ERROR THEN
1954: RAISE OKL_API.G_EXCEPTION_ERROR;
1955: END IF;
1956:
1957: --asawanka bug 4936130 changes start
1958: IF (l_lease_qte_rec.parent_object_code = 'LEASEAPP'
1960: copy_yields(p_source_quote_id => p_source_quote_id,
1961: x_quote_rec => l_lease_qte_rec,
1962: x_return_status => x_return_status);
1963: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1964: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1965: ELSIF x_return_status = G_RET_STS_ERROR THEN
1966: RAISE OKL_API.G_EXCEPTION_ERROR;
1967: END IF;
1968: END IF;
1962: x_return_status => x_return_status);
1963: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1964: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1965: ELSIF x_return_status = G_RET_STS_ERROR THEN
1966: RAISE OKL_API.G_EXCEPTION_ERROR;
1967: END IF;
1968: END IF;
1969: --asawanka bug 4936130 changes end
1970: -- END IF;
1990: x_return_status => x_return_status,
1991: x_msg_count => x_msg_count,
1992: x_msg_data => x_msg_data);
1993: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1995: ELSIF x_return_status = G_RET_STS_ERROR THEN
1996: RAISE OKL_API.G_EXCEPTION_ERROR;
1997: END IF;
1998:
1992: x_msg_data => x_msg_data);
1993: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1995: ELSIF x_return_status = G_RET_STS_ERROR THEN
1996: RAISE OKL_API.G_EXCEPTION_ERROR;
1997: END IF;
1998:
1999: p_target_quote_id := x_lease_qte_rec.id;
2000:
2006: x_msg_count => x_msg_count,
2007: x_msg_data => x_msg_data,
2008: x_return_status => x_return_status);
2009: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2011: ELSIF x_return_status = G_RET_STS_ERROR THEN
2012: RAISE OKL_API.G_EXCEPTION_ERROR;
2013: END IF;
2014: END IF;
2008: x_return_status => x_return_status);
2009: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2011: ELSIF x_return_status = G_RET_STS_ERROR THEN
2012: RAISE OKL_API.G_EXCEPTION_ERROR;
2013: END IF;
2014: END IF;
2015:
2016: copy_configuration_lines(p_api_version => p_api_version,
2020: x_msg_count => x_msg_count,
2021: x_msg_data => x_msg_data,
2022: x_return_status => x_return_status);
2023: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2024: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2025: ELSIF x_return_status = G_RET_STS_ERROR THEN
2026: RAISE OKL_API.G_EXCEPTION_ERROR;
2027: END IF;
2028:
2022: x_return_status => x_return_status);
2023: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2024: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2025: ELSIF x_return_status = G_RET_STS_ERROR THEN
2026: RAISE OKL_API.G_EXCEPTION_ERROR;
2027: END IF;
2028:
2029: copy_cost_adjustments(p_api_version => p_api_version,
2030: p_init_msg_list => p_init_msg_list,
2033: x_msg_count => x_msg_count,
2034: x_msg_data => x_msg_data,
2035: x_return_status => x_return_status);
2036: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2038: ELSIF x_return_status = G_RET_STS_ERROR THEN
2039: RAISE OKL_API.G_EXCEPTION_ERROR;
2040: END IF;
2041:
2035: x_return_status => x_return_status);
2036: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2038: ELSIF x_return_status = G_RET_STS_ERROR THEN
2039: RAISE OKL_API.G_EXCEPTION_ERROR;
2040: END IF;
2041:
2042: copy_addtl_fees_services(p_api_version => p_api_version,
2043: p_init_msg_list => p_init_msg_list,
2046: x_msg_count => x_msg_count,
2047: x_msg_data => x_msg_data,
2048: x_return_status => x_return_status);
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_return_status => x_return_status);
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: -- Delete quote tax fee if one exists
2056: delete_quote_tax_fee( p_api_version => p_api_version
2059: ,x_msg_count => x_msg_count
2060: ,x_msg_data => x_msg_data
2061: ,p_quote_id => p_target_quote_id);
2062: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2064: ELSIF x_return_status = G_RET_STS_ERROR THEN
2065: RAISE OKL_API.G_EXCEPTION_ERROR;
2066: END IF;
2067:
2061: ,p_quote_id => p_target_quote_id);
2062: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2064: ELSIF x_return_status = G_RET_STS_ERROR THEN
2065: RAISE OKL_API.G_EXCEPTION_ERROR;
2066: END IF;
2067:
2068: x_return_status := G_RET_STS_SUCCESS;
2069:
2068: x_return_status := G_RET_STS_SUCCESS;
2069:
2070: EXCEPTION
2071:
2072: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2073:
2074: IF p_transaction_control = G_TRUE THEN
2075: ROLLBACK TO l_program_name;
2076: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2077: END IF;
2078:
2079: x_return_status := G_RET_STS_ERROR;
2080:
2081: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2082:
2083: IF p_transaction_control = G_TRUE THEN
2084: ROLLBACK TO l_program_name;
2085: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2088: x_return_status := G_RET_STS_UNEXP_ERROR;
2089:
2090: WHEN OTHERS THEN
2091:
2092: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2093: p_msg_name => G_DB_ERROR,
2094: p_token1 => G_PROG_NAME_TOKEN,
2095: p_token1_value => l_api_name,
2096: p_token2 => G_SQLCODE_TOKEN,
2135: get_quote_rec ( p_quote_id => p_quote_id,
2136: x_quote_rec => l_quote_rec,
2137: x_return_status => x_return_status );
2138: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2139: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2140: ELSIF x_return_status = G_RET_STS_ERROR THEN
2141: RAISE OKL_API.G_EXCEPTION_ERROR;
2142: END IF;
2143:
2137: x_return_status => x_return_status );
2138: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2139: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2140: ELSIF x_return_status = G_RET_STS_ERROR THEN
2141: RAISE OKL_API.G_EXCEPTION_ERROR;
2142: END IF;
2143:
2144: -- Generate reference number
2145:
2159: x_return_status => x_return_status,
2160: x_msg_count => x_msg_count,
2161: x_msg_data => x_msg_data);
2162: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2164: ELSIF x_return_status = G_RET_STS_ERROR THEN
2165: RAISE OKL_API.G_EXCEPTION_ERROR;
2166: END IF;
2167:
2161: x_msg_data => x_msg_data);
2162: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2164: ELSIF x_return_status = G_RET_STS_ERROR THEN
2165: RAISE OKL_API.G_EXCEPTION_ERROR;
2166: END IF;
2167:
2168: x_return_status := G_RET_STS_SUCCESS;
2169:
2168: x_return_status := G_RET_STS_SUCCESS;
2169:
2170: EXCEPTION
2171:
2172: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2173:
2174: IF p_transaction_control = G_TRUE THEN
2175: ROLLBACK TO l_program_name;
2176: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2177: END IF;
2178:
2179: x_return_status := G_RET_STS_ERROR;
2180:
2181: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2182:
2183: IF p_transaction_control = G_TRUE THEN
2184: ROLLBACK TO l_program_name;
2185: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2188: x_return_status := G_RET_STS_UNEXP_ERROR;
2189:
2190: WHEN OTHERS THEN
2191:
2192: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2193: p_msg_name => G_DB_ERROR,
2194: p_token1 => G_PROG_NAME_TOKEN,
2195: p_token1_value => l_api_name,
2196: p_token2 => G_SQLCODE_TOKEN,
2249: x_return_status := G_RET_STS_SUCCESS;
2250:
2251: EXCEPTION
2252:
2253: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2254:
2255: x_return_status := G_RET_STS_ERROR;
2256:
2257: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2253: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2254:
2255: x_return_status := G_RET_STS_ERROR;
2256:
2257: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2258:
2259: x_return_status := G_RET_STS_UNEXP_ERROR;
2260:
2261: WHEN OTHERS THEN
2259: x_return_status := G_RET_STS_UNEXP_ERROR;
2260:
2261: WHEN OTHERS THEN
2262:
2263: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2264: p_msg_name => G_DB_ERROR,
2265: p_token1 => G_PROG_NAME_TOKEN,
2266: p_token1_value => l_api_name,
2267: p_token2 => G_SQLCODE_TOKEN,
2314: x_msg_count => x_msg_count,
2315: x_msg_data => x_msg_data,
2316: x_return_status => l_return_status);
2317: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
2318: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2319: ELSIF l_return_status = G_RET_STS_ERROR THEN
2320: RAISE OKL_API.G_EXCEPTION_ERROR;
2321: END IF;
2322:
2316: x_return_status => l_return_status);
2317: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
2318: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2319: ELSIF l_return_status = G_RET_STS_ERROR THEN
2320: RAISE OKL_API.G_EXCEPTION_ERROR;
2321: END IF;
2322:
2323: /*cancel_lease_qte_childs(p_lease_qte_rec => p_lease_qte_tbl(i)
2324: ,x_msg_count => x_msg_count
2331: ,x_msg_count => x_msg_count
2332: ,x_msg_data => x_msg_data
2333: ,p_lsqv_rec => p_lease_qte_tbl(i));
2334: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
2335: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2336: ELSIF l_return_status = G_RET_STS_ERROR THEN
2337: RAISE OKL_API.G_EXCEPTION_ERROR;
2338: END IF;
2339:
2333: ,p_lsqv_rec => p_lease_qte_tbl(i));
2334: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
2335: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2336: ELSIF l_return_status = G_RET_STS_ERROR THEN
2337: RAISE OKL_API.G_EXCEPTION_ERROR;
2338: END IF;
2339:
2340: END IF;
2341:
2346: x_return_status := G_RET_STS_SUCCESS;
2347:
2348: EXCEPTION
2349:
2350: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2351:
2352: IF p_transaction_control = G_TRUE THEN
2353: ROLLBACK TO l_program_name;
2354: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2355: END IF;
2356:
2357: x_return_status := G_RET_STS_ERROR;
2358:
2359: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2360:
2361: IF p_transaction_control = G_TRUE THEN
2362: ROLLBACK TO l_program_name;
2363: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2366: x_return_status := G_RET_STS_UNEXP_ERROR;
2367:
2368: WHEN OTHERS THEN
2369:
2370: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2371: p_msg_name => G_DB_ERROR,
2372: p_token1 => G_PROG_NAME_TOKEN,
2373: p_token1_value => l_api_name,
2374: p_token2 => G_SQLCODE_TOKEN,
2415: get_quote_rec ( p_quote_id => p_quote_id,
2416: x_quote_rec => l_lease_qte_rec,
2417: x_return_status => x_return_status );
2418: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2420: ELSIF x_return_status = G_RET_STS_ERROR THEN
2421: RAISE OKL_API.G_EXCEPTION_ERROR;
2422: END IF;
2423:
2417: x_return_status => x_return_status );
2418: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2420: ELSIF x_return_status = G_RET_STS_ERROR THEN
2421: RAISE OKL_API.G_EXCEPTION_ERROR;
2422: END IF;
2423:
2424: --Validate IF Legal Entity Id is present on Quote Bug # 5647107
2425: --If Upfront Tax setup is complete/Changed
2426: validate_le_id(p_le_id => l_lease_qte_rec.legal_entity_id,
2427: p_parent_obj_code => l_lease_qte_rec.parent_object_code,
2428: x_return_status => x_return_status);
2429: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2431: ELSIF x_return_status = G_RET_STS_ERROR THEN
2432: RAISE OKL_API.G_EXCEPTION_ERROR;
2433: END IF;
2434: -- Call Submit workflow
2428: x_return_status => x_return_status);
2429: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2431: ELSIF x_return_status = G_RET_STS_ERROR THEN
2432: RAISE OKL_API.G_EXCEPTION_ERROR;
2433: END IF;
2434: -- Call Submit workflow
2435: okl_lease_quote_workflow_pvt.raise_quote_submit_event(p_quote_id => p_quote_id,
2436: x_return_status => x_return_status);
2434: -- Call Submit workflow
2435: okl_lease_quote_workflow_pvt.raise_quote_submit_event(p_quote_id => p_quote_id,
2436: x_return_status => x_return_status);
2437: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2438: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2439: ELSIF x_return_status = G_RET_STS_ERROR THEN
2440: RAISE OKL_API.G_EXCEPTION_ERROR;
2441: END IF;
2442:
2436: x_return_status => x_return_status);
2437: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2438: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2439: ELSIF x_return_status = G_RET_STS_ERROR THEN
2440: RAISE OKL_API.G_EXCEPTION_ERROR;
2441: END IF;
2442:
2443: -- Handle Subsidy pool usage
2444: IF (l_lease_qte_rec.parent_object_code = 'LEASEOPP') THEN
2451: ,x_return_status => x_return_status
2452: ,x_msg_count => x_msg_count
2453: ,x_msg_data => x_msg_data);
2454: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2456: ELSIF x_return_status = G_RET_STS_ERROR THEN
2457: RAISE OKL_API.G_EXCEPTION_ERROR;
2458: END IF;
2459: END IF;
2453: ,x_msg_data => x_msg_data);
2454: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2456: ELSIF x_return_status = G_RET_STS_ERROR THEN
2457: RAISE OKL_API.G_EXCEPTION_ERROR;
2458: END IF;
2459: END IF;
2460:
2461: x_return_status := G_RET_STS_SUCCESS;
2461: x_return_status := G_RET_STS_SUCCESS;
2462:
2463: EXCEPTION
2464:
2465: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2466:
2467: IF p_transaction_control = G_TRUE THEN
2468: ROLLBACK TO l_program_name;
2469: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2470: END IF;
2471:
2472: x_return_status := G_RET_STS_ERROR;
2473:
2474: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2475:
2476: IF p_transaction_control = G_TRUE THEN
2477: ROLLBACK TO l_program_name;
2478: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2481: x_return_status := G_RET_STS_UNEXP_ERROR;
2482:
2483: WHEN OTHERS THEN
2484:
2485: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2486: p_msg_name => G_DB_ERROR,
2487: p_token1 => G_PROG_NAME_TOKEN,
2488: p_token1_value => l_api_name,
2489: p_token2 => G_SQLCODE_TOKEN,
2541: get_quote_rec ( p_quote_id => p_quote_id,
2542: x_quote_rec => l_lease_qte_rec,
2543: x_return_status => x_return_status );
2544: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2545: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2546: ELSIF x_return_status = G_RET_STS_ERROR THEN
2547: RAISE OKL_API.G_EXCEPTION_ERROR;
2548: END IF;
2549:
2543: x_return_status => x_return_status );
2544: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2545: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2546: ELSIF x_return_status = G_RET_STS_ERROR THEN
2547: RAISE OKL_API.G_EXCEPTION_ERROR;
2548: END IF;
2549:
2550: -- Check if any quote is accepted within this Lease Opportunity
2551: IF (l_lease_qte_rec.parent_object_code = 'LEASEOPP') THEN
2553: FETCH c_chk_accept_lease_qte INTO l_chk_lease_qte;
2554: CLOSE c_chk_accept_lease_qte;
2555:
2556: IF (l_chk_lease_qte = 'Y') THEN
2557: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2558: p_msg_name => 'OKL_CANNOT_ACCEPT_QUOTE');
2559: RAISE OKL_API.G_EXCEPTION_ERROR;
2560: ELSE
2561: --Validate IF Legal Entity Id is present on Quote Bug # 5647107
2555:
2556: IF (l_chk_lease_qte = 'Y') THEN
2557: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2558: p_msg_name => 'OKL_CANNOT_ACCEPT_QUOTE');
2559: RAISE OKL_API.G_EXCEPTION_ERROR;
2560: ELSE
2561: --Validate IF Legal Entity Id is present on Quote Bug # 5647107
2562: --If Upfront Tax setup is complete/Changed
2563: validate_le_id(p_le_id => l_lease_qte_rec.legal_entity_id,
2564: p_parent_obj_code => l_lease_qte_rec.parent_object_code,
2565: x_return_status => x_return_status);
2566:
2567: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2569: ELSIF x_return_status = G_RET_STS_ERROR THEN
2570: RAISE OKL_API.G_EXCEPTION_ERROR;
2571: END IF;
2572: -- Call Accept workflow
2566:
2567: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2569: ELSIF x_return_status = G_RET_STS_ERROR THEN
2570: RAISE OKL_API.G_EXCEPTION_ERROR;
2571: END IF;
2572: -- Call Accept workflow
2573: okl_lease_quote_workflow_pvt.raise_quote_accept_event(p_quote_id => p_quote_id,
2574: x_return_status => x_return_status);
2572: -- Call Accept workflow
2573: okl_lease_quote_workflow_pvt.raise_quote_accept_event(p_quote_id => p_quote_id,
2574: x_return_status => x_return_status);
2575: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2576: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2577: ELSIF x_return_status = G_RET_STS_ERROR THEN
2578: RAISE OKL_API.G_EXCEPTION_ERROR;
2579: END IF;
2580:
2574: x_return_status => x_return_status);
2575: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2576: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2577: ELSIF x_return_status = G_RET_STS_ERROR THEN
2578: RAISE OKL_API.G_EXCEPTION_ERROR;
2579: END IF;
2580:
2581: -- Update the Lease opportunity with status to 'Accepted'
2582: get_leaseopp_rec ( p_leaseopp_id => l_lease_qte_rec.parent_object_id,
2582: get_leaseopp_rec ( p_leaseopp_id => l_lease_qte_rec.parent_object_id,
2583: x_leaseopp_rec => l_lease_opp_rec,
2584: x_return_status => x_return_status );
2585: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2586: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2587: ELSIF x_return_status = G_RET_STS_ERROR THEN
2588: RAISE OKL_API.G_EXCEPTION_ERROR;
2589: END IF;
2590:
2584: x_return_status => x_return_status );
2585: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2586: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2587: ELSIF x_return_status = G_RET_STS_ERROR THEN
2588: RAISE OKL_API.G_EXCEPTION_ERROR;
2589: END IF;
2590:
2591: l_lease_opp_rec.status := 'ACCEPTED';
2592: okl_lop_pvt.update_row(
2597: ,x_msg_data => x_msg_data
2598: ,p_lopv_rec => l_lease_opp_rec
2599: ,x_lopv_rec => x_lease_opp_rec );
2600: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2601: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2602: ELSIF x_return_status = G_RET_STS_ERROR THEN
2603: RAISE OKL_API.G_EXCEPTION_ERROR;
2604: END IF;
2605: END IF;
2599: ,x_lopv_rec => x_lease_opp_rec );
2600: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2601: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2602: ELSIF x_return_status = G_RET_STS_ERROR THEN
2603: RAISE OKL_API.G_EXCEPTION_ERROR;
2604: END IF;
2605: END IF;
2606: END IF;
2607:
2608: x_return_status := G_RET_STS_SUCCESS;
2609:
2610: EXCEPTION
2611:
2612: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2613:
2614: IF p_transaction_control = G_TRUE THEN
2615: ROLLBACK TO l_program_name;
2616: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2617: END IF;
2618:
2619: x_return_status := G_RET_STS_ERROR;
2620:
2621: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2622:
2623: IF p_transaction_control = G_TRUE THEN
2624: ROLLBACK TO l_program_name;
2625: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2628: x_return_status := G_RET_STS_UNEXP_ERROR;
2629:
2630: WHEN OTHERS THEN
2631:
2632: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2633: p_msg_name => G_DB_ERROR,
2634: p_token1 => G_PROG_NAME_TOKEN,
2635: p_token1_value => l_api_name,
2636: p_token2 => G_SQLCODE_TOKEN,
2687: get_quote_rec ( p_quote_id => l_get_quotes.id,
2688: x_quote_rec => l_quote_rec,
2689: x_return_status => x_return_status );
2690: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2692: ELSIF x_return_status = G_RET_STS_ERROR THEN
2693: RAISE OKL_API.G_EXCEPTION_ERROR;
2694: END IF;
2695:
2689: x_return_status => x_return_status );
2690: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2692: ELSIF x_return_status = G_RET_STS_ERROR THEN
2693: RAISE OKL_API.G_EXCEPTION_ERROR;
2694: END IF;
2695:
2696: -- Generate reference number
2697:
2712: x_return_status => x_return_status,
2713: x_msg_count => x_msg_count,
2714: x_msg_data => x_msg_data);
2715: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2717: ELSIF x_return_status = G_RET_STS_ERROR THEN
2718: RAISE OKL_API.G_EXCEPTION_ERROR;
2719: END IF;
2720:
2714: x_msg_data => x_msg_data);
2715: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2717: ELSIF x_return_status = G_RET_STS_ERROR THEN
2718: RAISE OKL_API.G_EXCEPTION_ERROR;
2719: END IF;
2720:
2721: END LOOP;
2722:
2723: x_return_status := G_RET_STS_SUCCESS;
2724:
2725: EXCEPTION
2726:
2727: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2728:
2729: IF p_transaction_control = G_TRUE THEN
2730: ROLLBACK TO l_program_name;
2731: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2732: END IF;
2733:
2734: x_return_status := G_RET_STS_ERROR;
2735:
2736: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2737:
2738: IF p_transaction_control = G_TRUE THEN
2739: ROLLBACK TO l_program_name;
2740: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2743: x_return_status := G_RET_STS_UNEXP_ERROR;
2744:
2745: WHEN OTHERS THEN
2746:
2747: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2748: p_msg_name => G_DB_ERROR,
2749: p_token1 => G_PROG_NAME_TOKEN,
2750: p_token1_value => l_api_name,
2751: p_token2 => G_SQLCODE_TOKEN,
2799: ,x_msg_data => lx_msg_data
2800: ,p_lsqv_rec => l_lease_qte_rec
2801: ,x_lsqv_rec => x_lease_qte_rec );
2802:
2803: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2805: ELSIF lx_return_status = G_RET_STS_ERROR THEN
2806: RAISE OKL_API.G_EXCEPTION_ERROR;
2807: END IF;
2800: ,p_lsqv_rec => l_lease_qte_rec
2801: ,x_lsqv_rec => x_lease_qte_rec );
2802:
2803: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2805: ELSIF lx_return_status = G_RET_STS_ERROR THEN
2806: RAISE OKL_API.G_EXCEPTION_ERROR;
2807: END IF;
2808:
2802:
2803: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2805: ELSIF lx_return_status = G_RET_STS_ERROR THEN
2806: RAISE OKL_API.G_EXCEPTION_ERROR;
2807: END IF;
2808:
2809: x_return_status := lx_return_status;
2810:
2809: x_return_status := lx_return_status;
2810:
2811: EXCEPTION
2812:
2813: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2814:
2815: x_return_status := G_RET_STS_ERROR;
2816:
2817: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2813: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2814:
2815: x_return_status := G_RET_STS_ERROR;
2816:
2817: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2818:
2819: x_return_status := G_RET_STS_UNEXP_ERROR;
2820:
2821: WHEN OTHERS THEN
2819: x_return_status := G_RET_STS_UNEXP_ERROR;
2820:
2821: WHEN OTHERS THEN
2822:
2823: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2824: p_msg_name => G_UNEXPECTED_ERROR,
2825: p_token1 => G_SQLCODE_TOKEN,
2826: p_token1_value => sqlcode,
2827: p_token2 => G_SQLERRM_TOKEN,
2872: get_quote_rec ( p_quote_id => p_quote_id,
2873: x_quote_rec => l_lease_qte_rec,
2874: x_return_status => x_return_status );
2875: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2876: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2877: ELSIF x_return_status = G_RET_STS_ERROR THEN
2878: RAISE OKL_API.G_EXCEPTION_ERROR;
2879: END IF;
2880:
2874: x_return_status => x_return_status );
2875: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2876: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2877: ELSIF x_return_status = G_RET_STS_ERROR THEN
2878: RAISE OKL_API.G_EXCEPTION_ERROR;
2879: END IF;
2880:
2881: change_quote_status(p_quote_id => p_quote_id,
2882: p_qte_status => 'PR-APPROVED',
2881: change_quote_status(p_quote_id => p_quote_id,
2882: p_qte_status => 'PR-APPROVED',
2883: x_return_status => x_return_status);
2884:
2885: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2887: ELSIF x_return_status = G_RET_STS_ERROR THEN
2888: RAISE OKL_API.G_EXCEPTION_ERROR;
2889: END IF;
2882: p_qte_status => 'PR-APPROVED',
2883: x_return_status => x_return_status);
2884:
2885: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2887: ELSIF x_return_status = G_RET_STS_ERROR THEN
2888: RAISE OKL_API.G_EXCEPTION_ERROR;
2889: END IF;
2890:
2884:
2885: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2887: ELSIF x_return_status = G_RET_STS_ERROR THEN
2888: RAISE OKL_API.G_EXCEPTION_ERROR;
2889: END IF;
2890:
2891: -- Check if any quote is accepted within this Lease Opportunity
2892: IF (l_lease_qte_rec.parent_object_code = 'LEASEOPP') THEN
2894: get_leaseopp_rec ( p_leaseopp_id => l_lease_qte_rec.parent_object_id,
2895: x_leaseopp_rec => l_lease_opp_rec,
2896: x_return_status => x_return_status );
2897: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2899: ELSIF x_return_status = G_RET_STS_ERROR THEN
2900: RAISE OKL_API.G_EXCEPTION_ERROR;
2901: END IF;
2902:
2896: x_return_status => x_return_status );
2897: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2899: ELSIF x_return_status = G_RET_STS_ERROR THEN
2900: RAISE OKL_API.G_EXCEPTION_ERROR;
2901: END IF;
2902:
2903: l_lease_opp_rec.status := 'INCOMPLETE';
2904: okl_lop_pvt.update_row(
2909: ,x_msg_data => x_msg_data
2910: ,p_lopv_rec => l_lease_opp_rec
2911: ,x_lopv_rec => x_lease_opp_rec );
2912: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2913: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2914: ELSIF x_return_status = G_RET_STS_ERROR THEN
2915: RAISE OKL_API.G_EXCEPTION_ERROR;
2916: END IF;
2917: END IF;
2911: ,x_lopv_rec => x_lease_opp_rec );
2912: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2913: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2914: ELSIF x_return_status = G_RET_STS_ERROR THEN
2915: RAISE OKL_API.G_EXCEPTION_ERROR;
2916: END IF;
2917: END IF;
2918:
2919: x_return_status := G_RET_STS_SUCCESS;
2919: x_return_status := G_RET_STS_SUCCESS;
2920:
2921: EXCEPTION
2922:
2923: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2924:
2925: IF p_transaction_control = G_TRUE THEN
2926: ROLLBACK TO l_program_name;
2927: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2928: END IF;
2929:
2930: x_return_status := G_RET_STS_ERROR;
2931:
2932: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2933:
2934: IF p_transaction_control = G_TRUE THEN
2935: ROLLBACK TO l_program_name;
2936: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2939: x_return_status := G_RET_STS_UNEXP_ERROR;
2940:
2941: WHEN OTHERS THEN
2942:
2943: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2944: p_msg_name => G_DB_ERROR,
2945: p_token1 => G_PROG_NAME_TOKEN,
2946: p_token1_value => l_api_name,
2947: p_token2 => G_SQLCODE_TOKEN,
3052: x_return_status := G_RET_STS_SUCCESS;
3053:
3054: EXCEPTION
3055:
3056: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3057: x_return_status := G_RET_STS_ERROR;
3058:
3059: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3060: x_return_status := G_RET_STS_UNEXP_ERROR;
3055:
3056: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3057: x_return_status := G_RET_STS_ERROR;
3058:
3059: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3060: x_return_status := G_RET_STS_UNEXP_ERROR;
3061:
3062: WHEN OTHERS THEN
3063: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3059: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3060: x_return_status := G_RET_STS_UNEXP_ERROR;
3061:
3062: WHEN OTHERS THEN
3063: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3064: p_msg_name => G_DB_ERROR,
3065: p_token1 => G_PROG_NAME_TOKEN,
3066: p_token1_value => l_program_name,
3067: p_token2 => G_SQLCODE_TOKEN,
3100: l_api_version NUMBER := 1.0;
3101: lp_cafv_tbl OKL_CAF_PVT.cafv_tbl_type;
3102: lx_cafv_tbl OKL_CAF_PVT.cafv_tbl_type;
3103:
3104: lx_error_tbl OKL_API.ERROR_TBL_TYPE;
3105: BEGIN
3106: IF(p_source_object_code = 'QUOTED_ASSET') THEN
3107: lp_source_table := 'OKL_ASSETS_B';
3108: ELSIF(p_source_object_code = 'LEASE_QUOTE') THEN
3128: ,x_msg_count => x_msg_count
3129: ,x_msg_data => x_msg_data);
3130:
3131: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3132: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3133: ELSIF x_return_status = G_RET_STS_ERROR THEN
3134: RAISE OKL_API.G_EXCEPTION_ERROR;
3135: END IF;
3136:
3130:
3131: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3132: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3133: ELSIF x_return_status = G_RET_STS_ERROR THEN
3134: RAISE OKL_API.G_EXCEPTION_ERROR;
3135: END IF;
3136:
3137: EXCEPTION
3138:
3135: END IF;
3136:
3137: EXCEPTION
3138:
3139: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3140: x_return_status := G_RET_STS_ERROR;
3141:
3142: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3143: x_return_status := G_RET_STS_UNEXP_ERROR;
3138:
3139: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3140: x_return_status := G_RET_STS_ERROR;
3141:
3142: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3143: x_return_status := G_RET_STS_UNEXP_ERROR;
3144:
3145: WHEN OTHERS THEN
3146: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3142: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3143: x_return_status := G_RET_STS_UNEXP_ERROR;
3144:
3145: WHEN OTHERS THEN
3146: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3147: p_msg_name => G_DB_ERROR,
3148: p_token1 => G_PROG_NAME_TOKEN,
3149: p_token1_value => l_program_name,
3150: p_token2 => G_SQLCODE_TOKEN,
3210: ,x_return_status => x_return_status );
3211: lp_lease_qte_rec.id := p_quote_id;
3212:
3213: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3214: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3215: ELSIF x_return_status = G_RET_STS_ERROR THEN
3216: RAISE OKL_API.G_EXCEPTION_ERROR;
3217: END IF;
3218:
3212:
3213: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3214: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3215: ELSIF x_return_status = G_RET_STS_ERROR THEN
3216: RAISE OKL_API.G_EXCEPTION_ERROR;
3217: END IF;
3218:
3219: OPEN get_asset_count(p_quote_id);
3220: FETCH get_asset_count INTO lp_asset_count;
3225: get_asset_rec(p_asset_id => quote_asset_rec.id
3226: ,x_asset_rec => lp_asset_tbl(i)
3227: ,x_return_status => x_return_status);
3228: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3229: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3230: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3231: RAISE OKL_API.G_EXCEPTION_ERROR;
3232: END IF;
3233: i := i + 1;
3227: ,x_return_status => x_return_status);
3228: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3229: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3230: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3231: RAISE OKL_API.G_EXCEPTION_ERROR;
3232: END IF;
3233: i := i + 1;
3234: END LOOP;
3235: --Delete all Lease Quote Consolidated Cash Flows
3242: ,x_msg_count => x_msg_count
3243: ,x_msg_data => x_msg_data);
3244:
3245: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3247: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3248: RAISE OKL_API.G_EXCEPTION_ERROR;
3249: END IF;
3250: IF(lp_asset_count > 1) THEN
3244:
3245: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3247: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3248: RAISE OKL_API.G_EXCEPTION_ERROR;
3249: END IF;
3250: IF(lp_asset_count > 1) THEN
3251: lp_lease_qte_rec.STRUCTURED_PRICING := NULL;
3252: lp_lease_qte_rec.LINE_LEVEL_PRICING := 'Y';
3264: ,x_msg_count => x_msg_count
3265: ,x_msg_data => x_msg_data);
3266:
3267: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3268: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3269: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3270: RAISE OKL_API.G_EXCEPTION_ERROR;
3271: END IF;
3272: --Delete Cash Flows for Quote Completed
3266:
3267: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3268: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3269: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3270: RAISE OKL_API.G_EXCEPTION_ERROR;
3271: END IF;
3272: --Delete Cash Flows for Quote Completed
3273: --Loop on All Assets ;Set Sp=Y Nullified SRT and change all cash flows from
3274: --Work to Current
3287: ,x_return_status => x_return_status
3288: ,x_msg_count => x_msg_count
3289: ,x_msg_data => x_msg_data);
3290: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3292: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3293: RAISE OKL_API.G_EXCEPTION_ERROR;
3294: END IF;
3295:
3289: ,x_msg_data => x_msg_data);
3290: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3292: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3293: RAISE OKL_API.G_EXCEPTION_ERROR;
3294: END IF;
3295:
3296: okl_ass_pvt.update_row (p_api_version => G_API_VERSION
3297: ,p_init_msg_list => G_FALSE
3300: ,x_msg_data => x_msg_data
3301: ,p_assv_rec => lp_asset_tbl(i)
3302: ,x_assv_rec => lx_asset_rec);
3303: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3304: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3305: ELSIF x_return_status = G_RET_STS_ERROR THEN
3306: RAISE OKL_API.G_EXCEPTION_ERROR;
3307: END IF;
3308:
3302: ,x_assv_rec => lx_asset_rec);
3303: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3304: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3305: ELSIF x_return_status = G_RET_STS_ERROR THEN
3306: RAISE OKL_API.G_EXCEPTION_ERROR;
3307: END IF;
3308:
3309:
3310:
3321: ,x_return_status => x_return_status
3322: ,x_msg_count => x_msg_count
3323: ,x_msg_data => x_msg_data);
3324: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3327: RAISE OKL_API.G_EXCEPTION_ERROR;
3328: END IF;
3329:
3323: ,x_msg_data => x_msg_data);
3324: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3327: RAISE OKL_API.G_EXCEPTION_ERROR;
3328: END IF;
3329:
3330: FOR i IN lp_asset_tbl.FIRST..lp_asset_tbl.LAST LOOP
3331: IF(lp_asset_tbl.EXISTS(i)) THEN
3345: ,x_msg_count => x_msg_count
3346: ,x_msg_data => x_msg_data);
3347:
3348: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3349: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3350: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3351: RAISE OKL_API.G_EXCEPTION_ERROR;
3352: END IF;
3353:
3347:
3348: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3349: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3350: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3351: RAISE OKL_API.G_EXCEPTION_ERROR;
3352: END IF;
3353:
3354: okl_ass_pvt.update_row (p_api_version => G_API_VERSION
3355: ,p_init_msg_list => G_FALSE
3358: ,x_msg_data => x_msg_data
3359: ,p_assv_rec => lp_asset_tbl(i)
3360: ,x_assv_rec => lx_asset_rec);
3361: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3362: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3363: ELSIF x_return_status = G_RET_STS_ERROR THEN
3364: RAISE OKL_API.G_EXCEPTION_ERROR;
3365: END IF;
3366:
3360: ,x_assv_rec => lx_asset_rec);
3361: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3362: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3363: ELSIF x_return_status = G_RET_STS_ERROR THEN
3364: RAISE OKL_API.G_EXCEPTION_ERROR;
3365: END IF;
3366:
3367: END IF;
3368: END LOOP;
3391: ,p_lsqv_rec => lp_lease_qte_rec
3392: ,x_lsqv_rec => lx_lease_qte_rec );
3393:
3394: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3395: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3396: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3397: RAISE OKL_API.G_EXCEPTION_ERROR;
3398: END IF;
3399:
3393:
3394: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3395: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3396: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3397: RAISE OKL_API.G_EXCEPTION_ERROR;
3398: END IF;
3399:
3400: EXCEPTION
3401:
3398: END IF;
3399:
3400: EXCEPTION
3401:
3402: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3403:
3404: IF p_transaction_control = G_TRUE THEN
3405: ROLLBACK TO l_program_name;
3406: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3407: END IF;
3408:
3409: x_return_status := G_RET_STS_ERROR;
3410:
3411: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3412:
3413: IF p_transaction_control = G_TRUE THEN
3414: ROLLBACK TO l_program_name;
3415: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3418: x_return_status := G_RET_STS_UNEXP_ERROR;
3419:
3420: WHEN OTHERS THEN
3421:
3422: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3423: p_msg_name => G_DB_ERROR,
3424: p_token1 => G_PROG_NAME_TOKEN,
3425: p_token1_value => l_api_name,
3426: p_token2 => G_SQLCODE_TOKEN,
3563: FND_MSG_PUB.initialize;
3564: END IF;
3565:
3566: IF p_quote_id IS NULL THEN
3567: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3568: p_msg_name => 'OKL_INVALID_SALES_QUOTE');
3569: RAISE OKL_API.G_EXCEPTION_ERROR;
3570: END IF;
3571:
3565:
3566: IF p_quote_id IS NULL THEN
3567: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3568: p_msg_name => 'OKL_INVALID_SALES_QUOTE');
3569: RAISE OKL_API.G_EXCEPTION_ERROR;
3570: END IF;
3571:
3572: -- Calculate Sales tax
3573: OKL_PROCESS_SALES_TAX_PVT.calculate_sales_tax(p_api_version => p_api_version,
3578: p_source_trx_id => p_quote_id,
3579: p_source_trx_name => 'Sales Quote',
3580: p_source_table => 'OKL_LEASE_QUOTES_B');
3581: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3582: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3583: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3584: RAISE OKL_API.G_EXCEPTION_ERROR;
3585: END IF;
3586:
3580: p_source_table => 'OKL_LEASE_QUOTES_B');
3581: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3582: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3583: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3584: RAISE OKL_API.G_EXCEPTION_ERROR;
3585: END IF;
3586:
3587: -- Create the Upfront tax fee only if the tax amount returned is > 0
3588: -- based on the setup defined on Lease Quote/ Lease Application
3651: ,x_return_status => x_return_status
3652: ,x_msg_count => x_msg_count
3653: ,x_msg_data => x_msg_data );
3654: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3656: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3657: RAISE OKL_API.G_EXCEPTION_ERROR;
3658: END IF;
3659:
3653: ,x_msg_data => x_msg_data );
3654: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3656: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3657: RAISE OKL_API.G_EXCEPTION_ERROR;
3658: END IF;
3659:
3660: ELSE -- Tax fee exists .. update it
3661:
3724: ,x_return_status => x_return_status
3725: ,x_msg_count => x_msg_count
3726: ,x_msg_data => x_msg_data );
3727: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3728: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3729: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3730: RAISE OKL_API.G_EXCEPTION_ERROR;
3731: END IF;
3732:
3726: ,x_msg_data => x_msg_data );
3727: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3728: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3729: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3730: RAISE OKL_API.G_EXCEPTION_ERROR;
3731: END IF;
3732:
3733: END IF;
3734: END IF;
3742: p_qte_status => 'PR-INCOMPLETE',
3743: x_return_status => x_return_status);
3744:
3745: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3746: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3747: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3748: RAISE OKL_API.G_EXCEPTION_ERROR;
3749: END IF;
3750: END IF;
3744:
3745: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3746: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3747: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3748: RAISE OKL_API.G_EXCEPTION_ERROR;
3749: END IF;
3750: END IF;
3751:
3752: IF (l_parent_object_code = 'LEASEAPP') THEN
3757: x_return_status => x_return_status,
3758: x_msg_count => x_msg_count,
3759: x_msg_data => x_msg_data);
3760: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3761: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3762: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3763: RAISE OKL_API.G_EXCEPTION_ERROR;
3764: END IF;
3765: END IF;
3759: x_msg_data => x_msg_data);
3760: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3761: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3762: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
3763: RAISE OKL_API.G_EXCEPTION_ERROR;
3764: END IF;
3765: END IF;
3766:
3767: END IF;
3769: END IF;
3770:
3771: EXCEPTION
3772:
3773: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3774: IF p_transaction_control = G_TRUE THEN
3775: ROLLBACK TO l_program_name;
3776: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3777: END IF;
3776: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3777: END IF;
3778: x_return_status := G_RET_STS_ERROR;
3779:
3780: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3781: IF p_transaction_control = G_TRUE THEN
3782: ROLLBACK TO l_program_name;
3783: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3784: END IF;
3784: END IF;
3785: x_return_status := G_RET_STS_UNEXP_ERROR;
3786:
3787: WHEN OTHERS THEN
3788: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3789: p_msg_name => G_DB_ERROR,
3790: p_token1 => G_PROG_NAME_TOKEN,
3791: p_token1_value => l_api_name,
3792: p_token2 => G_SQLCODE_TOKEN,