[Home] [Help]
197:
198: l_rulv_rec OKL_RULE_PUB.rulv_rec_type;
199: l_params OKL_EXECUTE_FORMULA_PUB.ctxt_val_tbl_type;
200:
201: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
202: l_dummy_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
203: -- asawanka added for debug feature start
204: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_auto_invoice_yn';
205: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
198: l_rulv_rec OKL_RULE_PUB.rulv_rec_type;
199: l_params OKL_EXECUTE_FORMULA_PUB.ctxt_val_tbl_type;
200:
201: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
202: l_dummy_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
203: -- asawanka added for debug feature start
204: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_auto_invoice_yn';
205: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
206: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
219: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
220: END IF;
221: -- Check if no quote and if new rule says Y
222: IF p_term_rec.p_quote_id IS NULL
223: OR p_term_rec.p_quote_id = OKL_API.G_MISS_NUM THEN -- means end of term processing
224:
225: l_rgd_code := 'AMTFOC'; -- End of Term Purchase Option
226: l_rule_code := 'AMTINV'; -- Automatically Invoice for Fixed Purchase Option
227:
244: IF (is_debug_statement_on) THEN
245: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Called OKL_AM_UTIL_PVT.get_rule_record l_return_status = '||l_return_status);
246: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
247: END IF;
248: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
249: l_auto_invoce_yn := nvl(l_rulv_rec.rule_information1,'N'); -- Automatically Invoice YN, NULL is considered N
250: END IF;
251: END IF;
252:
263: WHEN OTHERS THEN
264: IF (is_debug_exception_on) THEN
265: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
266: END IF;
267: x_return_status := OKL_API.G_RET_STS_ERROR;
268: END check_auto_invoice_yn;
269:
270: -- Start of comments
271: --
297:
298: l_rulv_rec OKL_RULE_PUB.rulv_rec_type;
299: l_params OKL_EXECUTE_FORMULA_PUB.ctxt_val_tbl_type;
300:
301: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
302: l_dummy_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
303: l_line_oec NUMBER;
304: l_contract_oec NUMBER;
305: G_EXCEPTION_ERROR EXCEPTION;
298: l_rulv_rec OKL_RULE_PUB.rulv_rec_type;
299: l_params OKL_EXECUTE_FORMULA_PUB.ctxt_val_tbl_type;
300:
301: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
302: l_dummy_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
303: l_line_oec NUMBER;
304: l_contract_oec NUMBER;
305: G_EXCEPTION_ERROR EXCEPTION;
306:
346: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information3 = '||l_rulv_rec.rule_information3);
347: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information4 = '||l_rulv_rec.rule_information4);
348: END IF;
349:
350: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
351: l_calc_option := l_rulv_rec.rule_information1; -- Purchase Option
352: l_fixed_value := NVL (TO_NUMBER (l_rulv_rec.rule_information2), 0); -- Purchase Option Amount
353: l_formula_name := l_rulv_rec.rule_information3; -- Purchase Option Formula
354: l_prorate := l_rulv_rec.rule_information4; -- Purchase Option Prorate
381: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Called OKL_AM_UTIL_PVT.get_formula_value l_return_status = '||l_return_status);
382: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_formula_value = '||l_formula_value);
383: END IF;
384:
385: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
386: RAISE G_EXCEPTION_ERROR;
387: ELSE
388: l_purchase_amount := l_formula_value;
389: END IF;
406: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Called OKL_AM_UTIL_PVT.get_formula_value l_return_status = '||l_return_status);
407: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_formula_value = '||l_formula_value);
408: END IF;
409:
410: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
411: RAISE G_EXCEPTION_ERROR;
412: END IF;
413:
414: -- Get contract oec
427: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_formula_value = '||l_formula_value);
428: END IF;
429:
430:
431: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
432: RAISE G_EXCEPTION_ERROR;
433: END IF;
434:
435: IF l_contract_oec <> 0 THEN
450: WHEN G_EXCEPTION_ERROR THEN
451: IF (is_debug_exception_on) THEN
452: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
453: END IF;
454: x_return_status := OKL_API.G_RET_STS_ERROR;
455: WHEN OTHERS THEN
456: IF (is_debug_exception_on) THEN
457: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
458: END IF;
456: IF (is_debug_exception_on) THEN
457: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
458: END IF;
459:
460: x_return_status := OKL_API.G_RET_STS_ERROR;
461: END get_purchase_amount;
462:
463: -- Start of comments
464: --
501: IF (is_debug_procedure_on) THEN
502: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
503: END IF;
504:
505: x_return_status := OKL_API.G_RET_STS_SUCCESS;
506:
507: IF (is_debug_statement_on) THEN
508: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_khr_id = '||p_khr_id);
509: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_tcn_id = '||p_tcn_id);
529: IF (is_debug_exception_on) THEN
530: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
531: END IF;
532:
533: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
534:
535: -- Set the oracle error message
536: OKL_API.set_message(
537: p_app_name => OKC_API.G_APP_NAME,
532:
533: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
534:
535: -- Set the oracle error message
536: OKL_API.set_message(
537: p_app_name => OKC_API.G_APP_NAME,
538: p_msg_name => g_unexpected_error,
539: p_token1 => g_sqlcode_token,
540: p_token1_value => SQLCODE,
605: l_group_reclass_options_rec FA_API_TYPES.group_reclass_options_rec_type;
606: l_asset_fin_mrc_tbl_new FA_API_TYPES.asset_fin_tbl_type;
607:
608:
609: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
610: delink_exception EXCEPTION;
611:
612: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'delink_contract_from_asset';
613: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
620: IF (is_debug_procedure_on) THEN
621: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
622: END IF;
623:
624: x_return_status := OKL_API.G_RET_STS_SUCCESS;
625:
626: IF (is_debug_statement_on) THEN
627: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_khr_id = '||p_khr_id);
628: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_sts_code = '||p_sts_code);
631: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_full_term_yn = '||nvl(p_full_term_yn,'Y'));
632: END IF;
633:
634:
635: IF p_khr_id IS NULL OR p_khr_id = OKL_API.G_MISS_NUM THEN
636: x_return_status := OKL_API.G_RET_STS_ERROR;
637: -- chr id is required
638: OKC_API.set_message( p_app_name => 'OKC',
639: p_msg_name => G_REQUIRED_VALUE,
632: END IF;
633:
634:
635: IF p_khr_id IS NULL OR p_khr_id = OKL_API.G_MISS_NUM THEN
636: x_return_status := OKL_API.G_RET_STS_ERROR;
637: -- chr id is required
638: OKC_API.set_message( p_app_name => 'OKC',
639: p_msg_name => G_REQUIRED_VALUE,
640: p_token1 => G_COL_NAME_TOKEN,
642: RAISE delink_exception;
643: END IF;
644:
645: -- rmunjulu modified to check for statusonly in case of full termination
646: IF nvl(p_full_term_yn,'Y') = 'Y' AND (p_sts_code IS NULL OR p_sts_code = OKL_API.G_MISS_CHAR) THEN
647: x_return_status := OKL_API.G_RET_STS_ERROR;
648: -- Status code is required
649: OKC_API.set_message( p_app_name => 'OKC',
650: p_msg_name => G_REQUIRED_VALUE,
643: END IF;
644:
645: -- rmunjulu modified to check for statusonly in case of full termination
646: IF nvl(p_full_term_yn,'Y') = 'Y' AND (p_sts_code IS NULL OR p_sts_code = OKL_API.G_MISS_CHAR) THEN
647: x_return_status := OKL_API.G_RET_STS_ERROR;
648: -- Status code is required
649: OKC_API.set_message( p_app_name => 'OKC',
650: p_msg_name => G_REQUIRED_VALUE,
651: p_token1 => G_COL_NAME_TOKEN,
652: p_token1_value => 'Contract Status Code');
653: RAISE delink_exception;
654: END IF;
655:
656: IF p_quote_accpt_date IS NULL OR p_quote_accpt_date = OKL_API.G_MISS_DATE THEN
657: x_return_status := OKL_API.G_RET_STS_ERROR;
658: -- Quote Acceptance Date is required
659: OKC_API.set_message( p_app_name => 'OKC',
660: p_msg_name => G_REQUIRED_VALUE,
653: RAISE delink_exception;
654: END IF;
655:
656: IF p_quote_accpt_date IS NULL OR p_quote_accpt_date = OKL_API.G_MISS_DATE THEN
657: x_return_status := OKL_API.G_RET_STS_ERROR;
658: -- Quote Acceptance Date is required
659: OKC_API.set_message( p_app_name => 'OKC',
660: p_msg_name => G_REQUIRED_VALUE,
661: p_token1 => G_COL_NAME_TOKEN,
662: p_token1_value => 'Quote Acceptance Date');
663: RAISE delink_exception;
664: END IF;
665:
666: IF p_quote_eff_date IS NULL OR p_quote_eff_date = OKL_API.G_MISS_DATE THEN
667: x_return_status := OKL_API.G_RET_STS_ERROR;
668: -- Quote Effective Date is required
669: OKC_API.set_message( p_app_name => 'OKC',
670: p_msg_name => G_REQUIRED_VALUE,
663: RAISE delink_exception;
664: END IF;
665:
666: IF p_quote_eff_date IS NULL OR p_quote_eff_date = OKL_API.G_MISS_DATE THEN
667: x_return_status := OKL_API.G_RET_STS_ERROR;
668: -- Quote Effective Date is required
669: OKC_API.set_message( p_app_name => 'OKC',
670: p_msg_name => G_REQUIRED_VALUE,
671: p_token1 => G_COL_NAME_TOKEN,
878: IF l_fabooks_csr%ISOPEN THEN
879: CLOSE l_fabooks_csr;
880: END IF;
881:
882: x_return_status := OKL_API.G_RET_STS_ERROR;
883: WHEN OTHERS THEN
884:
885: IF (is_debug_exception_on) THEN
886: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
893: IF l_fabooks_csr%ISOPEN THEN
894: CLOSE l_fabooks_csr;
895: END IF;
896:
897: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
898:
899: -- Set the oracle error message
900: OKL_API.set_message(
901: p_app_name => OKC_API.G_APP_NAME,
896:
897: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
898:
899: -- Set the oracle error message
900: OKL_API.set_message(
901: p_app_name => OKC_API.G_APP_NAME,
902: p_msg_name => g_unexpected_error,
903: p_token1 => g_sqlcode_token,
904: p_token1_value => SQLCODE,
950:
951: --sechawla 18-dec-07 6690811
952: l_k_sts_code VARCHAR2(30);
953:
954: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
955: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
956:
957: l_k_end_date DATE := OKL_API.G_MISS_DATE;
958:
951: --sechawla 18-dec-07 6690811
952: l_k_sts_code VARCHAR2(30);
953:
954: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
955: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
956:
957: l_k_end_date DATE := OKL_API.G_MISS_DATE;
958:
959: l_early_term_yn VARCHAR2(1) := G_NO;
953:
954: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
955: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
956:
957: l_k_end_date DATE := OKL_API.G_MISS_DATE;
958:
959: l_early_term_yn VARCHAR2(1) := G_NO;
960:
961: l_trn_already_set VARCHAR2(3);
1018: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called check_k_evergreen_ear l_return_status = '||l_return_status);
1019: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_evergreen_earlier = '||l_evergreen_earlier);
1020: END IF;
1021:
1022: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1023:
1024: -- Error occurred during the creation of an amortization transaction
1025: -- for assets of contract CONTRACT_NUMBER.
1026: OKL_API.set_message( p_app_name => G_APP_NAME,
1022: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1023:
1024: -- Error occurred during the creation of an amortization transaction
1025: -- for assets of contract CONTRACT_NUMBER.
1026: OKL_API.set_message( p_app_name => G_APP_NAME,
1027: p_msg_name => 'OKL_AM_ERR_AMORTIZE',
1028: p_token1 => 'CONTRACT_NUMBER',
1029: p_token1_value => p_term_rec.p_contract_number);
1030:
1044: l_quote_accpt_date := l_k_end_date; -- rmunjulu 4150696 Changed to pass contract end date
1045: l_quote_eff_date := l_k_end_date; -- rmunjulu 4150696 Changed to pass contract end date
1046:
1047: END IF;
1048: IF (l_k_end_date <> OKL_API.G_MISS_DATE)
1049: AND (TRUNC(l_k_end_date) > TRUNC(l_quote_eff_date)) THEN -- rmunjulu EDAT
1050: l_early_term_yn := G_YES;
1051: END IF;
1052: --sechawla 18-dec-07 6690811 : end move
1058: --and also when contract is changing to Evergreen
1059:
1060: -- RMUNJULU 3018641 Step Message
1061: -- Step : Amortization
1062: OKL_API.set_message(
1063: p_app_name => G_APP_NAME,
1064: p_msg_name => 'OKL_AM_STEP_AMT');
1065:
1066: -- call amortization
1091:
1092: -- rmunjulu +++++++++ Effective Dated Termination -- end ++++++++++++++++
1093:
1094: /* --sechawla 18-dec-07 6690811 : Moved outside the IF
1095: IF (l_k_end_date <> OKL_API.G_MISS_DATE)
1096: AND (TRUNC(l_k_end_date) > TRUNC(l_quote_eff_date)) THEN -- rmunjulu EDAT
1097: l_early_term_yn := G_YES;
1098: END IF;
1099: */
1105: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_accpt_date = '||l_quote_accpt_date);
1106: END IF;
1107: OKL_AM_AMORTIZE_PUB.create_offlease_asset_trx(
1108: p_api_version => p_api_version,
1109: p_init_msg_list => OKL_API.G_FALSE,
1110: x_return_status => l_return_status,
1111: x_msg_count => x_msg_count,
1112: x_msg_data => x_msg_data,
1113: p_contract_id => p_term_rec.p_contract_id,
1117:
1118: IF (is_debug_statement_on) THEN
1119: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_AMORTIZE_PUB.create_offlease_asset_trx l_return_status = '||l_return_status);
1120: END IF;
1121: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1122:
1123: -- Error occurred during the creation of an amortization transaction
1124: -- for assets of contract CONTRACT_NUMBER.
1125: OKL_API.set_message( p_app_name => G_APP_NAME,
1121: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1122:
1123: -- Error occurred during the creation of an amortization transaction
1124: -- for assets of contract CONTRACT_NUMBER.
1125: OKL_API.set_message( p_app_name => G_APP_NAME,
1126: p_msg_name => 'OKL_AM_ERR_AMORTIZE',
1127: p_token1 => 'CONTRACT_NUMBER',
1128: p_token1_value => p_term_rec.p_contract_number);
1129:
1129:
1130: END IF;
1131:
1132: -- Raise exception to rollback to savepoint if error
1133: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1134: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1135: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1136: RAISE OKL_API.G_EXCEPTION_ERROR;
1137: END IF;
1130: END IF;
1131:
1132: -- Raise exception to rollback to savepoint if error
1133: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1134: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1135: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1136: RAISE OKL_API.G_EXCEPTION_ERROR;
1137: END IF;
1138:
1131:
1132: -- Raise exception to rollback to savepoint if error
1133: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1134: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1135: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1136: RAISE OKL_API.G_EXCEPTION_ERROR;
1137: END IF;
1138:
1139:
1132: -- Raise exception to rollback to savepoint if error
1133: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1134: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1135: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1136: RAISE OKL_API.G_EXCEPTION_ERROR;
1137: END IF;
1138:
1139:
1140: -- store the highest degree of error
1194: p_tsu_code => 'WORKING',
1195: px_tcnv_rec => px_tcnv_rec);
1196:
1197: -- rmunjulu bug 6853566
1198: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1199:
1200: -- Error occurred during the creation of an amortization transaction
1201: -- for assets of contract CONTRACT_NUMBER.
1202: OKL_API.set_message( p_app_name => G_APP_NAME,
1198: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1199:
1200: -- Error occurred during the creation of an amortization transaction
1201: -- for assets of contract CONTRACT_NUMBER.
1202: OKL_API.set_message( p_app_name => G_APP_NAME,
1203: p_msg_name => 'OKL_AM_ERR_AMORTIZE',
1204: p_token1 => 'CONTRACT_NUMBER',
1205: p_token1_value => p_term_rec.p_contract_number);
1206:
1205: p_token1_value => p_term_rec.p_contract_number);
1206:
1207: END IF;
1208:
1209: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1211: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1212: RAISE OKL_API.G_EXCEPTION_ERROR;
1213: END IF;
1206:
1207: END IF;
1208:
1209: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1211: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1212: RAISE OKL_API.G_EXCEPTION_ERROR;
1213: END IF;
1214: END IF;
1207: END IF;
1208:
1209: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1211: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1212: RAISE OKL_API.G_EXCEPTION_ERROR;
1213: END IF;
1214: END IF;
1215: --sechawla 21-dec-07 6690811 - Delink Contract ID upon full termination of a Booked contract - end
1208:
1209: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1211: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1212: RAISE OKL_API.G_EXCEPTION_ERROR;
1213: END IF;
1214: END IF;
1215: --sechawla 21-dec-07 6690811 - Delink Contract ID upon full termination of a Booked contract - end
1216:
1224: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1225: END IF;
1226:
1227: EXCEPTION
1228: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1229: IF (is_debug_exception_on) THEN
1230: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
1231: END IF;
1232:
1235: END IF;
1236:
1237: ROLLBACK TO asset_amortize;
1238:
1239: x_return_status := OKL_API.G_RET_STS_ERROR;
1240:
1241: -- store the highest degree of error
1242: set_overall_status(
1243: p_return_status => x_return_status,
1259: p_tsu_code => 'ERROR',
1260: p_ret_val => NULL,
1261: px_tcnv_rec => px_tcnv_rec);
1262:
1263: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1264: IF (is_debug_exception_on) THEN
1265: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
1266: END IF;
1267:
1270: END IF;
1271:
1272: ROLLBACK TO asset_amortize;
1273:
1274: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1275:
1276: -- store the highest degree of error
1277: set_overall_status(
1278: p_return_status => x_return_status,
1305: END IF;
1306:
1307: ROLLBACK TO asset_amortize;
1308:
1309: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1310:
1311: -- store the highest degree of error
1312: set_overall_status(
1313: p_return_status => x_return_status,
1330: p_ret_val => NULL,
1331: px_tcnv_rec => px_tcnv_rec);
1332:
1333: -- Set the oracle error message
1334: OKL_API.set_message(
1335: p_app_name => OKC_API.G_APP_NAME,
1336: p_msg_name => g_unexpected_error,
1337: p_token1 => g_sqlcode_token,
1338: p_token1_value => SQLCODE,
1357: x_rule_found OUT NOCOPY VARCHAR2,
1358: x_msg_count OUT NOCOPY NUMBER,
1359: x_msg_data OUT NOCOPY VARCHAR2) IS
1360:
1361: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1362: l_rule_found VARCHAR2(1) := G_NO;
1363: l_rulv_rec OKL_AM_CALCULATE_QUOTE_PVT.rulv_rec_type;
1364: l_rule_code CONSTANT VARCHAR2(30) := 'LAEVEL';
1365:
1387: IF (is_debug_statement_on) THEN
1388: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_rule_record l_return_status = '||l_return_status);
1389: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
1390: END IF;
1391: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1392: IF (NVL (l_rulv_rec.rule_information1, '*') = G_YES) THEN
1393: l_rule_found := G_YES;
1394: END IF;
1395: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1391: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1392: IF (NVL (l_rulv_rec.rule_information1, '*') = G_YES) THEN
1393: l_rule_found := G_YES;
1394: END IF;
1395: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1396: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1397: l_rule_found := G_NO;
1398: END IF;
1399:
1392: IF (NVL (l_rulv_rec.rule_information1, '*') = G_YES) THEN
1393: l_rule_found := G_YES;
1394: END IF;
1395: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1396: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1397: l_rule_found := G_NO;
1398: END IF;
1399:
1400: x_return_status := l_return_status;
1404: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1405: END IF;
1406: EXCEPTION
1407:
1408: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1409: IF (is_debug_exception_on) THEN
1410: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
1411: END IF;
1412:
1409: IF (is_debug_exception_on) THEN
1410: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
1411: END IF;
1412:
1413: x_return_status := OKL_API.G_RET_STS_ERROR;
1414:
1415: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1416: IF (is_debug_exception_on) THEN
1417: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
1411: END IF;
1412:
1413: x_return_status := OKL_API.G_RET_STS_ERROR;
1414:
1415: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1416: IF (is_debug_exception_on) THEN
1417: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
1418: END IF;
1419:
1416: IF (is_debug_exception_on) THEN
1417: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
1418: END IF;
1419:
1420: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1421:
1422: WHEN OTHERS THEN
1423: IF (is_debug_exception_on) THEN
1424: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1424: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1425: END IF;
1426:
1427: -- Set the oracle error message
1428: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
1429: p_msg_name => g_unexpected_error,
1430: p_token1 => g_sqlcode_token,
1431: p_token1_value => SQLCODE,
1432: p_token2 => g_sqlerrm_token,
1430: p_token1 => g_sqlcode_token,
1431: p_token1_value => SQLCODE,
1432: p_token2 => g_sqlerrm_token,
1433: p_token2_value => SQLERRM);
1434: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1435: END evergreen_eligibility;
1436:
1437:
1438: -- Start of comments
1498: CLOSE k_lines_csr;
1499: END IF;
1500:
1501: -- Set the oracle error message
1502: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
1503: p_msg_name => g_unexpected_error,
1504: p_token1 => g_sqlcode_token,
1505: p_token1_value => SQLCODE,
1506: p_token2 => g_sqlerrm_token,
1539:
1540: l_try_id NUMBER;
1541: l_currency_code VARCHAR2(2000);
1542: l_trans_meaning VARCHAR2(200);
1543: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1544: --20-NOV-2006 ANSETHUR R12B - LEGAL ENTITY UPTAKE PROJECT
1545: l_legal_entity_id NUMBER;
1546: --akrangan bug 5354501 fix start
1547: l_k_end_date DATE;
1563: IF (is_debug_procedure_on) THEN
1564: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1565: END IF;
1566:
1567: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1568: --20-NOV-2006 ANSETHUR R12B - LEGAL ENTITY UPTAKE PROJECT
1569: l_legal_entity_id := OKL_LEGAL_ENTITY_UTIL.get_khr_le_id (p_term_rec.p_contract_id);
1570: IF (is_debug_statement_on) THEN
1571: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_legal_entity_id = '||l_legal_entity_id);
1597: IF (l_evergreen_earlier <> 'Y'
1598: -- AND p_term_rec.p_control_flag LIKE 'BATCH_PROCESS%'
1599: AND TRUNC(l_k_end_date) <= TRUNC(p_sys_date)
1600: AND (p_term_rec.p_quote_id IS NULL
1601: OR p_term_rec.p_quote_id = OKL_API.G_MISS_NUM))THEN
1602:
1603: OKL_API.set_message(
1604: p_app_name => G_APP_NAME,
1605: p_msg_name => 'OKL_AM_STEP_EVR');
1599: AND TRUNC(l_k_end_date) <= TRUNC(p_sys_date)
1600: AND (p_term_rec.p_quote_id IS NULL
1601: OR p_term_rec.p_quote_id = OKL_API.G_MISS_NUM))THEN
1602:
1603: OKL_API.set_message(
1604: p_app_name => G_APP_NAME,
1605: p_msg_name => 'OKL_AM_STEP_EVR');
1606:
1607: -- get evergreen eligiblility
1615: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_return_status of evergreen_eligibility = '||l_return_status);
1616: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_rule_found = '||l_rule_found);
1617: END IF;
1618: -- Raise exception to rollback to the savepoint
1619: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1620:
1621: -- Error getting evergreen rule for contract.
1622: OKL_API.set_message(
1623: p_app_name => G_APP_NAME,
1618: -- Raise exception to rollback to the savepoint
1619: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1620:
1621: -- Error getting evergreen rule for contract.
1622: OKL_API.set_message(
1623: p_app_name => G_APP_NAME,
1624: p_msg_name => 'OKL_AM_EVERGREEN_RULE_ERR');
1625: RAISE OKL_API.G_EXCEPTION_ERROR;
1626: END IF;
1621: -- Error getting evergreen rule for contract.
1622: OKL_API.set_message(
1623: p_app_name => G_APP_NAME,
1624: p_msg_name => 'OKL_AM_EVERGREEN_RULE_ERR');
1625: RAISE OKL_API.G_EXCEPTION_ERROR;
1626: END IF;
1627: END IF;
1628:
1629: -- if control_flag = "batch process" and evergreen_status = "ok" then
1661: p_validate_yn => 'Y');
1662: IF (is_debug_statement_on) THEN
1663: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_trans_meaning = '||l_trans_meaning);
1664: END IF;
1665: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1666:
1667: -- Message: Unable to find a transaction type for the transaction TRY_NAME
1668: OKL_API.set_message(p_app_name => G_APP_NAME,
1669: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
1664: END IF;
1665: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1666:
1667: -- Message: Unable to find a transaction type for the transaction TRY_NAME
1668: OKL_API.set_message(p_app_name => G_APP_NAME,
1669: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
1670: p_token1 => 'TRY_NAME',
1671: p_token1_value => l_trans_meaning);
1672:
1669: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
1670: p_token1 => 'TRY_NAME',
1671: p_token1_value => l_trans_meaning);
1672:
1673: RAISE OKL_API.G_EXCEPTION_ERROR;
1674: END IF;
1675:
1676: -- Get the contract currency code
1677: l_currency_code := OKL_AM_UTIL_PVT.get_chr_currency(p_term_rec.p_contract_id);
1689:
1690:
1691: -- RMUNJULU 05-MAR-03 Get the tmt_recycle_yn flag if set and put in GLOBAL variable
1692: IF px_tcnv_rec.tmt_recycle_yn IS NULL
1693: OR px_tcnv_rec.tmt_recycle_yn = OKL_API.G_MISS_CHAR THEN
1694: G_TMT_RECYCLE_YN := NULL;
1695: ELSE
1696: G_TMT_RECYCLE_YN := px_tcnv_rec.tmt_recycle_yn;
1697: END IF;
1706: --20-NOV-2006 ANSETHUR R12B - LEGAL ENTITY UPTAKE PROJECT
1707: px_tcnv_rec.legal_entity_id := l_legal_entity_id;
1708:
1709: -- set the termination reason (TRN_CODE)
1710: IF (p_term_rec.p_termination_reason <> OKL_API.G_MISS_CHAR)
1711: AND (p_term_rec.p_termination_reason IS NOT NULL) THEN
1712: px_tcnv_rec.trn_code := p_term_rec.p_termination_reason;
1713: ELSE
1714: px_tcnv_rec.trn_code := 'EXP';
1717: IF (is_debug_procedure_on) THEN
1718: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1719: END IF;
1720: EXCEPTION
1721: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1722: IF (is_debug_exception_on) THEN
1723: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
1724: END IF;
1725:
1722: IF (is_debug_exception_on) THEN
1723: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
1724: END IF;
1725:
1726: x_return_status := OKL_API.G_RET_STS_ERROR;
1727: WHEN OTHERS THEN
1728: IF (is_debug_exception_on) THEN
1729: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1730: END IF;
1728: IF (is_debug_exception_on) THEN
1729: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1730: END IF;
1731:
1732: OKL_API.set_message(
1733: p_app_name => OKC_API.G_APP_NAME,
1734: p_msg_name => g_unexpected_error,
1735: p_token1 => g_sqlcode_token,
1736: p_token1_value => SQLCODE,
1735: p_token1 => g_sqlcode_token,
1736: p_token1_value => SQLCODE,
1737: p_token2 => g_sqlerrm_token,
1738: p_token2_value => SQLERRM);
1739: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1740: END initialize_transaction;
1741:
1742:
1743: -- Start of comments
1777:
1778: k_lines_rec k_lines_csr%ROWTYPE;
1779: lx_klev_tbl klev_tbl_type;
1780: i NUMBER := 1;
1781: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1782: l_api_name VARCHAR2(30) := 'get_contract_lines';
1783:
1784: -- asawanka added for debug feature start
1785: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_contract_lines';
1791: IF (is_debug_procedure_on) THEN
1792: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1793: END IF;
1794:
1795: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1796: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1797: p_init_msg_list,
1798: '_PVT',
1799: x_return_status);
1792: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1793: END IF;
1794:
1795: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1796: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1797: p_init_msg_list,
1798: '_PVT',
1799: x_return_status);
1800:
1797: p_init_msg_list,
1798: '_PVT',
1799: x_return_status);
1800:
1801: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1803: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1804: RAISE OKL_API.G_EXCEPTION_ERROR;
1805: END IF;
1798: '_PVT',
1799: x_return_status);
1800:
1801: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1803: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1804: RAISE OKL_API.G_EXCEPTION_ERROR;
1805: END IF;
1806: IF (is_debug_statement_on) THEN
1799: x_return_status);
1800:
1801: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1803: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1804: RAISE OKL_API.G_EXCEPTION_ERROR;
1805: END IF;
1806: IF (is_debug_statement_on) THEN
1807: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
1800:
1801: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1803: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1804: RAISE OKL_API.G_EXCEPTION_ERROR;
1805: END IF;
1806: IF (is_debug_statement_on) THEN
1807: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
1808: END IF;
1815: END LOOP;
1816:
1817: x_return_status := l_return_status;
1818: x_klev_tbl := lx_klev_tbl;
1819: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1820: IF (is_debug_procedure_on) THEN
1821: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1822: END IF;
1823: EXCEPTION
1820: IF (is_debug_procedure_on) THEN
1821: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1822: END IF;
1823: EXCEPTION
1824: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1825: IF (is_debug_exception_on) THEN
1826: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
1827: END IF;
1828:
1825: IF (is_debug_exception_on) THEN
1826: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
1827: END IF;
1828:
1829: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1830: (
1831: l_api_name,
1832: G_PKG_NAME,
1833: 'OKL_API.G_RET_STS_ERROR',
1829: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1830: (
1831: l_api_name,
1832: G_PKG_NAME,
1833: 'OKL_API.G_RET_STS_ERROR',
1834: x_msg_count,
1835: x_msg_data,
1836: '_PVT'
1837: );
1834: x_msg_count,
1835: x_msg_data,
1836: '_PVT'
1837: );
1838: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1839: IF (is_debug_exception_on) THEN
1840: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
1841: END IF;
1842:
1839: IF (is_debug_exception_on) THEN
1840: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
1841: END IF;
1842:
1843: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1844: (
1845: l_api_name,
1846: G_PKG_NAME,
1847: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1843: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1844: (
1845: l_api_name,
1846: G_PKG_NAME,
1847: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1848: x_msg_count,
1849: x_msg_data,
1850: '_PVT'
1851: );
1853: IF (is_debug_exception_on) THEN
1854: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1855: END IF;
1856:
1857: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1858: (
1859: l_api_name,
1860: G_PKG_NAME,
1861: 'OTHERS',
1891:
1892: -- Store the highest degree of error
1893: -- Set p_overall_status only if p_overall_status was successful and
1894: -- p_return_status is not null
1895: IF px_overall_status = OKL_API.G_RET_STS_SUCCESS
1896: AND (p_return_status IS NOT NULL
1897: OR p_return_status <> OKL_API.G_MISS_CHAR) THEN
1898: px_overall_status := p_return_status;
1899: END IF;
1893: -- Set p_overall_status only if p_overall_status was successful and
1894: -- p_return_status is not null
1895: IF px_overall_status = OKL_API.G_RET_STS_SUCCESS
1896: AND (p_return_status IS NOT NULL
1897: OR p_return_status <> OKL_API.G_MISS_CHAR) THEN
1898: px_overall_status := p_return_status;
1899: END IF;
1900: IF (is_debug_procedure_on) THEN
1901: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1906: IF (is_debug_exception_on) THEN
1907: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1908: END IF;
1909:
1910: OKL_API.set_message(
1911: p_app_name => OKC_API.G_APP_NAME,
1912: p_msg_name => g_unexpected_error,
1913: p_token1 => g_sqlcode_token,
1914: p_token1_value => SQLCODE,
1965: END LOOP;
1966:
1967: -- If the termination request is from quote, populate the rest of the quote attributes
1968: IF px_term_rec.p_quote_id IS NOT NULL
1969: AND px_term_rec.p_quote_id <> OKL_API.G_MISS_NUM THEN
1970:
1971: FOR get_quote_details_rec IN get_quote_details_csr(px_term_rec.p_quote_id) LOOP
1972:
1973: px_term_rec.p_quote_type := get_quote_details_rec.qtp_code;
1985: IF (is_debug_exception_on) THEN
1986: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1987: END IF;
1988:
1989: OKL_API.set_message(
1990: p_app_name => OKC_API.G_APP_NAME,
1991: p_msg_name => g_unexpected_error,
1992: p_token1 => g_sqlcode_token,
1993: p_token1_value => SQLCODE,
2026: -- Check and Set the message saying where the termination request came from
2027: IF (p_term_rec.p_control_flag = 'CONTRACT_TERMINATE_SCRN') THEN
2028: -- Message: Termination request from Request Contract Termination screen
2029: -- for contract CONTRACT_NUMBER.
2030: OKL_API.set_message( p_app_name => G_APP_NAME,
2031: p_msg_name => 'OKL_AM_TERM_REQ_FRM_SCRN',
2032: p_token1 => 'CONTRACT_NUMBER',
2033: p_token1_value => p_term_rec.p_contract_number);
2034:
2033: p_token1_value => p_term_rec.p_contract_number);
2034:
2035: -- Set the additional message to let the user know if there was a quote
2036: IF p_term_rec.p_quote_id IS NOT NULL
2037: AND p_term_rec.p_quote_id <> OKL_API.G_MISS_NUM THEN
2038:
2039: -- Get the lookup meaning for quote type
2040: l_quote_type := OKL_AM_UTIL_PVT.get_lookup_meaning(
2041: p_lookup_type => 'OKL_QUOTE_TYPE',
2043: p_validate_yn => G_YES);
2044:
2045: --Message:Termination request from accepted QUOTE_TYPE
2046: -- for contract CONTRACT_NUMBER.
2047: OKL_API.set_message( p_app_name => G_APP_NAME,
2048: p_msg_name => 'OKL_AM_TERM_REQ_FRM_QTE',
2049: p_token1 => 'QUOTE_TYPE',
2050: p_token1_value => l_quote_type,
2051: p_token2 => 'CONTRACT_NUMBER',
2061: p_validate_yn => G_YES);
2062:
2063: --Message:Termination request from accepted QUOTE_TYPE
2064: -- for contract CONTRACT_NUMBER.
2065: OKL_API.set_message( p_app_name => G_APP_NAME,
2066: p_msg_name => 'OKL_AM_TERM_REQ_FRM_QTE',
2067: p_token1 => 'QUOTE_TYPE',
2068: p_token1_value => l_quote_type,
2069: p_token2 => 'CONTRACT_NUMBER',
2070: p_token2_value => p_term_rec.p_contract_number);
2071:
2072: ELSIF (p_term_rec.p_control_flag = 'BATCH_PROCESS') THEN
2073: -- Message : Auto termination request for contract CONTRACT_NUMBER.
2074: OKL_API.set_message( p_app_name => G_APP_NAME,
2075: p_msg_name => 'OKL_AM_AUTO_TERM_REQ',
2076: p_token1 => 'CONTRACT_NUMBER',
2077: p_token1_value => p_term_rec.p_contract_number);
2078: END IF;
2085: IF (is_debug_exception_on) THEN
2086: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
2087: END IF;
2088:
2089: OKL_API.set_message(
2090: p_app_name => OKC_API.G_APP_NAME,
2091: p_msg_name => g_unexpected_error,
2092: p_token1 => g_sqlcode_token,
2093: p_token1_value => SQLCODE,
2124: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2125: END IF;
2126:
2127: -- set the transaction record
2128: IF (p_overall_status = OKL_API.G_RET_STS_SUCCESS) THEN
2129: px_tcnv_rec.tmt_status_code := p_tsu_code; --akrangan changes for sla tmt_status_code cr
2130: ELSE
2131: px_tcnv_rec.tmt_status_code := 'ERROR'; --akrangan changes for sla tmt_status_code cr
2132: END IF;
2130: ELSE
2131: px_tcnv_rec.tmt_status_code := 'ERROR'; --akrangan changes for sla tmt_status_code cr
2132: END IF;
2133:
2134: IF (p_ret_val = OKL_API.G_MISS_CHAR) THEN -- No value for p_ret_val
2135: IF (p_return_status = OKL_API.G_RET_STS_SUCCESS) THEN -- ret stat success
2136: IF (p_tmt_flag = 'TMT_EVERGREEN_YN') THEN
2137: px_tcnv_rec.TMT_EVERGREEN_YN := G_YES;
2138: ELSIF(p_tmt_flag = 'TMT_CLOSE_BALANCES_YN') THEN
2131: px_tcnv_rec.tmt_status_code := 'ERROR'; --akrangan changes for sla tmt_status_code cr
2132: END IF;
2133:
2134: IF (p_ret_val = OKL_API.G_MISS_CHAR) THEN -- No value for p_ret_val
2135: IF (p_return_status = OKL_API.G_RET_STS_SUCCESS) THEN -- ret stat success
2136: IF (p_tmt_flag = 'TMT_EVERGREEN_YN') THEN
2137: px_tcnv_rec.TMT_EVERGREEN_YN := G_YES;
2138: ELSIF(p_tmt_flag = 'TMT_CLOSE_BALANCES_YN') THEN
2139: px_tcnv_rec.TMT_CLOSE_BALANCES_YN := G_YES;
2237: IF (is_debug_exception_on) THEN
2238: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
2239: END IF;
2240:
2241: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
2242: p_msg_name => g_unexpected_error,
2243: p_token1 => g_sqlcode_token,
2244: p_token1_value => SQLCODE,
2245: p_token2 => g_sqlerrm_token,
2269: x_msg_data OUT NOCOPY VARCHAR2,
2270: p_sys_date IN DATE,
2271: p_term_rec IN term_rec_type) IS
2272:
2273: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2274: l_api_name VARCHAR2(30) := 'validate_lease';
2275:
2276: -- RMUNJULU 3061751 Added variables for SERVICE_K_INTEGRATION
2277: l_recycle_yn VARCHAR2(1) := 'N';
2334: IF (is_debug_procedure_on) THEN
2335: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2336: END IF;
2337:
2338: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2339:
2340: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2341: p_init_msg_list,
2342: '_PVT',
2336: END IF;
2337:
2338: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2339:
2340: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2341: p_init_msg_list,
2342: '_PVT',
2343: x_return_status);
2344:
2341: p_init_msg_list,
2342: '_PVT',
2343: x_return_status);
2344:
2345: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2347: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2348: RAISE OKL_API.G_EXCEPTION_ERROR;
2349: END IF;
2342: '_PVT',
2343: x_return_status);
2344:
2345: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2347: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2348: RAISE OKL_API.G_EXCEPTION_ERROR;
2349: END IF;
2350:
2343: x_return_status);
2344:
2345: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2347: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2348: RAISE OKL_API.G_EXCEPTION_ERROR;
2349: END IF;
2350:
2351: -- RMUNJULU 3018641 Step Message
2344:
2345: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2347: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2348: RAISE OKL_API.G_EXCEPTION_ERROR;
2349: END IF;
2350:
2351: -- RMUNJULU 3018641 Step Message
2352: -- Step : Validate Contract
2349: END IF;
2350:
2351: -- RMUNJULU 3018641 Step Message
2352: -- Step : Validate Contract
2353: OKL_API.set_message(
2354: p_app_name => G_APP_NAME,
2355: p_msg_name => 'OKL_AM_STEP_VAL');
2356:
2357: -- ADD ADDITIONAL VALIDATIONS HERE
2374: -- If concurrent request and not from quote
2375: -- -- RMUNJULU 3485854 Changed condition to check for request not from quote
2376: IF p_term_rec.p_control_flag LIKE 'BATCH%'
2377: -- AND l_recycle_yn = 'N' THEN
2378: AND (p_term_rec.p_quote_id IS NULL OR p_term_rec.p_quote_id = OKL_API.G_MISS_NUM) THEN
2379:
2380: -- 20-JAN-06 SECHAWLA 4970009 : not required since OKL_AM_LEASE_LOAN_TRMNT_PVT.check_int_calc_done has
2381: -- been modified to check for lease contracts ('FLOAT_FACTORS','REAMORT')
2382: /* -- gboomina Bug 4755490 - Start
2389: l_last_intrm_intrst_dt := get_last_intrm_intrst_dt_rec.date_last_interim_interest_cal;
2390: END LOOP;
2391: -- Check whether Float Factor Streams exist or not
2392: IF l_last_intrm_intrst_dt IS NULL THEN
2393: OKL_API.set_message( p_app_name => G_APP_NAME,
2394: p_msg_name => 'OKL_VAR_RATE_NOT_COMPLETED',
2395: p_token1 => 'CONTRACT_NUMBER',
2396: p_token1_value => p_term_rec.p_contract_number);
2397:
2394: p_msg_name => 'OKL_VAR_RATE_NOT_COMPLETED',
2395: p_token1 => 'CONTRACT_NUMBER',
2396: p_token1_value => p_term_rec.p_contract_number);
2397:
2398: RAISE OKL_API.G_EXCEPTION_ERROR;
2399: END IF;
2400: END IF;
2401: -- gboomina Bug 4755490 - End
2402: */ -- 20-JAN-06 SECHAWLA 4970009 : not required since OKL_AM_LEASE_LOAN_TRMNT_PVT.check_int_calc_done has
2426:
2427: IF l_int_calc_done IS NULL OR l_int_calc_done = 'N' THEN
2428:
2429: -- Message will be set in called procedure
2430: l_return_status := OKL_API.G_RET_STS_ERROR;
2431: END IF;
2432: -- 20-JAN-06 SECHAWLA 4970009 : added end
2433: IF (is_debug_statement_on) THEN
2434: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_AM_LEASE_LOAN_TRMNT_PVT.check_billing_done');
2444:
2445: IF l_billing_done IS NULL OR l_billing_done = 'N' THEN
2446:
2447: -- Message will be set in called procedure
2448: l_return_status := OKL_API.G_RET_STS_ERROR;
2449: END IF;
2450: IF (is_debug_statement_on) THEN
2451: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_GENERATE_ACCRUALS_PVT.check_date_accrued_till');
2452: END IF;
2462: IF (nvl(l_accrual_done,'N') = 'N' ) THEN
2463:
2464: -- Contract CONTRACT_NUMBER can not be terminated.
2465: -- Please run accruals for the contract till the termination date TERMINATION_DATE.
2466: OKL_API.set_message (
2467: p_app_name => OKL_API.G_APP_NAME,
2468: p_msg_name => 'OKL_AM_TERMNT_ACC_CHK',
2469: p_token1 => 'CONTRACT_NUMBER',
2470: p_token1_value => p_term_rec.p_contract_number,
2463:
2464: -- Contract CONTRACT_NUMBER can not be terminated.
2465: -- Please run accruals for the contract till the termination date TERMINATION_DATE.
2466: OKL_API.set_message (
2467: p_app_name => OKL_API.G_APP_NAME,
2468: p_msg_name => 'OKL_AM_TERMNT_ACC_CHK',
2469: p_token1 => 'CONTRACT_NUMBER',
2470: p_token1_value => p_term_rec.p_contract_number,
2471: p_token2 => 'TERMINATION_DATE',
2470: p_token1_value => p_term_rec.p_contract_number,
2471: p_token2 => 'TERMINATION_DATE',
2472: p_token2_value => p_sys_date);
2473:
2474: RAISE OKL_API.G_EXCEPTION_ERROR;
2475:
2476: END IF;
2477: END IF;
2478:
2478:
2479: -- ++++++++++++++++++++ service contract integration end ++++++++++++
2480:
2481: x_return_status := l_return_status;
2482: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2483: IF (is_debug_procedure_on) THEN
2484: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
2485: END IF;
2486:
2484: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
2485: END IF;
2486:
2487: EXCEPTION
2488: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2489: IF (is_debug_exception_on) THEN
2490: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
2491: END IF;
2492:
2497:
2498: IF get_trn_csr%ISOPEN THEN
2499: CLOSE get_trn_csr;
2500: END IF;
2501: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2502: (
2503: l_api_name,
2504: G_PKG_NAME,
2505: 'OKL_API.G_RET_STS_ERROR',
2501: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2502: (
2503: l_api_name,
2504: G_PKG_NAME,
2505: 'OKL_API.G_RET_STS_ERROR',
2506: x_msg_count,
2507: x_msg_data,
2508: '_PVT'
2509: );
2506: x_msg_count,
2507: x_msg_data,
2508: '_PVT'
2509: );
2510: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2511: IF (is_debug_exception_on) THEN
2512: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
2513: END IF;
2514:
2520: IF get_trn_csr%ISOPEN THEN
2521: CLOSE get_trn_csr;
2522: END IF;
2523:
2524: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2525: (
2526: l_api_name,
2527: G_PKG_NAME,
2528: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2524: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2525: (
2526: l_api_name,
2527: G_PKG_NAME,
2528: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2529: x_msg_count,
2530: x_msg_data,
2531: '_PVT'
2532: );
2543: IF get_trn_csr%ISOPEN THEN
2544: CLOSE get_trn_csr;
2545: END IF;
2546:
2547: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2548: (
2549: l_api_name,
2550: G_PKG_NAME,
2551: 'OTHERS',
2570:
2571: lp_qtev_rec OKL_TRX_QUOTES_PUB.qtev_rec_type;
2572: lx_qtev_rec OKL_TRX_QUOTES_PUB.qtev_rec_type;
2573:
2574: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2575:
2576: l_quote_status VARCHAR2(200) := 'COMPLETE';--'OKL_QUOTE_STATUS'
2577:
2578: lx_msg_count NUMBER;
2581: l_qst_code varchar2(200);
2582:
2583: l_tmt_status_code VARCHAR2(200);
2584:
2585: lx_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2586: lx_quotes_found VARCHAR2(1) := 'N';
2587: l_api_version NUMBER := 1;
2588: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'UPDATE_QUOTE_STATUS';
2589: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2662:
2663: -- Call the update of the quote header api
2664: OKL_TRX_QUOTES_PUB.update_trx_quotes (
2665: p_api_version => l_api_version,
2666: p_init_msg_list => OKL_API.G_FALSE,
2667: x_return_status => l_return_status,
2668: x_msg_count => lx_msg_count,
2669: x_msg_data => lx_msg_data,
2670: p_qtev_rec => lp_qtev_rec,
2669: x_msg_data => lx_msg_data,
2670: p_qtev_rec => lp_qtev_rec,
2671: x_qtev_rec => lx_qtev_rec);
2672:
2673: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2674:
2675:
2676: IF (is_debug_statement_on)
2677: THEN
2757:
2758:
2759: rec_k_header k_header_csr%ROWTYPE;
2760: k_lines_rec k_lines_csr%ROWTYPE;
2761: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2762: --l_status_code VARCHAR2(30);
2763: i NUMBER;
2764: l_scs_code OKC_SUBCLASSES_V.code%TYPE;
2765: l_ste_code OKC_STATUSES_V.CODE%TYPE;
2789:
2790: -- Initialize savepoint to rollback to if error in this block
2791: SAVEPOINT update_k_hdr_lines;
2792:
2793: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2794:
2795: IF (is_debug_statement_on) THEN
2796: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
2797: END IF;
2810: CLOSE k_sts_code_meaning_csr;
2811:
2812: -- RMUNJULU 3018641 Step Message
2813: -- Step : Update Contract
2814: OKL_API.set_message(
2815: p_app_name => G_APP_NAME,
2816: p_msg_name => 'OKL_AM_STEP_UPD');
2817:
2818:
2848: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling process_close_streams');
2849: END IF;
2850: process_close_streams(
2851: p_api_version => p_api_version,
2852: p_init_msg_list => OKL_API.G_FALSE,
2853: x_return_status => l_return_status,
2854: x_msg_count => x_msg_count,
2855: x_msg_data => x_msg_data,
2856: p_term_rec => p_term_rec,
2863: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called process_close_streams l_return_status = '||l_return_status);
2864: END IF;
2865:
2866: -- Raise exception to rollback to savepoint
2867: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2869: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2870: RAISE OKL_API.G_EXCEPTION_ERROR;
2871: END IF;
2864: END IF;
2865:
2866: -- Raise exception to rollback to savepoint
2867: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2869: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2870: RAISE OKL_API.G_EXCEPTION_ERROR;
2871: END IF;
2872:
2865:
2866: -- Raise exception to rollback to savepoint
2867: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2869: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2870: RAISE OKL_API.G_EXCEPTION_ERROR;
2871: END IF;
2872:
2873: END IF;
2866: -- Raise exception to rollback to savepoint
2867: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2869: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2870: RAISE OKL_API.G_EXCEPTION_ERROR;
2871: END IF;
2872:
2873: END IF;
2874:
2922:
2923: -- call the update line tbl
2924: OKC_CONTRACT_PUB.update_contract_line(
2925: p_api_version => p_api_version,
2926: p_init_msg_list => OKL_API.G_FALSE,
2927: x_return_status => l_return_status,
2928: x_msg_count => x_msg_count,
2929: x_msg_data => x_msg_data,
2930: p_clev_tbl => lp_clev_tbl,
2931: x_clev_tbl => lx_clev_tbl);
2932: IF (is_debug_statement_on) THEN
2933: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKC_CONTRACT_PUB.update_contract_linel_return_status ='||l_return_status);
2934: END IF;
2935: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2936:
2937: -- Error updating assets of contract CONTRACT_NUMBER to status STATUS.
2938: OKL_API.set_message(
2939: p_app_name => G_APP_NAME,
2934: END IF;
2935: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2936:
2937: -- Error updating assets of contract CONTRACT_NUMBER to status STATUS.
2938: OKL_API.set_message(
2939: p_app_name => G_APP_NAME,
2940: p_msg_name => 'OKL_AM_K_LINE_STATUS_UPD_ERR',
2941: p_token1 => 'CONTRACT_NUMBER',
2942: p_token1_value => p_term_rec.p_contract_number,
2945:
2946: END IF;
2947:
2948: -- Raise exception to rollback to savepoint
2949: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2951: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2952: RAISE OKL_API.G_EXCEPTION_ERROR;
2953: END IF;
2946: END IF;
2947:
2948: -- Raise exception to rollback to savepoint
2949: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2951: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2952: RAISE OKL_API.G_EXCEPTION_ERROR;
2953: END IF;
2954:
2947:
2948: -- Raise exception to rollback to savepoint
2949: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2951: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2952: RAISE OKL_API.G_EXCEPTION_ERROR;
2953: END IF;
2954:
2955: -- set the "in" record
2948: -- Raise exception to rollback to savepoint
2949: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2951: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2952: RAISE OKL_API.G_EXCEPTION_ERROR;
2953: END IF;
2954:
2955: -- set the "in" record
2956: -- set the termination date
2956: -- set the termination date
2957: -- RMUNJULU 18-FEB-03 2804703 Added IF to check if being terminated
2958: IF p_status IN ('TERMINATED','EXPIRED') THEN
2959: IF (p_term_rec.p_termination_date IS NOT NULL)
2960: AND (p_term_rec.p_termination_date <> OKL_API.G_MISS_DATE) THEN
2961: lp_chrv_rec.date_terminated := p_term_rec.p_termination_date;
2962: ELSE
2963: lp_chrv_rec.date_terminated := l_quote_eff_date; -- rmunjulu EDAT
2964: END IF;
2985: END IF;
2986: -- Call the tapi to update contract with termination info
2987: OKC_CONTRACT_PUB.update_contract_header(
2988: p_api_version => p_api_version,
2989: p_init_msg_list => OKL_API.G_FALSE,
2990: x_return_status => l_return_status,
2991: x_msg_count => x_msg_count,
2992: x_msg_data => x_msg_data,
2993: p_restricted_update => OKL_API.G_TRUE,
2989: p_init_msg_list => OKL_API.G_FALSE,
2990: x_return_status => l_return_status,
2991: x_msg_count => x_msg_count,
2992: x_msg_data => x_msg_data,
2993: p_restricted_update => OKL_API.G_TRUE,
2994: p_chrv_rec => lp_chrv_rec,
2995: x_chrv_rec => lx_chrv_rec);
2996: IF (is_debug_statement_on) THEN
2997: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKC_CONTRACT_PUB.update_contract_header l_return_status = '||l_return_status);
2995: x_chrv_rec => lx_chrv_rec);
2996: IF (is_debug_statement_on) THEN
2997: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKC_CONTRACT_PUB.update_contract_header l_return_status = '||l_return_status);
2998: END IF;
2999: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3000:
3001: -- Error updating contract CONTRACT_NUMBER to status STATUS.
3002: OKL_API.set_message(
3003: p_app_name => G_APP_NAME,
2998: END IF;
2999: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3000:
3001: -- Error updating contract CONTRACT_NUMBER to status STATUS.
3002: OKL_API.set_message(
3003: p_app_name => G_APP_NAME,
3004: p_msg_name => 'OKL_AM_K_STATUS_UPD_ERR',
3005: p_token1 => 'CONTRACT_NUMBER',
3006: p_token1_value => p_term_rec.p_contract_number,
3009:
3010: END IF;
3011:
3012: -- Raise exception to rollback to savepoint
3013: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3014: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3015: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3016: RAISE OKL_API.G_EXCEPTION_ERROR;
3017: END IF;
3010: END IF;
3011:
3012: -- Raise exception to rollback to savepoint
3013: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3014: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3015: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3016: RAISE OKL_API.G_EXCEPTION_ERROR;
3017: END IF;
3018:
3011:
3012: -- Raise exception to rollback to savepoint
3013: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3014: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3015: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3016: RAISE OKL_API.G_EXCEPTION_ERROR;
3017: END IF;
3018:
3019:
3012: -- Raise exception to rollback to savepoint
3013: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3014: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3015: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3016: RAISE OKL_API.G_EXCEPTION_ERROR;
3017: END IF;
3018:
3019:
3020: -- Set the success messages
3019:
3020: -- Set the success messages
3021:
3022: -- Contract line statuses updated to STATUS for assets of contract CONTRACT_NUMBER.
3023: OKL_API.set_message(
3024: p_app_name => G_APP_NAME,
3025: p_msg_name => 'OKL_AM_K_LINE_STATUS_UPD',
3026: p_token1 => 'STATUS',
3027: p_token1_value => l_sts_meaning,
3029: p_token2_value => p_term_rec.p_contract_number);
3030:
3031:
3032: -- Contract CONTRACT_NUMBER status updated to STATUS.
3033: OKL_API.set_message( p_app_name => G_APP_NAME,
3034: p_msg_name => 'OKL_AM_K_STATUS_UPD',
3035: p_token1 => 'CONTRACT_NUMBER',
3036: p_token1_value => p_term_rec.p_contract_number,
3037: p_token2 => 'STATUS',
3057: IF (is_debug_procedure_on) THEN
3058: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
3059: END IF;
3060: EXCEPTION
3061: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3062: IF (is_debug_exception_on) THEN
3063: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3064: END IF;
3065:
3074: END IF;
3075:
3076: ROLLBACK TO update_k_hdr_lines;
3077:
3078: x_return_status := OKL_API.G_RET_STS_ERROR;
3079:
3080: -- store the highest degree of error
3081: set_overall_status(
3082: p_return_status => x_return_status,
3089: p_tmt_flag => 'TMT_CONTRACT_UPDATED_YN',
3090: p_tsu_code => 'ERROR',
3091: px_tcnv_rec => px_tcnv_rec);
3092:
3093: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3094: IF (is_debug_exception_on) THEN
3095: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3096: END IF;
3097:
3106: END IF;
3107:
3108: ROLLBACK TO update_k_hdr_lines;
3109:
3110: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3111:
3112: -- store the highest degree of error
3113: set_overall_status(
3114: p_return_status => x_return_status,
3138: END IF;
3139:
3140: ROLLBACK TO update_k_hdr_lines;
3141:
3142: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3143:
3144: -- store the highest degree of error
3145: set_overall_status(
3146: p_return_status => x_return_status,
3154: p_tsu_code => 'ERROR',
3155: px_tcnv_rec => px_tcnv_rec);
3156:
3157: -- Set the oracle error message
3158: OKL_API.set_message(
3159: p_app_name => OKC_API.G_APP_NAME,
3160: p_msg_name => g_unexpected_error,
3161: p_token1 => g_sqlcode_token,
3162: p_token1_value => SQLCODE,
3186: p_tcnv_rec IN tcnv_rec_type,
3187: x_id OUT NOCOPY NUMBER,
3188: p_trn_mode IN VARCHAR2) IS
3189:
3190: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3191: lp_tcnv_rec tcnv_rec_type := p_tcnv_rec;
3192: lx_tcnv_rec tcnv_rec_type;
3193: l_api_name VARCHAR2(30) := 'process_transaction';
3194:
3202: IF (is_debug_procedure_on) THEN
3203: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3204: END IF;
3205:
3206: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3207:
3208: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3209: p_init_msg_list,
3210: '_PVT',
3204: END IF;
3205:
3206: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3207:
3208: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3209: p_init_msg_list,
3210: '_PVT',
3211: x_return_status);
3212:
3209: p_init_msg_list,
3210: '_PVT',
3211: x_return_status);
3212:
3213: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3214: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3215: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3216: RAISE OKL_API.G_EXCEPTION_ERROR;
3217: END IF;
3210: '_PVT',
3211: x_return_status);
3212:
3213: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3214: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3215: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3216: RAISE OKL_API.G_EXCEPTION_ERROR;
3217: END IF;
3218:
3211: x_return_status);
3212:
3213: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3214: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3215: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3216: RAISE OKL_API.G_EXCEPTION_ERROR;
3217: END IF;
3218:
3219: -- Clear the recycle flag after processing
3212:
3213: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3214: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3215: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3216: RAISE OKL_API.G_EXCEPTION_ERROR;
3217: END IF;
3218:
3219: -- Clear the recycle flag after processing
3220: lp_tcnv_rec.tmt_recycle_yn := NULL;
3227: END IF;
3228: -- insert transaction rec
3229: OKL_TRX_CONTRACTS_PUB.create_trx_contracts(
3230: p_api_version => p_api_version,
3231: p_init_msg_list => OKL_API.G_FALSE,
3232: x_return_status => l_return_status,
3233: x_msg_count => x_msg_count,
3234: x_msg_data => x_msg_data,
3235: p_tcnv_rec => lp_tcnv_rec,
3244:
3245: -- update transaction rec
3246: OKL_TRX_CONTRACTS_PUB.update_trx_contracts(
3247: p_api_version => p_api_version,
3248: p_init_msg_list => OKL_API.G_FALSE,
3249: x_return_status => l_return_status,
3250: x_msg_count => x_msg_count,
3251: x_msg_data => x_msg_data,
3252: p_tcnv_rec => lp_tcnv_rec,
3256: END IF;
3257: END IF;
3258:
3259: -- rollback if error
3260: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3261: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3262: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3263: RAISE OKL_API.G_EXCEPTION_ERROR;
3264: END IF;
3257: END IF;
3258:
3259: -- rollback if error
3260: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3261: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3262: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3263: RAISE OKL_API.G_EXCEPTION_ERROR;
3264: END IF;
3265:
3258:
3259: -- rollback if error
3260: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3261: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3262: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3263: RAISE OKL_API.G_EXCEPTION_ERROR;
3264: END IF;
3265:
3266: -- set the return values
3259: -- rollback if error
3260: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3261: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3262: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3263: RAISE OKL_API.G_EXCEPTION_ERROR;
3264: END IF;
3265:
3266: -- set the return values
3267: x_return_status := l_return_status;
3266: -- set the return values
3267: x_return_status := l_return_status;
3268: x_id := lx_tcnv_rec.id;
3269:
3270: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3271: IF (is_debug_procedure_on) THEN
3272: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
3273: END IF;
3274: EXCEPTION
3271: IF (is_debug_procedure_on) THEN
3272: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
3273: END IF;
3274: EXCEPTION
3275: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3276: IF (is_debug_exception_on) THEN
3277: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3278: END IF;
3279:
3276: IF (is_debug_exception_on) THEN
3277: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3278: END IF;
3279:
3280: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3281: (
3282: l_api_name,
3283: G_PKG_NAME,
3284: 'OKL_API.G_RET_STS_ERROR',
3280: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3281: (
3282: l_api_name,
3283: G_PKG_NAME,
3284: 'OKL_API.G_RET_STS_ERROR',
3285: x_msg_count,
3286: x_msg_data,
3287: '_PVT'
3288: );
3285: x_msg_count,
3286: x_msg_data,
3287: '_PVT'
3288: );
3289: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3290: IF (is_debug_exception_on) THEN
3291: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3292: END IF;
3293:
3290: IF (is_debug_exception_on) THEN
3291: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3292: END IF;
3293:
3294: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3295: (
3296: l_api_name,
3297: G_PKG_NAME,
3298: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3294: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3295: (
3296: l_api_name,
3297: G_PKG_NAME,
3298: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3299: x_msg_count,
3300: x_msg_data,
3301: '_PVT'
3302: );
3304: IF (is_debug_exception_on) THEN
3305: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
3306: END IF;
3307:
3308: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3309: (
3310: l_api_name,
3311: G_PKG_NAME,
3312: 'OTHERS',
3375: SELECT deal_type
3376: FROM OKL_K_HEADERS_FULL_V
3377: WHERE id = p_term_rec.p_contract_id;
3378:
3379: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3380: l_api_name VARCHAR2(30) := 'process_evergreen_deprn';
3381: lp_thpv_rec OKL_TRX_ASSETS_PUB.thpv_rec_type;
3382: lx_thpv_rec OKL_TRX_ASSETS_PUB.thpv_rec_type;
3383: lp_tlpv_rec tlpv_rec_type;
3394: l_deal_type VARCHAR2(15);
3395: l_api_version CONSTANT NUMBER := 1;
3396: BEGIN
3397:
3398: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3399: G_PKG_NAME,
3400: p_init_msg_list,
3401: l_api_version,
3402: p_api_version,
3401: l_api_version,
3402: p_api_version,
3403: '_PVT',
3404: x_return_status);
3405: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3407: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3408: RAISE OKL_API.G_EXCEPTION_ERROR;
3409: END IF;
3402: p_api_version,
3403: '_PVT',
3404: x_return_status);
3405: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3407: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3408: RAISE OKL_API.G_EXCEPTION_ERROR;
3409: END IF;
3410:
3403: '_PVT',
3404: x_return_status);
3405: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3407: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3408: RAISE OKL_API.G_EXCEPTION_ERROR;
3409: END IF;
3410:
3411: IF (p_term_rec.p_contract_id IS NULL)
3404: x_return_status);
3405: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3407: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3408: RAISE OKL_API.G_EXCEPTION_ERROR;
3409: END IF;
3410:
3411: IF (p_term_rec.p_contract_id IS NULL)
3412: OR (p_term_rec.p_contract_id = OKL_API.G_MISS_NUM) THEN
3408: RAISE OKL_API.G_EXCEPTION_ERROR;
3409: END IF;
3410:
3411: IF (p_term_rec.p_contract_id IS NULL)
3412: OR (p_term_rec.p_contract_id = OKL_API.G_MISS_NUM) THEN
3413: x_return_status := OKL_API.G_RET_STS_ERROR;
3414: ---- contract id parameter is null
3415: OKL_API.set_message( p_app_name => 'OKC',
3416: p_msg_name => G_REQUIRED_VALUE,
3409: END IF;
3410:
3411: IF (p_term_rec.p_contract_id IS NULL)
3412: OR (p_term_rec.p_contract_id = OKL_API.G_MISS_NUM) THEN
3413: x_return_status := OKL_API.G_RET_STS_ERROR;
3414: ---- contract id parameter is null
3415: OKL_API.set_message( p_app_name => 'OKC',
3416: p_msg_name => G_REQUIRED_VALUE,
3417: p_token1 => G_COL_NAME_TOKEN,
3411: IF (p_term_rec.p_contract_id IS NULL)
3412: OR (p_term_rec.p_contract_id = OKL_API.G_MISS_NUM) THEN
3413: x_return_status := OKL_API.G_RET_STS_ERROR;
3414: ---- contract id parameter is null
3415: OKL_API.set_message( p_app_name => 'OKC',
3416: p_msg_name => G_REQUIRED_VALUE,
3417: p_token1 => G_COL_NAME_TOKEN,
3418: p_token1_value => 'CONTRACT_ID');
3419: RAISE OKL_API.G_EXCEPTION_ERROR;
3415: OKL_API.set_message( p_app_name => 'OKC',
3416: p_msg_name => G_REQUIRED_VALUE,
3417: p_token1 => G_COL_NAME_TOKEN,
3418: p_token1_value => 'CONTRACT_ID');
3419: RAISE OKL_API.G_EXCEPTION_ERROR;
3420: END IF;
3421:
3422: OPEN l_lhrfv_csr;
3423: FETCH l_lhrfv_csr INTO l_deal_type;
3421:
3422: OPEN l_lhrfv_csr;
3423: FETCH l_lhrfv_csr INTO l_deal_type;
3424: IF l_lhrfv_csr%NOTFOUND THEN
3425: x_return_status := OKL_API.G_RET_STS_ERROR;
3426: -- Contract ID is invalid
3427: OKL_API.set_message( p_app_name => 'OKC',
3428: p_msg_name => G_INVALID_VALUE,
3429: p_token1 => G_COL_NAME_TOKEN,
3423: FETCH l_lhrfv_csr INTO l_deal_type;
3424: IF l_lhrfv_csr%NOTFOUND THEN
3425: x_return_status := OKL_API.G_RET_STS_ERROR;
3426: -- Contract ID is invalid
3427: OKL_API.set_message( p_app_name => 'OKC',
3428: p_msg_name => G_INVALID_VALUE,
3429: p_token1 => G_COL_NAME_TOKEN,
3430: p_token1_value => 'CONTRACT_ID');
3431: RAISE OKL_API.G_EXCEPTION_ERROR;
3427: OKL_API.set_message( p_app_name => 'OKC',
3428: p_msg_name => G_INVALID_VALUE,
3429: p_token1 => G_COL_NAME_TOKEN,
3430: p_token1_value => 'CONTRACT_ID');
3431: RAISE OKL_API.G_EXCEPTION_ERROR;
3432: END IF;
3433: CLOSE l_lhrfv_csr;
3434:
3435: IF l_deal_type IS NULL THEN
3432: END IF;
3433: CLOSE l_lhrfv_csr;
3434:
3435: IF l_deal_type IS NULL THEN
3436: x_return_status := OKL_API.G_RET_STS_ERROR;
3437: --deal type not defined for this contract
3438: OKL_API.set_message( p_app_name => 'OKL',
3439: p_msg_name => 'OKL_AM_NO_DEAL_TYPE');
3440: RAISE OKL_API.G_EXCEPTION_ERROR;
3434:
3435: IF l_deal_type IS NULL THEN
3436: x_return_status := OKL_API.G_RET_STS_ERROR;
3437: --deal type not defined for this contract
3438: OKL_API.set_message( p_app_name => 'OKL',
3439: p_msg_name => 'OKL_AM_NO_DEAL_TYPE');
3440: RAISE OKL_API.G_EXCEPTION_ERROR;
3441: END IF;
3442:
3436: x_return_status := OKL_API.G_RET_STS_ERROR;
3437: --deal type not defined for this contract
3438: OKL_API.set_message( p_app_name => 'OKL',
3439: p_msg_name => 'OKL_AM_NO_DEAL_TYPE');
3440: RAISE OKL_API.G_EXCEPTION_ERROR;
3441: END IF;
3442:
3443: IF l_deal_type='LEASEDF' THEN
3444:
3457: ,x_return_status => l_return_status
3458: ,x_msg_count => x_msg_count
3459: ,x_msg_data => x_msg_data);
3460:
3461: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3462: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3463: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3464: RAISE OKL_API.G_EXCEPTION_ERROR;
3465: ELSIF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3458: ,x_msg_count => x_msg_count
3459: ,x_msg_data => x_msg_data);
3460:
3461: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3462: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3463: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3464: RAISE OKL_API.G_EXCEPTION_ERROR;
3465: ELSIF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3466: -- l_rulv_rec.RULE_INFORMATION1 will contain the value 'LESSEE' or
3459: ,x_msg_data => x_msg_data);
3460:
3461: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3462: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3463: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3464: RAISE OKL_API.G_EXCEPTION_ERROR;
3465: ELSIF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3466: -- l_rulv_rec.RULE_INFORMATION1 will contain the value 'LESSEE' or
3467: -- 'LESSOR'
3460:
3461: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3462: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3463: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3464: RAISE OKL_API.G_EXCEPTION_ERROR;
3465: ELSIF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3466: -- l_rulv_rec.RULE_INFORMATION1 will contain the value 'LESSEE' or
3467: -- 'LESSOR'
3468: l_tax_owner := l_rulv_rec.RULE_INFORMATION1;
3461: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3462: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3463: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3464: RAISE OKL_API.G_EXCEPTION_ERROR;
3465: ELSIF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3466: -- l_rulv_rec.RULE_INFORMATION1 will contain the value 'LESSEE' or
3467: -- 'LESSOR'
3468: l_tax_owner := l_rulv_rec.RULE_INFORMATION1;
3469: END IF;
3472:
3473:
3474:
3475: OKL_AM_UTIL_PVT.get_transaction_id('?',x_return_status,l_try_id);
3476: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3477: OKL_API.set_message(p_app_name => 'OKL',
3478: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
3479: p_token1 => 'TRY_NAME',
3480: p_token1_value => '?');
3473:
3474:
3475: OKL_AM_UTIL_PVT.get_transaction_id('?',x_return_status,l_try_id);
3476: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3477: OKL_API.set_message(p_app_name => 'OKL',
3478: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
3479: p_token1 => 'TRY_NAME',
3480: p_token1_value => '?');
3481: RAISE OKL_API.G_EXCEPTION_ERROR;
3477: OKL_API.set_message(p_app_name => 'OKL',
3478: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
3479: p_token1 => 'TRY_NAME',
3480: p_token1_value => '?');
3481: RAISE OKL_API.G_EXCEPTION_ERROR;
3482: END IF;
3483:
3484: -- scenario 8 - Direct Finance Lease expiration with NO hold period
3485: -- loop thru all the records from okx_asset_lines_v where
3490: l_line_status := NULL;
3491: -- validate data before creating the transaction line.
3492: IF l_lines_rec.parent_line_id IS NULL THEN
3493: -- Parent Line Id not defined for asset
3494: OKL_API.set_message( p_app_name => 'OKL',
3495: p_msg_name => 'OKL_AM_NO_PARENT_LINE_ID',
3496: p_token1 => 'ASSET_NUMBER',
3497: p_token1_value => l_lines_rec.asset_number);
3498: l_line_status := 'ERROR';
3498: l_line_status := 'ERROR';
3499: END IF;
3500: IF l_lines_rec.life_in_months IS NULL THEN
3501: -- Life in Months not defined for asset
3502: OKL_API.set_message( p_app_name => 'OKL',
3503: p_msg_name => 'OKL_AM_NO_LIFE_IN_MONTHS',
3504: p_token1 => 'ASSET_NUMBER',
3505: p_token1_value => l_lines_rec.asset_number);
3506: l_line_status := 'ERROR';
3514: CLOSE l_linesfullv_csr;
3515:
3516: IF l_residual_value IS NULL THEN
3517: -- Residual Value not defined for the asset
3518: OKL_API.set_message(p_app_name => 'OKL',
3519: p_msg_name => 'OKL_AM_NO_RESIDUAL_VALUE',
3520: p_token1 => 'ASSET_NUMBER',
3521: p_token1_value => l_lines_rec.asset_number);
3522: l_line_status := 'ERROR';
3523: END IF;
3524: IF l_df_original_cost IS NULL THEN
3525: IF l_oec IS NULL THEN
3526: -- OEC not defined for the asset
3527: OKL_API.set_message(p_app_name => 'OKL',
3528: p_msg_name => 'OKL_AM_NO_OEC',
3529: p_token1 => 'ASSET_NUMBER',
3530: p_token1_value => l_lines_rec.asset_number);
3531: l_line_status := 'ERROR';
3550: x_msg_count => x_msg_count,
3551: x_msg_data => x_msg_data,
3552: p_thpv_rec => lp_thpv_rec,
3553: x_thpv_rec => lx_thpv_rec);
3554: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3555: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3556: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3557: RAISE OKL_API.G_EXCEPTION_ERROR;
3558: END IF;
3551: x_msg_data => x_msg_data,
3552: p_thpv_rec => lp_thpv_rec,
3553: x_thpv_rec => lx_thpv_rec);
3554: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3555: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3556: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3557: RAISE OKL_API.G_EXCEPTION_ERROR;
3558: END IF;
3559:
3552: p_thpv_rec => lp_thpv_rec,
3553: x_thpv_rec => lx_thpv_rec);
3554: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3555: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3556: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3557: RAISE OKL_API.G_EXCEPTION_ERROR;
3558: END IF;
3559:
3560: -- Create transaction Line
3553: x_thpv_rec => lx_thpv_rec);
3554: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3555: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3556: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3557: RAISE OKL_API.G_EXCEPTION_ERROR;
3558: END IF;
3559:
3560: -- Create transaction Line
3561: lp_tlpv_rec.tas_id := lx_thpv_rec.id; -- FK
3591: x_msg_count => x_msg_count,
3592: x_msg_data => x_msg_data,
3593: p_tlpv_rec => lp_tlpv_rec,
3594: x_tlpv_rec => lx_tlpv_rec);
3595: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3596: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3597: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3598: RAISE OKL_API.G_EXCEPTION_ERROR;
3599: END IF;
3592: x_msg_data => x_msg_data,
3593: p_tlpv_rec => lp_tlpv_rec,
3594: x_tlpv_rec => lx_tlpv_rec);
3595: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3596: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3597: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3598: RAISE OKL_API.G_EXCEPTION_ERROR;
3599: END IF;
3600: END LOOP;
3593: p_tlpv_rec => lp_tlpv_rec,
3594: x_tlpv_rec => lx_tlpv_rec);
3595: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3596: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3597: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3598: RAISE OKL_API.G_EXCEPTION_ERROR;
3599: END IF;
3600: END LOOP;
3601: END IF; -- if deal_type='LEASEDF'
3594: x_tlpv_rec => lx_tlpv_rec);
3595: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3596: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3597: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3598: RAISE OKL_API.G_EXCEPTION_ERROR;
3599: END IF;
3600: END LOOP;
3601: END IF; -- if deal_type='LEASEDF'
3602:
3599: END IF;
3600: END LOOP;
3601: END IF; -- if deal_type='LEASEDF'
3602:
3603: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3604: EXCEPTION
3605: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3606: IF l_linesv_csr%ISOPEN THEN
3607: CLOSE l_linesv_csr;
3601: END IF; -- if deal_type='LEASEDF'
3602:
3603: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3604: EXCEPTION
3605: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3606: IF l_linesv_csr%ISOPEN THEN
3607: CLOSE l_linesv_csr;
3608: END IF;
3609: IF l_lhrfv_csr%ISOPEN THEN
3614: END IF;
3615: IF l_linesfullv_csr%ISOPEN THEN
3616: CLOSE l_linesfullv_csr;
3617: END IF;
3618: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3619: (
3620: l_api_name,
3621: G_PKG_NAME,
3622: 'OKL_API.G_RET_STS_ERROR',
3618: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3619: (
3620: l_api_name,
3621: G_PKG_NAME,
3622: 'OKL_API.G_RET_STS_ERROR',
3623: x_msg_count,
3624: x_msg_data,
3625: '_PVT'
3626: );
3623: x_msg_count,
3624: x_msg_data,
3625: '_PVT'
3626: );
3627: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3628: IF l_linesv_csr%ISOPEN THEN
3629: CLOSE l_linesv_csr;
3630: END IF;
3631: IF l_lhrfv_csr%ISOPEN THEN
3636: END IF;
3637: IF l_linesfullv_csr%ISOPEN THEN
3638: CLOSE l_linesfullv_csr;
3639: END IF;
3640: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3641: (
3642: l_api_name,
3643: G_PKG_NAME,
3644: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3640: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3641: (
3642: l_api_name,
3643: G_PKG_NAME,
3644: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3645: x_msg_count,
3646: x_msg_data,
3647: '_PVT'
3648: );
3658: END IF;
3659: IF l_linesfullv_csr%ISOPEN THEN
3660: CLOSE l_linesfullv_csr;
3661: END IF;
3662: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3663: (
3664: l_api_name,
3665: G_PKG_NAME,
3666: 'OTHERS',
3712: khr.sts_code
3713: FROM OKC_K_HEADERS_V khr
3714: WHERE khr.id = p_khr_id;
3715:
3716: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3717: l_api_name VARCHAR2(30) := 'process_evergreen_contract';
3718: l_evergreen_status VARCHAR2(1) := OKL_API.G_FALSE;
3719: l_rule_found VARCHAR2(1);
3720: lx_klev_tbl klev_tbl_type;
3714: WHERE khr.id = p_khr_id;
3715:
3716: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3717: l_api_name VARCHAR2(30) := 'process_evergreen_contract';
3718: l_evergreen_status VARCHAR2(1) := OKL_API.G_FALSE;
3719: l_rule_found VARCHAR2(1);
3720: lx_klev_tbl klev_tbl_type;
3721: lx_chrv_rec chrv_rec_type;
3722: lx_clev_tbl clev_tbl_type;
3739:
3740: -- Initialize savepoint to rollback to if error in this block
3741: SAVEPOINT evergreen;
3742:
3743: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3744: IF (is_debug_statement_on) THEN
3745: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
3746: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_tcnv_rec.id = '||px_tcnv_rec.id);
3747: END IF;
3794: IF (l_evergreen_earlier <> 'Y'
3795: AND p_term_rec.p_control_flag LIKE 'BATCH_PROCESS%'
3796: AND TRUNC(l_k_end_date) <= TRUNC(p_sys_date)
3797: AND (p_term_rec.p_quote_id IS NULL
3798: OR p_term_rec.p_quote_id = OKL_API.G_MISS_NUM))THEN
3799:
3800: -- RMUNJULU 3018641 Step Message
3801: -- Step : Evergreen
3802: OKL_API.set_message(
3798: OR p_term_rec.p_quote_id = OKL_API.G_MISS_NUM))THEN
3799:
3800: -- RMUNJULU 3018641 Step Message
3801: -- Step : Evergreen
3802: OKL_API.set_message(
3803: p_app_name => G_APP_NAME,
3804: p_msg_name => 'OKL_AM_STEP_EVR');
3805:
3806: -- get evergreen eligiblility
3814: x_msg_count => x_msg_count,
3815: x_msg_data => x_msg_data);
3816:
3817: -- Raise exception to rollback to the savepoint
3818: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3819:
3820: -- Error getting evergreen rule for contract.
3821: OKL_API.set_message(
3822: p_app_name => G_APP_NAME,
3817: -- Raise exception to rollback to the savepoint
3818: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3819:
3820: -- Error getting evergreen rule for contract.
3821: OKL_API.set_message(
3822: p_app_name => G_APP_NAME,
3823: p_msg_name => 'OKL_AM_EVERGREEN_RULE_ERR');
3824: RAISE OKL_API.G_EXCEPTION_ERROR;
3825: END IF;
3820: -- Error getting evergreen rule for contract.
3821: OKL_API.set_message(
3822: p_app_name => G_APP_NAME,
3823: p_msg_name => 'OKL_AM_EVERGREEN_RULE_ERR');
3824: RAISE OKL_API.G_EXCEPTION_ERROR;
3825: END IF;
3826: IF (is_debug_statement_on) THEN
3827: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_rule_found = '||l_rule_found);
3828: END IF;
3836: END IF;
3837: -- rmunjulu EDAT cancel all quotes for the contract which are not accepted or completed
3838: Okl_Am_Integration_Pvt.cancel_termination_quotes (
3839: p_api_version => p_api_version,
3840: p_init_msg_list => OKL_API.G_FALSE,
3841: p_khr_id => p_term_rec.p_contract_id,
3842: p_source_trx_id => NULL ,
3843: p_source => 'EVERGREEN', -- rmunjulu bug 4556370 pass source to integration pvt
3844: x_return_status => l_return_status,
3847: IF (is_debug_statement_on) THEN
3848: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called Okl_Am_Integration_Pvt.cancel_termination_quotes l_return_status = '||l_return_status);
3849: END IF;
3850: -- Raise exception to rollback to the savepoint
3851: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3852: RAISE OKL_API.G_EXCEPTION_ERROR;
3853: END IF;
3854: IF (is_debug_statement_on) THEN
3855: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling update_k_hdr_and_lines');
3848: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called Okl_Am_Integration_Pvt.cancel_termination_quotes l_return_status = '||l_return_status);
3849: END IF;
3850: -- Raise exception to rollback to the savepoint
3851: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3852: RAISE OKL_API.G_EXCEPTION_ERROR;
3853: END IF;
3854: IF (is_debug_statement_on) THEN
3855: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling update_k_hdr_and_lines');
3856: END IF;
3856: END IF;
3857: -- set_and_update_contract
3858: update_k_hdr_and_lines(
3859: p_api_version => p_api_version,
3860: p_init_msg_list => OKL_API.G_FALSE,
3861: x_return_status => l_return_status,
3862: x_msg_count => x_msg_count,
3863: x_msg_data => x_msg_data,
3864: p_status => 'EVERGREEN',
3873: IF (is_debug_statement_on) THEN
3874: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called update_k_hdr_and_lines l_return_status = '||l_return_status);
3875: END IF;
3876: -- Raise exception to rollback to the savepoint
3877: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3878: RAISE OKL_API.G_EXCEPTION_ERROR;
3879: END IF;
3880:
3881: -- This code is commented out till further notice
3874: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called update_k_hdr_and_lines l_return_status = '||l_return_status);
3875: END IF;
3876: -- Raise exception to rollback to the savepoint
3877: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3878: RAISE OKL_API.G_EXCEPTION_ERROR;
3879: END IF;
3880:
3881: -- This code is commented out till further notice
3882: -- start depreciation for evergreen contract
3890: p_term_rec => p_term_rec,
3891: p_sys_date => p_sys_date);
3892:
3893: -- Raise exception to rollback to the savepoint
3894: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3895: RAISE OKL_API.G_EXCEPTION_ERROR;
3896: END IF;
3897: */
3898: IF (is_debug_statement_on) THEN
3891: p_sys_date => p_sys_date);
3892:
3893: -- Raise exception to rollback to the savepoint
3894: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3895: RAISE OKL_API.G_EXCEPTION_ERROR;
3896: END IF;
3897: */
3898: IF (is_debug_statement_on) THEN
3899: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling process_accounting_entries');
3901: -- rmunjulu 4141991 do accounting entries
3902: --pagarg 4190887 Pass klev_tbl to do accounting at line level
3903: process_accounting_entries(
3904: p_api_version => p_api_version,
3905: p_init_msg_list => OKL_API.G_FALSE,
3906: x_return_status => l_return_status,
3907: x_msg_count => x_msg_count,
3908: x_msg_data => x_msg_data,
3909: p_term_rec => p_term_rec,
3916: IF (is_debug_statement_on) THEN
3917: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called process_accounting_entries l_return_status = '||l_return_status);
3918: END IF;
3919: -- rmunjulu 4141991 Raise exception to rollback to the savepoint
3920: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3921: RAISE OKL_API.G_EXCEPTION_ERROR;
3922: END IF;
3923:
3924: -- RMUNJULU 04-MAR-04 3485854 added call to process_amortize to do amortization
3917: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called process_accounting_entries l_return_status = '||l_return_status);
3918: END IF;
3919: -- rmunjulu 4141991 Raise exception to rollback to the savepoint
3920: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3921: RAISE OKL_API.G_EXCEPTION_ERROR;
3922: END IF;
3923:
3924: -- RMUNJULU 04-MAR-04 3485854 added call to process_amortize to do amortization
3925: -- Additional checks in process_amortize to cater to evergreen scenario
3927: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling process_amortize');
3928: END IF;
3929: process_amortize(
3930: p_api_version => p_api_version,
3931: p_init_msg_list => OKL_API.G_FALSE,
3932: x_return_status => l_return_status,
3933: x_msg_count => x_msg_count,
3934: x_msg_data => x_msg_data,
3935: p_term_rec => p_term_rec,
3940: IF (is_debug_statement_on) THEN
3941: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called process_amortize l_return_status = '||l_return_status);
3942: END IF;
3943: -- Raise exception to rollback to the savepoint
3944: IF (px_overall_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3945: RAISE OKL_API.G_EXCEPTION_ERROR;
3946: END IF;
3947:
3948: -- set the transaction record
3941: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called process_amortize l_return_status = '||l_return_status);
3942: END IF;
3943: -- Raise exception to rollback to the savepoint
3944: IF (px_overall_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3945: RAISE OKL_API.G_EXCEPTION_ERROR;
3946: END IF;
3947:
3948: -- set the transaction record
3949: set_transaction_rec(
3953: p_tsu_code => 'PROCESSED',
3954: px_tcnv_rec => px_tcnv_rec);
3955:
3956: -- Contract eligible for evergreen.
3957: OKL_API.set_message(
3958: p_app_name => G_APP_NAME,
3959: p_msg_name => 'OKL_AM_K_EVERGREEN');
3960:
3961: -- store the highest degree of error
3967:
3968: ELSE -- contract not eligible for evergreen
3969:
3970: -- Contract not eligible for evergreen.
3971: OKL_API.set_message(
3972: p_app_name => G_APP_NAME,
3973: p_msg_name => 'OKL_AM_K_NOT_EVERGREEN');
3974:
3975: -- set the transaction record
3993: /* -- RMUNJULU 05-MAR-03 Removed ELSE
3994: ELSE
3995:
3996: -- Contract not eligible for evergreen.
3997: OKL_API.set_message(
3998: p_app_name => G_APP_NAME,
3999: p_msg_name => 'OKL_AM_K_NOT_EVERGREEN');
4000: */
4001: END IF;
4005: IF (is_debug_procedure_on) THEN
4006: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
4007: END IF;
4008: EXCEPTION
4009: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4010: IF (is_debug_exception_on) THEN
4011: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4012: END IF;
4013:
4015: CLOSE l_k_end_csr;
4016: END IF;
4017:
4018: ROLLBACK TO evergreen;
4019: x_return_status := OKL_API.G_RET_STS_ERROR;
4020: x_evergreen_status := G_YES;
4021:
4022: -- store the highest degree of error
4023: set_overall_status(
4041: CLOSE l_k_end_csr;
4042: END IF;
4043:
4044: ROLLBACK TO evergreen;
4045: x_return_status := OKL_API.G_RET_STS_ERROR;
4046: x_evergreen_status := G_YES;
4047:
4048: -- store the highest degree of error
4049: set_overall_status(
4058: p_tsu_code => 'ERROR',
4059: px_tcnv_rec => px_tcnv_rec);
4060:
4061: -- Set the oracle error message
4062: OKL_API.set_message(
4063: p_app_name => OKC_API.G_APP_NAME,
4064: p_msg_name => g_unexpected_error,
4065: p_token1 => g_sqlcode_token,
4066: p_token1_value => SQLCODE,
4097: FROM OKC_K_HEADERS_B
4098: WHERE id = p_chr_id;
4099:
4100: l_k_end_date DATE;
4101: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4102: l_early_termination_yn VARCHAR2(1) := G_NO;
4103: i NUMBER;
4104:
4105: -- rmunjulu EDAT
4159: -- cancel insurance
4160:
4161: -- RMUNJULU 3018641 Step Message
4162: -- Step : Cancel Insurance
4163: OKL_API.set_message(
4164: p_app_name => G_APP_NAME,
4165: p_msg_name => 'OKL_AM_STEP_INS');
4166:
4167: IF (is_debug_statement_on) THEN
4170: END IF;
4171:
4172: OKL_INSURANCE_POLICIES_PUB.cancel_policies(
4173: p_api_version => p_api_version,
4174: p_init_msg_list => OKL_API.G_FALSE,
4175: x_return_status => l_return_status,
4176: x_msg_count => x_msg_count,
4177: x_msg_data => x_msg_data,
4178: p_contract_id => p_term_rec.p_contract_id,
4182: IF (is_debug_statement_on) THEN
4183: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKL_INSURANCE_POLICIES_PUB.cancel_policies l_return_status = '||l_return_status);
4184: END IF;
4185:
4186: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4187: -- Error in cancelling Insurance.
4188: OKL_API.set_message( p_app_name => G_APP_NAME,
4189: p_msg_name => 'OKL_AM_ERR_CAN_INS');
4190: END IF;
4184: END IF;
4185:
4186: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4187: -- Error in cancelling Insurance.
4188: OKL_API.set_message( p_app_name => G_APP_NAME,
4189: p_msg_name => 'OKL_AM_ERR_CAN_INS');
4190: END IF;
4191:
4192: -- Raise exception to rollback to the savepoint
4189: p_msg_name => 'OKL_AM_ERR_CAN_INS');
4190: END IF;
4191:
4192: -- Raise exception to rollback to the savepoint
4193: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4194: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4195: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4196: RAISE OKL_API.G_EXCEPTION_ERROR;
4197: END IF;
4190: END IF;
4191:
4192: -- Raise exception to rollback to the savepoint
4193: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4194: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4195: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4196: RAISE OKL_API.G_EXCEPTION_ERROR;
4197: END IF;
4198:
4191:
4192: -- Raise exception to rollback to the savepoint
4193: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4194: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4195: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4196: RAISE OKL_API.G_EXCEPTION_ERROR;
4197: END IF;
4198:
4199: -- store the highest degree of error
4192: -- Raise exception to rollback to the savepoint
4193: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4194: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4195: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4196: RAISE OKL_API.G_EXCEPTION_ERROR;
4197: END IF;
4198:
4199: -- store the highest degree of error
4200: set_overall_status(
4212: END IF;
4213: ELSE --( no early termination then set cancel insurance )
4214: -- Cancelling of insurance not needed because this
4215: -- is an end of term contract termination.
4216: OKL_API.set_message( p_app_name => G_APP_NAME,
4217: p_msg_name => 'OKL_AM_CAN_INS_NOT_NEEDED');
4218:
4219: -- set the transaction record
4220: set_transaction_rec(
4230: IF (is_debug_procedure_on) THEN
4231: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
4232: END IF;
4233: EXCEPTION
4234: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4235: IF (is_debug_exception_on) THEN
4236: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4237: END IF;
4238:
4241: END IF;
4242:
4243: ROLLBACK TO cancel_insurance;
4244:
4245: x_return_status := OKL_API.G_RET_STS_ERROR;
4246:
4247: -- store the highest degree of error
4248: set_overall_status(
4249: p_return_status => x_return_status,
4256: p_tmt_flag => 'TMT_CANCEL_INSURANCE_YN',
4257: p_tsu_code => 'ERROR',
4258: px_tcnv_rec => px_tcnv_rec);
4259:
4260: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4261: IF (is_debug_exception_on) THEN
4262: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
4263: END IF;
4264:
4267: END IF;
4268:
4269: ROLLBACK TO cancel_insurance;
4270:
4271: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4272:
4273: -- store the highest degree of error
4274: set_overall_status(
4275: p_return_status => x_return_status,
4293: END IF;
4294:
4295: ROLLBACK TO cancel_insurance;
4296:
4297: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4298:
4299: -- store the highest degree of error
4300: set_overall_status(
4301: p_return_status => x_return_status,
4309: p_tsu_code => 'ERROR',
4310: px_tcnv_rec => px_tcnv_rec);
4311:
4312: -- Set the oracle error message
4313: OKL_API.set_message(
4314: p_app_name => OKC_API.G_APP_NAME,
4315: p_msg_name => g_unexpected_error,
4316: p_token1 => g_sqlcode_token,
4317: p_token1_value => SQLCODE,
4360: OKL_STRM_TYPE_B STY
4361: WHERE STM.khr_id = p_chr_id
4362: AND STM.say_code = 'CURR'
4363: AND STM.STY_ID = STY.ID
4364: AND STY.ID NOT IN (nvl(p_sty_id, OKL_API.G_MISS_NUM)) -- rmunjulu 4058630 check for NVL
4365: AND nvl(STY.STREAM_TYPE_SUBCLASS, 'X') NOT IN ('INVESTOR_DISBURSEMENT') -- new subclass
4366: -- AND nvl(STM.sgn_code,'*') <> 'INTC'; -- rmunjulu 11-Apr-06 ER 5139307
4367: AND nvl(STM.sgn_code,'*') NOT IN ('INTC','LATE_CALC'); -- Bug#i6472228 - Added to exclude streams generated
4368: -- during late charge/interest calculation processs
4369: -- These can be LATE FEE/LATE INTEREST/ INVESTOR LATE FEE/ INTEREST
4370:
4371:
4372: k_streams_rec k_streams_csr%ROWTYPE;
4373: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4374: lp_stmv_tbl stmv_tbl_type;
4375: lx_stmv_tbl stmv_tbl_type;
4376: l_streams_found VARCHAR2(1) := G_NO;
4377: i NUMBER;
4408: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_already_set = '||p_trn_already_set);
4409: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_tcnv_rec.tmt_streams_updated_yn = '||px_tcnv_rec.tmt_streams_updated_yn);
4410: END IF;
4411: -- Check if streams exist
4412: OPEN k_streams_csr(p_term_rec.p_contract_id,nvl(lx_sty_id,OKL_API.G_MISS_NUM)); -- rmunjulu 4058630 check for NVL
4413: FETCH k_streams_csr INTO l_id;
4414: IF k_streams_csr%FOUND THEN
4415: l_streams_found := G_YES;
4416: END IF;
4430: IF (l_streams_found = G_YES) THEN
4431:
4432: i := 1;
4433: -- set the tbl type for streams pub
4434: FOR k_streams_rec IN k_streams_csr(p_term_rec.p_contract_id,nvl(lx_sty_id,OKL_API.G_MISS_NUM)) LOOP -- rmunjulu 4058630 check for NVL
4435: lp_stmv_tbl(i).khr_id := p_term_rec.p_contract_id;
4436: lp_stmv_tbl(i).active_yn := G_NO;
4437: lp_stmv_tbl(i).id := k_streams_rec.id;
4438:
4447: END IF;
4448: -- close streams
4449: OKL_STREAMS_PUB.update_streams(
4450: p_api_version => p_api_version,
4451: p_init_msg_list => OKL_API.G_FALSE,
4452: x_return_status => l_return_status,
4453: x_msg_count => x_msg_count,
4454: x_msg_data => x_msg_data,
4455: p_stmv_tbl => lp_stmv_tbl,
4457: IF (is_debug_statement_on) THEN
4458: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKL_STREAMS_PUB.update_streams l_return_status ='||l_return_status);
4459: END IF;
4460:
4461: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4462: -- Streams table update failed.
4463: OKL_API.set_message( p_app_name => G_APP_NAME,
4464: p_msg_name => 'OKL_AM_ERR_UPD_STREAMS');
4465: END IF;
4459: END IF;
4460:
4461: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4462: -- Streams table update failed.
4463: OKL_API.set_message( p_app_name => G_APP_NAME,
4464: p_msg_name => 'OKL_AM_ERR_UPD_STREAMS');
4465: END IF;
4466:
4467: -- Raise exception to rollback to if error
4464: p_msg_name => 'OKL_AM_ERR_UPD_STREAMS');
4465: END IF;
4466:
4467: -- Raise exception to rollback to if error
4468: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4469: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4470: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4471: RAISE OKL_API.G_EXCEPTION_ERROR;
4472: END IF;
4465: END IF;
4466:
4467: -- Raise exception to rollback to if error
4468: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4469: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4470: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4471: RAISE OKL_API.G_EXCEPTION_ERROR;
4472: END IF;
4473:
4466:
4467: -- Raise exception to rollback to if error
4468: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4469: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4470: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4471: RAISE OKL_API.G_EXCEPTION_ERROR;
4472: END IF;
4473:
4474: -- store the highest degree of error
4467: -- Raise exception to rollback to if error
4468: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4469: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4470: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4471: RAISE OKL_API.G_EXCEPTION_ERROR;
4472: END IF;
4473:
4474: -- store the highest degree of error
4475: set_overall_status(
4487: -- END IF;
4488: ELSE --( no streams found )
4489:
4490: -- No future billable streams found.
4491: OKL_API.set_message( p_app_name => G_APP_NAME,
4492: p_msg_name => 'OKL_AM_NO_STREAMS');
4493:
4494: -- set the transaction record
4495: set_transaction_rec(
4509: IF (is_debug_procedure_on) THEN
4510: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
4511: END IF;
4512: EXCEPTION
4513: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4514: IF (is_debug_exception_on) THEN
4515: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4516: END IF;
4517:
4520: END IF;
4521:
4522: ROLLBACK TO close_streams;
4523:
4524: x_return_status := OKL_API.G_RET_STS_ERROR;
4525: -- store the highest degree of error
4526: set_overall_status(
4527: p_return_status => x_return_status,
4528: px_overall_status => px_overall_status);
4534: p_tmt_flag => 'TMT_STREAMS_UPDATED_YN',
4535: p_tsu_code => 'ERROR',
4536: px_tcnv_rec => px_tcnv_rec);
4537:
4538: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4539: IF (is_debug_exception_on) THEN
4540: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
4541: END IF;
4542:
4545: END IF;
4546:
4547: ROLLBACK TO close_streams;
4548:
4549: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4550: -- store the highest degree of error
4551: set_overall_status(
4552: p_return_status => x_return_status,
4553: px_overall_status => px_overall_status);
4570: END IF;
4571:
4572: ROLLBACK TO close_streams;
4573:
4574: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4575: -- store the highest degree of error
4576: set_overall_status(
4577: p_return_status => x_return_status,
4578: px_overall_status => px_overall_status);
4585: p_tsu_code => 'ERROR',
4586: px_tcnv_rec => px_tcnv_rec);
4587:
4588: -- Set the oracle error message
4589: OKL_API.set_message(
4590: p_app_name => OKC_API.G_APP_NAME,
4591: p_msg_name => g_unexpected_error,
4592: p_token1 => g_sqlcode_token,
4593: p_token1_value => SQLCODE,
4628: l_curr_code VARCHAR2(200);
4629: l_formatted_inv_amt VARCHAR2(200);
4630: l_try_id NUMBER;
4631: l_purchase_option_sty_id NUMBER;
4632: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4633: l_taiv_rec okl_trx_ar_invoices_pub.taiv_rec_type;
4634: lx_taiv_rec okl_trx_ar_invoices_pub.taiv_rec_type;
4635: l_tilv_rec okl_txl_ar_inv_lns_pub.tilv_rec_type;
4636: lx_tilv_rec okl_txl_ar_inv_lns_pub.tilv_rec_type;
4717: IF (is_debug_statement_on) THEN
4718: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_STREAMS_UTIL.get_primary_stream_type.l_return_status = '||l_return_status);
4719: END IF;
4720:
4721: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
4722: AND (l_purchase_option_sty_id IS NULL OR l_purchase_option_sty_id = OKL_API.G_MISS_NUM) THEN
4723:
4724: l_return_status := OKL_API.G_RET_STS_ERROR;
4725: END IF;
4718: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_STREAMS_UTIL.get_primary_stream_type.l_return_status = '||l_return_status);
4719: END IF;
4720:
4721: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
4722: AND (l_purchase_option_sty_id IS NULL OR l_purchase_option_sty_id = OKL_API.G_MISS_NUM) THEN
4723:
4724: l_return_status := OKL_API.G_RET_STS_ERROR;
4725: END IF;
4726:
4720:
4721: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
4722: AND (l_purchase_option_sty_id IS NULL OR l_purchase_option_sty_id = OKL_API.G_MISS_NUM) THEN
4723:
4724: l_return_status := OKL_API.G_RET_STS_ERROR;
4725: END IF;
4726:
4727: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4728:
4723:
4724: l_return_status := OKL_API.G_RET_STS_ERROR;
4725: END IF;
4726:
4727: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4728:
4729: -- Unable to auto invoice the purchase amount for Contract CONTRACT_NUMBER.
4730: OKL_API.set_message(
4731: p_app_name => G_APP_NAME,
4726:
4727: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4728:
4729: -- Unable to auto invoice the purchase amount for Contract CONTRACT_NUMBER.
4730: OKL_API.set_message(
4731: p_app_name => G_APP_NAME,
4732: p_msg_name => 'OKL_AM_INV_CNTRCT_ERR',
4733: p_token1 => 'CONTRACT_NUMBER',
4734: p_token1_value => p_term_rec.p_contract_number);
4733: p_token1 => 'CONTRACT_NUMBER',
4734: p_token1_value => p_term_rec.p_contract_number);
4735: END IF;
4736:
4737: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4739: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4740: RAISE OKL_API.G_EXCEPTION_ERROR;
4741: END IF;
4734: p_token1_value => p_term_rec.p_contract_number);
4735: END IF;
4736:
4737: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4739: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4740: RAISE OKL_API.G_EXCEPTION_ERROR;
4741: END IF;
4742:
4735: END IF;
4736:
4737: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4739: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4740: RAISE OKL_API.G_EXCEPTION_ERROR;
4741: END IF;
4742:
4743: -- Get the currency code for contract
4736:
4737: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4739: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4740: RAISE OKL_API.G_EXCEPTION_ERROR;
4741: END IF;
4742:
4743: -- Get the currency code for contract
4744: l_curr_code := OKL_AM_UTIL_PVT.get_chr_currency(
4793: p_kle_id => p_klev_tbl(j).p_kle_id,
4794: x_purchase_amount => l_invoice_amount,
4795: x_return_status => l_return_status);
4796:
4797: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4798:
4799: -- Unable to auto invoice the purchase amount for Contract CONTRACT_NUMBER.
4800: OKL_API.set_message(
4801: p_app_name => G_APP_NAME,
4796:
4797: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4798:
4799: -- Unable to auto invoice the purchase amount for Contract CONTRACT_NUMBER.
4800: OKL_API.set_message(
4801: p_app_name => G_APP_NAME,
4802: p_msg_name => 'OKL_AM_INV_CNTRCT_ERR',
4803: p_token1 => 'CONTRACT_NUMBER',
4804: p_token1_value => p_term_rec.p_contract_number);
4803: p_token1 => 'CONTRACT_NUMBER',
4804: p_token1_value => p_term_rec.p_contract_number);
4805: END IF;
4806:
4807: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4809: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4810: RAISE OKL_API.G_EXCEPTION_ERROR;
4811: END IF;
4804: p_token1_value => p_term_rec.p_contract_number);
4805: END IF;
4806:
4807: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4809: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4810: RAISE OKL_API.G_EXCEPTION_ERROR;
4811: END IF;
4812:
4805: END IF;
4806:
4807: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4809: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4810: RAISE OKL_API.G_EXCEPTION_ERROR;
4811: END IF;
4812:
4813: -- Get transaction id based on amount type
4806:
4807: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4809: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4810: RAISE OKL_API.G_EXCEPTION_ERROR;
4811: END IF;
4812:
4813: -- Get transaction id based on amount type
4814: IF l_invoice_amount > 0 THEN
4825: x_return_status => l_return_status,
4826: x_try_id => l_try_id);
4827: END IF;
4828:
4829: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
4830: OR NVL (l_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
4831:
4832: OKL_API.SET_MESSAGE (
4833: p_app_name => G_APP_NAME,
4826: x_try_id => l_try_id);
4827: END IF;
4828:
4829: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
4830: OR NVL (l_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
4831:
4832: OKL_API.SET_MESSAGE (
4833: p_app_name => G_APP_NAME,
4834: p_msg_name => G_INVALID_VALUE,
4828:
4829: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
4830: OR NVL (l_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
4831:
4832: OKL_API.SET_MESSAGE (
4833: p_app_name => G_APP_NAME,
4834: p_msg_name => G_INVALID_VALUE,
4835: p_token1 => G_COL_NAME_TOKEN,
4836: p_token1_value => 'Transaction Type');
4835: p_token1 => G_COL_NAME_TOKEN,
4836: p_token1_value => 'Transaction Type');
4837:
4838: -- Unable to auto invoice the purchase amount for Contract CONTRACT_NUMBER.
4839: OKL_API.set_message(
4840: p_app_name => G_APP_NAME,
4841: p_msg_name => 'OKL_AM_INV_CNTRCT_ERR',
4842: p_token1 => 'CONTRACT_NUMBER',
4843: p_token1_value => p_term_rec.p_contract_number);
4842: p_token1 => 'CONTRACT_NUMBER',
4843: p_token1_value => p_term_rec.p_contract_number);
4844: END IF;
4845:
4846: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4847: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4848: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4849: RAISE OKL_API.G_EXCEPTION_ERROR;
4850: END IF;
4843: p_token1_value => p_term_rec.p_contract_number);
4844: END IF;
4845:
4846: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4847: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4848: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4849: RAISE OKL_API.G_EXCEPTION_ERROR;
4850: END IF;
4851:
4844: END IF;
4845:
4846: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4847: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4848: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4849: RAISE OKL_API.G_EXCEPTION_ERROR;
4850: END IF;
4851:
4852: -- start invoice part only if invoice amount <> 0
4845:
4846: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4847: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4848: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4849: RAISE OKL_API.G_EXCEPTION_ERROR;
4850: END IF;
4851:
4852: -- start invoice part only if invoice amount <> 0
4853: IF l_invoice_amount <> 0 THEN
4887: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called okl_internal_billing_pvt.create_billing_trx x_return_status = '||x_return_status);
4888: END IF;
4889:
4890:
4891: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4892: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4893: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4894: RAISE OKL_API.G_EXCEPTION_ERROR;
4895: END IF;
4888: END IF;
4889:
4890:
4891: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4892: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4893: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4894: RAISE OKL_API.G_EXCEPTION_ERROR;
4895: END IF;
4896: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4889:
4890:
4891: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4892: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4893: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4894: RAISE OKL_API.G_EXCEPTION_ERROR;
4895: END IF;
4896: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4897: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4890:
4891: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4892: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4893: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4894: RAISE OKL_API.G_EXCEPTION_ERROR;
4895: END IF;
4896: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4897: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4898: 'Process_Auto_Invoice.okl_internal_billing_pvt.create_billing_trx.',
4907: END IF;
4908:
4909: OKL_TRX_AR_INVOICES_PUB.insert_trx_ar_invoices (
4910: p_api_version => P_api_version,
4911: p_init_msg_list => OKL_API.G_FALSE,
4912: x_return_status => l_return_status,
4913: x_msg_count => l_msg_count,
4914: x_msg_data => l_msg_data,
4915: p_taiv_rec => l_taiv_rec,
4914: x_msg_data => l_msg_data,
4915: p_taiv_rec => l_taiv_rec,
4916: x_taiv_rec => lx_taiv_rec);
4917:
4918: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4919:
4920: -- Error invoicing Asset ASSET_NUMBER of Contract CONTRACT_NUMBER.
4921: OKL_API.set_message(
4922: p_app_name => G_APP_NAME,
4917:
4918: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4919:
4920: -- Error invoicing Asset ASSET_NUMBER of Contract CONTRACT_NUMBER.
4921: OKL_API.set_message(
4922: p_app_name => G_APP_NAME,
4923: p_msg_name => 'OKL_AM_INV_AMT_ERR',
4924: p_token1 => 'ASSET_NUMBER',
4925: p_token1_value => p_klev_tbl(j).p_asset_name,
4926: p_token2 => 'CONTRACT_NUMBER',
4927: p_token2_value => p_term_rec.p_contract_number);
4928: END IF;
4929:
4930: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4931: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4932: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4933: RAISE OKL_API.G_EXCEPTION_ERROR;
4934: END IF;
4927: p_token2_value => p_term_rec.p_contract_number);
4928: END IF;
4929:
4930: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4931: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4932: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4933: RAISE OKL_API.G_EXCEPTION_ERROR;
4934: END IF;
4935:
4928: END IF;
4929:
4930: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4931: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4932: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4933: RAISE OKL_API.G_EXCEPTION_ERROR;
4934: END IF;
4935:
4936: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4929:
4930: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4931: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4932: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4933: RAISE OKL_API.G_EXCEPTION_ERROR;
4934: END IF;
4935:
4936: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4937: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4952:
4953: -- Create Invoice Line
4954: OKL_TXL_AR_INV_LNS_PUB.insert_txl_ar_inv_lns (
4955: p_api_version => l_api_version,
4956: p_init_msg_list => OKL_API.G_FALSE,
4957: x_return_status => l_return_status,
4958: x_msg_count => l_msg_count,
4959: x_msg_data => l_msg_data,
4960: p_tilv_rec => l_tilv_rec,
4959: x_msg_data => l_msg_data,
4960: p_tilv_rec => l_tilv_rec,
4961: x_tilv_rec => lx_tilv_rec);
4962:
4963: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4964:
4965: -- Error invoicing Asset ASSET_NUMBER of Contract CONTRACT_NUMBER.
4966: OKL_API.set_message(
4967: p_app_name => G_APP_NAME,
4962:
4963: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4964:
4965: -- Error invoicing Asset ASSET_NUMBER of Contract CONTRACT_NUMBER.
4966: OKL_API.set_message(
4967: p_app_name => G_APP_NAME,
4968: p_msg_name => 'OKL_AM_INV_AMT_ERR',
4969: p_token1 => 'ASSET_NUMBER',
4970: p_token1_value => p_klev_tbl(j).p_asset_name,
4970: p_token1_value => p_klev_tbl(j).p_asset_name,
4971: p_token2 => 'CONTRACT_NUMBER',
4972: p_token2_value => p_term_rec.p_contract_number);
4973: END IF;
4974: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4976: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4977: RAISE OKL_API.G_EXCEPTION_ERROR;
4978: END IF;
4971: p_token2 => 'CONTRACT_NUMBER',
4972: p_token2_value => p_term_rec.p_contract_number);
4973: END IF;
4974: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4976: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4977: RAISE OKL_API.G_EXCEPTION_ERROR;
4978: END IF;
4979:
4972: p_token2_value => p_term_rec.p_contract_number);
4973: END IF;
4974: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4976: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4977: RAISE OKL_API.G_EXCEPTION_ERROR;
4978: END IF;
4979:
4980: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4973: END IF;
4974: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4976: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4977: RAISE OKL_API.G_EXCEPTION_ERROR;
4978: END IF;
4979:
4980: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4981: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
4994:
4995: -- Create Accounting Distribution
4996: OKL_ACC_CALL_PUB.create_acc_trans(
4997: p_api_version => l_api_version,
4998: p_init_msg_list => OKL_API.G_FALSE,
4999: x_return_status => l_return_status,
5000: x_msg_count => l_msg_count,
5001: x_msg_data => l_msg_data,
5002: p_bpd_acc_rec => l_bpd_acc_rec);
5000: x_msg_count => l_msg_count,
5001: x_msg_data => l_msg_data,
5002: p_bpd_acc_rec => l_bpd_acc_rec);
5003:
5004: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5005:
5006: -- Error invoicing Asset ASSET_NUMBER of Contract CONTRACT_NUMBER.
5007: OKL_API.set_message(
5008: p_app_name => G_APP_NAME,
5003:
5004: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5005:
5006: -- Error invoicing Asset ASSET_NUMBER of Contract CONTRACT_NUMBER.
5007: OKL_API.set_message(
5008: p_app_name => G_APP_NAME,
5009: p_msg_name => 'OKL_AM_INV_AMT_ERR',
5010: p_token1 => 'ASSET_NUMBER',
5011: p_token1_value => p_klev_tbl(j).p_asset_name,
5012: p_token2 => 'CONTRACT_NUMBER',
5013: p_token2_value => p_term_rec.p_contract_number);
5014: END IF;
5015:
5016: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5017: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5018: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5019: RAISE OKL_API.G_EXCEPTION_ERROR;
5020: END IF;
5013: p_token2_value => p_term_rec.p_contract_number);
5014: END IF;
5015:
5016: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5017: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5018: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5019: RAISE OKL_API.G_EXCEPTION_ERROR;
5020: END IF;
5021:
5014: END IF;
5015:
5016: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5017: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5018: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5019: RAISE OKL_API.G_EXCEPTION_ERROR;
5020: END IF;
5021:
5022: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5015:
5016: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5017: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5018: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5019: RAISE OKL_API.G_EXCEPTION_ERROR;
5020: END IF;
5021:
5022: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5023: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
5032: p_amount => l_invoice_amount,
5033: p_currency_code => l_curr_code);
5034:
5035: -- Asset ASSET_NUMBER of Contract CONTRACT_NUMBER is invoiced with amount AMOUNT.
5036: OKL_API.set_message(
5037: p_app_name => G_APP_NAME,
5038: p_msg_name => 'OKL_AM_INV_AMT_SUCCESS',
5039: p_token1 => 'ASSET_NUMBER',
5040: p_token1_value => p_klev_tbl(j).p_asset_name,
5063: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
5064: END IF;
5065: EXCEPTION
5066:
5067: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5068: IF (is_debug_exception_on) THEN
5069: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5070: END IF;
5071:
5070: END IF;
5071:
5072: ROLLBACK TO auto_invoice;
5073:
5074: x_return_status := OKL_API.G_RET_STS_ERROR;
5075:
5076: -- store the highest degree of error
5077: set_overall_status(
5078: p_return_status => x_return_status,
5086: p_tsu_code => 'ERROR',
5087: p_ret_val => NULL,
5088: px_tcnv_rec => px_tcnv_rec);
5089:
5090: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5091: IF (is_debug_exception_on) THEN
5092: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5093: END IF;
5094:
5093: END IF;
5094:
5095: ROLLBACK TO auto_invoice;
5096:
5097: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5098:
5099: -- store the highest degree of error
5100: set_overall_status(
5101: p_return_status => x_return_status,
5116: END IF;
5117:
5118: ROLLBACK TO auto_invoice;
5119:
5120: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5121:
5122: -- store the highest degree of error
5123: set_overall_status(
5124: p_return_status => x_return_status,
5240: AND DST.cr_dr_flag = 'D'
5241: AND DST.percentage = 100;
5242:
5243: k_bal_lns_rec k_bal_lns_csr%ROWTYPE;
5244: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5245: lp_adjv_rec adjv_rec_type;
5246: lx_adjv_rec adjv_rec_type;
5247: -- lp_ajlv_tbl ajlv_tbl_type;
5248: -- lx_ajlv_tbl ajlv_tbl_type;
5245: lp_adjv_rec adjv_rec_type;
5246: lx_adjv_rec adjv_rec_type;
5247: -- lp_ajlv_tbl ajlv_tbl_type;
5248: -- lx_ajlv_tbl ajlv_tbl_type;
5249: l_early_termination_yn VARCHAR2(1) := OKL_API.G_FALSE;
5250: l_total_amount_due NUMBER := -1;
5251: l_code_combination_id NUMBER := -1;
5252: i NUMBER := 1;
5253: l_tolerance_amt NUMBER := -1;
5258: lp_ctxt_val_tbl OKL_ACCOUNT_DIST_PUB.ctxt_val_tbl_type;
5259: lp_acc_gen_primary_key_tbl OKL_ACCOUNT_DIST_PUB.acc_gen_primary_key;
5260: lx_template_tbl OKL_ACCOUNT_DIST_PUB.avlv_tbl_type;
5261: lx_amount_tbl OKL_ACCOUNT_DIST_PUB.amount_tbl_type;
5262: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5263: l_try_id NUMBER;
5264: l_trans_meaning VARCHAR2(200);
5265: l_currency_code VARCHAR2(200);
5266: l_formatted_bal_amt VARCHAR2(200);
5318: SAVEPOINT close_balances;
5319:
5320: -- RMUNJULU 3018641 Step Message
5321: -- Step : Close Balances
5322: OKL_API.set_message(
5323: p_app_name => G_APP_NAME,
5324: p_msg_name => 'OKL_AM_STEP_CLB');
5325:
5326: -- rmunjulu BUYOUT PROCESS --+++++++ START ++++++++++++++++++++++++++++++
5326: -- rmunjulu BUYOUT PROCESS --+++++++ START ++++++++++++++++++++++++++++++
5327: -- check for auto invoice yn and invoice if applicable
5328: process_auto_invoice(
5329: p_api_version => p_api_version,
5330: p_init_msg_list => OKL_API.G_FALSE,
5331: x_return_status => l_return_status,
5332: x_msg_count => x_msg_count,
5333: x_msg_data => x_msg_data,
5334: p_term_rec => p_term_rec,
5341: p_auto_invoice_yn => p_auto_invoice_yn,
5342: p_klev_tbl => p_klev_tbl);
5343:
5344: -- If process auto invoice errors everything errors
5345: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5347: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5348: RAISE OKL_API.G_EXCEPTION_ERROR;
5349: END IF;
5342: p_klev_tbl => p_klev_tbl);
5343:
5344: -- If process auto invoice errors everything errors
5345: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5347: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5348: RAISE OKL_API.G_EXCEPTION_ERROR;
5349: END IF;
5350:
5343:
5344: -- If process auto invoice errors everything errors
5345: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5347: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5348: RAISE OKL_API.G_EXCEPTION_ERROR;
5349: END IF;
5350:
5351: -- store the highest degree of error
5344: -- If process auto invoice errors everything errors
5345: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5347: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5348: RAISE OKL_API.G_EXCEPTION_ERROR;
5349: END IF;
5350:
5351: -- store the highest degree of error
5352: set_overall_status(
5418: -- Check if total amount due is +ve else set message and exit
5419: IF l_total_amount_due <= 0 THEN
5420:
5421: -- No outstanding balances found.
5422: OKL_API.set_message( p_app_name => G_APP_NAME,
5423: p_msg_name => 'OKL_AM_NO_BAL');
5424:
5425: -- set the transaction record
5426: set_transaction_rec(
5442: IF l_tolerance_amt IS NULL THEN
5443:
5444: l_tolerance_amt := 0;
5445: -- No tolerance amount found for closing of balances.
5446: OKL_API.set_message( p_app_name => G_APP_NAME,
5447: p_msg_name => 'OKL_AM_NO_TOL_AMT');
5448:
5449: END IF;
5450:
5473:
5474: -- call the adjusts api
5475: OKL_TRX_AR_ADJSTS_PUB.insert_trx_ar_adjsts(
5476: p_api_version => p_api_version,
5477: p_init_msg_list => OKL_API.G_FALSE,
5478: x_return_status => l_return_status,
5479: x_msg_count => x_msg_count,
5480: x_msg_data => x_msg_data,
5481: p_adjv_rec => lp_adjv_rec,
5480: x_msg_data => x_msg_data,
5481: p_adjv_rec => lp_adjv_rec,
5482: x_adjv_rec => lx_adjv_rec);
5483:
5484: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5485: -- Error occurred when creating adjustment records to write off balances.
5486: OKL_API.set_message( p_app_name => G_APP_NAME,
5487: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
5488: END IF;
5482: x_adjv_rec => lx_adjv_rec);
5483:
5484: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5485: -- Error occurred when creating adjustment records to write off balances.
5486: OKL_API.set_message( p_app_name => G_APP_NAME,
5487: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
5488: END IF;
5489:
5490: -- Raise exception to rollback this whole block
5487: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
5488: END IF;
5489:
5490: -- Raise exception to rollback this whole block
5491: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5492: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5493: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5494: RAISE OKL_API.G_EXCEPTION_ERROR;
5495: END IF;
5488: END IF;
5489:
5490: -- Raise exception to rollback this whole block
5491: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5492: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5493: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5494: RAISE OKL_API.G_EXCEPTION_ERROR;
5495: END IF;
5496:
5489:
5490: -- Raise exception to rollback this whole block
5491: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5492: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5493: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5494: RAISE OKL_API.G_EXCEPTION_ERROR;
5495: END IF;
5496:
5497: -- ******** GET TRY ID FOR Balance Write off ************* --
5490: -- Raise exception to rollback this whole block
5491: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5492: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5493: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5494: RAISE OKL_API.G_EXCEPTION_ERROR;
5495: END IF;
5496:
5497: -- ******** GET TRY ID FOR Balance Write off ************* --
5498:
5501: p_try_name => 'Balance Write off',
5502: x_return_status => l_return_status,
5503: x_try_id => l_try_id);
5504:
5505: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5506:
5507: -- Message: Unable to find a transaction type for
5508: -- the transaction TRY_NAME
5509: OKL_API.set_message(
5505: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5506:
5507: -- Message: Unable to find a transaction type for
5508: -- the transaction TRY_NAME
5509: OKL_API.set_message(
5510: p_app_name => G_APP_NAME,
5511: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
5512: p_token1 => 'TRY_NAME',
5513: p_token1_value => l_trans_meaning);
5513: p_token1_value => l_trans_meaning);
5514: END IF;
5515:
5516: -- Raise exception to rollback this whole block
5517: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5518: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5519: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5520: RAISE OKL_API.G_EXCEPTION_ERROR;
5521: END IF;
5514: END IF;
5515:
5516: -- Raise exception to rollback this whole block
5517: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5518: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5519: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5520: RAISE OKL_API.G_EXCEPTION_ERROR;
5521: END IF;
5522:
5515:
5516: -- Raise exception to rollback this whole block
5517: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5518: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5519: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5520: RAISE OKL_API.G_EXCEPTION_ERROR;
5521: END IF;
5522:
5523: -- Get the meaning of lookup BALANCE_WRITE_OFF
5516: -- Raise exception to rollback this whole block
5517: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5518: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5519: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5520: RAISE OKL_API.G_EXCEPTION_ERROR;
5521: END IF;
5522:
5523: -- Get the meaning of lookup BALANCE_WRITE_OFF
5524: l_trans_meaning := OKL_AM_UTIL_PVT.get_lookup_meaning(
5536: -- raise error message if no pdt_id
5537: IF l_pdt_id IS NULL OR l_pdt_id = 0 THEN
5538: -- Error: Unable to create accounting entries because of a missing
5539: -- Product Type for the contract CONTRACT_NUMBER.
5540: OKL_API.set_message(
5541: p_app_name => G_APP_NAME,
5542: p_msg_name => 'OKL_AM_PRODUCT_ID_ERROR',
5543: p_token1 => 'CONTRACT_NUMBER',
5544: p_token1_value=> p_term_rec.p_contract_number);
5546:
5547: -- RMUNJULU 03-JAN-03 2683876 Added code to raise exception when
5548: -- no product id.
5549: -- Raise exception to rollback this whole block
5550: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5551: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5552: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5553: RAISE OKL_API.G_EXCEPTION_ERROR;
5554: END IF;
5547: -- RMUNJULU 03-JAN-03 2683876 Added code to raise exception when
5548: -- no product id.
5549: -- Raise exception to rollback this whole block
5550: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5551: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5552: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5553: RAISE OKL_API.G_EXCEPTION_ERROR;
5554: END IF;
5555:
5548: -- no product id.
5549: -- Raise exception to rollback this whole block
5550: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5551: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5552: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5553: RAISE OKL_API.G_EXCEPTION_ERROR;
5554: END IF;
5555:
5556: -- RMUNJULU 03-JAN-03 2683876 Added code to Get
5549: -- Raise exception to rollback this whole block
5550: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5551: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5552: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5553: RAISE OKL_API.G_EXCEPTION_ERROR;
5554: END IF;
5555:
5556: -- RMUNJULU 03-JAN-03 2683876 Added code to Get
5557: -- the currency conversion parameters -- START
5573: x_converted_amount => l_converted_amount);
5574:
5575:
5576: -- If error from OKL_ACCOUNTING_UTIL
5577: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5578:
5579: -- Error occurred when creating accounting entries for
5580: -- transaction TRX_TYPE.
5581: OKL_API.set_message(
5577: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5578:
5579: -- Error occurred when creating accounting entries for
5580: -- transaction TRX_TYPE.
5581: OKL_API.set_message(
5582: p_app_name => G_APP_NAME,
5583: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
5584: p_token1 => 'TRX_TYPE',
5585: p_token1_value => l_trans_meaning);
5587: END IF;
5588:
5589:
5590: -- Raise exception to rollback this whole block
5591: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5593: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5594: RAISE OKL_API.G_EXCEPTION_ERROR;
5595: END IF;
5588:
5589:
5590: -- Raise exception to rollback this whole block
5591: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5593: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5594: RAISE OKL_API.G_EXCEPTION_ERROR;
5595: END IF;
5596:
5589:
5590: -- Raise exception to rollback this whole block
5591: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5593: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5594: RAISE OKL_API.G_EXCEPTION_ERROR;
5595: END IF;
5596:
5597: -- RMUNJULU 03-JAN-03 2683876 -- END
5590: -- Raise exception to rollback this whole block
5591: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5593: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5594: RAISE OKL_API.G_EXCEPTION_ERROR;
5595: END IF;
5596:
5597: -- RMUNJULU 03-JAN-03 2683876 -- END
5598:
5613: lp_ajlv_rec.til_id := k_bal_lns_rec.til_id;
5614:
5615: IF k_bal_lns_rec.tld_id <> -999
5616: AND k_bal_lns_rec.tld_id IS NOT NULL
5617: AND k_bal_lns_rec.tld_id <> OKL_API.G_MISS_NUM THEN
5618: lp_ajlv_rec.tld_id := k_bal_lns_rec.tld_id;
5619: END IF;
5620:
5621: lp_ajlv_rec.amount := k_bal_lns_rec.amount;
5623:
5624: --call the txl_lns_adjsts
5625: OKL_TXL_ADJSTS_LNS_PUB.insert_txl_adjsts_lns(
5626: p_api_version => p_api_version,
5627: p_init_msg_list => OKL_API.G_FALSE,
5628: x_return_status => l_return_status,
5629: x_msg_count => x_msg_count,
5630: x_msg_data => x_msg_data,
5631: p_ajlv_rec => lp_ajlv_rec,
5630: x_msg_data => x_msg_data,
5631: p_ajlv_rec => lp_ajlv_rec,
5632: x_ajlv_rec => lx_ajlv_rec);
5633:
5634: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5635: -- Error occurred when creating adjustment records to write
5636: -- off balances.
5637: OKL_API.set_message( p_app_name => G_APP_NAME,
5638: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
5633:
5634: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5635: -- Error occurred when creating adjustment records to write
5636: -- off balances.
5637: OKL_API.set_message( p_app_name => G_APP_NAME,
5638: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
5639: END IF;
5640:
5641: -- Raise exception to rollback this whole block
5638: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
5639: END IF;
5640:
5641: -- Raise exception to rollback this whole block
5642: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5644: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5645: RAISE OKL_API.G_EXCEPTION_ERROR;
5646: END IF;
5639: END IF;
5640:
5641: -- Raise exception to rollback this whole block
5642: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5644: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5645: RAISE OKL_API.G_EXCEPTION_ERROR;
5646: END IF;
5647:
5640:
5641: -- Raise exception to rollback this whole block
5642: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5644: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5645: RAISE OKL_API.G_EXCEPTION_ERROR;
5646: END IF;
5647:
5648: -- ******** CREATE ACCOUNTING DISTRIBUTIONS ************* --
5641: -- Raise exception to rollback this whole block
5642: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5644: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5645: RAISE OKL_API.G_EXCEPTION_ERROR;
5646: END IF;
5647:
5648: -- ******** CREATE ACCOUNTING DISTRIBUTIONS ************* --
5649:
5694: x_acc_gen_tbl => lp_acc_gen_primary_key_tbl,
5695: x_return_status => l_return_status);
5696:
5697: -- Raise exception to rollback to savepoint for this block
5698: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5700: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5701: RAISE OKL_API.G_EXCEPTION_ERROR;
5702: END IF;
5695: x_return_status => l_return_status);
5696:
5697: -- Raise exception to rollback to savepoint for this block
5698: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5700: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5701: RAISE OKL_API.G_EXCEPTION_ERROR;
5702: END IF;
5703:
5696:
5697: -- Raise exception to rollback to savepoint for this block
5698: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5700: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5701: RAISE OKL_API.G_EXCEPTION_ERROR;
5702: END IF;
5703:
5704: -- call accounting engine
5697: -- Raise exception to rollback to savepoint for this block
5698: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5700: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5701: RAISE OKL_API.G_EXCEPTION_ERROR;
5702: END IF;
5703:
5704: -- call accounting engine
5705: -- This will calculate the adjstmnts and generate accounting entries
5704: -- call accounting engine
5705: -- This will calculate the adjstmnts and generate accounting entries
5706: OKL_ACCOUNT_DIST_PUB.create_accounting_dist(
5707: p_api_version => p_api_version,
5708: p_init_msg_list => OKL_API.G_FALSE,
5709: x_return_status => l_return_status,
5710: x_msg_count => x_msg_count,
5711: x_msg_data => x_msg_data,
5712: p_tmpl_identify_rec => lp_tmpl_identify_rec,
5715: p_acc_gen_primary_key_tbl => lp_acc_gen_primary_key_tbl,
5716: x_template_tbl => lx_template_tbl,
5717: x_amount_tbl => lx_amount_tbl);
5718:
5719: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5720:
5721: -- Error occurred when creating accounting entries
5722: -- for transaction type TRX_TYPE and stream type STREAM_TYPE.
5723: OKL_API.set_message( p_app_name => G_APP_NAME,
5719: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5720:
5721: -- Error occurred when creating accounting entries
5722: -- for transaction type TRX_TYPE and stream type STREAM_TYPE.
5723: OKL_API.set_message( p_app_name => G_APP_NAME,
5724: p_msg_name => 'OKL_AM_ERR_ACC_ENT_MSG',
5725: p_token1 => 'TRX_TYPE',
5726: p_token1_value => l_trans_meaning,
5727: p_token2 => 'STREAM_TYPE',
5729:
5730: END IF;
5731:
5732: -- Raise exception to rollback this whole block
5733: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5735: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5736: RAISE OKL_API.G_EXCEPTION_ERROR;
5737: END IF;
5730: END IF;
5731:
5732: -- Raise exception to rollback this whole block
5733: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5735: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5736: RAISE OKL_API.G_EXCEPTION_ERROR;
5737: END IF;
5738:
5731:
5732: -- Raise exception to rollback this whole block
5733: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5735: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5736: RAISE OKL_API.G_EXCEPTION_ERROR;
5737: END IF;
5738:
5739: -- ******** GET CCID FROM ACCOUNTING DISTRIBUTIONS ************* --
5732: -- Raise exception to rollback this whole block
5733: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5735: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5736: RAISE OKL_API.G_EXCEPTION_ERROR;
5737: END IF;
5738:
5739: -- ******** GET CCID FROM ACCOUNTING DISTRIBUTIONS ************* --
5740:
5749:
5750: -- Error: Unable to process small balance
5751: -- adjustments because of a missing Code Combination ID for the
5752: -- contract CONTRACT_NUMBER.
5753: OKL_API.set_message(
5754: p_app_name => G_APP_NAME,
5755: p_msg_name => 'OKL_AM_CODE_CMB_ERROR',
5756: p_token1 => 'CONTRACT_NUMBER',
5757: p_token1_value=> p_term_rec.p_contract_number);
5755: p_msg_name => 'OKL_AM_CODE_CMB_ERROR',
5756: p_token1 => 'CONTRACT_NUMBER',
5757: p_token1_value=> p_term_rec.p_contract_number);
5758:
5759: RAISE OKL_API.G_EXCEPTION_ERROR;
5760:
5761: END IF;
5762:
5763: -- ******** UPDATE TRN LINE WITH CCID ************* --
5772:
5773: --call the txl_lns_adjsts
5774: OKL_TXL_ADJSTS_LNS_PUB.update_txl_adjsts_lns(
5775: p_api_version => p_api_version,
5776: p_init_msg_list => OKL_API.G_FALSE,
5777: x_return_status => l_return_status,
5778: x_msg_count => x_msg_count,
5779: x_msg_data => x_msg_data,
5780: p_ajlv_rec => lp_ajlv_rec,
5779: x_msg_data => x_msg_data,
5780: p_ajlv_rec => lp_ajlv_rec,
5781: x_ajlv_rec => lx_ajlv_rec);
5782:
5783: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5784: -- Error occurred when creating adjustment records to write
5785: -- off balances.
5786: OKL_API.set_message( p_app_name => G_APP_NAME,
5787: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
5782:
5783: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5784: -- Error occurred when creating adjustment records to write
5785: -- off balances.
5786: OKL_API.set_message( p_app_name => G_APP_NAME,
5787: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
5788: END IF;
5789:
5790: -- Raise exception to rollback this whole block
5787: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
5788: END IF;
5789:
5790: -- Raise exception to rollback this whole block
5791: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5792: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5793: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5794: RAISE OKL_API.G_EXCEPTION_ERROR;
5795: END IF;
5788: END IF;
5789:
5790: -- Raise exception to rollback this whole block
5791: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5792: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5793: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5794: RAISE OKL_API.G_EXCEPTION_ERROR;
5795: END IF;
5796:
5789:
5790: -- Raise exception to rollback this whole block
5791: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5792: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5793: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5794: RAISE OKL_API.G_EXCEPTION_ERROR;
5795: END IF;
5796:
5797: /*
5790: -- Raise exception to rollback this whole block
5791: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5792: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5793: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5794: RAISE OKL_API.G_EXCEPTION_ERROR;
5795: END IF;
5796:
5797: /*
5798: -- Get the first code_combination_id for the transaction
5806:
5807: -- Error: Unable to process small balance
5808: -- adjustments because of a missing Code Combination ID for the
5809: -- contract CONTRACT_NUMBER.
5810: OKL_API.set_message(
5811: p_app_name => G_APP_NAME,
5812: p_msg_name => 'OKL_AM_CODE_CMB_ERROR',
5813: p_token1 => 'CONTRACT_NUMBER',
5814: p_token1_value=> p_term_rec.p_contract_number);
5812: p_msg_name => 'OKL_AM_CODE_CMB_ERROR',
5813: p_token1 => 'CONTRACT_NUMBER',
5814: p_token1_value=> p_term_rec.p_contract_number);
5815:
5816: RAISE OKL_API.G_EXCEPTION_ERROR;
5817:
5818: END IF;
5819:
5820: -- Loop thru the code combination ids to set the lns tbl
5826: lp_ajlv_tbl(i).til_id := k_bal_lns_rec.til_id;
5827:
5828: IF k_bal_lns_rec.tld_id <> -999
5829: AND k_bal_lns_rec.tld_id IS NOT NULL
5830: AND k_bal_lns_rec.tld_id <> OKL_API.G_MISS_NUM THEN
5831: lp_ajlv_tbl(i).tld_id := k_bal_lns_rec.tld_id;
5832: END IF;
5833:
5834: lp_ajlv_tbl(i).amount := k_bal_lns_rec.amount;
5845: /*
5846: --call the txl_lns_adjsts
5847: OKL_TXL_ADJSTS_LNS_PUB.insert_txl_adjsts_lns(
5848: p_api_version => p_api_version,
5849: p_init_msg_list => OKL_API.G_FALSE,
5850: x_return_status => l_return_status,
5851: x_msg_count => x_msg_count,
5852: x_msg_data => x_msg_data,
5853: p_ajlv_tbl => lp_ajlv_tbl,
5852: x_msg_data => x_msg_data,
5853: p_ajlv_tbl => lp_ajlv_tbl,
5854: x_ajlv_tbl => lx_ajlv_tbl);
5855:
5856: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5857: -- Error occurred when creating adjustment records to write
5858: -- off balances.
5859: OKL_API.set_message( p_app_name => G_APP_NAME,
5860: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
5855:
5856: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5857: -- Error occurred when creating adjustment records to write
5858: -- off balances.
5859: OKL_API.set_message( p_app_name => G_APP_NAME,
5860: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
5861: END IF;
5862:
5863: -- Raise exception to rollback this whole block
5860: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
5861: END IF;
5862:
5863: -- Raise exception to rollback this whole block
5864: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5865: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5866: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5867: RAISE OKL_API.G_EXCEPTION_ERROR;
5868: END IF;
5861: END IF;
5862:
5863: -- Raise exception to rollback this whole block
5864: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5865: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5866: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5867: RAISE OKL_API.G_EXCEPTION_ERROR;
5868: END IF;
5869: */
5862:
5863: -- Raise exception to rollback this whole block
5864: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5865: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5866: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5867: RAISE OKL_API.G_EXCEPTION_ERROR;
5868: END IF;
5869: */
5870:
5863: -- Raise exception to rollback this whole block
5864: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5865: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5866: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5867: RAISE OKL_API.G_EXCEPTION_ERROR;
5868: END IF;
5869: */
5870:
5871: /* -- Get the currency code for contract
5884: l_formatted_adj_amt := l_formatted_adj_amt || ' ' ||l_currency_code;
5885:
5886: -- Adjustment transaction for AR invoice AR_INVOICE_NUM of amount AMOUNT
5887: -- has been created.
5888: OKL_API.set_message(
5889: p_app_name => G_APP_NAME,
5890: p_msg_name => 'OKL_AM_ACC_ENT_AR_INV_MSG',
5891: p_token1 => 'AR_INVOICE_NUM',
5892: p_token1_value => k_bal_lns_rec.ar_invoice_number,
5894: p_token2_value => l_formatted_adj_amt);
5895:
5896: -- Accounting entries created for transaction type TRX_TYPE
5897: -- and stream type STREAM_TYPE.
5898: OKL_API.set_message(
5899: p_app_name => G_APP_NAME,
5900: p_msg_name => 'OKL_AM_ACC_ENT_CREATED_MSG',
5901: p_token1 => 'TRX_TYPE',
5902: p_token1_value => l_trans_meaning,
5920:
5921: ELSE --(cannot close all balances since tolerance amt is less)
5922:
5923: -- Unable to close all outstanding balances due to tolerance amount.
5924: OKL_API.set_message( p_app_name => G_APP_NAME,
5925: p_msg_name => 'OKL_AM_ERR_CLOSE_BAL');
5926:
5927: -- Get the currency code for contract
5928: l_currency_code := OKL_AM_UTIL_PVT.get_chr_currency(p_term_rec.p_contract_id);
5939: -- Append tolerance amt with currency code
5940: l_formatted_tol_amt := l_formatted_tol_amt || ' ' ||l_currency_code;
5941:
5942: -- Outstanding balance BALANCE_AMT exceeds Tolerance Amount TOLERANCE_AMT.
5943: OKL_API.set_message( p_app_name => G_APP_NAME,
5944: p_msg_name => 'OKL_AM_BAL_GTR_TOL',
5945: p_token1 => 'BALANCE_AMT',
5946: p_token1_value => l_formatted_bal_amt,
5947: p_token2 => 'TOLERANCE_AMT',
5950: -- store the highest degree of error
5951: -- Outstanding balances being greater than tolerance amt is nomore a
5952: -- HARD error, it is now a SOFT error
5953: set_overall_status(
5954: p_return_status => OKL_API.G_RET_STS_SUCCESS,
5955: px_overall_status => px_overall_status);
5956:
5957: -- set the transaction record
5958: set_transaction_rec(
5955: px_overall_status => px_overall_status);
5956:
5957: -- set the transaction record
5958: set_transaction_rec(
5959: p_return_status => OKL_API.G_RET_STS_SUCCESS,
5960: p_overall_status => px_overall_status,
5961: p_tmt_flag => 'TMT_CLOSE_BALANCES_YN',
5962: p_tsu_code => 'WORKING',
5963: p_ret_val => NULL,
5972: IF (is_debug_procedure_on) THEN
5973: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
5974: END IF;
5975: EXCEPTION
5976: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5977: IF (is_debug_exception_on) THEN
5978: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5979: END IF;
5980:
5989: END IF;
5990:
5991: ROLLBACK TO close_balances;
5992:
5993: x_return_status := OKL_API.G_RET_STS_ERROR;
5994: -- store the highest degree of error
5995: set_overall_status(
5996: p_return_status => x_return_status,
5997: px_overall_status => px_overall_status);
6011: p_tmt_flag => 'TMT_GENERIC_FLAG3_YN',
6012: p_tsu_code => 'ERROR',
6013: px_tcnv_rec => px_tcnv_rec);
6014:
6015: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6016: IF (is_debug_exception_on) THEN
6017: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
6018: END IF;
6019:
6028: END IF;
6029:
6030: ROLLBACK TO close_balances;
6031:
6032: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6033: -- store the highest degree of error
6034: set_overall_status(
6035: p_return_status => x_return_status,
6036: px_overall_status => px_overall_status);
6067: END IF;
6068:
6069: ROLLBACK TO close_balances;
6070:
6071: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6072: -- store the highest degree of error
6073: set_overall_status(
6074: p_return_status => x_return_status,
6075: px_overall_status => px_overall_status);
6090: p_tsu_code => 'ERROR',
6091: px_tcnv_rec => px_tcnv_rec);
6092:
6093: -- Set the oracle error message
6094: OKL_API.set_message(
6095: p_app_name => OKC_API.G_APP_NAME,
6096: p_msg_name => g_unexpected_error,
6097: p_token1 => g_sqlcode_token,
6098: p_token1_value => SQLCODE,
6170: -- Get the product type
6171: CURSOR l_product_type_csr(p_pdt_id IN NUMBER) IS
6172: SELECT description FROM okl_products_v WHERE id = p_pdt_id;
6173:
6174: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
6175: l_api_name VARCHAR2(30) := 'process_accounting_entries';
6176: l_pdt_id NUMBER := 0;
6177:
6178: -- MGAAP 7263041 start
6482: THEN
6483:
6484: -- Error: Unable to create accounting entries because of a missing
6485: -- Product Type for the contract CONTRACT_NUMBER.
6486: okl_api.set_message(p_app_name => g_app_name,
6487: p_msg_name => 'OKL_AM_PRODUCT_ID_ERROR',
6488: p_token1 => 'CONTRACT_NUMBER',
6489: p_token1_value => p_term_rec.p_contract_number);
6490:
6487: p_msg_name => 'OKL_AM_PRODUCT_ID_ERROR',
6488: p_token1 => 'CONTRACT_NUMBER',
6489: p_token1_value => p_term_rec.p_contract_number);
6490:
6491: RAISE okl_api.g_exception_error;
6492:
6493: END IF;
6494: IF (is_debug_statement_on) THEN
6495: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,' l_pdt_id = '||l_pdt_id);
6507: THEN
6508:
6509: -- RMUNJULU 3018641 Step Message
6510: -- Step : Accounting Entries
6511: okl_api.set_message(p_app_name => g_app_name,
6512: p_msg_name => 'OKL_AM_STEP_ACT');
6513:
6514: -- rmunjulu +++++++++ Effective Dated Termination -- start ++++++++++++++++
6515:
6566: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_securitization_pvt.check_khr_ia_associated');
6567: END IF;
6568: -- rmunjulu 4622198 SPECIAL_ACCNT Get special accounting details
6569: okl_securitization_pvt.check_khr_ia_associated(p_api_version => p_api_version,
6570: p_init_msg_list => okl_api.g_false,
6571: x_return_status => l_return_status,
6572: x_msg_count => x_msg_count,
6573: x_msg_data => x_msg_data,
6574: p_khr_id => p_term_rec.p_contract_id,
6579: IF (is_debug_statement_on) THEN
6580: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_securitization_pvt.check_khr_ia_associated l_return_status = '||l_return_status);
6581: END IF;
6582:
6583: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6584: THEN
6585: RAISE okl_api.g_exception_unexpected_error;
6586: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6587: THEN
6581: END IF;
6582:
6583: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6584: THEN
6585: RAISE okl_api.g_exception_unexpected_error;
6586: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6587: THEN
6588: RAISE okl_api.g_exception_error;
6589: END IF;
6582:
6583: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6584: THEN
6585: RAISE okl_api.g_exception_unexpected_error;
6586: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6587: THEN
6588: RAISE okl_api.g_exception_error;
6589: END IF;
6590:
6584: THEN
6585: RAISE okl_api.g_exception_unexpected_error;
6586: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6587: THEN
6588: RAISE okl_api.g_exception_error;
6589: END IF;
6590:
6591: -- rmunjulu 4622198 SPECIAL_ACCNT set the special accounting parameters
6592: lip_tmpl_identify_rec.factoring_synd_flag := l_fact_synd_code;
6596: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_account_dist_pub.get_template_info');
6597: END IF;
6598: -- Get the accounting templates
6599: okl_account_dist_pub.get_template_info(p_api_version => p_api_version,
6600: p_init_msg_list => okl_api.g_false,
6601: x_return_status => l_return_status,
6602: x_msg_count => x_msg_count,
6603: x_msg_data => x_msg_data,
6604: p_tmpl_identify_rec => lip_tmpl_identify_rec,
6607: IF (is_debug_statement_on) THEN
6608: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_account_dist_pub.get_template_info l_return_status = '||l_return_status);
6609: END IF;
6610:
6611: IF l_return_status <> okl_api.g_ret_sts_success
6612: THEN
6613:
6614: -- No accounting templates found matching the transaction type TRX_TYPE
6615: -- and product PRODUCT.
6612: THEN
6613:
6614: -- No accounting templates found matching the transaction type TRX_TYPE
6615: -- and product PRODUCT.
6616: okl_api.set_message(p_app_name => g_app_name,
6617: p_msg_name => 'OKL_AM_NO_ACC_TEMPLATES',
6618: p_token1 => 'TRX_TYPE',
6619: p_token1_value => l_trans_meaning,
6620: p_token2 => 'PRODUCT',
6621: p_token2_value => l_product_type);
6622:
6623: END IF;
6624:
6625: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6626: THEN
6627: RAISE okl_api.g_exception_unexpected_error;
6628: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6629: THEN
6623: END IF;
6624:
6625: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6626: THEN
6627: RAISE okl_api.g_exception_unexpected_error;
6628: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6629: THEN
6630: RAISE okl_api.g_exception_error;
6631: END IF;
6624:
6625: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6626: THEN
6627: RAISE okl_api.g_exception_unexpected_error;
6628: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6629: THEN
6630: RAISE okl_api.g_exception_error;
6631: END IF;
6632: l_functional_currency_code := okl_am_util_pvt.get_functional_currency();
6626: THEN
6627: RAISE okl_api.g_exception_unexpected_error;
6628: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6629: THEN
6630: RAISE okl_api.g_exception_error;
6631: END IF;
6632: l_functional_currency_code := okl_am_util_pvt.get_functional_currency();
6633: --akrangan Bug 6147049 code fix start
6634: --call functional currency conversion only
6657: IF (is_debug_statement_on) THEN
6658: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_accounting_util.convert_to_functional_currency l_return_status = '||l_return_status);
6659: END IF;
6660: -- If error from OKL_ACCOUNTING_UTIL
6661: IF l_return_status <> okl_api.g_ret_sts_success
6662: THEN
6663:
6664: -- Error occurred when creating accounting entries for
6665: -- transaction TRX_TYPE.
6662: THEN
6663:
6664: -- Error occurred when creating accounting entries for
6665: -- transaction TRX_TYPE.
6666: okl_api.set_message(p_app_name => g_app_name,
6667: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
6668: p_token1 => 'TRX_TYPE',
6669: p_token1_value => l_trans_meaning);
6670:
6677: THEN
6678:
6679: -- No accounting templates found matching the transaction type TRX_TYPE
6680: -- and product PRODUCT.
6681: okl_api.set_message(p_app_name => g_app_name,
6682: p_msg_name => 'OKL_AM_NO_ACC_TEMPLATES',
6683: p_token1 => 'TRX_TYPE',
6684: p_token1_value => l_trans_meaning,
6685: p_token2 => 'PRODUCT',
6684: p_token1_value => l_trans_meaning,
6685: p_token2 => 'PRODUCT',
6686: p_token2_value => l_product_type);
6687:
6688: RAISE okl_api.g_exception_error;
6689:
6690: END IF;
6691:
6692: -- *****************************
6755: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_trx_contracts_pub.create_trx_cntrct_lines');
6756: END IF;
6757: --create trx contract lines table
6758: okl_trx_contracts_pub.create_trx_cntrct_lines(p_api_version => p_api_version,
6759: p_init_msg_list => okl_api.g_false,
6760: x_return_status => l_return_status,
6761: x_msg_count => x_msg_count,
6762: x_msg_data => x_msg_data,
6763: p_tclv_tbl => l_tclv_tbl,
6766: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_trx_contracts_pub.create_trx_cntrct_lines l_return_status = '||l_return_status);
6767: END IF;
6768:
6769: -- If error inserting line then set message
6770: IF l_return_status <> okl_api.g_ret_sts_success
6771: THEN
6772:
6773: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
6774: okl_api.set_message(p_app_name => g_app_name,
6770: IF l_return_status <> okl_api.g_ret_sts_success
6771: THEN
6772:
6773: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
6774: okl_api.set_message(p_app_name => g_app_name,
6775: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
6776: p_token1 => 'TRX_TYPE',
6777: p_token1_value => l_trans_meaning);
6778:
6778:
6779: END IF;
6780:
6781: -- Raise exception to rollback to savepoint for this block
6782: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6783: THEN
6784: RAISE okl_api.g_exception_unexpected_error;
6785: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6786: THEN
6780:
6781: -- Raise exception to rollback to savepoint for this block
6782: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6783: THEN
6784: RAISE okl_api.g_exception_unexpected_error;
6785: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6786: THEN
6787: RAISE okl_api.g_exception_error;
6788: END IF;
6781: -- Raise exception to rollback to savepoint for this block
6782: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6783: THEN
6784: RAISE okl_api.g_exception_unexpected_error;
6785: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6786: THEN
6787: RAISE okl_api.g_exception_error;
6788: END IF;
6789: --setting the input table type to the obtained outout table type
6783: THEN
6784: RAISE okl_api.g_exception_unexpected_error;
6785: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6786: THEN
6787: RAISE okl_api.g_exception_error;
6788: END IF;
6789: --setting the input table type to the obtained outout table type
6790: l_tclv_tbl := lx_tclv_tbl;
6791:
6803: x_return_status => l_return_status);
6804: IF (is_debug_statement_on) THEN
6805: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_acc_call_pvt.okl_populate_acc_gen l_return_status = '||l_return_status);
6806: END IF;
6807: IF l_return_status <> okl_api.g_ret_sts_success
6808: THEN
6809: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
6810: okl_api.set_message(p_app_name => g_app_name,
6811: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
6806: END IF;
6807: IF l_return_status <> okl_api.g_ret_sts_success
6808: THEN
6809: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
6810: okl_api.set_message(p_app_name => g_app_name,
6811: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
6812: p_token1 => 'TRX_TYPE',
6813: p_token1_value => l_trans_meaning);
6814: END IF;
6812: p_token1 => 'TRX_TYPE',
6813: p_token1_value => l_trans_meaning);
6814: END IF;
6815: -- Raise exception to rollback to savepoint for this block
6816: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6817: THEN
6818: RAISE okl_api.g_exception_unexpected_error;
6819: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6820: THEN
6814: END IF;
6815: -- Raise exception to rollback to savepoint for this block
6816: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6817: THEN
6818: RAISE okl_api.g_exception_unexpected_error;
6819: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6820: THEN
6821: RAISE okl_api.g_exception_error;
6822: END IF;
6815: -- Raise exception to rollback to savepoint for this block
6816: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6817: THEN
6818: RAISE okl_api.g_exception_unexpected_error;
6819: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6820: THEN
6821: RAISE okl_api.g_exception_error;
6822: END IF;
6823:
6817: THEN
6818: RAISE okl_api.g_exception_unexpected_error;
6819: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6820: THEN
6821: RAISE okl_api.g_exception_error;
6822: END IF;
6823:
6824: -- *********************************************
6825: -- Accounting Engine Call
6863: IF (is_debug_statement_on) THEN
6864: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_account_dist_pvt.create_accounting_dist');
6865: END IF;
6866: okl_account_dist_pvt.create_accounting_dist(p_api_version => p_api_version,
6867: p_init_msg_list => okl_api.g_false,
6868: x_return_status => l_return_status,
6869: x_msg_count => x_msg_count,
6870: x_msg_data => x_msg_data,
6871: p_tmpl_identify_tbl => l_tmpl_identify_tbl,
6880: END IF;
6881:
6882: IF l_amount_out_tbl.COUNT = 0
6883: THEN
6884: l_return_status := okl_api.g_ret_sts_error;
6885: END IF;
6886:
6887: IF l_return_status <> okl_api.g_ret_sts_success
6888: THEN
6883: THEN
6884: l_return_status := okl_api.g_ret_sts_error;
6885: END IF;
6886:
6887: IF l_return_status <> okl_api.g_ret_sts_success
6888: THEN
6889: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
6890: okl_api.set_message(p_app_name => g_app_name,
6891: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
6886:
6887: IF l_return_status <> okl_api.g_ret_sts_success
6888: THEN
6889: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
6890: okl_api.set_message(p_app_name => g_app_name,
6891: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
6892: p_token1 => 'TRX_TYPE',
6893: p_token1_value => l_trans_meaning);
6894:
6894:
6895: END IF;
6896:
6897: -- Raise exception to rollback to savepoint for this block
6898: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6899: THEN
6900: RAISE okl_api.g_exception_unexpected_error;
6901: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6902: THEN
6896:
6897: -- Raise exception to rollback to savepoint for this block
6898: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6899: THEN
6900: RAISE okl_api.g_exception_unexpected_error;
6901: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6902: THEN
6903: RAISE okl_api.g_exception_error;
6904: END IF;
6897: -- Raise exception to rollback to savepoint for this block
6898: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6899: THEN
6900: RAISE okl_api.g_exception_unexpected_error;
6901: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6902: THEN
6903: RAISE okl_api.g_exception_error;
6904: END IF;
6905:
6899: THEN
6900: RAISE okl_api.g_exception_unexpected_error;
6901: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6902: THEN
6903: RAISE okl_api.g_exception_error;
6904: END IF;
6905:
6906: -- ******************************************************
6907: -- Update Trx Contracts with Header and Line Amounts
6951: lx_template_tbl := l_template_out_tbl(m).template_tbl;
6952: IF (lx_amount_tbl.COUNT <> 1 OR lx_template_tbl.COUNT <> 1)
6953: THEN
6954: --raise error
6955: l_return_status := okl_api.g_ret_sts_error;
6956: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
6957: okl_api.set_message(p_app_name => g_app_name,
6958: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
6959: p_token1 => 'TRX_TYPE',
6953: THEN
6954: --raise error
6955: l_return_status := okl_api.g_ret_sts_error;
6956: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
6957: okl_api.set_message(p_app_name => g_app_name,
6958: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
6959: p_token1 => 'TRX_TYPE',
6960: p_token1_value => l_trans_meaning);
6961:
6959: p_token1 => 'TRX_TYPE',
6960: p_token1_value => l_trans_meaning);
6961:
6962: -- Raise exception to rollback to savepoint for this block
6963: RAISE okl_api.g_exception_error;
6964: ELSE
6965: l := lx_amount_tbl.FIRST;
6966: --update line amount
6967: l_tclv_tbl(k).amount := NVL(lx_amount_tbl(l),0);
6980: IF (is_debug_statement_on) THEN
6981: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_trx_contracts_pub.update_trx_contracts');
6982: END IF;
6983: okl_trx_contracts_pub.update_trx_contracts(p_api_version => p_api_version,
6984: p_init_msg_list => okl_api.g_false,
6985: x_return_status => l_return_status,
6986: x_msg_count => x_msg_count,
6987: x_msg_data => x_msg_data,
6988: p_tcnv_rec => lip_tcnv_rec,
6992: --handle exception
6993: IF (is_debug_statement_on) THEN
6994: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_trx_contracts_pub.update_trx_contracts l_return_status = '||l_return_status);
6995: END IF;
6996: IF l_return_status <> okl_api.g_ret_sts_success
6997: THEN
6998: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
6999: okl_api.set_message(p_app_name => g_app_name,
7000: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
6995: END IF;
6996: IF l_return_status <> okl_api.g_ret_sts_success
6997: THEN
6998: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
6999: okl_api.set_message(p_app_name => g_app_name,
7000: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
7001: p_token1 => 'TRX_TYPE',
7002: p_token1_value => l_trans_meaning);
7003:
7003:
7004: END IF;
7005:
7006: -- Raise exception to rollback to savepoint for this block
7007: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7008: THEN
7009: RAISE okl_api.g_exception_unexpected_error;
7010: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7011: THEN
7005:
7006: -- Raise exception to rollback to savepoint for this block
7007: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7008: THEN
7009: RAISE okl_api.g_exception_unexpected_error;
7010: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7011: THEN
7012: RAISE okl_api.g_exception_error;
7013: END IF;
7006: -- Raise exception to rollback to savepoint for this block
7007: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7008: THEN
7009: RAISE okl_api.g_exception_unexpected_error;
7010: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7011: THEN
7012: RAISE okl_api.g_exception_error;
7013: END IF;
7014:
7008: THEN
7009: RAISE okl_api.g_exception_unexpected_error;
7010: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7011: THEN
7012: RAISE okl_api.g_exception_error;
7013: END IF;
7014:
7015: -- Set the return record
7016: px_tcnv_rec := lix_tcnv_rec;
7027: ,P_TCLV_TBL => lx_tclv_tbl
7028: ,p_ctxt_val_tbl => l_ctxt_tbl
7029: ,p_acc_gen_primary_key_tbl => lp_acc_gen_primary_key_tbl);
7030:
7031: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7032: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7033: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
7034: RAISE Okl_Api.G_EXCEPTION_ERROR;
7035: END IF;
7028: ,p_ctxt_val_tbl => l_ctxt_tbl
7029: ,p_acc_gen_primary_key_tbl => lp_acc_gen_primary_key_tbl);
7030:
7031: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7032: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7033: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
7034: RAISE Okl_Api.G_EXCEPTION_ERROR;
7035: END IF;
7036:
7029: ,p_acc_gen_primary_key_tbl => lp_acc_gen_primary_key_tbl);
7030:
7031: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7032: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7033: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
7034: RAISE Okl_Api.G_EXCEPTION_ERROR;
7035: END IF;
7036:
7037: -- rmunjulu 4141991 Get the contract status
7030:
7031: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7032: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7033: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
7034: RAISE Okl_Api.G_EXCEPTION_ERROR;
7035: END IF;
7036:
7037: -- rmunjulu 4141991 Get the contract status
7038: OPEN get_k_sts_csr(p_term_rec.p_contract_id);
7058: l_trans_meaning := okl_am_util_pvt.get_lookup_meaning(p_lookup_type => 'OKL_ACCOUNTING_EVENT_TYPE',
7059: p_lookup_code => 'ACCRUAL',
7060: p_validate_yn => 'Y');
7061:
7062: IF l_return_status <> okl_api.g_ret_sts_success
7063: THEN
7064:
7065: -- Message: Unable to find a transaction type for
7066: -- the transaction TRY_NAME
7063: THEN
7064:
7065: -- Message: Unable to find a transaction type for
7066: -- the transaction TRY_NAME
7067: okl_api.set_message(p_app_name => g_app_name,
7068: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
7069: p_token1 => 'TRY_NAME',
7070: p_token1_value => l_trans_meaning);
7071:
7070: p_token1_value => l_trans_meaning);
7071:
7072: --Message: Unable to do reversal of non-income during termination
7073: -- of contract CONTRACT_NUMBER.
7074: okl_api.set_message(p_app_name => g_app_name,
7075: p_msg_name => 'OKL_AM_REV_NONINC_ERR',
7076: p_token1 => 'CONTRACT_NUMBER',
7077: p_token1_value => p_term_rec.p_contract_number);
7078:
7078:
7079: END IF;
7080:
7081: -- Raise exception to rollback this whole block
7082: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7083: THEN
7084: RAISE okl_api.g_exception_unexpected_error;
7085: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7086: THEN
7080:
7081: -- Raise exception to rollback this whole block
7082: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7083: THEN
7084: RAISE okl_api.g_exception_unexpected_error;
7085: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7086: THEN
7087: RAISE okl_api.g_exception_error;
7088: END IF;
7081: -- Raise exception to rollback this whole block
7082: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7083: THEN
7084: RAISE okl_api.g_exception_unexpected_error;
7085: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7086: THEN
7087: RAISE okl_api.g_exception_error;
7088: END IF;
7089:
7083: THEN
7084: RAISE okl_api.g_exception_unexpected_error;
7085: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7086: THEN
7087: RAISE okl_api.g_exception_error;
7088: END IF;
7089:
7090: -- Set the rec type in parameter
7091: l_catchup_rec.contract_id := p_term_rec.p_contract_id;
7104: IF (is_debug_statement_on) THEN
7105: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_generate_accruals_pub.catchup_accruals');
7106: END IF;
7107: okl_generate_accruals_pub.catchup_accruals(p_api_version => p_api_version,
7108: p_init_msg_list => okl_api.g_false,
7109: x_return_status => l_return_status,
7110: x_msg_count => x_msg_count,
7111: x_msg_data => x_msg_data,
7112: p_catchup_rec => l_catchup_rec,
7114: x_tclv_tbl => lx_tclv_tbl);
7115: IF (is_debug_statement_on) THEN
7116: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_generate_accruals_pub.catchup_accruals l_return_status = '||l_return_status);
7117: END IF;
7118: IF l_return_status <> okl_api.g_ret_sts_success
7119: THEN
7120:
7121: --Message: Unable to do reversal of non-income during termination
7122: -- of contract CONTRACT_NUMBER.
7119: THEN
7120:
7121: --Message: Unable to do reversal of non-income during termination
7122: -- of contract CONTRACT_NUMBER.
7123: okl_api.set_message(p_app_name => g_app_name,
7124: p_msg_name => 'OKL_AM_REV_NONINC_ERR',
7125: p_token1 => 'CONTRACT_NUMBER',
7126: p_token1_value => p_term_rec.p_contract_number);
7127: END IF;
7126: p_token1_value => p_term_rec.p_contract_number);
7127: END IF;
7128:
7129: -- Raise exception to rollback this whole block
7130: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7131: THEN
7132: RAISE okl_api.g_exception_unexpected_error;
7133: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7134: THEN
7128:
7129: -- Raise exception to rollback this whole block
7130: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7131: THEN
7132: RAISE okl_api.g_exception_unexpected_error;
7133: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7134: THEN
7135: RAISE okl_api.g_exception_error;
7136: END IF;
7129: -- Raise exception to rollback this whole block
7130: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7131: THEN
7132: RAISE okl_api.g_exception_unexpected_error;
7133: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7134: THEN
7135: RAISE okl_api.g_exception_error;
7136: END IF;
7137:
7131: THEN
7132: RAISE okl_api.g_exception_unexpected_error;
7133: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7134: THEN
7135: RAISE okl_api.g_exception_error;
7136: END IF;
7137:
7138: -- MGAAP 7263041 start
7139:
7154: IF (is_debug_statement_on) THEN
7155: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_generate_accruals_pub.catchup_accruals for SECONDARY');
7156: END IF;
7157: okl_generate_accruals_pub.catchup_accruals(p_api_version => p_api_version,
7158: p_init_msg_list => okl_api.g_false,
7159: x_return_status => l_return_status,
7160: x_msg_count => x_msg_count,
7161: x_msg_data => x_msg_data,
7162: p_catchup_rec => l_catchup_rec,
7165: p_representation_type => 'SECONDARY');
7166: IF (is_debug_statement_on) THEN
7167: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_generate_accruals_pub.catchup_accruals for SECONDARY l_return_status = '||l_return_status);
7168: END IF;
7169: IF l_return_status <> okl_api.g_ret_sts_success
7170: THEN
7171:
7172: --Message: Unable to do reversal of non-income during termination
7173: -- of contract CONTRACT_NUMBER.
7170: THEN
7171:
7172: --Message: Unable to do reversal of non-income during termination
7173: -- of contract CONTRACT_NUMBER.
7174: okl_api.set_message(p_app_name => g_app_name,
7175: p_msg_name => 'OKL_AM_REV_NONINC_ERR',
7176: p_token1 => 'CONTRACT_NUMBER',
7177: p_token1_value => p_term_rec.p_contract_number);
7178: END IF;
7177: p_token1_value => p_term_rec.p_contract_number);
7178: END IF;
7179:
7180: -- Raise exception to rollback this whole block
7181: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7182: THEN
7183: RAISE okl_api.g_exception_unexpected_error;
7184: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7185: THEN
7179:
7180: -- Raise exception to rollback this whole block
7181: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7182: THEN
7183: RAISE okl_api.g_exception_unexpected_error;
7184: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7185: THEN
7186: RAISE okl_api.g_exception_error;
7187: END IF;
7180: -- Raise exception to rollback this whole block
7181: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7182: THEN
7183: RAISE okl_api.g_exception_unexpected_error;
7184: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7185: THEN
7186: RAISE okl_api.g_exception_error;
7187: END IF;
7188:
7182: THEN
7183: RAISE okl_api.g_exception_unexpected_error;
7184: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7185: THEN
7186: RAISE okl_api.g_exception_error;
7187: END IF;
7188:
7189: END IF;
7190:
7204: IF (is_debug_statement_on) THEN
7205: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_rev_loss_prov_pub.reverse_loss_provisions');
7206: END IF;
7207: okl_rev_loss_prov_pub.reverse_loss_provisions(p_api_version => p_api_version,
7208: p_init_msg_list => okl_api.g_false,
7209: x_return_status => l_return_status,
7210: x_msg_count => x_msg_count,
7211: x_msg_data => x_msg_data,
7212: p_lprv_rec => l_lprv_rec);
7212: p_lprv_rec => l_lprv_rec);
7213: IF (is_debug_statement_on) THEN
7214: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_rev_loss_prov_pub.reverse_loss_provisions l_return_status = '||l_return_status);
7215: END IF;
7216: IF l_return_status <> okl_api.g_ret_sts_success
7217: THEN
7218:
7219: -- Message: Unable to do reversal of loss provisions during
7220: -- termination of contract CONTRACT_NUMBER.
7217: THEN
7218:
7219: -- Message: Unable to do reversal of loss provisions during
7220: -- termination of contract CONTRACT_NUMBER.
7221: okl_api.set_message(p_app_name => g_app_name,
7222: p_msg_name => 'OKL_AM_REV_LOSPROV_ERR',
7223: p_token1 => 'CONTRACT_NUMBER',
7224: p_token1_value => p_term_rec.p_contract_number);
7225: END IF;
7224: p_token1_value => p_term_rec.p_contract_number);
7225: END IF;
7226:
7227: -- Raise exception to rollback this whole block
7228: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7229: THEN
7230: RAISE okl_api.g_exception_unexpected_error;
7231: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7232: THEN
7226:
7227: -- Raise exception to rollback this whole block
7228: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7229: THEN
7230: RAISE okl_api.g_exception_unexpected_error;
7231: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7232: THEN
7233: RAISE okl_api.g_exception_error;
7234: END IF;
7227: -- Raise exception to rollback this whole block
7228: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7229: THEN
7230: RAISE okl_api.g_exception_unexpected_error;
7231: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7232: THEN
7233: RAISE okl_api.g_exception_error;
7234: END IF;
7235:
7229: THEN
7230: RAISE okl_api.g_exception_unexpected_error;
7231: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7232: THEN
7233: RAISE okl_api.g_exception_error;
7234: END IF;
7235:
7236: -- rmunjulu +++++++++ Effective Dated Termination -- start ++++++++++++++++
7237:
7262: IF (is_debug_statement_on) THEN
7263: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_generate_accruals_pub.reverse_accruals');
7264: END IF;
7265: okl_generate_accruals_pub.reverse_accruals(p_api_version => p_api_version,
7266: p_init_msg_list => okl_api.g_false,
7267: x_return_status => l_return_status,
7268: x_msg_count => x_msg_count,
7269: x_msg_data => x_msg_data,
7270: p_khr_id => p_term_rec.p_contract_id,
7275: p_tcn_type => l_empty_tcn_type); -- No value needs to be passed to this
7276: IF (is_debug_statement_on) THEN
7277: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_generate_accruals_pub.reverse_accruals l_return_status = '||l_return_status);
7278: END IF;
7279: IF l_return_status <> okl_api.g_ret_sts_success
7280: THEN
7281:
7282: -- Message: Unable to do reversal of accrual during
7283: -- termination of contract CONTRACT_NUMBER.
7280: THEN
7281:
7282: -- Message: Unable to do reversal of accrual during
7283: -- termination of contract CONTRACT_NUMBER.
7284: okl_api.set_message(p_app_name => g_app_name,
7285: p_msg_name => 'OKL_AM_EDT_REVERSAL_ERR',
7286: p_token1 => 'CONTRACT_NUMBER',
7287: p_token1_value => p_term_rec.p_contract_number);
7288: END IF;
7287: p_token1_value => p_term_rec.p_contract_number);
7288: END IF;
7289:
7290: -- Raise exception to rollback this whole block
7291: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7292: THEN
7293: RAISE okl_api.g_exception_unexpected_error;
7294: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7295: THEN
7289:
7290: -- Raise exception to rollback this whole block
7291: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7292: THEN
7293: RAISE okl_api.g_exception_unexpected_error;
7294: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7295: THEN
7296: RAISE okl_api.g_exception_error;
7297: END IF;
7290: -- Raise exception to rollback this whole block
7291: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7292: THEN
7293: RAISE okl_api.g_exception_unexpected_error;
7294: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7295: THEN
7296: RAISE okl_api.g_exception_error;
7297: END IF;
7298:
7292: THEN
7293: RAISE okl_api.g_exception_unexpected_error;
7294: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7295: THEN
7296: RAISE okl_api.g_exception_error;
7297: END IF;
7298:
7299: -- rmunjulu +++++++++ Effective Dated Termination -- end ++++++++++++++++
7300:
7435: x_msg_data => x_msg_data,
7436: p_acceleration_rec => l_acceleration_rec,
7437: x_trx_number => l_trx_number); -- MGAAP 7263041
7438:
7439: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7440: THEN
7441: RAISE okl_api.g_exception_unexpected_error;
7442: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7443: THEN
7437: x_trx_number => l_trx_number); -- MGAAP 7263041
7438:
7439: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7440: THEN
7441: RAISE okl_api.g_exception_unexpected_error;
7442: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7443: THEN
7444: RAISE okl_api.g_exception_error;
7445: END IF;
7438:
7439: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7440: THEN
7441: RAISE okl_api.g_exception_unexpected_error;
7442: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7443: THEN
7444: RAISE okl_api.g_exception_error;
7445: END IF;
7446:
7440: THEN
7441: RAISE okl_api.g_exception_unexpected_error;
7442: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7443: THEN
7444: RAISE okl_api.g_exception_error;
7445: END IF;
7446:
7447: -- Start MGAAP 7263041
7448: OKL_STREAMS_SEC_PVT.SET_REPO_STREAMS;
7451: 'EXPENSE',
7452: 'AMORTIZED_FEE_EXPENSE',
7453: l_return_status,
7454: lx_sty_id_rep);
7455: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
7456: l_acceleration_rec.sty_id := lx_sty_id_rep;
7457: l_acceleration_rec.trx_number := l_trx_number;
7458:
7459: OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals (
7471: IF (is_debug_statement_on) THEN
7472: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
7473: END IF;
7474:
7475: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7476: THEN
7477: RAISE okl_api.g_exception_unexpected_error;
7478: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7479: THEN
7473: END IF;
7474:
7475: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7476: THEN
7477: RAISE okl_api.g_exception_unexpected_error;
7478: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7479: THEN
7480: RAISE okl_api.g_exception_error;
7481: END IF;
7474:
7475: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7476: THEN
7477: RAISE okl_api.g_exception_unexpected_error;
7478: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7479: THEN
7480: RAISE okl_api.g_exception_error;
7481: END IF;
7482:
7476: THEN
7477: RAISE okl_api.g_exception_unexpected_error;
7478: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7479: THEN
7480: RAISE okl_api.g_exception_error;
7481: END IF;
7482:
7483: END IF;
7484: -- End MGAAP 7263041
7490: IF (is_debug_statement_on) THEN
7491: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_am_lease_loan_trmnt_pvt.process_adjustments');
7492: END IF;
7493: okl_am_lease_loan_trmnt_pvt.process_adjustments(p_api_version => p_api_version,
7494: p_init_msg_list => okl_api.g_false,
7495: x_return_status => l_return_status,
7496: x_msg_count => x_msg_count,
7497: x_msg_data => x_msg_data,
7498: p_term_rec => p_term_rec,
7511: -- End MDOKAL Bug 3061765
7512: -- Smoduga
7513: -- Call to Process discount and Subsidy during acceptance of a termination quote
7514: okl_am_lease_loan_trmnt_pvt.process_discount_subsidy(p_api_version => p_api_version,
7515: p_init_msg_list => okl_api.g_false,
7516: x_return_status => l_return_status,
7517: x_msg_count => x_msg_count,
7518: x_msg_data => x_msg_data,
7519: p_term_rec => p_term_rec,
7521: p_termination_date => p_sys_date);
7522: IF (is_debug_statement_on) THEN
7523: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_am_lease_loan_trmnt_pvt.process_adjustments l_return_status = '||l_return_status);
7524: END IF;
7525: IF l_return_status <> okl_api.g_ret_sts_success
7526: THEN
7527:
7528: okl_api.set_message(p_app_name => g_app_name,
7529: p_msg_name => 'OKL_AM_SUBSIDY_PROC_FAIL');
7524: END IF;
7525: IF l_return_status <> okl_api.g_ret_sts_success
7526: THEN
7527:
7528: okl_api.set_message(p_app_name => g_app_name,
7529: p_msg_name => 'OKL_AM_SUBSIDY_PROC_FAIL');
7530: END IF;
7531:
7532: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7528: okl_api.set_message(p_app_name => g_app_name,
7529: p_msg_name => 'OKL_AM_SUBSIDY_PROC_FAIL');
7530: END IF;
7531:
7532: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7533: THEN
7534: RAISE okl_api.g_exception_unexpected_error;
7535: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7536: THEN
7530: END IF;
7531:
7532: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7533: THEN
7534: RAISE okl_api.g_exception_unexpected_error;
7535: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7536: THEN
7537: RAISE okl_api.g_exception_error;
7538: END IF;
7531:
7532: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7533: THEN
7534: RAISE okl_api.g_exception_unexpected_error;
7535: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7536: THEN
7537: RAISE okl_api.g_exception_error;
7538: END IF;
7539: -- Smoduga
7533: THEN
7534: RAISE okl_api.g_exception_unexpected_error;
7535: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7536: THEN
7537: RAISE okl_api.g_exception_error;
7538: END IF;
7539: -- Smoduga
7540: -- Call to Process discount and Subsidy during acceptance of a termination quote
7541: IF (is_debug_statement_on) THEN
7542: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_am_lease_loan_trmnt_pvt.process_loan_refunds');
7543: END IF;
7544: -- rmunjulu LOANS_ENHANCEMENTS Call to refund excess loan payments
7545: okl_am_lease_loan_trmnt_pvt.process_loan_refunds(p_api_version => p_api_version,
7546: p_init_msg_list => okl_api.g_false,
7547: x_return_status => l_return_status,
7548: x_msg_count => x_msg_count,
7549: x_msg_data => x_msg_data,
7550: p_term_rec => p_term_rec,
7553: p_termination_date => p_sys_date);
7554: IF (is_debug_statement_on) THEN
7555: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_am_lease_loan_trmnt_pvt.process_loan_refunds l_return_status = '||l_return_status);
7556: END IF;
7557: IF l_return_status <> okl_api.g_ret_sts_success
7558: THEN
7559:
7560: okl_api.set_message(p_app_name => g_app_name,
7561: p_msg_name => 'OKL_AM_LOAN_REFUND_FAILED');
7556: END IF;
7557: IF l_return_status <> okl_api.g_ret_sts_success
7558: THEN
7559:
7560: okl_api.set_message(p_app_name => g_app_name,
7561: p_msg_name => 'OKL_AM_LOAN_REFUND_FAILED');
7562: END IF;
7563:
7564: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7560: okl_api.set_message(p_app_name => g_app_name,
7561: p_msg_name => 'OKL_AM_LOAN_REFUND_FAILED');
7562: END IF;
7563:
7564: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7565: THEN
7566: RAISE okl_api.g_exception_unexpected_error;
7567: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7568: THEN
7562: END IF;
7563:
7564: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7565: THEN
7566: RAISE okl_api.g_exception_unexpected_error;
7567: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7568: THEN
7569: RAISE okl_api.g_exception_error;
7570: END IF;
7563:
7564: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7565: THEN
7566: RAISE okl_api.g_exception_unexpected_error;
7567: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7568: THEN
7569: RAISE okl_api.g_exception_error;
7570: END IF;
7571:
7565: THEN
7566: RAISE okl_api.g_exception_unexpected_error;
7567: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7568: THEN
7569: RAISE okl_api.g_exception_error;
7570: END IF;
7571:
7572: -- *************
7573: -- SUCCESS MESSAGES
7574: -- *************
7575:
7576: -- Message: Reversal of non-income during termination
7577: -- of contract CONTRACT_NUMBER done successfully.
7578: okl_api.set_message(p_app_name => g_app_name,
7579: p_msg_name => 'OKL_AM_REV_NONINC_SUC',
7580: p_token1 => 'CONTRACT_NUMBER',
7581: p_token1_value => p_term_rec.p_contract_number);
7582:
7581: p_token1_value => p_term_rec.p_contract_number);
7582:
7583: -- Message: Reversal of loss provisions during
7584: -- termination of contract CONTRACT_NUMBER done successfully.
7585: okl_api.set_message(p_app_name => g_app_name,
7586: p_msg_name => 'OKL_AM_REV_LOSPROV_SUC',
7587: p_token1 => 'CONTRACT_NUMBER',
7588: p_token1_value => p_term_rec.p_contract_number);
7589:
7595: p_lookup_code => 'TERMINATION',
7596: p_validate_yn => 'Y');
7597:
7598: -- Accounting entries created for transaction type TRX_TYPE.
7599: okl_api.set_message(p_app_name => g_app_name,
7600: p_msg_name => 'OKL_AM_ACC_ENT_CREATED',
7601: p_token1 => 'TRX_TYPE',
7602: p_token1_value => l_trans_meaning);
7603:
7619: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
7620: END IF;
7621: EXCEPTION
7622:
7623: WHEN okl_api.g_exception_error THEN
7624: IF (is_debug_exception_on) THEN
7625: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
7626: END IF;
7627:
7666: END IF;
7667:
7668: ROLLBACK TO accounting_entries;
7669:
7670: x_return_status := okl_api.g_ret_sts_error;
7671: -- store the highest degree of error
7672: set_overall_status(p_return_status => x_return_status,
7673: px_overall_status => px_overall_status);
7674:
7678: p_tmt_flag => 'TMT_ACCOUNTING_ENTRIES_YN',
7679: p_tsu_code => 'ERROR',
7680: px_tcnv_rec => px_tcnv_rec);
7681:
7682: WHEN okl_api.g_exception_unexpected_error THEN
7683: IF (is_debug_exception_on) THEN
7684: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
7685: END IF;
7686:
7726: END IF;
7727:
7728: ROLLBACK TO accounting_entries;
7729:
7730: x_return_status := okl_api.g_ret_sts_unexp_error;
7731: -- store the highest degree of error
7732: set_overall_status(p_return_status => x_return_status,
7733: px_overall_status => px_overall_status);
7734:
7785: END IF;
7786:
7787: ROLLBACK TO accounting_entries;
7788:
7789: x_return_status := okl_api.g_ret_sts_unexp_error;
7790: -- store the highest degree of error
7791: set_overall_status(p_return_status => x_return_status,
7792: px_overall_status => px_overall_status);
7793:
7798: p_tsu_code => 'ERROR',
7799: px_tcnv_rec => px_tcnv_rec);
7800:
7801: -- Set the oracle error message
7802: okl_api.set_message(p_app_name => okc_api.g_app_name,
7803: p_msg_name => g_unexpected_error,
7804: p_token1 => g_sqlcode_token,
7805: p_token1_value => SQLCODE,
7806: p_token2 => g_sqlerrm_token,
7957: IF (is_debug_procedure_on) THEN
7958: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
7959: END IF;
7960:
7961: x_return_status := OKL_API.START_ACTIVITY (
7962: l_api_name
7963: ,p_init_msg_list
7964: ,'_PVT'
7965: ,x_return_status);
7963: ,p_init_msg_list
7964: ,'_PVT'
7965: ,x_return_status);
7966: -- Check if activity started successfully
7967: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7968: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7969: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7970: RAISE OKL_API.G_EXCEPTION_ERROR;
7971: END IF;
7964: ,'_PVT'
7965: ,x_return_status);
7966: -- Check if activity started successfully
7967: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7968: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7969: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7970: RAISE OKL_API.G_EXCEPTION_ERROR;
7971: END IF;
7972: IF (is_debug_statement_on) THEN
7965: ,x_return_status);
7966: -- Check if activity started successfully
7967: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7968: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7969: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7970: RAISE OKL_API.G_EXCEPTION_ERROR;
7971: END IF;
7972: IF (is_debug_statement_on) THEN
7973: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
7966: -- Check if activity started successfully
7967: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7968: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7969: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7970: RAISE OKL_API.G_EXCEPTION_ERROR;
7971: END IF;
7972: IF (is_debug_statement_on) THEN
7973: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
7974: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
7982: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
7983: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
7984: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_quote_id = '||p_quote_id);
7985: END IF;
7986: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7987:
7988: OPEN l_sub_line_csr(p_chr_id => p_khr_id,
7989: p_lty_code => 'ITEM',
7990: p_cle_id => p_kle_id);
8006: l_oec := l_asset_ret_dtls.asset_fmv_amount;
8007:
8008: l_set_of_books_id := OKL_ACCOUNTING_UTIL.GET_SET_OF_BOOKS_ID;
8009:
8010: /*IF (p_tax_book_2 IS NOT NULL AND p_tax_book_2 <> OKL_API.G_MISS_CHAR)
8011: THEN
8012: l_max_books := 3;
8013: ELSE
8014: l_max_books := 2;
8019: LOOP
8020:
8021: IF (l_counter=1) OR
8022: (l_counter=2 AND p_tax_book_1 IS NOT NULL
8023: AND p_tax_book_1 <> OKL_API.G_MISS_CHAR) OR
8024: (l_counter=3 AND p_tax_book_2 IS NOT NULL
8025: AND p_tax_book_2 <> OKL_API.G_MISS_CHAR) OR
8026: (l_counter=4 AND p_rep_book IS NOT NULL
8027: AND p_rep_book <> OKL_API.G_MISS_CHAR) THEN
8021: IF (l_counter=1) OR
8022: (l_counter=2 AND p_tax_book_1 IS NOT NULL
8023: AND p_tax_book_1 <> OKL_API.G_MISS_CHAR) OR
8024: (l_counter=3 AND p_tax_book_2 IS NOT NULL
8025: AND p_tax_book_2 <> OKL_API.G_MISS_CHAR) OR
8026: (l_counter=4 AND p_rep_book IS NOT NULL
8027: AND p_rep_book <> OKL_API.G_MISS_CHAR) THEN
8028: l_trans_rec.transaction_type_code := 'ADDITION';
8029: l_asset_desc_rec.asset_key_ccid:= p_asset_key_id;
8023: AND p_tax_book_1 <> OKL_API.G_MISS_CHAR) OR
8024: (l_counter=3 AND p_tax_book_2 IS NOT NULL
8025: AND p_tax_book_2 <> OKL_API.G_MISS_CHAR) OR
8026: (l_counter=4 AND p_rep_book IS NOT NULL
8027: AND p_rep_book <> OKL_API.G_MISS_CHAR) THEN
8028: l_trans_rec.transaction_type_code := 'ADDITION';
8029: l_asset_desc_rec.asset_key_ccid:= p_asset_key_id;
8030: l_asset_desc_rec.current_units:= l_model_line_rec.number_of_items;
8031: l_asset_hdr_rec.asset_id := NULL;
8085: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling fa_addition_pub.do_addition');
8086: END IF;
8087: fa_addition_pub.do_addition
8088: (p_api_version => l_api_version,
8089: p_init_msg_list => OKL_API.G_FALSE,
8090: p_commit => OKL_API.G_FALSE,
8091: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8092: x_return_status => x_return_status,
8093: x_msg_count => x_msg_count,
8086: END IF;
8087: fa_addition_pub.do_addition
8088: (p_api_version => l_api_version,
8089: p_init_msg_list => OKL_API.G_FALSE,
8090: p_commit => OKL_API.G_FALSE,
8091: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8092: x_return_status => x_return_status,
8093: x_msg_count => x_msg_count,
8094: x_msg_data => x_msg_data,
8109: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called fa_addition_pub.do_addition x_return_status = '||x_return_status);
8110: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_asset_hdr_rec.asset_id = '||l_asset_hdr_rec.asset_id);
8111: END IF;
8112:
8113: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8115: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8116: RAISE OKL_API.G_EXCEPTION_ERROR;
8117: END IF;
8110: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_asset_hdr_rec.asset_id = '||l_asset_hdr_rec.asset_id);
8111: END IF;
8112:
8113: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8115: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8116: RAISE OKL_API.G_EXCEPTION_ERROR;
8117: END IF;
8118:
8111: END IF;
8112:
8113: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8115: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8116: RAISE OKL_API.G_EXCEPTION_ERROR;
8117: END IF;
8118:
8119:
8112:
8113: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8115: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8116: RAISE OKL_API.G_EXCEPTION_ERROR;
8117: END IF;
8118:
8119:
8120: l_asset_id := l_asset_hdr_rec.asset_id;
8143: IF (is_debug_statement_on) THEN
8144: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called okl_okc_migration_pvt.update_contract_item x_return_status = '||x_return_status);
8145: END IF;
8146:
8147: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8149: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8150: RAISE OKL_API.G_EXCEPTION_ERROR;
8151: END IF;
8144: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called okl_okc_migration_pvt.update_contract_item x_return_status = '||x_return_status);
8145: END IF;
8146:
8147: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8149: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8150: RAISE OKL_API.G_EXCEPTION_ERROR;
8151: END IF;
8152:
8145: END IF;
8146:
8147: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8149: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8150: RAISE OKL_API.G_EXCEPTION_ERROR;
8151: END IF;
8152:
8153: -- Now create 'Internal Asset Creation' transaction lines
8146:
8147: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8149: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8150: RAISE OKL_API.G_EXCEPTION_ERROR;
8151: END IF;
8152:
8153: -- Now create 'Internal Asset Creation' transaction lines
8154:
8177: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_TXL_ASSETS_PUB.create_txl_asset_def x_return_status = '||x_return_status);
8178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_talv_rec.ID = '||x_talv_rec.ID);
8179: END IF;
8180:
8181: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8182: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8183: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8184: RAISE OKL_API.G_EXCEPTION_ERROR;
8185: END IF;
8178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_talv_rec.ID = '||x_talv_rec.ID);
8179: END IF;
8180:
8181: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8182: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8183: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8184: RAISE OKL_API.G_EXCEPTION_ERROR;
8185: END IF;
8186:
8179: END IF;
8180:
8181: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8182: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8183: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8184: RAISE OKL_API.G_EXCEPTION_ERROR;
8185: END IF;
8186:
8187: END IF;
8180:
8181: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8182: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8183: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8184: RAISE OKL_API.G_EXCEPTION_ERROR;
8185: END IF;
8186:
8187: END IF;
8188:
8233: IF (is_debug_statement_on) THEN
8234: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_TXD_ASSETS_PUB.create_txd_asset_def x_return_status = '||x_return_status);
8235: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_txdv_rec.ID = '||x_txdv_rec.ID);
8236: END IF;
8237: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8239: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8240: RAISE OKL_API.G_EXCEPTION_ERROR;
8241: END IF;
8234: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_TXD_ASSETS_PUB.create_txd_asset_def x_return_status = '||x_return_status);
8235: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_txdv_rec.ID = '||x_txdv_rec.ID);
8236: END IF;
8237: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8239: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8240: RAISE OKL_API.G_EXCEPTION_ERROR;
8241: END IF;
8242:
8235: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_txdv_rec.ID = '||x_txdv_rec.ID);
8236: END IF;
8237: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8239: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8240: RAISE OKL_API.G_EXCEPTION_ERROR;
8241: END IF;
8242:
8243: l_line_detail_number := l_line_detail_number + 1;
8236: END IF;
8237: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8239: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8240: RAISE OKL_API.G_EXCEPTION_ERROR;
8241: END IF;
8242:
8243: l_line_detail_number := l_line_detail_number + 1;
8244: END IF;
8246:
8247: END IF;
8248: END LOOP;
8249:
8250: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data );
8251: IF (is_debug_procedure_on) THEN
8252: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
8253: END IF;
8254: EXCEPTION
8251: IF (is_debug_procedure_on) THEN
8252: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
8253: END IF;
8254: EXCEPTION
8255: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8256: IF (is_debug_exception_on) THEN
8257: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
8258: END IF;
8259:
8256: IF (is_debug_exception_on) THEN
8257: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
8258: END IF;
8259:
8260: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8261: l_api_name,
8262: G_PKG_NAME,
8263: 'OKL_API.G_RET_STS_ERROR',
8264: x_msg_count,
8259:
8260: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8261: l_api_name,
8262: G_PKG_NAME,
8263: 'OKL_API.G_RET_STS_ERROR',
8264: x_msg_count,
8265: x_msg_data,
8266: '_PVT');
8267: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8263: 'OKL_API.G_RET_STS_ERROR',
8264: x_msg_count,
8265: x_msg_data,
8266: '_PVT');
8267: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8268: IF (is_debug_exception_on) THEN
8269: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
8270: END IF;
8271:
8268: IF (is_debug_exception_on) THEN
8269: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
8270: END IF;
8271:
8272: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8273: l_api_name,
8274: G_PKG_NAME,
8275: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8276: x_msg_count,
8271:
8272: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8273: l_api_name,
8274: G_PKG_NAME,
8275: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8276: x_msg_count,
8277: x_msg_data,
8278: '_PVT');
8279: WHEN OTHERS THEN
8280: IF (is_debug_exception_on) THEN
8281: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
8282: END IF;
8283:
8284: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8285: l_api_name,
8286: G_PKG_NAME,
8287: 'OTHERS',
8288: x_msg_count,
8338: l_date_accepted DATE;
8339: l_quote_type_code VARCHAR2(30);
8340: l_repossess_flag VARCHAR2(1);
8341: BEGIN
8342: x_return_status := OKL_API.START_ACTIVITY (
8343: l_api_name
8344: ,p_init_msg_list
8345: ,'_PVT'
8346: ,x_return_status);
8345: ,'_PVT'
8346: ,x_return_status);
8347:
8348: -- Check if activity started successfully
8349: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8352: RAISE OKL_API.G_EXCEPTION_ERROR;
8353: END IF;
8346: ,x_return_status);
8347:
8348: -- Check if activity started successfully
8349: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8352: RAISE OKL_API.G_EXCEPTION_ERROR;
8353: END IF;
8354:
8347:
8348: -- Check if activity started successfully
8349: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8352: RAISE OKL_API.G_EXCEPTION_ERROR;
8353: END IF;
8354:
8355: -- get the try id
8348: -- Check if activity started successfully
8349: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8352: RAISE OKL_API.G_EXCEPTION_ERROR;
8353: END IF;
8354:
8355: -- get the try id
8356: OPEN c_try_id(p_tas_id);
8393: x_return_status => x_return_status,
8394: x_msg_count => x_msg_count,
8395: x_msg_data => x_msg_data);
8396:
8397: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8399: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8400: RAISE OKL_API.G_EXCEPTION_ERROR;
8401: END IF;
8394: x_msg_count => x_msg_count,
8395: x_msg_data => x_msg_data);
8396:
8397: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8399: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8400: RAISE OKL_API.G_EXCEPTION_ERROR;
8401: END IF;
8402:
8395: x_msg_data => x_msg_data);
8396:
8397: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8399: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8400: RAISE OKL_API.G_EXCEPTION_ERROR;
8401: END IF;
8402:
8403: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data );
8396:
8397: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8399: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8400: RAISE OKL_API.G_EXCEPTION_ERROR;
8401: END IF;
8402:
8403: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data );
8404: END;
8399: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8400: RAISE OKL_API.G_EXCEPTION_ERROR;
8401: END IF;
8402:
8403: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data );
8404: END;
8405:
8406:
8407: PROCEDURE Create_Repo_asset(
8570:
8571: IF (is_debug_procedure_on) THEN
8572: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
8573: END IF;
8574: x_return_status := OKL_API.START_ACTIVITY (
8575: l_api_name
8576: ,p_init_msg_list
8577: ,'_PVT'
8578: ,x_return_status);
8576: ,p_init_msg_list
8577: ,'_PVT'
8578: ,x_return_status);
8579: -- Check if activity started successfully
8580: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8581: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8582: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8583: RAISE OKL_API.G_EXCEPTION_ERROR;
8584: END IF;
8577: ,'_PVT'
8578: ,x_return_status);
8579: -- Check if activity started successfully
8580: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8581: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8582: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8583: RAISE OKL_API.G_EXCEPTION_ERROR;
8584: END IF;
8585:
8578: ,x_return_status);
8579: -- Check if activity started successfully
8580: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8581: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8582: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8583: RAISE OKL_API.G_EXCEPTION_ERROR;
8584: END IF;
8585:
8586: IF (is_debug_statement_on) THEN
8579: -- Check if activity started successfully
8580: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8581: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8582: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8583: RAISE OKL_API.G_EXCEPTION_ERROR;
8584: END IF;
8585:
8586: IF (is_debug_statement_on) THEN
8587: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
8596: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
8597: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
8598: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_quote_id = '||p_quote_id);
8599: END IF;
8600: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8601:
8602: OPEN l_sub_line_csr(p_chr_id => p_khr_id,
8603: p_lty_code => 'ITEM',
8604: p_cle_id => p_kle_id);
8620: l_oec := l_asset_ret_dtls.asset_fmv_amount;
8621:
8622: l_set_of_books_id := OKL_ACCOUNTING_UTIL.GET_SET_OF_BOOKS_ID;
8623:
8624: /*IF (p_tax_book_2 IS NOT NULL AND p_tax_book_2 <> OKL_API.G_MISS_CHAR)
8625: THEN
8626: l_max_books := 3;
8627: ELSE
8628: l_max_books := 2;
8633: LOOP
8634:
8635: IF (l_counter=1) OR
8636: (l_counter=2 AND p_tax_book_1 IS NOT NULL
8637: AND p_tax_book_1 <> OKL_API.G_MISS_CHAR) OR
8638: (l_counter=3 AND p_tax_book_2 IS NOT NULL
8639: AND p_tax_book_2 <> OKL_API.G_MISS_CHAR) OR
8640: (l_counter=4 AND p_rep_book IS NOT NULL
8641: AND p_rep_book <> OKL_API.G_MISS_CHAR) THEN
8635: IF (l_counter=1) OR
8636: (l_counter=2 AND p_tax_book_1 IS NOT NULL
8637: AND p_tax_book_1 <> OKL_API.G_MISS_CHAR) OR
8638: (l_counter=3 AND p_tax_book_2 IS NOT NULL
8639: AND p_tax_book_2 <> OKL_API.G_MISS_CHAR) OR
8640: (l_counter=4 AND p_rep_book IS NOT NULL
8641: AND p_rep_book <> OKL_API.G_MISS_CHAR) THEN
8642: l_trans_rec.transaction_type_code := 'ADDITION';
8643: l_asset_desc_rec.asset_key_ccid:= p_asset_key_id;
8637: AND p_tax_book_1 <> OKL_API.G_MISS_CHAR) OR
8638: (l_counter=3 AND p_tax_book_2 IS NOT NULL
8639: AND p_tax_book_2 <> OKL_API.G_MISS_CHAR) OR
8640: (l_counter=4 AND p_rep_book IS NOT NULL
8641: AND p_rep_book <> OKL_API.G_MISS_CHAR) THEN
8642: l_trans_rec.transaction_type_code := 'ADDITION';
8643: l_asset_desc_rec.asset_key_ccid:= p_asset_key_id;
8644: l_asset_desc_rec.current_units:= l_model_line_rec.number_of_items;
8645: l_asset_hdr_rec.asset_id := NULL;
8700: END IF;
8701:
8702: fa_addition_pub.do_addition
8703: (p_api_version => l_api_version,
8704: p_init_msg_list => OKL_API.G_FALSE,
8705: p_commit => OKL_API.G_FALSE,
8706: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8707: x_return_status => x_return_status,
8708: x_msg_count => x_msg_count,
8701:
8702: fa_addition_pub.do_addition
8703: (p_api_version => l_api_version,
8704: p_init_msg_list => OKL_API.G_FALSE,
8705: p_commit => OKL_API.G_FALSE,
8706: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8707: x_return_status => x_return_status,
8708: x_msg_count => x_msg_count,
8709: x_msg_data => x_msg_data,
8725: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called fa_addition_pub.do_addition x_return_status = '||x_return_status);
8726: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_asset_hdr_rec.asset_id = '||l_asset_hdr_rec.asset_id);
8727: END IF;
8728:
8729: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8730: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8731: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8732: RAISE OKL_API.G_EXCEPTION_ERROR;
8733: END IF;
8726: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_asset_hdr_rec.asset_id = '||l_asset_hdr_rec.asset_id);
8727: END IF;
8728:
8729: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8730: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8731: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8732: RAISE OKL_API.G_EXCEPTION_ERROR;
8733: END IF;
8734:
8727: END IF;
8728:
8729: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8730: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8731: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8732: RAISE OKL_API.G_EXCEPTION_ERROR;
8733: END IF;
8734:
8735:
8728:
8729: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8730: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8731: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8732: RAISE OKL_API.G_EXCEPTION_ERROR;
8733: END IF;
8734:
8735:
8736: l_asset_id := l_asset_hdr_rec.asset_id;
8761: IF (is_debug_statement_on) THEN
8762: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called okl_okc_migration_pvt.update_contract_item x_return_status = '||x_return_status);
8763: END IF;
8764:
8765: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8767: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8768: RAISE OKL_API.G_EXCEPTION_ERROR;
8769: END IF;
8762: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called okl_okc_migration_pvt.update_contract_item x_return_status = '||x_return_status);
8763: END IF;
8764:
8765: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8767: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8768: RAISE OKL_API.G_EXCEPTION_ERROR;
8769: END IF;
8770:
8763: END IF;
8764:
8765: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8767: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8768: RAISE OKL_API.G_EXCEPTION_ERROR;
8769: END IF;
8770:
8771: okl_debug_pub.logmessage('AKP:After update_item: x_return_status=' || x_return_status || ' x_cim_rec.object1_id1=' || x_cim_rec.object1_id1);
8764:
8765: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8767: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8768: RAISE OKL_API.G_EXCEPTION_ERROR;
8769: END IF;
8770:
8771: okl_debug_pub.logmessage('AKP:After update_item: x_return_status=' || x_return_status || ' x_cim_rec.object1_id1=' || x_cim_rec.object1_id1);
8772:
8805: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_TXL_ASSETS_PUB.create_txl_asset_def x_return_status = '||x_return_status);
8806: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_talv_rec.ID = '||x_talv_rec.ID);
8807: END IF;
8808:
8809: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8810: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8811: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8812: RAISE OKL_API.G_EXCEPTION_ERROR;
8813: END IF;
8806: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_talv_rec.ID = '||x_talv_rec.ID);
8807: END IF;
8808:
8809: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8810: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8811: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8812: RAISE OKL_API.G_EXCEPTION_ERROR;
8813: END IF;
8814: okl_debug_pub.logmessage('AKP:x_return_status=' || x_return_status || 'x_talv_rec.ID=' || x_talv_rec.ID);
8807: END IF;
8808:
8809: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8810: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8811: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8812: RAISE OKL_API.G_EXCEPTION_ERROR;
8813: END IF;
8814: okl_debug_pub.logmessage('AKP:x_return_status=' || x_return_status || 'x_talv_rec.ID=' || x_talv_rec.ID);
8815:
8808:
8809: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8810: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8811: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8812: RAISE OKL_API.G_EXCEPTION_ERROR;
8813: END IF;
8814: okl_debug_pub.logmessage('AKP:x_return_status=' || x_return_status || 'x_talv_rec.ID=' || x_talv_rec.ID);
8815:
8816: --rkuttiya added for passing the line id to populate sources
8866: IF (is_debug_statement_on) THEN
8867: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_TXD_ASSETS_PUB.create_txd_asset_def x_return_status = '||x_return_status);
8868: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_txdv_rec.ID = '||x_txdv_rec.ID);
8869: END IF;
8870: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8871: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8872: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8873: RAISE OKL_API.G_EXCEPTION_ERROR;
8874: END IF;
8867: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_TXD_ASSETS_PUB.create_txd_asset_def x_return_status = '||x_return_status);
8868: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_txdv_rec.ID = '||x_txdv_rec.ID);
8869: END IF;
8870: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8871: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8872: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8873: RAISE OKL_API.G_EXCEPTION_ERROR;
8874: END IF;
8875:
8868: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_txdv_rec.ID = '||x_txdv_rec.ID);
8869: END IF;
8870: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8871: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8872: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8873: RAISE OKL_API.G_EXCEPTION_ERROR;
8874: END IF;
8875:
8876: okl_debug_pub.logmessage('AKP:x_return_status=' || x_return_status || 'x_txdv_rec.ID=' || x_txdv_rec.ID);
8869: END IF;
8870: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8871: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8872: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8873: RAISE OKL_API.G_EXCEPTION_ERROR;
8874: END IF;
8875:
8876: okl_debug_pub.logmessage('AKP:x_return_status=' || x_return_status || 'x_txdv_rec.ID=' || x_txdv_rec.ID);
8877:
8900: x_return_status => x_return_status,
8901: x_msg_count => x_msg_count,
8902: x_msg_data => x_msg_data);
8903:
8904: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8905: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8906: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8907: RAISE OKL_API.G_EXCEPTION_ERROR;
8908: END IF;
8901: x_msg_count => x_msg_count,
8902: x_msg_data => x_msg_data);
8903:
8904: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8905: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8906: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8907: RAISE OKL_API.G_EXCEPTION_ERROR;
8908: END IF;
8909:
8902: x_msg_data => x_msg_data);
8903:
8904: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8905: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8906: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8907: RAISE OKL_API.G_EXCEPTION_ERROR;
8908: END IF;
8909:
8910: okl_debug_pub.logmessage('RK:x_return_status after populate sources' || x_return_status );
8903:
8904: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8905: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8906: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8907: RAISE OKL_API.G_EXCEPTION_ERROR;
8908: END IF;
8909:
8910: okl_debug_pub.logmessage('RK:x_return_status after populate sources' || x_return_status );
8911:
8939: p_asset_deprn_rec_adj => l_asset_deprn_rec_adj,
8940: x_asset_deprn_rec_new => l_asset_deprn_rec_new,
8941: x_asset_deprn_mrc_tbl_new => l_asset_deprn_mrc_tbl_new,
8942: p_group_reclass_options_rec => l_group_reclass_options_rec);
8943: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8945: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8946: RAISE OKL_API.G_EXCEPTION_ERROR;
8947: END IF;
8940: x_asset_deprn_rec_new => l_asset_deprn_rec_new,
8941: x_asset_deprn_mrc_tbl_new => l_asset_deprn_mrc_tbl_new,
8942: p_group_reclass_options_rec => l_group_reclass_options_rec);
8943: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8945: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8946: RAISE OKL_API.G_EXCEPTION_ERROR;
8947: END IF;
8948: okl_debug_pub.logmessage('RK:Return Status after calling FA Adjustment API'|| x_return_status); */
8941: x_asset_deprn_mrc_tbl_new => l_asset_deprn_mrc_tbl_new,
8942: p_group_reclass_options_rec => l_group_reclass_options_rec);
8943: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8945: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8946: RAISE OKL_API.G_EXCEPTION_ERROR;
8947: END IF;
8948: okl_debug_pub.logmessage('RK:Return Status after calling FA Adjustment API'|| x_return_status); */
8949:
8942: p_group_reclass_options_rec => l_group_reclass_options_rec);
8943: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8945: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8946: RAISE OKL_API.G_EXCEPTION_ERROR;
8947: END IF;
8948: okl_debug_pub.logmessage('RK:Return Status after calling FA Adjustment API'|| x_return_status); */
8949:
8950:
8952:
8953:
8954: END LOOP;
8955:
8956: OKL_API.set_message( p_app_name => 'OKL',
8957: p_msg_name => 'OKL_AM_ASSET_CR_SUCC',
8958: p_token1 => 'ASSET_NUMBER',
8959: p_token1_value => l_asset_description.NAME);
8960:
8958: p_token1 => 'ASSET_NUMBER',
8959: p_token1_value => l_asset_description.NAME);
8960:
8961:
8962: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data );
8963: IF (is_debug_procedure_on) THEN
8964: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
8965: END IF;
8966:
8964: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
8965: END IF;
8966:
8967: EXCEPTION
8968: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8969: IF (is_debug_exception_on) THEN
8970: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
8971: END IF;
8972:
8969: IF (is_debug_exception_on) THEN
8970: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
8971: END IF;
8972:
8973: OKL_API.set_message( p_app_name => 'OKL',
8974: p_msg_name => 'OKL_AM_ASSET_CR_FAIL',
8975: p_token1 => 'ASSET_NUMBER',
8976: p_token1_value => l_asset_description.NAME);
8977:
8974: p_msg_name => 'OKL_AM_ASSET_CR_FAIL',
8975: p_token1 => 'ASSET_NUMBER',
8976: p_token1_value => l_asset_description.NAME);
8977:
8978: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8979: l_api_name,
8980: G_PKG_NAME,
8981: 'OKL_API.G_RET_STS_ERROR',
8982: x_msg_count,
8977:
8978: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8979: l_api_name,
8980: G_PKG_NAME,
8981: 'OKL_API.G_RET_STS_ERROR',
8982: x_msg_count,
8983: x_msg_data,
8984: '_PVT');
8985: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8981: 'OKL_API.G_RET_STS_ERROR',
8982: x_msg_count,
8983: x_msg_data,
8984: '_PVT');
8985: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8986: IF (is_debug_exception_on) THEN
8987: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
8988: END IF;
8989:
8986: IF (is_debug_exception_on) THEN
8987: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
8988: END IF;
8989:
8990: OKL_API.set_message( p_app_name => 'OKL',
8991: p_msg_name => 'OKL_AM_ASSET_CR_FAIL',
8992: p_token1 => 'ASSET_NUMBER',
8993: p_token1_value => l_asset_description.NAME);
8994:
8991: p_msg_name => 'OKL_AM_ASSET_CR_FAIL',
8992: p_token1 => 'ASSET_NUMBER',
8993: p_token1_value => l_asset_description.NAME);
8994:
8995: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8996: l_api_name,
8997: G_PKG_NAME,
8998: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8999: x_msg_count,
8994:
8995: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8996: l_api_name,
8997: G_PKG_NAME,
8998: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8999: x_msg_count,
9000: x_msg_data,
9001: '_PVT');
9002: WHEN OTHERS THEN
9003: IF (is_debug_exception_on) THEN
9004: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
9005: END IF;
9006:
9007: OKL_API.set_message( p_app_name => 'OKL',
9008: p_msg_name => 'OKL_AM_ASSET_CR_FAIL',
9009: p_token1 => 'ASSET_NUMBER',
9010: p_token1_value => l_asset_description.NAME);
9011:
9008: p_msg_name => 'OKL_AM_ASSET_CR_FAIL',
9009: p_token1 => 'ASSET_NUMBER',
9010: p_token1_value => l_asset_description.NAME);
9011:
9012: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9013: l_api_name,
9014: G_PKG_NAME,
9015: 'OTHERS',
9016: x_msg_count,
9068: AND qte_id = p_qte_id
9069: AND qlt_code = 'AMBPOC'; -- Purchase Amount
9070:
9071: kle_pur_amt_rec kle_pur_amt_csr%ROWTYPE;
9072: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9073: l_overall_dispose_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9074: l_asset_id NUMBER;
9075: l_line_number VARCHAR2(200);
9076: i NUMBER := 1;
9069: AND qlt_code = 'AMBPOC'; -- Purchase Amount
9070:
9071: kle_pur_amt_rec kle_pur_amt_csr%ROWTYPE;
9072: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9073: l_overall_dispose_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9074: l_asset_id NUMBER;
9075: l_line_number VARCHAR2(200);
9076: i NUMBER := 1;
9077: l_proceeds_of_sale NUMBER;
9134: FROM OKL_TRX_TYPES_tl
9135: WHERE upper(name) = upper(p_try_name)
9136: AND language = 'US';
9137:
9138: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
9139: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
9140:
9141: l_try_id NUMBER;
9142:
9184: OR (p_trn_already_set = G_NO) THEN
9185:
9186: -- RMUNJULU 3018641 Step Message
9187: -- Step : Asset Dispose
9188: OKL_API.set_message(
9189: p_app_name => G_APP_NAME,
9190: p_msg_name => 'OKL_AM_STEP_ADP');
9191:
9192: -- rmunjulu +++++++++ Effective Dated Termination -- start ++++++++++++++++
9206: END IF;
9207:
9208: -- 6674730 start
9209: IF (p_term_rec.p_quote_id IS NOT NULL AND
9210: p_term_rec.p_quote_id <> OKL_API.G_MISS_NUM) THEN
9211: OPEN c_get_repo_indicator(p_term_rec.p_quote_id);
9212: FETCH c_get_repo_indicator INTO l_repo_yn, l_deal_type, l_org_id;
9213: CLOSE c_get_repo_indicator;
9214: END IF;
9244: IF (is_debug_statement_on) THEN
9245: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_K_RATE_PARAMS_PVT.get_product x_return_status = '||x_return_status);
9246: END IF;
9247:
9248: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9249: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9250: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9251: RAISE OKL_API.G_EXCEPTION_ERROR;
9252: END IF;
9245: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_K_RATE_PARAMS_PVT.get_product x_return_status = '||x_return_status);
9246: END IF;
9247:
9248: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9249: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9250: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9251: RAISE OKL_API.G_EXCEPTION_ERROR;
9252: END IF;
9253: IF (is_debug_statement_on) THEN
9246: END IF;
9247:
9248: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9249: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9250: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9251: RAISE OKL_API.G_EXCEPTION_ERROR;
9252: END IF;
9253: IF (is_debug_statement_on) THEN
9254: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_pdt_parameter_rec.reporting_pdt_id = '||l_pdt_parameter_rec.reporting_pdt_id);
9247:
9248: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9249: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9250: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9251: RAISE OKL_API.G_EXCEPTION_ERROR;
9252: END IF;
9253: IF (is_debug_statement_on) THEN
9254: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_pdt_parameter_rec.reporting_pdt_id = '||l_pdt_parameter_rec.reporting_pdt_id);
9255: END IF;
9254: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_pdt_parameter_rec.reporting_pdt_id = '||l_pdt_parameter_rec.reporting_pdt_id);
9255: END IF;
9256:
9257: IF (l_pdt_parameter_rec.reporting_pdt_id IS NOT NULL AND
9258: l_pdt_parameter_rec.reporting_pdt_id <> OKL_API.G_MISS_NUM)
9259: THEN
9260: l_pdtv_rec.ID := l_pdt_parameter_rec.reporting_pdt_id;
9261: IF (is_debug_statement_on) THEN
9262: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_SETUPPRODUCTS_PUB.Getpdt_parameters ');
9274: IF (is_debug_statement_on) THEN
9275: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_SETUPPRODUCTS_PUB.Getpdt_parameters x_return_status = '||x_return_status);
9276: END IF;
9277:
9278: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9280: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9281: RAISE OKL_API.G_EXCEPTION_ERROR;
9282: ELSIF NVL(l_pdt_parameter_rec2.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
9275: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_SETUPPRODUCTS_PUB.Getpdt_parameters x_return_status = '||x_return_status);
9276: END IF;
9277:
9278: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9280: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9281: RAISE OKL_API.G_EXCEPTION_ERROR;
9282: ELSIF NVL(l_pdt_parameter_rec2.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
9283: x_return_status := OKL_API.G_RET_STS_ERROR;
9276: END IF;
9277:
9278: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9280: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9281: RAISE OKL_API.G_EXCEPTION_ERROR;
9282: ELSIF NVL(l_pdt_parameter_rec2.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
9283: x_return_status := OKL_API.G_RET_STS_ERROR;
9284: RAISE OKL_API.G_EXCEPTION_ERROR;
9277:
9278: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9280: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9281: RAISE OKL_API.G_EXCEPTION_ERROR;
9282: ELSIF NVL(l_pdt_parameter_rec2.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
9283: x_return_status := OKL_API.G_RET_STS_ERROR;
9284: RAISE OKL_API.G_EXCEPTION_ERROR;
9285: END IF;
9278: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9280: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9281: RAISE OKL_API.G_EXCEPTION_ERROR;
9282: ELSIF NVL(l_pdt_parameter_rec2.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
9283: x_return_status := OKL_API.G_RET_STS_ERROR;
9284: RAISE OKL_API.G_EXCEPTION_ERROR;
9285: END IF;
9286:
9279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9280: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9281: RAISE OKL_API.G_EXCEPTION_ERROR;
9282: ELSIF NVL(l_pdt_parameter_rec2.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
9283: x_return_status := OKL_API.G_RET_STS_ERROR;
9284: RAISE OKL_API.G_EXCEPTION_ERROR;
9285: END IF;
9286:
9287: IF (l_pdt_parameter_rec2.DEAL_TYPE <> 'LOAN') THEN
9280: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9281: RAISE OKL_API.G_EXCEPTION_ERROR;
9282: ELSIF NVL(l_pdt_parameter_rec2.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
9283: x_return_status := OKL_API.G_RET_STS_ERROR;
9284: RAISE OKL_API.G_EXCEPTION_ERROR;
9285: END IF;
9286:
9287: IF (l_pdt_parameter_rec2.DEAL_TYPE <> 'LOAN') THEN
9288: l_rep_book := NULL; -- No reporting book asset to be created
9303: -- get try id
9304: Open try_id_csr(p_try_name => 'Internal Asset Creation');
9305: Fetch try_id_csr into l_try_id;
9306: If try_id_csr%NOTFOUND then
9307: OKL_API.set_message(p_app_name => G_APP_NAME,
9308: p_msg_name => G_NO_MATCHING_RECORD,
9309: p_token1 => G_COL_NAME_TOKEN,
9310: p_token1_value => 'OKL_TRX_TYPES_V.ID');
9311: RAISE OKL_API.G_EXCEPTION_ERROR;
9307: OKL_API.set_message(p_app_name => G_APP_NAME,
9308: p_msg_name => G_NO_MATCHING_RECORD,
9309: p_token1 => G_COL_NAME_TOKEN,
9310: p_token1_value => 'OKL_TRX_TYPES_V.ID');
9311: RAISE OKL_API.G_EXCEPTION_ERROR;
9312: End If;
9313: Close try_id_csr;
9314:
9315: l_trxv_rec.try_id := l_try_id;
9321: (p_term_rec.p_contract_id) ;
9322: IF l_legal_entity_id IS NOT NULL THEN
9323: l_trxv_rec.legal_entity_id := l_legal_entity_id;
9324: ELSE
9325: Okl_Api.set_message(p_app_name => g_app_name,
9326: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
9327: p_token1 => 'CONTRACT_NUMBER',
9328: p_token1_value => p_term_rec.p_contract_number);
9329: RAISE OKL_API.G_EXCEPTION_ERROR;
9325: Okl_Api.set_message(p_app_name => g_app_name,
9326: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
9327: p_token1 => 'CONTRACT_NUMBER',
9328: p_token1_value => p_term_rec.p_contract_number);
9329: RAISE OKL_API.G_EXCEPTION_ERROR;
9330: END IF;
9331:
9332: /*-- Now creating the new header record
9333: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def(
9338: x_msg_data => x_msg_data,
9339: p_thpv_rec => l_trxv_rec,
9340: x_thpv_rec => x_trxv_rec);
9341:
9342: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9343: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9344: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9345: RAISE OKL_API.G_EXCEPTION_ERROR;
9346: END IF;*/
9339: p_thpv_rec => l_trxv_rec,
9340: x_thpv_rec => x_trxv_rec);
9341:
9342: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9343: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9344: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9345: RAISE OKL_API.G_EXCEPTION_ERROR;
9346: END IF;*/
9347:
9340: x_thpv_rec => x_trxv_rec);
9341:
9342: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9343: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9344: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9345: RAISE OKL_API.G_EXCEPTION_ERROR;
9346: END IF;*/
9347:
9348:
9341:
9342: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9343: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9344: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9345: RAISE OKL_API.G_EXCEPTION_ERROR;
9346: END IF;*/
9347:
9348:
9349: i := p_klev_tbl.FIRST;
9370: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_TRX_ASSETS_PUB.create_trx_ass_h_def x_return_status = '||x_return_status);
9371: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_trxv_rec.ID =' ||x_trxv_rec.ID);
9372: END IF;
9373:
9374: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9375: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9376: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9377: RAISE OKL_API.G_EXCEPTION_ERROR;
9378: END IF;
9371: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_trxv_rec.ID =' ||x_trxv_rec.ID);
9372: END IF;
9373:
9374: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9375: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9376: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9377: RAISE OKL_API.G_EXCEPTION_ERROR;
9378: END IF;
9379:
9372: END IF;
9373:
9374: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9375: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9376: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9377: RAISE OKL_API.G_EXCEPTION_ERROR;
9378: END IF;
9379:
9380:
9373:
9374: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9375: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9376: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9377: RAISE OKL_API.G_EXCEPTION_ERROR;
9378: END IF;
9379:
9380:
9381: -- Create asset in FA for this KLE_ID
9405: IF (is_debug_statement_on) THEN
9406: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called Create_Repo_asset x_return_status = '||x_return_status);
9407: END IF;
9408:
9409: IF l_overall_dispose_status = OKL_API.G_RET_STS_SUCCESS
9410: and x_return_status in (OKL_API.G_RET_STS_ERROR,OKL_API.G_RET_STS_UNEXP_ERROR) then
9411: l_overall_dispose_status := x_return_status;
9412: END IF;
9413:
9406: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called Create_Repo_asset x_return_status = '||x_return_status);
9407: END IF;
9408:
9409: IF l_overall_dispose_status = OKL_API.G_RET_STS_SUCCESS
9410: and x_return_status in (OKL_API.G_RET_STS_ERROR,OKL_API.G_RET_STS_UNEXP_ERROR) then
9411: l_overall_dispose_status := x_return_status;
9412: END IF;
9413:
9414: ELSE
9467: x_currency_conversion_rate => lx_currency_conversion_rate,
9468: x_currency_conversion_date => lx_currency_conversion_date,
9469: x_converted_amount => lx_converted_amount );
9470:
9471: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
9472:
9473: -- Error occurred during disposal of asset NAME.
9474: OKL_API.set_message( p_app_name => G_APP_NAME,
9475: p_msg_name => 'OKL_AM_ERR_DISPOSAL',
9470:
9471: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
9472:
9473: -- Error occurred during disposal of asset NAME.
9474: OKL_API.set_message( p_app_name => G_APP_NAME,
9475: p_msg_name => 'OKL_AM_ERR_DISPOSAL',
9476: p_token1 => 'NAME',
9477: p_token1_value => p_klev_tbl(i).p_asset_name);
9478:
9478:
9479: END IF;
9480:
9481: -- Raise exception to rollback to savepoint if error
9482: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9485: RAISE OKL_API.G_EXCEPTION_ERROR;
9486: END IF;
9479: END IF;
9480:
9481: -- Raise exception to rollback to savepoint if error
9482: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9485: RAISE OKL_API.G_EXCEPTION_ERROR;
9486: END IF;
9487:
9480:
9481: -- Raise exception to rollback to savepoint if error
9482: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9485: RAISE OKL_API.G_EXCEPTION_ERROR;
9486: END IF;
9487:
9488: l_proceeds_of_sale := lx_converted_amount ;
9481: -- Raise exception to rollback to savepoint if error
9482: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9485: RAISE OKL_API.G_EXCEPTION_ERROR;
9486: END IF;
9487:
9488: l_proceeds_of_sale := lx_converted_amount ;
9489:
9501: END IF;
9502:
9503: OKL_AM_ASSET_DISPOSE_PUB.dispose_asset(
9504: p_api_version => p_api_version,
9505: p_init_msg_list => OKL_API.G_FALSE,
9506: x_return_status => l_return_status,
9507: x_msg_count => x_msg_count,
9508: x_msg_data => x_msg_data,
9509: p_financial_asset_id => p_klev_tbl(i).p_kle_id,
9520:
9521: /* -- call asset dispose retirement
9522: OKL_AM_ASSET_DISPOSE_PUB.dispose_asset(
9523: p_api_version => p_api_version,
9524: p_init_msg_list => OKL_API.G_FALSE,
9525: x_return_status => l_return_status,
9526: x_msg_count => x_msg_count,
9527: x_msg_data => x_msg_data,
9528: p_financial_asset_id => p_klev_tbl(i).p_kle_id,
9530: p_proceeds_of_sale => l_proceeds_of_sale,
9531: p_quote_eff_date => l_quote_eff_date, -- rmunjulu EDAT Pass additional parameters now required by disposal api
9532: p_quote_accpt_date => l_quote_accpt_date); -- rmunjulu EDAT Pass additional parameters now required by disposal api
9533: */
9534: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
9535:
9536: -- Error occurred during disposal of asset NAME.
9537: OKL_API.set_message( p_app_name => G_APP_NAME,
9538: p_msg_name => 'OKL_AM_ERR_DISPOSAL',
9533: */
9534: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
9535:
9536: -- Error occurred during disposal of asset NAME.
9537: OKL_API.set_message( p_app_name => G_APP_NAME,
9538: p_msg_name => 'OKL_AM_ERR_DISPOSAL',
9539: p_token1 => 'NAME',
9540: p_token1_value => p_klev_tbl(i).p_asset_name);
9541:
9540: p_token1_value => p_klev_tbl(i).p_asset_name);
9541:
9542: END IF;
9543: --08-mar-06 sgorantl -- Bug 3895098
9544: IF l_overall_dispose_status = OKL_API.G_RET_STS_SUCCESS
9545: and l_return_status in (OKL_API.G_RET_STS_ERROR,OKL_API.G_RET_STS_UNEXP_ERROR) then
9546: l_overall_dispose_status := l_return_status;
9547: END IF;
9548:
9541:
9542: END IF;
9543: --08-mar-06 sgorantl -- Bug 3895098
9544: IF l_overall_dispose_status = OKL_API.G_RET_STS_SUCCESS
9545: and l_return_status in (OKL_API.G_RET_STS_ERROR,OKL_API.G_RET_STS_UNEXP_ERROR) then
9546: l_overall_dispose_status := l_return_status;
9547: END IF;
9548:
9549: END IF;
9552: END LOOP;
9553:
9554: --08-mar-06 sgorantl -- Bug 3895098
9555: -- Raise exception to rollback to savepoint if error
9556: IF (l_overall_dispose_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9558: ELSIF (l_overall_dispose_status = OKL_API.G_RET_STS_ERROR) THEN
9559: RAISE OKL_API.G_EXCEPTION_ERROR;
9560: END IF;
9553:
9554: --08-mar-06 sgorantl -- Bug 3895098
9555: -- Raise exception to rollback to savepoint if error
9556: IF (l_overall_dispose_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9558: ELSIF (l_overall_dispose_status = OKL_API.G_RET_STS_ERROR) THEN
9559: RAISE OKL_API.G_EXCEPTION_ERROR;
9560: END IF;
9561: --08-mar-06 sgorantl -- Bug 3895098
9554: --08-mar-06 sgorantl -- Bug 3895098
9555: -- Raise exception to rollback to savepoint if error
9556: IF (l_overall_dispose_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9558: ELSIF (l_overall_dispose_status = OKL_API.G_RET_STS_ERROR) THEN
9559: RAISE OKL_API.G_EXCEPTION_ERROR;
9560: END IF;
9561: --08-mar-06 sgorantl -- Bug 3895098
9562:
9555: -- Raise exception to rollback to savepoint if error
9556: IF (l_overall_dispose_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9558: ELSIF (l_overall_dispose_status = OKL_API.G_RET_STS_ERROR) THEN
9559: RAISE OKL_API.G_EXCEPTION_ERROR;
9560: END IF;
9561: --08-mar-06 sgorantl -- Bug 3895098
9562:
9563: -- Set success message
9561: --08-mar-06 sgorantl -- Bug 3895098
9562:
9563: -- Set success message
9564: -- Asset dispostion for assets of contract CONTRACT_NUMBER done successfully.
9565: OKL_API.set_message( p_app_name => G_APP_NAME,
9566: p_msg_name => 'OKL_AM_ASS_DISPOSE_SUCCESS',
9567: p_token1 => 'CONTRACT_NUMBER',
9568: p_token1_value => p_term_rec.p_contract_number);
9569:
9605: IF (is_debug_procedure_on) THEN
9606: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
9607: END IF;
9608: EXCEPTION
9609: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9610: IF (is_debug_exception_on) THEN
9611: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
9612: END IF;
9613:
9616: END IF;
9617:
9618: ROLLBACK TO asset_dispose;
9619:
9620: x_return_status := OKL_API.G_RET_STS_ERROR;
9621: -- store the highest degree of error
9622: set_overall_status(
9623: p_return_status => x_return_status,
9624: px_overall_status => px_overall_status);
9646: p_tsu_code => 'ERROR',
9647: p_ret_val => NULL,
9648: px_tcnv_rec => px_tcnv_rec);
9649:
9650: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9651: IF (is_debug_exception_on) THEN
9652: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
9653: END IF;
9654:
9658:
9659: ROLLBACK TO asset_dispose;
9660:
9661:
9662: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
9663: -- store the highest degree of error
9664: set_overall_status(
9665: p_return_status => x_return_status,
9666: px_overall_status => px_overall_status);
9699: END IF;
9700:
9701: ROLLBACK TO asset_dispose;
9702:
9703: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
9704: -- store the highest degree of error
9705: set_overall_status(
9706: p_return_status => x_return_status,
9707: px_overall_status => px_overall_status);
9730: p_ret_val => NULL,
9731: px_tcnv_rec => px_tcnv_rec);
9732:
9733: -- Set the oracle error message
9734: OKL_API.set_message(
9735: p_app_name => OKC_API.G_APP_NAME,
9736: p_msg_name => g_unexpected_error,
9737: p_token1 => g_sqlcode_token,
9738: p_token1_value => SQLCODE,
9784: FROM OKL_ASSET_RETURNS_V
9785: WHERE kle_id = p_kle_id
9786: AND ars_code <> 'CANCELLED';
9787:
9788: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9789: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9790: lp_artv_rec OKL_AM_ASSET_RETURN_PUB.artv_rec_type;
9791: lx_artv_rec OKL_AM_ASSET_RETURN_PUB.artv_rec_type;
9792:
9785: WHERE kle_id = p_kle_id
9786: AND ars_code <> 'CANCELLED';
9787:
9788: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9789: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9790: lp_artv_rec OKL_AM_ASSET_RETURN_PUB.artv_rec_type;
9791: lx_artv_rec OKL_AM_ASSET_RETURN_PUB.artv_rec_type;
9792:
9793: i NUMBER := 1;
9792:
9793: i NUMBER := 1;
9794: j NUMBER := 1;
9795: l_kle_id NUMBER;
9796: l_k_end_date DATE := OKL_API.G_MISS_DATE;
9797: l_early_term_yn VARCHAR2(1) := G_NO;
9798: l_return_needed VARCHAR2(1) := G_NO;
9799: l_asset_return_status VARCHAR2(2000);
9800:
9844: OR (p_trn_already_set = G_NO) THEN
9845:
9846: -- RMUNJULU 3018641 Step Message
9847: -- Step : Amortization
9848: OKL_API.set_message(
9849: p_app_name => G_APP_NAME,
9850: p_msg_name => 'OKL_AM_STEP_AMT');
9851:
9852: -- call amortization
9854: OPEN get_k_end_date_csr(p_term_rec.p_contract_id);
9855: FETCH get_k_end_date_csr INTO l_k_end_date;
9856: CLOSE get_k_end_date_csr;
9857:
9858: IF (l_k_end_date <> OKL_API.G_MISS_DATE)
9859: AND (TRUNC(l_k_end_date) > TRUNC(p_sys_date)) THEN
9860: l_early_term_yn := G_YES;
9861: END IF;
9862:
9861: END IF;
9862:
9863: OKL_AM_AMORTIZE_PUB.create_offlease_asset_trx(
9864: p_api_version => p_api_version,
9865: p_init_msg_list => OKL_API.G_FALSE,
9866: x_return_status => l_return_status,
9867: x_msg_count => x_msg_count,
9868: x_msg_data => x_msg_data,
9869: p_contract_id => p_term_rec.p_contract_id,
9869: p_contract_id => p_term_rec.p_contract_id,
9870: p_early_termination_yn => l_early_term_yn);
9871:
9872:
9873: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
9874:
9875: -- Error occurred during the creation of an amortization transaction
9876: -- for assets of contract CONTRACT_NUMBER.
9877: OKL_API.set_message( p_app_name => G_APP_NAME,
9873: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
9874:
9875: -- Error occurred during the creation of an amortization transaction
9876: -- for assets of contract CONTRACT_NUMBER.
9877: OKL_API.set_message( p_app_name => G_APP_NAME,
9878: p_msg_name => 'OKL_AM_ERR_AMORTIZE',
9879: p_token1 => 'CONTRACT_NUMBER',
9880: p_token1_value => p_term_rec.p_contract_number);
9881:
9881:
9882: END IF;
9883:
9884: -- Raise exception to rollback to savepoint if error
9885: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9887: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
9888: RAISE OKL_API.G_EXCEPTION_ERROR;
9889: END IF;
9882: END IF;
9883:
9884: -- Raise exception to rollback to savepoint if error
9885: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9887: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
9888: RAISE OKL_API.G_EXCEPTION_ERROR;
9889: END IF;
9890:
9883:
9884: -- Raise exception to rollback to savepoint if error
9885: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9887: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
9888: RAISE OKL_API.G_EXCEPTION_ERROR;
9889: END IF;
9890:
9891: -- store the highest degree of error
9884: -- Raise exception to rollback to savepoint if error
9885: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9887: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
9888: RAISE OKL_API.G_EXCEPTION_ERROR;
9889: END IF;
9890:
9891: -- store the highest degree of error
9892: set_overall_status(
9902: px_tcnv_rec => px_tcnv_rec);
9903:
9904: END IF;
9905: EXCEPTION
9906: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9907:
9908: IF get_k_end_date_csr%ISOPEN THEN
9909: CLOSE get_k_end_date_csr;
9910: END IF;
9910: END IF;
9911:
9912: ROLLBACK TO asset_amortize;
9913:
9914: x_return_status := OKL_API.G_RET_STS_ERROR;
9915:
9916: -- store the highest degree of error
9917: set_overall_status(
9918: p_return_status => x_return_status,
9934: p_tsu_code => 'ERROR',
9935: p_ret_val => NULL,
9936: px_tcnv_rec => px_tcnv_rec);
9937:
9938: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9939:
9940: IF get_k_end_date_csr%ISOPEN THEN
9941: CLOSE get_k_end_date_csr;
9942: END IF;
9942: END IF;
9943:
9944: ROLLBACK TO asset_amortize;
9945:
9946: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
9947:
9948: -- store the highest degree of error
9949: set_overall_status(
9950: p_return_status => x_return_status,
9974: END IF;
9975:
9976: ROLLBACK TO asset_amortize;
9977:
9978: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
9979:
9980: -- store the highest degree of error
9981: set_overall_status(
9982: p_return_status => x_return_status,
9999: p_ret_val => NULL,
10000: px_tcnv_rec => px_tcnv_rec);
10001:
10002: -- Set the oracle error message
10003: OKL_API.set_message(
10004: p_app_name => OKC_API.G_APP_NAME,
10005: p_msg_name => g_unexpected_error,
10006: p_token1 => g_sqlcode_token,
10007: p_token1_value => SQLCODE,
10014: -- RMUNJULU 04-MAR-04 3485854 added call to process_amortize to do amortization
10015: -- Additional checks in process_amortize to cater to evergreen scenario
10016: process_amortize(
10017: p_api_version => p_api_version,
10018: p_init_msg_list => OKL_API.G_FALSE,
10019: x_return_status => l_return_status,
10020: x_msg_count => x_msg_count,
10021: x_msg_data => x_msg_data,
10022: p_term_rec => p_term_rec,
10040: OR (p_trn_already_set = G_NO) THEN
10041:
10042: -- RMUNJULU 3018641 Step Message
10043: -- Step : Asset Return
10044: OKL_API.set_message(
10045: p_app_name => G_APP_NAME,
10046: p_msg_name => 'OKL_AM_STEP_ART');
10047:
10048: -- if assets present for contract
10094: lp_artv_rec.kle_id := p_klev_tbl(i).p_kle_id;
10095:
10096: -- set the art1_code for asset return --'OKL_ASSET_RETURN_TYPE'
10097: -- if early termination assume from quote else contract exp
10098: -- IF (l_k_end_date <> OKL_API.G_MISS_DATE)
10099: -- AND (TRUNC(l_k_end_date) < TRUNC(p_sys_date)) THEN
10100: -- rmunjulu EDAT modified condition to say if quote exists then EXE_TERMINATION_QUOTE else EXPIRATION
10101: IF nvl(okl_am_lease_loan_trmnt_pvt.g_quote_exists,'N') = 'Y' THEN -- rmunjulu EDAT
10102: lp_artv_rec.art1_code := 'EXE_TERMINATION_QUOTE';
10120: -- Passing quote_id also to create_asset_return
10121: -- call asset return
10122: OKL_AM_ASSET_RETURN_PUB.create_asset_return(
10123: p_api_version => p_api_version,
10124: p_init_msg_list => OKL_API.G_FALSE,
10125: x_return_status => l_return_status,
10126: x_msg_count => x_msg_count,
10127: x_msg_data => x_msg_data,
10128: p_artv_rec => lp_artv_rec,
10128: p_artv_rec => lp_artv_rec,
10129: x_artv_rec => lx_artv_rec,
10130: p_quote_id => p_term_rec.p_quote_id);
10131:
10132: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
10133: -- Error occurred during the creation of an asset return record
10134: -- for asset NAME.
10135: OKL_API.set_message(
10136: p_app_name => G_APP_NAME,
10131:
10132: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
10133: -- Error occurred during the creation of an asset return record
10134: -- for asset NAME.
10135: OKL_API.set_message(
10136: p_app_name => G_APP_NAME,
10137: p_msg_name => 'OKL_AM_ERR_ASS_RET',
10138: p_token1 => 'NAME',
10139: p_token1_value => p_klev_tbl(i).p_asset_name);
10138: p_token1 => 'NAME',
10139: p_token1_value => p_klev_tbl(i).p_asset_name);
10140:
10141: -- Raise exception to rollback to savepoint if error
10142: RAISE OKL_API.G_EXCEPTION_ERROR;
10143:
10144: END IF;
10145:
10146: ELSE -- Asset return already exists -- This is not an error
10146: ELSE -- Asset return already exists -- This is not an error
10147:
10148: -- Asset Return already exists for this asset NAME with the
10149: -- status STATUS so cannot create a new asset return now.
10150: OKL_API.set_message(
10151: p_app_name => G_APP_NAME,
10152: p_msg_name => 'OKL_AM_ASS_RET_ARS_ERR',
10153: p_token1 => 'NAME',
10154: p_token1_value => p_klev_tbl(i).p_asset_name,
10165: i := l_temp_klev_tbl.FIRST;
10166: LOOP
10167:
10168: -- Asset return created for asset NAME.
10169: OKL_API.set_message(
10170: p_app_name => G_APP_NAME,
10171: p_msg_name => 'OKL_AM_ASS_RET_CREATED',
10172: p_token1 => 'NAME',
10173: p_token1_value => l_temp_klev_tbl(i).p_asset_name);
10196: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
10197: END IF;
10198: EXCEPTION
10199:
10200: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10201: IF (is_debug_exception_on) THEN
10202: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
10203: END IF;
10204:
10207: END IF;
10208:
10209: ROLLBACK TO asset_return;
10210:
10211: x_return_status := OKL_API.G_RET_STS_ERROR;
10212:
10213: -- store the highest degree of error
10214: set_overall_status(
10215: p_return_status => x_return_status,
10230: p_tsu_code => 'ERROR',
10231: p_ret_val => NULL,
10232: px_tcnv_rec => px_tcnv_rec);
10233:
10234: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10235: IF (is_debug_exception_on) THEN
10236: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
10237: END IF;
10238:
10242: END IF;
10243:
10244: ROLLBACK TO asset_return;
10245:
10246: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
10247:
10248: -- store the highest degree of error
10249: set_overall_status(
10250: p_return_status => x_return_status,
10277: END IF;
10278:
10279: ROLLBACK TO asset_return;
10280:
10281: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
10282:
10283: -- store the highest degree of error
10284: set_overall_status(
10285: p_return_status => x_return_status,
10302: p_ret_val => NULL,
10303: px_tcnv_rec => px_tcnv_rec);
10304:
10305: -- Set the oracle error message
10306: OKL_API.set_message(
10307: p_app_name => OKC_API.G_APP_NAME,
10308: p_msg_name => g_unexpected_error,
10309: p_token1 => g_sqlcode_token,
10310: p_token1_value => SQLCODE,
10327: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
10328: END IF;
10329: EXCEPTION
10330:
10331: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10332: IF (is_debug_exception_on) THEN
10333: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
10334: END IF;
10335:
10334: END IF;
10335:
10336: ROLLBACK TO amortize_and_return;
10337:
10338: x_return_status := OKL_API.G_RET_STS_ERROR;
10339: -- store the highest degree of error
10340: set_overall_status(
10341: p_return_status => x_return_status,
10342: px_overall_status => px_overall_status);
10363: p_tsu_code => 'ERROR',
10364: p_ret_val => NULL,
10365: px_tcnv_rec => px_tcnv_rec);
10366:
10367: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10368: IF (is_debug_exception_on) THEN
10369: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
10370: END IF;
10371:
10371:
10372:
10373: ROLLBACK TO amortize_and_return;
10374:
10375: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
10376: -- store the highest degree of error
10377: set_overall_status(
10378: p_return_status => x_return_status,
10379: px_overall_status => px_overall_status);
10407: END IF;
10408:
10409: ROLLBACK TO amortize_and_return;
10410:
10411: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
10412: -- store the highest degree of error
10413: set_overall_status(
10414: p_return_status => x_return_status,
10415: px_overall_status => px_overall_status);
10437: p_ret_val => NULL,
10438: px_tcnv_rec => px_tcnv_rec);
10439:
10440: -- Set the oracle error message
10441: OKL_API.set_message(
10442: p_app_name => OKC_API.G_APP_NAME,
10443: p_msg_name => g_unexpected_error,
10444: p_token1 => g_sqlcode_token,
10445: p_token1_value => SQLCODE,
10480: x_msg_count OUT NOCOPY NUMBER,
10481: x_msg_data OUT NOCOPY VARCHAR2,
10482: p_term_rec IN term_rec_type,
10483: p_tcnv_rec IN tcnv_rec_type) IS
10484: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10485: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10486: lp_tcnv_rec tcnv_rec_type;
10487: lx_stmv_tbl stmv_tbl_type;
10488: lx_adjv_rec adjv_rec_type;
10481: x_msg_data OUT NOCOPY VARCHAR2,
10482: p_term_rec IN term_rec_type,
10483: p_tcnv_rec IN tcnv_rec_type) IS
10484: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10485: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10486: lp_tcnv_rec tcnv_rec_type;
10487: lx_stmv_tbl stmv_tbl_type;
10488: lx_adjv_rec adjv_rec_type;
10489: lx_ajlv_tbl ajlv_tbl_type;
10492: lx_chrv_rec chrv_rec_type;
10493: lx_clev_tbl clev_tbl_type;
10494: lx_id NUMBER;
10495: i NUMBER := 1;
10496: l_tran_started VARCHAR2(1) := OKL_API.G_FALSE;
10497: l_evergreen_status VARCHAR2(1) := OKL_API.G_FALSE;
10498: l_api_name VARCHAR2(30) := 'lease_termination';
10499: l_sys_date DATE;
10500: l_trn_already_set VARCHAR2(1) := G_NO;
10493: lx_clev_tbl clev_tbl_type;
10494: lx_id NUMBER;
10495: i NUMBER := 1;
10496: l_tran_started VARCHAR2(1) := OKL_API.G_FALSE;
10497: l_evergreen_status VARCHAR2(1) := OKL_API.G_FALSE;
10498: l_api_name VARCHAR2(30) := 'lease_termination';
10499: l_sys_date DATE;
10500: l_trn_already_set VARCHAR2(1) := G_NO;
10501: lx_contract_status VARCHAR2(200);
10498: l_api_name VARCHAR2(30) := 'lease_termination';
10499: l_sys_date DATE;
10500: l_trn_already_set VARCHAR2(1) := G_NO;
10501: lx_contract_status VARCHAR2(200);
10502: l_validate VARCHAR2(1) := OKL_API.G_RET_STS_ERROR;
10503: l_api_version CONSTANT NUMBER := 1;
10504: l_status VARCHAR2(200);
10505: l_term_rec term_rec_type := p_term_rec;
10506:
10525: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
10526: END IF;
10527:
10528: -- Set the transaction
10529: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
10530: G_PKG_NAME,
10531: p_init_msg_list,
10532: l_api_version,
10533: p_api_version,
10534: '_PVT',
10535: x_return_status);
10536:
10537: -- Rollback if error setting activity for api
10538: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10539: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10540: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10541: RAISE OKL_API.G_EXCEPTION_ERROR;
10542: END IF;
10535: x_return_status);
10536:
10537: -- Rollback if error setting activity for api
10538: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10539: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10540: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10541: RAISE OKL_API.G_EXCEPTION_ERROR;
10542: END IF;
10543:
10536:
10537: -- Rollback if error setting activity for api
10538: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10539: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10540: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10541: RAISE OKL_API.G_EXCEPTION_ERROR;
10542: END IF;
10543:
10544: -- Set the x return status
10537: -- Rollback if error setting activity for api
10538: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10539: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10540: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10541: RAISE OKL_API.G_EXCEPTION_ERROR;
10542: END IF;
10543:
10544: -- Set the x return status
10545: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10541: RAISE OKL_API.G_EXCEPTION_ERROR;
10542: END IF;
10543:
10544: -- Set the x return status
10545: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10546:
10547: -- store the highest degree of error
10548: set_overall_status(
10549: p_return_status => l_return_status,
10557: set_info_messages(
10558: p_term_rec => l_term_rec);
10559:
10560: -- check if transaction already exists
10561: IF (p_tcnv_rec.id IS NOT NULL AND p_tcnv_rec.id <> OKL_API.G_MISS_NUM) THEN
10562: l_trn_already_set := G_YES;
10563: END IF;
10564:
10565: --get sysdate
10578: x_msg_count => x_msg_count,
10579: x_msg_data => x_msg_data);
10580: --akrangan bug 5354501 fix end
10581: -- rollback if intialize transaction failed
10582: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10583: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10584: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10585: RAISE OKL_API.G_EXCEPTION_ERROR;
10586: END IF;
10579: x_msg_data => x_msg_data);
10580: --akrangan bug 5354501 fix end
10581: -- rollback if intialize transaction failed
10582: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10583: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10584: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10585: RAISE OKL_API.G_EXCEPTION_ERROR;
10586: END IF;
10587:
10580: --akrangan bug 5354501 fix end
10581: -- rollback if intialize transaction failed
10582: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10583: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10584: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10585: RAISE OKL_API.G_EXCEPTION_ERROR;
10586: END IF;
10587:
10588: -- insert the transaction record
10581: -- rollback if intialize transaction failed
10582: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10583: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10584: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10585: RAISE OKL_API.G_EXCEPTION_ERROR;
10586: END IF;
10587:
10588: -- insert the transaction record
10589: process_transaction(
10587:
10588: -- insert the transaction record
10589: process_transaction(
10590: p_api_version => p_api_version,
10591: p_init_msg_list => OKL_API.G_FALSE,
10592: x_return_status => l_return_status,
10593: x_msg_count => x_msg_count,
10594: x_msg_data => x_msg_data,
10595: p_id => 0,
10598: x_id => lx_id,
10599: p_trn_mode => 'INSERT');
10600:
10601: -- rollback if processing transaction failed
10602: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10603: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10604: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10605: RAISE OKL_API.G_EXCEPTION_ERROR;
10606: END IF;
10599: p_trn_mode => 'INSERT');
10600:
10601: -- rollback if processing transaction failed
10602: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10603: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10604: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10605: RAISE OKL_API.G_EXCEPTION_ERROR;
10606: END IF;
10607:
10600:
10601: -- rollback if processing transaction failed
10602: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10603: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10604: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10605: RAISE OKL_API.G_EXCEPTION_ERROR;
10606: END IF;
10607:
10608: -- set the trn rec id
10601: -- rollback if processing transaction failed
10602: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10603: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10604: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10605: RAISE OKL_API.G_EXCEPTION_ERROR;
10606: END IF;
10607:
10608: -- set the trn rec id
10609: lp_tcnv_rec.id := lx_id;
10625: --akrangan bug 5354501 fix end
10626:
10627:
10628: -- rollback if intialize transaction failed
10629: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10630: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10631: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10632: RAISE OKL_API.G_EXCEPTION_ERROR;
10633: END IF;
10626:
10627:
10628: -- rollback if intialize transaction failed
10629: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10630: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10631: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10632: RAISE OKL_API.G_EXCEPTION_ERROR;
10633: END IF;
10634:
10627:
10628: -- rollback if intialize transaction failed
10629: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10630: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10631: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10632: RAISE OKL_API.G_EXCEPTION_ERROR;
10633: END IF;
10634:
10635: END IF;
10628: -- rollback if intialize transaction failed
10629: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10630: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10631: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10632: RAISE OKL_API.G_EXCEPTION_ERROR;
10633: END IF;
10634:
10635: END IF;
10636:
10651: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_return_status = '||l_return_status);
10652: END IF;
10653:
10654: -- Rollback if error setting activity for api
10655: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10656: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10657: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10658: RAISE OKL_API.G_EXCEPTION_ERROR;
10659: END IF;
10652: END IF;
10653:
10654: -- Rollback if error setting activity for api
10655: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10656: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10657: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10658: RAISE OKL_API.G_EXCEPTION_ERROR;
10659: END IF;
10660:
10653:
10654: -- Rollback if error setting activity for api
10655: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10656: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10657: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10658: RAISE OKL_API.G_EXCEPTION_ERROR;
10659: END IF;
10660:
10661: -- rmunjulu +++++++++ Effective Dated Termination -- end ++++++++++++++++
10654: -- Rollback if error setting activity for api
10655: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10656: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10657: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10658: RAISE OKL_API.G_EXCEPTION_ERROR;
10659: END IF;
10660:
10661: -- rmunjulu +++++++++ Effective Dated Termination -- end ++++++++++++++++
10662:
10662:
10663: -- check if lease valid
10664: validate_lease(
10665: p_api_version => p_api_version,
10666: p_init_msg_list => OKL_API.G_FALSE,
10667: x_return_status => l_return_status,
10668: x_msg_count => x_msg_count,
10669: x_msg_data => x_msg_data,
10670: p_sys_date => l_sys_date,
10691:
10692: -- Since batch process is not checked initially in LLT check here
10693: OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract(
10694: p_api_version => p_api_version,
10695: p_init_msg_list => OKL_API.G_FALSE,
10696: x_return_status => l_return_status,
10697: x_msg_count => x_msg_count,
10698: x_msg_data => x_msg_data,
10699: p_contract_id => l_term_rec.p_contract_id,
10705: END IF;
10706:
10707: -- Store the highest validation return status
10708: -- To capture the return status of validate lease called above
10709: IF (l_validate = OKL_API.G_RET_STS_SUCCESS) THEN
10710: l_validate := l_return_status;
10711: END IF;
10712:
10713: -- store the highest degree of error
10724: px_tcnv_rec => lp_tcnv_rec);
10725:
10726: -- if validation failed then insert transaction
10727: -- AND abort else continue next process
10728: IF (l_validate <> OKL_API.G_RET_STS_SUCCESS) THEN
10729:
10730: -- Validation of contract failed.
10731: OKL_API.set_message( p_app_name => G_APP_NAME,
10732: p_msg_name => 'OKL_AM_VAL_OF_K_FAILED');
10727: -- AND abort else continue next process
10728: IF (l_validate <> OKL_API.G_RET_STS_SUCCESS) THEN
10729:
10730: -- Validation of contract failed.
10731: OKL_API.set_message( p_app_name => G_APP_NAME,
10732: p_msg_name => 'OKL_AM_VAL_OF_K_FAILED');
10733:
10734: -- set the transaction record
10735: set_transaction_rec(
10741:
10742: -- update the transaction record
10743: process_transaction(
10744: p_api_version => p_api_version,
10745: p_init_msg_list => OKL_API.G_FALSE,
10746: x_return_status => l_return_status,
10747: x_msg_count => x_msg_count,
10748: x_msg_data => x_msg_data,
10749: p_id => 0,
10752: x_id => lx_id,
10753: p_trn_mode => 'UPDATE');
10754:
10755: -- rollback if processing transaction failed
10756: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10757: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10758: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10759: RAISE OKL_API.G_EXCEPTION_ERROR;
10760: END IF;
10753: p_trn_mode => 'UPDATE');
10754:
10755: -- rollback if processing transaction failed
10756: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10757: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10758: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10759: RAISE OKL_API.G_EXCEPTION_ERROR;
10760: END IF;
10761:
10754:
10755: -- rollback if processing transaction failed
10756: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10757: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10758: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10759: RAISE OKL_API.G_EXCEPTION_ERROR;
10760: END IF;
10761:
10762: -- Save messages from stack into transaction message table
10755: -- rollback if processing transaction failed
10756: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10757: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10758: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10759: RAISE OKL_API.G_EXCEPTION_ERROR;
10760: END IF;
10761:
10762: -- Save messages from stack into transaction message table
10763: OKL_AM_UTIL_PVT.process_messages(
10779: /* -- RMUNJULU 3061751 Changed this code to create a termination trn even when
10780: -- request is NON BATCH and validation has failed
10781:
10782: -- rollback if validation failed
10783: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10784: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10785: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10786: RAISE OKL_API.G_EXCEPTION_ERROR;
10787: END IF;
10780: -- request is NON BATCH and validation has failed
10781:
10782: -- rollback if validation failed
10783: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10784: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10785: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10786: RAISE OKL_API.G_EXCEPTION_ERROR;
10787: END IF;
10788:
10781:
10782: -- rollback if validation failed
10783: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10784: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10785: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10786: RAISE OKL_API.G_EXCEPTION_ERROR;
10787: END IF;
10788:
10789: -- set the transaction record
10782: -- rollback if validation failed
10783: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10784: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10785: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10786: RAISE OKL_API.G_EXCEPTION_ERROR;
10787: END IF;
10788:
10789: -- set the transaction record
10790: set_transaction_rec(
10797:
10798: -- RMUNJULU 3061751 Changed this code to create a termination trn even when
10799: -- request is NON BATCH and validation has failed
10800:
10801: IF (l_validate <> OKL_API.G_RET_STS_SUCCESS) THEN
10802:
10803: -- Validation of contract failed.
10804: OKL_API.set_message( p_app_name => G_APP_NAME,
10805: p_msg_name => 'OKL_AM_VAL_OF_K_FAILED');
10800:
10801: IF (l_validate <> OKL_API.G_RET_STS_SUCCESS) THEN
10802:
10803: -- Validation of contract failed.
10804: OKL_API.set_message( p_app_name => G_APP_NAME,
10805: p_msg_name => 'OKL_AM_VAL_OF_K_FAILED');
10806:
10807: -- set the transaction record
10808: set_transaction_rec(
10814:
10815: -- update the transaction record
10816: process_transaction(
10817: p_api_version => p_api_version,
10818: p_init_msg_list => OKL_API.G_FALSE,
10819: x_return_status => l_return_status,
10820: x_msg_count => x_msg_count,
10821: x_msg_data => x_msg_data,
10822: p_id => 0,
10825: x_id => lx_id,
10826: p_trn_mode => 'UPDATE');
10827:
10828: -- rollback if processing transaction failed
10829: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10831: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10832: RAISE OKL_API.G_EXCEPTION_ERROR;
10833: END IF;
10826: p_trn_mode => 'UPDATE');
10827:
10828: -- rollback if processing transaction failed
10829: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10831: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10832: RAISE OKL_API.G_EXCEPTION_ERROR;
10833: END IF;
10834:
10827:
10828: -- rollback if processing transaction failed
10829: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10831: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10832: RAISE OKL_API.G_EXCEPTION_ERROR;
10833: END IF;
10834:
10835: -- Save messages from stack into transaction message table
10828: -- rollback if processing transaction failed
10829: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10831: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10832: RAISE OKL_API.G_EXCEPTION_ERROR;
10833: END IF;
10834:
10835: -- Save messages from stack into transaction message table
10836: OKL_AM_UTIL_PVT.process_messages(
10852:
10853: -- get the lines
10854: get_contract_lines(
10855: p_api_version => p_api_version,
10856: p_init_msg_list => OKL_API.G_FALSE,
10857: x_return_status => l_return_status,
10858: x_msg_count => x_msg_count,
10859: x_msg_data => x_msg_data,
10860: p_term_rec => l_term_rec,
10862:
10863: -- check and process an evergreen lease
10864: process_evergreen_contract(
10865: p_api_version => p_api_version,
10866: p_init_msg_list => OKL_API.G_FALSE,
10867: x_return_status => l_return_status,
10868: x_msg_count => x_msg_count,
10869: x_msg_data => x_msg_data,
10870: p_term_rec => l_term_rec,
10876: x_evergreen_status => l_evergreen_status);
10877:
10878: -- Update transaction only if evergreen was found and successful or if error
10879: IF (l_evergreen_status = G_YES
10880: AND l_return_status = OKL_API.G_RET_STS_SUCCESS)
10881: -- RMUNJULU 11-MAR-04 3485854
10882: -- Changed the IF condition to check for ERROR properly
10883: OR (l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
10884:
10879: IF (l_evergreen_status = G_YES
10880: AND l_return_status = OKL_API.G_RET_STS_SUCCESS)
10881: -- RMUNJULU 11-MAR-04 3485854
10882: -- Changed the IF condition to check for ERROR properly
10883: OR (l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
10884:
10885: -- update the transaction record
10886: process_transaction(
10887: p_api_version => p_api_version,
10884:
10885: -- update the transaction record
10886: process_transaction(
10887: p_api_version => p_api_version,
10888: p_init_msg_list => OKL_API.G_FALSE,
10889: x_return_status => l_return_status,
10890: x_msg_count => x_msg_count,
10891: x_msg_data => x_msg_data,
10892: p_id => 0,
10895: x_id => lx_id,
10896: p_trn_mode => 'UPDATE');
10897:
10898: -- rollback if processing transaction failed
10899: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10901: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10902: RAISE OKL_API.G_EXCEPTION_ERROR;
10903: END IF;
10896: p_trn_mode => 'UPDATE');
10897:
10898: -- rollback if processing transaction failed
10899: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10901: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10902: RAISE OKL_API.G_EXCEPTION_ERROR;
10903: END IF;
10904:
10897:
10898: -- rollback if processing transaction failed
10899: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10901: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10902: RAISE OKL_API.G_EXCEPTION_ERROR;
10903: END IF;
10904:
10905: -- Save messages from stack into transaction message table
10898: -- rollback if processing transaction failed
10899: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10901: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10902: RAISE OKL_API.G_EXCEPTION_ERROR;
10903: END IF;
10904:
10905: -- Save messages from stack into transaction message table
10906: OKL_AM_UTIL_PVT.process_messages(
10919:
10920: -- do cancellation of insurance
10921: process_cancel_insurance(
10922: p_api_version => p_api_version,
10923: p_init_msg_list => OKL_API.G_FALSE,
10924: x_return_status => l_return_status,
10925: x_msg_count => x_msg_count,
10926: x_msg_data => x_msg_data,
10927: p_term_rec => l_term_rec,
10938:
10939: -- do closing of balances
10940: process_close_balances(
10941: p_api_version => p_api_version,
10942: p_init_msg_list => OKL_API.G_FALSE,
10943: x_return_status => l_return_status,
10944: x_msg_count => x_msg_count,
10945: x_msg_data => x_msg_data,
10946: p_term_rec => l_term_rec,
10960: /*
10961: -- process close streams
10962: process_close_streams(
10963: p_api_version => p_api_version,
10964: p_init_msg_list => OKL_API.G_FALSE,
10965: x_return_status => l_return_status,
10966: x_msg_count => x_msg_count,
10967: x_msg_data => x_msg_data,
10968: p_term_rec => l_term_rec,
10974: */
10975: -- do accounting entries
10976: process_accounting_entries(
10977: p_api_version => p_api_version,
10978: p_init_msg_list => OKL_API.G_FALSE,
10979: x_return_status => l_return_status,
10980: x_msg_count => x_msg_count,
10981: x_msg_data => x_msg_data,
10982: p_term_rec => l_term_rec,
10995:
10996: -- do asset dispose
10997: process_asset_dispose(
10998: p_api_version => p_api_version,
10999: p_init_msg_list => OKL_API.G_FALSE,
11000: x_return_status => l_return_status,
11001: x_msg_count => x_msg_count,
11002: x_msg_data => x_msg_data,
11003: p_term_rec => l_term_rec,
11007: p_klev_tbl => lx_klev_tbl,
11008: p_trn_already_set => l_trn_already_set);
11009:
11010: -- Amortization of assets not needed since termination with purchase
11011: OKL_API.set_message( p_app_name => G_APP_NAME,
11012: p_msg_name => 'OKL_AM_AMORTIZE_NOT_NEED');
11013:
11014: -- Return of assets not needed since termination with purchase
11015: OKL_API.set_message( p_app_name => G_APP_NAME,
11011: OKL_API.set_message( p_app_name => G_APP_NAME,
11012: p_msg_name => 'OKL_AM_AMORTIZE_NOT_NEED');
11013:
11014: -- Return of assets not needed since termination with purchase
11015: OKL_API.set_message( p_app_name => G_APP_NAME,
11016: p_msg_name => 'OKL_AM_RETURN_NOT_NEED');
11017:
11018: ELSIF (l_auto_invoice_yn = 'Y') THEN -- rmunjulu BUYOUT_PROCESS
11019:
11018: ELSIF (l_auto_invoice_yn = 'Y') THEN -- rmunjulu BUYOUT_PROCESS
11019:
11020: process_asset_dispose(
11021: p_api_version => p_api_version,
11022: p_init_msg_list => OKL_API.G_FALSE,
11023: x_return_status => l_return_status,
11024: x_msg_count => x_msg_count,
11025: x_msg_data => x_msg_data,
11026: p_term_rec => l_term_rec,
11031: p_trn_already_set => l_trn_already_set,
11032: p_auto_invoice_yn => l_auto_invoice_yn); -- rmunjulu BUYOUT_PROCESS
11033:
11034: -- Amortization of assets not needed since termination with purchase
11035: OKL_API.set_message( p_app_name => G_APP_NAME,
11036: p_msg_name => 'OKL_AM_AMORTIZE_NOT_NEED');
11037:
11038: -- Return of assets not needed since termination with purchase
11039: OKL_API.set_message( p_app_name => G_APP_NAME,
11035: OKL_API.set_message( p_app_name => G_APP_NAME,
11036: p_msg_name => 'OKL_AM_AMORTIZE_NOT_NEED');
11037:
11038: -- Return of assets not needed since termination with purchase
11039: OKL_API.set_message( p_app_name => G_APP_NAME,
11040: p_msg_name => 'OKL_AM_RETURN_NOT_NEED');
11041:
11042: ELSE
11043: -- do amortization and asset return
11042: ELSE
11043: -- do amortization and asset return
11044: process_amortize_and_return(
11045: p_api_version => p_api_version,
11046: p_init_msg_list => OKL_API.G_FALSE,
11047: x_return_status => l_return_status,
11048: x_msg_count => x_msg_count,
11049: x_msg_data => x_msg_data,
11050: p_term_rec => l_term_rec,
11054: p_klev_tbl => lx_klev_tbl,
11055: p_trn_already_set => l_trn_already_set);
11056:
11057: -- Disposition of assets not needed since termination without purchase
11058: OKL_API.set_message( p_app_name => G_APP_NAME,
11059: p_msg_name => 'OKL_AM_DISPOSE_NOT_NEED');
11060:
11061: END IF;
11062:
11060:
11061: END IF;
11062:
11063: -- update the contract only if the overall_status is success
11064: IF (l_overall_status = OKL_API.G_RET_STS_SUCCESS) THEN
11065: --start:| 05-29-08 cklee -- fixed bug: 7017824(R12)/OKL.H: bug#6964174 |
11066: -- Added Bug# 6964174 - Start
11067: -- Introduced the call to modify pool content api to inactivate pool contents
11068: -- and recreate them. This was initially present as part of the early termination
11071: -- transaction like termination billing, termination accounting can have special
11072: -- accounting before the pool contents are inactivated.
11073:
11074: -- Logic to run only for early termination -- check for quote_id
11075: IF l_term_rec.p_quote_id IS NOT NULL AND l_term_rec.p_quote_id <> OKL_API.G_MISS_NUM THEN
11076: -- Check if contract is securitized for RENT
11077: OKL_SECURITIZATION_PVT.check_khr_securitized(
11078: p_api_version => p_api_version
11079: ,p_init_msg_list => OKL_API.G_FALSE
11075: IF l_term_rec.p_quote_id IS NOT NULL AND l_term_rec.p_quote_id <> OKL_API.G_MISS_NUM THEN
11076: -- Check if contract is securitized for RENT
11077: OKL_SECURITIZATION_PVT.check_khr_securitized(
11078: p_api_version => p_api_version
11079: ,p_init_msg_list => OKL_API.G_FALSE
11080: ,x_return_status => l_return_status
11081: ,x_msg_count => x_msg_count
11082: ,x_msg_data => x_msg_data
11083: ,p_khr_id => l_term_rec.p_contract_id
11085: ,p_stream_type_subclass => 'RENT'
11086: ,x_value => l_is_securitized
11087: ,x_inv_agmt_chr_id_tbl => l_inv_agmt_chr_id_tbl );
11088: -- rollback if processing transaction failed
11089: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11090: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11091: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11092: RAISE OKL_API.G_EXCEPTION_ERROR;
11093: END IF;
11086: ,x_value => l_is_securitized
11087: ,x_inv_agmt_chr_id_tbl => l_inv_agmt_chr_id_tbl );
11088: -- rollback if processing transaction failed
11089: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11090: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11091: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11092: RAISE OKL_API.G_EXCEPTION_ERROR;
11093: END IF;
11094:
11087: ,x_inv_agmt_chr_id_tbl => l_inv_agmt_chr_id_tbl );
11088: -- rollback if processing transaction failed
11089: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11090: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11091: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11092: RAISE OKL_API.G_EXCEPTION_ERROR;
11093: END IF;
11094:
11095: -- if contract is securitized, then call the modify pool contents. Prior to fix for bug# 6964174
11088: -- rollback if processing transaction failed
11089: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11090: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11091: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11092: RAISE OKL_API.G_EXCEPTION_ERROR;
11093: END IF;
11094:
11095: -- if contract is securitized, then call the modify pool contents. Prior to fix for bug# 6964174
11096: -- this was present in OKL_AM_SECURITIZATION_PVT.create_pool_transaction
11096: -- this was present in OKL_AM_SECURITIZATION_PVT.create_pool_transaction
11097: IF l_is_securitized = OKC_API.G_TRUE THEN
11098: OKL_SECURITIZATION_PVT.MODIFY_POOL_CONTENTS
11099: ( p_api_version => p_api_version
11100: ,p_init_msg_list => OKL_API.G_FALSE
11101: ,p_transaction_reason => OKL_SECURITIZATION_PVT.G_TRX_REASON_EARLY_TERMINATION
11102: ,p_khr_id => l_term_rec.p_contract_id
11103: ,p_stream_type_subclass => 'RENT'
11104: ,p_transaction_date => okl_am_lease_loan_trmnt_pvt.g_quote_accept_date
11106: ,x_return_status => l_return_status
11107: ,x_msg_count => x_msg_count
11108: ,x_msg_data => x_msg_data );
11109: -- rollback if processing transaction failed
11110: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11111: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11112: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11113: RAISE OKL_API.G_EXCEPTION_ERROR;
11114: END IF;
11107: ,x_msg_count => x_msg_count
11108: ,x_msg_data => x_msg_data );
11109: -- rollback if processing transaction failed
11110: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11111: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11112: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11113: RAISE OKL_API.G_EXCEPTION_ERROR;
11114: END IF;
11115: END IF;
11108: ,x_msg_data => x_msg_data );
11109: -- rollback if processing transaction failed
11110: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11111: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11112: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11113: RAISE OKL_API.G_EXCEPTION_ERROR;
11114: END IF;
11115: END IF;
11116: END IF;
11109: -- rollback if processing transaction failed
11110: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11111: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11112: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11113: RAISE OKL_API.G_EXCEPTION_ERROR;
11114: END IF;
11115: END IF;
11116: END IF;
11117: -- Added Bug# 6964174 - End
11119:
11120: -- Set the p_status (which sets the sts_code) for the contract
11121: IF l_term_rec.p_control_flag = 'BATCH_PROCESS'
11122: AND ( l_term_rec.p_quote_id IS NULL
11123: OR l_term_rec.p_quote_id = OKL_API.G_MISS_NUM) THEN
11124: l_status := 'EXPIRED';
11125: ELSE
11126: l_status := 'TERMINATED';
11127: END IF;
11128:
11129: -- set_and_update_contract
11130: update_k_hdr_and_lines(
11131: p_api_version => p_api_version,
11132: p_init_msg_list => OKL_API.G_FALSE,
11133: x_return_status => l_return_status,
11134: x_msg_count => x_msg_count,
11135: x_msg_data => x_msg_data,
11136: p_status => l_status,
11142: x_chrv_rec => lx_chrv_rec,
11143: x_clev_tbl => lx_clev_tbl,
11144: p_sys_date => l_sys_date);
11145:
11146: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
11147:
11148: -- set the transaction record
11149: set_transaction_rec(
11150: p_return_status => l_return_status,
11155:
11156: ELSE -- Update of K hdr and lines failed
11157:
11158: -- Contract table update failed.
11159: OKL_API.set_message( p_app_name => G_APP_NAME,
11160: p_msg_name => 'OKL_AM_ERR_K_UPD');
11161:
11162: -- set the transaction record
11163: set_transaction_rec(
11171:
11172: -- update the transaction record
11173: process_transaction(
11174: p_api_version => p_api_version,
11175: p_init_msg_list => OKL_API.G_FALSE,
11176: x_return_status => l_return_status,
11177: x_msg_count => x_msg_count,
11178: x_msg_data => x_msg_data,
11179: p_id => 0,
11182: x_id => lx_id,
11183: p_trn_mode => 'UPDATE');
11184:
11185: -- rollback if processing transaction failed
11186: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11187: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11188: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11189: RAISE OKL_API.G_EXCEPTION_ERROR;
11190: END IF;
11183: p_trn_mode => 'UPDATE');
11184:
11185: -- rollback if processing transaction failed
11186: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11187: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11188: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11189: RAISE OKL_API.G_EXCEPTION_ERROR;
11190: END IF;
11191:
11184:
11185: -- rollback if processing transaction failed
11186: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11187: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11188: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11189: RAISE OKL_API.G_EXCEPTION_ERROR;
11190: END IF;
11191:
11192: -- Save messages from stack into transaction message table
11185: -- rollback if processing transaction failed
11186: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11187: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11188: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11189: RAISE OKL_API.G_EXCEPTION_ERROR;
11190: END IF;
11191:
11192: -- Save messages from stack into transaction message table
11193: OKL_AM_UTIL_PVT.process_messages(
11201: x_return_status => l_return_status);
11202:
11203: -- Set the return status
11204:
11205: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11206:
11207:
11208: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
11209: IF (is_debug_procedure_on) THEN
11204:
11205: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11206:
11207:
11208: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
11209: IF (is_debug_procedure_on) THEN
11210: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
11211: END IF;
11212: EXCEPTION
11214: IF (is_debug_exception_on) THEN
11215: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_HALT_VALIDATION');
11216: END IF;
11217:
11218: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11219: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11220: IF (is_debug_exception_on) THEN
11221: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
11222: END IF;
11215: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_HALT_VALIDATION');
11216: END IF;
11217:
11218: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11219: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11220: IF (is_debug_exception_on) THEN
11221: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
11222: END IF;
11223:
11220: IF (is_debug_exception_on) THEN
11221: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
11222: END IF;
11223:
11224: x_return_status := OKL_API.HANDLE_EXCEPTIONS
11225: (
11226: l_api_name,
11227: G_PKG_NAME,
11228: 'OKL_API.G_RET_STS_ERROR',
11224: x_return_status := OKL_API.HANDLE_EXCEPTIONS
11225: (
11226: l_api_name,
11227: G_PKG_NAME,
11228: 'OKL_API.G_RET_STS_ERROR',
11229: x_msg_count,
11230: x_msg_data,
11231: '_PVT'
11232: );
11229: x_msg_count,
11230: x_msg_data,
11231: '_PVT'
11232: );
11233: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11234: IF (is_debug_exception_on) THEN
11235: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
11236: END IF;
11237:
11234: IF (is_debug_exception_on) THEN
11235: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
11236: END IF;
11237:
11238: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
11239: (
11240: l_api_name,
11241: G_PKG_NAME,
11242: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11238: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
11239: (
11240: l_api_name,
11241: G_PKG_NAME,
11242: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11243: x_msg_count,
11244: x_msg_data,
11245: '_PVT'
11246: );
11248: IF (is_debug_exception_on) THEN
11249: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
11250: END IF;
11251:
11252: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
11253: (
11254: l_api_name,
11255: G_PKG_NAME,
11256: 'OTHERS',