[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));
661: IF (is_debug_exception_on) THEN
662: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'fa_exception');
663: END IF;
664:
665: x_return_status := OKL_API.G_RET_STS_ERROR;
666:
667: WHEN OTHERS THEN
668: IF (is_debug_exception_on) THEN
669: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
669: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
670: || sqlcode || ' , SQLERRM : ' || sqlerrm);
671: END IF;
672:
673: x_return_status := OKL_API.G_RET_STS_ERROR;
674:
675: OKL_API.set_message(p_app_name => G_APP_NAME,
676: p_msg_name => G_UNEXPECTED_ERROR,
677: p_token1 => G_SQLCODE_TOKEN,
671: END IF;
672:
673: x_return_status := OKL_API.G_RET_STS_ERROR;
674:
675: OKL_API.set_message(p_app_name => G_APP_NAME,
676: p_msg_name => G_UNEXPECTED_ERROR,
677: p_token1 => G_SQLCODE_TOKEN,
678: p_token1_value => sqlcode,
679: p_token2 => G_SQLERRM_TOKEN,
699: x_sno_yn OUT NOCOPY VARCHAR2,
700: x_clev_tbl OUT NOCOPY clev_tbl_type) RETURN VARCHAR2 AS
701:
702: G_CONTRACT_INACTIVE CONSTANT VARCHAR2(200) := 'OKL_AM_CONTRACT_INACTIVE';
703: lv_sno_yn VARCHAR2(3) := OKL_API.G_FALSE;
704: i NUMBER := 0;
705: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
706: lv_sts_code OKC_K_LINES_B.STS_CODE%TYPE;
707: lv_lty_code OKC_LINE_STYLES_B.LTY_CODE%TYPE;
701:
702: G_CONTRACT_INACTIVE CONSTANT VARCHAR2(200) := 'OKL_AM_CONTRACT_INACTIVE';
703: lv_sno_yn VARCHAR2(3) := OKL_API.G_FALSE;
704: i NUMBER := 0;
705: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
706: lv_sts_code OKC_K_LINES_B.STS_CODE%TYPE;
707: lv_lty_code OKC_LINE_STYLES_B.LTY_CODE%TYPE;
708: lv_contract_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE;
709:
774: FETCH l_ast_line_csr INTO lv_lty_code,
775: lv_sts_code,
776: lv_contract_number;
777: IF l_ast_line_csr%NOTFOUND THEN
778: OKL_API.set_message(p_app_name => G_APP_NAME,
779: p_msg_name => G_NO_MATCHING_RECORD,
780: p_token1 => G_COL_NAME_TOKEN,
781: p_token1_value => 'Asset Line');
782: RAISE OKL_API.G_EXCEPTION_ERROR;
778: OKL_API.set_message(p_app_name => G_APP_NAME,
779: p_msg_name => G_NO_MATCHING_RECORD,
780: p_token1 => G_COL_NAME_TOKEN,
781: p_token1_value => 'Asset Line');
782: RAISE OKL_API.G_EXCEPTION_ERROR;
783: END IF;
784: CLOSE l_ast_line_csr;
785:
786: IF lv_lty_code <> 'FREE_FORM1' THEN
783: END IF;
784: CLOSE l_ast_line_csr;
785:
786: IF lv_lty_code <> 'FREE_FORM1' THEN
787: OKL_API.set_message(p_app_name => G_APP_NAME,
788: p_msg_name => G_INVALID_VALUE,
789: p_token1 => G_COL_NAME_TOKEN,
790: p_token1_value => 'p_asset_line');
791: RAISE OKL_API.G_EXCEPTION_ERROR;
787: OKL_API.set_message(p_app_name => G_APP_NAME,
788: p_msg_name => G_INVALID_VALUE,
789: p_token1 => G_COL_NAME_TOKEN,
790: p_token1_value => 'p_asset_line');
791: RAISE OKL_API.G_EXCEPTION_ERROR;
792: END IF;
793:
794: -- RMUNJULU 24-JAN-03 2759726 Removed check that K sts is Booked
795: -- IF lv_sts_code <> 'BOOKED' THEN
793:
794: -- RMUNJULU 24-JAN-03 2759726 Removed check that K sts is Booked
795: -- IF lv_sts_code <> 'BOOKED' THEN
796: -- Unable to complete process because the Contract CONTRACT_NUMBER status is STATUS.
797: -- OKL_API.set_message(p_app_name => G_APP_NAME,
798: -- p_msg_name => G_CONTRACT_INACTIVE,
799: -- p_token1 => 'CONTRACT_NUMBER',
800: -- p_token1_value => lv_contract_number,
801: -- p_token2 => 'STATUS',
799: -- p_token1 => 'CONTRACT_NUMBER',
800: -- p_token1_value => lv_contract_number,
801: -- p_token2 => 'STATUS',
802: -- p_token2_value => lv_sts_code);
803: -- RAISE OKL_API.G_EXCEPTION_ERROR;
804: -- END IF;
805:
806: -- Cursor to Know asset has serial number
807: FOR r_asset_sno_csr IN l_asset_sno_csr(p_asset_line => p_asset_line) LOOP
805:
806: -- Cursor to Know asset has serial number
807: FOR r_asset_sno_csr IN l_asset_sno_csr(p_asset_line => p_asset_line) LOOP
808: IF r_asset_sno_csr.serial_number IS NOT NULL OR
809: r_asset_sno_csr.serial_number <> OKL_API.G_MISS_CHAR THEN
810: lv_sno_yn := OKL_API.G_TRUE;
811: END IF;
812: x_clev_tbl(i).id := r_asset_sno_csr.id;
813: i := i + 1;
806: -- Cursor to Know asset has serial number
807: FOR r_asset_sno_csr IN l_asset_sno_csr(p_asset_line => p_asset_line) LOOP
808: IF r_asset_sno_csr.serial_number IS NOT NULL OR
809: r_asset_sno_csr.serial_number <> OKL_API.G_MISS_CHAR THEN
810: lv_sno_yn := OKL_API.G_TRUE;
811: END IF;
812: x_clev_tbl(i).id := r_asset_sno_csr.id;
813: i := i + 1;
814: END LOOP;
820: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning l_return_status: ' || l_return_status);
821: END IF;
822: RETURN l_return_status;
823: EXCEPTION
824: WHEN OKL_API.G_EXCEPTION_ERROR THEN
825: IF (is_debug_exception_on) THEN
826: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
827: END IF;
828: IF l_ast_line_csr%ISOPEN THEN
830: END IF;
831: IF l_asset_sno_csr%ISOPEN THEN
832: CLOSE l_asset_sno_csr;
833: END IF;
834: l_return_status := OKL_API.G_RET_STS_ERROR;
835: RETURN l_return_status;
836: WHEN OTHERS THEN
837: IF (is_debug_exception_on) THEN
838: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
844: END IF;
845: IF l_asset_sno_csr%ISOPEN THEN
846: CLOSE l_asset_sno_csr;
847: END IF;
848: OKL_API.set_message(p_app_name => G_APP_NAME,
849: p_msg_name => g_unexpected_error,
850: p_token1 => g_sqlcode_token,
851: p_token1_value => sqlcode,
852: p_token2 => g_sqlerrm_token,
851: p_token1_value => sqlcode,
852: p_token2 => g_sqlerrm_token,
853: p_token2_value => sqlerrm);
854:
855: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
856: RETURN l_return_status;
857: END check_asset_sno;
858: -----------------------------------------------------------------------------------------------------
859: --
1217: db_partial_yn VARCHAR2(3);
1218: l_true_partial_quote VARCHAR2(1) := 'N';
1219: l_service_contract VARCHAR2(300);
1220: l_oks_chr_id NUMBER;
1221: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
1222: l_msg_data VARCHAR2(2000);
1223: l_billing_done VARCHAR2(1);
1224:
1225: -- RMUNJULU 3061751 Added for SERVICE_K_INTEGRATION
1406: -- LOGIC END --
1407:
1408:
1409: --Check API version, initialize message list and create savepoint.
1410: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1411: G_PKG_NAME,
1412: p_init_msg_list,
1413: l_api_version,
1414: p_api_version,
1414: p_api_version,
1415: '_PVT',
1416: x_return_status);
1417:
1418: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1420: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1421: RAISE OKL_API.G_EXCEPTION_ERROR;
1422: END IF;
1415: '_PVT',
1416: x_return_status);
1417:
1418: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1420: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1421: RAISE OKL_API.G_EXCEPTION_ERROR;
1422: END IF;
1423:
1416: x_return_status);
1417:
1418: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1420: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1421: RAISE OKL_API.G_EXCEPTION_ERROR;
1422: END IF;
1423:
1424: -- initialize return variables
1417:
1418: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1420: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1421: RAISE OKL_API.G_EXCEPTION_ERROR;
1422: END IF;
1423:
1424: -- initialize return variables
1425: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1421: RAISE OKL_API.G_EXCEPTION_ERROR;
1422: END IF;
1423:
1424: -- initialize return variables
1425: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1426: x_err_msg := OKL_API.G_RET_STS_SUCCESS;
1427:
1428: -----------------------
1429: -- GET/SET DB VALUES --
1422: END IF;
1423:
1424: -- initialize return variables
1425: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1426: x_err_msg := OKL_API.G_RET_STS_SUCCESS;
1427:
1428: -----------------------
1429: -- GET/SET DB VALUES --
1430: -----------------------
1453: db_repo_yn; -- Bug 6674730
1454: CLOSE qte_db_vals_csr;
1455:
1456: -- Check if quote id passed is valid
1457: IF db_qte_id IS NULL OR db_qte_id = OKL_API.G_MISS_NUM THEN
1458:
1459: OKL_API.set_message( p_app_name => OKC_API.G_APP_NAME,
1460: p_msg_name => OKC_API.G_INVALID_VALUE,
1461: p_token1 => OKC_API.G_COL_NAME_TOKEN,
1455:
1456: -- Check if quote id passed is valid
1457: IF db_qte_id IS NULL OR db_qte_id = OKL_API.G_MISS_NUM THEN
1458:
1459: OKL_API.set_message( p_app_name => OKC_API.G_APP_NAME,
1460: p_msg_name => OKC_API.G_INVALID_VALUE,
1461: p_token1 => OKC_API.G_COL_NAME_TOKEN,
1462: p_token1_value => 'Quote id');
1463:
1460: p_msg_name => OKC_API.G_INVALID_VALUE,
1461: p_token1 => OKC_API.G_COL_NAME_TOKEN,
1462: p_token1_value => 'Quote id');
1463:
1464: RAISE OKL_API.G_EXCEPTION_ERROR;
1465:
1466: END IF;
1467:
1468: -- if Khr_Id not passed get from DB
1465:
1466: END IF;
1467:
1468: -- if Khr_Id not passed get from DB
1469: IF lp_term_rec.khr_id IS NULL OR lp_term_rec.khr_id = OKL_API.G_MISS_NUM THEN
1470: l_contract_id := db_contract_id;
1471: l_contract_number := db_contract_number;
1472: ELSE
1473: l_contract_id := lp_term_rec.khr_id;
1491: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract');
1492: END IF;
1493: OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract(
1494: p_api_version => p_api_version,
1495: p_init_msg_list => OKL_API.G_FALSE,
1496: x_return_status => l_return_status,
1497: x_msg_count => x_msg_count,
1498: x_msg_data => x_msg_data,
1499: p_contract_id => l_contract_id,
1503: 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);
1504: END IF;
1505:
1506: -- Raise exception if validate K fails
1507: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1508: RAISE OKL_API.G_EXCEPTION_ERROR;
1509: END IF;
1510: END IF;
1511:
1504: END IF;
1505:
1506: -- Raise exception if validate K fails
1507: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1508: RAISE OKL_API.G_EXCEPTION_ERROR;
1509: END IF;
1510: END IF;
1511:
1512: -----------------------
1514: -----------------------
1515:
1516: -- IF qtp_code not null then check if valid
1517: IF lp_term_rec.qtp_code IS NOT NULL
1518: AND lp_term_rec.qtp_code <> OKL_API.G_MISS_CHAR
1519: AND lp_term_rec.qtp_code NOT LIKE 'TER%' THEN
1520:
1521: -- Please select a valid Quote Type.
1522: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1518: AND lp_term_rec.qtp_code <> OKL_API.G_MISS_CHAR
1519: AND lp_term_rec.qtp_code NOT LIKE 'TER%' THEN
1520:
1521: -- Please select a valid Quote Type.
1522: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1523: p_msg_name => 'OKL_AM_QTP_CODE_INVALID');
1524:
1525: RAISE OKL_API.G_EXCEPTION_ERROR;
1526:
1521: -- Please select a valid Quote Type.
1522: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1523: p_msg_name => 'OKL_AM_QTP_CODE_INVALID');
1524:
1525: RAISE OKL_API.G_EXCEPTION_ERROR;
1526:
1527: -- if qtp_code is null then get from db and check
1528: ELSIF (lp_term_rec.qtp_code IS NULL
1529: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1525: RAISE OKL_API.G_EXCEPTION_ERROR;
1526:
1527: -- if qtp_code is null then get from db and check
1528: ELSIF (lp_term_rec.qtp_code IS NULL
1529: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1530: AND db_qtp_code NOT LIKE 'TER%' THEN
1531:
1532: -- Please select a valid Quote Type.
1533: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1529: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1530: AND db_qtp_code NOT LIKE 'TER%' THEN
1531:
1532: -- Please select a valid Quote Type.
1533: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1534: p_msg_name => 'OKL_AM_QTP_CODE_INVALID');
1535:
1536: RAISE OKL_API.G_EXCEPTION_ERROR;
1537:
1532: -- Please select a valid Quote Type.
1533: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1534: p_msg_name => 'OKL_AM_QTP_CODE_INVALID');
1535:
1536: RAISE OKL_API.G_EXCEPTION_ERROR;
1537:
1538: END IF;
1539:
1540: -- rmunjulu Rollover/Release -- moved the checks into the If below where it first
1547: --Bug# 3925453: pagarg +++ T and A +++++++
1548: -- Use existing code for Rollover quote to populate date_effective_to
1549: -- for Release quote also.
1550: IF lp_term_rec.qtp_code IS NOT NULL
1551: AND lp_term_rec.qtp_code <> OKL_API.G_MISS_CHAR
1552: THEN
1553: IF (lp_term_rec.qtp_code LIKE 'TER_ROLL%'
1554: AND p_acceptance_source = 'ROLLOVER')
1555: OR
1559: lp_term_rec.date_effective_to := db_date_effective_to;
1560: END IF;
1561: -- if qtp_code is null then get from db and check
1562: ELSIF (lp_term_rec.qtp_code IS NULL
1563: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1564: THEN
1565: IF (db_qtp_code LIKE 'TER_ROLL%'
1566: AND p_acceptance_source = 'ROLLOVER')
1567: OR
1578: -----------------------
1579:
1580: -- Check if date_effective_to is NULL
1581: IF lp_term_rec.date_effective_to IS NULL
1582: OR lp_term_rec.date_effective_to = OKL_API.G_MISS_DATE THEN
1583:
1584: -- You must enter a value for PROMPT
1585: IF (NVL(db_repo_yn,'N') <> 'Y') THEN -- 6674730
1586: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
1582: OR lp_term_rec.date_effective_to = OKL_API.G_MISS_DATE THEN
1583:
1584: -- You must enter a value for PROMPT
1585: IF (NVL(db_repo_yn,'N') <> 'Y') THEN -- 6674730
1586: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
1587: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
1588: p_token1 => 'PROMPT',
1589: p_token1_value => OKL_AM_UTIL_PVT.get_ak_attribute('OKL_EFFECTIVE_TO'));
1590:
1587: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
1588: p_token1 => 'PROMPT',
1589: p_token1_value => OKL_AM_UTIL_PVT.get_ak_attribute('OKL_EFFECTIVE_TO'));
1590:
1591: RAISE OKL_API.G_EXCEPTION_ERROR;
1592: END IF;
1593:
1594: END IF;
1595:
1594: END IF;
1595:
1596: -- Get the date_eff_from from database if not passed
1597: IF (lp_term_rec.date_effective_from IS NOT NULL)
1598: AND (lp_term_rec.date_effective_from <> OKL_API.G_MISS_DATE) THEN
1599: l_date_eff_from := lp_term_rec.date_effective_from;
1600: ELSE
1601: l_date_eff_from := db_date_effective_from;
1602: END IF;
1602: END IF;
1603:
1604: -- Check date_eff_to > date_eff_from
1605: IF (l_date_eff_from IS NOT NULL)
1606: AND (l_date_eff_from <> OKL_API.G_MISS_DATE)
1607: AND (lp_term_rec.date_effective_to IS NOT NULL)
1608: AND (lp_term_rec.date_effective_to <> OKL_API.G_MISS_DATE) THEN
1609:
1610: IF (TRUNC(lp_term_rec.date_effective_to) <= TRUNC(l_date_eff_from)) THEN
1604: -- Check date_eff_to > date_eff_from
1605: IF (l_date_eff_from IS NOT NULL)
1606: AND (l_date_eff_from <> OKL_API.G_MISS_DATE)
1607: AND (lp_term_rec.date_effective_to IS NOT NULL)
1608: AND (lp_term_rec.date_effective_to <> OKL_API.G_MISS_DATE) THEN
1609:
1610: IF (TRUNC(lp_term_rec.date_effective_to) <= TRUNC(l_date_eff_from)) THEN
1611:
1612: -- Message : Date Effective To DATE_EFFECTIVE_TO cannot be before
1610: IF (TRUNC(lp_term_rec.date_effective_to) <= TRUNC(l_date_eff_from)) THEN
1611:
1612: -- Message : Date Effective To DATE_EFFECTIVE_TO cannot be before
1613: -- Date Effective From DATE_EFFECTIVE_FROM.
1614: OKL_API.SET_MESSAGE(p_app_name => 'OKL',
1615: p_msg_name => 'OKL_AM_DATE_EFF_FROM_LESS_TO',
1616: p_token1 => 'DATE_EFFECTIVE_TO',
1617: p_token1_value => lp_term_rec.date_effective_to,
1618: p_token2 => 'DATE_EFFECTIVE_FROM',
1617: p_token1_value => lp_term_rec.date_effective_to,
1618: p_token2 => 'DATE_EFFECTIVE_FROM',
1619: p_token2_value => l_date_eff_from);
1620:
1621: RAISE OKL_API.G_EXCEPTION_ERROR;
1622: END IF;
1623: END IF;
1624:
1625: -- If date effective to changed then
1623: END IF;
1624:
1625: -- If date effective to changed then
1626: IF (lp_term_rec.date_effective_to IS NOT NULL)
1627: AND (lp_term_rec.date_effective_to <> OKL_API.G_MISS_DATE)
1628: AND (lp_term_rec.date_effective_to <> db_date_effective_to) THEN
1629:
1630: -- set the date eff to from rules
1631: l_q_eff_quot_rec.khr_id := l_contract_id;
1644: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_eff_days: ' || l_quote_eff_days);
1645: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_eff_max_days: ' || l_quote_eff_max_days);
1646: END IF;
1647:
1648: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1650: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1651: RAISE OKL_API.G_EXCEPTION_ERROR;
1652: END IF;
1645: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_eff_max_days: ' || l_quote_eff_max_days);
1646: END IF;
1647:
1648: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1650: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1651: RAISE OKL_API.G_EXCEPTION_ERROR;
1652: END IF;
1653:
1646: END IF;
1647:
1648: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1650: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1651: RAISE OKL_API.G_EXCEPTION_ERROR;
1652: END IF;
1653:
1654: --rmunjulu EDAT removed and replaced with below logic
1647:
1648: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1650: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1651: RAISE OKL_API.G_EXCEPTION_ERROR;
1652: END IF;
1653:
1654: --rmunjulu EDAT removed and replaced with below logic
1655: -- l_quote_eff_to_dt := db_date_effective_from + l_quote_eff_max_days;
1669:
1670: -- if max quote eff to date is less than sysdate then error
1671: IF TRUNC(l_quote_eff_to_dt) < TRUNC(db_sysdate) THEN
1672: --Message : Quote QUOTE_NUMBER is already expired.
1673: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1674: p_msg_name => 'OKL_AM_QUOTE_ALREADY_EXP',
1675: p_token1 => 'QUOTE_NUMBER',
1676: p_token1_value => db_quote_number);
1677:
1674: p_msg_name => 'OKL_AM_QUOTE_ALREADY_EXP',
1675: p_token1 => 'QUOTE_NUMBER',
1676: p_token1_value => db_quote_number);
1677:
1678: RAISE OKL_API.G_EXCEPTION_ERROR;
1679: END IF;
1680:
1681: -- if date is less than sysdate then error
1682: IF TRUNC(lp_term_rec.date_effective_to) < TRUNC(db_sysdate) THEN
1679: END IF;
1680:
1681: -- if date is less than sysdate then error
1682: IF TRUNC(lp_term_rec.date_effective_to) < TRUNC(db_sysdate) THEN
1683: l_return_status := OKL_API.G_RET_STS_ERROR;
1684: -- Please enter an Effective To date that occurs
1685: -- after the current system date.
1686: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1687: p_msg_name => 'OKL_AM_DATE_EFF_TO_PAST');
1682: IF TRUNC(lp_term_rec.date_effective_to) < TRUNC(db_sysdate) THEN
1683: l_return_status := OKL_API.G_RET_STS_ERROR;
1684: -- Please enter an Effective To date that occurs
1685: -- after the current system date.
1686: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1687: p_msg_name => 'OKL_AM_DATE_EFF_TO_PAST');
1688:
1689: RAISE OKL_API.G_EXCEPTION_ERROR;
1690: END IF;
1685: -- after the current system date.
1686: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1687: p_msg_name => 'OKL_AM_DATE_EFF_TO_PAST');
1688:
1689: RAISE OKL_API.G_EXCEPTION_ERROR;
1690: END IF;
1691:
1692: -- if eff_to date > l_quote_eff_to_dt then err msg
1693: IF TRUNC(lp_term_rec.date_effective_to) > TRUNC(l_quote_eff_to_dt) THEN
1691:
1692: -- if eff_to date > l_quote_eff_to_dt then err msg
1693: IF TRUNC(lp_term_rec.date_effective_to) > TRUNC(l_quote_eff_to_dt) THEN
1694: -- Please enter Effective To date before DATE_EFF_TO_MAX.
1695: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1696: p_msg_name => 'OKL_AM_DATE_EFF_TO_ERR',
1697: p_token1 => 'DATE_EFF_TO_MAX',
1698: p_token1_value => l_quote_eff_to_dt);
1699: RAISE OKL_API.G_EXCEPTION_ERROR;
1695: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1696: p_msg_name => 'OKL_AM_DATE_EFF_TO_ERR',
1697: p_token1 => 'DATE_EFF_TO_MAX',
1698: p_token1_value => l_quote_eff_to_dt);
1699: RAISE OKL_API.G_EXCEPTION_ERROR;
1700: END IF;
1701:
1702: END IF;
1703:
1702: END IF;
1703:
1704: -- rmunjulu LOANS_ENHANCEMENT perdiem amount validation
1705: IF lp_term_rec.perdiem_amount IS NOT NULL
1706: AND lp_term_rec.perdiem_amount <> OKL_API.G_MISS_NUM THEN
1707:
1708: IF lp_term_rec.perdiem_amount <> nvl(db_perdiem_amount,OKL_API.G_MISS_NUM)
1709: AND db_qst_code NOT IN ('DRAFTED','REJECTED') THEN
1710:
1704: -- rmunjulu LOANS_ENHANCEMENT perdiem amount validation
1705: IF lp_term_rec.perdiem_amount IS NOT NULL
1706: AND lp_term_rec.perdiem_amount <> OKL_API.G_MISS_NUM THEN
1707:
1708: IF lp_term_rec.perdiem_amount <> nvl(db_perdiem_amount,OKL_API.G_MISS_NUM)
1709: AND db_qst_code NOT IN ('DRAFTED','REJECTED') THEN
1710:
1711: -- Perdiem amount is allowed to be updated for quotes in DRAFTED or REJECTED status.
1712: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1708: IF lp_term_rec.perdiem_amount <> nvl(db_perdiem_amount,OKL_API.G_MISS_NUM)
1709: AND db_qst_code NOT IN ('DRAFTED','REJECTED') THEN
1710:
1711: -- Perdiem amount is allowed to be updated for quotes in DRAFTED or REJECTED status.
1712: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1713: p_msg_name => 'OKL_AM_PERDIEM_UPD_ERR');
1714: RAISE OKL_API.G_EXCEPTION_ERROR;
1715: END IF;
1716: END IF;
1710:
1711: -- Perdiem amount is allowed to be updated for quotes in DRAFTED or REJECTED status.
1712: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1713: p_msg_name => 'OKL_AM_PERDIEM_UPD_ERR');
1714: RAISE OKL_API.G_EXCEPTION_ERROR;
1715: END IF;
1716: END IF;
1717:
1718: -----------------------
1725: -- quote based on asset level termination changes
1726:
1727: -- If trying to accept this quote for the first time
1728: IF lp_term_rec.accepted_yn IS NOT NULL
1729: AND lp_term_rec.accepted_yn <> OKL_API.G_MISS_CHAR
1730: AND lp_term_rec.accepted_yn = G_YES
1731: AND db_accepted_yn = G_NO THEN
1732:
1733: -- RMUNJULU 06-JAN-03 2736865 Added code to check date eff from -- START
1739: -- if quote eff from date is greater than sysdate then error
1740: IF TRUNC(l_date_eff_from) > TRUNC(db_sysdate) THEN
1741:
1742: -- Quote QUOTE_NUMBER can only be accepted during the quote effective dates.
1743: OKL_API.set_message( p_app_name => 'OKL',
1744: p_msg_name => 'OKL_AM_DATE_EFF_FROM_ACC',
1745: p_token1 => 'QUOTE_NUMBER',
1746: p_token1_value => db_quote_number);
1747:
1744: p_msg_name => 'OKL_AM_DATE_EFF_FROM_ACC',
1745: p_token1 => 'QUOTE_NUMBER',
1746: p_token1_value => db_quote_number);
1747:
1748: RAISE OKL_API.G_EXCEPTION_ERROR;
1749:
1750: END IF;
1751:
1752: -- RMUNJULU 06-JAN-03 2736865 -- END
1759:
1760:
1761: -- If date_eff_to is not passed
1762: IF ((lp_term_rec.date_effective_to IS NULL) OR
1763: (lp_term_rec.date_effective_to = OKL_API.G_MISS_DATE))
1764: AND (NVL(db_repo_yn,'N') <> 'Y') THEN -- 6674730 -- No quote expiration if Repo Quote
1765:
1766: --if quote expired
1767: IF TRUNC(db_sysdate) > TRUNC(db_date_effective_to) THEN
1766: --if quote expired
1767: IF TRUNC(db_sysdate) > TRUNC(db_date_effective_to) THEN
1768:
1769: --Message : Quote QUOTE_NUMBER is already expired.
1770: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1771: p_msg_name => 'OKL_AM_QUOTE_ALREADY_EXP',
1772: p_token1 => 'QUOTE_NUMBER',
1773: p_token1_value => db_quote_number);
1774:
1771: p_msg_name => 'OKL_AM_QUOTE_ALREADY_EXP',
1772: p_token1 => 'QUOTE_NUMBER',
1773: p_token1_value => db_quote_number);
1774:
1775: RAISE OKL_API.G_EXCEPTION_ERROR;
1776:
1777: END IF;
1778:
1779: ELSE -- rmunjulu Bug 4201215 Eff_To date passed but already expired
1781: --if quote expired
1782: IF TRUNC(db_sysdate) > TRUNC(lp_term_rec.date_effective_to) THEN
1783:
1784: --Message : Quote QUOTE_NUMBER is already expired.
1785: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1786: p_msg_name => 'OKL_AM_QUOTE_ALREADY_EXP',
1787: p_token1 => 'QUOTE_NUMBER',
1788: p_token1_value => db_quote_number);
1789:
1786: p_msg_name => 'OKL_AM_QUOTE_ALREADY_EXP',
1787: p_token1 => 'QUOTE_NUMBER',
1788: p_token1_value => db_quote_number);
1789:
1790: RAISE OKL_API.G_EXCEPTION_ERROR;
1791:
1792: END IF;
1793:
1794: END IF;
1811: 'Y');
1812:
1813: -- Check qst_code
1814: IF lp_term_rec.qst_code IS NOT NULL
1815: AND lp_term_rec.qst_code <> OKL_API.G_MISS_CHAR THEN
1816:
1817:
1818: IF lp_term_rec.qst_code <> 'APPROVED' THEN
1819:
1819:
1820:
1821: -- Quote QUOTE_NUMBER should be QST_CODE_APPROVED before
1822: -- it is QST_CODE_ACCEPTED.
1823: OKL_API.set_message (
1824: p_app_name => 'OKL',
1825: p_msg_name => 'OKL_AM_QTE_APPROVE_ERR',
1826: p_token1 => 'QUOTE_NUMBER',
1827: p_token1_value => db_quote_number,
1829: p_token2_value => l_qst_code_1,
1830: p_token3 => 'QST_CODE_ACCEPTED',
1831: p_token3_value => l_qst_code_2);
1832:
1833: RAISE OKL_API.G_EXCEPTION_ERROR;
1834:
1835: END IF;
1836:
1837:
1841: IF db_qst_code <> 'APPROVED' THEN
1842:
1843: -- Quote QUOTE_NUMBER should be QST_CODE_APPROVED before
1844: -- it is QST_CODE_ACCEPTED.
1845: OKL_API.set_message (
1846: p_app_name => 'OKL',
1847: p_msg_name => 'OKL_AM_QTE_APPROVE_ERR',
1848: p_token1 => 'QUOTE_NUMBER',
1849: p_token1_value => db_quote_number,
1851: p_token2_value => l_qst_code_1,
1852: p_token3 => 'QST_CODE_ACCEPTED',
1853: p_token3_value => l_qst_code_2);
1854:
1855: RAISE OKL_API.G_EXCEPTION_ERROR;
1856:
1857: END IF;
1858:
1859: END IF;
1866: -- raise invalid value error.
1867: IF nvl(p_acceptance_source,'*') = 'ROLLOVER' -- rmunjulu Rollover/Release Use nvl
1868: THEN
1869: IF lp_term_rec.qtp_code IS NOT NULL
1870: AND lp_term_rec.qtp_code <> OKL_API.G_MISS_CHAR
1871: THEN
1872: IF lp_term_rec.qtp_code NOT LIKE 'TER_ROLL%'
1873: THEN
1874: OKL_API.set_message(p_app_name => G_APP_NAME,
1870: AND lp_term_rec.qtp_code <> OKL_API.G_MISS_CHAR
1871: THEN
1872: IF lp_term_rec.qtp_code NOT LIKE 'TER_ROLL%'
1873: THEN
1874: OKL_API.set_message(p_app_name => G_APP_NAME,
1875: p_msg_name => G_INVALID_VALUE,
1876: p_token1 => G_COL_NAME_TOKEN,
1877: p_token1_value => 'Acceptance Source');
1878: RAISE OKL_API.G_EXCEPTION_ERROR;
1874: OKL_API.set_message(p_app_name => G_APP_NAME,
1875: p_msg_name => G_INVALID_VALUE,
1876: p_token1 => G_COL_NAME_TOKEN,
1877: p_token1_value => 'Acceptance Source');
1878: RAISE OKL_API.G_EXCEPTION_ERROR;
1879: END IF;
1880: ELSIF (lp_term_rec.qtp_code IS NULL
1881: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1882: THEN
1877: p_token1_value => 'Acceptance Source');
1878: RAISE OKL_API.G_EXCEPTION_ERROR;
1879: END IF;
1880: ELSIF (lp_term_rec.qtp_code IS NULL
1881: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1882: THEN
1883: IF db_qtp_code NOT LIKE 'TER_ROLL%'
1884: THEN
1885: OKL_API.set_message(p_app_name => G_APP_NAME,
1881: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1882: THEN
1883: IF db_qtp_code NOT LIKE 'TER_ROLL%'
1884: THEN
1885: OKL_API.set_message(p_app_name => G_APP_NAME,
1886: p_msg_name => G_INVALID_VALUE,
1887: p_token1 => G_COL_NAME_TOKEN,
1888: p_token1_value => 'Acceptance Source');
1889: RAISE OKL_API.G_EXCEPTION_ERROR;
1885: OKL_API.set_message(p_app_name => G_APP_NAME,
1886: p_msg_name => G_INVALID_VALUE,
1887: p_token1 => G_COL_NAME_TOKEN,
1888: p_token1_value => 'Acceptance Source');
1889: RAISE OKL_API.G_EXCEPTION_ERROR;
1890: END IF;
1891: END IF;
1892: END IF;
1893:
1894: -- If quote is rollover quote and acceptance_source is not ROLLOVER then
1895: -- throw error message as rollover quote can be accepted only from rolled
1896: -- over contract.
1897: IF lp_term_rec.qtp_code IS NOT NULL
1898: AND lp_term_rec.qtp_code <> OKL_API.G_MISS_CHAR
1899: THEN
1900: IF lp_term_rec.qtp_code LIKE 'TER_ROLL%'
1901: AND nvl(p_acceptance_source,'*') <> 'ROLLOVER' -- rmunjulu Rollover/Release Use nvl
1902: THEN
1900: IF lp_term_rec.qtp_code LIKE 'TER_ROLL%'
1901: AND nvl(p_acceptance_source,'*') <> 'ROLLOVER' -- rmunjulu Rollover/Release Use nvl
1902: THEN
1903: -- Rollover quote can be accepted only from rolled over contract
1904: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1905: p_msg_name => 'OKL_NO_ACPT_ROLL_QTE');
1906: RAISE OKL_API.G_EXCEPTION_ERROR;
1907: END IF;
1908: -- if qtp_code is null then get from db and check
1902: THEN
1903: -- Rollover quote can be accepted only from rolled over contract
1904: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1905: p_msg_name => 'OKL_NO_ACPT_ROLL_QTE');
1906: RAISE OKL_API.G_EXCEPTION_ERROR;
1907: END IF;
1908: -- if qtp_code is null then get from db and check
1909: ELSIF (lp_term_rec.qtp_code IS NULL
1910: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1906: RAISE OKL_API.G_EXCEPTION_ERROR;
1907: END IF;
1908: -- if qtp_code is null then get from db and check
1909: ELSIF (lp_term_rec.qtp_code IS NULL
1910: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1911: THEN
1912: IF db_qtp_code LIKE 'TER_ROLL%'
1913: AND nvl(p_acceptance_source,'*') <> 'ROLLOVER' -- rmunjulu Rollover/Release Use nvl
1914: THEN
1912: IF db_qtp_code LIKE 'TER_ROLL%'
1913: AND nvl(p_acceptance_source,'*') <> 'ROLLOVER' -- rmunjulu Rollover/Release Use nvl
1914: THEN
1915: -- Rollover quote can be accepted only from rolled over contract
1916: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1917: p_msg_name => 'OKL_NO_ACPT_ROLL_QTE');
1918: RAISE OKL_API.G_EXCEPTION_ERROR;
1919: END IF;
1920: END IF;
1914: THEN
1915: -- Rollover quote can be accepted only from rolled over contract
1916: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1917: p_msg_name => 'OKL_NO_ACPT_ROLL_QTE');
1918: RAISE OKL_API.G_EXCEPTION_ERROR;
1919: END IF;
1920: END IF;
1921:
1922: --Bug# 3925453: pagarg +++ T and A +++++++ Start ++++++++++
1924: -- raise invalid value error.
1925: IF nvl(p_acceptance_source,'*') = 'RELEASE_CONTRACT' -- rmunjulu Rollover/Release Use nvl
1926: THEN
1927: IF lp_term_rec.qtp_code IS NOT NULL
1928: AND lp_term_rec.qtp_code <> OKL_API.G_MISS_CHAR
1929: THEN
1930: IF lp_term_rec.qtp_code <> 'TER_RELEASE_WO_PURCHASE'
1931: THEN
1932: OKL_API.set_message(p_app_name => G_APP_NAME,
1928: AND lp_term_rec.qtp_code <> OKL_API.G_MISS_CHAR
1929: THEN
1930: IF lp_term_rec.qtp_code <> 'TER_RELEASE_WO_PURCHASE'
1931: THEN
1932: OKL_API.set_message(p_app_name => G_APP_NAME,
1933: p_msg_name => G_INVALID_VALUE,
1934: p_token1 => G_COL_NAME_TOKEN,
1935: p_token1_value => 'Acceptance Source');
1936: RAISE OKL_API.G_EXCEPTION_ERROR;
1932: OKL_API.set_message(p_app_name => G_APP_NAME,
1933: p_msg_name => G_INVALID_VALUE,
1934: p_token1 => G_COL_NAME_TOKEN,
1935: p_token1_value => 'Acceptance Source');
1936: RAISE OKL_API.G_EXCEPTION_ERROR;
1937: END IF;
1938: ELSIF (lp_term_rec.qtp_code IS NULL
1939: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1940: THEN
1935: p_token1_value => 'Acceptance Source');
1936: RAISE OKL_API.G_EXCEPTION_ERROR;
1937: END IF;
1938: ELSIF (lp_term_rec.qtp_code IS NULL
1939: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1940: THEN
1941: IF db_qtp_code <> 'TER_RELEASE_WO_PURCHASE'
1942: THEN
1943: OKL_API.set_message(p_app_name => G_APP_NAME,
1939: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1940: THEN
1941: IF db_qtp_code <> 'TER_RELEASE_WO_PURCHASE'
1942: THEN
1943: OKL_API.set_message(p_app_name => G_APP_NAME,
1944: p_msg_name => G_INVALID_VALUE,
1945: p_token1 => G_COL_NAME_TOKEN,
1946: p_token1_value => 'Acceptance Source');
1947: RAISE OKL_API.G_EXCEPTION_ERROR;
1943: OKL_API.set_message(p_app_name => G_APP_NAME,
1944: p_msg_name => G_INVALID_VALUE,
1945: p_token1 => G_COL_NAME_TOKEN,
1946: p_token1_value => 'Acceptance Source');
1947: RAISE OKL_API.G_EXCEPTION_ERROR;
1948: END IF;
1949: END IF;
1950: END IF;
1951:
1952: -- If quote is release quote and acceptance_source is not RELEASE_CONTRACT then
1953: -- throw error message as release quote can be accepted only from released
1954: -- contract.
1955: IF lp_term_rec.qtp_code IS NOT NULL
1956: AND lp_term_rec.qtp_code <> OKL_API.G_MISS_CHAR
1957: THEN
1958: IF lp_term_rec.qtp_code = 'TER_RELEASE_WO_PURCHASE'
1959: AND nvl(p_acceptance_source,'*') <> 'RELEASE_CONTRACT' -- rmunjulu Rollover/Release Use nvl
1960: THEN
1958: IF lp_term_rec.qtp_code = 'TER_RELEASE_WO_PURCHASE'
1959: AND nvl(p_acceptance_source,'*') <> 'RELEASE_CONTRACT' -- rmunjulu Rollover/Release Use nvl
1960: THEN
1961: -- Rollover quote can be accepted only from rolled over contract
1962: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1963: p_msg_name => 'OKL_AM_NO_ACPT_RELEASE_QTE');
1964: RAISE OKL_API.G_EXCEPTION_ERROR;
1965: END IF;
1966: -- if qtp_code is null then get from db and check
1960: THEN
1961: -- Rollover quote can be accepted only from rolled over contract
1962: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1963: p_msg_name => 'OKL_AM_NO_ACPT_RELEASE_QTE');
1964: RAISE OKL_API.G_EXCEPTION_ERROR;
1965: END IF;
1966: -- if qtp_code is null then get from db and check
1967: ELSIF (lp_term_rec.qtp_code IS NULL
1968: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1964: RAISE OKL_API.G_EXCEPTION_ERROR;
1965: END IF;
1966: -- if qtp_code is null then get from db and check
1967: ELSIF (lp_term_rec.qtp_code IS NULL
1968: OR lp_term_rec.qtp_code = OKL_API.G_MISS_CHAR)
1969: THEN
1970: IF db_qtp_code = 'TER_RELEASE_WO_PURCHASE'
1971: AND nvl(p_acceptance_source,'*') <> 'RELEASE_CONTRACT' -- rmunjulu Rollover/Release Use nvl
1972: THEN
1970: IF db_qtp_code = 'TER_RELEASE_WO_PURCHASE'
1971: AND nvl(p_acceptance_source,'*') <> 'RELEASE_CONTRACT' -- rmunjulu Rollover/Release Use nvl
1972: THEN
1973: -- Rollover quote can be accepted only from rolled over contract
1974: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1975: p_msg_name => 'OKL_AM_NO_ACPT_RELEASE_QTE');
1976: RAISE OKL_API.G_EXCEPTION_ERROR;
1977: END IF;
1978: END IF;
1972: THEN
1973: -- Rollover quote can be accepted only from rolled over contract
1974: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1975: p_msg_name => 'OKL_AM_NO_ACPT_RELEASE_QTE');
1976: RAISE OKL_API.G_EXCEPTION_ERROR;
1977: END IF;
1978: END IF;
1979: --Bug# 3925453: pagarg +++ T and A +++++++ End ++++++++++
1980:
1995: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_contract_transactions , return status: ' || l_return_status);
1996: END IF;
1997:
1998: -- Check the return status
1999: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2000:
2001: -- Error occured in util proc, message set by util proc raise exp
2002: RAISE OKL_API.G_EXCEPTION_ERROR;
2003:
1998: -- Check the return status
1999: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2000:
2001: -- Error occured in util proc, message set by util proc raise exp
2002: RAISE OKL_API.G_EXCEPTION_ERROR;
2003:
2004: END IF;
2005:
2006: -- Check if termination transaction exists for the asset
2007: IF lx_trn_tbl.COUNT > 0 THEN
2008:
2009: -- A termination transaction for the contract CONTRACT_NUMBER
2010: -- is already in progress.
2011: OKL_API.set_message (
2012: p_app_name => 'OKL',
2013: p_msg_name => 'OKL_AM_K_PENDING_TRN_ERROR',
2014: p_token1 => 'CONTRACT_NUMBER',
2015: p_token1_value => db_contract_number);
2013: p_msg_name => 'OKL_AM_K_PENDING_TRN_ERROR',
2014: p_token1 => 'CONTRACT_NUMBER',
2015: p_token1_value => db_contract_number);
2016:
2017: RAISE OKL_API.G_EXCEPTION_ERROR;
2018:
2019: END IF;
2020:
2021:
2035: 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);
2036: END IF;
2037:
2038: -- Check the return status
2039: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2040:
2041: -- Error occured in util proc, message set by util proc raise exp
2042: RAISE OKL_API.G_EXCEPTION_ERROR;
2043:
2038: -- Check the return status
2039: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2040:
2041: -- Error occured in util proc, message set by util proc raise exp
2042: RAISE OKL_API.G_EXCEPTION_ERROR;
2043:
2044: END IF;
2045:
2046: -- Check if accepted quote exists for the contract
2053:
2054: -- Accepted quote QUOTE_NUMBER of quote type QUOTE_TYPE exists for
2055: -- contract CONTRACT_NUMBER. Cannot accept multiple quotes for the
2056: -- same contract.
2057: OKL_API.set_message (
2058: p_app_name => 'OKL',
2059: p_msg_name => 'OKL_AM_QTE_ACC_EXISTS_ERR',
2060: p_token1 => 'QUOTE_NUMBER',
2061: p_token1_value => lx_quote_tbl(lx_quote_tbl.FIRST).quote_number,
2063: p_token2_value => l_quote_type,
2064: p_token3 => 'CONTRACT_NUMBER',
2065: p_token3_value => db_contract_number);
2066:
2067: RAISE OKL_API.G_EXCEPTION_ERROR;
2068:
2069: END IF;
2070:
2071:
2088: IF (is_debug_statement_on) THEN
2089: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_INSURANCE_POLICIES_PUB.check_claims , return status: ' || l_return_status);
2090: END IF;
2091:
2092: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2093:
2094: -- Error checking claims for contract CONTRACT_NUMBER.
2095: OKL_API.set_message (
2096: p_app_name => 'OKL',
2091:
2092: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2093:
2094: -- Error checking claims for contract CONTRACT_NUMBER.
2095: OKL_API.set_message (
2096: p_app_name => 'OKL',
2097: p_msg_name => 'OKL_AM_ERR_CHECK_CLAIMS',
2098: p_token1 => 'CONTRACT_NUMBER',
2099: p_token1_value => db_contract_number);
2097: p_msg_name => 'OKL_AM_ERR_CHECK_CLAIMS',
2098: p_token1 => 'CONTRACT_NUMBER',
2099: p_token1_value => db_contract_number);
2100:
2101: RAISE OKL_API.G_EXCEPTION_ERROR;
2102:
2103: END IF;
2104:
2105: -- If claims exist do not accept quote
2105: -- If claims exist do not accept quote
2106: IF nvl(l_claims_exists, 'N') = 'Y' THEN
2107:
2108: -- Claims exist for the contract CONTRACT_NUMBER.
2109: OKL_API.set_message (
2110: p_app_name => 'OKL',
2111: p_msg_name => 'OKL_AM_INS_CLAIMS_EXIST',
2112: p_token1 => 'CONTRACT_NUMBER',
2113: p_token1_value => db_contract_number);
2111: p_msg_name => 'OKL_AM_INS_CLAIMS_EXIST',
2112: p_token1 => 'CONTRACT_NUMBER',
2113: p_token1_value => db_contract_number);
2114:
2115: RAISE OKL_API.G_EXCEPTION_ERROR;
2116:
2117: END IF;
2118:
2119:
2147: IF chk_contract_trn_rec.id IS NOT NULL THEN
2148:
2149: -- Transaction exists for contract CONTRACT_NUMBER which was processed
2150: -- after this quote was created. This quote is now invalid.
2151: OKL_API.set_message (
2152: p_app_name => 'OKL',
2153: p_msg_name => 'OKL_AM_TRN_EXISTS_ERR',
2154: p_token1 => 'CONTRACT_NUMBER',
2155: p_token1_value => db_contract_number);
2153: p_msg_name => 'OKL_AM_TRN_EXISTS_ERR',
2154: p_token1 => 'CONTRACT_NUMBER',
2155: p_token1_value => db_contract_number);
2156:
2157: RAISE OKL_API.G_EXCEPTION_ERROR;
2158:
2159: END IF;
2160: END LOOP;
2161:
2166: IF chk_split_trn_rec.id IS NOT NULL THEN
2167:
2168: -- Transaction exists for contract CONTRACT_NUMBER which was processed
2169: -- after this quote was created. This quote is now invalid.
2170: OKL_API.set_message (
2171: p_app_name => 'OKL',
2172: p_msg_name => 'OKL_AM_TRN_EXISTS_ERR',
2173: p_token1 => 'CONTRACT_NUMBER',
2174: p_token1_value => db_contract_number);
2172: p_msg_name => 'OKL_AM_TRN_EXISTS_ERR',
2173: p_token1 => 'CONTRACT_NUMBER',
2174: p_token1_value => db_contract_number);
2175:
2176: RAISE OKL_API.G_EXCEPTION_ERROR;
2177:
2178: END IF;
2179: END LOOP;
2180:
2189: IF chk_contract_trn_rec1.id IS NOT NULL THEN
2190:
2191: -- Transaction exists for contract CONTRACT_NUMBER which was processed
2192: -- after this quote was created. This quote is now invalid.
2193: OKL_API.set_message (
2194: p_app_name => 'OKL',
2195: p_msg_name => 'OKL_AM_TRN_EXISTS_ERR',
2196: p_token1 => 'CONTRACT_NUMBER',
2197: p_token1_value => db_contract_number);
2195: p_msg_name => 'OKL_AM_TRN_EXISTS_ERR',
2196: p_token1 => 'CONTRACT_NUMBER',
2197: p_token1_value => db_contract_number);
2198:
2199: RAISE OKL_API.G_EXCEPTION_ERROR;
2200:
2201: END IF;
2202: END LOOP;
2203:
2208: IF chk_split_trn_rec1.id IS NOT NULL THEN
2209:
2210: -- Transaction exists for contract CONTRACT_NUMBER which was processed
2211: -- after this quote was created. This quote is now invalid.
2212: OKL_API.set_message (
2213: p_app_name => 'OKL',
2214: p_msg_name => 'OKL_AM_TRN_EXISTS_ERR',
2215: p_token1 => 'CONTRACT_NUMBER',
2216: p_token1_value => db_contract_number);
2214: p_msg_name => 'OKL_AM_TRN_EXISTS_ERR',
2215: p_token1 => 'CONTRACT_NUMBER',
2216: p_token1_value => db_contract_number);
2217:
2218: RAISE OKL_API.G_EXCEPTION_ERROR;
2219:
2220: END IF;
2221: END LOOP;
2222: END IF;
2245: END IF;
2246:
2247:
2248: -- If error in checking if asset serialized
2249: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2250:
2251:
2252: RAISE OKL_API.G_EXCEPTION_ERROR;
2253:
2248: -- If error in checking if asset serialized
2249: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2250:
2251:
2252: RAISE OKL_API.G_EXCEPTION_ERROR;
2253:
2254: END IF;
2255:
2256:
2254: END IF;
2255:
2256:
2257: -- If asset serialized and IB Line Count <> Quote Qty then error
2258: IF lx_asset_serialized_yn = OKL_API.G_TRUE THEN
2259:
2260:
2261: -- Get the IB line count
2262: OPEN get_ib_lines_cnt_csr(get_qte_lines_rec.tql_id);
2272:
2273: -- Asset ASSET_NUMBER is serialized. Quote quantity
2274: -- QUOTE_QUANTITY does not match the number of selected asset
2275: -- units ASSET_UNITS.
2276: OKL_API.set_message (
2277: p_app_name => 'OKL',
2278: p_msg_name => 'OKL_AM_QTE_QTY_SRL_CNT_ERR',
2279: p_token1 => 'ASSET_NUMBER',
2280: p_token1_value => get_qte_lines_rec.asset_name,
2283: p_token3 => 'ASSET_UNITS',
2284: p_token3_value => l_ib_lines_count);
2285:
2286:
2287: RAISE OKL_API.G_EXCEPTION_ERROR;
2288:
2289: END IF;
2290: END IF;
2291:
2310: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called check_asset_validity_in_fa , return status: ' || l_return_status);
2311: END IF;
2312:
2313: -- If error in FA checks the throw exception, message set in above routine
2314: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2315:
2316: RAISE OKL_API.G_EXCEPTION_ERROR;
2317: END IF;
2318:
2312:
2313: -- If error in FA checks the throw exception, message set in above routine
2314: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2315:
2316: RAISE OKL_API.G_EXCEPTION_ERROR;
2317: END IF;
2318:
2319: IF (is_debug_statement_on) THEN
2320: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_contract_product_details');
2336: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_tax_owner: ' || l_tax_owner);
2337: END IF;
2338:
2339: -- If error then throw exception
2340: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2341:
2342: RAISE OKL_API.G_EXCEPTION_ERROR;
2343: END IF;
2344:
2338:
2339: -- If error then throw exception
2340: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2341:
2342: RAISE OKL_API.G_EXCEPTION_ERROR;
2343: END IF;
2344:
2345: IF l_deal_type LIKE 'LOAN%' THEN
2346:
2344:
2345: IF l_deal_type LIKE 'LOAN%' THEN
2346:
2347: -- Termination with purchase quote is not allowed for loan contract.
2348: OKL_API.SET_MESSAGE(
2349: p_app_name => 'OKL',
2350: p_msg_name => 'OKL_AM_LOAN_PAR_ERR');
2351:
2352: RAISE G_EXCEPTION_HALT_VALIDATION;
2379: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_tax_owner: ' || l_tax_owner);
2380: END IF;
2381:
2382: -- If error then throw exception
2383: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2384:
2385: RAISE OKL_API.G_EXCEPTION_ERROR;
2386: END IF;
2387:
2381:
2382: -- If error then throw exception
2383: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2384:
2385: RAISE OKL_API.G_EXCEPTION_ERROR;
2386: END IF;
2387:
2388: IF l_deal_type LIKE 'LOAN%'
2389: AND l_rev_rec_method IN ('ESTIMATED_AND_BILLED','ACTUAL') THEN
2388: IF l_deal_type LIKE 'LOAN%'
2389: AND l_rev_rec_method IN ('ESTIMATED_AND_BILLED','ACTUAL') THEN
2390:
2391: --SECHAWLA 04-JAN-06 4915133
2392: OKL_API.SET_MESSAGE(
2393: p_app_name => 'OKL',
2394: p_msg_name => 'OKL_AM_LOAN_PAR_LN_TRMNT');
2395:
2396: RAISE OKL_API.G_EXCEPTION_ERROR;
2392: OKL_API.SET_MESSAGE(
2393: p_app_name => 'OKL',
2394: p_msg_name => 'OKL_AM_LOAN_PAR_LN_TRMNT');
2395:
2396: RAISE OKL_API.G_EXCEPTION_ERROR;
2397:
2398: END IF;
2399: END IF;
2400:
2442: END IF;
2443: -- update the quote to canceled
2444: OKL_TRX_QUOTES_PUB.update_trx_quotes(
2445: p_api_version => p_api_version,
2446: p_init_msg_list => OKL_API.G_FALSE,
2447: x_return_status => l_return_status,
2448: x_msg_count => x_msg_count,
2449: x_msg_data => x_msg_data,
2450: p_qtev_rec => lp_canceled_qtev_rec,
2452: IF (is_debug_statement_on) THEN
2453: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_TRX_QUOTES_PUB.update_trx_quotes , return status: ' || l_return_status);
2454: END IF;
2455:
2456: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2458: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2459: RAISE OKL_API.G_EXCEPTION_ERROR;
2460: END IF;
2453: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_TRX_QUOTES_PUB.update_trx_quotes , return status: ' || l_return_status);
2454: END IF;
2455:
2456: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2458: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2459: RAISE OKL_API.G_EXCEPTION_ERROR;
2460: END IF;
2461:
2454: END IF;
2455:
2456: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2458: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2459: RAISE OKL_API.G_EXCEPTION_ERROR;
2460: END IF;
2461:
2462: END IF;
2455:
2456: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2458: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2459: RAISE OKL_API.G_EXCEPTION_ERROR;
2460: END IF;
2461:
2462: END IF;
2463:
2481: IF (NVL(l_ars_code,'?') <> 'REPOSSESSED') THEN
2482: -- You cannot accept this termination quote.
2483: -- Please update the Asset Return status to Repossessed for all
2484: -- assets on contract number CONTRACT_NUMBER.
2485: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
2486: p_msg_name => 'OKL_AM_ASSET_NOT_REPO',
2487: p_token1 => 'CONTRACT_NUMBER',
2488: p_token1_value => l_contract_number);
2489:
2486: p_msg_name => 'OKL_AM_ASSET_NOT_REPO',
2487: p_token1 => 'CONTRACT_NUMBER',
2488: p_token1_value => l_contract_number);
2489:
2490: RAISE OKL_API.G_EXCEPTION_ERROR;
2491: END IF;
2492: END IF;
2493: -- Bug 6674730 end
2494:
2511:
2512: IF l_int_calc_done IS NULL OR l_int_calc_done = 'N' THEN
2513:
2514: -- Message will be set in called procedure
2515: RAISE OKL_API.G_EXCEPTION_ERROR;
2516:
2517: -- rmunjulu Check if Variable Rate NON REAMORT case, if yes then run variable rate billing API
2518:
2519: END IF;
2533:
2534: -- Check if linked service contract exists for the quoted contract
2535: OKL_SERVICE_INTEGRATION_PVT.check_service_link (
2536: p_api_version => l_api_version,
2537: p_init_msg_list => OKL_API.G_FALSE,
2538: x_return_status => l_return_status,
2539: x_msg_count => l_msg_count,
2540: x_msg_data => l_msg_data,
2541: p_lease_contract_id => l_contract_id,
2547: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,
2548: 'called OKL_SERVICE_INTEGRATION_PVT.check_service_link , l_oks_chr_id: ' || l_oks_chr_id);
2549: END IF;
2550:
2551: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2552: -- Error checking service integration details.
2553: OKL_API.set_message (
2554: p_app_name => OKL_API.G_APP_NAME,
2555: p_msg_name => 'OKL_AM_K_SRV_INT_ERR');
2549: END IF;
2550:
2551: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2552: -- Error checking service integration details.
2553: OKL_API.set_message (
2554: p_app_name => OKL_API.G_APP_NAME,
2555: p_msg_name => 'OKL_AM_K_SRV_INT_ERR');
2556: END IF;
2557:
2550:
2551: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2552: -- Error checking service integration details.
2553: OKL_API.set_message (
2554: p_app_name => OKL_API.G_APP_NAME,
2555: p_msg_name => 'OKL_AM_K_SRV_INT_ERR');
2556: END IF;
2557:
2558: -- raise exception if error
2555: p_msg_name => 'OKL_AM_K_SRV_INT_ERR');
2556: END IF;
2557:
2558: -- raise exception if error
2559: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2561: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2562: RAISE OKL_API.G_EXCEPTION_ERROR;
2563: END IF;
2556: END IF;
2557:
2558: -- raise exception if error
2559: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2561: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2562: RAISE OKL_API.G_EXCEPTION_ERROR;
2563: END IF;
2564:
2557:
2558: -- raise exception if error
2559: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2561: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2562: RAISE OKL_API.G_EXCEPTION_ERROR;
2563: END IF;
2564:
2565: -- If linked Lease
2558: -- raise exception if error
2559: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2561: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2562: RAISE OKL_API.G_EXCEPTION_ERROR;
2563: END IF;
2564:
2565: -- If linked Lease
2566: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
2562: RAISE OKL_API.G_EXCEPTION_ERROR;
2563: END IF;
2564:
2565: -- If linked Lease
2566: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
2567: AND l_oks_chr_id IS NOT NULL THEN
2568:
2569: -- IF Partial Quote
2570: IF db_partial_yn = 'Y' THEN
2595: END LOOP;
2596:
2597: -- Partial Quote QUOTE_NUMBER for Lease Contract LEASE_CONTRACT can not be accepted,
2598: -- since Lease Contract is linked to Service Contract SERVICE_CONTRACT.
2599: OKL_API.set_message (
2600: p_app_name => OKL_API.G_APP_NAME,
2601: p_msg_name => 'OKL_AM_ACCEPT_LINKED_LEASE',
2602: p_token1 => 'QUOTE_NUMBER',
2603: p_token1_value => db_quote_number,
2596:
2597: -- Partial Quote QUOTE_NUMBER for Lease Contract LEASE_CONTRACT can not be accepted,
2598: -- since Lease Contract is linked to Service Contract SERVICE_CONTRACT.
2599: OKL_API.set_message (
2600: p_app_name => OKL_API.G_APP_NAME,
2601: p_msg_name => 'OKL_AM_ACCEPT_LINKED_LEASE',
2602: p_token1 => 'QUOTE_NUMBER',
2603: p_token1_value => db_quote_number,
2604: p_token2 => 'LEASE_CONTRACT',
2605: p_token2_value => l_contract_number,
2606: p_token3 => 'SERVICE_CONTRACT',
2607: p_token3_value => l_service_contract);
2608:
2609: RAISE OKL_API.G_EXCEPTION_ERROR;
2610:
2611: END IF;
2612:
2613: END IF;
2633: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,
2634: 'l_return_status: ' || l_return_status);
2635: END IF;
2636:
2637: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2638: -- Error getting contract product details.
2639: OKL_API.set_message (
2640: p_app_name => OKL_API.G_APP_NAME,
2641: p_msg_name => 'OKL_AM_K_PRD_DTLS_ERR');
2635: END IF;
2636:
2637: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2638: -- Error getting contract product details.
2639: OKL_API.set_message (
2640: p_app_name => OKL_API.G_APP_NAME,
2641: p_msg_name => 'OKL_AM_K_PRD_DTLS_ERR');
2642: END IF;
2643:
2636:
2637: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2638: -- Error getting contract product details.
2639: OKL_API.set_message (
2640: p_app_name => OKL_API.G_APP_NAME,
2641: p_msg_name => 'OKL_AM_K_PRD_DTLS_ERR');
2642: END IF;
2643:
2644: -- raise exception if error
2641: p_msg_name => 'OKL_AM_K_PRD_DTLS_ERR');
2642: END IF;
2643:
2644: -- raise exception if error
2645: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2647: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2648: RAISE OKL_API.G_EXCEPTION_ERROR;
2649: END IF;
2642: END IF;
2643:
2644: -- raise exception if error
2645: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2647: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2648: RAISE OKL_API.G_EXCEPTION_ERROR;
2649: END IF;
2650:
2643:
2644: -- raise exception if error
2645: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2647: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2648: RAISE OKL_API.G_EXCEPTION_ERROR;
2649: END IF;
2650:
2651: -- BPD Now provides a API which tells till when the billing was done, use that
2644: -- raise exception if error
2645: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2647: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2648: RAISE OKL_API.G_EXCEPTION_ERROR;
2649: END IF;
2650:
2651: -- BPD Now provides a API which tells till when the billing was done, use that
2652: IF (is_debug_statement_on) THEN
2705: -- Termination Quote 'QUOTE_NUMBER' cannot be accepted at this time as
2706: -- the concurrent program 'PROGRAM_NAME'
2707: -- (Request Id = 'REQUEST_ID') is 'PHASE'.
2708: -- Please accept the termination quote after the program has completed.
2709: OKL_API.set_message (
2710: p_app_name => OKL_API.G_APP_NAME,
2711: p_msg_name => 'OKL_AM_CONC_REC_FOUND',
2712: p_token1 => 'QUOTE_NUMBER',
2713: p_token1_value => db_quote_number,
2706: -- the concurrent program 'PROGRAM_NAME'
2707: -- (Request Id = 'REQUEST_ID') is 'PHASE'.
2708: -- Please accept the termination quote after the program has completed.
2709: OKL_API.set_message (
2710: p_app_name => OKL_API.G_APP_NAME,
2711: p_msg_name => 'OKL_AM_CONC_REC_FOUND',
2712: p_token1 => 'QUOTE_NUMBER',
2713: p_token1_value => db_quote_number,
2714: p_token2 => 'PROGRAM_NAME',
2717: p_token3_value => conc_details_rec.request_id,
2718: p_token4 => 'PHASE',
2719: p_token4_value => l_phase_meaning);
2720:
2721: RAISE OKL_API.G_EXCEPTION_ERROR;
2722: END IF;
2723:
2724: -- Call Billing API to do billing of contract
2725: IF (is_debug_statement_on) THEN
2729:
2730: -- Call stream billing API if stream billing not done
2731: OKL_STREAM_BILLING_PVT.bill_streams (
2732: p_api_version => p_api_version,
2733: p_init_msg_list => OKL_API.G_FALSE,
2734: x_return_status => l_return_status,
2735: x_msg_count => x_msg_count,
2736: x_msg_data => x_msg_data,
2737: p_commit => FND_API.G_FALSE,
2748: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,
2749: 'l_return_status: ' || l_return_status);
2750: END IF;
2751:
2752: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2753: -- Error during billing for the contract.
2754: OKL_API.set_message (
2755: p_app_name => OKL_API.G_APP_NAME,
2756: p_msg_name => 'OKL_AM_BILL_ERROR');
2750: END IF;
2751:
2752: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2753: -- Error during billing for the contract.
2754: OKL_API.set_message (
2755: p_app_name => OKL_API.G_APP_NAME,
2756: p_msg_name => 'OKL_AM_BILL_ERROR');
2757: END IF;
2758:
2751:
2752: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2753: -- Error during billing for the contract.
2754: OKL_API.set_message (
2755: p_app_name => OKL_API.G_APP_NAME,
2756: p_msg_name => 'OKL_AM_BILL_ERROR');
2757: END IF;
2758:
2759: -- raise exception if error
2756: p_msg_name => 'OKL_AM_BILL_ERROR');
2757: END IF;
2758:
2759: -- raise exception if error
2760: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2761: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2762: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2763: RAISE OKL_API.G_EXCEPTION_ERROR;
2764: END IF;
2757: END IF;
2758:
2759: -- raise exception if error
2760: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2761: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2762: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2763: RAISE OKL_API.G_EXCEPTION_ERROR;
2764: END IF;
2765:
2758:
2759: -- raise exception if error
2760: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2761: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2762: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2763: RAISE OKL_API.G_EXCEPTION_ERROR;
2764: END IF;
2765:
2766: ELSE -- RevRec IS NOT STREAMS or IntCalc IS NOT FIXED or OKS may be linked
2759: -- raise exception if error
2760: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2761: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2762: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2763: RAISE OKL_API.G_EXCEPTION_ERROR;
2764: END IF;
2765:
2766: ELSE -- RevRec IS NOT STREAMS or IntCalc IS NOT FIXED or OKS may be linked
2767:
2768: -- rmunjulu 6795295 set the message if needed
2769: IF nvl(l_stream_bill_done_yn ,'*') = 'N' THEN
2770: -- Quote QUOTE_NUMBER can not be accepted. Please process Regular Stream billing
2771: -- for contract CONTRACT_NUMBER up to the quote effective from date.
2772: OKL_API.set_message (
2773: p_app_name => 'OKL',
2774: p_msg_name => 'OKL_AM_ACCEPT_TQ_RUN_BILLING',
2775: p_token1 => 'QUOTE_NUMBER',
2776: p_token1_value => db_quote_number,
2778: p_token2_value => l_contract_number);
2779: ELSE -- service billing not done, message will be set in called procedure
2780: NULL;
2781: END IF;
2782: RAISE OKL_API.G_EXCEPTION_ERROR;
2783: END IF;
2784: -- rmunjulu AutoTerminate -- END
2785: END IF;
2786:
2848: IF (l_accrual_done IS NULL ) THEN -- rmunjulu 5036337 check for Null-- check for null rmunjulu LOANS_ENHANCEMENTS Use new variable
2849:
2850: -- Error occurred while checking the accrual status for contract number CONTRACT_NUMBER.
2851: -- Function OKL_GENERATE_ACCRUALS_PVT.check_date_accrued_till returned a NULL
2852: OKL_API.set_message (
2853: p_app_name => OKL_API.G_APP_NAME,
2854: p_msg_name => 'OKL_AM_CHK_ACCRUAL_ERR',
2855: p_token1 => 'CONTRACT_NUMBER',
2856: p_token1_value => l_contract_number);
2849:
2850: -- Error occurred while checking the accrual status for contract number CONTRACT_NUMBER.
2851: -- Function OKL_GENERATE_ACCRUALS_PVT.check_date_accrued_till returned a NULL
2852: OKL_API.set_message (
2853: p_app_name => OKL_API.G_APP_NAME,
2854: p_msg_name => 'OKL_AM_CHK_ACCRUAL_ERR',
2855: p_token1 => 'CONTRACT_NUMBER',
2856: p_token1_value => l_contract_number);
2857:
2854: p_msg_name => 'OKL_AM_CHK_ACCRUAL_ERR',
2855: p_token1 => 'CONTRACT_NUMBER',
2856: p_token1_value => l_contract_number);
2857:
2858: RAISE OKL_API.G_EXCEPTION_ERROR;
2859:
2860: ELSIF (l_accrual_done = 'N' ) THEN -- rmunjulu 5036337 check for N
2861:
2862: -- rmunjulu 6736148 -- start
2889: -- Termination Quote 'QUOTE_NUMBER' cannot be accepted at this time as
2890: -- the concurrent program 'PROGRAM_NAME'
2891: -- (Request Id = 'REQUEST_ID') is 'PHASE'.
2892: -- Please accept the termination quote after the program has completed.
2893: OKL_API.set_message (
2894: p_app_name => OKL_API.G_APP_NAME,
2895: p_msg_name => 'OKL_AM_CONC_REC_FOUND',
2896: p_token1 => 'QUOTE_NUMBER',
2897: p_token1_value => db_quote_number,
2890: -- the concurrent program 'PROGRAM_NAME'
2891: -- (Request Id = 'REQUEST_ID') is 'PHASE'.
2892: -- Please accept the termination quote after the program has completed.
2893: OKL_API.set_message (
2894: p_app_name => OKL_API.G_APP_NAME,
2895: p_msg_name => 'OKL_AM_CONC_REC_FOUND',
2896: p_token1 => 'QUOTE_NUMBER',
2897: p_token1_value => db_quote_number,
2898: p_token2 => 'PROGRAM_NAME',
2901: p_token3_value => conc_details_rec.request_id,
2902: p_token4 => 'PHASE',
2903: p_token4_value => l_phase_meaning);
2904:
2905: RAISE OKL_API.G_EXCEPTION_ERROR;
2906: END IF;
2907:
2908: -- set the accrual_rec
2909: l_accrual_rec.contract_id := l_contract_id;
2918:
2919: -- Call Accruals API
2920: OKL_GENERATE_ACCRUALS_PVT.generate_accruals (
2921: p_api_version => p_api_version,
2922: p_init_msg_list => OKL_API.G_FALSE,
2923: x_return_status => l_return_status,
2924: x_msg_count => x_msg_count,
2925: x_msg_data => x_msg_data,
2926: p_accrual_rec => l_accrual_rec);
2932: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,
2933: 'l_return_status: ' || l_return_status);
2934: END IF;
2935:
2936: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2937: -- Error during running accrual for the contract.
2938: OKL_API.set_message (
2939: p_app_name => OKL_API.G_APP_NAME,
2940: p_msg_name => 'OKL_AM_ACCRUAL_ERROR');
2934: END IF;
2935:
2936: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2937: -- Error during running accrual for the contract.
2938: OKL_API.set_message (
2939: p_app_name => OKL_API.G_APP_NAME,
2940: p_msg_name => 'OKL_AM_ACCRUAL_ERROR');
2941: END IF;
2942:
2935:
2936: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2937: -- Error during running accrual for the contract.
2938: OKL_API.set_message (
2939: p_app_name => OKL_API.G_APP_NAME,
2940: p_msg_name => 'OKL_AM_ACCRUAL_ERROR');
2941: END IF;
2942:
2943: -- raise exception if error
2940: p_msg_name => 'OKL_AM_ACCRUAL_ERROR');
2941: END IF;
2942:
2943: -- raise exception if error
2944: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2946: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2947: RAISE OKL_API.G_EXCEPTION_ERROR;
2948: END IF;
2941: END IF;
2942:
2943: -- raise exception if error
2944: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2946: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2947: RAISE OKL_API.G_EXCEPTION_ERROR;
2948: END IF;
2949: -- rmunjulu 6736148 -- end
2942:
2943: -- raise exception if error
2944: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2946: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2947: RAISE OKL_API.G_EXCEPTION_ERROR;
2948: END IF;
2949: -- rmunjulu 6736148 -- end
2950: ELSE -- RevRec IS NOT STREAMS or IntCalc IS NOT FIXED
2943: -- raise exception if error
2944: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2946: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2947: RAISE OKL_API.G_EXCEPTION_ERROR;
2948: END IF;
2949: -- rmunjulu 6736148 -- end
2950: ELSE -- RevRec IS NOT STREAMS or IntCalc IS NOT FIXED
2951:
2952: IF nvl(l_accrual_previous_mnth_yn,'N') = 'N' THEN -- rmunjulu 4769094 continue with current message
2953:
2954: -- Quote QUOTE_NUMBER can not be accepted. Please process accrual
2955: -- for contract CONTRACT_NUMBER up to the quote effective from date.
2956: OKL_API.set_message (
2957: p_app_name => OKL_API.G_APP_NAME,
2958: p_msg_name => 'OKL_AM_ACCEPT_TQ_RUN_ACCRUAL',
2959: p_token1 => 'QUOTE_NUMBER',
2960: p_token1_value => db_quote_number,
2953:
2954: -- Quote QUOTE_NUMBER can not be accepted. Please process accrual
2955: -- for contract CONTRACT_NUMBER up to the quote effective from date.
2956: OKL_API.set_message (
2957: p_app_name => OKL_API.G_APP_NAME,
2958: p_msg_name => 'OKL_AM_ACCEPT_TQ_RUN_ACCRUAL',
2959: p_token1 => 'QUOTE_NUMBER',
2960: p_token1_value => db_quote_number,
2961: p_token2 => 'CONTRACT_NUMBER',
2963:
2964: ELSE -- rmunjulu 4769094 new message check till quote eff dates previous month last date
2965: -- Quote QUOTE_NUMBER can not be accepted. Please process accrual
2966: -- for contract CONTRACT_NUMBER up to the DATE.
2967: OKL_API.set_message (
2968: p_app_name => OKL_API.G_APP_NAME,
2969: p_msg_name => 'OKL_AM_ACCEPT_TQ_RUN_ACCR_NEW',
2970: p_token1 => 'QUOTE_NUMBER',
2971: p_token1_value => db_quote_number,
2964: ELSE -- rmunjulu 4769094 new message check till quote eff dates previous month last date
2965: -- Quote QUOTE_NUMBER can not be accepted. Please process accrual
2966: -- for contract CONTRACT_NUMBER up to the DATE.
2967: OKL_API.set_message (
2968: p_app_name => OKL_API.G_APP_NAME,
2969: p_msg_name => 'OKL_AM_ACCEPT_TQ_RUN_ACCR_NEW',
2970: p_token1 => 'QUOTE_NUMBER',
2971: p_token1_value => db_quote_number,
2972: p_token2 => 'CONTRACT_NUMBER',
2974: p_token3 => 'DATE',
2975: p_token3_value => l_previous_mnth_last_date);
2976: END IF;
2977:
2978: RAISE OKL_API.G_EXCEPTION_ERROR;
2979: END IF;
2980: END IF;
2981:
2982: -- RMUNJULU 30-DEC-02 2699412 Added code to set currency conversion columns
3016: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_date: ' || l_currency_conversion_date);
3017: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_converted_amount: ' || l_converted_amount);
3018: END IF;
3019:
3020: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3021:
3022: -- The currency conversion rate could not be
3023: -- identified for specified currency.
3024: OKL_API.set_message(
3020: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3021:
3022: -- The currency conversion rate could not be
3023: -- identified for specified currency.
3024: OKL_API.set_message(
3025: p_app_name => 'OKL',
3026: p_msg_name => 'OKL_CONV_RATE_NOT_FOUND');
3027:
3028: END IF;
3027:
3028: END IF;
3029:
3030: -- raise exception if error
3031: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3033: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3034: RAISE OKL_API.G_EXCEPTION_ERROR;
3035: END IF;
3028: END IF;
3029:
3030: -- raise exception if error
3031: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3033: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3034: RAISE OKL_API.G_EXCEPTION_ERROR;
3035: END IF;
3036:
3029:
3030: -- raise exception if error
3031: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3033: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3034: RAISE OKL_API.G_EXCEPTION_ERROR;
3035: END IF;
3036:
3037: -- Set the currency conversion columns
3030: -- raise exception if error
3031: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3033: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3034: RAISE OKL_API.G_EXCEPTION_ERROR;
3035: END IF;
3036:
3037: -- Set the currency conversion columns
3038: lp_term_rec.currency_conversion_type := l_currency_conversion_type;
3050:
3051:
3052: -- if already accepted and trying to change then raise error
3053: ELSIF lp_term_rec.accepted_yn IS NOT NULL
3054: AND lp_term_rec.accepted_yn <> OKL_API.G_MISS_CHAR
3055: AND lp_term_rec.accepted_yn = G_NO
3056: AND db_accepted_yn = G_YES THEN
3057:
3058: --Quote QUOTE_NUMBER is already accepted.
3055: AND lp_term_rec.accepted_yn = G_NO
3056: AND db_accepted_yn = G_YES THEN
3057:
3058: --Quote QUOTE_NUMBER is already accepted.
3059: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
3060: p_msg_name => 'OKL_AM_QUOTE_ALREADY_ACCP',
3061: p_token1 => 'QUOTE_NUMBER',
3062: p_token1_value => db_quote_number);
3063:
3060: p_msg_name => 'OKL_AM_QUOTE_ALREADY_ACCP',
3061: p_token1 => 'QUOTE_NUMBER',
3062: p_token1_value => db_quote_number);
3063:
3064: RAISE OKL_API.G_EXCEPTION_ERROR;
3065:
3066: -- rmunjulu 4128965 Added this additional check
3067: -- if already accepted and trying to accept again
3068: -- Could happen when same rollover quote was added to 2 contracts and
3067: -- if already accepted and trying to accept again
3068: -- Could happen when same rollover quote was added to 2 contracts and
3069: -- accepted from one activation and then trying to accept from other activation
3070: ELSIF lp_term_rec.accepted_yn IS NOT NULL
3071: AND lp_term_rec.accepted_yn <> OKL_API.G_MISS_CHAR
3072: AND lp_term_rec.accepted_yn = G_YES
3073: AND db_accepted_yn = G_YES THEN
3074:
3075: --Quote QUOTE_NUMBER is already accepted.
3072: AND lp_term_rec.accepted_yn = G_YES
3073: AND db_accepted_yn = G_YES THEN
3074:
3075: --Quote QUOTE_NUMBER is already accepted.
3076: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
3077: p_msg_name => 'OKL_AM_QUOTE_ALREADY_ACCP',
3078: p_token1 => 'QUOTE_NUMBER',
3079: p_token1_value => db_quote_number);
3080:
3077: p_msg_name => 'OKL_AM_QUOTE_ALREADY_ACCP',
3078: p_token1 => 'QUOTE_NUMBER',
3079: p_token1_value => db_quote_number);
3080:
3081: RAISE OKL_API.G_EXCEPTION_ERROR;
3082:
3083:
3084: END IF; -- end if quote being accepted now
3085:
3106: IF (is_debug_statement_on) THEN
3107: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_TRX_QUOTES_PUB.update_trx_quotes , return status: ' || l_return_status);
3108: END IF;
3109:
3110: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3111: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3112: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3113: RAISE OKL_API.G_EXCEPTION_ERROR;
3114: END IF;
3107: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_TRX_QUOTES_PUB.update_trx_quotes , return status: ' || l_return_status);
3108: END IF;
3109:
3110: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3111: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3112: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3113: RAISE OKL_API.G_EXCEPTION_ERROR;
3114: END IF;
3115:
3108: END IF;
3109:
3110: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3111: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3112: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3113: RAISE OKL_API.G_EXCEPTION_ERROR;
3114: END IF;
3115:
3116: --*************
3109:
3110: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3111: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3112: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3113: RAISE OKL_API.G_EXCEPTION_ERROR;
3114: END IF;
3115:
3116: --*************
3117: -- launch WF
3146: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_return_status: ' || l_return_status);
3147: END IF;
3148:
3149: -- raise exception if error
3150: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3151: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3152: END IF;
3153:
3154: ELSE
3147: END IF;
3148:
3149: -- raise exception if error
3150: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3151: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3152: END IF;
3153:
3154: ELSE
3155: IF (is_debug_statement_on) THEN
3175: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_return_status: ' || l_return_status);
3176: END IF;
3177:
3178: -- raise exception if error
3179: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3181: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3182: RAISE OKL_API.G_EXCEPTION_ERROR;
3183: END IF;
3176: END IF;
3177:
3178: -- raise exception if error
3179: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3181: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3182: RAISE OKL_API.G_EXCEPTION_ERROR;
3183: END IF;
3184:
3177:
3178: -- raise exception if error
3179: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3181: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3182: RAISE OKL_API.G_EXCEPTION_ERROR;
3183: END IF;
3184:
3185: END IF;
3178: -- raise exception if error
3179: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3181: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3182: RAISE OKL_API.G_EXCEPTION_ERROR;
3183: END IF;
3184:
3185: END IF;
3186:
3185: END IF;
3186:
3187: -- Set message on stack
3188: -- Workflow event EVENT_NAME has been requested.
3189: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
3190: p_msg_name => 'OKL_AM_WF_EVENT_MSG',
3191: p_token1 => 'EVENT_NAME',
3192: p_token1_value => l_event_name);
3193:
3204: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.process_messages , return status: ' || l_return_status);
3205: END IF;
3206:
3207: -- raise exception if error
3208: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3209: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3210: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3211: RAISE OKL_API.G_EXCEPTION_ERROR;
3212: END IF;
3205: END IF;
3206:
3207: -- raise exception if error
3208: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3209: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3210: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3211: RAISE OKL_API.G_EXCEPTION_ERROR;
3212: END IF;
3213:
3206:
3207: -- raise exception if error
3208: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3209: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3210: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3211: RAISE OKL_API.G_EXCEPTION_ERROR;
3212: END IF;
3213:
3214: END IF;
3207: -- raise exception if error
3208: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3209: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3210: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3211: RAISE OKL_API.G_EXCEPTION_ERROR;
3212: END IF;
3213:
3214: END IF;
3215:
3218: x_term_rec := lx_term_rec;
3219: x_err_msg := l_err_msg;
3220:
3221: -- end the transaction
3222: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3223: IF (is_debug_procedure_on) THEN
3224: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
3225: END IF;
3226:
3224: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
3225: END IF;
3226:
3227: EXCEPTION
3228: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3229: IF (is_debug_exception_on) THEN
3230: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3231: END IF;
3232: IF qte_db_vals_csr%ISOPEN THEN
3246: IF get_unbill_strms_csr%ISOPEN THEN
3247: CLOSE get_unbill_strms_csr;
3248: END IF;
3249:
3250: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3251: (
3252: l_api_name,
3253: G_PKG_NAME,
3254: 'OKL_API.G_RET_STS_ERROR',
3250: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3251: (
3252: l_api_name,
3253: G_PKG_NAME,
3254: 'OKL_API.G_RET_STS_ERROR',
3255: x_msg_count,
3256: x_msg_data,
3257: '_PVT'
3258: );
3255: x_msg_count,
3256: x_msg_data,
3257: '_PVT'
3258: );
3259: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3260: IF (is_debug_exception_on) THEN
3261: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3262: END IF;
3263: IF qte_db_vals_csr%ISOPEN THEN
3277: IF get_unbill_strms_csr%ISOPEN THEN
3278: CLOSE get_unbill_strms_csr;
3279: END IF;
3280:
3281: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3282: (
3283: l_api_name,
3284: G_PKG_NAME,
3285: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3281: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3282: (
3283: l_api_name,
3284: G_PKG_NAME,
3285: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3286: x_msg_count,
3287: x_msg_data,
3288: '_PVT'
3289: );
3309: IF get_unbill_strms_csr%ISOPEN THEN
3310: CLOSE get_unbill_strms_csr;
3311: END IF;
3312:
3313: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3314: (
3315: l_api_name,
3316: G_PKG_NAME,
3317: 'OTHERS',
3352: x_term_tbl OUT NOCOPY term_tbl_type,
3353: x_err_msg OUT NOCOPY VARCHAR2,
3354: p_acceptance_source IN VARCHAR2 DEFAULT NULL) AS
3355:
3356: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3357: i NUMBER := 0;
3358: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3359: l_api_name CONSTANT VARCHAR2(30) := 'terminate_quote';
3360: l_api_version CONSTANT NUMBER := 1;
3354: p_acceptance_source IN VARCHAR2 DEFAULT NULL) AS
3355:
3356: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3357: i NUMBER := 0;
3358: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3359: l_api_name CONSTANT VARCHAR2(30) := 'terminate_quote';
3360: l_api_version CONSTANT NUMBER := 1;
3361:
3362: -- rmunjulu 4128965 Get quote details
3385: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_tbl.COUNT: ' || p_term_tbl.COUNT);
3386: END IF;
3387:
3388: --Check API version, initialize message list and create savepoint.
3389: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3390: G_PKG_NAME,
3391: p_init_msg_list,
3392: l_api_version,
3393: p_api_version,
3393: p_api_version,
3394: '_PVT',
3395: x_return_status);
3396:
3397: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3399: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3400: RAISE OKL_API.G_EXCEPTION_ERROR;
3401: END IF;
3394: '_PVT',
3395: x_return_status);
3396:
3397: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3399: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3400: RAISE OKL_API.G_EXCEPTION_ERROR;
3401: END IF;
3402:
3395: x_return_status);
3396:
3397: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3399: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3400: RAISE OKL_API.G_EXCEPTION_ERROR;
3401: END IF;
3402:
3403: IF (p_term_tbl.COUNT > 0) THEN
3396:
3397: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3399: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3400: RAISE OKL_API.G_EXCEPTION_ERROR;
3401: END IF;
3402:
3403: IF (p_term_tbl.COUNT > 0) THEN
3404: i := p_term_tbl.FIRST;
3412: l_accepted_yn_tbl(i) := get_qte_dtls_rec.accepted_yn;
3413:
3414: terminate_quote (
3415: p_api_version => p_api_version,
3416: p_init_msg_list => OKL_API.G_FALSE,
3417: x_return_status => x_return_status,
3418: x_msg_count => x_msg_count,
3419: x_msg_data => x_msg_data,
3420: p_term_rec => p_term_tbl(i),
3424: IF (is_debug_statement_on) THEN
3425: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called terminate_quote , return status: ' || x_return_status);
3426: END IF;
3427:
3428: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3429: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3430: l_overall_status := x_return_status;
3431: END IF;
3432: END IF;
3425: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called terminate_quote , return status: ' || x_return_status);
3426: END IF;
3427:
3428: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3429: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3430: l_overall_status := x_return_status;
3431: END IF;
3432: END IF;
3433:
3439: -- rmunjulu 4128965 If Rollover Quotes then
3440: IF nvl(p_acceptance_source,'*') = 'ROLLOVER' THEN
3441:
3442: -- raise exception if error
3443: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3444: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3445: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3446: RAISE OKL_API.G_EXCEPTION_ERROR;
3447: END IF;
3440: IF nvl(p_acceptance_source,'*') = 'ROLLOVER' THEN
3441:
3442: -- raise exception if error
3443: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3444: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3445: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3446: RAISE OKL_API.G_EXCEPTION_ERROR;
3447: END IF;
3448:
3441:
3442: -- raise exception if error
3443: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3444: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3445: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3446: RAISE OKL_API.G_EXCEPTION_ERROR;
3447: END IF;
3448:
3449: -- rmunjulu 4128965 Loop through the table again to Launch the Termination Workflows, as they were not launched earlier
3442: -- raise exception if error
3443: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3444: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3445: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3446: RAISE OKL_API.G_EXCEPTION_ERROR;
3447: END IF;
3448:
3449: -- rmunjulu 4128965 Loop through the table again to Launch the Termination Workflows, as they were not launched earlier
3450: i := p_term_tbl.FIRST;
3479: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'x_return_status: ' || x_return_status);
3480: END IF;
3481:
3482: -- raise exception if error
3483: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3484: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3485: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3486: RAISE OKL_API.G_EXCEPTION_ERROR;
3487: END IF;
3480: END IF;
3481:
3482: -- raise exception if error
3483: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3484: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3485: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3486: RAISE OKL_API.G_EXCEPTION_ERROR;
3487: END IF;
3488:
3481:
3482: -- raise exception if error
3483: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3484: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3485: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3486: RAISE OKL_API.G_EXCEPTION_ERROR;
3487: END IF;
3488:
3489: -- Set message on stack
3482: -- raise exception if error
3483: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3484: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3485: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3486: RAISE OKL_API.G_EXCEPTION_ERROR;
3487: END IF;
3488:
3489: -- Set message on stack
3490: -- Workflow event EVENT_NAME has been requested.
3487: END IF;
3488:
3489: -- Set message on stack
3490: -- Workflow event EVENT_NAME has been requested.
3491: OKL_API.set_message(
3492: p_app_name => OKL_API.G_APP_NAME,
3493: p_msg_name => 'OKL_AM_WF_EVENT_MSG',
3494: p_token1 => 'EVENT_NAME',
3495: p_token1_value => l_event_name);
3488:
3489: -- Set message on stack
3490: -- Workflow event EVENT_NAME has been requested.
3491: OKL_API.set_message(
3492: p_app_name => OKL_API.G_APP_NAME,
3493: p_msg_name => 'OKL_AM_WF_EVENT_MSG',
3494: p_token1 => 'EVENT_NAME',
3495: p_token1_value => l_event_name);
3496:
3519: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'x_return_status: ' || x_return_status);
3520: END IF;
3521:
3522: -- raise exception if error
3523: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3524: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3525: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3526: RAISE OKL_API.G_EXCEPTION_ERROR;
3527: END IF;
3520: END IF;
3521:
3522: -- raise exception if error
3523: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3524: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3525: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3526: RAISE OKL_API.G_EXCEPTION_ERROR;
3527: END IF;
3528:
3521:
3522: -- raise exception if error
3523: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3524: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3525: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3526: RAISE OKL_API.G_EXCEPTION_ERROR;
3527: END IF;
3528:
3529: -- Set message on stack
3522: -- raise exception if error
3523: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3524: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3525: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3526: RAISE OKL_API.G_EXCEPTION_ERROR;
3527: END IF;
3528:
3529: -- Set message on stack
3530: -- Workflow event EVENT_NAME has been requested.
3527: END IF;
3528:
3529: -- Set message on stack
3530: -- Workflow event EVENT_NAME has been requested.
3531: OKL_API.set_message(
3532: p_app_name => OKL_API.G_APP_NAME,
3533: p_msg_name => 'OKL_AM_WF_EVENT_MSG',
3534: p_token1 => 'EVENT_NAME',
3535: p_token1_value => l_event_name);
3528:
3529: -- Set message on stack
3530: -- Workflow event EVENT_NAME has been requested.
3531: OKL_API.set_message(
3532: p_app_name => OKL_API.G_APP_NAME,
3533: p_msg_name => 'OKL_AM_WF_EVENT_MSG',
3534: p_token1 => 'EVENT_NAME',
3535: p_token1_value => l_event_name);
3536:
3548: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.process_messages , return status: ' || x_return_status);
3549: END IF;
3550:
3551: -- raise exception if error
3552: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3553: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3554: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3555: RAISE OKL_API.G_EXCEPTION_ERROR;
3556: END IF;
3549: END IF;
3550:
3551: -- raise exception if error
3552: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3553: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3554: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3555: RAISE OKL_API.G_EXCEPTION_ERROR;
3556: END IF;
3557: END IF; -- End of If accepted now
3550:
3551: -- raise exception if error
3552: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3553: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3554: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3555: RAISE OKL_API.G_EXCEPTION_ERROR;
3556: END IF;
3557: END IF; -- End of If accepted now
3558:
3551: -- raise exception if error
3552: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3553: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3554: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3555: RAISE OKL_API.G_EXCEPTION_ERROR;
3556: END IF;
3557: END IF; -- End of If accepted now
3558:
3559: EXIT WHEN (i = p_term_tbl.LAST);
3566:
3567: END IF; -- End of Tbl count
3568:
3569: -- end the transaction
3570: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3571: IF (is_debug_procedure_on) THEN
3572: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
3573: END IF;
3574:
3572: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
3573: END IF;
3574:
3575: EXCEPTION
3576: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3577: IF (is_debug_exception_on) THEN
3578: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3579: END IF;
3580: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3576: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3577: IF (is_debug_exception_on) THEN
3578: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3579: END IF;
3580: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3581: (
3582: l_api_name,
3583: G_PKG_NAME,
3584: 'OKL_API.G_RET_STS_ERROR',
3580: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3581: (
3582: l_api_name,
3583: G_PKG_NAME,
3584: 'OKL_API.G_RET_STS_ERROR',
3585: x_msg_count,
3586: x_msg_data,
3587: '_PVT'
3588: );
3585: x_msg_count,
3586: x_msg_data,
3587: '_PVT'
3588: );
3589: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3590: IF (is_debug_exception_on) THEN
3591: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3592: END IF;
3593: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3589: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3590: IF (is_debug_exception_on) THEN
3591: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3592: END IF;
3593: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3594: (
3595: l_api_name,
3596: G_PKG_NAME,
3597: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3593: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3594: (
3595: l_api_name,
3596: G_PKG_NAME,
3597: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3598: x_msg_count,
3599: x_msg_data,
3600: '_PVT'
3601: );
3603: IF (is_debug_exception_on) THEN
3604: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3605: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3606: END IF;
3607: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3608: (
3609: l_api_name,
3610: G_PKG_NAME,
3611: 'OTHERS',
3644: SELECT QTE.qst_code
3645: FROM OKL_TRX_QUOTES_V QTE
3646: WHERE QTE.id = p_qte_id;
3647:
3648: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3649: l_api_name CONSTANT VARCHAR2(30) := 'submit_for_approval';
3650: l_api_version CONSTANT NUMBER := 1;
3651: l_event_name VARCHAR2(2000);
3652:
3719: 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);
3720: END IF;
3721:
3722: --Check API version, initialize message list and create savepoint.
3723: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3724: G_PKG_NAME,
3725: p_init_msg_list,
3726: l_api_version,
3727: p_api_version,
3727: p_api_version,
3728: '_PVT',
3729: x_return_status);
3730:
3731: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3733: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3734: RAISE OKL_API.G_EXCEPTION_ERROR;
3735: END IF;
3728: '_PVT',
3729: x_return_status);
3730:
3731: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3733: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3734: RAISE OKL_API.G_EXCEPTION_ERROR;
3735: END IF;
3736:
3729: x_return_status);
3730:
3731: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3733: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3734: RAISE OKL_API.G_EXCEPTION_ERROR;
3735: END IF;
3736:
3737: -- Check if quote id passed is valid
3730:
3731: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3733: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3734: RAISE OKL_API.G_EXCEPTION_ERROR;
3735: END IF;
3736:
3737: -- Check if quote id passed is valid
3738: IF p_term_rec.id IS NULL OR p_term_rec.id = OKL_API.G_MISS_NUM THEN
3734: RAISE OKL_API.G_EXCEPTION_ERROR;
3735: END IF;
3736:
3737: -- Check if quote id passed is valid
3738: IF p_term_rec.id IS NULL OR p_term_rec.id = OKL_API.G_MISS_NUM THEN
3739:
3740: OKL_API.set_message( p_app_name => OKC_API.G_APP_NAME,
3741: p_msg_name => OKC_API.G_REQUIRED_VALUE,
3742: p_token1 => OKC_API.G_COL_NAME_TOKEN,
3736:
3737: -- Check if quote id passed is valid
3738: IF p_term_rec.id IS NULL OR p_term_rec.id = OKL_API.G_MISS_NUM THEN
3739:
3740: OKL_API.set_message( p_app_name => OKC_API.G_APP_NAME,
3741: p_msg_name => OKC_API.G_REQUIRED_VALUE,
3742: p_token1 => OKC_API.G_COL_NAME_TOKEN,
3743: p_token1_value => 'id');
3744:
3741: p_msg_name => OKC_API.G_REQUIRED_VALUE,
3742: p_token1 => OKC_API.G_COL_NAME_TOKEN,
3743: p_token1_value => 'id');
3744:
3745: RAISE OKL_API.G_EXCEPTION_ERROR;
3746:
3747: END IF;
3748:
3749:
3749:
3750: -- RMUNJULU 23-JAN-03 2762065 Added IF to get the qst_code if not passed
3751: -- If qst code not passed get from DB
3752: IF p_term_rec.qst_code IS NULL
3753: OR p_term_rec.qst_code = OKL_API.G_MISS_CHAR THEN
3754:
3755: -- get qst code from DB
3756: FOR get_quote_status_rec IN get_quote_status_csr(p_term_rec.id) LOOP
3757:
3768: END IF;
3769:
3770: -- Check if quote status passed is valid
3771: -- RMUNJULU 23-JAN-03 2762065 commented out IF since always gets the qst_code
3772: -- IF p_term_rec.qst_code IS NOT NULL AND p_term_rec.qst_code <> OKL_API.G_MISS_CHAR THEN
3773: IF l_qst_code NOT IN ('DRAFTED','REJECTED') THEN
3774:
3775: -- Generate incorrect status message.
3776: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
3772: -- IF p_term_rec.qst_code IS NOT NULL AND p_term_rec.qst_code <> OKL_API.G_MISS_CHAR THEN
3773: IF l_qst_code NOT IN ('DRAFTED','REJECTED') THEN
3774:
3775: -- Generate incorrect status message.
3776: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
3777: p_msg_name => 'OKL_AM_SUBMIT_FOR_APPROVAL');
3778:
3779: RAISE OKL_API.G_EXCEPTION_ERROR;
3780: ELSE
3775: -- Generate incorrect status message.
3776: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
3777: p_msg_name => 'OKL_AM_SUBMIT_FOR_APPROVAL');
3778:
3779: RAISE OKL_API.G_EXCEPTION_ERROR;
3780: ELSE
3781:
3782: IF (is_debug_statement_on) THEN
3783: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_WF.raise_business_event');
3804:
3805: END IF;
3806: -- ELSE
3807:
3808: -- OKL_API.set_message( p_app_name => OKC_API.G_APP_NAME,
3809: -- p_msg_name => OKC_API.G_REQUIRED_VALUE,
3810: -- p_token1 => OKC_API.G_COL_NAME_TOKEN,
3811: -- p_token1_value => 'qst_code');
3812: --
3809: -- p_msg_name => OKC_API.G_REQUIRED_VALUE,
3810: -- p_token1 => OKC_API.G_COL_NAME_TOKEN,
3811: -- p_token1_value => 'qst_code');
3812: --
3813: -- RAISE OKL_API.G_EXCEPTION_ERROR;
3814:
3815: -- END IF;
3816:
3817: -- rmunjulu returning p_term_rec as x_term_rec for bug 4547970
3819:
3820: x_return_status := l_return_status;
3821:
3822: -- end the transaction
3823: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3824: IF (is_debug_procedure_on) THEN
3825: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
3826: END IF;
3827:
3825: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
3826: END IF;
3827:
3828: EXCEPTION
3829: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3830: IF (is_debug_exception_on) THEN
3831: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3832: END IF;
3833: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3829: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3830: IF (is_debug_exception_on) THEN
3831: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3832: END IF;
3833: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3834: (
3835: l_api_name,
3836: G_PKG_NAME,
3837: 'OKL_API.G_RET_STS_ERROR',
3833: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3834: (
3835: l_api_name,
3836: G_PKG_NAME,
3837: 'OKL_API.G_RET_STS_ERROR',
3838: x_msg_count,
3839: x_msg_data,
3840: '_PVT'
3841: );
3838: x_msg_count,
3839: x_msg_data,
3840: '_PVT'
3841: );
3842: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3843: IF (is_debug_exception_on) THEN
3844: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3845: END IF;
3846: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3842: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3843: IF (is_debug_exception_on) THEN
3844: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3845: END IF;
3846: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3847: (
3848: l_api_name,
3849: G_PKG_NAME,
3850: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3846: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3847: (
3848: l_api_name,
3849: G_PKG_NAME,
3850: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3851: x_msg_count,
3852: x_msg_data,
3853: '_PVT'
3854: );
3856: IF (is_debug_exception_on) THEN
3857: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3858: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3859: END IF;
3860: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3861: (
3862: l_api_name,
3863: G_PKG_NAME,
3864: 'OTHERS',
3914: l_qld_tbl qte_ln_dtl_tbl := p_qld_tbl;
3915: l_clev_tbl CLEV_TBL_TYPE;
3916: lv_sno_yn VARCHAR2(3);
3917: lv_select_yn VARCHAR2(3);
3918: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
3919: ln_select_count NUMBER := 0;
3920: ln_fin_line_id OKC_K_LINES_B.ID%TYPE;
3921:
3922: G_QUOTE_ALREADY_ACCP CONSTANT VARCHAR2(200) := 'OKL_AM_QUOTE_ALREADY_ACCP';
3926: -- RMUNJULU 24-JAN-03 2759726 Added variables
3927: ln_chr_id NUMBER;
3928: lx_contract_status VARCHAR2(300);
3929: l_api_version CONSTANT NUMBER := 1;
3930: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
3931: l_msg_data VARCHAR2(2000);
3932:
3933:
3934: -- Get the asset qty, Quote qty and Asset Number
4003: END IF;
4004: END LOOP;
4005: END IF;
4006: -- initialize return status
4007: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4008:
4009: IF l_qld_tbl.COUNT > 0 THEN
4010:
4011: i := l_qld_tbl.FIRST;
4013: -- Looping the table of record to validate
4014: LOOP
4015:
4016: IF (l_qld_tbl(i).tql_id IS NULL OR
4017: l_qld_tbl(i).tql_id = OKL_API.G_MISS_NUM) THEN
4018: x_return_status := OKL_API.G_RET_STS_ERROR;
4019: OKL_API.set_message(p_app_name => G_APP_NAME,
4020: p_msg_name => G_REQUIRED_VALUE,
4021: p_token1 => G_COL_NAME_TOKEN,
4014: LOOP
4015:
4016: IF (l_qld_tbl(i).tql_id IS NULL OR
4017: l_qld_tbl(i).tql_id = OKL_API.G_MISS_NUM) THEN
4018: x_return_status := OKL_API.G_RET_STS_ERROR;
4019: OKL_API.set_message(p_app_name => G_APP_NAME,
4020: p_msg_name => G_REQUIRED_VALUE,
4021: p_token1 => G_COL_NAME_TOKEN,
4022: p_token1_value => 'TQL_ID');
4015:
4016: IF (l_qld_tbl(i).tql_id IS NULL OR
4017: l_qld_tbl(i).tql_id = OKL_API.G_MISS_NUM) THEN
4018: x_return_status := OKL_API.G_RET_STS_ERROR;
4019: OKL_API.set_message(p_app_name => G_APP_NAME,
4020: p_msg_name => G_REQUIRED_VALUE,
4021: p_token1 => G_COL_NAME_TOKEN,
4022: p_token1_value => 'TQL_ID');
4023: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4019: OKL_API.set_message(p_app_name => G_APP_NAME,
4020: p_msg_name => G_REQUIRED_VALUE,
4021: p_token1 => G_COL_NAME_TOKEN,
4022: p_token1_value => 'TQL_ID');
4023: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4024: END IF;
4025:
4026: IF (l_qld_tbl(i).ib_line_id IS NULL OR
4027: l_qld_tbl(i).ib_line_id = OKL_API.G_MISS_NUM) THEN
4023: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4024: END IF;
4025:
4026: IF (l_qld_tbl(i).ib_line_id IS NULL OR
4027: l_qld_tbl(i).ib_line_id = OKL_API.G_MISS_NUM) THEN
4028: x_return_status := OKL_API.G_RET_STS_ERROR;
4029: OKL_API.set_message(p_app_name => G_APP_NAME,
4030: p_msg_name => G_REQUIRED_VALUE,
4031: p_token1 => G_COL_NAME_TOKEN,
4024: END IF;
4025:
4026: IF (l_qld_tbl(i).ib_line_id IS NULL OR
4027: l_qld_tbl(i).ib_line_id = OKL_API.G_MISS_NUM) THEN
4028: x_return_status := OKL_API.G_RET_STS_ERROR;
4029: OKL_API.set_message(p_app_name => G_APP_NAME,
4030: p_msg_name => G_REQUIRED_VALUE,
4031: p_token1 => G_COL_NAME_TOKEN,
4032: p_token1_value => 'IB_LINE_ID');
4025:
4026: IF (l_qld_tbl(i).ib_line_id IS NULL OR
4027: l_qld_tbl(i).ib_line_id = OKL_API.G_MISS_NUM) THEN
4028: x_return_status := OKL_API.G_RET_STS_ERROR;
4029: OKL_API.set_message(p_app_name => G_APP_NAME,
4030: p_msg_name => G_REQUIRED_VALUE,
4031: p_token1 => G_COL_NAME_TOKEN,
4032: p_token1_value => 'IB_LINE_ID');
4033: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4029: OKL_API.set_message(p_app_name => G_APP_NAME,
4030: p_msg_name => G_REQUIRED_VALUE,
4031: p_token1 => G_COL_NAME_TOKEN,
4032: p_token1_value => 'IB_LINE_ID');
4033: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4034: END IF;
4035:
4036: IF (l_qld_tbl(i).fin_line_id IS NULL OR
4037: l_qld_tbl(i).fin_line_id = OKL_API.G_MISS_NUM) THEN
4033: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4034: END IF;
4035:
4036: IF (l_qld_tbl(i).fin_line_id IS NULL OR
4037: l_qld_tbl(i).fin_line_id = OKL_API.G_MISS_NUM) THEN
4038: x_return_status := OKL_API.G_RET_STS_ERROR;
4039: OKL_API.set_message(p_app_name => G_APP_NAME,
4040: p_msg_name => G_REQUIRED_VALUE,
4041: p_token1 => G_COL_NAME_TOKEN,
4034: END IF;
4035:
4036: IF (l_qld_tbl(i).fin_line_id IS NULL OR
4037: l_qld_tbl(i).fin_line_id = OKL_API.G_MISS_NUM) THEN
4038: x_return_status := OKL_API.G_RET_STS_ERROR;
4039: OKL_API.set_message(p_app_name => G_APP_NAME,
4040: p_msg_name => G_REQUIRED_VALUE,
4041: p_token1 => G_COL_NAME_TOKEN,
4042: p_token1_value => 'FIN_LINE_ID');
4035:
4036: IF (l_qld_tbl(i).fin_line_id IS NULL OR
4037: l_qld_tbl(i).fin_line_id = OKL_API.G_MISS_NUM) THEN
4038: x_return_status := OKL_API.G_RET_STS_ERROR;
4039: OKL_API.set_message(p_app_name => G_APP_NAME,
4040: p_msg_name => G_REQUIRED_VALUE,
4041: p_token1 => G_COL_NAME_TOKEN,
4042: p_token1_value => 'FIN_LINE_ID');
4043: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4039: OKL_API.set_message(p_app_name => G_APP_NAME,
4040: p_msg_name => G_REQUIRED_VALUE,
4041: p_token1 => G_COL_NAME_TOKEN,
4042: p_token1_value => 'FIN_LINE_ID');
4043: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4044: END IF;
4045:
4046: IF (l_qld_tbl(i).dnz_chr_id IS NULL OR
4047: l_qld_tbl(i).dnz_chr_id = OKL_API.G_MISS_NUM) THEN
4043: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4044: END IF;
4045:
4046: IF (l_qld_tbl(i).dnz_chr_id IS NULL OR
4047: l_qld_tbl(i).dnz_chr_id = OKL_API.G_MISS_NUM) THEN
4048: x_return_status := OKL_API.G_RET_STS_ERROR;
4049: OKL_API.set_message(p_app_name => G_APP_NAME,
4050: p_msg_name => G_REQUIRED_VALUE,
4051: p_token1 => G_COL_NAME_TOKEN,
4044: END IF;
4045:
4046: IF (l_qld_tbl(i).dnz_chr_id IS NULL OR
4047: l_qld_tbl(i).dnz_chr_id = OKL_API.G_MISS_NUM) THEN
4048: x_return_status := OKL_API.G_RET_STS_ERROR;
4049: OKL_API.set_message(p_app_name => G_APP_NAME,
4050: p_msg_name => G_REQUIRED_VALUE,
4051: p_token1 => G_COL_NAME_TOKEN,
4052: p_token1_value => 'DNZ_CHR_ID');
4045:
4046: IF (l_qld_tbl(i).dnz_chr_id IS NULL OR
4047: l_qld_tbl(i).dnz_chr_id = OKL_API.G_MISS_NUM) THEN
4048: x_return_status := OKL_API.G_RET_STS_ERROR;
4049: OKL_API.set_message(p_app_name => G_APP_NAME,
4050: p_msg_name => G_REQUIRED_VALUE,
4051: p_token1 => G_COL_NAME_TOKEN,
4052: p_token1_value => 'DNZ_CHR_ID');
4053: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4049: OKL_API.set_message(p_app_name => G_APP_NAME,
4050: p_msg_name => G_REQUIRED_VALUE,
4051: p_token1 => G_COL_NAME_TOKEN,
4052: p_token1_value => 'DNZ_CHR_ID');
4053: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4054: END IF;
4055:
4056: IF (l_qld_tbl(i).instance_quantity IS NULL OR
4057: l_qld_tbl(i).instance_quantity = OKL_API.G_MISS_NUM) THEN
4053: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4054: END IF;
4055:
4056: IF (l_qld_tbl(i).instance_quantity IS NULL OR
4057: l_qld_tbl(i).instance_quantity = OKL_API.G_MISS_NUM) THEN
4058: x_return_status := OKL_API.G_RET_STS_ERROR;
4059: OKL_API.set_message(p_app_name => G_APP_NAME,
4060: p_msg_name => G_REQUIRED_VALUE,
4061: p_token1 => G_COL_NAME_TOKEN,
4054: END IF;
4055:
4056: IF (l_qld_tbl(i).instance_quantity IS NULL OR
4057: l_qld_tbl(i).instance_quantity = OKL_API.G_MISS_NUM) THEN
4058: x_return_status := OKL_API.G_RET_STS_ERROR;
4059: OKL_API.set_message(p_app_name => G_APP_NAME,
4060: p_msg_name => G_REQUIRED_VALUE,
4061: p_token1 => G_COL_NAME_TOKEN,
4062: p_token1_value => 'INSTANCE_QUANTITY');
4055:
4056: IF (l_qld_tbl(i).instance_quantity IS NULL OR
4057: l_qld_tbl(i).instance_quantity = OKL_API.G_MISS_NUM) THEN
4058: x_return_status := OKL_API.G_RET_STS_ERROR;
4059: OKL_API.set_message(p_app_name => G_APP_NAME,
4060: p_msg_name => G_REQUIRED_VALUE,
4061: p_token1 => G_COL_NAME_TOKEN,
4062: p_token1_value => 'INSTANCE_QUANTITY');
4063: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4059: OKL_API.set_message(p_app_name => G_APP_NAME,
4060: p_msg_name => G_REQUIRED_VALUE,
4061: p_token1 => G_COL_NAME_TOKEN,
4062: p_token1_value => 'INSTANCE_QUANTITY');
4063: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4064: END IF;
4065:
4066: -- Validating QTE ID
4067: OPEN validate_qte_id_csr(p_qte_id => l_qld_tbl(i).qte_id);
4071: END IF;
4072: CLOSE validate_qte_id_csr;
4073:
4074: IF (ln_quote_number IS NULL OR
4075: ln_quote_number = OKL_API.G_MISS_NUM) THEN
4076: OKL_API.set_message(p_app_name => G_APP_NAME,
4077: p_msg_name => G_INVALID_VALUE,
4078: p_token1 => G_COL_NAME_TOKEN,
4079: p_token1_value => 'QTE_ID');
4072: CLOSE validate_qte_id_csr;
4073:
4074: IF (ln_quote_number IS NULL OR
4075: ln_quote_number = OKL_API.G_MISS_NUM) THEN
4076: OKL_API.set_message(p_app_name => G_APP_NAME,
4077: p_msg_name => G_INVALID_VALUE,
4078: p_token1 => G_COL_NAME_TOKEN,
4079: p_token1_value => 'QTE_ID');
4080: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4077: p_msg_name => G_INVALID_VALUE,
4078: p_token1 => G_COL_NAME_TOKEN,
4079: p_token1_value => 'QTE_ID');
4080: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4081: x_return_status := OKL_API.G_RET_STS_ERROR;
4082: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4083: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4084: END IF;
4085:
4079: p_token1_value => 'QTE_ID');
4080: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4081: x_return_status := OKL_API.G_RET_STS_ERROR;
4082: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4083: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4084: END IF;
4085:
4086: -- RMUNJULU 24-JAN-03 2759726 commented out this code
4087: -- IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4093: -- Validating QST_CODE
4094: IF l_qld_tbl(i).qst_code IN ('ACCEPTED','COMPLETE') THEN
4095:
4096: -- Quote QUOTE_NUMBER is already accepted.
4097: OKL_API.set_message(p_app_name => G_APP_NAME,
4098: p_msg_name => G_QUOTE_ALREADY_ACCP,
4099: p_token1 => 'QUOTE_NUMBER',
4100: p_token1_value => TO_CHAR(ln_quote_number));
4101: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4098: p_msg_name => G_QUOTE_ALREADY_ACCP,
4099: p_token1 => 'QUOTE_NUMBER',
4100: p_token1_value => TO_CHAR(ln_quote_number));
4101: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4102: x_return_status := OKL_API.G_RET_STS_ERROR;
4103: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4104: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4105: END IF;
4106:
4100: p_token1_value => TO_CHAR(ln_quote_number));
4101: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4102: x_return_status := OKL_API.G_RET_STS_ERROR;
4103: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4104: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4105: END IF;
4106:
4107: -- RMUNJULU 24-JAN-03 2759726 Check if Quote is already canceled.
4108: IF l_qld_tbl(i).qst_code = 'CANCELLED' THEN
4107: -- RMUNJULU 24-JAN-03 2759726 Check if Quote is already canceled.
4108: IF l_qld_tbl(i).qst_code = 'CANCELLED' THEN
4109:
4110: -- Quote QUOTE_NUMBER is already canceled.
4111: OKL_API.set_message(p_app_name => G_APP_NAME,
4112: p_msg_name => 'OKL_AM_QUOTE_ALREADY_CANCELED',
4113: p_token1 => 'QUOTE_NUMBER',
4114: p_token1_value => TO_CHAR(ln_quote_number));
4115:
4112: p_msg_name => 'OKL_AM_QUOTE_ALREADY_CANCELED',
4113: p_token1 => 'QUOTE_NUMBER',
4114: p_token1_value => TO_CHAR(ln_quote_number));
4115:
4116: x_return_status := OKL_API.G_RET_STS_ERROR;
4117:
4118: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4119:
4120: END IF;
4114: p_token1_value => TO_CHAR(ln_quote_number));
4115:
4116: x_return_status := OKL_API.G_RET_STS_ERROR;
4117:
4118: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4119:
4120: END IF;
4121:
4122:
4138: END IF;
4139: CLOSE get_tql_csr;
4140:
4141: IF (lv_asset_number IS NOT NULL AND --RMUNJULU 24-JAN-03 2759726 Changed OR to AND
4142: lv_asset_number <> OKL_API.G_MISS_CHAR) THEN
4143:
4144: IF (is_debug_statement_on) THEN
4145: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract');
4146: END IF;
4146: END IF;
4147: -- RMUNJULU 24-JAN-03 2759726 Added code to check if contract valid
4148: OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract(
4149: p_api_version => l_api_version,
4150: p_init_msg_list => OKL_API.G_FALSE,
4151: x_return_status => x_return_status,
4152: x_msg_count => l_msg_count,
4153: x_msg_data => l_msg_data,
4154: p_contract_id => ln_chr_id,
4159: END IF;
4160:
4161:
4162: -- RMUNJULU 24-JAN-03 2759726 Added code to exit out of loop
4163: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR
4164: OR x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4165:
4166:
4167: IF ln_qte_qty IS NOT NULL AND --RMUNJULU 24-JAN-03 2759726 Changed OR to AND
4160:
4161:
4162: -- RMUNJULU 24-JAN-03 2759726 Added code to exit out of loop
4163: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR
4164: OR x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4165:
4166:
4167: IF ln_qte_qty IS NOT NULL AND --RMUNJULU 24-JAN-03 2759726 Changed OR to AND
4168: ln_asset_qty IS NOT NULL THEN
4169:
4170: IF ln_qte_qty > ln_asset_qty THEN
4171:
4172: -- Asset ASSET_NUMBER quantity is less than the specified quote quantity.
4173: OKL_API.set_message(p_app_name => G_APP_NAME,
4174: p_msg_name => G_INVALID_QUOTE_QTY,
4175: p_token1 => 'ASSET_NUMBER',
4176: p_token1_value => lv_asset_number);
4177:
4175: p_token1 => 'ASSET_NUMBER',
4176: p_token1_value => lv_asset_number);
4177:
4178: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4179: x_return_status := OKL_API.G_RET_STS_ERROR;
4180:
4181: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4182: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4183:
4178: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4179: x_return_status := OKL_API.G_RET_STS_ERROR;
4180:
4181: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4182: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4183:
4184: END IF;
4185:
4186: ELSE
4184: END IF;
4185:
4186: ELSE
4187:
4188: OKL_API.set_message(p_app_name => G_APP_NAME,
4189: p_msg_name => G_INVALID_VALUE, -- RMUNJULU 24-JAN-03 2759726 Changed
4190: p_token1 => G_COL_NAME_TOKEN,
4191: p_token1_value => 'TQL_ID');
4192:
4190: p_token1 => G_COL_NAME_TOKEN,
4191: p_token1_value => 'TQL_ID');
4192:
4193: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4194: x_return_status := OKL_API.G_RET_STS_ERROR;
4195:
4196: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4197: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4198:
4193: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4194: x_return_status := OKL_API.G_RET_STS_ERROR;
4195:
4196: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4197: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4198:
4199: END IF;
4200: ELSE
4201: OKL_API.set_message(p_app_name => G_APP_NAME,
4197: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4198:
4199: END IF;
4200: ELSE
4201: OKL_API.set_message(p_app_name => G_APP_NAME,
4202: p_msg_name => G_INVALID_VALUE,
4203: p_token1 => G_COL_NAME_TOKEN,
4204: p_token1_value => 'TQL_ID');
4205: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4202: p_msg_name => G_INVALID_VALUE,
4203: p_token1 => G_COL_NAME_TOKEN,
4204: p_token1_value => 'TQL_ID');
4205: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4206: x_return_status := OKL_API.G_RET_STS_ERROR;
4207: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4208: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4209: END IF;
4210:
4204: p_token1_value => 'TQL_ID');
4205: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4206: x_return_status := OKL_API.G_RET_STS_ERROR;
4207: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4208: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4209: END IF;
4210:
4211: -- RMUNJULU 24-JAN-03 2759726 commented out this code
4212: -- IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4216: -- END IF;
4217:
4218: -- Validating SELECT YN
4219: IF upper(nvl(l_qld_tbl(i).select_yn,'N')) NOT in ('Y','N') THEN
4220: OKL_API.set_message(p_app_name => G_APP_NAME,
4221: p_msg_name => G_INVALID_VALUE,
4222: p_token1 => G_COL_NAME_TOKEN,
4223: p_token1_value => 'SELECT_YN');
4224: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4221: p_msg_name => G_INVALID_VALUE,
4222: p_token1 => G_COL_NAME_TOKEN,
4223: p_token1_value => 'SELECT_YN');
4224: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4225: x_return_status := OKL_API.G_RET_STS_ERROR;
4226: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4227: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4228: ELSE
4229: l_qld_tbl(i).select_yn := upper(nvl(l_qld_tbl(i).select_yn,'N'));
4223: p_token1_value => 'SELECT_YN');
4224: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4225: x_return_status := OKL_API.G_RET_STS_ERROR;
4226: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4227: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4228: ELSE
4229: l_qld_tbl(i).select_yn := upper(nvl(l_qld_tbl(i).select_yn,'N'));
4230: IF l_qld_tbl(i).select_yn = 'Y' THEN
4231: ln_select_count := ln_select_count + 1;
4247: END IF;
4248: CLOSE validate_chr_id_csr;
4249:
4250: IF ln_dummy2 = 0 THEN
4251: OKL_API.set_message(p_app_name => G_APP_NAME,
4252: p_msg_name => G_INVALID_VALUE,
4253: p_token1 => G_COL_NAME_TOKEN,
4254: p_token1_value => 'DNZ_CHR_ID');
4255: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4252: p_msg_name => G_INVALID_VALUE,
4253: p_token1 => G_COL_NAME_TOKEN,
4254: p_token1_value => 'DNZ_CHR_ID');
4255: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4256: x_return_status := OKL_API.G_RET_STS_ERROR;
4257: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4258: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4259: END IF;
4260:
4254: p_token1_value => 'DNZ_CHR_ID');
4255: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4256: x_return_status := OKL_API.G_RET_STS_ERROR;
4257: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4258: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4259: END IF;
4260:
4261: -- RMUNJULU 24-JAN-03 2759726 commented out this code
4262: -- IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4274: END IF;
4275: CLOSE validate_Ib_line_csr;
4276:
4277: IF ln_dummy1 = 0 THEN
4278: OKL_API.set_message(p_app_name => G_APP_NAME,
4279: p_msg_name => G_INVALID_VALUE,
4280: p_token1 => G_COL_NAME_TOKEN,
4281: p_token1_value => 'IB_LINE_ID');
4282: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4279: p_msg_name => G_INVALID_VALUE,
4280: p_token1 => G_COL_NAME_TOKEN,
4281: p_token1_value => 'IB_LINE_ID');
4282: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4283: x_return_status := OKL_API.G_RET_STS_ERROR;
4284: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4285: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4286: END IF;
4287:
4281: p_token1_value => 'IB_LINE_ID');
4282: -- RMUNJULU 24-JAN-03 2759726 Changed l_return_status to x_return_status
4283: x_return_status := OKL_API.G_RET_STS_ERROR;
4284: -- RMUNJULU 24-JAN-03 2759726 Added exit when
4285: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4286: END IF;
4287:
4288: -- RMUNJULU 24-JAN-03 2759726 commented out this code
4289: -- IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4295: -- We will validate the Financial Asset Line out of the loop, since
4296: -- We need to check if the count of the quote qty equal to count of select_yn = 'Y'
4297: ln_fin_line_id := l_qld_tbl(i).fin_line_id;
4298:
4299: IF x_return_status = OKL_API.G_RET_STS_ERROR OR
4300: l_return_status = OKL_API.G_RET_STS_ERROR THEN
4301: x_return_status := OKL_API.G_RET_STS_ERROR;
4302: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4303: ELSIF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR
4296: -- We need to check if the count of the quote qty equal to count of select_yn = 'Y'
4297: ln_fin_line_id := l_qld_tbl(i).fin_line_id;
4298:
4299: IF x_return_status = OKL_API.G_RET_STS_ERROR OR
4300: l_return_status = OKL_API.G_RET_STS_ERROR THEN
4301: x_return_status := OKL_API.G_RET_STS_ERROR;
4302: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4303: ELSIF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR
4304: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4297: ln_fin_line_id := l_qld_tbl(i).fin_line_id;
4298:
4299: IF x_return_status = OKL_API.G_RET_STS_ERROR OR
4300: l_return_status = OKL_API.G_RET_STS_ERROR THEN
4301: x_return_status := OKL_API.G_RET_STS_ERROR;
4302: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4303: ELSIF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR
4304: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4305: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4298:
4299: IF x_return_status = OKL_API.G_RET_STS_ERROR OR
4300: l_return_status = OKL_API.G_RET_STS_ERROR THEN
4301: x_return_status := OKL_API.G_RET_STS_ERROR;
4302: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4303: ELSIF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR
4304: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4305: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4306: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
4312:
4313: END LOOP;
4314:
4315: -- RMUNJULU 24-JAN-03 2759726 Changed = to <> and 'E' to 'S'
4316: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4317: RAISE G_EXCEPTION_HALT_VALIDATION;
4318: END IF;
4319:
4320: -- Validate Fin Line id by checking the asset is Serialized
4330: RAISE G_EXCEPTION_HALT_VALIDATION;
4331: END IF;
4332:
4333:
4334: IF lv_sno_yn = OKL_API.G_TRUE THEN
4335:
4336: -- Check if selected assets count not the same as quote quantity
4337: -- RMUNJULU 09-JAN-03 2743604 Added additional condition to check if
4338: -- asset qty not the same as quote qty
4341: --AND ln_asset_qty <> ln_qte_qty THEN
4342:
4343: -- Asset ASSET_NUMBER is serialized. Quote quantity QUOTE_QUANTITY
4344: -- does not match the number of selected asset units ASSET_UNITS.
4345: OKL_API.set_message(p_app_name => G_APP_NAME,
4346: p_msg_name => G_QTE_QTY_SRL_CNT_ERR,
4347: p_token1 => 'ASSET_NUMBER',
4348: p_token1_value => lv_asset_number,
4349: p_token2 => 'QUOTE_QUANTITY',
4361:
4362: ELSE -- table has no records
4363:
4364: -- RMUNJULU 24-JAN-03 2759726 Added set msg
4365: OKL_API.set_message(p_app_name => G_APP_NAME,
4366: p_msg_name => G_INVALID_VALUE,
4367: p_token1 => G_COL_NAME_TOKEN,
4368: p_token1_value => 'p_qld_tbl');
4369:
4366: p_msg_name => G_INVALID_VALUE,
4367: p_token1 => G_COL_NAME_TOKEN,
4368: p_token1_value => 'p_qld_tbl');
4369:
4370: x_return_status := OKL_API.G_RET_STS_ERROR;
4371:
4372: END IF;
4373: IF (is_debug_procedure_on) THEN
4374: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
4391: END IF;
4392: IF validate_qte_id_csr%ISOPEN THEN
4393: CLOSE validate_qte_id_csr;
4394: END IF;
4395: x_return_status := OKL_API.G_RET_STS_ERROR;
4396:
4397: WHEN OTHERS THEN
4398: IF (is_debug_exception_on) THEN
4399: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4411: IF validate_qte_id_csr%ISOPEN THEN
4412: CLOSE validate_qte_id_csr;
4413: END IF;
4414: -- store SQL error message on message stack
4415: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
4416: p_msg_name => G_UNEXPECTED_ERROR,
4417: p_token1 => G_SQLCODE_TOKEN,
4418: p_token1_value => SQLCODE,
4419: p_token2 => G_SQLERRM_TOKEN,
4418: p_token1_value => SQLCODE,
4419: p_token2 => G_SQLERRM_TOKEN,
4420: p_token2_value => SQLERRM);
4421: -- notify caller of an error as UNEXPETED error
4422: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4423:
4424: END validate_qte_ln_dtls;
4425: --------------------------------------------------------------------------------------------------------
4426:
4474: END LOOP;
4475: END IF;
4476: -- Call start_activity to create savepoint, check compatibility
4477: -- and initialize message list
4478: x_return_status := OKL_API.START_ACTIVITY (
4479: l_api_name
4480: ,p_init_msg_list
4481: ,'_PVT'
4482: ,x_return_status);
4480: ,p_init_msg_list
4481: ,'_PVT'
4482: ,x_return_status);
4483: -- Check if activity started successfully
4484: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4487: RAISE OKL_API.G_EXCEPTION_ERROR;
4488: END IF;
4481: ,'_PVT'
4482: ,x_return_status);
4483: -- Check if activity started successfully
4484: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4487: RAISE OKL_API.G_EXCEPTION_ERROR;
4488: END IF;
4489: -- Validate the table of record
4482: ,x_return_status);
4483: -- Check if activity started successfully
4484: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4487: RAISE OKL_API.G_EXCEPTION_ERROR;
4488: END IF;
4489: -- Validate the table of record
4490: validate_qte_ln_dtls(p_qld_tbl => l_qld_tbl,
4483: -- Check if activity started successfully
4484: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4487: RAISE OKL_API.G_EXCEPTION_ERROR;
4488: END IF;
4489: -- Validate the table of record
4490: validate_qte_ln_dtls(p_qld_tbl => l_qld_tbl,
4491: x_return_status => x_return_status);
4491: x_return_status => x_return_status);
4492: IF (is_debug_statement_on) THEN
4493: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called validate_qte_ln_dtls , x_return_status : ' || x_return_status);
4494: END IF;
4495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4498: RAISE OKL_API.G_EXCEPTION_ERROR;
4499: END IF;
4492: IF (is_debug_statement_on) THEN
4493: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called validate_qte_ln_dtls , x_return_status : ' || x_return_status);
4494: END IF;
4495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4498: RAISE OKL_API.G_EXCEPTION_ERROR;
4499: END IF;
4500: IF l_qld_tbl.COUNT > 0 THEN
4493: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called validate_qte_ln_dtls , x_return_status : ' || x_return_status);
4494: END IF;
4495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4498: RAISE OKL_API.G_EXCEPTION_ERROR;
4499: END IF;
4500: IF l_qld_tbl.COUNT > 0 THEN
4501: i := l_qld_tbl.FIRST;
4494: END IF;
4495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4498: RAISE OKL_API.G_EXCEPTION_ERROR;
4499: END IF;
4500: IF l_qld_tbl.COUNT > 0 THEN
4501: i := l_qld_tbl.FIRST;
4502: -- looping the table of record to decide weather to
4503: -- Create or Delete OKL_TXD_QUOTE_LINE_DTLS record
4504: LOOP
4505: IF l_qld_tbl(i).select_yn = 'Y' AND
4506: (l_qld_tbl(i).tqd_id IS NULL OR
4507: l_qld_tbl(i).tqd_id = OKL_API.G_MISS_NUM) THEN
4508: l_tqdv_rec.number_of_units := l_qld_tbl(i).instance_quantity;
4509: l_tqdv_rec.kle_id := l_qld_tbl(i).ib_line_id;
4510: l_tqdv_rec.tql_id := l_qld_tbl(i).tql_id;
4511: IF (is_debug_statement_on) THEN
4521: x_tqdv_rec => lx_tqdv_rec);
4522: IF (is_debug_statement_on) THEN
4523: 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);
4524: END IF;
4525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4526: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4527: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4528: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4529: END IF;
4522: IF (is_debug_statement_on) THEN
4523: 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);
4524: END IF;
4525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4526: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4527: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4528: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4529: END IF;
4530: l_qld_tbl(i).tqd_id := lx_tqdv_rec.id;
4523: 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);
4524: END IF;
4525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4526: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4527: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4528: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4529: END IF;
4530: l_qld_tbl(i).tqd_id := lx_tqdv_rec.id;
4531: ELSIF l_qld_tbl(i).select_yn = 'N' AND
4524: END IF;
4525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4526: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4527: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4528: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4529: END IF;
4530: l_qld_tbl(i).tqd_id := lx_tqdv_rec.id;
4531: ELSIF l_qld_tbl(i).select_yn = 'N' AND
4532: (l_qld_tbl(i).tqd_id IS NOT NULL OR
4529: END IF;
4530: l_qld_tbl(i).tqd_id := lx_tqdv_rec.id;
4531: ELSIF l_qld_tbl(i).select_yn = 'N' AND
4532: (l_qld_tbl(i).tqd_id IS NOT NULL OR
4533: l_qld_tbl(i).tqd_id <> OKL_API.G_MISS_NUM) THEN
4534: l_tqdv_rec.id := l_qld_tbl(i).tqd_id;
4535: IF (is_debug_statement_on) THEN
4536: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_TXD_QTE_LN_DTLS_PUB.delete_txd_qte_ln_dtls');
4537: END IF;
4544: p_tqdv_rec => l_tqdv_rec);
4545: IF (is_debug_statement_on) THEN
4546: 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);
4547: END IF;
4548: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4549: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4550: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4551: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4552: END IF;
4545: IF (is_debug_statement_on) THEN
4546: 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);
4547: END IF;
4548: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4549: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4550: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4551: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4552: END IF;
4553: l_qld_tbl(i).tqd_id := null;
4546: 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);
4547: END IF;
4548: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4549: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4550: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4551: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4552: END IF;
4553: l_qld_tbl(i).tqd_id := null;
4554: END IF;
4547: END IF;
4548: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4549: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4550: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4551: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4552: END IF;
4553: l_qld_tbl(i).tqd_id := null;
4554: END IF;
4555: EXIT WHEN (i = l_qld_tbl.LAST);
4554: END IF;
4555: EXIT WHEN (i = l_qld_tbl.LAST);
4556: i := l_qld_tbl.NEXT(i);
4557: END LOOP;
4558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4560: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4561: RAISE OKL_API.G_EXCEPTION_ERROR;
4562: END IF;
4555: EXIT WHEN (i = l_qld_tbl.LAST);
4556: i := l_qld_tbl.NEXT(i);
4557: END LOOP;
4558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4560: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4561: RAISE OKL_API.G_EXCEPTION_ERROR;
4562: END IF;
4563: p_qld_tbl := l_qld_tbl;
4556: i := l_qld_tbl.NEXT(i);
4557: END LOOP;
4558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4560: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4561: RAISE OKL_API.G_EXCEPTION_ERROR;
4562: END IF;
4563: p_qld_tbl := l_qld_tbl;
4564: END IF;
4557: END LOOP;
4558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4560: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4561: RAISE OKL_API.G_EXCEPTION_ERROR;
4562: END IF;
4563: p_qld_tbl := l_qld_tbl;
4564: END IF;
4565: OKL_API.END_ACTIVITY (x_msg_count,
4561: RAISE OKL_API.G_EXCEPTION_ERROR;
4562: END IF;
4563: p_qld_tbl := l_qld_tbl;
4564: END IF;
4565: OKL_API.END_ACTIVITY (x_msg_count,
4566: x_msg_data );
4567: IF (is_debug_procedure_on) THEN
4568: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
4569: END IF;
4568: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
4569: END IF;
4570:
4571: EXCEPTION
4572: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4573: IF (is_debug_exception_on) THEN
4574: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4575: END IF;
4576: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4572: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4573: IF (is_debug_exception_on) THEN
4574: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4575: END IF;
4576: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4577: l_api_name,
4578: G_PKG_NAME,
4579: 'OKL_API.G_RET_STS_ERROR',
4580: x_msg_count,
4575: END IF;
4576: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4577: l_api_name,
4578: G_PKG_NAME,
4579: 'OKL_API.G_RET_STS_ERROR',
4580: x_msg_count,
4581: x_msg_data,
4582: '_PVT');
4583: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4579: 'OKL_API.G_RET_STS_ERROR',
4580: x_msg_count,
4581: x_msg_data,
4582: '_PVT');
4583: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4584: IF (is_debug_exception_on) THEN
4585: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
4586: END IF;
4587: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4583: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4584: IF (is_debug_exception_on) THEN
4585: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
4586: END IF;
4587: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4588: l_api_name,
4589: G_PKG_NAME,
4590: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4591: x_msg_count,
4586: END IF;
4587: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4588: l_api_name,
4589: G_PKG_NAME,
4590: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4591: x_msg_count,
4592: x_msg_data,
4593: '_PVT');
4594: WHEN OTHERS THEN
4595: IF (is_debug_exception_on) THEN
4596: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4597: || sqlcode || ' , SQLERRM : ' || sqlerrm);
4598: END IF;
4599: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4600: l_api_name,
4601: G_PKG_NAME,
4602: 'OTHERS',
4603: x_msg_count,
4686:
4687:
4688: -- If no qte_id then error
4689: IF p_tqlv_rec.qte_id IS NULL
4690: OR p_tqlv_rec.qte_id = OKL_API.G_MISS_NUM THEN
4691:
4692: -- Required value for kle_id
4693: OKL_API.set_message(
4694: p_app_name => 'OKL', -- RMUNJULU 30-DEC-02 2726739
4689: IF p_tqlv_rec.qte_id IS NULL
4690: OR p_tqlv_rec.qte_id = OKL_API.G_MISS_NUM THEN
4691:
4692: -- Required value for kle_id
4693: OKL_API.set_message(
4694: p_app_name => 'OKL', -- RMUNJULU 30-DEC-02 2726739
4695: p_msg_name => G_REQUIRED_VALUE,
4696: p_token1 => G_COL_NAME_TOKEN,
4697: p_token1_value => 'qte_id');
4695: p_msg_name => G_REQUIRED_VALUE,
4696: p_token1 => G_COL_NAME_TOKEN,
4697: p_token1_value => 'qte_id');
4698:
4699: RAISE OKL_API.G_EXCEPTION_ERROR;
4700:
4701: END IF;
4702:
4703:
4702:
4703:
4704: -- If kle_id is passed
4705: IF p_tqlv_rec.kle_id IS NOT NULL
4706: AND p_tqlv_rec.kle_id <> OKL_API.G_MISS_NUM THEN
4707:
4708: -- Check that kle_id passed is one of the assets quoted
4709: FOR get_qte_lines_rec IN get_qte_lines_csr(p_tqlv_rec.qte_id) LOOP
4710:
4718: -- If the asset is not a quoted asset then error
4719: IF l_kle_id_found <> 'Y' THEN
4720:
4721: -- Invalid value for kle_id
4722: OKL_API.set_message(
4723: p_app_name => 'OKL', -- RMUNJULU 30-DEC-02 2726739
4724: p_msg_name => G_INVALID_VALUE,
4725: p_token1 => G_COL_NAME_TOKEN,
4726: p_token1_value => 'kle_id');
4724: p_msg_name => G_INVALID_VALUE,
4725: p_token1 => G_COL_NAME_TOKEN,
4726: p_token1_value => 'kle_id');
4727:
4728: RAISE OKL_API.G_EXCEPTION_ERROR;
4729:
4730: END IF;
4731: END IF;
4732:
4733:
4734: -- RMUNJULU 05-FEB-03 2788257 Added code to check if type and amount are null
4735: -- Check if qlt_code is NULL
4736: IF p_tqlv_rec.qlt_code IS NULL
4737: OR p_tqlv_rec.qlt_code = OKL_API.G_MISS_CHAR THEN
4738:
4739: -- You must enter a value for PROMPT
4740: OKL_API.set_message(
4741: p_app_name => OKL_API.G_APP_NAME,
4736: IF p_tqlv_rec.qlt_code IS NULL
4737: OR p_tqlv_rec.qlt_code = OKL_API.G_MISS_CHAR THEN
4738:
4739: -- You must enter a value for PROMPT
4740: OKL_API.set_message(
4741: p_app_name => OKL_API.G_APP_NAME,
4742: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
4743: p_token1 => 'PROMPT',
4744: p_token1_value => OKL_AM_UTIL_PVT.get_ak_attribute('OKL_TYPE'));
4737: OR p_tqlv_rec.qlt_code = OKL_API.G_MISS_CHAR THEN
4738:
4739: -- You must enter a value for PROMPT
4740: OKL_API.set_message(
4741: p_app_name => OKL_API.G_APP_NAME,
4742: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
4743: p_token1 => 'PROMPT',
4744: p_token1_value => OKL_AM_UTIL_PVT.get_ak_attribute('OKL_TYPE'));
4745:
4742: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
4743: p_token1 => 'PROMPT',
4744: p_token1_value => OKL_AM_UTIL_PVT.get_ak_attribute('OKL_TYPE'));
4745:
4746: RAISE OKL_API.G_EXCEPTION_ERROR;
4747:
4748: END IF;
4749:
4750: -- Check if amount is NULL
4748: END IF;
4749:
4750: -- Check if amount is NULL
4751: IF p_tqlv_rec.amount IS NULL
4752: OR p_tqlv_rec.amount = OKL_API.G_MISS_NUM THEN
4753:
4754: -- You must enter a value for PROMPT
4755: OKL_API.set_message(
4756: p_app_name => OKL_API.G_APP_NAME,
4751: IF p_tqlv_rec.amount IS NULL
4752: OR p_tqlv_rec.amount = OKL_API.G_MISS_NUM THEN
4753:
4754: -- You must enter a value for PROMPT
4755: OKL_API.set_message(
4756: p_app_name => OKL_API.G_APP_NAME,
4757: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
4758: p_token1 => 'PROMPT',
4759: p_token1_value => OKL_AM_UTIL_PVT.get_ak_attribute('OKL_AMOUNT'));
4752: OR p_tqlv_rec.amount = OKL_API.G_MISS_NUM THEN
4753:
4754: -- You must enter a value for PROMPT
4755: OKL_API.set_message(
4756: p_app_name => OKL_API.G_APP_NAME,
4757: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
4758: p_token1 => 'PROMPT',
4759: p_token1_value => OKL_AM_UTIL_PVT.get_ak_attribute('OKL_AMOUNT'));
4760:
4757: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
4758: p_token1 => 'PROMPT',
4759: p_token1_value => OKL_AM_UTIL_PVT.get_ak_attribute('OKL_AMOUNT'));
4760:
4761: RAISE OKL_API.G_EXCEPTION_ERROR;
4762:
4763: END IF;
4764: IF (is_debug_procedure_on) THEN
4765: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
4766: END IF;
4767:
4768: EXCEPTION
4769:
4770: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4771: IF (is_debug_exception_on) THEN
4772: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4773: END IF;
4774:
4775: IF get_qte_lines_csr%ISOPEN THEN
4776: CLOSE get_qte_lines_csr;
4777: END IF;
4778:
4779: x_return_status := OKL_API.G_RET_STS_ERROR;
4780:
4781: WHEN OTHERS THEN
4782: IF (is_debug_exception_on) THEN
4783: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4788: CLOSE get_qte_lines_csr;
4789: END IF;
4790:
4791: -- unexpected error
4792: OKL_API.set_message(
4793: p_app_name => 'OKC',
4794: p_msg_name => g_unexpected_error,
4795: p_token1 => g_sqlcode_token,
4796: p_token1_value => sqlcode,
4796: p_token1_value => sqlcode,
4797: p_token2 => g_sqlerrm_token,
4798: p_token2_value => sqlerrm);
4799:
4800: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4801:
4802: END validate_quote_line;
4803:
4804:
4829: SELECT QTE.khr_id khr_id
4830: FROM OKL_TRX_QUOTES_V QTE
4831: WHERE QTE.id = p_qte_id;
4832:
4833: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4834: l_functional_currency_code VARCHAR2(15);
4835: l_contract_currency_code VARCHAR2(15);
4836: l_currency_conversion_type VARCHAR2(30);
4837: l_currency_conversion_rate NUMBER;
4930: END IF;
4931:
4932:
4933: -- RMUNJULU 30-DEC-02 2699412 Added msg
4934: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4935:
4936: -- The currency conversion rate could not be identified for specified currency.
4937: OKL_API.set_message(
4938: p_app_name => 'OKL',
4933: -- RMUNJULU 30-DEC-02 2699412 Added msg
4934: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4935:
4936: -- The currency conversion rate could not be identified for specified currency.
4937: OKL_API.set_message(
4938: p_app_name => 'OKL',
4939: p_msg_name => 'OKL_CONV_RATE_NOT_FOUND');
4940:
4941: END IF;
4940:
4941: END IF;
4942:
4943: -- raise exception if error
4944: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4946: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4947: RAISE OKL_API.G_EXCEPTION_ERROR;
4948: END IF;
4941: END IF;
4942:
4943: -- raise exception if error
4944: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4946: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4947: RAISE OKL_API.G_EXCEPTION_ERROR;
4948: END IF;
4949:
4942:
4943: -- raise exception if error
4944: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4946: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4947: RAISE OKL_API.G_EXCEPTION_ERROR;
4948: END IF;
4949:
4950: px_tqlv_rec.currency_code := l_contract_currency_code;
4943: -- raise exception if error
4944: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4946: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4947: RAISE OKL_API.G_EXCEPTION_ERROR;
4948: END IF;
4949:
4950: px_tqlv_rec.currency_code := l_contract_currency_code;
4951: px_tqlv_rec.currency_conversion_code := l_functional_currency_code;
4968: END IF;
4969:
4970: EXCEPTION
4971:
4972: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4973: IF (is_debug_exception_on) THEN
4974: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4975: END IF;
4976:
4977: IF get_khr_id_csr%ISOPEN THEN
4978: CLOSE get_khr_id_csr;
4979: END IF;
4980:
4981: x_return_status := OKL_API.G_RET_STS_ERROR;
4982:
4983: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4984: IF (is_debug_exception_on) THEN
4985: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
4979: END IF;
4980:
4981: x_return_status := OKL_API.G_RET_STS_ERROR;
4982:
4983: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4984: IF (is_debug_exception_on) THEN
4985: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
4986: END IF;
4987:
4988: IF get_khr_id_csr%ISOPEN THEN
4989: CLOSE get_khr_id_csr;
4990: END IF;
4991:
4992: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4993:
4994: WHEN OTHERS THEN
4995: IF (is_debug_exception_on) THEN
4996: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5001: CLOSE get_khr_id_csr;
5002: END IF;
5003:
5004: -- unexpected error
5005: OKL_API.set_message(
5006: p_app_name => 'OKC',
5007: p_msg_name => g_unexpected_error,
5008: p_token1 => g_sqlcode_token,
5009: p_token1_value => sqlcode,
5009: p_token1_value => sqlcode,
5010: p_token2 => g_sqlerrm_token,
5011: p_token2_value => sqlerrm);
5012:
5013: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5014:
5015: END set_line_currency_defaults;
5016:
5017:
5036: p_tqlv_rec IN tqlv_rec_type,
5037: x_tqlv_rec OUT NOCOPY tqlv_rec_type) IS
5038:
5039:
5040: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5041: lp_tqlv_rec tqlv_rec_type := p_tqlv_rec;
5042: lx_tqlv_rec tqlv_rec_type := p_tqlv_rec;
5043: l_api_name VARCHAR2(30) := 'create_quote_line';
5044: l_api_version CONSTANT NUMBER := 1;
5102: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tqlv_rec.due_date: ' || p_tqlv_rec.due_date);
5103: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tqlv_rec.try_id: ' || p_tqlv_rec.try_id);
5104: END IF;
5105: --Check API version, initialize message list and create savepoint.
5106: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
5107: G_PKG_NAME,
5108: p_init_msg_list,
5109: l_api_version,
5110: p_api_version,
5111: '_PVT',
5112: x_return_status);
5113:
5114: -- raise exception if error
5115: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5117: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5118: RAISE OKL_API.G_EXCEPTION_ERROR;
5119: END IF;
5112: x_return_status);
5113:
5114: -- raise exception if error
5115: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5117: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5118: RAISE OKL_API.G_EXCEPTION_ERROR;
5119: END IF;
5120:
5113:
5114: -- raise exception if error
5115: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5117: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5118: RAISE OKL_API.G_EXCEPTION_ERROR;
5119: END IF;
5120:
5121: SELECT SYSDATE INTO l_sys_date FROM DUAL;
5114: -- raise exception if error
5115: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5117: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5118: RAISE OKL_API.G_EXCEPTION_ERROR;
5119: END IF;
5120:
5121: SELECT SYSDATE INTO l_sys_date FROM DUAL;
5122:
5125: p_tqlv_rec => lp_tqlv_rec,
5126: x_return_status => l_return_status);
5127:
5128: -- raise exception if error
5129: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5131: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5132: RAISE OKL_API.G_EXCEPTION_ERROR;
5133: END IF;
5126: x_return_status => l_return_status);
5127:
5128: -- raise exception if error
5129: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5131: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5132: RAISE OKL_API.G_EXCEPTION_ERROR;
5133: END IF;
5134:
5127:
5128: -- raise exception if error
5129: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5131: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5132: RAISE OKL_API.G_EXCEPTION_ERROR;
5133: END IF;
5134:
5135: -- Set the quote line currency columns
5128: -- raise exception if error
5129: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5131: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5132: RAISE OKL_API.G_EXCEPTION_ERROR;
5133: END IF;
5134:
5135: -- Set the quote line currency columns
5136: set_line_currency_defaults(
5141: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called set_line_currency_defaults , return status: ' || l_return_status);
5142: END IF;
5143:
5144: -- raise exception if error
5145: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5148: RAISE OKL_API.G_EXCEPTION_ERROR;
5149: END IF;
5142: END IF;
5143:
5144: -- raise exception if error
5145: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5148: RAISE OKL_API.G_EXCEPTION_ERROR;
5149: END IF;
5150:
5143:
5144: -- raise exception if error
5145: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5148: RAISE OKL_API.G_EXCEPTION_ERROR;
5149: END IF;
5150:
5151: -- Added by rravikir (eBTax enhancement) Bug 5866207
5144: -- raise exception if error
5145: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5148: RAISE OKL_API.G_EXCEPTION_ERROR;
5149: END IF;
5150:
5151: -- Added by rravikir (eBTax enhancement) Bug 5866207
5152: OPEN get_try_id_csr ('Estimated Billing');
5155:
5156: lp_tqlv_rec.try_id := l_try_id;
5157: -- End (eBTax enhancement) Bug 5866207
5158: -- akrangan Bug# 5468781:Start
5159: IF lp_tqlv_rec.LINE_NUMBER IS NULL OR lp_tqlv_rec.LINE_NUMBER = OKL_API.G_MISS_NUM THEN
5160: -- get current max line number and increment it by one as the new line#
5161: OPEN get_max_tql_line_num_csr (lp_tqlv_rec.QTE_ID);
5162: FETCH get_max_tql_line_num_csr INTO l_new_line_number;
5163:
5188: 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);
5189: END IF;
5190:
5191: -- raise exception if error
5192: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5193: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5194: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5195: RAISE OKL_API.G_EXCEPTION_ERROR;
5196: END IF;
5189: END IF;
5190:
5191: -- raise exception if error
5192: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5193: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5194: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5195: RAISE OKL_API.G_EXCEPTION_ERROR;
5196: END IF;
5197:
5190:
5191: -- raise exception if error
5192: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5193: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5194: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5195: RAISE OKL_API.G_EXCEPTION_ERROR;
5196: END IF;
5197:
5198: IF (is_debug_statement_on) THEN
5191: -- raise exception if error
5192: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5193: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5194: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5195: RAISE OKL_API.G_EXCEPTION_ERROR;
5196: END IF;
5197:
5198: IF (is_debug_statement_on) THEN
5199: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax');
5201: -- rmunjulu Sales_Tax_Enhancement
5202: -- Call the new OKL Tax engine to RECALCULATE tax for all quote lines
5203: OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax(
5204: p_api_version => l_api_version,
5205: p_init_msg_list => OKL_API.G_FALSE,
5206: x_return_status => l_return_status,
5207: x_msg_count => x_msg_count,
5208: x_msg_data => x_msg_data,
5209: p_source_trx_id => lx_tqlv_rec.qte_id, -- TRX_ID is QUOTE_ID
5212: IF (is_debug_statement_on) THEN
5213: 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);
5214: END IF;
5215:
5216: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5217: -- Tax Processing failed.
5218: OKL_API.set_message( p_app_name => 'OKL',
5219: p_msg_name =>'OKL_AM_PROCESS_TAX_ERR');
5220: END IF;
5214: END IF;
5215:
5216: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5217: -- Tax Processing failed.
5218: OKL_API.set_message( p_app_name => 'OKL',
5219: p_msg_name =>'OKL_AM_PROCESS_TAX_ERR');
5220: END IF;
5221:
5222: -- raise exception if error
5219: p_msg_name =>'OKL_AM_PROCESS_TAX_ERR');
5220: END IF;
5221:
5222: -- raise exception if error
5223: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5224: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5225: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5226: RAISE OKL_API.G_EXCEPTION_ERROR;
5227: END IF;
5220: END IF;
5221:
5222: -- raise exception if error
5223: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5224: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5225: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5226: RAISE OKL_API.G_EXCEPTION_ERROR;
5227: END IF;
5228:
5221:
5222: -- raise exception if error
5223: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5224: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5225: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5226: RAISE OKL_API.G_EXCEPTION_ERROR;
5227: END IF;
5228:
5229: -- PAGARG 4102565 Recalculate quote header elements and update quote header
5222: -- raise exception if error
5223: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5224: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5225: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5226: RAISE OKL_API.G_EXCEPTION_ERROR;
5227: END IF;
5228:
5229: -- PAGARG 4102565 Recalculate quote header elements and update quote header
5230: recalculate_quote(
5234: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called recalculate_quote , return status: ' || l_return_status);
5235: END IF;
5236:
5237: -- PAGARG 4102565 raise exception if error
5238: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5239: THEN
5240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5241: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5242: THEN
5236:
5237: -- PAGARG 4102565 raise exception if error
5238: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5239: THEN
5240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5241: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5242: THEN
5243: RAISE OKL_API.G_EXCEPTION_ERROR;
5244: END IF;
5237: -- PAGARG 4102565 raise exception if error
5238: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5239: THEN
5240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5241: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5242: THEN
5243: RAISE OKL_API.G_EXCEPTION_ERROR;
5244: END IF;
5245:
5239: THEN
5240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5241: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5242: THEN
5243: RAISE OKL_API.G_EXCEPTION_ERROR;
5244: END IF;
5245:
5246: -- set the return status and out variables
5247: x_return_status := l_return_status;
5247: x_return_status := l_return_status;
5248: x_tqlv_rec := lx_tqlv_rec;
5249:
5250: -- end the transaction
5251: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5252: IF (is_debug_procedure_on) THEN
5253: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
5254: END IF;
5255:
5253: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
5254: END IF;
5255:
5256: EXCEPTION
5257: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5258: IF (is_debug_exception_on) THEN
5259: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5260: END IF;
5261:
5262: IF (get_try_id_csr%isopen) THEN
5263: CLOSE get_try_id_csr;
5264: END IF;
5265:
5266: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5267: (
5268: l_api_name,
5269: G_PKG_NAME,
5270: 'OKL_API.G_RET_STS_ERROR',
5266: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5267: (
5268: l_api_name,
5269: G_PKG_NAME,
5270: 'OKL_API.G_RET_STS_ERROR',
5271: x_msg_count,
5272: x_msg_data,
5273: '_PVT'
5274: );
5272: x_msg_data,
5273: '_PVT'
5274: );
5275:
5276: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5277: IF (is_debug_exception_on) THEN
5278: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5279: END IF;
5280:
5281: IF (get_try_id_csr%isopen) THEN
5282: CLOSE get_try_id_csr;
5283: END IF;
5284:
5285: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5286: (
5287: l_api_name,
5288: G_PKG_NAME,
5289: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5285: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5286: (
5287: l_api_name,
5288: G_PKG_NAME,
5289: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5290: x_msg_count,
5291: x_msg_data,
5292: '_PVT'
5293: );
5302: IF (get_try_id_csr%isopen) THEN
5303: CLOSE get_try_id_csr;
5304: END IF;
5305:
5306: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5307: (
5308: l_api_name,
5309: G_PKG_NAME,
5310: 'OTHERS',
5336: x_tqlv_tbl OUT NOCOPY tqlv_tbl_type) IS
5337:
5338:
5339:
5340: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5341: lp_tqlv_tbl tqlv_tbl_type := p_tqlv_tbl;
5342: lx_tqlv_tbl tqlv_tbl_type := p_tqlv_tbl;
5343: l_api_name VARCHAR2(30) := 'create_quote_line';
5344: l_api_version CONSTANT NUMBER := 1;
5357: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tqlv_tbl.COUNT: ' || p_tqlv_tbl.COUNT);
5358: END IF;
5359:
5360: --Check API version, initialize message list and create savepoint.
5361: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
5362: G_PKG_NAME,
5363: p_init_msg_list,
5364: l_api_version,
5365: p_api_version,
5367: x_return_status);
5368:
5369:
5370: -- raise exception if error
5371: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5372: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5373: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5374: RAISE OKL_API.G_EXCEPTION_ERROR;
5375: END IF;
5368:
5369:
5370: -- raise exception if error
5371: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5372: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5373: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5374: RAISE OKL_API.G_EXCEPTION_ERROR;
5375: END IF;
5376:
5369:
5370: -- raise exception if error
5371: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5372: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5373: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5374: RAISE OKL_API.G_EXCEPTION_ERROR;
5375: END IF;
5376:
5377:
5370: -- raise exception if error
5371: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5372: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5373: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5374: RAISE OKL_API.G_EXCEPTION_ERROR;
5375: END IF;
5376:
5377:
5378: -- Loop thru the input tbl and call the rec type API
5395: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called create_quote_line , return status: ' || l_return_status);
5396: END IF;
5397:
5398: -- raise exception if error
5399: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5401: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5402: RAISE OKL_API.G_EXCEPTION_ERROR;
5403: END IF;
5396: END IF;
5397:
5398: -- raise exception if error
5399: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5401: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5402: RAISE OKL_API.G_EXCEPTION_ERROR;
5403: END IF;
5404:
5397:
5398: -- raise exception if error
5399: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5401: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5402: RAISE OKL_API.G_EXCEPTION_ERROR;
5403: END IF;
5404:
5405: EXIT WHEN (i = lp_tqlv_tbl.LAST);
5398: -- raise exception if error
5399: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5401: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5402: RAISE OKL_API.G_EXCEPTION_ERROR;
5403: END IF;
5404:
5405: EXIT WHEN (i = lp_tqlv_tbl.LAST);
5406: i := lp_tqlv_tbl.NEXT(i);
5414: x_tqlv_tbl := lx_tqlv_tbl;
5415:
5416:
5417: -- end the transaction
5418: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5419: IF (is_debug_procedure_on) THEN
5420: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
5421: END IF;
5422:
5422:
5423: EXCEPTION
5424:
5425:
5426: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5427: IF (is_debug_exception_on) THEN
5428: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5429: END IF;
5430:
5427: IF (is_debug_exception_on) THEN
5428: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5429: END IF;
5430:
5431: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5432: (
5433: l_api_name,
5434: G_PKG_NAME,
5435: 'OKL_API.G_RET_STS_ERROR',
5431: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5432: (
5433: l_api_name,
5434: G_PKG_NAME,
5435: 'OKL_API.G_RET_STS_ERROR',
5436: x_msg_count,
5437: x_msg_data,
5438: '_PVT'
5439: );
5438: '_PVT'
5439: );
5440:
5441:
5442: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5443: IF (is_debug_exception_on) THEN
5444: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5445: END IF;
5446:
5443: IF (is_debug_exception_on) THEN
5444: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5445: END IF;
5446:
5447: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5448: (
5449: l_api_name,
5450: G_PKG_NAME,
5451: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5447: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5448: (
5449: l_api_name,
5450: G_PKG_NAME,
5451: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5452: x_msg_count,
5453: x_msg_data,
5454: '_PVT'
5455: );
5460: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5461: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5462: END IF;
5463:
5464: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5465: (
5466: l_api_name,
5467: G_PKG_NAME,
5468: 'OTHERS',
5485: -- History : 23-DEC-02 RMUNJULU 2726739 Created
5486: -- 16-JAN-03 RMUNJULU 2754574 Added quote status condition
5487: -- GKADARKA bug 3825037, default currency_conversion_date, start_date, creation_date and
5488: -- program_update_date to NULL/G_MISS_DATE so that correct date is stamped.
5489: -- issue occurs when g_miss_date passed from rossetta layer does not match okl_api.g_miss_date
5490: -- : PAGARG 4102565 Added call to validate_upd_quote_line to validate the amounts
5491: -- : PAGARG 4102565 Added call to recalculate_quote
5492: -- : rmunjulu Sales_Tax_Enhancement
5493: -- End of comments
5511: OKL_TXL_QUOTE_LINES_V TQL
5512: WHERE TQL.id = p_tql_id
5513: AND TQL.qte_id = QTE.id;
5514:
5515: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5516: lp_tqlv_rec tqlv_rec_type := p_tqlv_rec;
5517: lx_tqlv_rec tqlv_rec_type := p_tqlv_rec;
5518: l_api_name VARCHAR2(30) := 'update_quote_line';
5519: l_api_version CONSTANT NUMBER := 1;
5577: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tqlv_rec.try_id: ' || p_tqlv_rec.try_id);
5578: END IF;
5579:
5580: --Check API version, initialize message list and create savepoint.
5581: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
5582: G_PKG_NAME,
5583: p_init_msg_list,
5584: l_api_version,
5585: p_api_version,
5586: '_PVT',
5587: x_return_status);
5588:
5589: -- raise exception if error
5590: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5591: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5592: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5593: RAISE OKL_API.G_EXCEPTION_ERROR;
5594: END IF;
5587: x_return_status);
5588:
5589: -- raise exception if error
5590: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5591: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5592: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5593: RAISE OKL_API.G_EXCEPTION_ERROR;
5594: END IF;
5595:
5588:
5589: -- raise exception if error
5590: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5591: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5592: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5593: RAISE OKL_API.G_EXCEPTION_ERROR;
5594: END IF;
5595:
5596: -- RMUNJULU 16-JAN-03 2754574 Added code to get quote status and check if
5589: -- raise exception if error
5590: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5591: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5592: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5593: RAISE OKL_API.G_EXCEPTION_ERROR;
5594: END IF;
5595:
5596: -- RMUNJULU 16-JAN-03 2754574 Added code to get quote status and check if
5597: -- DRAFTED or REJECTED.
5607: -- If the quote is not DRAFTED or REJECTED, can not delete lines.
5608: IF l_qst_code NOT IN ('DRAFTED','REJECTED' ) THEN
5609:
5610: -- Quote status must be either Drafted or Rejected.
5611: OKL_API.set_message (
5612: p_app_name => 'OKL',
5613: p_msg_name => 'OKL_AM_SUBMIT_FOR_APPROVAL');
5614:
5615: RAISE OKL_API.G_EXCEPTION_ERROR;
5611: OKL_API.set_message (
5612: p_app_name => 'OKL',
5613: p_msg_name => 'OKL_AM_SUBMIT_FOR_APPROVAL');
5614:
5615: RAISE OKL_API.G_EXCEPTION_ERROR;
5616:
5617: END IF;
5618:
5619: -- GKADARKA bug 3825037, default currency_conversion_date, start_date, creation_date and
5617: END IF;
5618:
5619: -- GKADARKA bug 3825037, default currency_conversion_date, start_date, creation_date and
5620: -- program_update_date to NULL/G_MISS_DATE so that correct date is stamped.
5621: -- issue occurs when g_miss_date passed from rossetta layer does not match okl_api.g_miss_date
5622:
5623: lp_tqlv_rec.currency_conversion_date := OKL_API.G_MISS_DATE;
5624: lp_tqlv_rec.creation_date := OKL_API.G_MISS_DATE;
5625: lp_tqlv_rec.start_date := null;
5619: -- GKADARKA bug 3825037, default currency_conversion_date, start_date, creation_date and
5620: -- program_update_date to NULL/G_MISS_DATE so that correct date is stamped.
5621: -- issue occurs when g_miss_date passed from rossetta layer does not match okl_api.g_miss_date
5622:
5623: lp_tqlv_rec.currency_conversion_date := OKL_API.G_MISS_DATE;
5624: lp_tqlv_rec.creation_date := OKL_API.G_MISS_DATE;
5625: lp_tqlv_rec.start_date := null;
5626: lp_tqlv_rec.program_update_date := null;
5627:
5620: -- program_update_date to NULL/G_MISS_DATE so that correct date is stamped.
5621: -- issue occurs when g_miss_date passed from rossetta layer does not match okl_api.g_miss_date
5622:
5623: lp_tqlv_rec.currency_conversion_date := OKL_API.G_MISS_DATE;
5624: lp_tqlv_rec.creation_date := OKL_API.G_MISS_DATE;
5625: lp_tqlv_rec.start_date := null;
5626: lp_tqlv_rec.program_update_date := null;
5627:
5628: -- PAGARG 4102565 Added validate quote line to check for rules during updates
5633: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called validate_upd_quote_line , return status: ' || l_return_status);
5634: END IF;
5635:
5636: -- PAGARG 4102565 raise exception if error
5637: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5638: THEN
5639: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5640: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5641: THEN
5635:
5636: -- PAGARG 4102565 raise exception if error
5637: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5638: THEN
5639: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5640: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5641: THEN
5642: RAISE OKL_API.G_EXCEPTION_ERROR;
5643: END IF;
5636: -- PAGARG 4102565 raise exception if error
5637: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5638: THEN
5639: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5640: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5641: THEN
5642: RAISE OKL_API.G_EXCEPTION_ERROR;
5643: END IF;
5644:
5638: THEN
5639: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5640: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5641: THEN
5642: RAISE OKL_API.G_EXCEPTION_ERROR;
5643: END IF;
5644:
5645: -- rmunjulu Sales_Tax_Enhancement
5646: IF l_amount >= 0 THEN
5682: 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);
5683: END IF;
5684:
5685: -- raise exception if error
5686: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5687: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5688: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5689: RAISE OKL_API.G_EXCEPTION_ERROR;
5690: END IF;
5683: END IF;
5684:
5685: -- raise exception if error
5686: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5687: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5688: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5689: RAISE OKL_API.G_EXCEPTION_ERROR;
5690: END IF;
5691:
5684:
5685: -- raise exception if error
5686: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5687: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5688: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5689: RAISE OKL_API.G_EXCEPTION_ERROR;
5690: END IF;
5691:
5692: IF (is_debug_statement_on) THEN
5685: -- raise exception if error
5686: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5687: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5688: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5689: RAISE OKL_API.G_EXCEPTION_ERROR;
5690: END IF;
5691:
5692: IF (is_debug_statement_on) THEN
5693: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax');
5695: -- rmunjulu Sales_Tax_Enhancement
5696: -- Call the new OKL Tax engine to RECALCULATE tax for all quote lines
5697: OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax(
5698: p_api_version => l_api_version,
5699: p_init_msg_list => OKL_API.G_FALSE,
5700: x_return_status => l_return_status,
5701: x_msg_count => x_msg_count,
5702: x_msg_data => x_msg_data,
5703: p_source_trx_id => l_qte_id, -- TRX_ID is QUOTE_ID
5706: IF (is_debug_statement_on) THEN
5707: 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);
5708: END IF;
5709:
5710: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5711: -- Tax Processing failed.
5712: OKL_API.set_message( p_app_name => 'OKL',
5713: p_msg_name =>'OKL_AM_PROCESS_TAX_ERR');
5714: END IF;
5708: END IF;
5709:
5710: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5711: -- Tax Processing failed.
5712: OKL_API.set_message( p_app_name => 'OKL',
5713: p_msg_name =>'OKL_AM_PROCESS_TAX_ERR');
5714: END IF;
5715:
5716: -- raise exception if error
5713: p_msg_name =>'OKL_AM_PROCESS_TAX_ERR');
5714: END IF;
5715:
5716: -- raise exception if error
5717: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5718: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5719: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5720: RAISE OKL_API.G_EXCEPTION_ERROR;
5721: END IF;
5714: END IF;
5715:
5716: -- raise exception if error
5717: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5718: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5719: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5720: RAISE OKL_API.G_EXCEPTION_ERROR;
5721: END IF;
5722:
5715:
5716: -- raise exception if error
5717: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5718: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5719: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5720: RAISE OKL_API.G_EXCEPTION_ERROR;
5721: END IF;
5722:
5723: -- PAGARG 4102565 Recalculate quote header elements and update quote header
5716: -- raise exception if error
5717: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5718: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5719: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5720: RAISE OKL_API.G_EXCEPTION_ERROR;
5721: END IF;
5722:
5723: -- PAGARG 4102565 Recalculate quote header elements and update quote header
5724: recalculate_quote(
5728: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called recalculate_quote , return status: ' || l_return_status);
5729: END IF;
5730:
5731: -- PAGARG 4102565 raise exception if error
5732: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5733: THEN
5734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5735: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5736: THEN
5730:
5731: -- PAGARG 4102565 raise exception if error
5732: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5733: THEN
5734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5735: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5736: THEN
5737: RAISE OKL_API.G_EXCEPTION_ERROR;
5738: END IF;
5731: -- PAGARG 4102565 raise exception if error
5732: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5733: THEN
5734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5735: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5736: THEN
5737: RAISE OKL_API.G_EXCEPTION_ERROR;
5738: END IF;
5739:
5733: THEN
5734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5735: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5736: THEN
5737: RAISE OKL_API.G_EXCEPTION_ERROR;
5738: END IF;
5739:
5740: -- set the return status and out variables
5741: x_return_status := l_return_status;
5741: x_return_status := l_return_status;
5742: x_tqlv_rec := lx_tqlv_rec;
5743:
5744: -- end the transaction
5745: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5746: IF (is_debug_procedure_on) THEN
5747: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
5748: END IF;
5749:
5747: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
5748: END IF;
5749:
5750: EXCEPTION
5751: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5752: IF (is_debug_exception_on) THEN
5753: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5754: END IF;
5755:
5752: IF (is_debug_exception_on) THEN
5753: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5754: END IF;
5755:
5756: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5757: (
5758: l_api_name,
5759: G_PKG_NAME,
5760: 'OKL_API.G_RET_STS_ERROR',
5756: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5757: (
5758: l_api_name,
5759: G_PKG_NAME,
5760: 'OKL_API.G_RET_STS_ERROR',
5761: x_msg_count,
5762: x_msg_data,
5763: '_PVT'
5764: );
5762: x_msg_data,
5763: '_PVT'
5764: );
5765:
5766: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5767: IF (is_debug_exception_on) THEN
5768: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5769: END IF;
5770:
5767: IF (is_debug_exception_on) THEN
5768: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5769: END IF;
5770:
5771: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5772: (
5773: l_api_name,
5774: G_PKG_NAME,
5775: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5771: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5772: (
5773: l_api_name,
5774: G_PKG_NAME,
5775: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5776: x_msg_count,
5777: x_msg_data,
5778: '_PVT'
5779: );
5783: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5784: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5785: END IF;
5786:
5787: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5788: (
5789: l_api_name,
5790: G_PKG_NAME,
5791: 'OTHERS',
5817: x_tqlv_tbl OUT NOCOPY tqlv_tbl_type) IS
5818:
5819:
5820:
5821: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5822: lp_tqlv_tbl tqlv_tbl_type := p_tqlv_tbl;
5823: lx_tqlv_tbl tqlv_tbl_type := p_tqlv_tbl;
5824: l_api_name VARCHAR2(30) := 'update_quote_line';
5825: l_api_version CONSTANT NUMBER := 1;
5838: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tqlv_tbl.COUNT: ' || p_tqlv_tbl.COUNT);
5839: END IF;
5840:
5841: --Check API version, initialize message list and create savepoint.
5842: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
5843: G_PKG_NAME,
5844: p_init_msg_list,
5845: l_api_version,
5846: p_api_version,
5848: x_return_status);
5849:
5850:
5851: -- raise exception if error
5852: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5853: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5854: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5855: RAISE OKL_API.G_EXCEPTION_ERROR;
5856: END IF;
5849:
5850:
5851: -- raise exception if error
5852: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5853: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5854: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5855: RAISE OKL_API.G_EXCEPTION_ERROR;
5856: END IF;
5857:
5850:
5851: -- raise exception if error
5852: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5853: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5854: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5855: RAISE OKL_API.G_EXCEPTION_ERROR;
5856: END IF;
5857:
5858:
5851: -- raise exception if error
5852: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5853: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5854: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5855: RAISE OKL_API.G_EXCEPTION_ERROR;
5856: END IF;
5857:
5858:
5859: -- Loop thru the input tbl and call the rec type API
5876: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called update_quote_line , return status: ' || l_return_status);
5877: END IF;
5878:
5879: -- raise exception if error
5880: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5882: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5883: RAISE OKL_API.G_EXCEPTION_ERROR;
5884: END IF;
5877: END IF;
5878:
5879: -- raise exception if error
5880: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5882: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5883: RAISE OKL_API.G_EXCEPTION_ERROR;
5884: END IF;
5885:
5878:
5879: -- raise exception if error
5880: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5882: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5883: RAISE OKL_API.G_EXCEPTION_ERROR;
5884: END IF;
5885:
5886: EXIT WHEN (i = lp_tqlv_tbl.LAST);
5879: -- raise exception if error
5880: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5882: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5883: RAISE OKL_API.G_EXCEPTION_ERROR;
5884: END IF;
5885:
5886: EXIT WHEN (i = lp_tqlv_tbl.LAST);
5887: i := lp_tqlv_tbl.NEXT(i);
5895: x_tqlv_tbl := lx_tqlv_tbl;
5896:
5897:
5898: -- end the transaction
5899: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5900: IF (is_debug_procedure_on) THEN
5901: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
5902: END IF;
5903:
5903:
5904: EXCEPTION
5905:
5906:
5907: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5908: IF (is_debug_exception_on) THEN
5909: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5910: END IF;
5911:
5908: IF (is_debug_exception_on) THEN
5909: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5910: END IF;
5911:
5912: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5913: (
5914: l_api_name,
5915: G_PKG_NAME,
5916: 'OKL_API.G_RET_STS_ERROR',
5912: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5913: (
5914: l_api_name,
5915: G_PKG_NAME,
5916: 'OKL_API.G_RET_STS_ERROR',
5917: x_msg_count,
5918: x_msg_data,
5919: '_PVT'
5920: );
5919: '_PVT'
5920: );
5921:
5922:
5923: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5924: IF (is_debug_exception_on) THEN
5925: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5926: END IF;
5927:
5924: IF (is_debug_exception_on) THEN
5925: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5926: END IF;
5927:
5928: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5929: (
5930: l_api_name,
5931: G_PKG_NAME,
5932: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5928: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5929: (
5930: l_api_name,
5931: G_PKG_NAME,
5932: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5933: x_msg_count,
5934: x_msg_data,
5935: '_PVT'
5936: );
5941: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5942: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5943: END IF;
5944:
5945: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5946: (
5947: l_api_name,
5948: G_PKG_NAME,
5949: 'OTHERS',
6147:
6148: l_unit_tbl unit_tbl_type;
6149: i NUMBER;
6150: l_id NUMBER;
6151: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6152: l_api_name VARCHAR2(30) := 'get_quote_units';
6153: l_api_version NUMBER := 1;
6154:
6155: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_quote_units';
6166: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tql_id: ' || p_tql_id);
6167: END IF;
6168:
6169: --Check API version, initialize message list and create savepoint.
6170: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
6171: G_PKG_NAME,
6172: p_init_msg_list,
6173: l_api_version,
6174: p_api_version,
6176: x_return_status);
6177:
6178:
6179: -- raise exception if error
6180: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6182: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6183: RAISE OKL_API.G_EXCEPTION_ERROR;
6184: END IF;
6177:
6178:
6179: -- raise exception if error
6180: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6182: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6183: RAISE OKL_API.G_EXCEPTION_ERROR;
6184: END IF;
6185:
6178:
6179: -- raise exception if error
6180: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6182: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6183: RAISE OKL_API.G_EXCEPTION_ERROR;
6184: END IF;
6185:
6186:
6179: -- raise exception if error
6180: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6182: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6183: RAISE OKL_API.G_EXCEPTION_ERROR;
6184: END IF;
6185:
6186:
6187: -- Check if tqd populated
6256: x_return_status := l_return_status;
6257: x_unit_tbl := l_unit_tbl;
6258:
6259: -- end the transaction
6260: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6261: IF (is_debug_procedure_on) THEN
6262: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
6263: END IF;
6264:
6264:
6265: EXCEPTION
6266:
6267:
6268: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6269: IF (is_debug_exception_on) THEN
6270: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
6271: END IF;
6272:
6281: IF get_quote_units_csr%ISOPEN THEN
6282: CLOSE get_quote_units_csr;
6283: END IF;
6284:
6285: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6286: (
6287: l_api_name,
6288: G_PKG_NAME,
6289: 'OKL_API.G_RET_STS_ERROR',
6285: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6286: (
6287: l_api_name,
6288: G_PKG_NAME,
6289: 'OKL_API.G_RET_STS_ERROR',
6290: x_msg_count,
6291: x_msg_data,
6292: '_PVT'
6293: );
6292: '_PVT'
6293: );
6294:
6295:
6296: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6297: IF (is_debug_exception_on) THEN
6298: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
6299: END IF;
6300:
6309: IF get_quote_units_csr%ISOPEN THEN
6310: CLOSE get_quote_units_csr;
6311: END IF;
6312:
6313: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6314: (
6315: l_api_name,
6316: G_PKG_NAME,
6317: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6313: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6314: (
6315: l_api_name,
6316: G_PKG_NAME,
6317: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6318: x_msg_count,
6319: x_msg_data,
6320: '_PVT'
6321: );
6338: IF get_quote_units_csr%ISOPEN THEN
6339: CLOSE get_quote_units_csr;
6340: END IF;
6341:
6342: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6343: (
6344: l_api_name,
6345: G_PKG_NAME,
6346: 'OTHERS',
6381: WHERE TQL.id = p_tql_id
6382: AND TQL.qte_id = QTE.id;
6383:
6384:
6385: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6386: lp_tqlv_rec tqlv_rec_type := p_tqlv_rec;
6387: l_api_name VARCHAR2(30) := 'delete_quote_line';
6388: l_api_version CONSTANT NUMBER := 1;
6389: l_qst_code VARCHAR2(30);
6437: END IF;
6438:
6439:
6440: --Check API version, initialize message list and create savepoint.
6441: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
6442: G_PKG_NAME,
6443: p_init_msg_list,
6444: l_api_version,
6445: p_api_version,
6447: x_return_status);
6448:
6449:
6450: -- raise exception if error
6451: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6453: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6454: RAISE OKL_API.G_EXCEPTION_ERROR;
6455: END IF;
6448:
6449:
6450: -- raise exception if error
6451: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6453: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6454: RAISE OKL_API.G_EXCEPTION_ERROR;
6455: END IF;
6456:
6449:
6450: -- raise exception if error
6451: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6453: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6454: RAISE OKL_API.G_EXCEPTION_ERROR;
6455: END IF;
6456:
6457:
6450: -- raise exception if error
6451: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6453: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6454: RAISE OKL_API.G_EXCEPTION_ERROR;
6455: END IF;
6456:
6457:
6458: -- Get the quote status
6467: -- If the quote is not DRAFTED or REJECTED, can not delete lines.
6468: IF l_qst_code NOT IN ('DRAFTED','REJECTED' ) THEN
6469:
6470: -- Quote status must be either Drafted or Rejected.
6471: OKL_API.set_message (
6472: p_app_name => 'OKL',
6473: p_msg_name => 'OKL_AM_SUBMIT_FOR_APPROVAL');
6474:
6475: RAISE OKL_API.G_EXCEPTION_ERROR;
6471: OKL_API.set_message (
6472: p_app_name => 'OKL',
6473: p_msg_name => 'OKL_AM_SUBMIT_FOR_APPROVAL');
6474:
6475: RAISE OKL_API.G_EXCEPTION_ERROR;
6476:
6477: END IF;
6478:
6479:
6495:
6496:
6497:
6498: -- raise exception if error
6499: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6500: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6501: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6502: RAISE OKL_API.G_EXCEPTION_ERROR;
6503: END IF;
6496:
6497:
6498: -- raise exception if error
6499: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6500: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6501: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6502: RAISE OKL_API.G_EXCEPTION_ERROR;
6503: END IF;
6504:
6497:
6498: -- raise exception if error
6499: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6500: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6501: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6502: RAISE OKL_API.G_EXCEPTION_ERROR;
6503: END IF;
6504:
6505: IF (is_debug_statement_on) THEN
6498: -- raise exception if error
6499: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6500: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6501: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6502: RAISE OKL_API.G_EXCEPTION_ERROR;
6503: END IF;
6504:
6505: IF (is_debug_statement_on) THEN
6506: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax');
6508: -- rmunjulu Sales_Tax_Enhancement
6509: -- Call the new OKL Tax engine to RECALCULATE tax for all quote lines
6510: OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax(
6511: p_api_version => l_api_version,
6512: p_init_msg_list => OKL_API.G_FALSE,
6513: x_return_status => l_return_status,
6514: x_msg_count => x_msg_count,
6515: x_msg_data => x_msg_data,
6516: p_source_trx_id => l_qte_id, -- TRX_ID is QUOTE_ID
6519: IF (is_debug_statement_on) THEN
6520: 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);
6521: END IF;
6522:
6523: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6524: -- Tax Processing failed.
6525: OKL_API.set_message( p_app_name => 'OKL',
6526: p_msg_name =>'OKL_AM_PROCESS_TAX_ERR');
6527: END IF;
6521: END IF;
6522:
6523: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6524: -- Tax Processing failed.
6525: OKL_API.set_message( p_app_name => 'OKL',
6526: p_msg_name =>'OKL_AM_PROCESS_TAX_ERR');
6527: END IF;
6528:
6529: -- raise exception if error
6526: p_msg_name =>'OKL_AM_PROCESS_TAX_ERR');
6527: END IF;
6528:
6529: -- raise exception if error
6530: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6532: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6533: RAISE OKL_API.G_EXCEPTION_ERROR;
6534: END IF;
6527: END IF;
6528:
6529: -- raise exception if error
6530: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6532: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6533: RAISE OKL_API.G_EXCEPTION_ERROR;
6534: END IF;
6535:
6528:
6529: -- raise exception if error
6530: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6532: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6533: RAISE OKL_API.G_EXCEPTION_ERROR;
6534: END IF;
6535:
6536: -- set the return status and out variables
6529: -- raise exception if error
6530: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6532: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6533: RAISE OKL_API.G_EXCEPTION_ERROR;
6534: END IF;
6535:
6536: -- set the return status and out variables
6537: x_return_status := l_return_status;
6537: x_return_status := l_return_status;
6538:
6539:
6540: -- end the transaction
6541: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6542: IF (is_debug_procedure_on) THEN
6543: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
6544: END IF;
6545:
6545:
6546: EXCEPTION
6547:
6548:
6549: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6550: IF (is_debug_exception_on) THEN
6551: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
6552: END IF;
6553:
6550: IF (is_debug_exception_on) THEN
6551: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
6552: END IF;
6553:
6554: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6555: (
6556: l_api_name,
6557: G_PKG_NAME,
6558: 'OKL_API.G_RET_STS_ERROR',
6554: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6555: (
6556: l_api_name,
6557: G_PKG_NAME,
6558: 'OKL_API.G_RET_STS_ERROR',
6559: x_msg_count,
6560: x_msg_data,
6561: '_PVT'
6562: );
6561: '_PVT'
6562: );
6563:
6564:
6565: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6566: IF (is_debug_exception_on) THEN
6567: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
6568: END IF;
6569:
6566: IF (is_debug_exception_on) THEN
6567: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
6568: END IF;
6569:
6570: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6571: (
6572: l_api_name,
6573: G_PKG_NAME,
6574: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6570: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6571: (
6572: l_api_name,
6573: G_PKG_NAME,
6574: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6575: x_msg_count,
6576: x_msg_data,
6577: '_PVT'
6578: );
6583: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
6584: || sqlcode || ' , SQLERRM : ' || sqlerrm);
6585: END IF;
6586:
6587: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6588: (
6589: l_api_name,
6590: G_PKG_NAME,
6591: 'OTHERS',
6618: p_tqlv_tbl IN tqlv_tbl_type) IS
6619:
6620:
6621:
6622: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6623: lp_tqlv_tbl tqlv_tbl_type := p_tqlv_tbl;
6624: l_api_name VARCHAR2(30) := 'delete_quote_line';
6625: l_api_version CONSTANT NUMBER := 1;
6626: i NUMBER;
6638: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tqlv_tbl.COUNT: ' || p_tqlv_tbl.COUNT);
6639: END IF;
6640:
6641: --Check API version, initialize message list and create savepoint.
6642: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
6643: G_PKG_NAME,
6644: p_init_msg_list,
6645: l_api_version,
6646: p_api_version,
6648: x_return_status);
6649:
6650:
6651: -- raise exception if error
6652: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6654: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6655: RAISE OKL_API.G_EXCEPTION_ERROR;
6656: END IF;
6649:
6650:
6651: -- raise exception if error
6652: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6654: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6655: RAISE OKL_API.G_EXCEPTION_ERROR;
6656: END IF;
6657:
6650:
6651: -- raise exception if error
6652: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6654: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6655: RAISE OKL_API.G_EXCEPTION_ERROR;
6656: END IF;
6657:
6658:
6651: -- raise exception if error
6652: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6654: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6655: RAISE OKL_API.G_EXCEPTION_ERROR;
6656: END IF;
6657:
6658:
6659: -- Loop thru the input tbl and call the rec type API
6675: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called delete_quote_line , return status: ' || l_return_status);
6676: END IF;
6677:
6678: -- raise exception if error
6679: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6681: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6682: RAISE OKL_API.G_EXCEPTION_ERROR;
6683: END IF;
6676: END IF;
6677:
6678: -- raise exception if error
6679: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6681: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6682: RAISE OKL_API.G_EXCEPTION_ERROR;
6683: END IF;
6684:
6677:
6678: -- raise exception if error
6679: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6681: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6682: RAISE OKL_API.G_EXCEPTION_ERROR;
6683: END IF;
6684:
6685: EXIT WHEN (i = lp_tqlv_tbl.LAST);
6678: -- raise exception if error
6679: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6681: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6682: RAISE OKL_API.G_EXCEPTION_ERROR;
6683: END IF;
6684:
6685: EXIT WHEN (i = lp_tqlv_tbl.LAST);
6686: i := lp_tqlv_tbl.NEXT(i);
6693: x_return_status := l_return_status;
6694:
6695:
6696: -- end the transaction
6697: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6698: IF (is_debug_procedure_on) THEN
6699: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
6700: END IF;
6701:
6701:
6702: EXCEPTION
6703:
6704:
6705: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6706: IF (is_debug_exception_on) THEN
6707: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
6708: END IF;
6709:
6706: IF (is_debug_exception_on) THEN
6707: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
6708: END IF;
6709:
6710: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6711: (
6712: l_api_name,
6713: G_PKG_NAME,
6714: 'OKL_API.G_RET_STS_ERROR',
6710: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6711: (
6712: l_api_name,
6713: G_PKG_NAME,
6714: 'OKL_API.G_RET_STS_ERROR',
6715: x_msg_count,
6716: x_msg_data,
6717: '_PVT'
6718: );
6717: '_PVT'
6718: );
6719:
6720:
6721: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6722: IF (is_debug_exception_on) THEN
6723: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
6724: END IF;
6725:
6722: IF (is_debug_exception_on) THEN
6723: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
6724: END IF;
6725:
6726: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6727: (
6728: l_api_name,
6729: G_PKG_NAME,
6730: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6726: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6727: (
6728: l_api_name,
6729: G_PKG_NAME,
6730: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6731: x_msg_count,
6732: x_msg_data,
6733: '_PVT'
6734: );
6739: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
6740: || sqlcode || ' , SQLERRM : ' || sqlerrm);
6741: END IF;
6742:
6743: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6744: (
6745: l_api_name,
6746: G_PKG_NAME,
6747: 'OTHERS',