[Home] [Help]
8: -------------------------------------------------------------------------------------------------
9: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
10: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := 'OKL_REQUIRED_VALUE';
11: G_INVALID_VALUE CONSTANT VARCHAR2(200) := 'OKL_INVALID_VALUE';
12: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
13: G_FIN_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FREE_FORM1';
14: G_LEASE_SCS_CODE OKC_K_HEADERS_V.SCS_CODE%TYPE := 'LEASE';
15: G_LOAN_SCS_CODE OKC_K_HEADERS_V.SCS_CODE%TYPE := 'LOAN';
16: G_TLS_TYPE OKC_LINE_STYLES_V.LSE_TYPE%TYPE := 'TLS';
68: lp_quot_rec OKL_AM_CREATE_QUOTE_PVT.quot_rec_type;
69: lx_quot_rec OKL_AM_CREATE_QUOTE_PVT.quot_rec_type;
70:
71: l_api_version CONSTANT NUMBER := 1;
72: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
73: l_msg_data VARCHAR2(2000);
74: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'recalculate_quote';
75: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
76: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
114: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tqlv_rec.currency_conversion_date: ' || p_tqlv_rec.currency_conversion_date);
115: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tqlv_rec.due_date: ' || p_tqlv_rec.due_date);
116: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tqlv_rec.try_id: ' || p_tqlv_rec.try_id);
117: END IF;
118: l_return_status := OKL_API.G_RET_STS_SUCCESS;
119:
120: -- Get quote and quote line details
121: FOR get_qte_dtls_rec IN get_qte_dtls_csr (p_tqlv_rec.id)
122: LOOP
136: IF (is_debug_statement_on) THEN
137: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_CREATE_QUOTE_PVT.get_net_gain_loss , return status: ' || l_return_status);
138: END IF;
139:
140: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
141: THEN
142: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
143: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
144: THEN
138: END IF;
139:
140: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
141: THEN
142: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
143: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
144: THEN
145: RAISE OKL_API.G_EXCEPTION_ERROR;
146: END IF;
139:
140: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
141: THEN
142: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
143: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
144: THEN
145: RAISE OKL_API.G_EXCEPTION_ERROR;
146: END IF;
147:
141: THEN
142: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
143: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
144: THEN
145: RAISE OKL_API.G_EXCEPTION_ERROR;
146: END IF;
147:
148: -- set the quote header elements for update
149: lp_quot_rec.id := l_quot_rec.id ;
154: END IF;
155: -- update the quote header with recalculated GAIN LOSS
156: OKL_TRX_QUOTES_PUB.update_trx_quotes (
157: p_api_version => l_api_version,
158: p_init_msg_list => OKL_API.G_FALSE,
159: x_msg_count => l_msg_count,
160: x_msg_data => l_msg_data,
161: p_qtev_rec => lp_quot_rec,
162: x_qtev_rec => lx_quot_rec,
164: IF (is_debug_statement_on) THEN
165: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_TRX_QUOTES_PUB.update_trx_quotes, return status: ' || l_return_status);
166: END IF;
167:
168: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
169: THEN
170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
171: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
172: THEN
166: END IF;
167:
168: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
169: THEN
170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
171: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
172: THEN
173: RAISE OKL_API.G_EXCEPTION_ERROR;
174: END IF;
167:
168: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
169: THEN
170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
171: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
172: THEN
173: RAISE OKL_API.G_EXCEPTION_ERROR;
174: END IF;
175: END LOOP;
169: THEN
170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
171: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
172: THEN
173: RAISE OKL_API.G_EXCEPTION_ERROR;
174: END IF;
175: END LOOP;
176:
177: x_return_status := l_return_status;
179: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
180: END IF;
181:
182: EXCEPTION
183: WHEN OKL_API.G_EXCEPTION_ERROR
184: THEN
185: IF (is_debug_exception_on) THEN
186: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
187: END IF;
184: THEN
185: IF (is_debug_exception_on) THEN
186: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
187: END IF;
188: x_return_status := OKL_API.G_RET_STS_ERROR;
189:
190: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
191: THEN
192: IF (is_debug_exception_on) THEN
186: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
187: END IF;
188: x_return_status := OKL_API.G_RET_STS_ERROR;
189:
190: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
191: THEN
192: IF (is_debug_exception_on) THEN
193: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
194: END IF;
191: THEN
192: IF (is_debug_exception_on) THEN
193: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
194: END IF;
195: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
196:
197: WHEN OTHERS
198: THEN
199: IF (is_debug_exception_on) THEN
199: IF (is_debug_exception_on) THEN
200: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
201: || sqlcode || ' , SQLERRM : ' || sqlerrm);
202: END IF;
203: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
204: OKL_API.set_message(p_app_name => G_APP_NAME,
205: p_msg_name => g_unexpected_error,
206: p_token1 => g_sqlcode_token,
207: p_token1_value => sqlcode,
200: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
201: || sqlcode || ' , SQLERRM : ' || sqlerrm);
202: END IF;
203: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
204: OKL_API.set_message(p_app_name => G_APP_NAME,
205: p_msg_name => g_unexpected_error,
206: p_token1 => g_sqlcode_token,
207: p_token1_value => sqlcode,
208: p_token2 => g_sqlerrm_token,
304: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tqlv_rec.due_date: ' || p_tqlv_rec.due_date);
305: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tqlv_rec.try_id: ' || p_tqlv_rec.try_id);
306: END IF;
307:
308: l_return_status := OKL_API.G_RET_STS_SUCCESS;
309:
310: -- Get quote and quote line details and check for min/max value for the same
311: FOR get_qte_dtls_rec IN get_qte_dtls_csr (p_tqlv_rec.id)
312: LOOP
359: l_min_amt := nvl(to_char(l_min_value),' '); -- rmunjulu 10-Jan-05 do nvl
360: l_max_amt := nvl(to_char(l_max_value),' '); -- rmunjulu 10-Jan-05 do nvl
361:
362: IF get_qte_dtls_rec.kle_id IS NOT NULL
363: OR get_qte_dtls_rec.kle_id <> OKL_API.G_MISS_NUM
364: THEN
365:
366: -- get asset number
367: FOR get_asset_number_rec IN get_asset_number_csr (get_qte_dtls_rec.kle_id)
370: END LOOP;
371:
372: -- Invalid purchase amount entered AMT_ENTERED for Asset Number ASSET_NUM.
373: -- Please enter purchase amount within the range minimum = MIN_AMT and maximum = MAX_AMT.
374: OKL_API.set_message(
375: p_app_name => 'OKL',
376: p_msg_name => 'OKL_AM_MIN_MAX_ASSET_ERR',
377: p_token1 => 'AMT_ENTERED',
378: p_token1_value => p_tqlv_rec.amount,
386: ELSE -- Quote amount at contract level
387:
388: -- Invalid purchase amount entered AMT_ENTERED.
389: -- Please enter purchase amount within the range minimum = MIN_AMT and maximum = MAX_AMT.
390: OKL_API.set_message(
391: p_app_name => 'OKL',
392: p_msg_name => 'OKL_AM_MIN_MAX_ERR',
393: p_token1 => 'AMT_ENTERED',
394: p_token1_value => p_tqlv_rec.amount,
397: p_token3 => 'MAX_AMT',
398: p_token3_value => l_max_amt);
399:
400: END IF;
401: l_return_status := OKL_API.G_RET_STS_ERROR;
402:
403: END IF;
404: END IF;
405: END LOOP;
409: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
410: END IF;
411:
412: EXCEPTION
413: WHEN OKL_API.G_EXCEPTION_ERROR
414: THEN
415: IF (is_debug_exception_on) THEN
416: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
417: END IF;
414: THEN
415: IF (is_debug_exception_on) THEN
416: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
417: END IF;
418: x_return_status := OKL_API.G_RET_STS_ERROR;
419:
420: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
421: THEN
422: IF (is_debug_exception_on) THEN
416: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
417: END IF;
418: x_return_status := OKL_API.G_RET_STS_ERROR;
419:
420: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
421: THEN
422: IF (is_debug_exception_on) THEN
423: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
424: END IF;
421: THEN
422: IF (is_debug_exception_on) THEN
423: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
424: END IF;
425: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
426:
427: WHEN OTHERS
428: THEN
429: IF (is_debug_exception_on) THEN
429: IF (is_debug_exception_on) THEN
430: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
431: || sqlcode || ' , SQLERRM : ' || sqlerrm);
432: END IF;
433: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
434:
435: OKL_API.set_message(p_app_name => G_APP_NAME,
436: p_msg_name => g_unexpected_error,
437: p_token1 => g_sqlcode_token,
431: || sqlcode || ' , SQLERRM : ' || sqlerrm);
432: END IF;
433: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
434:
435: OKL_API.set_message(p_app_name => G_APP_NAME,
436: p_msg_name => g_unexpected_error,
437: p_token1 => g_sqlcode_token,
438: p_token1_value => sqlcode,
439: p_token2 => g_sqlerrm_token,
513: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_check_fa_trn: ' || p_check_fa_trn);
514: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: ' || p_contract_number);
515: END IF;
516:
517: l_return_status := OKL_API.G_RET_STS_SUCCESS;
518:
519: -- loop thru all the FA books for the asset and for each book check the fa validations
520: FOR get_fa_dtls_rec IN get_fa_dtls_csr (p_kle_id) LOOP
521:
522: -- call cache for book details
523: IF NOT fa_cache_pkg.fazcbc(X_book => get_fa_dtls_rec.book_type_code) THEN
524:
525: -- message : error during FA check for contract CONTRACT_NUMBER.
526: OKL_API.set_message (
527: p_app_name => 'OKL',
528: p_msg_name => 'OKL_AM_ERR_FA_CHECK',
529: p_token1 => 'CONTRACT_NUMBER',
530: p_token1_value => p_contract_number);
540:
541: X_fiscal_year => fa_cache_pkg.fazcbc_record.current_fiscal_year) THEN
542:
543: -- message : error during FA check for contract CONTRACT_NUMBER.
544: OKL_API.set_message (
545: p_app_name => 'OKL',
546: p_msg_name => 'OKL_AM_ERR_FA_CHECK',
547: p_token1 => 'CONTRACT_NUMBER',
548: p_token1_value => p_contract_number);
557: -- rmunjulu 4384945
558: IF NOT fa_cache_pkg.fazcdp(X_book_type_code => get_fa_dtls_rec.book_type_code) THEN
559:
560: -- message : error during FA check Deprn Period information.
561: OKL_API.set_message (
562: p_app_name => 'OKL',
563: p_msg_name => 'OKL_AM_ERR_FA_CHECK',
564: p_token1 => 'CONTRACT_NUMBER',
565: p_token1_value => p_contract_number);
574:
575: IF (trunc(p_trn_date) < trunc(fa_cache_pkg.fazcfy_record.start_date)) THEN -- rmunjulu 4384945
576:
577: -- message Quote Effective From date EFFECTIVE_DATE can not be before Fixed Assets fiscal year start date START_DATE.
578: OKL_API.set_message (
579: p_app_name => 'OKL',
580: p_msg_name => 'OKL_AM_ERR_FA_YEAR_START_DATE',
581: p_token1 => 'EFFECTIVE_DATE',
582: p_token1_value => trunc(p_trn_date),
588: -- rmunjulu 4384945 if okl transaction date after Fixed Assets calendar period close date
589: ELSIF (trunc(p_trn_date) > trunc(p_calendar_period_close_date)) THEN -- CDUBEY for Bug 5181502
590:
591: --Quote Effective From date EFFECTIVE_DATE can not be after Fixed Assets calendar period close date END_DATE.
592: OKL_API.set_message (
593: p_app_name => 'OKL',
594: p_msg_name => 'OKL_AM_ERR_FA_CAL_END_DATE',
595: p_token1 => 'EFFECTIVE_DATE',
596: p_token1_value => trunc(p_trn_date),
608: -- If FA Fiscal year and quote effective date year do not match then error
609: IF l_fa_fiscal_year <> l_quote_eff_year THEN
610:
611: -- message : Quote Effective From date EFFECTIVE_DATE should be in current fixed assets fiscal year FA_FISCAL_YEAR.
612: OKL_API.set_message (
613: p_app_name => 'OKL',
614: p_msg_name => 'OKL_AM_ERR_FA_FISCAL_YEAR',
615: p_token1 => 'EFFECTIVE_DATE',
616: p_token1_value => trunc(p_trn_date),
637: -- if okl transaction is before max transaction then raise error
638: IF (trunc(p_trn_date) <= trunc(l_max_transaction_date)) then
639:
640: -- message : Transactions in Fixed assets exist after Quote Effective From date EFFECTIVE_DATE.
641: /* OKL_API.set_message (
642: p_app_name => 'OKL',
643: p_msg_name => 'OKL_AM_ERR_FA_TRN',
644: p_token1 => 'EFFECTIVE_DATE',
645: p_token1_value => trunc(p_trn_date));
647: --Modified message : Transactions exist in Fixed Assets for quoted assets on or after the
648: --Termination Quote Effective From date EFFECTIVE_DATE. Please create your
649: --Termination Quote with a Quote Effective From date after LAST_FA_TRX_DATE.
650: --Note: Where LAST_FA_TRX_DATE is the last FA Transaction Date for the assets being quoted.
651: OKL_API.set_message (
652: p_app_name => 'OKL',
653: p_msg_name => 'OKL_AM_ERR_FA_TRN',
654: p_token1 => 'EFFECTIVE_DATE',
655: p_token1_value => trunc(p_trn_date),
672: IF (is_debug_exception_on) THEN
673: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'fa_exception');
674: END IF;
675:
676: x_return_status := OKL_API.G_RET_STS_ERROR;
677:
678: WHEN OTHERS THEN
679: IF (is_debug_exception_on) THEN
680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
681: || sqlcode || ' , SQLERRM : ' || sqlerrm);
682: END IF;
683:
684: x_return_status := OKL_API.G_RET_STS_ERROR;
685:
686: OKL_API.set_message(p_app_name => G_APP_NAME,
687: p_msg_name => G_UNEXPECTED_ERROR,
688: p_token1 => G_SQLCODE_TOKEN,
682: END IF;
683:
684: x_return_status := OKL_API.G_RET_STS_ERROR;
685:
686: OKL_API.set_message(p_app_name => G_APP_NAME,
687: p_msg_name => G_UNEXPECTED_ERROR,
688: p_token1 => G_SQLCODE_TOKEN,
689: p_token1_value => sqlcode,
690: p_token2 => G_SQLERRM_TOKEN,
710: x_sno_yn OUT NOCOPY VARCHAR2,
711: x_clev_tbl OUT NOCOPY clev_tbl_type) RETURN VARCHAR2 AS
712:
713: G_CONTRACT_INACTIVE CONSTANT VARCHAR2(200) := 'OKL_AM_CONTRACT_INACTIVE';
714: lv_sno_yn VARCHAR2(3) := OKL_API.G_FALSE;
715: i NUMBER := 0;
716: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
717: lv_sts_code OKC_K_LINES_B.STS_CODE%TYPE;
718: lv_lty_code OKC_LINE_STYLES_B.LTY_CODE%TYPE;
712:
713: G_CONTRACT_INACTIVE CONSTANT VARCHAR2(200) := 'OKL_AM_CONTRACT_INACTIVE';
714: lv_sno_yn VARCHAR2(3) := OKL_API.G_FALSE;
715: i NUMBER := 0;
716: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
717: lv_sts_code OKC_K_LINES_B.STS_CODE%TYPE;
718: lv_lty_code OKC_LINE_STYLES_B.LTY_CODE%TYPE;
719: lv_contract_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE;
720:
785: FETCH l_ast_line_csr INTO lv_lty_code,
786: lv_sts_code,
787: lv_contract_number;
788: IF l_ast_line_csr%NOTFOUND THEN
789: OKL_API.set_message(p_app_name => G_APP_NAME,
790: p_msg_name => G_NO_MATCHING_RECORD,
791: p_token1 => G_COL_NAME_TOKEN,
792: p_token1_value => 'Asset Line');
793: RAISE OKL_API.G_EXCEPTION_ERROR;
789: OKL_API.set_message(p_app_name => G_APP_NAME,
790: p_msg_name => G_NO_MATCHING_RECORD,
791: p_token1 => G_COL_NAME_TOKEN,
792: p_token1_value => 'Asset Line');
793: RAISE OKL_API.G_EXCEPTION_ERROR;
794: END IF;
795: CLOSE l_ast_line_csr;
796:
797: IF lv_lty_code <> 'FREE_FORM1' THEN
794: END IF;
795: CLOSE l_ast_line_csr;
796:
797: IF lv_lty_code <> 'FREE_FORM1' THEN
798: OKL_API.set_message(p_app_name => G_APP_NAME,
799: p_msg_name => G_INVALID_VALUE,
800: p_token1 => G_COL_NAME_TOKEN,
801: p_token1_value => 'p_asset_line');
802: RAISE OKL_API.G_EXCEPTION_ERROR;
798: OKL_API.set_message(p_app_name => G_APP_NAME,
799: p_msg_name => G_INVALID_VALUE,
800: p_token1 => G_COL_NAME_TOKEN,
801: p_token1_value => 'p_asset_line');
802: RAISE OKL_API.G_EXCEPTION_ERROR;
803: END IF;
804:
805: -- RMUNJULU 24-JAN-03 2759726 Removed check that K sts is Booked
806: -- IF lv_sts_code <> 'BOOKED' THEN
804:
805: -- RMUNJULU 24-JAN-03 2759726 Removed check that K sts is Booked
806: -- IF lv_sts_code <> 'BOOKED' THEN
807: -- Unable to complete process because the Contract CONTRACT_NUMBER status is STATUS.
808: -- OKL_API.set_message(p_app_name => G_APP_NAME,
809: -- p_msg_name => G_CONTRACT_INACTIVE,
810: -- p_token1 => 'CONTRACT_NUMBER',
811: -- p_token1_value => lv_contract_number,
812: -- p_token2 => 'STATUS',
810: -- p_token1 => 'CONTRACT_NUMBER',
811: -- p_token1_value => lv_contract_number,
812: -- p_token2 => 'STATUS',
813: -- p_token2_value => lv_sts_code);
814: -- RAISE OKL_API.G_EXCEPTION_ERROR;
815: -- END IF;
816:
817: -- Cursor to Know asset has serial number
818: FOR r_asset_sno_csr IN l_asset_sno_csr(p_asset_line => p_asset_line) LOOP
816:
817: -- Cursor to Know asset has serial number
818: FOR r_asset_sno_csr IN l_asset_sno_csr(p_asset_line => p_asset_line) LOOP
819: IF r_asset_sno_csr.serial_number IS NOT NULL OR
820: r_asset_sno_csr.serial_number <> OKL_API.G_MISS_CHAR THEN
821: lv_sno_yn := OKL_API.G_TRUE;
822: END IF;
823: x_clev_tbl(i).id := r_asset_sno_csr.id;
824: i := i + 1;
817: -- Cursor to Know asset has serial number
818: FOR r_asset_sno_csr IN l_asset_sno_csr(p_asset_line => p_asset_line) LOOP
819: IF r_asset_sno_csr.serial_number IS NOT NULL OR
820: r_asset_sno_csr.serial_number <> OKL_API.G_MISS_CHAR THEN
821: lv_sno_yn := OKL_API.G_TRUE;
822: END IF;
823: x_clev_tbl(i).id := r_asset_sno_csr.id;
824: i := i + 1;
825: END LOOP;
831: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning l_return_status: ' || l_return_status);
832: END IF;
833: RETURN l_return_status;
834: EXCEPTION
835: WHEN OKL_API.G_EXCEPTION_ERROR THEN
836: IF (is_debug_exception_on) THEN
837: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
838: END IF;
839: IF l_ast_line_csr%ISOPEN THEN
841: END IF;
842: IF l_asset_sno_csr%ISOPEN THEN
843: CLOSE l_asset_sno_csr;
844: END IF;
845: l_return_status := OKL_API.G_RET_STS_ERROR;
846: RETURN l_return_status;
847: WHEN OTHERS THEN
848: IF (is_debug_exception_on) THEN
849: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
855: END IF;
856: IF l_asset_sno_csr%ISOPEN THEN
857: CLOSE l_asset_sno_csr;
858: END IF;
859: OKL_API.set_message(p_app_name => G_APP_NAME,
860: p_msg_name => g_unexpected_error,
861: p_token1 => g_sqlcode_token,
862: p_token1_value => sqlcode,
863: p_token2 => g_sqlerrm_token,
862: p_token1_value => sqlcode,
863: p_token2 => g_sqlerrm_token,
864: p_token2_value => sqlerrm);
865:
866: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
867: RETURN l_return_status;
868: END check_asset_sno;
869: -----------------------------------------------------------------------------------------------------
870: --
1229: db_partial_yn VARCHAR2(3);
1230: l_true_partial_quote VARCHAR2(1) := 'N';
1231: l_service_contract VARCHAR2(300);
1232: l_oks_chr_id NUMBER;
1233: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
1234: l_msg_data VARCHAR2(2000);
1235: l_billing_done VARCHAR2(1);
1236:
1237: -- RMUNJULU 3061751 Added for SERVICE_K_INTEGRATION
1458: -- LOGIC END --
1459:
1460:
1461: --Check API version, initialize message list and create savepoint.
1462: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1463: G_PKG_NAME,
1464: p_init_msg_list,
1465: l_api_version,
1466: p_api_version,
1466: p_api_version,
1467: '_PVT',
1468: x_return_status);
1469:
1470: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1471: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1472: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1473: RAISE OKL_API.G_EXCEPTION_ERROR;
1474: END IF;
1467: '_PVT',
1468: x_return_status);
1469:
1470: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1471: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1472: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1473: RAISE OKL_API.G_EXCEPTION_ERROR;
1474: END IF;
1475:
1468: x_return_status);
1469:
1470: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1471: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1472: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1473: RAISE OKL_API.G_EXCEPTION_ERROR;
1474: END IF;
1475:
1476: -- initialize return variables
1469:
1470: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1471: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1472: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1473: RAISE OKL_API.G_EXCEPTION_ERROR;
1474: END IF;
1475:
1476: -- initialize return variables
1477: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1473: RAISE OKL_API.G_EXCEPTION_ERROR;
1474: END IF;
1475:
1476: -- initialize return variables
1477: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1478: x_err_msg := OKL_API.G_RET_STS_SUCCESS;
1479:
1480: -----------------------
1481: -- GET/SET DB VALUES --
1474: END IF;
1475:
1476: -- initialize return variables
1477: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1478: x_err_msg := OKL_API.G_RET_STS_SUCCESS;
1479:
1480: -----------------------
1481: -- GET/SET DB VALUES --
1482: -----------------------
1505: db_repo_yn; -- Bug 6674730
1506: CLOSE qte_db_vals_csr;
1507:
1508: -- Check if quote id passed is valid
1509: IF db_qte_id IS NULL OR db_qte_id = OKL_API.G_MISS_NUM THEN
1510:
1511: OKL_API.set_message( p_app_name => OKC_API.G_APP_NAME,
1512: p_msg_name => OKC_API.G_INVALID_VALUE,
1513: p_token1 => OKC_API.G_COL_NAME_TOKEN,
1507:
1508: -- Check if quote id passed is valid
1509: IF db_qte_id IS NULL OR db_qte_id = OKL_API.G_MISS_NUM THEN
1510:
1511: OKL_API.set_message( p_app_name => OKC_API.G_APP_NAME,
1512: p_msg_name => OKC_API.G_INVALID_VALUE,
1513: p_token1 => OKC_API.G_COL_NAME_TOKEN,
1514: p_token1_value => 'Quote id');
1515:
1512: p_msg_name => OKC_API.G_INVALID_VALUE,
1513: p_token1 => OKC_API.G_COL_NAME_TOKEN,
1514: p_token1_value => 'Quote id');
1515:
1516: RAISE OKL_API.G_EXCEPTION_ERROR;
1517:
1518: END IF;
1519:
1520: -- if Khr_Id not passed get from DB
1517:
1518: END IF;
1519:
1520: -- if Khr_Id not passed get from DB
1521: IF lp_term_rec.khr_id IS NULL OR lp_term_rec.khr_id = OKL_API.G_MISS_NUM THEN
1522: l_contract_id := db_contract_id;
1523: l_contract_number := db_contract_number;
1524: ELSE
1525: l_contract_id := lp_term_rec.khr_id;
1543: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract');
1544: END IF;
1545: OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract(
1546: p_api_version => p_api_version,
1547: p_init_msg_list => OKL_API.G_FALSE,
1548: x_return_status => l_return_status,
1549: x_msg_count => x_msg_count,
1550: x_msg_data => x_msg_data,
1551: p_contract_id => l_contract_id,
1555: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract , return status: ' || l_return_status);
1556: END IF;
1557:
1558: -- Raise exception if validate K fails
1559: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1560: RAISE OKL_API.G_EXCEPTION_ERROR;
1561: END IF;
1562: END IF;
1563:
1556: END IF;
1557:
1558: -- Raise exception if validate K fails
1559: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1560: RAISE OKL_API.G_EXCEPTION_ERROR;
1561: END IF;
1562: END IF;
1563:
1564: -----------------------
1566: -----------------------
1567:
1568: -- IF qtp_code not null then check if valid
1569: IF lp_term_rec.qtp_code IS NOT NULL
1570: AND lp_term_rec.qtp_code <> OKL_API.G_MISS_CHAR
1571: AND lp_term_rec.qtp_code NOT LIKE 'TER%' THEN
1572:
1573: -- Please select a valid Quote Type.
1574: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1570: AND lp_term_rec.qtp_code <> OKL_API.G_MISS_CHAR
1571: AND lp_term_rec.qtp_code NOT LIKE 'TER%' THEN
1572:
1573: -- Please select a valid Quote Type.
1574: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1575: p_msg_name => 'OKL_AM_QTP_CODE_INVALID');
1576:
1577: RAISE OKL_API.G_EXCEPTION_ERROR;
1578:
1573: -- Please select a valid Quote Type.
1574: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1575: p_msg_name => 'OKL_AM_QTP_CODE_INVALID');
1576:
1577: RAISE OKL_API.G_EXCEPTION_ERROR;
1578:
1579: -- if qtp_code is null then get from db and check
1580: ELSIF (lp_term_rec.qtp_code IS NULL
1581: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1577: RAISE OKL_API.G_EXCEPTION_ERROR;
1578:
1579: -- if qtp_code is null then get from db and check
1580: ELSIF (lp_term_rec.qtp_code IS NULL
1581: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1582: AND db_qtp_code NOT LIKE 'TER%' THEN
1583:
1584: -- Please select a valid Quote Type.
1585: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1581: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1582: AND db_qtp_code NOT LIKE 'TER%' THEN
1583:
1584: -- Please select a valid Quote Type.
1585: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1586: p_msg_name => 'OKL_AM_QTP_CODE_INVALID');
1587:
1588: RAISE OKL_API.G_EXCEPTION_ERROR;
1589:
1584: -- Please select a valid Quote Type.
1585: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1586: p_msg_name => 'OKL_AM_QTP_CODE_INVALID');
1587:
1588: RAISE OKL_API.G_EXCEPTION_ERROR;
1589:
1590: END IF;
1591:
1592: -- rmunjulu Rollover/Release -- moved the checks into the If below where it first
1599: --Bug# 3925453: pagarg +++ T and A +++++++
1600: -- Use existing code for Rollover quote to populate date_effective_to
1601: -- for Release quote also.
1602: IF lp_term_rec.qtp_code IS NOT NULL
1603: AND lp_term_rec.qtp_code <> OKL_API.G_MISS_CHAR
1604: THEN
1605: IF (lp_term_rec.qtp_code LIKE 'TER_ROLL%'
1606: AND p_acceptance_source = 'ROLLOVER')
1607: OR
1611: lp_term_rec.date_effective_to := db_date_effective_to;
1612: END IF;
1613: -- if qtp_code is null then get from db and check
1614: ELSIF (lp_term_rec.qtp_code IS NULL
1615: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1616: THEN
1617: IF (db_qtp_code LIKE 'TER_ROLL%'
1618: AND p_acceptance_source = 'ROLLOVER')
1619: OR
1630: -----------------------
1631:
1632: -- Check if date_effective_to is NULL
1633: IF lp_term_rec.date_effective_to IS NULL
1634: OR lp_term_rec.date_effective_to = OKL_API.G_MISS_DATE THEN
1635:
1636: -- You must enter a value for PROMPT
1637: IF (NVL(db_repo_yn,'N') <> 'Y') THEN -- 6674730
1638: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
1634: OR lp_term_rec.date_effective_to = OKL_API.G_MISS_DATE THEN
1635:
1636: -- You must enter a value for PROMPT
1637: IF (NVL(db_repo_yn,'N') <> 'Y') THEN -- 6674730
1638: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
1639: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
1640: p_token1 => 'PROMPT',
1641: p_token1_value => OKL_AM_UTIL_PVT.get_ak_attribute('OKL_EFFECTIVE_TO'));
1642:
1639: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
1640: p_token1 => 'PROMPT',
1641: p_token1_value => OKL_AM_UTIL_PVT.get_ak_attribute('OKL_EFFECTIVE_TO'));
1642:
1643: RAISE OKL_API.G_EXCEPTION_ERROR;
1644: END IF;
1645:
1646: END IF;
1647:
1646: END IF;
1647:
1648: -- Get the date_eff_from from database if not passed
1649: IF (lp_term_rec.date_effective_from IS NOT NULL)
1650: AND (lp_term_rec.date_effective_from <> OKL_API.G_MISS_DATE) THEN
1651: l_date_eff_from := lp_term_rec.date_effective_from;
1652: ELSE
1653: l_date_eff_from := db_date_effective_from;
1654: END IF;
1654: END IF;
1655:
1656: -- Check date_eff_to > date_eff_from
1657: IF (l_date_eff_from IS NOT NULL)
1658: AND (l_date_eff_from <> OKL_API.G_MISS_DATE)
1659: AND (lp_term_rec.date_effective_to IS NOT NULL)
1660: AND (lp_term_rec.date_effective_to <> OKL_API.G_MISS_DATE) THEN
1661:
1662: IF (TRUNC(lp_term_rec.date_effective_to) <= TRUNC(l_date_eff_from)) THEN
1656: -- Check date_eff_to > date_eff_from
1657: IF (l_date_eff_from IS NOT NULL)
1658: AND (l_date_eff_from <> OKL_API.G_MISS_DATE)
1659: AND (lp_term_rec.date_effective_to IS NOT NULL)
1660: AND (lp_term_rec.date_effective_to <> OKL_API.G_MISS_DATE) THEN
1661:
1662: IF (TRUNC(lp_term_rec.date_effective_to) <= TRUNC(l_date_eff_from)) THEN
1663:
1664: -- Message : Date Effective To DATE_EFFECTIVE_TO cannot be before
1662: IF (TRUNC(lp_term_rec.date_effective_to) <= TRUNC(l_date_eff_from)) THEN
1663:
1664: -- Message : Date Effective To DATE_EFFECTIVE_TO cannot be before
1665: -- Date Effective From DATE_EFFECTIVE_FROM.
1666: OKL_API.SET_MESSAGE(p_app_name => 'OKL',
1667: p_msg_name => 'OKL_AM_DATE_EFF_FROM_LESS_TO',
1668: p_token1 => 'DATE_EFFECTIVE_TO',
1669: p_token1_value => lp_term_rec.date_effective_to,
1670: p_token2 => 'DATE_EFFECTIVE_FROM',
1669: p_token1_value => lp_term_rec.date_effective_to,
1670: p_token2 => 'DATE_EFFECTIVE_FROM',
1671: p_token2_value => l_date_eff_from);
1672:
1673: RAISE OKL_API.G_EXCEPTION_ERROR;
1674: END IF;
1675: END IF;
1676:
1677: -- If date effective to changed then
1675: END IF;
1676:
1677: -- If date effective to changed then
1678: IF (lp_term_rec.date_effective_to IS NOT NULL)
1679: AND (lp_term_rec.date_effective_to <> OKL_API.G_MISS_DATE)
1680: AND (lp_term_rec.date_effective_to <> db_date_effective_to) THEN
1681:
1682: -- set the date eff to from rules
1683: l_q_eff_quot_rec.khr_id := l_contract_id;
1696: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_eff_days: ' || l_quote_eff_days);
1697: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_eff_max_days: ' || l_quote_eff_max_days);
1698: END IF;
1699:
1700: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1701: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1702: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1703: RAISE OKL_API.G_EXCEPTION_ERROR;
1704: END IF;
1697: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_eff_max_days: ' || l_quote_eff_max_days);
1698: END IF;
1699:
1700: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1701: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1702: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1703: RAISE OKL_API.G_EXCEPTION_ERROR;
1704: END IF;
1705:
1698: END IF;
1699:
1700: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1701: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1702: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1703: RAISE OKL_API.G_EXCEPTION_ERROR;
1704: END IF;
1705:
1706: --rmunjulu EDAT removed and replaced with below logic
1699:
1700: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1701: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1702: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1703: RAISE OKL_API.G_EXCEPTION_ERROR;
1704: END IF;
1705:
1706: --rmunjulu EDAT removed and replaced with below logic
1707: -- l_quote_eff_to_dt := db_date_effective_from + l_quote_eff_max_days;
1721:
1722: -- if max quote eff to date is less than sysdate then error
1723: IF TRUNC(l_quote_eff_to_dt) < TRUNC(db_sysdate) THEN
1724: --Message : Quote QUOTE_NUMBER is already expired.
1725: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1726: p_msg_name => 'OKL_AM_QUOTE_ALREADY_EXP',
1727: p_token1 => 'QUOTE_NUMBER',
1728: p_token1_value => db_quote_number);
1729:
1726: p_msg_name => 'OKL_AM_QUOTE_ALREADY_EXP',
1727: p_token1 => 'QUOTE_NUMBER',
1728: p_token1_value => db_quote_number);
1729:
1730: RAISE OKL_API.G_EXCEPTION_ERROR;
1731: END IF;
1732:
1733: -- if date is less than sysdate then error
1734: IF TRUNC(lp_term_rec.date_effective_to) < TRUNC(db_sysdate) THEN
1731: END IF;
1732:
1733: -- if date is less than sysdate then error
1734: IF TRUNC(lp_term_rec.date_effective_to) < TRUNC(db_sysdate) THEN
1735: l_return_status := OKL_API.G_RET_STS_ERROR;
1736: -- Please enter an Effective To date that occurs
1737: -- after the current system date.
1738: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1739: p_msg_name => 'OKL_AM_DATE_EFF_TO_PAST');
1734: IF TRUNC(lp_term_rec.date_effective_to) < TRUNC(db_sysdate) THEN
1735: l_return_status := OKL_API.G_RET_STS_ERROR;
1736: -- Please enter an Effective To date that occurs
1737: -- after the current system date.
1738: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1739: p_msg_name => 'OKL_AM_DATE_EFF_TO_PAST');
1740:
1741: RAISE OKL_API.G_EXCEPTION_ERROR;
1742: END IF;
1737: -- after the current system date.
1738: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1739: p_msg_name => 'OKL_AM_DATE_EFF_TO_PAST');
1740:
1741: RAISE OKL_API.G_EXCEPTION_ERROR;
1742: END IF;
1743:
1744: -- if eff_to date > l_quote_eff_to_dt then err msg
1745: IF TRUNC(lp_term_rec.date_effective_to) > TRUNC(l_quote_eff_to_dt) THEN
1743:
1744: -- if eff_to date > l_quote_eff_to_dt then err msg
1745: IF TRUNC(lp_term_rec.date_effective_to) > TRUNC(l_quote_eff_to_dt) THEN
1746: -- Please enter Effective To date before DATE_EFF_TO_MAX.
1747: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1748: p_msg_name => 'OKL_AM_DATE_EFF_TO_ERR',
1749: p_token1 => 'DATE_EFF_TO_MAX',
1750: p_token1_value => l_quote_eff_to_dt);
1751: RAISE OKL_API.G_EXCEPTION_ERROR;
1747: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1748: p_msg_name => 'OKL_AM_DATE_EFF_TO_ERR',
1749: p_token1 => 'DATE_EFF_TO_MAX',
1750: p_token1_value => l_quote_eff_to_dt);
1751: RAISE OKL_API.G_EXCEPTION_ERROR;
1752: END IF;
1753:
1754: END IF;
1755:
1754: END IF;
1755:
1756: -- rmunjulu LOANS_ENHANCEMENT perdiem amount validation
1757: IF lp_term_rec.perdiem_amount IS NOT NULL
1758: AND lp_term_rec.perdiem_amount <> OKL_API.G_MISS_NUM THEN
1759:
1760: IF lp_term_rec.perdiem_amount <> nvl(db_perdiem_amount,OKL_API.G_MISS_NUM)
1761: AND db_qst_code NOT IN ('DRAFTED','REJECTED') THEN
1762:
1756: -- rmunjulu LOANS_ENHANCEMENT perdiem amount validation
1757: IF lp_term_rec.perdiem_amount IS NOT NULL
1758: AND lp_term_rec.perdiem_amount <> OKL_API.G_MISS_NUM THEN
1759:
1760: IF lp_term_rec.perdiem_amount <> nvl(db_perdiem_amount,OKL_API.G_MISS_NUM)
1761: AND db_qst_code NOT IN ('DRAFTED','REJECTED') THEN
1762:
1763: -- Perdiem amount is allowed to be updated for quotes in DRAFTED or REJECTED status.
1764: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1760: IF lp_term_rec.perdiem_amount <> nvl(db_perdiem_amount,OKL_API.G_MISS_NUM)
1761: AND db_qst_code NOT IN ('DRAFTED','REJECTED') THEN
1762:
1763: -- Perdiem amount is allowed to be updated for quotes in DRAFTED or REJECTED status.
1764: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1765: p_msg_name => 'OKL_AM_PERDIEM_UPD_ERR');
1766: RAISE OKL_API.G_EXCEPTION_ERROR;
1767: END IF;
1768: END IF;
1762:
1763: -- Perdiem amount is allowed to be updated for quotes in DRAFTED or REJECTED status.
1764: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1765: p_msg_name => 'OKL_AM_PERDIEM_UPD_ERR');
1766: RAISE OKL_API.G_EXCEPTION_ERROR;
1767: END IF;
1768: END IF;
1769:
1770: -----------------------
1777: -- quote based on asset level termination changes
1778:
1779: -- If trying to accept this quote for the first time
1780: IF lp_term_rec.accepted_yn IS NOT NULL
1781: AND lp_term_rec.accepted_yn <> OKL_API.G_MISS_CHAR
1782: AND lp_term_rec.accepted_yn = G_YES
1783: AND db_accepted_yn = G_NO THEN
1784:
1785: -- RMUNJULU 06-JAN-03 2736865 Added code to check date eff from -- START
1791: -- if quote eff from date is greater than sysdate then error
1792: IF TRUNC(l_date_eff_from) > TRUNC(db_sysdate) THEN
1793:
1794: -- Quote QUOTE_NUMBER can only be accepted during the quote effective dates.
1795: OKL_API.set_message( p_app_name => 'OKL',
1796: p_msg_name => 'OKL_AM_DATE_EFF_FROM_ACC',
1797: p_token1 => 'QUOTE_NUMBER',
1798: p_token1_value => db_quote_number);
1799:
1796: p_msg_name => 'OKL_AM_DATE_EFF_FROM_ACC',
1797: p_token1 => 'QUOTE_NUMBER',
1798: p_token1_value => db_quote_number);
1799:
1800: RAISE OKL_API.G_EXCEPTION_ERROR;
1801:
1802: END IF;
1803:
1804: -- RMUNJULU 06-JAN-03 2736865 -- END
1811:
1812:
1813: -- If date_eff_to is not passed
1814: IF ((lp_term_rec.date_effective_to IS NULL) OR
1815: (lp_term_rec.date_effective_to = OKL_API.G_MISS_DATE))
1816: AND (NVL(db_repo_yn,'N') <> 'Y') THEN -- 6674730 -- No quote expiration if Repo Quote
1817:
1818: --if quote expired
1819: IF TRUNC(db_sysdate) > TRUNC(db_date_effective_to) THEN
1818: --if quote expired
1819: IF TRUNC(db_sysdate) > TRUNC(db_date_effective_to) THEN
1820:
1821: --Message : Quote QUOTE_NUMBER is already expired.
1822: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1823: p_msg_name => 'OKL_AM_QUOTE_ALREADY_EXP',
1824: p_token1 => 'QUOTE_NUMBER',
1825: p_token1_value => db_quote_number);
1826:
1823: p_msg_name => 'OKL_AM_QUOTE_ALREADY_EXP',
1824: p_token1 => 'QUOTE_NUMBER',
1825: p_token1_value => db_quote_number);
1826:
1827: RAISE OKL_API.G_EXCEPTION_ERROR;
1828:
1829: END IF;
1830:
1831: ELSE -- rmunjulu Bug 4201215 Eff_To date passed but already expired
1833: --if quote expired
1834: IF TRUNC(db_sysdate) > TRUNC(lp_term_rec.date_effective_to) THEN
1835:
1836: --Message : Quote QUOTE_NUMBER is already expired.
1837: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1838: p_msg_name => 'OKL_AM_QUOTE_ALREADY_EXP',
1839: p_token1 => 'QUOTE_NUMBER',
1840: p_token1_value => db_quote_number);
1841:
1838: p_msg_name => 'OKL_AM_QUOTE_ALREADY_EXP',
1839: p_token1 => 'QUOTE_NUMBER',
1840: p_token1_value => db_quote_number);
1841:
1842: RAISE OKL_API.G_EXCEPTION_ERROR;
1843:
1844: END IF;
1845:
1846: END IF;
1863: 'Y');
1864:
1865: -- Check qst_code
1866: IF lp_term_rec.qst_code IS NOT NULL
1867: AND lp_term_rec.qst_code <> OKL_API.G_MISS_CHAR THEN
1868:
1869:
1870: IF lp_term_rec.qst_code <> 'APPROVED' THEN
1871:
1871:
1872:
1873: -- Quote QUOTE_NUMBER should be QST_CODE_APPROVED before
1874: -- it is QST_CODE_ACCEPTED.
1875: OKL_API.set_message (
1876: p_app_name => 'OKL',
1877: p_msg_name => 'OKL_AM_QTE_APPROVE_ERR',
1878: p_token1 => 'QUOTE_NUMBER',
1879: p_token1_value => db_quote_number,
1881: p_token2_value => l_qst_code_1,
1882: p_token3 => 'QST_CODE_ACCEPTED',
1883: p_token3_value => l_qst_code_2);
1884:
1885: RAISE OKL_API.G_EXCEPTION_ERROR;
1886:
1887: END IF;
1888:
1889:
1893: IF db_qst_code <> 'APPROVED' THEN
1894:
1895: -- Quote QUOTE_NUMBER should be QST_CODE_APPROVED before
1896: -- it is QST_CODE_ACCEPTED.
1897: OKL_API.set_message (
1898: p_app_name => 'OKL',
1899: p_msg_name => 'OKL_AM_QTE_APPROVE_ERR',
1900: p_token1 => 'QUOTE_NUMBER',
1901: p_token1_value => db_quote_number,
1903: p_token2_value => l_qst_code_1,
1904: p_token3 => 'QST_CODE_ACCEPTED',
1905: p_token3_value => l_qst_code_2);
1906:
1907: RAISE OKL_API.G_EXCEPTION_ERROR;
1908:
1909: END IF;
1910:
1911: END IF;
1918: -- raise invalid value error.
1919: IF nvl(p_acceptance_source,'*') = 'ROLLOVER' -- rmunjulu Rollover/Release Use nvl
1920: THEN
1921: IF lp_term_rec.qtp_code IS NOT NULL
1922: AND lp_term_rec.qtp_code <> OKL_API.G_MISS_CHAR
1923: THEN
1924: IF lp_term_rec.qtp_code NOT LIKE 'TER_ROLL%'
1925: THEN
1926: OKL_API.set_message(p_app_name => G_APP_NAME,
1922: AND lp_term_rec.qtp_code <> OKL_API.G_MISS_CHAR
1923: THEN
1924: IF lp_term_rec.qtp_code NOT LIKE 'TER_ROLL%'
1925: THEN
1926: OKL_API.set_message(p_app_name => G_APP_NAME,
1927: p_msg_name => G_INVALID_VALUE,
1928: p_token1 => G_COL_NAME_TOKEN,
1929: p_token1_value => 'Acceptance Source');
1930: RAISE OKL_API.G_EXCEPTION_ERROR;
1926: OKL_API.set_message(p_app_name => G_APP_NAME,
1927: p_msg_name => G_INVALID_VALUE,
1928: p_token1 => G_COL_NAME_TOKEN,
1929: p_token1_value => 'Acceptance Source');
1930: RAISE OKL_API.G_EXCEPTION_ERROR;
1931: END IF;
1932: ELSIF (lp_term_rec.qtp_code IS NULL
1933: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1934: THEN
1929: p_token1_value => 'Acceptance Source');
1930: RAISE OKL_API.G_EXCEPTION_ERROR;
1931: END IF;
1932: ELSIF (lp_term_rec.qtp_code IS NULL
1933: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1934: THEN
1935: IF db_qtp_code NOT LIKE 'TER_ROLL%'
1936: THEN
1937: OKL_API.set_message(p_app_name => G_APP_NAME,
1933: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1934: THEN
1935: IF db_qtp_code NOT LIKE 'TER_ROLL%'
1936: THEN
1937: OKL_API.set_message(p_app_name => G_APP_NAME,
1938: p_msg_name => G_INVALID_VALUE,
1939: p_token1 => G_COL_NAME_TOKEN,
1940: p_token1_value => 'Acceptance Source');
1941: RAISE OKL_API.G_EXCEPTION_ERROR;
1937: OKL_API.set_message(p_app_name => G_APP_NAME,
1938: p_msg_name => G_INVALID_VALUE,
1939: p_token1 => G_COL_NAME_TOKEN,
1940: p_token1_value => 'Acceptance Source');
1941: RAISE OKL_API.G_EXCEPTION_ERROR;
1942: END IF;
1943: END IF;
1944: END IF;
1945:
1946: -- If quote is rollover quote and acceptance_source is not ROLLOVER then
1947: -- throw error message as rollover quote can be accepted only from rolled
1948: -- over contract.
1949: IF lp_term_rec.qtp_code IS NOT NULL
1950: AND lp_term_rec.qtp_code <> OKL_API.G_MISS_CHAR
1951: THEN
1952: IF lp_term_rec.qtp_code LIKE 'TER_ROLL%'
1953: AND nvl(p_acceptance_source,'*') <> 'ROLLOVER' -- rmunjulu Rollover/Release Use nvl
1954: THEN
1952: IF lp_term_rec.qtp_code LIKE 'TER_ROLL%'
1953: AND nvl(p_acceptance_source,'*') <> 'ROLLOVER' -- rmunjulu Rollover/Release Use nvl
1954: THEN
1955: -- Rollover quote can be accepted only from rolled over contract
1956: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1957: p_msg_name => 'OKL_NO_ACPT_ROLL_QTE');
1958: RAISE OKL_API.G_EXCEPTION_ERROR;
1959: END IF;
1960: -- if qtp_code is null then get from db and check
1954: THEN
1955: -- Rollover quote can be accepted only from rolled over contract
1956: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1957: p_msg_name => 'OKL_NO_ACPT_ROLL_QTE');
1958: RAISE OKL_API.G_EXCEPTION_ERROR;
1959: END IF;
1960: -- if qtp_code is null then get from db and check
1961: ELSIF (lp_term_rec.qtp_code IS NULL
1962: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1958: RAISE OKL_API.G_EXCEPTION_ERROR;
1959: END IF;
1960: -- if qtp_code is null then get from db and check
1961: ELSIF (lp_term_rec.qtp_code IS NULL
1962: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1963: THEN
1964: IF db_qtp_code LIKE 'TER_ROLL%'
1965: AND nvl(p_acceptance_source,'*') <> 'ROLLOVER' -- rmunjulu Rollover/Release Use nvl
1966: THEN
1964: IF db_qtp_code LIKE 'TER_ROLL%'
1965: AND nvl(p_acceptance_source,'*') <> 'ROLLOVER' -- rmunjulu Rollover/Release Use nvl
1966: THEN
1967: -- Rollover quote can be accepted only from rolled over contract
1968: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1969: p_msg_name => 'OKL_NO_ACPT_ROLL_QTE');
1970: RAISE OKL_API.G_EXCEPTION_ERROR;
1971: END IF;
1972: END IF;
1966: THEN
1967: -- Rollover quote can be accepted only from rolled over contract
1968: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1969: p_msg_name => 'OKL_NO_ACPT_ROLL_QTE');
1970: RAISE OKL_API.G_EXCEPTION_ERROR;
1971: END IF;
1972: END IF;
1973:
1974: --Bug# 3925453: pagarg +++ T and A +++++++ Start ++++++++++
1976: -- raise invalid value error.
1977: IF nvl(p_acceptance_source,'*') = 'RELEASE_CONTRACT' -- rmunjulu Rollover/Release Use nvl
1978: THEN
1979: IF lp_term_rec.qtp_code IS NOT NULL
1980: AND lp_term_rec.qtp_code <> OKL_API.G_MISS_CHAR
1981: THEN
1982: IF lp_term_rec.qtp_code <> 'TER_RELEASE_WO_PURCHASE'
1983: THEN
1984: OKL_API.set_message(p_app_name => G_APP_NAME,
1980: AND lp_term_rec.qtp_code <> OKL_API.G_MISS_CHAR
1981: THEN
1982: IF lp_term_rec.qtp_code <> 'TER_RELEASE_WO_PURCHASE'
1983: THEN
1984: OKL_API.set_message(p_app_name => G_APP_NAME,
1985: p_msg_name => G_INVALID_VALUE,
1986: p_token1 => G_COL_NAME_TOKEN,
1987: p_token1_value => 'Acceptance Source');
1988: RAISE OKL_API.G_EXCEPTION_ERROR;
1984: OKL_API.set_message(p_app_name => G_APP_NAME,
1985: p_msg_name => G_INVALID_VALUE,
1986: p_token1 => G_COL_NAME_TOKEN,
1987: p_token1_value => 'Acceptance Source');
1988: RAISE OKL_API.G_EXCEPTION_ERROR;
1989: END IF;
1990: ELSIF (lp_term_rec.qtp_code IS NULL
1991: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1992: THEN
1987: p_token1_value => 'Acceptance Source');
1988: RAISE OKL_API.G_EXCEPTION_ERROR;
1989: END IF;
1990: ELSIF (lp_term_rec.qtp_code IS NULL
1991: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1992: THEN
1993: IF db_qtp_code <> 'TER_RELEASE_WO_PURCHASE'
1994: THEN
1995: OKL_API.set_message(p_app_name => G_APP_NAME,
1991: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1992: THEN
1993: IF db_qtp_code <> 'TER_RELEASE_WO_PURCHASE'
1994: THEN
1995: OKL_API.set_message(p_app_name => G_APP_NAME,
1996: p_msg_name => G_INVALID_VALUE,
1997: p_token1 => G_COL_NAME_TOKEN,
1998: p_token1_value => 'Acceptance Source');
1999: RAISE OKL_API.G_EXCEPTION_ERROR;
1995: OKL_API.set_message(p_app_name => G_APP_NAME,
1996: p_msg_name => G_INVALID_VALUE,
1997: p_token1 => G_COL_NAME_TOKEN,
1998: p_token1_value => 'Acceptance Source');
1999: RAISE OKL_API.G_EXCEPTION_ERROR;
2000: END IF;
2001: END IF;
2002: END IF;
2003:
2004: -- If quote is release quote and acceptance_source is not RELEASE_CONTRACT then
2005: -- throw error message as release quote can be accepted only from released
2006: -- contract.
2007: IF lp_term_rec.qtp_code IS NOT NULL
2008: AND lp_term_rec.qtp_code <> OKL_API.G_MISS_CHAR
2009: THEN
2010: IF lp_term_rec.qtp_code = 'TER_RELEASE_WO_PURCHASE'
2011: AND nvl(p_acceptance_source,'*') <> 'RELEASE_CONTRACT' -- rmunjulu Rollover/Release Use nvl
2012: THEN
2010: IF lp_term_rec.qtp_code = 'TER_RELEASE_WO_PURCHASE'
2011: AND nvl(p_acceptance_source,'*') <> 'RELEASE_CONTRACT' -- rmunjulu Rollover/Release Use nvl
2012: THEN
2013: -- Rollover quote can be accepted only from rolled over contract
2014: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
2015: p_msg_name => 'OKL_AM_NO_ACPT_RELEASE_QTE');
2016: RAISE OKL_API.G_EXCEPTION_ERROR;
2017: END IF;
2018: -- if qtp_code is null then get from db and check
2012: THEN
2013: -- Rollover quote can be accepted only from rolled over contract
2014: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
2015: p_msg_name => 'OKL_AM_NO_ACPT_RELEASE_QTE');
2016: RAISE OKL_API.G_EXCEPTION_ERROR;
2017: END IF;
2018: -- if qtp_code is null then get from db and check
2019: ELSIF (lp_term_rec.qtp_code IS NULL
2020: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
2016: RAISE OKL_API.G_EXCEPTION_ERROR;
2017: END IF;
2018: -- if qtp_code is null then get from db and check
2019: ELSIF (lp_term_rec.qtp_code IS NULL
2020: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
2021: THEN
2022: IF db_qtp_code = 'TER_RELEASE_WO_PURCHASE'
2023: AND nvl(p_acceptance_source,'*') <> 'RELEASE_CONTRACT' -- rmunjulu Rollover/Release Use nvl
2024: THEN
2022: IF db_qtp_code = 'TER_RELEASE_WO_PURCHASE'
2023: AND nvl(p_acceptance_source,'*') <> 'RELEASE_CONTRACT' -- rmunjulu Rollover/Release Use nvl
2024: THEN
2025: -- Rollover quote can be accepted only from rolled over contract
2026: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
2027: p_msg_name => 'OKL_AM_NO_ACPT_RELEASE_QTE');
2028: RAISE OKL_API.G_EXCEPTION_ERROR;
2029: END IF;
2030: END IF;
2024: THEN
2025: -- Rollover quote can be accepted only from rolled over contract
2026: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
2027: p_msg_name => 'OKL_AM_NO_ACPT_RELEASE_QTE');
2028: RAISE OKL_API.G_EXCEPTION_ERROR;
2029: END IF;
2030: END IF;
2031: --Bug# 3925453: pagarg +++ T and A +++++++ End ++++++++++
2032:
2047: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_contract_transactions , return status: ' || l_return_status);
2048: END IF;
2049:
2050: -- Check the return status
2051: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2052:
2053: -- Error occured in util proc, message set by util proc raise exp
2054: RAISE OKL_API.G_EXCEPTION_ERROR;
2055:
2050: -- Check the return status
2051: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2052:
2053: -- Error occured in util proc, message set by util proc raise exp
2054: RAISE OKL_API.G_EXCEPTION_ERROR;
2055:
2056: END IF;
2057:
2058: -- Check if termination transaction exists for the asset
2059: IF lx_trn_tbl.COUNT > 0 THEN
2060:
2061: -- A termination transaction for the contract CONTRACT_NUMBER
2062: -- is already in progress.
2063: OKL_API.set_message (
2064: p_app_name => 'OKL',
2065: p_msg_name => 'OKL_AM_K_PENDING_TRN_ERROR',
2066: p_token1 => 'CONTRACT_NUMBER',
2067: p_token1_value => db_contract_number);
2065: p_msg_name => 'OKL_AM_K_PENDING_TRN_ERROR',
2066: p_token1 => 'CONTRACT_NUMBER',
2067: p_token1_value => db_contract_number);
2068:
2069: RAISE OKL_API.G_EXCEPTION_ERROR;
2070:
2071: END IF;
2072:
2073:
2087: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_non_trn_contract_quotes , return status: ' || l_return_status);
2088: END IF;
2089:
2090: -- Check the return status
2091: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2092:
2093: -- Error occured in util proc, message set by util proc raise exp
2094: RAISE OKL_API.G_EXCEPTION_ERROR;
2095:
2090: -- Check the return status
2091: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2092:
2093: -- Error occured in util proc, message set by util proc raise exp
2094: RAISE OKL_API.G_EXCEPTION_ERROR;
2095:
2096: END IF;
2097:
2098: -- Check if accepted quote exists for the contract
2105:
2106: -- Accepted quote QUOTE_NUMBER of quote type QUOTE_TYPE exists for
2107: -- contract CONTRACT_NUMBER. Cannot accept multiple quotes for the
2108: -- same contract.
2109: OKL_API.set_message (
2110: p_app_name => 'OKL',
2111: p_msg_name => 'OKL_AM_QTE_ACC_EXISTS_ERR',
2112: p_token1 => 'QUOTE_NUMBER',
2113: p_token1_value => lx_quote_tbl(lx_quote_tbl.FIRST).quote_number,
2115: p_token2_value => l_quote_type,
2116: p_token3 => 'CONTRACT_NUMBER',
2117: p_token3_value => db_contract_number);
2118:
2119: RAISE OKL_API.G_EXCEPTION_ERROR;
2120:
2121: END IF;
2122:
2123:
2140: IF (is_debug_statement_on) THEN
2141: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_INSURANCE_POLICIES_PUB.check_claims , return status: ' || l_return_status);
2142: END IF;
2143:
2144: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2145:
2146: -- Error checking claims for contract CONTRACT_NUMBER.
2147: OKL_API.set_message (
2148: p_app_name => 'OKL',
2143:
2144: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2145:
2146: -- Error checking claims for contract CONTRACT_NUMBER.
2147: OKL_API.set_message (
2148: p_app_name => 'OKL',
2149: p_msg_name => 'OKL_AM_ERR_CHECK_CLAIMS',
2150: p_token1 => 'CONTRACT_NUMBER',
2151: p_token1_value => db_contract_number);
2149: p_msg_name => 'OKL_AM_ERR_CHECK_CLAIMS',
2150: p_token1 => 'CONTRACT_NUMBER',
2151: p_token1_value => db_contract_number);
2152:
2153: RAISE OKL_API.G_EXCEPTION_ERROR;
2154:
2155: END IF;
2156:
2157: -- If claims exist do not accept quote
2157: -- If claims exist do not accept quote
2158: IF nvl(l_claims_exists, 'N') = 'Y' THEN
2159:
2160: -- Claims exist for the contract CONTRACT_NUMBER.
2161: OKL_API.set_message (
2162: p_app_name => 'OKL',
2163: p_msg_name => 'OKL_AM_INS_CLAIMS_EXIST',
2164: p_token1 => 'CONTRACT_NUMBER',
2165: p_token1_value => db_contract_number);
2163: p_msg_name => 'OKL_AM_INS_CLAIMS_EXIST',
2164: p_token1 => 'CONTRACT_NUMBER',
2165: p_token1_value => db_contract_number);
2166:
2167: RAISE OKL_API.G_EXCEPTION_ERROR;
2168:
2169: END IF;
2170:
2171:
2199: IF chk_contract_trn_rec.id IS NOT NULL THEN
2200:
2201: -- Transaction exists for contract CONTRACT_NUMBER which was processed
2202: -- after this quote was created. This quote is now invalid.
2203: OKL_API.set_message (
2204: p_app_name => 'OKL',
2205: p_msg_name => 'OKL_AM_TRN_EXISTS_ERR',
2206: p_token1 => 'CONTRACT_NUMBER',
2207: p_token1_value => db_contract_number);
2205: p_msg_name => 'OKL_AM_TRN_EXISTS_ERR',
2206: p_token1 => 'CONTRACT_NUMBER',
2207: p_token1_value => db_contract_number);
2208:
2209: RAISE OKL_API.G_EXCEPTION_ERROR;
2210:
2211: END IF;
2212: END LOOP;
2213:
2218: IF chk_split_trn_rec.id IS NOT NULL THEN
2219:
2220: -- Transaction exists for contract CONTRACT_NUMBER which was processed
2221: -- after this quote was created. This quote is now invalid.
2222: OKL_API.set_message (
2223: p_app_name => 'OKL',
2224: p_msg_name => 'OKL_AM_TRN_EXISTS_ERR',
2225: p_token1 => 'CONTRACT_NUMBER',
2226: p_token1_value => db_contract_number);
2224: p_msg_name => 'OKL_AM_TRN_EXISTS_ERR',
2225: p_token1 => 'CONTRACT_NUMBER',
2226: p_token1_value => db_contract_number);
2227:
2228: RAISE OKL_API.G_EXCEPTION_ERROR;
2229:
2230: END IF;
2231: END LOOP;
2232:
2241: IF chk_contract_trn_rec1.id IS NOT NULL THEN
2242:
2243: -- Transaction exists for contract CONTRACT_NUMBER which was processed
2244: -- after this quote was created. This quote is now invalid.
2245: OKL_API.set_message (
2246: p_app_name => 'OKL',
2247: p_msg_name => 'OKL_AM_TRN_EXISTS_ERR',
2248: p_token1 => 'CONTRACT_NUMBER',
2249: p_token1_value => db_contract_number);
2247: p_msg_name => 'OKL_AM_TRN_EXISTS_ERR',
2248: p_token1 => 'CONTRACT_NUMBER',
2249: p_token1_value => db_contract_number);
2250:
2251: RAISE OKL_API.G_EXCEPTION_ERROR;
2252:
2253: END IF;
2254: END LOOP;
2255:
2260: IF chk_split_trn_rec1.id IS NOT NULL THEN
2261:
2262: -- Transaction exists for contract CONTRACT_NUMBER which was processed
2263: -- after this quote was created. This quote is now invalid.
2264: OKL_API.set_message (
2265: p_app_name => 'OKL',
2266: p_msg_name => 'OKL_AM_TRN_EXISTS_ERR',
2267: p_token1 => 'CONTRACT_NUMBER',
2268: p_token1_value => db_contract_number);
2266: p_msg_name => 'OKL_AM_TRN_EXISTS_ERR',
2267: p_token1 => 'CONTRACT_NUMBER',
2268: p_token1_value => db_contract_number);
2269:
2270: RAISE OKL_API.G_EXCEPTION_ERROR;
2271:
2272: END IF;
2273: END LOOP;
2274: END IF;
2297: END IF;
2298:
2299:
2300: -- If error in checking if asset serialized
2301: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2302:
2303:
2304: RAISE OKL_API.G_EXCEPTION_ERROR;
2305:
2300: -- If error in checking if asset serialized
2301: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2302:
2303:
2304: RAISE OKL_API.G_EXCEPTION_ERROR;
2305:
2306: END IF;
2307:
2308:
2306: END IF;
2307:
2308:
2309: -- If asset serialized and IB Line Count <> Quote Qty then error
2310: IF lx_asset_serialized_yn = OKL_API.G_TRUE THEN
2311:
2312:
2313: -- Get the IB line count
2314: OPEN get_ib_lines_cnt_csr(get_qte_lines_rec.tql_id);
2324:
2325: -- Asset ASSET_NUMBER is serialized. Quote quantity
2326: -- QUOTE_QUANTITY does not match the number of selected asset
2327: -- units ASSET_UNITS.
2328: OKL_API.set_message (
2329: p_app_name => 'OKL',
2330: p_msg_name => 'OKL_AM_QTE_QTY_SRL_CNT_ERR',
2331: p_token1 => 'ASSET_NUMBER',
2332: p_token1_value => get_qte_lines_rec.asset_name,
2335: p_token3 => 'ASSET_UNITS',
2336: p_token3_value => l_ib_lines_count);
2337:
2338:
2339: RAISE OKL_API.G_EXCEPTION_ERROR;
2340:
2341: END IF;
2342: END IF;
2343:
2362: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called check_asset_validity_in_fa , return status: ' || l_return_status);
2363: END IF;
2364:
2365: -- If error in FA checks the throw exception, message set in above routine
2366: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2367:
2368: RAISE OKL_API.G_EXCEPTION_ERROR;
2369: END IF;
2370:
2364:
2365: -- If error in FA checks the throw exception, message set in above routine
2366: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2367:
2368: RAISE OKL_API.G_EXCEPTION_ERROR;
2369: END IF;
2370:
2371: IF (is_debug_statement_on) THEN
2372: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_contract_product_details');
2388: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_tax_owner: ' || l_tax_owner);
2389: END IF;
2390:
2391: -- If error then throw exception
2392: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2393:
2394: RAISE OKL_API.G_EXCEPTION_ERROR;
2395: END IF;
2396:
2390:
2391: -- If error then throw exception
2392: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2393:
2394: RAISE OKL_API.G_EXCEPTION_ERROR;
2395: END IF;
2396:
2397: IF l_deal_type LIKE 'LOAN%' THEN
2398:
2396:
2397: IF l_deal_type LIKE 'LOAN%' THEN
2398:
2399: -- Termination with purchase quote is not allowed for loan contract.
2400: OKL_API.SET_MESSAGE(
2401: p_app_name => 'OKL',
2402: p_msg_name => 'OKL_AM_LOAN_PAR_ERR');
2403:
2404: RAISE G_EXCEPTION_HALT_VALIDATION;
2431: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_tax_owner: ' || l_tax_owner);
2432: END IF;
2433:
2434: -- If error then throw exception
2435: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2436:
2437: RAISE OKL_API.G_EXCEPTION_ERROR;
2438: END IF;
2439:
2433:
2434: -- If error then throw exception
2435: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2436:
2437: RAISE OKL_API.G_EXCEPTION_ERROR;
2438: END IF;
2439:
2440: --Bug# 13447258: Partial Termination allowed for Estimated and Billed Loan contracts
2441: -- but not for Loans with Revenue Recognition Actual
2442: IF l_deal_type LIKE 'LOAN%'
2443: AND l_rev_rec_method IN ('ACTUAL') THEN
2444:
2445: --SECHAWLA 04-JAN-06 4915133
2446: OKL_API.SET_MESSAGE(
2447: p_app_name => 'OKL',
2448: p_msg_name => 'OKL_AM_LOAN_PAR_LN_TRMNT');
2449:
2450: RAISE OKL_API.G_EXCEPTION_ERROR;
2446: OKL_API.SET_MESSAGE(
2447: p_app_name => 'OKL',
2448: p_msg_name => 'OKL_AM_LOAN_PAR_LN_TRMNT');
2449:
2450: RAISE OKL_API.G_EXCEPTION_ERROR;
2451:
2452: END IF;
2453:
2454: --Bug# 13447258: Partial Termination allowed for Catchup-Cleanup Loan contracts
2455: --Bug# 14137617: Partial Termination is not allowed for Catchup-Cleanup Loan contracts
2456: /*IF l_deal_type LIKE 'LOAN%'
2457: AND l_int_cal_basis = 'CATCHUP/CLEANUP' THEN
2458:
2459: OKL_API.SET_MESSAGE(
2460: p_app_name => 'OKL',
2461: p_msg_name => 'OKL_AM_LOAN_CC_PAR_LN_TRMNT');
2462:
2463: RAISE OKL_API.G_EXCEPTION_ERROR;
2459: OKL_API.SET_MESSAGE(
2460: p_app_name => 'OKL',
2461: p_msg_name => 'OKL_AM_LOAN_CC_PAR_LN_TRMNT');
2462:
2463: RAISE OKL_API.G_EXCEPTION_ERROR;
2464:
2465: END IF;*/
2466:
2467: --Bug# 13447258: Partial Termination is not allowed for Float and Catchup-Cleanup Loan contracts if
2470: OKL_VARIABLE_INT_UTIL_PVT.check_vr_asset_level_upgrade(
2471: p_khr_id => l_contract_id,
2472: x_return_status => l_return_status);
2473:
2474: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2475: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2476: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2477: RAISE OKL_API.G_EXCEPTION_ERROR;
2478: END IF;
2471: p_khr_id => l_contract_id,
2472: x_return_status => l_return_status);
2473:
2474: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2475: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2476: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2477: RAISE OKL_API.G_EXCEPTION_ERROR;
2478: END IF;
2479: END IF;
2472: x_return_status => l_return_status);
2473:
2474: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2475: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2476: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2477: RAISE OKL_API.G_EXCEPTION_ERROR;
2478: END IF;
2479: END IF;
2480:
2473:
2474: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2475: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2476: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2477: RAISE OKL_API.G_EXCEPTION_ERROR;
2478: END IF;
2479: END IF;
2480:
2481: --Bug# 13447258: Partial Line Termination is not allowed for Float and Catchup-Cleanup Loan contracts
2486: 'OKL_INTEREST_CALCULATION_BASIS',
2487: l_int_cal_basis,
2488: 'Y');
2489:
2490: OKL_API.SET_MESSAGE(
2491: p_app_name => 'OKL',
2492: p_msg_name => 'OKL_AM_LOAN_PAR_LINE_TRMNT',
2493: p_token1 => 'INTEREST_CALC_METHOD',
2494: p_token1_value => l_icb_meaning);
2492: p_msg_name => 'OKL_AM_LOAN_PAR_LINE_TRMNT',
2493: p_token1 => 'INTEREST_CALC_METHOD',
2494: p_token1_value => l_icb_meaning);
2495:
2496: RAISE OKL_API.G_EXCEPTION_ERROR;
2497:
2498: END IF;
2499: END IF;
2500:
2544: END IF;
2545: -- update the quote to canceled
2546: OKL_TRX_QUOTES_PUB.update_trx_quotes(
2547: p_api_version => p_api_version,
2548: p_init_msg_list => OKL_API.G_FALSE,
2549: x_return_status => l_return_status,
2550: x_msg_count => x_msg_count,
2551: x_msg_data => x_msg_data,
2552: p_qtev_rec => lp_canceled_qtev_rec,
2554: IF (is_debug_statement_on) THEN
2555: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_TRX_QUOTES_PUB.update_trx_quotes , return status: ' || l_return_status);
2556: END IF;
2557:
2558: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2560: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2561: RAISE OKL_API.G_EXCEPTION_ERROR;
2562: END IF;
2555: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_TRX_QUOTES_PUB.update_trx_quotes , return status: ' || l_return_status);
2556: END IF;
2557:
2558: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2560: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2561: RAISE OKL_API.G_EXCEPTION_ERROR;
2562: END IF;
2563:
2556: END IF;
2557:
2558: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2560: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2561: RAISE OKL_API.G_EXCEPTION_ERROR;
2562: END IF;
2563:
2564: -- Requirement: Bug 11774089:
2557:
2558: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2560: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2561: RAISE OKL_API.G_EXCEPTION_ERROR;
2562: END IF;
2563:
2564: -- Requirement: Bug 11774089:
2565: -- When we are cancellinga Termination Quote, we need to abort the
2656: IF (NVL(l_ars_code,'?') <> 'REPOSSESSED') THEN
2657: -- You cannot accept this termination quote.
2658: -- Please update the Asset Return status to Repossessed for all
2659: -- assets on contract number CONTRACT_NUMBER.
2660: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
2661: p_msg_name => 'OKL_AM_ASSET_NOT_REPO',
2662: p_token1 => 'CONTRACT_NUMBER',
2663: p_token1_value => l_contract_number);
2664:
2661: p_msg_name => 'OKL_AM_ASSET_NOT_REPO',
2662: p_token1 => 'CONTRACT_NUMBER',
2663: p_token1_value => l_contract_number);
2664:
2665: RAISE OKL_API.G_EXCEPTION_ERROR;
2666: END IF;
2667: END IF;
2668: -- Bug 6674730 end
2669:
2686:
2687: IF l_int_calc_done IS NULL OR l_int_calc_done = 'N' THEN
2688:
2689: -- Message will be set in called procedure
2690: RAISE OKL_API.G_EXCEPTION_ERROR;
2691:
2692: -- rmunjulu Check if Variable Rate NON REAMORT case, if yes then run variable rate billing API
2693:
2694: END IF;
2708:
2709: -- Check if linked service contract exists for the quoted contract
2710: OKL_SERVICE_INTEGRATION_PVT.check_service_link (
2711: p_api_version => l_api_version,
2712: p_init_msg_list => OKL_API.G_FALSE,
2713: x_return_status => l_return_status,
2714: x_msg_count => l_msg_count,
2715: x_msg_data => l_msg_data,
2716: p_lease_contract_id => l_contract_id,
2722: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,
2723: 'called OKL_SERVICE_INTEGRATION_PVT.check_service_link , l_oks_chr_id: ' || l_oks_chr_id);
2724: END IF;
2725:
2726: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2727: -- Error checking service integration details.
2728: OKL_API.set_message (
2729: p_app_name => OKL_API.G_APP_NAME,
2730: p_msg_name => 'OKL_AM_K_SRV_INT_ERR');
2724: END IF;
2725:
2726: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2727: -- Error checking service integration details.
2728: OKL_API.set_message (
2729: p_app_name => OKL_API.G_APP_NAME,
2730: p_msg_name => 'OKL_AM_K_SRV_INT_ERR');
2731: END IF;
2732:
2725:
2726: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2727: -- Error checking service integration details.
2728: OKL_API.set_message (
2729: p_app_name => OKL_API.G_APP_NAME,
2730: p_msg_name => 'OKL_AM_K_SRV_INT_ERR');
2731: END IF;
2732:
2733: -- raise exception if error
2730: p_msg_name => 'OKL_AM_K_SRV_INT_ERR');
2731: END IF;
2732:
2733: -- raise exception if error
2734: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2735: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2736: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2737: RAISE OKL_API.G_EXCEPTION_ERROR;
2738: END IF;
2731: END IF;
2732:
2733: -- raise exception if error
2734: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2735: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2736: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2737: RAISE OKL_API.G_EXCEPTION_ERROR;
2738: END IF;
2739:
2732:
2733: -- raise exception if error
2734: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2735: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2736: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2737: RAISE OKL_API.G_EXCEPTION_ERROR;
2738: END IF;
2739:
2740: --Bug# 8756653
2733: -- raise exception if error
2734: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2735: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2736: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2737: RAISE OKL_API.G_EXCEPTION_ERROR;
2738: END IF;
2739:
2740: --Bug# 8756653
2741: -- Moved check for true partial quote outside the IF condition for linked service contract
2759:
2760: END IF;
2761:
2762: -- If linked Lease
2763: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
2764: AND l_oks_chr_id IS NOT NULL THEN
2765:
2766: -- If partial quote and since linked lease
2767: IF l_true_partial_quote = 'Y' THEN
2772: END LOOP;
2773:
2774: -- Partial Quote QUOTE_NUMBER for Lease Contract LEASE_CONTRACT can not be accepted,
2775: -- since Lease Contract is linked to Service Contract SERVICE_CONTRACT.
2776: OKL_API.set_message (
2777: p_app_name => OKL_API.G_APP_NAME,
2778: p_msg_name => 'OKL_AM_ACCEPT_LINKED_LEASE',
2779: p_token1 => 'QUOTE_NUMBER',
2780: p_token1_value => db_quote_number,
2773:
2774: -- Partial Quote QUOTE_NUMBER for Lease Contract LEASE_CONTRACT can not be accepted,
2775: -- since Lease Contract is linked to Service Contract SERVICE_CONTRACT.
2776: OKL_API.set_message (
2777: p_app_name => OKL_API.G_APP_NAME,
2778: p_msg_name => 'OKL_AM_ACCEPT_LINKED_LEASE',
2779: p_token1 => 'QUOTE_NUMBER',
2780: p_token1_value => db_quote_number,
2781: p_token2 => 'LEASE_CONTRACT',
2782: p_token2_value => l_contract_number,
2783: p_token3 => 'SERVICE_CONTRACT',
2784: p_token3_value => l_service_contract);
2785:
2786: RAISE OKL_API.G_EXCEPTION_ERROR;
2787:
2788: END IF;
2789:
2790: END IF;
2799: END IF;
2800:
2801: OKL_LLA_UTIL_PVT.check_rebook_upgrade
2802: (p_api_version => l_api_version,
2803: p_init_msg_list => OKL_API.G_FALSE,
2804: x_return_status => l_return_status,
2805: x_msg_count => l_msg_count,
2806: x_msg_data => l_msg_data,
2807: p_chr_id => l_contract_id);
2810: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,
2811: 'called OKL_LLA_UTIL_PVT.check_rebook_upgrade , return status: ' || l_return_status);
2812: END IF;
2813:
2814: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2816: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2817: RAISE OKL_API.G_EXCEPTION_ERROR;
2818: END IF;
2811: 'called OKL_LLA_UTIL_PVT.check_rebook_upgrade , return status: ' || l_return_status);
2812: END IF;
2813:
2814: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2816: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2817: RAISE OKL_API.G_EXCEPTION_ERROR;
2818: END IF;
2819: END IF;
2812: END IF;
2813:
2814: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2816: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2817: RAISE OKL_API.G_EXCEPTION_ERROR;
2818: END IF;
2819: END IF;
2820:
2813:
2814: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2816: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2817: RAISE OKL_API.G_EXCEPTION_ERROR;
2818: END IF;
2819: END IF;
2820:
2821: IF (is_debug_statement_on) THEN
2839: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,
2840: 'l_return_status: ' || l_return_status);
2841: END IF;
2842:
2843: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2844: -- Error getting contract product details.
2845: OKL_API.set_message (
2846: p_app_name => OKL_API.G_APP_NAME,
2847: p_msg_name => 'OKL_AM_K_PRD_DTLS_ERR');
2841: END IF;
2842:
2843: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2844: -- Error getting contract product details.
2845: OKL_API.set_message (
2846: p_app_name => OKL_API.G_APP_NAME,
2847: p_msg_name => 'OKL_AM_K_PRD_DTLS_ERR');
2848: END IF;
2849:
2842:
2843: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2844: -- Error getting contract product details.
2845: OKL_API.set_message (
2846: p_app_name => OKL_API.G_APP_NAME,
2847: p_msg_name => 'OKL_AM_K_PRD_DTLS_ERR');
2848: END IF;
2849:
2850: -- raise exception if error
2847: p_msg_name => 'OKL_AM_K_PRD_DTLS_ERR');
2848: END IF;
2849:
2850: -- raise exception if error
2851: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2853: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2854: RAISE OKL_API.G_EXCEPTION_ERROR;
2855: END IF;
2848: END IF;
2849:
2850: -- raise exception if error
2851: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2853: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2854: RAISE OKL_API.G_EXCEPTION_ERROR;
2855: END IF;
2856:
2849:
2850: -- raise exception if error
2851: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2853: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2854: RAISE OKL_API.G_EXCEPTION_ERROR;
2855: END IF;
2856:
2857: -- BPD Now provides a API which tells till when the billing was done, use that
2850: -- raise exception if error
2851: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2853: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2854: RAISE OKL_API.G_EXCEPTION_ERROR;
2855: END IF;
2856:
2857: -- BPD Now provides a API which tells till when the billing was done, use that
2858: IF (is_debug_statement_on) THEN
2913: -- Termination Quote 'QUOTE_NUMBER' cannot be accepted at this time as
2914: -- the concurrent program 'PROGRAM_NAME'
2915: -- (Request Id = 'REQUEST_ID') is 'PHASE'.
2916: -- Please accept the termination quote after the program has completed.
2917: OKL_API.set_message (
2918: p_app_name => OKL_API.G_APP_NAME,
2919: p_msg_name => 'OKL_AM_CONC_REC_FOUND',
2920: p_token1 => 'QUOTE_NUMBER',
2921: p_token1_value => db_quote_number,
2914: -- the concurrent program 'PROGRAM_NAME'
2915: -- (Request Id = 'REQUEST_ID') is 'PHASE'.
2916: -- Please accept the termination quote after the program has completed.
2917: OKL_API.set_message (
2918: p_app_name => OKL_API.G_APP_NAME,
2919: p_msg_name => 'OKL_AM_CONC_REC_FOUND',
2920: p_token1 => 'QUOTE_NUMBER',
2921: p_token1_value => db_quote_number,
2922: p_token2 => 'PROGRAM_NAME',
2925: p_token3_value => conc_details_rec.request_id,
2926: p_token4 => 'PHASE',
2927: p_token4_value => l_phase_meaning);
2928:
2929: RAISE OKL_API.G_EXCEPTION_ERROR;
2930: END IF;
2931:
2932: -- Call Billing API to do billing of contract
2933: IF (is_debug_statement_on) THEN
2937:
2938: -- Call stream billing API if stream billing not done
2939: OKL_STREAM_BILLING_PVT.bill_streams (
2940: p_api_version => p_api_version,
2941: p_init_msg_list => OKL_API.G_FALSE,
2942: x_return_status => l_return_status,
2943: x_msg_count => x_msg_count,
2944: x_msg_data => x_msg_data,
2945: p_commit => FND_API.G_FALSE,
2956: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,
2957: 'l_return_status: ' || l_return_status);
2958: END IF;
2959:
2960: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2961: -- Error during billing for the contract.
2962: OKL_API.set_message (
2963: p_app_name => OKL_API.G_APP_NAME,
2964: p_msg_name => 'OKL_AM_BILL_ERROR');
2958: END IF;
2959:
2960: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2961: -- Error during billing for the contract.
2962: OKL_API.set_message (
2963: p_app_name => OKL_API.G_APP_NAME,
2964: p_msg_name => 'OKL_AM_BILL_ERROR');
2965: END IF;
2966:
2959:
2960: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2961: -- Error during billing for the contract.
2962: OKL_API.set_message (
2963: p_app_name => OKL_API.G_APP_NAME,
2964: p_msg_name => 'OKL_AM_BILL_ERROR');
2965: END IF;
2966:
2967: -- raise exception if error
2964: p_msg_name => 'OKL_AM_BILL_ERROR');
2965: END IF;
2966:
2967: -- raise exception if error
2968: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2969: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2970: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2971: RAISE OKL_API.G_EXCEPTION_ERROR;
2972: END IF;
2965: END IF;
2966:
2967: -- raise exception if error
2968: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2969: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2970: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2971: RAISE OKL_API.G_EXCEPTION_ERROR;
2972: END IF;
2973:
2966:
2967: -- raise exception if error
2968: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2969: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2970: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2971: RAISE OKL_API.G_EXCEPTION_ERROR;
2972: END IF;
2973:
2974: ELSE -- RevRec IS NOT STREAMS or IntCalc IS NOT FIXED or OKS may be linked
2967: -- raise exception if error
2968: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2969: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2970: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2971: RAISE OKL_API.G_EXCEPTION_ERROR;
2972: END IF;
2973:
2974: ELSE -- RevRec IS NOT STREAMS or IntCalc IS NOT FIXED or OKS may be linked
2975:
2976: -- rmunjulu 6795295 set the message if needed
2977: IF nvl(l_stream_bill_done_yn ,'*') = 'N' THEN
2978: -- Quote QUOTE_NUMBER can not be accepted. Please process Regular Stream billing
2979: -- for contract CONTRACT_NUMBER up to the quote effective from date.
2980: OKL_API.set_message (
2981: p_app_name => 'OKL',
2982: p_msg_name => 'OKL_AM_ACCEPT_TQ_RUN_BILLING',
2983: p_token1 => 'QUOTE_NUMBER',
2984: p_token1_value => db_quote_number,
2986: p_token2_value => l_contract_number);
2987: ELSE -- service billing not done, message will be set in called procedure
2988: NULL;
2989: END IF;
2990: RAISE OKL_API.G_EXCEPTION_ERROR;
2991: END IF;
2992: -- rmunjulu AutoTerminate -- END
2993: END IF;
2994:
3056: IF (l_accrual_done IS NULL ) THEN -- rmunjulu 5036337 check for Null-- check for null rmunjulu LOANS_ENHANCEMENTS Use new variable
3057:
3058: -- Error occurred while checking the accrual status for contract number CONTRACT_NUMBER.
3059: -- Function OKL_GENERATE_ACCRUALS_PVT.check_date_accrued_till returned a NULL
3060: OKL_API.set_message (
3061: p_app_name => OKL_API.G_APP_NAME,
3062: p_msg_name => 'OKL_AM_CHK_ACCRUAL_ERR',
3063: p_token1 => 'CONTRACT_NUMBER',
3064: p_token1_value => l_contract_number);
3057:
3058: -- Error occurred while checking the accrual status for contract number CONTRACT_NUMBER.
3059: -- Function OKL_GENERATE_ACCRUALS_PVT.check_date_accrued_till returned a NULL
3060: OKL_API.set_message (
3061: p_app_name => OKL_API.G_APP_NAME,
3062: p_msg_name => 'OKL_AM_CHK_ACCRUAL_ERR',
3063: p_token1 => 'CONTRACT_NUMBER',
3064: p_token1_value => l_contract_number);
3065:
3062: p_msg_name => 'OKL_AM_CHK_ACCRUAL_ERR',
3063: p_token1 => 'CONTRACT_NUMBER',
3064: p_token1_value => l_contract_number);
3065:
3066: RAISE OKL_API.G_EXCEPTION_ERROR;
3067:
3068: ELSIF (l_accrual_done = 'N' ) THEN -- rmunjulu 5036337 check for N
3069:
3070: -- rmunjulu 6736148 -- start
3099: -- Termination Quote 'QUOTE_NUMBER' cannot be accepted at this time as
3100: -- the concurrent program 'PROGRAM_NAME'
3101: -- (Request Id = 'REQUEST_ID') is 'PHASE'.
3102: -- Please accept the termination quote after the program has completed.
3103: OKL_API.set_message (
3104: p_app_name => OKL_API.G_APP_NAME,
3105: p_msg_name => 'OKL_AM_CONC_REC_FOUND',
3106: p_token1 => 'QUOTE_NUMBER',
3107: p_token1_value => db_quote_number,
3100: -- the concurrent program 'PROGRAM_NAME'
3101: -- (Request Id = 'REQUEST_ID') is 'PHASE'.
3102: -- Please accept the termination quote after the program has completed.
3103: OKL_API.set_message (
3104: p_app_name => OKL_API.G_APP_NAME,
3105: p_msg_name => 'OKL_AM_CONC_REC_FOUND',
3106: p_token1 => 'QUOTE_NUMBER',
3107: p_token1_value => db_quote_number,
3108: p_token2 => 'PROGRAM_NAME',
3111: p_token3_value => conc_details_rec.request_id,
3112: p_token4 => 'PHASE',
3113: p_token4_value => l_phase_meaning);
3114:
3115: RAISE OKL_API.G_EXCEPTION_ERROR;
3116: END IF;
3117:
3118: -- set the accrual_rec
3119: l_accrual_rec.contract_id := l_contract_id;
3128:
3129: -- Call Accruals API
3130: OKL_GENERATE_ACCRUALS_PVT.generate_accruals (
3131: p_api_version => p_api_version,
3132: p_init_msg_list => OKL_API.G_FALSE,
3133: x_return_status => l_return_status,
3134: x_msg_count => x_msg_count,
3135: x_msg_data => x_msg_data,
3136: p_accrual_rec => l_accrual_rec);
3142: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,
3143: 'l_return_status: ' || l_return_status);
3144: END IF;
3145:
3146: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3147: -- Error during running accrual for the contract.
3148: OKL_API.set_message (
3149: p_app_name => OKL_API.G_APP_NAME,
3150: p_msg_name => 'OKL_AM_ACCRUAL_ERROR');
3144: END IF;
3145:
3146: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3147: -- Error during running accrual for the contract.
3148: OKL_API.set_message (
3149: p_app_name => OKL_API.G_APP_NAME,
3150: p_msg_name => 'OKL_AM_ACCRUAL_ERROR');
3151: END IF;
3152:
3145:
3146: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3147: -- Error during running accrual for the contract.
3148: OKL_API.set_message (
3149: p_app_name => OKL_API.G_APP_NAME,
3150: p_msg_name => 'OKL_AM_ACCRUAL_ERROR');
3151: END IF;
3152:
3153: -- raise exception if error
3150: p_msg_name => 'OKL_AM_ACCRUAL_ERROR');
3151: END IF;
3152:
3153: -- raise exception if error
3154: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3155: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3156: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3157: RAISE OKL_API.G_EXCEPTION_ERROR;
3158: END IF;
3151: END IF;
3152:
3153: -- raise exception if error
3154: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3155: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3156: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3157: RAISE OKL_API.G_EXCEPTION_ERROR;
3158: END IF;
3159: -- rmunjulu 6736148 -- end
3152:
3153: -- raise exception if error
3154: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3155: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3156: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3157: RAISE OKL_API.G_EXCEPTION_ERROR;
3158: END IF;
3159: -- rmunjulu 6736148 -- end
3160: ELSE -- RevRec IS NOT STREAMS or IntCalc IS NOT FIXED
3153: -- raise exception if error
3154: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3155: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3156: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3157: RAISE OKL_API.G_EXCEPTION_ERROR;
3158: END IF;
3159: -- rmunjulu 6736148 -- end
3160: ELSE -- RevRec IS NOT STREAMS or IntCalc IS NOT FIXED
3161:
3162: IF nvl(l_accrual_previous_mnth_yn,'N') = 'N' THEN -- rmunjulu 4769094 continue with current message
3163:
3164: -- Quote QUOTE_NUMBER can not be accepted. Please process accrual
3165: -- for contract CONTRACT_NUMBER up to the quote effective from date.
3166: OKL_API.set_message (
3167: p_app_name => OKL_API.G_APP_NAME,
3168: p_msg_name => 'OKL_AM_ACCEPT_TQ_RUN_ACCRUAL',
3169: p_token1 => 'QUOTE_NUMBER',
3170: p_token1_value => db_quote_number,
3163:
3164: -- Quote QUOTE_NUMBER can not be accepted. Please process accrual
3165: -- for contract CONTRACT_NUMBER up to the quote effective from date.
3166: OKL_API.set_message (
3167: p_app_name => OKL_API.G_APP_NAME,
3168: p_msg_name => 'OKL_AM_ACCEPT_TQ_RUN_ACCRUAL',
3169: p_token1 => 'QUOTE_NUMBER',
3170: p_token1_value => db_quote_number,
3171: p_token2 => 'CONTRACT_NUMBER',
3173:
3174: ELSE -- rmunjulu 4769094 new message check till quote eff dates previous month last date
3175: -- Quote QUOTE_NUMBER can not be accepted. Please process accrual
3176: -- for contract CONTRACT_NUMBER up to the DATE.
3177: OKL_API.set_message (
3178: p_app_name => OKL_API.G_APP_NAME,
3179: p_msg_name => 'OKL_AM_ACCEPT_TQ_RUN_ACCR_NEW',
3180: p_token1 => 'QUOTE_NUMBER',
3181: p_token1_value => db_quote_number,
3174: ELSE -- rmunjulu 4769094 new message check till quote eff dates previous month last date
3175: -- Quote QUOTE_NUMBER can not be accepted. Please process accrual
3176: -- for contract CONTRACT_NUMBER up to the DATE.
3177: OKL_API.set_message (
3178: p_app_name => OKL_API.G_APP_NAME,
3179: p_msg_name => 'OKL_AM_ACCEPT_TQ_RUN_ACCR_NEW',
3180: p_token1 => 'QUOTE_NUMBER',
3181: p_token1_value => db_quote_number,
3182: p_token2 => 'CONTRACT_NUMBER',
3184: p_token3 => 'DATE',
3185: p_token3_value => l_previous_mnth_last_date);
3186: END IF;
3187:
3188: RAISE OKL_API.G_EXCEPTION_ERROR;
3189: END IF;
3190: END IF;
3191:
3192: -- RMUNJULU 30-DEC-02 2699412 Added code to set currency conversion columns
3226: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_date: ' || l_currency_conversion_date);
3227: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_converted_amount: ' || l_converted_amount);
3228: END IF;
3229:
3230: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3231:
3232: -- The currency conversion rate could not be
3233: -- identified for specified currency.
3234: OKL_API.set_message(
3230: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3231:
3232: -- The currency conversion rate could not be
3233: -- identified for specified currency.
3234: OKL_API.set_message(
3235: p_app_name => 'OKL',
3236: p_msg_name => 'OKL_CONV_RATE_NOT_FOUND');
3237:
3238: END IF;
3237:
3238: END IF;
3239:
3240: -- raise exception if error
3241: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3242: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3243: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3244: RAISE OKL_API.G_EXCEPTION_ERROR;
3245: END IF;
3238: END IF;
3239:
3240: -- raise exception if error
3241: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3242: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3243: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3244: RAISE OKL_API.G_EXCEPTION_ERROR;
3245: END IF;
3246:
3239:
3240: -- raise exception if error
3241: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3242: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3243: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3244: RAISE OKL_API.G_EXCEPTION_ERROR;
3245: END IF;
3246:
3247: -- Set the currency conversion columns
3240: -- raise exception if error
3241: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3242: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3243: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3244: RAISE OKL_API.G_EXCEPTION_ERROR;
3245: END IF;
3246:
3247: -- Set the currency conversion columns
3248: lp_term_rec.currency_conversion_type := l_currency_conversion_type;
3260:
3261:
3262: -- if already accepted and trying to change then raise error
3263: ELSIF lp_term_rec.accepted_yn IS NOT NULL
3264: AND lp_term_rec.accepted_yn <> OKL_API.G_MISS_CHAR
3265: AND lp_term_rec.accepted_yn = G_NO
3266: AND db_accepted_yn = G_YES THEN
3267:
3268: --Quote QUOTE_NUMBER is already accepted.
3265: AND lp_term_rec.accepted_yn = G_NO
3266: AND db_accepted_yn = G_YES THEN
3267:
3268: --Quote QUOTE_NUMBER is already accepted.
3269: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
3270: p_msg_name => 'OKL_AM_QUOTE_ALREADY_ACCP',
3271: p_token1 => 'QUOTE_NUMBER',
3272: p_token1_value => db_quote_number);
3273:
3270: p_msg_name => 'OKL_AM_QUOTE_ALREADY_ACCP',
3271: p_token1 => 'QUOTE_NUMBER',
3272: p_token1_value => db_quote_number);
3273:
3274: RAISE OKL_API.G_EXCEPTION_ERROR;
3275:
3276: -- rmunjulu 4128965 Added this additional check
3277: -- if already accepted and trying to accept again
3278: -- Could happen when same rollover quote was added to 2 contracts and
3277: -- if already accepted and trying to accept again
3278: -- Could happen when same rollover quote was added to 2 contracts and
3279: -- accepted from one activation and then trying to accept from other activation
3280: ELSIF lp_term_rec.accepted_yn IS NOT NULL
3281: AND lp_term_rec.accepted_yn <> OKL_API.G_MISS_CHAR
3282: AND lp_term_rec.accepted_yn = G_YES
3283: AND db_accepted_yn = G_YES THEN
3284:
3285: --Quote QUOTE_NUMBER is already accepted.
3282: AND lp_term_rec.accepted_yn = G_YES
3283: AND db_accepted_yn = G_YES THEN
3284:
3285: --Quote QUOTE_NUMBER is already accepted.
3286: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
3287: p_msg_name => 'OKL_AM_QUOTE_ALREADY_ACCP',
3288: p_token1 => 'QUOTE_NUMBER',
3289: p_token1_value => db_quote_number);
3290:
3287: p_msg_name => 'OKL_AM_QUOTE_ALREADY_ACCP',
3288: p_token1 => 'QUOTE_NUMBER',
3289: p_token1_value => db_quote_number);
3290:
3291: RAISE OKL_API.G_EXCEPTION_ERROR;
3292:
3293:
3294: END IF; -- end if quote being accepted now
3295:
3316: IF (is_debug_statement_on) THEN
3317: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_TRX_QUOTES_PUB.update_trx_quotes , return status: ' || l_return_status);
3318: END IF;
3319:
3320: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3321: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3322: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3323: RAISE OKL_API.G_EXCEPTION_ERROR;
3324: END IF;
3317: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_TRX_QUOTES_PUB.update_trx_quotes , return status: ' || l_return_status);
3318: END IF;
3319:
3320: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3321: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3322: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3323: RAISE OKL_API.G_EXCEPTION_ERROR;
3324: END IF;
3325:
3318: END IF;
3319:
3320: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3321: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3322: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3323: RAISE OKL_API.G_EXCEPTION_ERROR;
3324: END IF;
3325:
3326: --*************
3319:
3320: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3321: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3322: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3323: RAISE OKL_API.G_EXCEPTION_ERROR;
3324: END IF;
3325:
3326: --*************
3327: -- launch WF
3356: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_return_status: ' || l_return_status);
3357: END IF;
3358:
3359: -- raise exception if error
3360: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3361: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3362: END IF;
3363:
3364: ELSE
3357: END IF;
3358:
3359: -- raise exception if error
3360: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3361: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3362: END IF;
3363:
3364: ELSE
3365: IF (is_debug_statement_on) THEN
3385: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_return_status: ' || l_return_status);
3386: END IF;
3387:
3388: -- raise exception if error
3389: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3391: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3392: RAISE OKL_API.G_EXCEPTION_ERROR;
3393: END IF;
3386: END IF;
3387:
3388: -- raise exception if error
3389: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3391: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3392: RAISE OKL_API.G_EXCEPTION_ERROR;
3393: END IF;
3394:
3387:
3388: -- raise exception if error
3389: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3391: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3392: RAISE OKL_API.G_EXCEPTION_ERROR;
3393: END IF;
3394:
3395: END IF;
3388: -- raise exception if error
3389: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3391: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3392: RAISE OKL_API.G_EXCEPTION_ERROR;
3393: END IF;
3394:
3395: END IF;
3396:
3395: END IF;
3396:
3397: -- Set message on stack
3398: -- Workflow event EVENT_NAME has been requested.
3399: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
3400: p_msg_name => 'OKL_AM_WF_EVENT_MSG',
3401: p_token1 => 'EVENT_NAME',
3402: p_token1_value => l_event_name);
3403:
3414: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.process_messages , return status: ' || l_return_status);
3415: END IF;
3416:
3417: -- raise exception if error
3418: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3420: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3421: RAISE OKL_API.G_EXCEPTION_ERROR;
3422: END IF;
3415: END IF;
3416:
3417: -- raise exception if error
3418: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3420: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3421: RAISE OKL_API.G_EXCEPTION_ERROR;
3422: END IF;
3423:
3416:
3417: -- raise exception if error
3418: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3420: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3421: RAISE OKL_API.G_EXCEPTION_ERROR;
3422: END IF;
3423:
3424: END IF;
3417: -- raise exception if error
3418: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3420: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3421: RAISE OKL_API.G_EXCEPTION_ERROR;
3422: END IF;
3423:
3424: END IF;
3425:
3428: x_term_rec := lx_term_rec;
3429: x_err_msg := l_err_msg;
3430:
3431: -- end the transaction
3432: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3433: IF (is_debug_procedure_on) THEN
3434: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
3435: END IF;
3436:
3434: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
3435: END IF;
3436:
3437: EXCEPTION
3438: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3439: IF (is_debug_exception_on) THEN
3440: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3441: END IF;
3442: IF qte_db_vals_csr%ISOPEN THEN
3456: IF get_unbill_strms_csr%ISOPEN THEN
3457: CLOSE get_unbill_strms_csr;
3458: END IF;
3459:
3460: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3461: (
3462: l_api_name,
3463: G_PKG_NAME,
3464: 'OKL_API.G_RET_STS_ERROR',
3460: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3461: (
3462: l_api_name,
3463: G_PKG_NAME,
3464: 'OKL_API.G_RET_STS_ERROR',
3465: x_msg_count,
3466: x_msg_data,
3467: '_PVT'
3468: );
3465: x_msg_count,
3466: x_msg_data,
3467: '_PVT'
3468: );
3469: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3470: IF (is_debug_exception_on) THEN
3471: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3472: END IF;
3473: IF qte_db_vals_csr%ISOPEN THEN
3487: IF get_unbill_strms_csr%ISOPEN THEN
3488: CLOSE get_unbill_strms_csr;
3489: END IF;
3490:
3491: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3492: (
3493: l_api_name,
3494: G_PKG_NAME,
3495: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3491: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3492: (
3493: l_api_name,
3494: G_PKG_NAME,
3495: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3496: x_msg_count,
3497: x_msg_data,
3498: '_PVT'
3499: );
3519: IF get_unbill_strms_csr%ISOPEN THEN
3520: CLOSE get_unbill_strms_csr;
3521: END IF;
3522:
3523: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3524: (
3525: l_api_name,
3526: G_PKG_NAME,
3527: 'OTHERS',
3562: x_term_tbl OUT NOCOPY term_tbl_type,
3563: x_err_msg OUT NOCOPY VARCHAR2,
3564: p_acceptance_source IN VARCHAR2 DEFAULT NULL) AS
3565:
3566: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3567: i NUMBER := 0;
3568: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3569: l_api_name CONSTANT VARCHAR2(30) := 'terminate_quote';
3570: l_api_version CONSTANT NUMBER := 1;
3564: p_acceptance_source IN VARCHAR2 DEFAULT NULL) AS
3565:
3566: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3567: i NUMBER := 0;
3568: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3569: l_api_name CONSTANT VARCHAR2(30) := 'terminate_quote';
3570: l_api_version CONSTANT NUMBER := 1;
3571:
3572: -- rmunjulu 4128965 Get quote details
3595: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_tbl.COUNT: ' || p_term_tbl.COUNT);
3596: END IF;
3597:
3598: --Check API version, initialize message list and create savepoint.
3599: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3600: G_PKG_NAME,
3601: p_init_msg_list,
3602: l_api_version,
3603: p_api_version,
3603: p_api_version,
3604: '_PVT',
3605: x_return_status);
3606:
3607: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3609: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3610: RAISE OKL_API.G_EXCEPTION_ERROR;
3611: END IF;
3604: '_PVT',
3605: x_return_status);
3606:
3607: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3609: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3610: RAISE OKL_API.G_EXCEPTION_ERROR;
3611: END IF;
3612:
3605: x_return_status);
3606:
3607: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3609: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3610: RAISE OKL_API.G_EXCEPTION_ERROR;
3611: END IF;
3612:
3613: IF (p_term_tbl.COUNT > 0) THEN
3606:
3607: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3609: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3610: RAISE OKL_API.G_EXCEPTION_ERROR;
3611: END IF;
3612:
3613: IF (p_term_tbl.COUNT > 0) THEN
3614: i := p_term_tbl.FIRST;
3622: l_accepted_yn_tbl(i) := get_qte_dtls_rec.accepted_yn;
3623:
3624: terminate_quote (
3625: p_api_version => p_api_version,
3626: p_init_msg_list => OKL_API.G_FALSE,
3627: x_return_status => x_return_status,
3628: x_msg_count => x_msg_count,
3629: x_msg_data => x_msg_data,
3630: p_term_rec => p_term_tbl(i),
3634: IF (is_debug_statement_on) THEN
3635: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called terminate_quote , return status: ' || x_return_status);
3636: END IF;
3637:
3638: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3639: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3640: l_overall_status := x_return_status;
3641: END IF;
3642: END IF;
3635: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called terminate_quote , return status: ' || x_return_status);
3636: END IF;
3637:
3638: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3639: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3640: l_overall_status := x_return_status;
3641: END IF;
3642: END IF;
3643:
3649: -- rmunjulu 4128965 If Rollover Quotes then
3650: IF nvl(p_acceptance_source,'*') = 'ROLLOVER' THEN
3651:
3652: -- raise exception if error
3653: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3655: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3656: RAISE OKL_API.G_EXCEPTION_ERROR;
3657: END IF;
3650: IF nvl(p_acceptance_source,'*') = 'ROLLOVER' THEN
3651:
3652: -- raise exception if error
3653: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3655: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3656: RAISE OKL_API.G_EXCEPTION_ERROR;
3657: END IF;
3658:
3651:
3652: -- raise exception if error
3653: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3655: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3656: RAISE OKL_API.G_EXCEPTION_ERROR;
3657: END IF;
3658:
3659: -- rmunjulu 4128965 Loop through the table again to Launch the Termination Workflows, as they were not launched earlier
3652: -- raise exception if error
3653: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3655: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3656: RAISE OKL_API.G_EXCEPTION_ERROR;
3657: END IF;
3658:
3659: -- rmunjulu 4128965 Loop through the table again to Launch the Termination Workflows, as they were not launched earlier
3660: i := p_term_tbl.FIRST;
3689: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'x_return_status: ' || x_return_status);
3690: END IF;
3691:
3692: -- raise exception if error
3693: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3694: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3695: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3696: RAISE OKL_API.G_EXCEPTION_ERROR;
3697: END IF;
3690: END IF;
3691:
3692: -- raise exception if error
3693: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3694: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3695: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3696: RAISE OKL_API.G_EXCEPTION_ERROR;
3697: END IF;
3698:
3691:
3692: -- raise exception if error
3693: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3694: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3695: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3696: RAISE OKL_API.G_EXCEPTION_ERROR;
3697: END IF;
3698:
3699: -- Set message on stack
3692: -- raise exception if error
3693: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3694: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3695: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3696: RAISE OKL_API.G_EXCEPTION_ERROR;
3697: END IF;
3698:
3699: -- Set message on stack
3700: -- Workflow event EVENT_NAME has been requested.
3697: END IF;
3698:
3699: -- Set message on stack
3700: -- Workflow event EVENT_NAME has been requested.
3701: OKL_API.set_message(
3702: p_app_name => OKL_API.G_APP_NAME,
3703: p_msg_name => 'OKL_AM_WF_EVENT_MSG',
3704: p_token1 => 'EVENT_NAME',
3705: p_token1_value => l_event_name);
3698:
3699: -- Set message on stack
3700: -- Workflow event EVENT_NAME has been requested.
3701: OKL_API.set_message(
3702: p_app_name => OKL_API.G_APP_NAME,
3703: p_msg_name => 'OKL_AM_WF_EVENT_MSG',
3704: p_token1 => 'EVENT_NAME',
3705: p_token1_value => l_event_name);
3706:
3729: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'x_return_status: ' || x_return_status);
3730: END IF;
3731:
3732: -- raise exception if error
3733: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3735: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3736: RAISE OKL_API.G_EXCEPTION_ERROR;
3737: END IF;
3730: END IF;
3731:
3732: -- raise exception if error
3733: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3735: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3736: RAISE OKL_API.G_EXCEPTION_ERROR;
3737: END IF;
3738:
3731:
3732: -- raise exception if error
3733: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3735: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3736: RAISE OKL_API.G_EXCEPTION_ERROR;
3737: END IF;
3738:
3739: -- Set message on stack
3732: -- raise exception if error
3733: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3735: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3736: RAISE OKL_API.G_EXCEPTION_ERROR;
3737: END IF;
3738:
3739: -- Set message on stack
3740: -- Workflow event EVENT_NAME has been requested.
3737: END IF;
3738:
3739: -- Set message on stack
3740: -- Workflow event EVENT_NAME has been requested.
3741: OKL_API.set_message(
3742: p_app_name => OKL_API.G_APP_NAME,
3743: p_msg_name => 'OKL_AM_WF_EVENT_MSG',
3744: p_token1 => 'EVENT_NAME',
3745: p_token1_value => l_event_name);
3738:
3739: -- Set message on stack
3740: -- Workflow event EVENT_NAME has been requested.
3741: OKL_API.set_message(
3742: p_app_name => OKL_API.G_APP_NAME,
3743: p_msg_name => 'OKL_AM_WF_EVENT_MSG',
3744: p_token1 => 'EVENT_NAME',
3745: p_token1_value => l_event_name);
3746:
3758: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.process_messages , return status: ' || x_return_status);
3759: END IF;
3760:
3761: -- raise exception if error
3762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3765: RAISE OKL_API.G_EXCEPTION_ERROR;
3766: END IF;
3759: END IF;
3760:
3761: -- raise exception if error
3762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3765: RAISE OKL_API.G_EXCEPTION_ERROR;
3766: END IF;
3767: END IF; -- End of If accepted now
3760:
3761: -- raise exception if error
3762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3765: RAISE OKL_API.G_EXCEPTION_ERROR;
3766: END IF;
3767: END IF; -- End of If accepted now
3768:
3761: -- raise exception if error
3762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3765: RAISE OKL_API.G_EXCEPTION_ERROR;
3766: END IF;
3767: END IF; -- End of If accepted now
3768:
3769: EXIT WHEN (i = p_term_tbl.LAST);
3776:
3777: END IF; -- End of Tbl count
3778:
3779: -- end the transaction
3780: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3781: IF (is_debug_procedure_on) THEN
3782: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
3783: END IF;
3784:
3782: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
3783: END IF;
3784:
3785: EXCEPTION
3786: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3787: IF (is_debug_exception_on) THEN
3788: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3789: END IF;
3790: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3786: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3787: IF (is_debug_exception_on) THEN
3788: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3789: END IF;
3790: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3791: (
3792: l_api_name,
3793: G_PKG_NAME,
3794: 'OKL_API.G_RET_STS_ERROR',
3790: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3791: (
3792: l_api_name,
3793: G_PKG_NAME,
3794: 'OKL_API.G_RET_STS_ERROR',
3795: x_msg_count,
3796: x_msg_data,
3797: '_PVT'
3798: );
3795: x_msg_count,
3796: x_msg_data,
3797: '_PVT'
3798: );
3799: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3800: IF (is_debug_exception_on) THEN
3801: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3802: END IF;
3803: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3799: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3800: IF (is_debug_exception_on) THEN
3801: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3802: END IF;
3803: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3804: (
3805: l_api_name,
3806: G_PKG_NAME,
3807: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3803: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3804: (
3805: l_api_name,
3806: G_PKG_NAME,
3807: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3808: x_msg_count,
3809: x_msg_data,
3810: '_PVT'
3811: );
3813: IF (is_debug_exception_on) THEN
3814: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3815: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3816: END IF;
3817: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3818: (
3819: l_api_name,
3820: G_PKG_NAME,
3821: 'OTHERS',
3854: SELECT QTE.qst_code
3855: FROM OKL_TRX_QUOTES_V QTE
3856: WHERE QTE.id = p_qte_id;
3857:
3858: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3859: l_api_name CONSTANT VARCHAR2(30) := 'submit_for_approval';
3860: l_api_version CONSTANT NUMBER := 1;
3861: l_event_name VARCHAR2(2000);
3862:
3929: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.repo_quote_indicator_yn: ' || p_term_rec.repo_quote_indicator_yn);
3930: END IF;
3931:
3932: --Check API version, initialize message list and create savepoint.
3933: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3934: G_PKG_NAME,
3935: p_init_msg_list,
3936: l_api_version,
3937: p_api_version,
3937: p_api_version,
3938: '_PVT',
3939: x_return_status);
3940:
3941: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3942: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3943: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3944: RAISE OKL_API.G_EXCEPTION_ERROR;
3945: END IF;
3938: '_PVT',
3939: x_return_status);
3940:
3941: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3942: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3943: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3944: RAISE OKL_API.G_EXCEPTION_ERROR;
3945: END IF;
3946:
3939: x_return_status);
3940:
3941: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3942: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3943: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3944: RAISE OKL_API.G_EXCEPTION_ERROR;
3945: END IF;
3946:
3947: -- Check if quote id passed is valid
3940:
3941: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3942: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3943: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3944: RAISE OKL_API.G_EXCEPTION_ERROR;
3945: END IF;
3946:
3947: -- Check if quote id passed is valid
3948: IF p_term_rec.id IS NULL OR p_term_rec.id = OKL_API.G_MISS_NUM THEN
3944: RAISE OKL_API.G_EXCEPTION_ERROR;
3945: END IF;
3946:
3947: -- Check if quote id passed is valid
3948: IF p_term_rec.id IS NULL OR p_term_rec.id = OKL_API.G_MISS_NUM THEN
3949:
3950: OKL_API.set_message( p_app_name => OKC_API.G_APP_NAME,
3951: p_msg_name => OKC_API.G_REQUIRED_VALUE,
3952: p_token1 => OKC_API.G_COL_NAME_TOKEN,
3946:
3947: -- Check if quote id passed is valid
3948: IF p_term_rec.id IS NULL OR p_term_rec.id = OKL_API.G_MISS_NUM THEN
3949:
3950: OKL_API.set_message( p_app_name => OKC_API.G_APP_NAME,
3951: p_msg_name => OKC_API.G_REQUIRED_VALUE,
3952: p_token1 => OKC_API.G_COL_NAME_TOKEN,
3953: p_token1_value => 'id');
3954:
3951: p_msg_name => OKC_API.G_REQUIRED_VALUE,
3952: p_token1 => OKC_API.G_COL_NAME_TOKEN,
3953: p_token1_value => 'id');
3954:
3955: RAISE OKL_API.G_EXCEPTION_ERROR;
3956:
3957: END IF;
3958:
3959:
3959:
3960: -- RMUNJULU 23-JAN-03 2762065 Added IF to get the qst_code if not passed
3961: -- If qst code not passed get from DB
3962: IF p_term_rec.qst_code IS NULL
3963: OR p_term_rec.qst_code = OKL_API.G_MISS_CHAR THEN
3964:
3965: -- get qst code from DB
3966: FOR get_quote_status_rec IN get_quote_status_csr(p_term_rec.id) LOOP
3967:
3978: END IF;
3979:
3980: -- Check if quote status passed is valid
3981: -- RMUNJULU 23-JAN-03 2762065 commented out IF since always gets the qst_code
3982: -- IF p_term_rec.qst_code IS NOT NULL AND p_term_rec.qst_code <> OKL_API.G_MISS_CHAR THEN
3983: IF l_qst_code NOT IN ('DRAFTED','REJECTED') THEN
3984:
3985: -- Generate incorrect status message.
3986: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
3982: -- IF p_term_rec.qst_code IS NOT NULL AND p_term_rec.qst_code <> OKL_API.G_MISS_CHAR THEN
3983: IF l_qst_code NOT IN ('DRAFTED','REJECTED') THEN
3984:
3985: -- Generate incorrect status message.
3986: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
3987: p_msg_name => 'OKL_AM_SUBMIT_FOR_APPROVAL');
3988:
3989: RAISE OKL_API.G_EXCEPTION_ERROR;
3990: ELSE
3985: -- Generate incorrect status message.
3986: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
3987: p_msg_name => 'OKL_AM_SUBMIT_FOR_APPROVAL');
3988:
3989: RAISE OKL_API.G_EXCEPTION_ERROR;
3990: ELSE
3991:
3992: IF (is_debug_statement_on) THEN
3993: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_WF.raise_business_event');
4014:
4015: END IF;
4016: -- ELSE
4017:
4018: -- OKL_API.set_message( p_app_name => OKC_API.G_APP_NAME,
4019: -- p_msg_name => OKC_API.G_REQUIRED_VALUE,
4020: -- p_token1 => OKC_API.G_COL_NAME_TOKEN,
4021: -- p_token1_value => 'qst_code');
4022: --
4019: -- p_msg_name => OKC_API.G_REQUIRED_VALUE,
4020: -- p_token1 => OKC_API.G_COL_NAME_TOKEN,
4021: -- p_token1_value => 'qst_code');
4022: --
4023: -- RAISE OKL_API.G_EXCEPTION_ERROR;
4024:
4025: -- END IF;
4026:
4027: -- rmunjulu returning p_term_rec as x_term_rec for bug 4547970
4029:
4030: x_return_status := l_return_status;
4031:
4032: -- end the transaction
4033: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4034: IF (is_debug_procedure_on) THEN
4035: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
4036: END IF;
4037:
4035: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
4036: END IF;
4037:
4038: EXCEPTION
4039: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4040: IF (is_debug_exception_on) THEN
4041: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4042: END IF;
4043: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4039: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4040: IF (is_debug_exception_on) THEN
4041: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4042: END IF;
4043: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4044: (
4045: l_api_name,
4046: G_PKG_NAME,
4047: 'OKL_API.G_RET_STS_ERROR',
4043: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4044: (
4045: l_api_name,
4046: G_PKG_NAME,
4047: 'OKL_API.G_RET_STS_ERROR',
4048: x_msg_count,
4049: x_msg_data,
4050: '_PVT'
4051: );
4048: x_msg_count,
4049: x_msg_data,
4050: '_PVT'
4051: );
4052: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4053: IF (is_debug_exception_on) THEN
4054: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
4055: END IF;
4056: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4052: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4053: IF (is_debug_exception_on) THEN
4054: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
4055: END IF;
4056: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4057: (
4058: l_api_name,
4059: G_PKG_NAME,
4060: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4056: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4057: (
4058: l_api_name,
4059: G_PKG_NAME,
4060: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4061: x_msg_count,
4062: x_msg_data,
4063: '_PVT'
4064: );
4066: IF (is_debug_exception_on) THEN
4067: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4068: || sqlcode || ' , SQLERRM : ' || sqlerrm);
4069: END IF;
4070: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4071: (
4072: l_api_name,
4073: G_PKG_NAME,
4074: 'OTHERS',
4124: l_qld_tbl qte_ln_dtl_tbl := p_qld_tbl;
4125: l_clev_tbl CLEV_TBL_TYPE;
4126: lv_sno_yn VARCHAR2(3);
4127: lv_select_yn VARCHAR2(3);
4128: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
4129: ln_select_count NUMBER := 0;
4130: ln_fin_line_id OKC_K_LINES_B.ID%TYPE;
4131:
4132: G_QUOTE_ALREADY_ACCP CONSTANT VARCHAR2(200) := 'OKL_AM_QUOTE_ALREADY_ACCP';
4136: -- RMUNJULU 24-JAN-03 2759726 Added variables
4137: ln_chr_id NUMBER;
4138: lx_contract_status VARCHAR2(300);
4139: l_api_version CONSTANT NUMBER := 1;
4140: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
4141: l_msg_data VARCHAR2(2000);
4142:
4143:
4144: -- Get the asset qty, Quote qty and Asset Number
4213: END IF;
4214: END LOOP;
4215: END IF;
4216: -- initialize return status
4217: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4218:
4219: IF l_qld_tbl.COUNT > 0 THEN
4220:
4221: i := l_qld_tbl.FIRST;
4223: -- Looping the table of record to validate
4224: LOOP
4225:
4226: IF (l_qld_tbl(i).tql_id IS NULL OR
4227: l_qld_tbl(i).tql_id = OKL_API.G_MISS_NUM) THEN
4228: x_return_status := OKL_API.G_RET_STS_ERROR;
4229: OKL_API.set_message(p_app_name => G_APP_NAME,
4230: p_msg_name => G_REQUIRED_VALUE,
4231: p_token1 => G_COL_NAME_TOKEN,
4224: LOOP
4225:
4226: IF (l_qld_tbl(i).tql_id IS NULL OR
4227: l_qld_tbl(i).tql_id = OKL_API.G_MISS_NUM) THEN
4228: x_return_status := OKL_API.G_RET_STS_ERROR;
4229: OKL_API.set_message(p_app_name => G_APP_NAME,
4230: p_msg_name => G_REQUIRED_VALUE,
4231: p_token1 => G_COL_NAME_TOKEN,
4232: p_token1_value => 'TQL_ID');
4225:
4226: IF (l_qld_tbl(i).tql_id IS NULL OR
4227: l_qld_tbl(i).tql_id = OKL_API.G_MISS_NUM) THEN
4228: x_return_status := OKL_API.G_RET_STS_ERROR;
4229: OKL_API.set_message(p_app_name => G_APP_NAME,
4230: p_msg_name => G_REQUIRED_VALUE,
4231: p_token1 => G_COL_NAME_TOKEN,
4232: p_token1_value => 'TQL_ID');
4233: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4229: OKL_API.set_message(p_app_name => G_APP_NAME,
4230: p_msg_name => G_REQUIRED_VALUE,
4231: p_token1 => G_COL_NAME_TOKEN,
4232: p_token1_value => 'TQL_ID');
4233: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4234: END IF;
4235:
4236: IF (l_qld_tbl(i).ib_line_id IS NULL OR
4237: l_qld_tbl(i).ib_line_id = OKL_API.G_MISS_NUM) THEN
4233: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4234: END IF;
4235:
4236: IF (l_qld_tbl(i).ib_line_id IS NULL OR
4237: l_qld_tbl(i).ib_line_id = OKL_API.G_MISS_NUM) THEN
4238: x_return_status := OKL_API.G_RET_STS_ERROR;
4239: OKL_API.set_message(p_app_name => G_APP_NAME,
4240: p_msg_name => G_REQUIRED_VALUE,
4241: p_token1 => G_COL_NAME_TOKEN,
4234: END IF;
4235:
4236: IF (l_qld_tbl(i).ib_line_id IS NULL OR
4237: l_qld_tbl(i).ib_line_id = OKL_API.G_MISS_NUM) THEN
4238: x_return_status := OKL_API.G_RET_STS_ERROR;
4239: OKL_API.set_message(p_app_name => G_APP_NAME,
4240: p_msg_name => G_REQUIRED_VALUE,
4241: p_token1 => G_COL_NAME_TOKEN,
4242: p_token1_value => 'IB_LINE_ID');
4235:
4236: IF (l_qld_tbl(i).ib_line_id IS NULL OR
4237: l_qld_tbl(i).ib_line_id = OKL_API.G_MISS_NUM) THEN
4238: x_return_status := OKL_API.G_RET_STS_ERROR;
4239: OKL_API.set_message(p_app_name => G_APP_NAME,
4240: p_msg_name => G_REQUIRED_VALUE,
4241: p_token1 => G_COL_NAME_TOKEN,
4242: p_token1_value => 'IB_LINE_ID');
4243: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4239: OKL_API.set_message(p_app_name => G_APP_NAME,
4240: p_msg_name => G_REQUIRED_VALUE,
4241: p_token1 => G_COL_NAME_TOKEN,
4242: p_token1_value => 'IB_LINE_ID');
4243: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4244: END IF;
4245:
4246: IF (l_qld_tbl(i).fin_line_id IS NULL OR
4247: l_qld_tbl(i).fin_line_id = OKL_API.G_MISS_NUM) THEN
4243: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4244: END IF;
4245:
4246: IF (l_qld_tbl(i).fin_line_id IS NULL OR
4247: l_qld_tbl(i).fin_line_id = OKL_API.G_MISS_NUM) THEN
4248: x_return_status := OKL_API.G_RET_STS_ERROR;
4249: OKL_API.set_message(p_app_name => G_APP_NAME,
4250: p_msg_name => G_REQUIRED_VALUE,
4251: p_token1 => G_COL_NAME_TOKEN,
4244: END IF;
4245:
4246: IF (l_qld_tbl(i).fin_line_id IS NULL OR
4247: l_qld_tbl(i).fin_line_id = OKL_API.G_MISS_NUM) THEN
4248: x_return_status := OKL_API.G_RET_STS_ERROR;
4249: OKL_API.set_message(p_app_name => G_APP_NAME,
4250: p_msg_name => G_REQUIRED_VALUE,
4251: p_token1 => G_COL_NAME_TOKEN,
4252: p_token1_value => 'FIN_LINE_ID');
4245:
4246: IF (l_qld_tbl(i).fin_line_id IS NULL OR
4247: l_qld_tbl(i).fin_line_id = OKL_API.G_MISS_NUM) THEN
4248: x_return_status := OKL_API.G_RET_STS_ERROR;
4249: OKL_API.set_message(p_app_name => G_APP_NAME,
4250: p_msg_name => G_REQUIRED_VALUE,
4251: p_token1 => G_COL_NAME_TOKEN,
4252: p_token1_value => 'FIN_LINE_ID');
4253: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4249: OKL_API.set_message(p_app_name => G_APP_NAME,
4250: p_msg_name => G_REQUIRED_VALUE,
4251: p_token1 => G_COL_NAME_TOKEN,
4252: p_token1_value => 'FIN_LINE_ID');
4253: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4254: END IF;
4255:
4256: IF (l_qld_tbl(i).dnz_chr_id IS NULL OR
4257: l_qld_tbl(i).dnz_chr_id = OKL_API.G_MISS_NUM) THEN
4253: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4254: END IF;
4255:
4256: IF (l_qld_tbl(i).dnz_chr_id IS NULL OR
4257: l_qld_tbl(i).dnz_chr_id = OKL_API.G_MISS_NUM) THEN
4258: x_return_status := OKL_API.G_RET_STS_ERROR;
4259: OKL_API.set_message(p_app_name => G_APP_NAME,
4260: p_msg_name => G_REQUIRED_VALUE,
4261: p_token1 => G_COL_NAME_TOKEN,
4254: END IF;
4255:
4256: IF (l_qld_tbl(i).dnz_chr_id IS NULL OR
4257: l_qld_tbl(i).dnz_chr_id = OKL_API.G_MISS_NUM) THEN
4258: x_return_status := OKL_API.G_RET_STS_ERROR;
4259: OKL_API.set_message(p_app_name => G_APP_NAME,
4260: p_msg_name => G_REQUIRED_VALUE,
4261: p_token1 => G_COL_NAME_TOKEN,
4262: p_token1_value => 'DNZ_CHR_ID');
4255:
4256: IF (l_qld_tbl(i).dnz_chr_id IS NULL OR
4257: l_qld_tbl(i).dnz_chr_id = OKL_API.G_MISS_NUM) THEN
4258: x_return_status := OKL_API.G_RET_STS_ERROR;
4259: OKL_API.set_message(p_app_name => G_APP_NAME,
4260: p_msg_name => G_REQUIRED_VALUE,
4261: p_token1 => G_COL_NAME_TOKEN,
4262: p_token1_value => 'DNZ_CHR_ID');
4263: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4259: OKL_API.set_message(p_app_name => G_APP_NAME,
4260: p_msg_name => G_REQUIRED_VALUE,
4261: p_token1 => G_COL_NAME_TOKEN,
4262: p_token1_value => 'DNZ_CHR_ID');
4263: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4264: END IF;
4265:
4266: IF (l_qld_tbl(i).instance_quantity IS NULL OR
4267: l_qld_tbl(i).instance_quantity = OKL_API.G_MISS_NUM) THEN
4263: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4264: END IF;
4265:
4266: IF (l_qld_tbl(i).instance_quantity IS NULL OR
4267: l_qld_tbl(i).instance_quantity = OKL_API.G_MISS_NUM) THEN
4268: x_return_status := OKL_API.G_RET_STS_ERROR;
4269: OKL_API.set_message(p_app_name => G_APP_NAME,
4270: p_msg_name => G_REQUIRED_VALUE,
4271: p_token1 => G_COL_NAME_TOKEN,
4264: END IF;
4265:
4266: IF (l_qld_tbl(i).instance_quantity IS NULL OR
4267: l_qld_tbl(i).instance_quantity = OKL_API.G_MISS_NUM) THEN
4268: x_return_status := OKL_API.G_RET_STS_ERROR;
4269: OKL_API.set_message(p_app_name => G_APP_NAME,
4270: p_msg_name => G_REQUIRED_VALUE,
4271: p_token1 => G_COL_NAME_TOKEN,
4272: p_token1_value => 'INSTANCE_QUANTITY');
4265:
4266: IF (l_qld_tbl(i).instance_quantity IS NULL OR
4267: l_qld_tbl(i).instance_quantity = OKL_API.G_MISS_NUM) THEN
4268: x_return_status := OKL_API.G_RET_STS_ERROR;
4269: OKL_API.set_message(p_app_name => G_APP_NAME,
4270: p_msg_name => G_REQUIRED_VALUE,
4271: p_token1 => G_COL_NAME_TOKEN,
4272: p_token1_value => 'INSTANCE_QUANTITY');
4273: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4269: OKL_API.set_message(p_app_name => G_APP_NAME,
4270: p_msg_name => G_REQUIRED_VALUE,
4271: p_token1 => G_COL_NAME_TOKEN,
4272: p_token1_value => 'INSTANCE_QUANTITY');
4273: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4274: END IF;
4275:
4276: -- Validating QTE ID
4277: OPEN validate_qte_id_csr(p_qte_id => l_qld_tbl(i).qte_id);
4281: END IF;
4282: CLOSE validate_qte_id_csr;
4283:
4284: IF (ln_quote_number IS NULL OR
4285: ln_quote_number = OKL_API.G_MISS_NUM) THEN
4286: OKL_API.set_message(p_app_name => G_APP_NAME,
4287: p_msg_name => G_INVALID_VALUE,
4288: p_token1 => G_COL_NAME_TOKEN,
4289: p_token1_value => 'QTE_ID');
4282: CLOSE validate_qte_id_csr;
4283:
4284: IF (ln_quote_number IS NULL OR
4285: ln_quote_number = OKL_API.G_MISS_NUM) THEN
4286: OKL_API.set_message(p_app_name => G_APP_NAME,
4287: p_msg_name => G_INVALID_VALUE,
4288: p_token1 => G_COL_NAME_TOKEN,
4289: p_token1_value => 'QTE_ID');
4290: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4287: p_msg_name => G_INVALID_VALUE,
4288: p_token1 => G_COL_NAME_TOKEN,
4289: p_token1_value => 'QTE_ID');
4290: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4291: x_return_status := OKL_API.G_RET_STS_ERROR;
4292: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4293: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4294: END IF;
4295:
4289: p_token1_value => 'QTE_ID');
4290: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4291: x_return_status := OKL_API.G_RET_STS_ERROR;
4292: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4293: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4294: END IF;
4295:
4296: -- RMUNJULU 24-JAN-03 2759726 commented out this code
4297: -- IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4303: -- Validating QST_CODE
4304: IF l_qld_tbl(i).qst_code IN ('ACCEPTED','COMPLETE') THEN
4305:
4306: -- Quote QUOTE_NUMBER is already accepted.
4307: OKL_API.set_message(p_app_name => G_APP_NAME,
4308: p_msg_name => G_QUOTE_ALREADY_ACCP,
4309: p_token1 => 'QUOTE_NUMBER',
4310: p_token1_value => TO_CHAR(ln_quote_number));
4311: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4308: p_msg_name => G_QUOTE_ALREADY_ACCP,
4309: p_token1 => 'QUOTE_NUMBER',
4310: p_token1_value => TO_CHAR(ln_quote_number));
4311: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4312: x_return_status := OKL_API.G_RET_STS_ERROR;
4313: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4314: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4315: END IF;
4316:
4310: p_token1_value => TO_CHAR(ln_quote_number));
4311: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4312: x_return_status := OKL_API.G_RET_STS_ERROR;
4313: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4314: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4315: END IF;
4316:
4317: -- RMUNJULU 24-JAN-03 2759726 Check if Quote is already canceled.
4318: IF l_qld_tbl(i).qst_code = 'CANCELLED' THEN
4317: -- RMUNJULU 24-JAN-03 2759726 Check if Quote is already canceled.
4318: IF l_qld_tbl(i).qst_code = 'CANCELLED' THEN
4319:
4320: -- Quote QUOTE_NUMBER is already canceled.
4321: OKL_API.set_message(p_app_name => G_APP_NAME,
4322: p_msg_name => 'OKL_AM_QUOTE_ALREADY_CANCELED',
4323: p_token1 => 'QUOTE_NUMBER',
4324: p_token1_value => TO_CHAR(ln_quote_number));
4325:
4322: p_msg_name => 'OKL_AM_QUOTE_ALREADY_CANCELED',
4323: p_token1 => 'QUOTE_NUMBER',
4324: p_token1_value => TO_CHAR(ln_quote_number));
4325:
4326: x_return_status := OKL_API.G_RET_STS_ERROR;
4327:
4328: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4329:
4330: END IF;
4324: p_token1_value => TO_CHAR(ln_quote_number));
4325:
4326: x_return_status := OKL_API.G_RET_STS_ERROR;
4327:
4328: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4329:
4330: END IF;
4331:
4332:
4348: END IF;
4349: CLOSE get_tql_csr;
4350:
4351: IF (lv_asset_number IS NOT NULL AND --RMUNJULU 24-JAN-03 2759726 Changed OR to AND
4352: lv_asset_number <> OKL_API.G_MISS_CHAR) THEN
4353:
4354: IF (is_debug_statement_on) THEN
4355: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract');
4356: END IF;
4356: END IF;
4357: -- RMUNJULU 24-JAN-03 2759726 Added code to check if contract valid
4358: OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract(
4359: p_api_version => l_api_version,
4360: p_init_msg_list => OKL_API.G_FALSE,
4361: x_return_status => x_return_status,
4362: x_msg_count => l_msg_count,
4363: x_msg_data => l_msg_data,
4364: p_contract_id => ln_chr_id,
4369: END IF;
4370:
4371:
4372: -- RMUNJULU 24-JAN-03 2759726 Added code to exit out of loop
4373: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR
4374: OR x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4375:
4376:
4377: IF ln_qte_qty IS NOT NULL AND --RMUNJULU 24-JAN-03 2759726 Changed OR to AND
4370:
4371:
4372: -- RMUNJULU 24-JAN-03 2759726 Added code to exit out of loop
4373: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR
4374: OR x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4375:
4376:
4377: IF ln_qte_qty IS NOT NULL AND --RMUNJULU 24-JAN-03 2759726 Changed OR to AND
4378: ln_asset_qty IS NOT NULL THEN
4379:
4380: IF ln_qte_qty > ln_asset_qty THEN
4381:
4382: -- Asset ASSET_NUMBER quantity is less than the specified quote quantity.
4383: OKL_API.set_message(p_app_name => G_APP_NAME,
4384: p_msg_name => G_INVALID_QUOTE_QTY,
4385: p_token1 => 'ASSET_NUMBER',
4386: p_token1_value => lv_asset_number);
4387:
4385: p_token1 => 'ASSET_NUMBER',
4386: p_token1_value => lv_asset_number);
4387:
4388: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4389: x_return_status := OKL_API.G_RET_STS_ERROR;
4390:
4391: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4392: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4393:
4388: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4389: x_return_status := OKL_API.G_RET_STS_ERROR;
4390:
4391: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4392: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4393:
4394: END IF;
4395:
4396: ELSE
4394: END IF;
4395:
4396: ELSE
4397:
4398: OKL_API.set_message(p_app_name => G_APP_NAME,
4399: p_msg_name => G_INVALID_VALUE, -- RMUNJULU 24-JAN-03 2759726 Changed
4400: p_token1 => G_COL_NAME_TOKEN,
4401: p_token1_value => 'TQL_ID');
4402:
4400: p_token1 => G_COL_NAME_TOKEN,
4401: p_token1_value => 'TQL_ID');
4402:
4403: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4404: x_return_status := OKL_API.G_RET_STS_ERROR;
4405:
4406: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4407: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4408:
4403: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4404: x_return_status := OKL_API.G_RET_STS_ERROR;
4405:
4406: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4407: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4408:
4409: END IF;
4410: ELSE
4411: OKL_API.set_message(p_app_name => G_APP_NAME,
4407: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4408:
4409: END IF;
4410: ELSE
4411: OKL_API.set_message(p_app_name => G_APP_NAME,
4412: p_msg_name => G_INVALID_VALUE,
4413: p_token1 => G_COL_NAME_TOKEN,
4414: p_token1_value => 'TQL_ID');
4415: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4412: p_msg_name => G_INVALID_VALUE,
4413: p_token1 => G_COL_NAME_TOKEN,
4414: p_token1_value => 'TQL_ID');
4415: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4416: x_return_status := OKL_API.G_RET_STS_ERROR;
4417: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4418: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4419: END IF;
4420:
4414: p_token1_value => 'TQL_ID');
4415: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4416: x_return_status := OKL_API.G_RET_STS_ERROR;
4417: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4418: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4419: END IF;
4420:
4421: -- RMUNJULU 24-JAN-03 2759726 commented out this code
4422: -- IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4426: -- END IF;
4427:
4428: -- Validating SELECT YN
4429: IF upper(nvl(l_qld_tbl(i).select_yn,'N')) NOT in ('Y','N') THEN
4430: OKL_API.set_message(p_app_name => G_APP_NAME,
4431: p_msg_name => G_INVALID_VALUE,
4432: p_token1 => G_COL_NAME_TOKEN,
4433: p_token1_value => 'SELECT_YN');
4434: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4431: p_msg_name => G_INVALID_VALUE,
4432: p_token1 => G_COL_NAME_TOKEN,
4433: p_token1_value => 'SELECT_YN');
4434: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4435: x_return_status := OKL_API.G_RET_STS_ERROR;
4436: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4437: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4438: ELSE
4439: l_qld_tbl(i).select_yn := upper(nvl(l_qld_tbl(i).select_yn,'N'));
4433: p_token1_value => 'SELECT_YN');
4434: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4435: x_return_status := OKL_API.G_RET_STS_ERROR;
4436: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4437: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4438: ELSE
4439: l_qld_tbl(i).select_yn := upper(nvl(l_qld_tbl(i).select_yn,'N'));
4440: IF l_qld_tbl(i).select_yn = 'Y' THEN
4441: ln_select_count := ln_select_count + 1;
4457: END IF;
4458: CLOSE validate_chr_id_csr;
4459:
4460: IF ln_dummy2 = 0 THEN
4461: OKL_API.set_message(p_app_name => G_APP_NAME,
4462: p_msg_name => G_INVALID_VALUE,
4463: p_token1 => G_COL_NAME_TOKEN,
4464: p_token1_value => 'DNZ_CHR_ID');
4465: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4462: p_msg_name => G_INVALID_VALUE,
4463: p_token1 => G_COL_NAME_TOKEN,
4464: p_token1_value => 'DNZ_CHR_ID');
4465: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4466: x_return_status := OKL_API.G_RET_STS_ERROR;
4467: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4468: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4469: END IF;
4470:
4464: p_token1_value => 'DNZ_CHR_ID');
4465: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4466: x_return_status := OKL_API.G_RET_STS_ERROR;
4467: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4468: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4469: END IF;
4470:
4471: -- RMUNJULU 24-JAN-03 2759726 commented out this code
4472: -- IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4484: END IF;
4485: CLOSE validate_Ib_line_csr;
4486:
4487: IF ln_dummy1 = 0 THEN
4488: OKL_API.set_message(p_app_name => G_APP_NAME,
4489: p_msg_name => G_INVALID_VALUE,
4490: p_token1 => G_COL_NAME_TOKEN,
4491: p_token1_value => 'IB_LINE_ID');
4492: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4489: p_msg_name => G_INVALID_VALUE,
4490: p_token1 => G_COL_NAME_TOKEN,
4491: p_token1_value => 'IB_LINE_ID');
4492: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4493: x_return_status := OKL_API.G_RET_STS_ERROR;
4494: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4495: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4496: END IF;
4497:
4491: p_token1_value => 'IB_LINE_ID');
4492: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4493: x_return_status := OKL_API.G_RET_STS_ERROR;
4494: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4495: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4496: END IF;
4497:
4498: -- RMUNJULU 24-JAN-03 2759726 commented out this code
4499: -- IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4505: -- We will validate the Financial Asset Line out of the loop, since
4506: -- We need to check if the count of the quote qty equal to count of select_yn = 'Y'
4507: ln_fin_line_id := l_qld_tbl(i).fin_line_id;
4508:
4509: IF x_return_status = OKL_API.G_RET_STS_ERROR OR
4510: l_return_status = OKL_API.G_RET_STS_ERROR THEN
4511: x_return_status := OKL_API.G_RET_STS_ERROR;
4512: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4513: ELSIF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR
4506: -- We need to check if the count of the quote qty equal to count of select_yn = 'Y'
4507: ln_fin_line_id := l_qld_tbl(i).fin_line_id;
4508:
4509: IF x_return_status = OKL_API.G_RET_STS_ERROR OR
4510: l_return_status = OKL_API.G_RET_STS_ERROR THEN
4511: x_return_status := OKL_API.G_RET_STS_ERROR;
4512: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4513: ELSIF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR
4514: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4507: ln_fin_line_id := l_qld_tbl(i).fin_line_id;
4508:
4509: IF x_return_status = OKL_API.G_RET_STS_ERROR OR
4510: l_return_status = OKL_API.G_RET_STS_ERROR THEN
4511: x_return_status := OKL_API.G_RET_STS_ERROR;
4512: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4513: ELSIF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR
4514: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4515: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4508:
4509: IF x_return_status = OKL_API.G_RET_STS_ERROR OR
4510: l_return_status = OKL_API.G_RET_STS_ERROR THEN
4511: x_return_status := OKL_API.G_RET_STS_ERROR;
4512: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4513: ELSIF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR
4514: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4515: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4516: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
4522:
4523: END LOOP;
4524:
4525: -- RMUNJULU 24-JAN-03 2759726 Changed = to <> and 'E' to 'S'
4526: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4527: RAISE G_EXCEPTION_HALT_VALIDATION;
4528: END IF;
4529:
4530: -- Validate Fin Line id by checking the asset is Serialized
4540: RAISE G_EXCEPTION_HALT_VALIDATION;
4541: END IF;
4542:
4543:
4544: IF lv_sno_yn = OKL_API.G_TRUE THEN
4545:
4546: -- Check if selected assets count not the same as quote quantity
4547: -- RMUNJULU 09-JAN-03 2743604 Added additional condition to check if
4548: -- asset qty not the same as quote qty
4551: --AND ln_asset_qty <> ln_qte_qty THEN
4552:
4553: -- Asset ASSET_NUMBER is serialized. Quote quantity QUOTE_QUANTITY
4554: -- does not match the number of selected asset units ASSET_UNITS.
4555: OKL_API.set_message(p_app_name => G_APP_NAME,
4556: p_msg_name => G_QTE_QTY_SRL_CNT_ERR,
4557: p_token1 => 'ASSET_NUMBER',
4558: p_token1_value => lv_asset_number,
4559: p_token2 => 'QUOTE_QUANTITY',
4571:
4572: ELSE -- table has no records
4573:
4574: -- RMUNJULU 24-JAN-03 2759726 Added set msg
4575: OKL_API.set_message(p_app_name => G_APP_NAME,
4576: p_msg_name => G_INVALID_VALUE,
4577: p_token1 => G_COL_NAME_TOKEN,
4578: p_token1_value => 'p_qld_tbl');
4579:
4576: p_msg_name => G_INVALID_VALUE,
4577: p_token1 => G_COL_NAME_TOKEN,
4578: p_token1_value => 'p_qld_tbl');
4579:
4580: x_return_status := OKL_API.G_RET_STS_ERROR;
4581:
4582: END IF;
4583: IF (is_debug_procedure_on) THEN
4584: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
4601: END IF;
4602: IF validate_qte_id_csr%ISOPEN THEN
4603: CLOSE validate_qte_id_csr;
4604: END IF;
4605: x_return_status := OKL_API.G_RET_STS_ERROR;
4606:
4607: WHEN OTHERS THEN
4608: IF (is_debug_exception_on) THEN
4609: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4621: IF validate_qte_id_csr%ISOPEN THEN
4622: CLOSE validate_qte_id_csr;
4623: END IF;
4624: -- store SQL error message on message stack
4625: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
4626: p_msg_name => G_UNEXPECTED_ERROR,
4627: p_token1 => G_SQLCODE_TOKEN,
4628: p_token1_value => SQLCODE,
4629: p_token2 => G_SQLERRM_TOKEN,
4628: p_token1_value => SQLCODE,
4629: p_token2 => G_SQLERRM_TOKEN,
4630: p_token2_value => SQLERRM);
4631: -- notify caller of an error as UNEXPETED error
4632: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4633:
4634: END validate_qte_ln_dtls;
4635: --------------------------------------------------------------------------------------------------------
4636:
4684: END LOOP;
4685: END IF;
4686: -- Call start_activity to create savepoint, check compatibility
4687: -- and initialize message list
4688: x_return_status := OKL_API.START_ACTIVITY (
4689: l_api_name
4690: ,p_init_msg_list
4691: ,'_PVT'
4692: ,x_return_status);
4690: ,p_init_msg_list
4691: ,'_PVT'
4692: ,x_return_status);
4693: -- Check if activity started successfully
4694: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4695: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4696: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4697: RAISE OKL_API.G_EXCEPTION_ERROR;
4698: END IF;
4691: ,'_PVT'
4692: ,x_return_status);
4693: -- Check if activity started successfully
4694: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4695: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4696: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4697: RAISE OKL_API.G_EXCEPTION_ERROR;
4698: END IF;
4699: -- Validate the table of record
4692: ,x_return_status);
4693: -- Check if activity started successfully
4694: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4695: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4696: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4697: RAISE OKL_API.G_EXCEPTION_ERROR;
4698: END IF;
4699: -- Validate the table of record
4700: validate_qte_ln_dtls(p_qld_tbl => l_qld_tbl,
4693: -- Check if activity started successfully
4694: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4695: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4696: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4697: RAISE OKL_API.G_EXCEPTION_ERROR;
4698: END IF;
4699: -- Validate the table of record
4700: validate_qte_ln_dtls(p_qld_tbl => l_qld_tbl,
4701: x_return_status => x_return_status);
4701: x_return_status => x_return_status);
4702: IF (is_debug_statement_on) THEN
4703: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called validate_qte_ln_dtls , x_return_status : ' || x_return_status);
4704: END IF;
4705: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4708: RAISE OKL_API.G_EXCEPTION_ERROR;
4709: END IF;
4702: IF (is_debug_statement_on) THEN
4703: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called validate_qte_ln_dtls , x_return_status : ' || x_return_status);
4704: END IF;
4705: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4708: RAISE OKL_API.G_EXCEPTION_ERROR;
4709: END IF;
4710: IF l_qld_tbl.COUNT > 0 THEN
4703: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called validate_qte_ln_dtls , x_return_status : ' || x_return_status);
4704: END IF;
4705: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4708: RAISE OKL_API.G_EXCEPTION_ERROR;
4709: END IF;
4710: IF l_qld_tbl.COUNT > 0 THEN
4711: i := l_qld_tbl.FIRST;
4704: END IF;
4705: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4708: RAISE OKL_API.G_EXCEPTION_ERROR;
4709: END IF;
4710: IF l_qld_tbl.COUNT > 0 THEN
4711: i := l_qld_tbl.FIRST;
4712: -- looping the table of record to decide weather to
4713: -- Create or Delete OKL_TXD_QUOTE_LINE_DTLS record
4714: LOOP
4715: IF l_qld_tbl(i).select_yn = 'Y' AND
4716: (l_qld_tbl(i).tqd_id IS NULL OR
4717: l_qld_tbl(i).tqd_id = OKL_API.G_MISS_NUM) THEN
4718: l_tqdv_rec.number_of_units := l_qld_tbl(i).instance_quantity;
4719: l_tqdv_rec.kle_id := l_qld_tbl(i).ib_line_id;
4720: l_tqdv_rec.tql_id := l_qld_tbl(i).tql_id;
4721: IF (is_debug_statement_on) THEN
4731: x_tqdv_rec => lx_tqdv_rec);
4732: IF (is_debug_statement_on) THEN
4733: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_TXD_QTE_LN_DTLS_PUB.create_txd_qte_ln_dtls , return status: ' || x_return_status);
4734: END IF;
4735: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4736: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4737: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4738: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4739: END IF;
4732: IF (is_debug_statement_on) THEN
4733: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_TXD_QTE_LN_DTLS_PUB.create_txd_qte_ln_dtls , return status: ' || x_return_status);
4734: END IF;
4735: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4736: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4737: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4738: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4739: END IF;
4740: l_qld_tbl(i).tqd_id := lx_tqdv_rec.id;
4733: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_TXD_QTE_LN_DTLS_PUB.create_txd_qte_ln_dtls , return status: ' || x_return_status);
4734: END IF;
4735: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4736: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4737: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4738: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4739: END IF;
4740: l_qld_tbl(i).tqd_id := lx_tqdv_rec.id;
4741: ELSIF l_qld_tbl(i).select_yn = 'N' AND
4734: END IF;
4735: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4736: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4737: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4738: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4739: END IF;
4740: l_qld_tbl(i).tqd_id := lx_tqdv_rec.id;
4741: ELSIF l_qld_tbl(i).select_yn = 'N' AND
4742: (l_qld_tbl(i).tqd_id IS NOT NULL OR
4739: END IF;
4740: l_qld_tbl(i).tqd_id := lx_tqdv_rec.id;
4741: ELSIF l_qld_tbl(i).select_yn = 'N' AND
4742: (l_qld_tbl(i).tqd_id IS NOT NULL OR
4743: l_qld_tbl(i).tqd_id <> OKL_API.G_MISS_NUM) THEN
4744: l_tqdv_rec.id := l_qld_tbl(i).tqd_id;
4745: IF (is_debug_statement_on) THEN
4746: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_TXD_QTE_LN_DTLS_PUB.delete_txd_qte_ln_dtls');
4747: END IF;
4754: p_tqdv_rec => l_tqdv_rec);
4755: IF (is_debug_statement_on) THEN
4756: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_TXD_QTE_LN_DTLS_PUB.delete_txd_qte_ln_dtls , return status: ' || x_return_status);
4757: END IF;
4758: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4759: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4760: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4761: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4762: END IF;
4755: IF (is_debug_statement_on) THEN
4756: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_TXD_QTE_LN_DTLS_PUB.delete_txd_qte_ln_dtls , return status: ' || x_return_status);
4757: END IF;
4758: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4759: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4760: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4761: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4762: END IF;
4763: l_qld_tbl(i).tqd_id := null;
4756: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_TXD_QTE_LN_DTLS_PUB.delete_txd_qte_ln_dtls , return status: ' || x_return_status);
4757: END IF;
4758: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4759: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4760: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4761: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4762: END IF;
4763: l_qld_tbl(i).tqd_id := null;
4764: END IF;
4757: END IF;
4758: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4759: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4760: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4761: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4762: END IF;
4763: l_qld_tbl(i).tqd_id := null;
4764: END IF;
4765: EXIT WHEN (i = l_qld_tbl.LAST);
4764: END IF;
4765: EXIT WHEN (i = l_qld_tbl.LAST);
4766: i := l_qld_tbl.NEXT(i);
4767: END LOOP;
4768: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4769: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4770: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4771: RAISE OKL_API.G_EXCEPTION_ERROR;
4772: END IF;
4765: EXIT WHEN (i = l_qld_tbl.LAST);
4766: i := l_qld_tbl.NEXT(i);
4767: END LOOP;
4768: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4769: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4770: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4771: RAISE OKL_API.G_EXCEPTION_ERROR;
4772: END IF;
4773: p_qld_tbl := l_qld_tbl;
4766: i := l_qld_tbl.NEXT(i);
4767: END LOOP;
4768: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4769: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4770: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4771: RAISE OKL_API.G_EXCEPTION_ERROR;
4772: END IF;
4773: p_qld_tbl := l_qld_tbl;
4774: END IF;
4767: END LOOP;
4768: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4769: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4770: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4771: RAISE OKL_API.G_EXCEPTION_ERROR;
4772: END IF;
4773: p_qld_tbl := l_qld_tbl;
4774: END IF;
4775: OKL_API.END_ACTIVITY (x_msg_count,
4771: RAISE OKL_API.G_EXCEPTION_ERROR;
4772: END IF;
4773: p_qld_tbl := l_qld_tbl;
4774: END IF;
4775: OKL_API.END_ACTIVITY (x_msg_count,
4776: x_msg_data );
4777: IF (is_debug_procedure_on) THEN
4778: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
4779: END IF;
4778: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
4779: END IF;
4780:
4781: EXCEPTION
4782: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4783: IF (is_debug_exception_on) THEN
4784: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4785: END IF;
4786: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4782: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4783: IF (is_debug_exception_on) THEN
4784: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4785: END IF;
4786: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4787: l_api_name,
4788: G_PKG_NAME,
4789: 'OKL_API.G_RET_STS_ERROR',
4790: x_msg_count,
4785: END IF;
4786: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4787: l_api_name,
4788: G_PKG_NAME,
4789: 'OKL_API.G_RET_STS_ERROR',
4790: x_msg_count,
4791: x_msg_data,
4792: '_PVT');
4793: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4789: 'OKL_API.G_RET_STS_ERROR',
4790: x_msg_count,
4791: x_msg_data,
4792: '_PVT');
4793: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4794: IF (is_debug_exception_on) THEN
4795: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
4796: END IF;
4797: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4793: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4794: IF (is_debug_exception_on) THEN
4795: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
4796: END IF;
4797: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4798: l_api_name,
4799: G_PKG_NAME,
4800: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4801: x_msg_count,
4796: END IF;
4797: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4798: l_api_name,
4799: G_PKG_NAME,
4800: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4801: x_msg_count,
4802: x_msg_data,
4803: '_PVT');
4804: WHEN OTHERS THEN
4805: IF (is_debug_exception_on) THEN
4806: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4807: || sqlcode || ' , SQLERRM : ' || sqlerrm);
4808: END IF;
4809: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4810: l_api_name,
4811: G_PKG_NAME,
4812: 'OTHERS',
4813: x_msg_count,
4896:
4897:
4898: -- If no qte_id then error
4899: IF p_tqlv_rec.qte_id IS NULL
4900: OR p_tqlv_rec.qte_id = OKL_API.G_MISS_NUM THEN
4901:
4902: -- Required value for kle_id
4903: OKL_API.set_message(
4904: p_app_name => 'OKL', -- RMUNJULU 30-DEC-02 2726739
4899: IF p_tqlv_rec.qte_id IS NULL
4900: OR p_tqlv_rec.qte_id = OKL_API.G_MISS_NUM THEN
4901:
4902: -- Required value for kle_id
4903: OKL_API.set_message(
4904: p_app_name => 'OKL', -- RMUNJULU 30-DEC-02 2726739
4905: p_msg_name => G_REQUIRED_VALUE,
4906: p_token1 => G_COL_NAME_TOKEN,
4907: p_token1_value => 'qte_id');
4905: p_msg_name => G_REQUIRED_VALUE,
4906: p_token1 => G_COL_NAME_TOKEN,
4907: p_token1_value => 'qte_id');
4908:
4909: RAISE OKL_API.G_EXCEPTION_ERROR;
4910:
4911: END IF;
4912:
4913:
4912:
4913:
4914: -- If kle_id is passed
4915: IF p_tqlv_rec.kle_id IS NOT NULL
4916: AND p_tqlv_rec.kle_id <> OKL_API.G_MISS_NUM THEN
4917:
4918: -- Check that kle_id passed is one of the assets quoted
4919: FOR get_qte_lines_rec IN get_qte_lines_csr(p_tqlv_rec.qte_id) LOOP
4920:
4928: -- If the asset is not a quoted asset then error
4929: IF l_kle_id_found <> 'Y' THEN
4930:
4931: -- Invalid value for kle_id
4932: OKL_API.set_message(
4933: p_app_name => 'OKL', -- RMUNJULU 30-DEC-02 2726739
4934: p_msg_name => G_INVALID_VALUE,
4935: p_token1 => G_COL_NAME_TOKEN,
4936: p_token1_value => 'kle_id');
4934: p_msg_name => G_INVALID_VALUE,
4935: p_token1 => G_COL_NAME_TOKEN,
4936: p_token1_value => 'kle_id');
4937:
4938: RAISE OKL_API.G_EXCEPTION_ERROR;
4939:
4940: END IF;
4941: END IF;
4942:
4943:
4944: -- RMUNJULU 05-FEB-03 2788257 Added code to check if type and amount are null
4945: -- Check if qlt_code is NULL
4946: IF p_tqlv_rec.qlt_code IS NULL
4947: OR p_tqlv_rec.qlt_code = OKL_API.G_MISS_CHAR THEN
4948:
4949: -- You must enter a value for PROMPT
4950: OKL_API.set_message(
4951: p_app_name => OKL_API.G_APP_NAME,
4946: IF p_tqlv_rec.qlt_code IS NULL
4947: OR p_tqlv_rec.qlt_code = OKL_API.G_MISS_CHAR THEN
4948:
4949: -- You must enter a value for PROMPT
4950: OKL_API.set_message(
4951: p_app_name => OKL_API.G_APP_NAME,
4952: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
4953: p_token1 => 'PROMPT',
4954: p_token1_value => OKL_AM_UTIL_PVT.get_ak_attribute('OKL_TYPE'));
4947: OR p_tqlv_rec.qlt_code = OKL_API.G_MISS_CHAR THEN
4948:
4949: -- You must enter a value for PROMPT
4950: OKL_API.set_message(
4951: p_app_name => OKL_API.G_APP_NAME,
4952: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
4953: p_token1 => 'PROMPT',
4954: p_token1_value => OKL_AM_UTIL_PVT.get_ak_attribute('OKL_TYPE'));
4955:
4952: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
4953: p_token1 => 'PROMPT',
4954: p_token1_value => OKL_AM_UTIL_PVT.get_ak_attribute('OKL_TYPE'));
4955:
4956: RAISE OKL_API.G_EXCEPTION_ERROR;
4957:
4958: END IF;
4959:
4960: -- Check if amount is NULL
4958: END IF;
4959:
4960: -- Check if amount is NULL
4961: IF p_tqlv_rec.amount IS NULL
4962: OR p_tqlv_rec.amount = OKL_API.G_MISS_NUM THEN
4963:
4964: -- You must enter a value for PROMPT
4965: OKL_API.set_message(
4966: p_app_name => OKL_API.G_APP_NAME,
4961: IF p_tqlv_rec.amount IS NULL
4962: OR p_tqlv_rec.amount = OKL_API.G_MISS_NUM THEN
4963:
4964: -- You must enter a value for PROMPT
4965: OKL_API.set_message(
4966: p_app_name => OKL_API.G_APP_NAME,
4967: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
4968: p_token1 => 'PROMPT',
4969: p_token1_value => OKL_AM_UTIL_PVT.get_ak_attribute('OKL_AMOUNT'));
4962: OR p_tqlv_rec.amount = OKL_API.G_MISS_NUM THEN
4963:
4964: -- You must enter a value for PROMPT
4965: OKL_API.set_message(
4966: p_app_name => OKL_API.G_APP_NAME,
4967: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
4968: p_token1 => 'PROMPT',
4969: p_token1_value => OKL_AM_UTIL_PVT.get_ak_attribute('OKL_AMOUNT'));
4970:
4967: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
4968: p_token1 => 'PROMPT',
4969: p_token1_value => OKL_AM_UTIL_PVT.get_ak_attribute('OKL_AMOUNT'));
4970:
4971: RAISE OKL_API.G_EXCEPTION_ERROR;
4972:
4973: END IF;
4974: IF (is_debug_procedure_on) THEN
4975: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
4976: END IF;
4977:
4978: EXCEPTION
4979:
4980: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4981: IF (is_debug_exception_on) THEN
4982: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4983: END IF;
4984:
4985: IF get_qte_lines_csr%ISOPEN THEN
4986: CLOSE get_qte_lines_csr;
4987: END IF;
4988:
4989: x_return_status := OKL_API.G_RET_STS_ERROR;
4990:
4991: WHEN OTHERS THEN
4992: IF (is_debug_exception_on) THEN
4993: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4998: CLOSE get_qte_lines_csr;
4999: END IF;
5000:
5001: -- unexpected error
5002: OKL_API.set_message(
5003: p_app_name => 'OKC',
5004: p_msg_name => g_unexpected_error,
5005: p_token1 => g_sqlcode_token,
5006: p_token1_value => sqlcode,
5006: p_token1_value => sqlcode,
5007: p_token2 => g_sqlerrm_token,
5008: p_token2_value => sqlerrm);
5009:
5010: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5011:
5012: END validate_quote_line;
5013:
5014:
5039: SELECT QTE.khr_id khr_id
5040: FROM OKL_TRX_QUOTES_V QTE
5041: WHERE QTE.id = p_qte_id;
5042:
5043: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5044: l_functional_currency_code VARCHAR2(15);
5045: l_contract_currency_code VARCHAR2(15);
5046: l_currency_conversion_type VARCHAR2(30);
5047: l_currency_conversion_rate NUMBER;
5140: END IF;
5141:
5142:
5143: -- RMUNJULU 30-DEC-02 2699412 Added msg
5144: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5145:
5146: -- The currency conversion rate could not be identified for specified currency.
5147: OKL_API.set_message(
5148: p_app_name => 'OKL',
5143: -- RMUNJULU 30-DEC-02 2699412 Added msg
5144: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5145:
5146: -- The currency conversion rate could not be identified for specified currency.
5147: OKL_API.set_message(
5148: p_app_name => 'OKL',
5149: p_msg_name => 'OKL_CONV_RATE_NOT_FOUND');
5150:
5151: END IF;
5150:
5151: END IF;
5152:
5153: -- raise exception if error
5154: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5155: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5156: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5157: RAISE OKL_API.G_EXCEPTION_ERROR;
5158: END IF;
5151: END IF;
5152:
5153: -- raise exception if error
5154: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5155: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5156: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5157: RAISE OKL_API.G_EXCEPTION_ERROR;
5158: END IF;
5159:
5152:
5153: -- raise exception if error
5154: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5155: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5156: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5157: RAISE OKL_API.G_EXCEPTION_ERROR;
5158: END IF;
5159:
5160: px_tqlv_rec.currency_code := l_contract_currency_code;
5153: -- raise exception if error
5154: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5155: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5156: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5157: RAISE OKL_API.G_EXCEPTION_ERROR;
5158: END IF;
5159:
5160: px_tqlv_rec.currency_code := l_contract_currency_code;
5161: px_tqlv_rec.currency_conversion_code := l_functional_currency_code;
5178: END IF;
5179:
5180: EXCEPTION
5181:
5182: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5183: IF (is_debug_exception_on) THEN
5184: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5185: END IF;
5186:
5187: IF get_khr_id_csr%ISOPEN THEN
5188: CLOSE get_khr_id_csr;
5189: END IF;
5190:
5191: x_return_status := OKL_API.G_RET_STS_ERROR;
5192:
5193: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5194: IF (is_debug_exception_on) THEN
5195: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5189: END IF;
5190:
5191: x_return_status := OKL_API.G_RET_STS_ERROR;
5192:
5193: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5194: IF (is_debug_exception_on) THEN
5195: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5196: END IF;
5197:
5198: IF get_khr_id_csr%ISOPEN THEN
5199: CLOSE get_khr_id_csr;
5200: END IF;
5201:
5202: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5203:
5204: WHEN OTHERS THEN
5205: IF (is_debug_exception_on) THEN
5206: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5211: CLOSE get_khr_id_csr;
5212: END IF;
5213:
5214: -- unexpected error
5215: OKL_API.set_message(
5216: p_app_name => 'OKC',
5217: p_msg_name => g_unexpected_error,
5218: p_token1 => g_sqlcode_token,
5219: p_token1_value => sqlcode,
5219: p_token1_value => sqlcode,
5220: p_token2 => g_sqlerrm_token,
5221: p_token2_value => sqlerrm);
5222:
5223: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5224:
5225: END set_line_currency_defaults;
5226:
5227:
5246: p_tqlv_rec IN tqlv_rec_type,
5247: x_tqlv_rec OUT NOCOPY tqlv_rec_type) IS
5248:
5249:
5250: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5251: lp_tqlv_rec tqlv_rec_type := p_tqlv_rec;
5252: lx_tqlv_rec tqlv_rec_type := p_tqlv_rec;
5253: l_api_name VARCHAR2(30) := 'create_quote_line';
5254: l_api_version CONSTANT NUMBER := 1;
5312: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tqlv_rec.due_date: ' || p_tqlv_rec.due_date);
5313: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tqlv_rec.try_id: ' || p_tqlv_rec.try_id);
5314: END IF;
5315: --Check API version, initialize message list and create savepoint.
5316: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
5317: G_PKG_NAME,
5318: p_init_msg_list,
5319: l_api_version,
5320: p_api_version,
5321: '_PVT',
5322: x_return_status);
5323:
5324: -- raise exception if error
5325: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5326: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5327: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5328: RAISE OKL_API.G_EXCEPTION_ERROR;
5329: END IF;
5322: x_return_status);
5323:
5324: -- raise exception if error
5325: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5326: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5327: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5328: RAISE OKL_API.G_EXCEPTION_ERROR;
5329: END IF;
5330:
5323:
5324: -- raise exception if error
5325: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5326: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5327: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5328: RAISE OKL_API.G_EXCEPTION_ERROR;
5329: END IF;
5330:
5331: SELECT SYSDATE INTO l_sys_date FROM DUAL;
5324: -- raise exception if error
5325: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5326: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5327: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5328: RAISE OKL_API.G_EXCEPTION_ERROR;
5329: END IF;
5330:
5331: SELECT SYSDATE INTO l_sys_date FROM DUAL;
5332:
5335: p_tqlv_rec => lp_tqlv_rec,
5336: x_return_status => l_return_status);
5337:
5338: -- raise exception if error
5339: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5340: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5341: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5342: RAISE OKL_API.G_EXCEPTION_ERROR;
5343: END IF;
5336: x_return_status => l_return_status);
5337:
5338: -- raise exception if error
5339: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5340: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5341: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5342: RAISE OKL_API.G_EXCEPTION_ERROR;
5343: END IF;
5344:
5337:
5338: -- raise exception if error
5339: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5340: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5341: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5342: RAISE OKL_API.G_EXCEPTION_ERROR;
5343: END IF;
5344:
5345: -- Set the quote line currency columns
5338: -- raise exception if error
5339: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5340: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5341: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5342: RAISE OKL_API.G_EXCEPTION_ERROR;
5343: END IF;
5344:
5345: -- Set the quote line currency columns
5346: set_line_currency_defaults(
5351: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called set_line_currency_defaults , return status: ' || l_return_status);
5352: END IF;
5353:
5354: -- raise exception if error
5355: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5356: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5357: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5358: RAISE OKL_API.G_EXCEPTION_ERROR;
5359: END IF;
5352: END IF;
5353:
5354: -- raise exception if error
5355: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5356: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5357: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5358: RAISE OKL_API.G_EXCEPTION_ERROR;
5359: END IF;
5360:
5353:
5354: -- raise exception if error
5355: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5356: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5357: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5358: RAISE OKL_API.G_EXCEPTION_ERROR;
5359: END IF;
5360:
5361: -- Added by rravikir (eBTax enhancement) Bug 5866207
5354: -- raise exception if error
5355: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5356: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5357: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5358: RAISE OKL_API.G_EXCEPTION_ERROR;
5359: END IF;
5360:
5361: -- Added by rravikir (eBTax enhancement) Bug 5866207
5362: OPEN get_try_id_csr ('Estimated Billing');
5365:
5366: lp_tqlv_rec.try_id := l_try_id;
5367: -- End (eBTax enhancement) Bug 5866207
5368: -- akrangan Bug# 5468781:Start
5369: IF lp_tqlv_rec.LINE_NUMBER IS NULL OR lp_tqlv_rec.LINE_NUMBER = OKL_API.G_MISS_NUM THEN
5370: -- get current max line number and increment it by one as the new line#
5371: OPEN get_max_tql_line_num_csr (lp_tqlv_rec.QTE_ID);
5372: FETCH get_max_tql_line_num_csr INTO l_new_line_number;
5373:
5398: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_TXL_QUOTE_LINES_PUB.insert_txl_quote_lines , return status: ' || l_return_status);
5399: END IF;
5400:
5401: -- raise exception if error
5402: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5404: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5405: RAISE OKL_API.G_EXCEPTION_ERROR;
5406: END IF;
5399: END IF;
5400:
5401: -- raise exception if error
5402: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5404: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5405: RAISE OKL_API.G_EXCEPTION_ERROR;
5406: END IF;
5407:
5400:
5401: -- raise exception if error
5402: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5404: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5405: RAISE OKL_API.G_EXCEPTION_ERROR;
5406: END IF;
5407:
5408: IF (is_debug_statement_on) THEN
5401: -- raise exception if error
5402: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5404: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5405: RAISE OKL_API.G_EXCEPTION_ERROR;
5406: END IF;
5407:
5408: IF (is_debug_statement_on) THEN
5409: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax');
5411: -- rmunjulu Sales_Tax_Enhancement
5412: -- Call the new OKL Tax engine to RECALCULATE tax for all quote lines
5413: OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax(
5414: p_api_version => l_api_version,
5415: p_init_msg_list => OKL_API.G_FALSE,
5416: x_return_status => l_return_status,
5417: x_msg_count => x_msg_count,
5418: x_msg_data => x_msg_data,
5419: p_source_trx_id => lx_tqlv_rec.qte_id, -- TRX_ID is QUOTE_ID
5422: IF (is_debug_statement_on) THEN
5423: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax , return status: ' || l_return_status);
5424: END IF;
5425:
5426: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5427: -- Tax Processing failed.
5428: OKL_API.set_message( p_app_name => 'OKL',
5429: p_msg_name =>'OKL_AM_PROCESS_TAX_ERR');
5430: END IF;
5424: END IF;
5425:
5426: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5427: -- Tax Processing failed.
5428: OKL_API.set_message( p_app_name => 'OKL',
5429: p_msg_name =>'OKL_AM_PROCESS_TAX_ERR');
5430: END IF;
5431:
5432: -- raise exception if error
5429: p_msg_name =>'OKL_AM_PROCESS_TAX_ERR');
5430: END IF;
5431:
5432: -- raise exception if error
5433: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5434: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5435: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5436: RAISE OKL_API.G_EXCEPTION_ERROR;
5437: END IF;
5430: END IF;
5431:
5432: -- raise exception if error
5433: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5434: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5435: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5436: RAISE OKL_API.G_EXCEPTION_ERROR;
5437: END IF;
5438:
5431:
5432: -- raise exception if error
5433: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5434: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5435: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5436: RAISE OKL_API.G_EXCEPTION_ERROR;
5437: END IF;
5438:
5439: -- PAGARG 4102565 Recalculate quote header elements and update quote header
5432: -- raise exception if error
5433: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5434: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5435: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5436: RAISE OKL_API.G_EXCEPTION_ERROR;
5437: END IF;
5438:
5439: -- PAGARG 4102565 Recalculate quote header elements and update quote header
5440: recalculate_quote(
5444: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called recalculate_quote , return status: ' || l_return_status);
5445: END IF;
5446:
5447: -- PAGARG 4102565 raise exception if error
5448: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5449: THEN
5450: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5451: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5452: THEN
5446:
5447: -- PAGARG 4102565 raise exception if error
5448: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5449: THEN
5450: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5451: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5452: THEN
5453: RAISE OKL_API.G_EXCEPTION_ERROR;
5454: END IF;
5447: -- PAGARG 4102565 raise exception if error
5448: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5449: THEN
5450: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5451: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5452: THEN
5453: RAISE OKL_API.G_EXCEPTION_ERROR;
5454: END IF;
5455:
5449: THEN
5450: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5451: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5452: THEN
5453: RAISE OKL_API.G_EXCEPTION_ERROR;
5454: END IF;
5455:
5456: -- set the return status and out variables
5457: x_return_status := l_return_status;
5457: x_return_status := l_return_status;
5458: x_tqlv_rec := lx_tqlv_rec;
5459:
5460: -- end the transaction
5461: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5462: IF (is_debug_procedure_on) THEN
5463: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
5464: END IF;
5465:
5463: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
5464: END IF;
5465:
5466: EXCEPTION
5467: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5468: IF (is_debug_exception_on) THEN
5469: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5470: END IF;
5471:
5472: IF (get_try_id_csr%isopen) THEN
5473: CLOSE get_try_id_csr;
5474: END IF;
5475:
5476: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5477: (
5478: l_api_name,
5479: G_PKG_NAME,
5480: 'OKL_API.G_RET_STS_ERROR',
5476: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5477: (
5478: l_api_name,
5479: G_PKG_NAME,
5480: 'OKL_API.G_RET_STS_ERROR',
5481: x_msg_count,
5482: x_msg_data,
5483: '_PVT'
5484: );
5482: x_msg_data,
5483: '_PVT'
5484: );
5485:
5486: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5487: IF (is_debug_exception_on) THEN
5488: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5489: END IF;
5490:
5491: IF (get_try_id_csr%isopen) THEN
5492: CLOSE get_try_id_csr;
5493: END IF;
5494:
5495: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5496: (
5497: l_api_name,
5498: G_PKG_NAME,
5499: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5495: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5496: (
5497: l_api_name,
5498: G_PKG_NAME,
5499: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5500: x_msg_count,
5501: x_msg_data,
5502: '_PVT'
5503: );
5512: IF (get_try_id_csr%isopen) THEN
5513: CLOSE get_try_id_csr;
5514: END IF;
5515:
5516: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5517: (
5518: l_api_name,
5519: G_PKG_NAME,
5520: 'OTHERS',
5546: x_tqlv_tbl OUT NOCOPY tqlv_tbl_type) IS
5547:
5548:
5549:
5550: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5551: lp_tqlv_tbl tqlv_tbl_type := p_tqlv_tbl;
5552: lx_tqlv_tbl tqlv_tbl_type := p_tqlv_tbl;
5553: l_api_name VARCHAR2(30) := 'create_quote_line';
5554: l_api_version CONSTANT NUMBER := 1;
5567: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tqlv_tbl.COUNT: ' || p_tqlv_tbl.COUNT);
5568: END IF;
5569:
5570: --Check API version, initialize message list and create savepoint.
5571: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
5572: G_PKG_NAME,
5573: p_init_msg_list,
5574: l_api_version,
5575: p_api_version,
5577: x_return_status);
5578:
5579:
5580: -- raise exception if error
5581: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5582: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5583: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5584: RAISE OKL_API.G_EXCEPTION_ERROR;
5585: END IF;
5578:
5579:
5580: -- raise exception if error
5581: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5582: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5583: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5584: RAISE OKL_API.G_EXCEPTION_ERROR;
5585: END IF;
5586:
5579:
5580: -- raise exception if error
5581: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5582: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5583: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5584: RAISE OKL_API.G_EXCEPTION_ERROR;
5585: END IF;
5586:
5587:
5580: -- raise exception if error
5581: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5582: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5583: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5584: RAISE OKL_API.G_EXCEPTION_ERROR;
5585: END IF;
5586:
5587:
5588: -- Loop thru the input tbl and call the rec type API
5605: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called create_quote_line , return status: ' || l_return_status);
5606: END IF;
5607:
5608: -- raise exception if error
5609: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5610: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5611: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5612: RAISE OKL_API.G_EXCEPTION_ERROR;
5613: END IF;
5606: END IF;
5607:
5608: -- raise exception if error
5609: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5610: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5611: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5612: RAISE OKL_API.G_EXCEPTION_ERROR;
5613: END IF;
5614:
5607:
5608: -- raise exception if error
5609: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5610: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5611: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5612: RAISE OKL_API.G_EXCEPTION_ERROR;
5613: END IF;
5614:
5615: EXIT WHEN (i = lp_tqlv_tbl.LAST);
5608: -- raise exception if error
5609: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5610: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5611: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5612: RAISE OKL_API.G_EXCEPTION_ERROR;
5613: END IF;
5614:
5615: EXIT WHEN (i = lp_tqlv_tbl.LAST);
5616: i := lp_tqlv_tbl.NEXT(i);
5624: x_tqlv_tbl := lx_tqlv_tbl;
5625:
5626:
5627: -- end the transaction
5628: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5629: IF (is_debug_procedure_on) THEN
5630: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
5631: END IF;
5632:
5632:
5633: EXCEPTION
5634:
5635:
5636: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5637: IF (is_debug_exception_on) THEN
5638: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5639: END IF;
5640:
5637: IF (is_debug_exception_on) THEN
5638: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5639: END IF;
5640:
5641: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5642: (
5643: l_api_name,
5644: G_PKG_NAME,
5645: 'OKL_API.G_RET_STS_ERROR',
5641: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5642: (
5643: l_api_name,
5644: G_PKG_NAME,
5645: 'OKL_API.G_RET_STS_ERROR',
5646: x_msg_count,
5647: x_msg_data,
5648: '_PVT'
5649: );
5648: '_PVT'
5649: );
5650:
5651:
5652: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5653: IF (is_debug_exception_on) THEN
5654: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5655: END IF;
5656:
5653: IF (is_debug_exception_on) THEN
5654: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5655: END IF;
5656:
5657: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5658: (
5659: l_api_name,
5660: G_PKG_NAME,
5661: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5657: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5658: (
5659: l_api_name,
5660: G_PKG_NAME,
5661: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5662: x_msg_count,
5663: x_msg_data,
5664: '_PVT'
5665: );
5670: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5671: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5672: END IF;
5673:
5674: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5675: (
5676: l_api_name,
5677: G_PKG_NAME,
5678: 'OTHERS',
5695: -- History : 23-DEC-02 RMUNJULU 2726739 Created
5696: -- 16-JAN-03 RMUNJULU 2754574 Added quote status condition
5697: -- GKADARKA bug 3825037, default currency_conversion_date, start_date, creation_date and
5698: -- program_update_date to NULL/G_MISS_DATE so that correct date is stamped.
5699: -- issue occurs when g_miss_date passed from rossetta layer does not match okl_api.g_miss_date
5700: -- : PAGARG 4102565 Added call to validate_upd_quote_line to validate the amounts
5701: -- : PAGARG 4102565 Added call to recalculate_quote
5702: -- : rmunjulu Sales_Tax_Enhancement
5703: -- End of comments
5721: OKL_TXL_QUOTE_LINES_V TQL
5722: WHERE TQL.id = p_tql_id
5723: AND TQL.qte_id = QTE.id;
5724:
5725: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5726: lp_tqlv_rec tqlv_rec_type := p_tqlv_rec;
5727: lx_tqlv_rec tqlv_rec_type := p_tqlv_rec;
5728: l_api_name VARCHAR2(30) := 'update_quote_line';
5729: l_api_version CONSTANT NUMBER := 1;
5787: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tqlv_rec.try_id: ' || p_tqlv_rec.try_id);
5788: END IF;
5789:
5790: --Check API version, initialize message list and create savepoint.
5791: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
5792: G_PKG_NAME,
5793: p_init_msg_list,
5794: l_api_version,
5795: p_api_version,
5796: '_PVT',
5797: x_return_status);
5798:
5799: -- raise exception if error
5800: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5802: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5803: RAISE OKL_API.G_EXCEPTION_ERROR;
5804: END IF;
5797: x_return_status);
5798:
5799: -- raise exception if error
5800: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5802: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5803: RAISE OKL_API.G_EXCEPTION_ERROR;
5804: END IF;
5805:
5798:
5799: -- raise exception if error
5800: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5802: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5803: RAISE OKL_API.G_EXCEPTION_ERROR;
5804: END IF;
5805:
5806: -- RMUNJULU 16-JAN-03 2754574 Added code to get quote status and check if
5799: -- raise exception if error
5800: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5802: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5803: RAISE OKL_API.G_EXCEPTION_ERROR;
5804: END IF;
5805:
5806: -- RMUNJULU 16-JAN-03 2754574 Added code to get quote status and check if
5807: -- DRAFTED or REJECTED.
5817: -- If the quote is not DRAFTED or REJECTED, can not delete lines.
5818: IF l_qst_code NOT IN ('DRAFTED','REJECTED' ) THEN
5819:
5820: -- Quote status must be either Drafted or Rejected.
5821: OKL_API.set_message (
5822: p_app_name => 'OKL',
5823: p_msg_name => 'OKL_AM_SUBMIT_FOR_APPROVAL');
5824:
5825: RAISE OKL_API.G_EXCEPTION_ERROR;
5821: OKL_API.set_message (
5822: p_app_name => 'OKL',
5823: p_msg_name => 'OKL_AM_SUBMIT_FOR_APPROVAL');
5824:
5825: RAISE OKL_API.G_EXCEPTION_ERROR;
5826:
5827: END IF;
5828:
5829: -- GKADARKA bug 3825037, default currency_conversion_date, start_date, creation_date and
5827: END IF;
5828:
5829: -- GKADARKA bug 3825037, default currency_conversion_date, start_date, creation_date and
5830: -- program_update_date to NULL/G_MISS_DATE so that correct date is stamped.
5831: -- issue occurs when g_miss_date passed from rossetta layer does not match okl_api.g_miss_date
5832:
5833: lp_tqlv_rec.currency_conversion_date := OKL_API.G_MISS_DATE;
5834: lp_tqlv_rec.creation_date := OKL_API.G_MISS_DATE;
5835: lp_tqlv_rec.start_date := null;
5829: -- GKADARKA bug 3825037, default currency_conversion_date, start_date, creation_date and
5830: -- program_update_date to NULL/G_MISS_DATE so that correct date is stamped.
5831: -- issue occurs when g_miss_date passed from rossetta layer does not match okl_api.g_miss_date
5832:
5833: lp_tqlv_rec.currency_conversion_date := OKL_API.G_MISS_DATE;
5834: lp_tqlv_rec.creation_date := OKL_API.G_MISS_DATE;
5835: lp_tqlv_rec.start_date := null;
5836: lp_tqlv_rec.program_update_date := null;
5837:
5830: -- program_update_date to NULL/G_MISS_DATE so that correct date is stamped.
5831: -- issue occurs when g_miss_date passed from rossetta layer does not match okl_api.g_miss_date
5832:
5833: lp_tqlv_rec.currency_conversion_date := OKL_API.G_MISS_DATE;
5834: lp_tqlv_rec.creation_date := OKL_API.G_MISS_DATE;
5835: lp_tqlv_rec.start_date := null;
5836: lp_tqlv_rec.program_update_date := null;
5837:
5838: -- PAGARG 4102565 Added validate quote line to check for rules during updates
5843: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called validate_upd_quote_line , return status: ' || l_return_status);
5844: END IF;
5845:
5846: -- PAGARG 4102565 raise exception if error
5847: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5848: THEN
5849: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5850: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5851: THEN
5845:
5846: -- PAGARG 4102565 raise exception if error
5847: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5848: THEN
5849: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5850: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5851: THEN
5852: RAISE OKL_API.G_EXCEPTION_ERROR;
5853: END IF;
5846: -- PAGARG 4102565 raise exception if error
5847: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5848: THEN
5849: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5850: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5851: THEN
5852: RAISE OKL_API.G_EXCEPTION_ERROR;
5853: END IF;
5854:
5848: THEN
5849: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5850: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5851: THEN
5852: RAISE OKL_API.G_EXCEPTION_ERROR;
5853: END IF;
5854:
5855: -- rmunjulu Sales_Tax_Enhancement
5856: IF l_amount >= 0 THEN
5892: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_TXL_QUOTE_LINES_PUB.update_txl_quote_lines , return status: ' || l_return_status);
5893: END IF;
5894:
5895: -- raise exception if error
5896: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5897: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5898: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5899: RAISE OKL_API.G_EXCEPTION_ERROR;
5900: END IF;
5893: END IF;
5894:
5895: -- raise exception if error
5896: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5897: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5898: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5899: RAISE OKL_API.G_EXCEPTION_ERROR;
5900: END IF;
5901:
5894:
5895: -- raise exception if error
5896: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5897: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5898: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5899: RAISE OKL_API.G_EXCEPTION_ERROR;
5900: END IF;
5901:
5902: IF (is_debug_statement_on) THEN
5895: -- raise exception if error
5896: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5897: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5898: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5899: RAISE OKL_API.G_EXCEPTION_ERROR;
5900: END IF;
5901:
5902: IF (is_debug_statement_on) THEN
5903: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax');
5905: -- rmunjulu Sales_Tax_Enhancement
5906: -- Call the new OKL Tax engine to RECALCULATE tax for all quote lines
5907: OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax(
5908: p_api_version => l_api_version,
5909: p_init_msg_list => OKL_API.G_FALSE,
5910: x_return_status => l_return_status,
5911: x_msg_count => x_msg_count,
5912: x_msg_data => x_msg_data,
5913: p_source_trx_id => l_qte_id, -- TRX_ID is QUOTE_ID
5916: IF (is_debug_statement_on) THEN
5917: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax , return status: ' || l_return_status);
5918: END IF;
5919:
5920: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5921: -- Tax Processing failed.
5922: OKL_API.set_message( p_app_name => 'OKL',
5923: p_msg_name =>'OKL_AM_PROCESS_TAX_ERR');
5924: END IF;
5918: END IF;
5919:
5920: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5921: -- Tax Processing failed.
5922: OKL_API.set_message( p_app_name => 'OKL',
5923: p_msg_name =>'OKL_AM_PROCESS_TAX_ERR');
5924: END IF;
5925:
5926: -- raise exception if error
5923: p_msg_name =>'OKL_AM_PROCESS_TAX_ERR');
5924: END IF;
5925:
5926: -- raise exception if error
5927: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5929: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5930: RAISE OKL_API.G_EXCEPTION_ERROR;
5931: END IF;
5924: END IF;
5925:
5926: -- raise exception if error
5927: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5929: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5930: RAISE OKL_API.G_EXCEPTION_ERROR;
5931: END IF;
5932:
5925:
5926: -- raise exception if error
5927: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5929: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5930: RAISE OKL_API.G_EXCEPTION_ERROR;
5931: END IF;
5932:
5933: -- PAGARG 4102565 Recalculate quote header elements and update quote header
5926: -- raise exception if error
5927: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5929: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5930: RAISE OKL_API.G_EXCEPTION_ERROR;
5931: END IF;
5932:
5933: -- PAGARG 4102565 Recalculate quote header elements and update quote header
5934: recalculate_quote(
5938: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called recalculate_quote , return status: ' || l_return_status);
5939: END IF;
5940:
5941: -- PAGARG 4102565 raise exception if error
5942: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5943: THEN
5944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5945: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5946: THEN
5940:
5941: -- PAGARG 4102565 raise exception if error
5942: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5943: THEN
5944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5945: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5946: THEN
5947: RAISE OKL_API.G_EXCEPTION_ERROR;
5948: END IF;
5941: -- PAGARG 4102565 raise exception if error
5942: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5943: THEN
5944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5945: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5946: THEN
5947: RAISE OKL_API.G_EXCEPTION_ERROR;
5948: END IF;
5949:
5943: THEN
5944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5945: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5946: THEN
5947: RAISE OKL_API.G_EXCEPTION_ERROR;
5948: END IF;
5949:
5950: -- set the return status and out variables
5951: x_return_status := l_return_status;
5951: x_return_status := l_return_status;
5952: x_tqlv_rec := lx_tqlv_rec;
5953:
5954: -- end the transaction
5955: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5956: IF (is_debug_procedure_on) THEN
5957: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
5958: END IF;
5959:
5957: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
5958: END IF;
5959:
5960: EXCEPTION
5961: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5962: IF (is_debug_exception_on) THEN
5963: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5964: END IF;
5965:
5962: IF (is_debug_exception_on) THEN
5963: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5964: END IF;
5965:
5966: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5967: (
5968: l_api_name,
5969: G_PKG_NAME,
5970: 'OKL_API.G_RET_STS_ERROR',
5966: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5967: (
5968: l_api_name,
5969: G_PKG_NAME,
5970: 'OKL_API.G_RET_STS_ERROR',
5971: x_msg_count,
5972: x_msg_data,
5973: '_PVT'
5974: );
5972: x_msg_data,
5973: '_PVT'
5974: );
5975:
5976: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5977: IF (is_debug_exception_on) THEN
5978: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5979: END IF;
5980:
5977: IF (is_debug_exception_on) THEN
5978: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5979: END IF;
5980:
5981: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5982: (
5983: l_api_name,
5984: G_PKG_NAME,
5985: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5981: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5982: (
5983: l_api_name,
5984: G_PKG_NAME,
5985: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5986: x_msg_count,
5987: x_msg_data,
5988: '_PVT'
5989: );
5993: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5994: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5995: END IF;
5996:
5997: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5998: (
5999: l_api_name,
6000: G_PKG_NAME,
6001: 'OTHERS',
6027: x_tqlv_tbl OUT NOCOPY tqlv_tbl_type) IS
6028:
6029:
6030:
6031: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6032: lp_tqlv_tbl tqlv_tbl_type := p_tqlv_tbl;
6033: lx_tqlv_tbl tqlv_tbl_type := p_tqlv_tbl;
6034: l_api_name VARCHAR2(30) := 'update_quote_line';
6035: l_api_version CONSTANT NUMBER := 1;
6048: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tqlv_tbl.COUNT: ' || p_tqlv_tbl.COUNT);
6049: END IF;
6050:
6051: --Check API version, initialize message list and create savepoint.
6052: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
6053: G_PKG_NAME,
6054: p_init_msg_list,
6055: l_api_version,
6056: p_api_version,
6058: x_return_status);
6059:
6060:
6061: -- raise exception if error
6062: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6064: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6065: RAISE OKL_API.G_EXCEPTION_ERROR;
6066: END IF;
6059:
6060:
6061: -- raise exception if error
6062: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6064: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6065: RAISE OKL_API.G_EXCEPTION_ERROR;
6066: END IF;
6067:
6060:
6061: -- raise exception if error
6062: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6064: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6065: RAISE OKL_API.G_EXCEPTION_ERROR;
6066: END IF;
6067:
6068:
6061: -- raise exception if error
6062: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6064: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6065: RAISE OKL_API.G_EXCEPTION_ERROR;
6066: END IF;
6067:
6068:
6069: -- Loop thru the input tbl and call the rec type API
6086: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called update_quote_line , return status: ' || l_return_status);
6087: END IF;
6088:
6089: -- raise exception if error
6090: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6092: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6093: RAISE OKL_API.G_EXCEPTION_ERROR;
6094: END IF;
6087: END IF;
6088:
6089: -- raise exception if error
6090: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6092: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6093: RAISE OKL_API.G_EXCEPTION_ERROR;
6094: END IF;
6095:
6088:
6089: -- raise exception if error
6090: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6092: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6093: RAISE OKL_API.G_EXCEPTION_ERROR;
6094: END IF;
6095:
6096: EXIT WHEN (i = lp_tqlv_tbl.LAST);
6089: -- raise exception if error
6090: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6092: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6093: RAISE OKL_API.G_EXCEPTION_ERROR;
6094: END IF;
6095:
6096: EXIT WHEN (i = lp_tqlv_tbl.LAST);
6097: i := lp_tqlv_tbl.NEXT(i);
6105: x_tqlv_tbl := lx_tqlv_tbl;
6106:
6107:
6108: -- end the transaction
6109: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6110: IF (is_debug_procedure_on) THEN
6111: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
6112: END IF;
6113:
6113:
6114: EXCEPTION
6115:
6116:
6117: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6118: IF (is_debug_exception_on) THEN
6119: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
6120: END IF;
6121:
6118: IF (is_debug_exception_on) THEN
6119: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
6120: END IF;
6121:
6122: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6123: (
6124: l_api_name,
6125: G_PKG_NAME,
6126: 'OKL_API.G_RET_STS_ERROR',
6122: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6123: (
6124: l_api_name,
6125: G_PKG_NAME,
6126: 'OKL_API.G_RET_STS_ERROR',
6127: x_msg_count,
6128: x_msg_data,
6129: '_PVT'
6130: );
6129: '_PVT'
6130: );
6131:
6132:
6133: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6134: IF (is_debug_exception_on) THEN
6135: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
6136: END IF;
6137:
6134: IF (is_debug_exception_on) THEN
6135: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
6136: END IF;
6137:
6138: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6139: (
6140: l_api_name,
6141: G_PKG_NAME,
6142: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6138: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6139: (
6140: l_api_name,
6141: G_PKG_NAME,
6142: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6143: x_msg_count,
6144: x_msg_data,
6145: '_PVT'
6146: );
6151: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
6152: || sqlcode || ' , SQLERRM : ' || sqlerrm);
6153: END IF;
6154:
6155: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6156: (
6157: l_api_name,
6158: G_PKG_NAME,
6159: 'OTHERS',
6357:
6358: l_unit_tbl unit_tbl_type;
6359: i NUMBER;
6360: l_id NUMBER;
6361: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6362: l_api_name VARCHAR2(30) := 'get_quote_units';
6363: l_api_version NUMBER := 1;
6364:
6365: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_quote_units';
6376: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tql_id: ' || p_tql_id);
6377: END IF;
6378:
6379: --Check API version, initialize message list and create savepoint.
6380: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
6381: G_PKG_NAME,
6382: p_init_msg_list,
6383: l_api_version,
6384: p_api_version,
6386: x_return_status);
6387:
6388:
6389: -- raise exception if error
6390: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6392: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6393: RAISE OKL_API.G_EXCEPTION_ERROR;
6394: END IF;
6387:
6388:
6389: -- raise exception if error
6390: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6392: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6393: RAISE OKL_API.G_EXCEPTION_ERROR;
6394: END IF;
6395:
6388:
6389: -- raise exception if error
6390: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6392: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6393: RAISE OKL_API.G_EXCEPTION_ERROR;
6394: END IF;
6395:
6396:
6389: -- raise exception if error
6390: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6392: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6393: RAISE OKL_API.G_EXCEPTION_ERROR;
6394: END IF;
6395:
6396:
6397: -- Check if tqd populated
6466: x_return_status := l_return_status;
6467: x_unit_tbl := l_unit_tbl;
6468:
6469: -- end the transaction
6470: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6471: IF (is_debug_procedure_on) THEN
6472: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
6473: END IF;
6474:
6474:
6475: EXCEPTION
6476:
6477:
6478: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6479: IF (is_debug_exception_on) THEN
6480: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
6481: END IF;
6482:
6491: IF get_quote_units_csr%ISOPEN THEN
6492: CLOSE get_quote_units_csr;
6493: END IF;
6494:
6495: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6496: (
6497: l_api_name,
6498: G_PKG_NAME,
6499: 'OKL_API.G_RET_STS_ERROR',
6495: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6496: (
6497: l_api_name,
6498: G_PKG_NAME,
6499: 'OKL_API.G_RET_STS_ERROR',
6500: x_msg_count,
6501: x_msg_data,
6502: '_PVT'
6503: );
6502: '_PVT'
6503: );
6504:
6505:
6506: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6507: IF (is_debug_exception_on) THEN
6508: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
6509: END IF;
6510:
6519: IF get_quote_units_csr%ISOPEN THEN
6520: CLOSE get_quote_units_csr;
6521: END IF;
6522:
6523: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6524: (
6525: l_api_name,
6526: G_PKG_NAME,
6527: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6523: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6524: (
6525: l_api_name,
6526: G_PKG_NAME,
6527: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6528: x_msg_count,
6529: x_msg_data,
6530: '_PVT'
6531: );
6548: IF get_quote_units_csr%ISOPEN THEN
6549: CLOSE get_quote_units_csr;
6550: END IF;
6551:
6552: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6553: (
6554: l_api_name,
6555: G_PKG_NAME,
6556: 'OTHERS',
6591: WHERE TQL.id = p_tql_id
6592: AND TQL.qte_id = QTE.id;
6593:
6594:
6595: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6596: lp_tqlv_rec tqlv_rec_type := p_tqlv_rec;
6597: l_api_name VARCHAR2(30) := 'delete_quote_line';
6598: l_api_version CONSTANT NUMBER := 1;
6599: l_qst_code VARCHAR2(30);
6647: END IF;
6648:
6649:
6650: --Check API version, initialize message list and create savepoint.
6651: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
6652: G_PKG_NAME,
6653: p_init_msg_list,
6654: l_api_version,
6655: p_api_version,
6657: x_return_status);
6658:
6659:
6660: -- raise exception if error
6661: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6662: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6663: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6664: RAISE OKL_API.G_EXCEPTION_ERROR;
6665: END IF;
6658:
6659:
6660: -- raise exception if error
6661: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6662: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6663: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6664: RAISE OKL_API.G_EXCEPTION_ERROR;
6665: END IF;
6666:
6659:
6660: -- raise exception if error
6661: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6662: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6663: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6664: RAISE OKL_API.G_EXCEPTION_ERROR;
6665: END IF;
6666:
6667:
6660: -- raise exception if error
6661: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6662: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6663: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6664: RAISE OKL_API.G_EXCEPTION_ERROR;
6665: END IF;
6666:
6667:
6668: -- Get the quote status
6677: -- If the quote is not DRAFTED or REJECTED, can not delete lines.
6678: IF l_qst_code NOT IN ('DRAFTED','REJECTED' ) THEN
6679:
6680: -- Quote status must be either Drafted or Rejected.
6681: OKL_API.set_message (
6682: p_app_name => 'OKL',
6683: p_msg_name => 'OKL_AM_SUBMIT_FOR_APPROVAL');
6684:
6685: RAISE OKL_API.G_EXCEPTION_ERROR;
6681: OKL_API.set_message (
6682: p_app_name => 'OKL',
6683: p_msg_name => 'OKL_AM_SUBMIT_FOR_APPROVAL');
6684:
6685: RAISE OKL_API.G_EXCEPTION_ERROR;
6686:
6687: END IF;
6688:
6689:
6705:
6706:
6707:
6708: -- raise exception if error
6709: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6711: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6712: RAISE OKL_API.G_EXCEPTION_ERROR;
6713: END IF;
6706:
6707:
6708: -- raise exception if error
6709: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6711: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6712: RAISE OKL_API.G_EXCEPTION_ERROR;
6713: END IF;
6714:
6707:
6708: -- raise exception if error
6709: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6711: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6712: RAISE OKL_API.G_EXCEPTION_ERROR;
6713: END IF;
6714:
6715: IF (is_debug_statement_on) THEN
6708: -- raise exception if error
6709: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6711: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6712: RAISE OKL_API.G_EXCEPTION_ERROR;
6713: END IF;
6714:
6715: IF (is_debug_statement_on) THEN
6716: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax');
6718: -- rmunjulu Sales_Tax_Enhancement
6719: -- Call the new OKL Tax engine to RECALCULATE tax for all quote lines
6720: OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax(
6721: p_api_version => l_api_version,
6722: p_init_msg_list => OKL_API.G_FALSE,
6723: x_return_status => l_return_status,
6724: x_msg_count => x_msg_count,
6725: x_msg_data => x_msg_data,
6726: p_source_trx_id => l_qte_id, -- TRX_ID is QUOTE_ID
6729: IF (is_debug_statement_on) THEN
6730: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax , return status: ' || l_return_status);
6731: END IF;
6732:
6733: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6734: -- Tax Processing failed.
6735: OKL_API.set_message( p_app_name => 'OKL',
6736: p_msg_name =>'OKL_AM_PROCESS_TAX_ERR');
6737: END IF;
6731: END IF;
6732:
6733: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6734: -- Tax Processing failed.
6735: OKL_API.set_message( p_app_name => 'OKL',
6736: p_msg_name =>'OKL_AM_PROCESS_TAX_ERR');
6737: END IF;
6738:
6739: -- raise exception if error
6736: p_msg_name =>'OKL_AM_PROCESS_TAX_ERR');
6737: END IF;
6738:
6739: -- raise exception if error
6740: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6741: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6742: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6743: RAISE OKL_API.G_EXCEPTION_ERROR;
6744: END IF;
6737: END IF;
6738:
6739: -- raise exception if error
6740: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6741: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6742: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6743: RAISE OKL_API.G_EXCEPTION_ERROR;
6744: END IF;
6745:
6738:
6739: -- raise exception if error
6740: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6741: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6742: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6743: RAISE OKL_API.G_EXCEPTION_ERROR;
6744: END IF;
6745:
6746: -- set the return status and out variables
6739: -- raise exception if error
6740: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6741: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6742: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6743: RAISE OKL_API.G_EXCEPTION_ERROR;
6744: END IF;
6745:
6746: -- set the return status and out variables
6747: x_return_status := l_return_status;
6747: x_return_status := l_return_status;
6748:
6749:
6750: -- end the transaction
6751: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6752: IF (is_debug_procedure_on) THEN
6753: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
6754: END IF;
6755:
6755:
6756: EXCEPTION
6757:
6758:
6759: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6760: IF (is_debug_exception_on) THEN
6761: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
6762: END IF;
6763:
6760: IF (is_debug_exception_on) THEN
6761: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
6762: END IF;
6763:
6764: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6765: (
6766: l_api_name,
6767: G_PKG_NAME,
6768: 'OKL_API.G_RET_STS_ERROR',
6764: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6765: (
6766: l_api_name,
6767: G_PKG_NAME,
6768: 'OKL_API.G_RET_STS_ERROR',
6769: x_msg_count,
6770: x_msg_data,
6771: '_PVT'
6772: );
6771: '_PVT'
6772: );
6773:
6774:
6775: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6776: IF (is_debug_exception_on) THEN
6777: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
6778: END IF;
6779:
6776: IF (is_debug_exception_on) THEN
6777: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
6778: END IF;
6779:
6780: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6781: (
6782: l_api_name,
6783: G_PKG_NAME,
6784: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6780: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6781: (
6782: l_api_name,
6783: G_PKG_NAME,
6784: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6785: x_msg_count,
6786: x_msg_data,
6787: '_PVT'
6788: );
6793: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
6794: || sqlcode || ' , SQLERRM : ' || sqlerrm);
6795: END IF;
6796:
6797: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6798: (
6799: l_api_name,
6800: G_PKG_NAME,
6801: 'OTHERS',
6828: p_tqlv_tbl IN tqlv_tbl_type) IS
6829:
6830:
6831:
6832: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6833: lp_tqlv_tbl tqlv_tbl_type := p_tqlv_tbl;
6834: l_api_name VARCHAR2(30) := 'delete_quote_line';
6835: l_api_version CONSTANT NUMBER := 1;
6836: i NUMBER;
6848: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tqlv_tbl.COUNT: ' || p_tqlv_tbl.COUNT);
6849: END IF;
6850:
6851: --Check API version, initialize message list and create savepoint.
6852: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
6853: G_PKG_NAME,
6854: p_init_msg_list,
6855: l_api_version,
6856: p_api_version,
6858: x_return_status);
6859:
6860:
6861: -- raise exception if error
6862: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6864: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6865: RAISE OKL_API.G_EXCEPTION_ERROR;
6866: END IF;
6859:
6860:
6861: -- raise exception if error
6862: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6864: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6865: RAISE OKL_API.G_EXCEPTION_ERROR;
6866: END IF;
6867:
6860:
6861: -- raise exception if error
6862: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6864: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6865: RAISE OKL_API.G_EXCEPTION_ERROR;
6866: END IF;
6867:
6868:
6861: -- raise exception if error
6862: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6864: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6865: RAISE OKL_API.G_EXCEPTION_ERROR;
6866: END IF;
6867:
6868:
6869: -- Loop thru the input tbl and call the rec type API
6885: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called delete_quote_line , return status: ' || l_return_status);
6886: END IF;
6887:
6888: -- raise exception if error
6889: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6890: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6891: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6892: RAISE OKL_API.G_EXCEPTION_ERROR;
6893: END IF;
6886: END IF;
6887:
6888: -- raise exception if error
6889: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6890: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6891: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6892: RAISE OKL_API.G_EXCEPTION_ERROR;
6893: END IF;
6894:
6887:
6888: -- raise exception if error
6889: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6890: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6891: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6892: RAISE OKL_API.G_EXCEPTION_ERROR;
6893: END IF;
6894:
6895: EXIT WHEN (i = lp_tqlv_tbl.LAST);
6888: -- raise exception if error
6889: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6890: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6891: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6892: RAISE OKL_API.G_EXCEPTION_ERROR;
6893: END IF;
6894:
6895: EXIT WHEN (i = lp_tqlv_tbl.LAST);
6896: i := lp_tqlv_tbl.NEXT(i);
6903: x_return_status := l_return_status;
6904:
6905:
6906: -- end the transaction
6907: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6908: IF (is_debug_procedure_on) THEN
6909: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
6910: END IF;
6911:
6911:
6912: EXCEPTION
6913:
6914:
6915: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6916: IF (is_debug_exception_on) THEN
6917: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
6918: END IF;
6919:
6916: IF (is_debug_exception_on) THEN
6917: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
6918: END IF;
6919:
6920: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6921: (
6922: l_api_name,
6923: G_PKG_NAME,
6924: 'OKL_API.G_RET_STS_ERROR',
6920: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6921: (
6922: l_api_name,
6923: G_PKG_NAME,
6924: 'OKL_API.G_RET_STS_ERROR',
6925: x_msg_count,
6926: x_msg_data,
6927: '_PVT'
6928: );
6927: '_PVT'
6928: );
6929:
6930:
6931: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6932: IF (is_debug_exception_on) THEN
6933: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
6934: END IF;
6935:
6932: IF (is_debug_exception_on) THEN
6933: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
6934: END IF;
6935:
6936: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6937: (
6938: l_api_name,
6939: G_PKG_NAME,
6940: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6936: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6937: (
6938: l_api_name,
6939: G_PKG_NAME,
6940: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6941: x_msg_count,
6942: x_msg_data,
6943: '_PVT'
6944: );
6949: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
6950: || sqlcode || ' , SQLERRM : ' || sqlerrm);
6951: END IF;
6952:
6953: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6954: (
6955: l_api_name,
6956: G_PKG_NAME,
6957: 'OTHERS',