[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:
354: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information3 = '||l_rulv_rec.rule_information3);
355: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information4 = '||l_rulv_rec.rule_information4);
356: END IF;
357:
358: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
359: l_calc_option := l_rulv_rec.rule_information1; -- Purchase Option
360: l_fixed_value := NVL (TO_NUMBER (l_rulv_rec.rule_information2), 0); -- Purchase Option Amount
361: l_formula_name := l_rulv_rec.rule_information3; -- Purchase Option Formula
362: l_prorate := l_rulv_rec.rule_information4; -- Purchase Option Prorate
389: 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);
390: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_formula_value = '||l_formula_value);
391: END IF;
392:
393: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
394: RAISE G_EXCEPTION_ERROR;
395: ELSE
396: l_purchase_amount := l_formula_value;
397: END IF;
414: 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);
415: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_formula_value = '||l_formula_value);
416: END IF;
417:
418: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
419: RAISE G_EXCEPTION_ERROR;
420: END IF;
421:
422: -- Get contract oec
435: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_formula_value = '||l_formula_value);
436: END IF;
437:
438:
439: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
440: RAISE G_EXCEPTION_ERROR;
441: END IF;
442:
443: -- sosharma bug 10100863
470: WHEN G_EXCEPTION_ERROR THEN
471: IF (is_debug_exception_on) THEN
472: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
473: END IF;
474: x_return_status := OKL_API.G_RET_STS_ERROR;
475: WHEN OTHERS THEN
476: IF (is_debug_exception_on) THEN
477: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
478: END IF;
476: IF (is_debug_exception_on) THEN
477: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
478: END IF;
479:
480: x_return_status := OKL_API.G_RET_STS_ERROR;
481: END get_purchase_amount;
482:
483: /* Changes*/
484: PROCEDURE get_purchase_amount_total(
501:
502: l_rulv_rec OKL_RULE_PUB.rulv_rec_type;
503: l_params OKL_EXECUTE_FORMULA_PUB.ctxt_val_tbl_type;
504:
505: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
506: l_dummy_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
507:
508: G_EXCEPTION_ERROR EXCEPTION;
509:
502: l_rulv_rec OKL_RULE_PUB.rulv_rec_type;
503: l_params OKL_EXECUTE_FORMULA_PUB.ctxt_val_tbl_type;
504:
505: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
506: l_dummy_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
507:
508: G_EXCEPTION_ERROR EXCEPTION;
509:
510: BEGIN
525: x_rulv_rec => l_rulv_rec,
526: x_return_status => l_return_status,
527: p_message_yn => TRUE);
528:
529: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
530: l_calc_option := l_rulv_rec.rule_information1; -- Purchase Option
531: l_fixed_value := NVL (TO_NUMBER (l_rulv_rec.rule_information2), 0); -- Purchase Option Amount
532: l_formula_name := l_rulv_rec.rule_information3; -- Purchase Option Formula
533: l_prorate := l_rulv_rec.rule_information4; -- Purchase Option Prorate
553: p_additional_parameters => l_params,
554: x_formula_value => l_formula_value,
555: x_return_status => l_return_status);
556:
557: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
558: RAISE G_EXCEPTION_ERROR;
559: ELSE
560: l_purchase_amount := l_formula_value;
561: END IF;
570: x_return_status := l_return_status;
571:
572: EXCEPTION
573: WHEN G_EXCEPTION_ERROR THEN
574: x_return_status := OKL_API.G_RET_STS_ERROR;
575: WHEN OTHERS THEN
576: x_return_status := OKL_API.G_RET_STS_ERROR;
577: END get_purchase_amount_total;
578:
572: EXCEPTION
573: WHEN G_EXCEPTION_ERROR THEN
574: x_return_status := OKL_API.G_RET_STS_ERROR;
575: WHEN OTHERS THEN
576: x_return_status := OKL_API.G_RET_STS_ERROR;
577: END get_purchase_amount_total;
578:
579: -- Start of comments
580: --
617: IF (is_debug_procedure_on) THEN
618: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
619: END IF;
620:
621: x_return_status := OKL_API.G_RET_STS_SUCCESS;
622:
623: IF (is_debug_statement_on) THEN
624: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_khr_id = '||p_khr_id);
625: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_tcn_id = '||p_tcn_id);
645: IF (is_debug_exception_on) THEN
646: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
647: END IF;
648:
649: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
650:
651: -- Set the oracle error message
652: OKL_API.set_message(
653: p_app_name => OKC_API.G_APP_NAME,
648:
649: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
650:
651: -- Set the oracle error message
652: OKL_API.set_message(
653: p_app_name => OKC_API.G_APP_NAME,
654: p_msg_name => g_unexpected_error,
655: p_token1 => g_sqlcode_token,
656: p_token1_value => SQLCODE,
721: l_group_reclass_options_rec FA_API_TYPES.group_reclass_options_rec_type;
722: l_asset_fin_mrc_tbl_new FA_API_TYPES.asset_fin_tbl_type;
723:
724:
725: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
726: delink_exception EXCEPTION;
727:
728: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'delink_contract_from_asset';
729: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
736: IF (is_debug_procedure_on) THEN
737: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
738: END IF;
739:
740: x_return_status := OKL_API.G_RET_STS_SUCCESS;
741:
742: IF (is_debug_statement_on) THEN
743: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_khr_id = '||p_khr_id);
744: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_sts_code = '||p_sts_code);
747: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_full_term_yn = '||nvl(p_full_term_yn,'Y'));
748: END IF;
749:
750:
751: IF p_khr_id IS NULL OR p_khr_id = OKL_API.G_MISS_NUM THEN
752: x_return_status := OKL_API.G_RET_STS_ERROR;
753: -- chr id is required
754: OKC_API.set_message( p_app_name => 'OKC',
755: p_msg_name => G_REQUIRED_VALUE,
748: END IF;
749:
750:
751: IF p_khr_id IS NULL OR p_khr_id = OKL_API.G_MISS_NUM THEN
752: x_return_status := OKL_API.G_RET_STS_ERROR;
753: -- chr id is required
754: OKC_API.set_message( p_app_name => 'OKC',
755: p_msg_name => G_REQUIRED_VALUE,
756: p_token1 => G_COL_NAME_TOKEN,
758: RAISE delink_exception;
759: END IF;
760:
761: -- rmunjulu modified to check for statusonly in case of full termination
762: IF nvl(p_full_term_yn,'Y') = 'Y' AND (p_sts_code IS NULL OR p_sts_code = OKL_API.G_MISS_CHAR) THEN
763: x_return_status := OKL_API.G_RET_STS_ERROR;
764: -- Status code is required
765: OKC_API.set_message( p_app_name => 'OKC',
766: p_msg_name => G_REQUIRED_VALUE,
759: END IF;
760:
761: -- rmunjulu modified to check for statusonly in case of full termination
762: IF nvl(p_full_term_yn,'Y') = 'Y' AND (p_sts_code IS NULL OR p_sts_code = OKL_API.G_MISS_CHAR) THEN
763: x_return_status := OKL_API.G_RET_STS_ERROR;
764: -- Status code is required
765: OKC_API.set_message( p_app_name => 'OKC',
766: p_msg_name => G_REQUIRED_VALUE,
767: p_token1 => G_COL_NAME_TOKEN,
768: p_token1_value => 'Contract Status Code');
769: RAISE delink_exception;
770: END IF;
771:
772: IF p_quote_accpt_date IS NULL OR p_quote_accpt_date = OKL_API.G_MISS_DATE THEN
773: x_return_status := OKL_API.G_RET_STS_ERROR;
774: -- Quote Acceptance Date is required
775: OKC_API.set_message( p_app_name => 'OKC',
776: p_msg_name => G_REQUIRED_VALUE,
769: RAISE delink_exception;
770: END IF;
771:
772: IF p_quote_accpt_date IS NULL OR p_quote_accpt_date = OKL_API.G_MISS_DATE THEN
773: x_return_status := OKL_API.G_RET_STS_ERROR;
774: -- Quote Acceptance Date is required
775: OKC_API.set_message( p_app_name => 'OKC',
776: p_msg_name => G_REQUIRED_VALUE,
777: p_token1 => G_COL_NAME_TOKEN,
778: p_token1_value => 'Quote Acceptance Date');
779: RAISE delink_exception;
780: END IF;
781:
782: IF p_quote_eff_date IS NULL OR p_quote_eff_date = OKL_API.G_MISS_DATE THEN
783: x_return_status := OKL_API.G_RET_STS_ERROR;
784: -- Quote Effective Date is required
785: OKC_API.set_message( p_app_name => 'OKC',
786: p_msg_name => G_REQUIRED_VALUE,
779: RAISE delink_exception;
780: END IF;
781:
782: IF p_quote_eff_date IS NULL OR p_quote_eff_date = OKL_API.G_MISS_DATE THEN
783: x_return_status := OKL_API.G_RET_STS_ERROR;
784: -- Quote Effective Date is required
785: OKC_API.set_message( p_app_name => 'OKC',
786: p_msg_name => G_REQUIRED_VALUE,
787: p_token1 => G_COL_NAME_TOKEN,
994: IF l_fabooks_csr%ISOPEN THEN
995: CLOSE l_fabooks_csr;
996: END IF;
997:
998: x_return_status := OKL_API.G_RET_STS_ERROR;
999: WHEN OTHERS THEN
1000:
1001: IF (is_debug_exception_on) THEN
1002: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1009: IF l_fabooks_csr%ISOPEN THEN
1010: CLOSE l_fabooks_csr;
1011: END IF;
1012:
1013: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1014:
1015: -- Set the oracle error message
1016: OKL_API.set_message(
1017: p_app_name => OKC_API.G_APP_NAME,
1012:
1013: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1014:
1015: -- Set the oracle error message
1016: OKL_API.set_message(
1017: p_app_name => OKC_API.G_APP_NAME,
1018: p_msg_name => g_unexpected_error,
1019: p_token1 => g_sqlcode_token,
1020: p_token1_value => SQLCODE,
1066:
1067: --sechawla 18-dec-07 6690811
1068: l_k_sts_code VARCHAR2(30);
1069:
1070: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1071: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1072:
1073: l_k_end_date DATE := OKL_API.G_MISS_DATE;
1074:
1067: --sechawla 18-dec-07 6690811
1068: l_k_sts_code VARCHAR2(30);
1069:
1070: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1071: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1072:
1073: l_k_end_date DATE := OKL_API.G_MISS_DATE;
1074:
1075: l_early_term_yn VARCHAR2(1) := G_NO;
1069:
1070: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1071: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1072:
1073: l_k_end_date DATE := OKL_API.G_MISS_DATE;
1074:
1075: l_early_term_yn VARCHAR2(1) := G_NO;
1076:
1077: l_trn_already_set VARCHAR2(3);
1134: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called check_k_evergreen_ear l_return_status = '||l_return_status);
1135: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_evergreen_earlier = '||l_evergreen_earlier);
1136: END IF;
1137:
1138: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1139:
1140: -- Error occurred during the creation of an amortization transaction
1141: -- for assets of contract CONTRACT_NUMBER.
1142: OKL_API.set_message( p_app_name => G_APP_NAME,
1138: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1139:
1140: -- Error occurred during the creation of an amortization transaction
1141: -- for assets of contract CONTRACT_NUMBER.
1142: OKL_API.set_message( p_app_name => G_APP_NAME,
1143: p_msg_name => 'OKL_AM_ERR_AMORTIZE',
1144: p_token1 => 'CONTRACT_NUMBER',
1145: p_token1_value => p_term_rec.p_contract_number);
1146:
1160: l_quote_accpt_date := l_k_end_date; -- rmunjulu 4150696 Changed to pass contract end date
1161: l_quote_eff_date := l_k_end_date; -- rmunjulu 4150696 Changed to pass contract end date
1162:
1163: END IF;
1164: IF (l_k_end_date <> OKL_API.G_MISS_DATE)
1165: AND (TRUNC(l_k_end_date) > TRUNC(l_quote_eff_date)) THEN -- rmunjulu EDAT
1166: l_early_term_yn := G_YES;
1167: END IF;
1168: --sechawla 18-dec-07 6690811 : end move
1174: --and also when contract is changing to Evergreen
1175:
1176: -- RMUNJULU 3018641 Step Message
1177: -- Step : Amortization
1178: OKL_API.set_message(
1179: p_app_name => G_APP_NAME,
1180: p_msg_name => 'OKL_AM_STEP_AMT');
1181:
1182: -- call amortization
1207:
1208: -- rmunjulu +++++++++ Effective Dated Termination -- end ++++++++++++++++
1209:
1210: /* --sechawla 18-dec-07 6690811 : Moved outside the IF
1211: IF (l_k_end_date <> OKL_API.G_MISS_DATE)
1212: AND (TRUNC(l_k_end_date) > TRUNC(l_quote_eff_date)) THEN -- rmunjulu EDAT
1213: l_early_term_yn := G_YES;
1214: END IF;
1215: */
1221: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_accpt_date = '||l_quote_accpt_date);
1222: END IF;
1223: OKL_AM_AMORTIZE_PUB.create_offlease_asset_trx(
1224: p_api_version => p_api_version,
1225: p_init_msg_list => OKL_API.G_FALSE,
1226: x_return_status => l_return_status,
1227: x_msg_count => x_msg_count,
1228: x_msg_data => x_msg_data,
1229: p_contract_id => p_term_rec.p_contract_id,
1233:
1234: IF (is_debug_statement_on) THEN
1235: 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);
1236: END IF;
1237: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1238:
1239: -- Error occurred during the creation of an amortization transaction
1240: -- for assets of contract CONTRACT_NUMBER.
1241: OKL_API.set_message( p_app_name => G_APP_NAME,
1237: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1238:
1239: -- Error occurred during the creation of an amortization transaction
1240: -- for assets of contract CONTRACT_NUMBER.
1241: OKL_API.set_message( p_app_name => G_APP_NAME,
1242: p_msg_name => 'OKL_AM_ERR_AMORTIZE',
1243: p_token1 => 'CONTRACT_NUMBER',
1244: p_token1_value => p_term_rec.p_contract_number);
1245:
1245:
1246: END IF;
1247:
1248: -- Raise exception to rollback to savepoint if error
1249: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1251: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1252: RAISE OKL_API.G_EXCEPTION_ERROR;
1253: END IF;
1246: END IF;
1247:
1248: -- Raise exception to rollback to savepoint if error
1249: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1251: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1252: RAISE OKL_API.G_EXCEPTION_ERROR;
1253: END IF;
1254:
1247:
1248: -- Raise exception to rollback to savepoint if error
1249: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1251: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1252: RAISE OKL_API.G_EXCEPTION_ERROR;
1253: END IF;
1254:
1255:
1248: -- Raise exception to rollback to savepoint if error
1249: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1251: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1252: RAISE OKL_API.G_EXCEPTION_ERROR;
1253: END IF;
1254:
1255:
1256: -- store the highest degree of error
1310: p_tsu_code => 'WORKING',
1311: px_tcnv_rec => px_tcnv_rec);
1312:
1313: -- rmunjulu bug 6853566
1314: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1315:
1316: -- Error occurred during the creation of an amortization transaction
1317: -- for assets of contract CONTRACT_NUMBER.
1318: OKL_API.set_message( p_app_name => G_APP_NAME,
1314: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1315:
1316: -- Error occurred during the creation of an amortization transaction
1317: -- for assets of contract CONTRACT_NUMBER.
1318: OKL_API.set_message( p_app_name => G_APP_NAME,
1319: p_msg_name => 'OKL_AM_ERR_AMORTIZE',
1320: p_token1 => 'CONTRACT_NUMBER',
1321: p_token1_value => p_term_rec.p_contract_number);
1322:
1321: p_token1_value => p_term_rec.p_contract_number);
1322:
1323: END IF;
1324:
1325: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1326: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1327: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1328: RAISE OKL_API.G_EXCEPTION_ERROR;
1329: END IF;
1322:
1323: END IF;
1324:
1325: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1326: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1327: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1328: RAISE OKL_API.G_EXCEPTION_ERROR;
1329: END IF;
1330: END IF;
1323: END IF;
1324:
1325: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1326: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1327: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1328: RAISE OKL_API.G_EXCEPTION_ERROR;
1329: END IF;
1330: END IF;
1331: --sechawla 21-dec-07 6690811 - Delink Contract ID upon full termination of a Booked contract - end
1324:
1325: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1326: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1327: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1328: RAISE OKL_API.G_EXCEPTION_ERROR;
1329: END IF;
1330: END IF;
1331: --sechawla 21-dec-07 6690811 - Delink Contract ID upon full termination of a Booked contract - end
1332:
1340: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1341: END IF;
1342:
1343: EXCEPTION
1344: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1345: IF (is_debug_exception_on) THEN
1346: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
1347: END IF;
1348:
1351: END IF;
1352:
1353: ROLLBACK TO asset_amortize;
1354:
1355: x_return_status := OKL_API.G_RET_STS_ERROR;
1356:
1357: -- store the highest degree of error
1358: set_overall_status(
1359: p_return_status => x_return_status,
1375: p_tsu_code => 'ERROR',
1376: p_ret_val => NULL,
1377: px_tcnv_rec => px_tcnv_rec);
1378:
1379: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1380: IF (is_debug_exception_on) THEN
1381: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
1382: END IF;
1383:
1386: END IF;
1387:
1388: ROLLBACK TO asset_amortize;
1389:
1390: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1391:
1392: -- store the highest degree of error
1393: set_overall_status(
1394: p_return_status => x_return_status,
1421: END IF;
1422:
1423: ROLLBACK TO asset_amortize;
1424:
1425: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1426:
1427: -- store the highest degree of error
1428: set_overall_status(
1429: p_return_status => x_return_status,
1446: p_ret_val => NULL,
1447: px_tcnv_rec => px_tcnv_rec);
1448:
1449: -- Set the oracle error message
1450: OKL_API.set_message(
1451: p_app_name => OKC_API.G_APP_NAME,
1452: p_msg_name => g_unexpected_error,
1453: p_token1 => g_sqlcode_token,
1454: p_token1_value => SQLCODE,
1473: x_rule_found OUT NOCOPY VARCHAR2,
1474: x_msg_count OUT NOCOPY NUMBER,
1475: x_msg_data OUT NOCOPY VARCHAR2) IS
1476:
1477: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1478: l_rule_found VARCHAR2(1) := G_NO;
1479: l_rulv_rec OKL_AM_CALCULATE_QUOTE_PVT.rulv_rec_type;
1480: l_rule_code CONSTANT VARCHAR2(30) := 'LAEVEL';
1481:
1503: IF (is_debug_statement_on) THEN
1504: 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);
1505: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
1506: END IF;
1507: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1508: IF (NVL (l_rulv_rec.rule_information1, '*') = G_YES) THEN
1509: l_rule_found := G_YES;
1510: END IF;
1511: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1507: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1508: IF (NVL (l_rulv_rec.rule_information1, '*') = G_YES) THEN
1509: l_rule_found := G_YES;
1510: END IF;
1511: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1512: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1513: l_rule_found := G_NO;
1514: END IF;
1515:
1508: IF (NVL (l_rulv_rec.rule_information1, '*') = G_YES) THEN
1509: l_rule_found := G_YES;
1510: END IF;
1511: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1512: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1513: l_rule_found := G_NO;
1514: END IF;
1515:
1516: x_return_status := l_return_status;
1520: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1521: END IF;
1522: EXCEPTION
1523:
1524: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1525: IF (is_debug_exception_on) THEN
1526: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
1527: END IF;
1528:
1525: IF (is_debug_exception_on) THEN
1526: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
1527: END IF;
1528:
1529: x_return_status := OKL_API.G_RET_STS_ERROR;
1530:
1531: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1532: IF (is_debug_exception_on) THEN
1533: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
1527: END IF;
1528:
1529: x_return_status := OKL_API.G_RET_STS_ERROR;
1530:
1531: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1532: IF (is_debug_exception_on) THEN
1533: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
1534: END IF;
1535:
1532: IF (is_debug_exception_on) THEN
1533: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
1534: END IF;
1535:
1536: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1537:
1538: WHEN OTHERS THEN
1539: IF (is_debug_exception_on) THEN
1540: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1540: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1541: END IF;
1542:
1543: -- Set the oracle error message
1544: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
1545: p_msg_name => g_unexpected_error,
1546: p_token1 => g_sqlcode_token,
1547: p_token1_value => SQLCODE,
1548: p_token2 => g_sqlerrm_token,
1546: p_token1 => g_sqlcode_token,
1547: p_token1_value => SQLCODE,
1548: p_token2 => g_sqlerrm_token,
1549: p_token2_value => SQLERRM);
1550: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1551: END evergreen_eligibility;
1552:
1553:
1554: -- Start of comments
1614: CLOSE k_lines_csr;
1615: END IF;
1616:
1617: -- Set the oracle error message
1618: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
1619: p_msg_name => g_unexpected_error,
1620: p_token1 => g_sqlcode_token,
1621: p_token1_value => SQLCODE,
1622: p_token2 => g_sqlerrm_token,
1655:
1656: l_try_id NUMBER;
1657: l_currency_code VARCHAR2(2000);
1658: l_trans_meaning VARCHAR2(200);
1659: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1660: --20-NOV-2006 ANSETHUR R12B - LEGAL ENTITY UPTAKE PROJECT
1661: l_legal_entity_id NUMBER;
1662: --akrangan bug 5354501 fix start
1663: l_k_end_date DATE;
1679: IF (is_debug_procedure_on) THEN
1680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1681: END IF;
1682:
1683: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1684: --20-NOV-2006 ANSETHUR R12B - LEGAL ENTITY UPTAKE PROJECT
1685: l_legal_entity_id := OKL_LEGAL_ENTITY_UTIL.get_khr_le_id (p_term_rec.p_contract_id);
1686: IF (is_debug_statement_on) THEN
1687: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_legal_entity_id = '||l_legal_entity_id);
1713: IF (l_evergreen_earlier <> 'Y'
1714: -- AND p_term_rec.p_control_flag LIKE 'BATCH_PROCESS%'
1715: AND TRUNC(l_k_end_date) <= TRUNC(p_sys_date)
1716: AND (p_term_rec.p_quote_id IS NULL
1717: OR p_term_rec.p_quote_id = OKL_API.G_MISS_NUM))THEN
1718:
1719: OKL_API.set_message(
1720: p_app_name => G_APP_NAME,
1721: p_msg_name => 'OKL_AM_STEP_EVR');
1715: AND TRUNC(l_k_end_date) <= TRUNC(p_sys_date)
1716: AND (p_term_rec.p_quote_id IS NULL
1717: OR p_term_rec.p_quote_id = OKL_API.G_MISS_NUM))THEN
1718:
1719: OKL_API.set_message(
1720: p_app_name => G_APP_NAME,
1721: p_msg_name => 'OKL_AM_STEP_EVR');
1722:
1723: -- get evergreen eligiblility
1731: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_return_status of evergreen_eligibility = '||l_return_status);
1732: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_rule_found = '||l_rule_found);
1733: END IF;
1734: -- Raise exception to rollback to the savepoint
1735: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1736:
1737: -- Error getting evergreen rule for contract.
1738: OKL_API.set_message(
1739: p_app_name => G_APP_NAME,
1734: -- Raise exception to rollback to the savepoint
1735: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1736:
1737: -- Error getting evergreen rule for contract.
1738: OKL_API.set_message(
1739: p_app_name => G_APP_NAME,
1740: p_msg_name => 'OKL_AM_EVERGREEN_RULE_ERR');
1741: RAISE OKL_API.G_EXCEPTION_ERROR;
1742: END IF;
1737: -- Error getting evergreen rule for contract.
1738: OKL_API.set_message(
1739: p_app_name => G_APP_NAME,
1740: p_msg_name => 'OKL_AM_EVERGREEN_RULE_ERR');
1741: RAISE OKL_API.G_EXCEPTION_ERROR;
1742: END IF;
1743: END IF;
1744:
1745: -- if control_flag = "batch process" and evergreen_status = "ok" then
1777: p_validate_yn => 'Y');
1778: IF (is_debug_statement_on) THEN
1779: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_trans_meaning = '||l_trans_meaning);
1780: END IF;
1781: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1782:
1783: -- Message: Unable to find a transaction type for the transaction TRY_NAME
1784: OKL_API.set_message(p_app_name => G_APP_NAME,
1785: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
1780: END IF;
1781: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1782:
1783: -- Message: Unable to find a transaction type for the transaction TRY_NAME
1784: OKL_API.set_message(p_app_name => G_APP_NAME,
1785: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
1786: p_token1 => 'TRY_NAME',
1787: p_token1_value => l_trans_meaning);
1788:
1785: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
1786: p_token1 => 'TRY_NAME',
1787: p_token1_value => l_trans_meaning);
1788:
1789: RAISE OKL_API.G_EXCEPTION_ERROR;
1790: END IF;
1791:
1792: -- Get the contract currency code
1793: l_currency_code := OKL_AM_UTIL_PVT.get_chr_currency(p_term_rec.p_contract_id);
1805:
1806:
1807: -- RMUNJULU 05-MAR-03 Get the tmt_recycle_yn flag if set and put in GLOBAL variable
1808: IF px_tcnv_rec.tmt_recycle_yn IS NULL
1809: OR px_tcnv_rec.tmt_recycle_yn = OKL_API.G_MISS_CHAR THEN
1810: G_TMT_RECYCLE_YN := NULL;
1811: ELSE
1812: G_TMT_RECYCLE_YN := px_tcnv_rec.tmt_recycle_yn;
1813: END IF;
1822: --20-NOV-2006 ANSETHUR R12B - LEGAL ENTITY UPTAKE PROJECT
1823: px_tcnv_rec.legal_entity_id := l_legal_entity_id;
1824:
1825: -- set the termination reason (TRN_CODE)
1826: IF (p_term_rec.p_termination_reason <> OKL_API.G_MISS_CHAR)
1827: AND (p_term_rec.p_termination_reason IS NOT NULL) THEN
1828: px_tcnv_rec.trn_code := p_term_rec.p_termination_reason;
1829: ELSE
1830: px_tcnv_rec.trn_code := 'EXP';
1833: IF (is_debug_procedure_on) THEN
1834: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1835: END IF;
1836: EXCEPTION
1837: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1838: IF (is_debug_exception_on) THEN
1839: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
1840: END IF;
1841:
1838: IF (is_debug_exception_on) THEN
1839: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
1840: END IF;
1841:
1842: x_return_status := OKL_API.G_RET_STS_ERROR;
1843: WHEN OTHERS THEN
1844: IF (is_debug_exception_on) THEN
1845: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1846: END IF;
1844: IF (is_debug_exception_on) THEN
1845: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1846: END IF;
1847:
1848: OKL_API.set_message(
1849: p_app_name => OKC_API.G_APP_NAME,
1850: p_msg_name => g_unexpected_error,
1851: p_token1 => g_sqlcode_token,
1852: p_token1_value => SQLCODE,
1851: p_token1 => g_sqlcode_token,
1852: p_token1_value => SQLCODE,
1853: p_token2 => g_sqlerrm_token,
1854: p_token2_value => SQLERRM);
1855: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1856: END initialize_transaction;
1857:
1858:
1859: -- Start of comments
1893:
1894: k_lines_rec k_lines_csr%ROWTYPE;
1895: lx_klev_tbl klev_tbl_type;
1896: i NUMBER := 1;
1897: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1898: l_api_name VARCHAR2(30) := 'get_contract_lines';
1899:
1900: -- asawanka added for debug feature start
1901: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_contract_lines';
1907: IF (is_debug_procedure_on) THEN
1908: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1909: END IF;
1910:
1911: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1912: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1913: p_init_msg_list,
1914: '_PVT',
1915: x_return_status);
1908: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1909: END IF;
1910:
1911: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1912: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1913: p_init_msg_list,
1914: '_PVT',
1915: x_return_status);
1916:
1913: p_init_msg_list,
1914: '_PVT',
1915: x_return_status);
1916:
1917: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1918: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1919: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1920: RAISE OKL_API.G_EXCEPTION_ERROR;
1921: END IF;
1914: '_PVT',
1915: x_return_status);
1916:
1917: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1918: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1919: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1920: RAISE OKL_API.G_EXCEPTION_ERROR;
1921: END IF;
1922: IF (is_debug_statement_on) THEN
1915: x_return_status);
1916:
1917: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1918: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1919: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1920: RAISE OKL_API.G_EXCEPTION_ERROR;
1921: END IF;
1922: IF (is_debug_statement_on) THEN
1923: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
1916:
1917: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1918: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1919: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1920: RAISE OKL_API.G_EXCEPTION_ERROR;
1921: END IF;
1922: IF (is_debug_statement_on) THEN
1923: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
1924: END IF;
1931: END LOOP;
1932:
1933: x_return_status := l_return_status;
1934: x_klev_tbl := lx_klev_tbl;
1935: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1936: IF (is_debug_procedure_on) THEN
1937: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1938: END IF;
1939: EXCEPTION
1936: IF (is_debug_procedure_on) THEN
1937: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1938: END IF;
1939: EXCEPTION
1940: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1941: IF (is_debug_exception_on) THEN
1942: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
1943: END IF;
1944:
1941: IF (is_debug_exception_on) THEN
1942: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
1943: END IF;
1944:
1945: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1946: (
1947: l_api_name,
1948: G_PKG_NAME,
1949: 'OKL_API.G_RET_STS_ERROR',
1945: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1946: (
1947: l_api_name,
1948: G_PKG_NAME,
1949: 'OKL_API.G_RET_STS_ERROR',
1950: x_msg_count,
1951: x_msg_data,
1952: '_PVT'
1953: );
1950: x_msg_count,
1951: x_msg_data,
1952: '_PVT'
1953: );
1954: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1955: IF (is_debug_exception_on) THEN
1956: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
1957: END IF;
1958:
1955: IF (is_debug_exception_on) THEN
1956: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
1957: END IF;
1958:
1959: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1960: (
1961: l_api_name,
1962: G_PKG_NAME,
1963: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1959: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1960: (
1961: l_api_name,
1962: G_PKG_NAME,
1963: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1964: x_msg_count,
1965: x_msg_data,
1966: '_PVT'
1967: );
1969: IF (is_debug_exception_on) THEN
1970: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1971: END IF;
1972:
1973: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1974: (
1975: l_api_name,
1976: G_PKG_NAME,
1977: 'OTHERS',
2007:
2008: -- Store the highest degree of error
2009: -- Set p_overall_status only if p_overall_status was successful and
2010: -- p_return_status is not null
2011: IF px_overall_status = OKL_API.G_RET_STS_SUCCESS
2012: AND (p_return_status IS NOT NULL
2013: OR p_return_status <> OKL_API.G_MISS_CHAR) THEN
2014: px_overall_status := p_return_status;
2015: END IF;
2009: -- Set p_overall_status only if p_overall_status was successful and
2010: -- p_return_status is not null
2011: IF px_overall_status = OKL_API.G_RET_STS_SUCCESS
2012: AND (p_return_status IS NOT NULL
2013: OR p_return_status <> OKL_API.G_MISS_CHAR) THEN
2014: px_overall_status := p_return_status;
2015: END IF;
2016: IF (is_debug_procedure_on) THEN
2017: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
2022: IF (is_debug_exception_on) THEN
2023: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
2024: END IF;
2025:
2026: OKL_API.set_message(
2027: p_app_name => OKC_API.G_APP_NAME,
2028: p_msg_name => g_unexpected_error,
2029: p_token1 => g_sqlcode_token,
2030: p_token1_value => SQLCODE,
2081: END LOOP;
2082:
2083: -- If the termination request is from quote, populate the rest of the quote attributes
2084: IF px_term_rec.p_quote_id IS NOT NULL
2085: AND px_term_rec.p_quote_id <> OKL_API.G_MISS_NUM THEN
2086:
2087: FOR get_quote_details_rec IN get_quote_details_csr(px_term_rec.p_quote_id) LOOP
2088:
2089: px_term_rec.p_quote_type := get_quote_details_rec.qtp_code;
2101: IF (is_debug_exception_on) THEN
2102: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
2103: END IF;
2104:
2105: OKL_API.set_message(
2106: p_app_name => OKC_API.G_APP_NAME,
2107: p_msg_name => g_unexpected_error,
2108: p_token1 => g_sqlcode_token,
2109: p_token1_value => SQLCODE,
2142: -- Check and Set the message saying where the termination request came from
2143: IF (p_term_rec.p_control_flag = 'CONTRACT_TERMINATE_SCRN') THEN
2144: -- Message: Termination request from Request Contract Termination screen
2145: -- for contract CONTRACT_NUMBER.
2146: OKL_API.set_message( p_app_name => G_APP_NAME,
2147: p_msg_name => 'OKL_AM_TERM_REQ_FRM_SCRN',
2148: p_token1 => 'CONTRACT_NUMBER',
2149: p_token1_value => p_term_rec.p_contract_number);
2150:
2149: p_token1_value => p_term_rec.p_contract_number);
2150:
2151: -- Set the additional message to let the user know if there was a quote
2152: IF p_term_rec.p_quote_id IS NOT NULL
2153: AND p_term_rec.p_quote_id <> OKL_API.G_MISS_NUM THEN
2154:
2155: -- Get the lookup meaning for quote type
2156: l_quote_type := OKL_AM_UTIL_PVT.get_lookup_meaning(
2157: p_lookup_type => 'OKL_QUOTE_TYPE',
2159: p_validate_yn => G_YES);
2160:
2161: --Message:Termination request from accepted QUOTE_TYPE
2162: -- for contract CONTRACT_NUMBER.
2163: OKL_API.set_message( p_app_name => G_APP_NAME,
2164: p_msg_name => 'OKL_AM_TERM_REQ_FRM_QTE',
2165: p_token1 => 'QUOTE_TYPE',
2166: p_token1_value => l_quote_type,
2167: p_token2 => 'CONTRACT_NUMBER',
2177: p_validate_yn => G_YES);
2178:
2179: --Message:Termination request from accepted QUOTE_TYPE
2180: -- for contract CONTRACT_NUMBER.
2181: OKL_API.set_message( p_app_name => G_APP_NAME,
2182: p_msg_name => 'OKL_AM_TERM_REQ_FRM_QTE',
2183: p_token1 => 'QUOTE_TYPE',
2184: p_token1_value => l_quote_type,
2185: p_token2 => 'CONTRACT_NUMBER',
2186: p_token2_value => p_term_rec.p_contract_number);
2187:
2188: ELSIF (p_term_rec.p_control_flag = 'BATCH_PROCESS') THEN
2189: -- Message : Auto termination request for contract CONTRACT_NUMBER.
2190: OKL_API.set_message( p_app_name => G_APP_NAME,
2191: p_msg_name => 'OKL_AM_AUTO_TERM_REQ',
2192: p_token1 => 'CONTRACT_NUMBER',
2193: p_token1_value => p_term_rec.p_contract_number);
2194: END IF;
2201: IF (is_debug_exception_on) THEN
2202: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
2203: END IF;
2204:
2205: OKL_API.set_message(
2206: p_app_name => OKC_API.G_APP_NAME,
2207: p_msg_name => g_unexpected_error,
2208: p_token1 => g_sqlcode_token,
2209: p_token1_value => SQLCODE,
2240: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2241: END IF;
2242:
2243: -- set the transaction record
2244: IF (p_overall_status = OKL_API.G_RET_STS_SUCCESS) THEN
2245: px_tcnv_rec.tmt_status_code := p_tsu_code; --akrangan changes for sla tmt_status_code cr
2246: ELSE
2247: px_tcnv_rec.tmt_status_code := 'ERROR'; --akrangan changes for sla tmt_status_code cr
2248: END IF;
2246: ELSE
2247: px_tcnv_rec.tmt_status_code := 'ERROR'; --akrangan changes for sla tmt_status_code cr
2248: END IF;
2249:
2250: IF (p_ret_val = OKL_API.G_MISS_CHAR) THEN -- No value for p_ret_val
2251: IF (p_return_status = OKL_API.G_RET_STS_SUCCESS) THEN -- ret stat success
2252: IF (p_tmt_flag = 'TMT_EVERGREEN_YN') THEN
2253: px_tcnv_rec.TMT_EVERGREEN_YN := G_YES;
2254: ELSIF(p_tmt_flag = 'TMT_CLOSE_BALANCES_YN') THEN
2247: px_tcnv_rec.tmt_status_code := 'ERROR'; --akrangan changes for sla tmt_status_code cr
2248: END IF;
2249:
2250: IF (p_ret_val = OKL_API.G_MISS_CHAR) THEN -- No value for p_ret_val
2251: IF (p_return_status = OKL_API.G_RET_STS_SUCCESS) THEN -- ret stat success
2252: IF (p_tmt_flag = 'TMT_EVERGREEN_YN') THEN
2253: px_tcnv_rec.TMT_EVERGREEN_YN := G_YES;
2254: ELSIF(p_tmt_flag = 'TMT_CLOSE_BALANCES_YN') THEN
2255: px_tcnv_rec.TMT_CLOSE_BALANCES_YN := G_YES;
2353: IF (is_debug_exception_on) THEN
2354: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
2355: END IF;
2356:
2357: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
2358: p_msg_name => g_unexpected_error,
2359: p_token1 => g_sqlcode_token,
2360: p_token1_value => SQLCODE,
2361: p_token2 => g_sqlerrm_token,
2385: x_msg_data OUT NOCOPY VARCHAR2,
2386: p_sys_date IN DATE,
2387: p_term_rec IN term_rec_type) IS
2388:
2389: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2390: l_api_name VARCHAR2(30) := 'validate_lease';
2391:
2392: -- RMUNJULU 3061751 Added variables for SERVICE_K_INTEGRATION
2393: l_recycle_yn VARCHAR2(1) := 'N';
2450: IF (is_debug_procedure_on) THEN
2451: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2452: END IF;
2453:
2454: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2455:
2456: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2457: p_init_msg_list,
2458: '_PVT',
2452: END IF;
2453:
2454: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2455:
2456: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2457: p_init_msg_list,
2458: '_PVT',
2459: x_return_status);
2460:
2457: p_init_msg_list,
2458: '_PVT',
2459: x_return_status);
2460:
2461: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2462: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2463: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2464: RAISE OKL_API.G_EXCEPTION_ERROR;
2465: END IF;
2458: '_PVT',
2459: x_return_status);
2460:
2461: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2462: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2463: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2464: RAISE OKL_API.G_EXCEPTION_ERROR;
2465: END IF;
2466:
2459: x_return_status);
2460:
2461: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2462: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2463: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2464: RAISE OKL_API.G_EXCEPTION_ERROR;
2465: END IF;
2466:
2467: -- RMUNJULU 3018641 Step Message
2460:
2461: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2462: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2463: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2464: RAISE OKL_API.G_EXCEPTION_ERROR;
2465: END IF;
2466:
2467: -- RMUNJULU 3018641 Step Message
2468: -- Step : Validate Contract
2465: END IF;
2466:
2467: -- RMUNJULU 3018641 Step Message
2468: -- Step : Validate Contract
2469: OKL_API.set_message(
2470: p_app_name => G_APP_NAME,
2471: p_msg_name => 'OKL_AM_STEP_VAL');
2472:
2473: -- ADD ADDITIONAL VALIDATIONS HERE
2490: -- If concurrent request and not from quote
2491: -- -- RMUNJULU 3485854 Changed condition to check for request not from quote
2492: IF p_term_rec.p_control_flag LIKE 'BATCH%'
2493: -- AND l_recycle_yn = 'N' THEN
2494: AND (p_term_rec.p_quote_id IS NULL OR p_term_rec.p_quote_id = OKL_API.G_MISS_NUM) THEN
2495:
2496: -- 20-JAN-06 SECHAWLA 4970009 : not required since OKL_AM_LEASE_LOAN_TRMNT_PVT.check_int_calc_done has
2497: -- been modified to check for lease contracts ('FLOAT_FACTORS','REAMORT')
2498: /* -- gboomina Bug 4755490 - Start
2505: l_last_intrm_intrst_dt := get_last_intrm_intrst_dt_rec.date_last_interim_interest_cal;
2506: END LOOP;
2507: -- Check whether Float Factor Streams exist or not
2508: IF l_last_intrm_intrst_dt IS NULL THEN
2509: OKL_API.set_message( p_app_name => G_APP_NAME,
2510: p_msg_name => 'OKL_VAR_RATE_NOT_COMPLETED',
2511: p_token1 => 'CONTRACT_NUMBER',
2512: p_token1_value => p_term_rec.p_contract_number);
2513:
2510: p_msg_name => 'OKL_VAR_RATE_NOT_COMPLETED',
2511: p_token1 => 'CONTRACT_NUMBER',
2512: p_token1_value => p_term_rec.p_contract_number);
2513:
2514: RAISE OKL_API.G_EXCEPTION_ERROR;
2515: END IF;
2516: END IF;
2517: -- gboomina Bug 4755490 - End
2518: */ -- 20-JAN-06 SECHAWLA 4970009 : not required since OKL_AM_LEASE_LOAN_TRMNT_PVT.check_int_calc_done has
2542:
2543: IF l_int_calc_done IS NULL OR l_int_calc_done = 'N' THEN
2544:
2545: -- Message will be set in called procedure
2546: l_return_status := OKL_API.G_RET_STS_ERROR;
2547: END IF;
2548: -- 20-JAN-06 SECHAWLA 4970009 : added end
2549: IF (is_debug_statement_on) THEN
2550: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_AM_LEASE_LOAN_TRMNT_PVT.check_billing_done');
2560:
2561: IF l_billing_done IS NULL OR l_billing_done = 'N' THEN
2562:
2563: -- Message will be set in called procedure
2564: l_return_status := OKL_API.G_RET_STS_ERROR;
2565: END IF;
2566: IF (is_debug_statement_on) THEN
2567: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_GENERATE_ACCRUALS_PVT.check_date_accrued_till');
2568: END IF;
2578: IF (nvl(l_accrual_done,'N') = 'N' ) THEN
2579:
2580: -- Contract CONTRACT_NUMBER can not be terminated.
2581: -- Please run accruals for the contract till the termination date TERMINATION_DATE.
2582: OKL_API.set_message (
2583: p_app_name => OKL_API.G_APP_NAME,
2584: p_msg_name => 'OKL_AM_TERMNT_ACC_CHK',
2585: p_token1 => 'CONTRACT_NUMBER',
2586: p_token1_value => p_term_rec.p_contract_number,
2579:
2580: -- Contract CONTRACT_NUMBER can not be terminated.
2581: -- Please run accruals for the contract till the termination date TERMINATION_DATE.
2582: OKL_API.set_message (
2583: p_app_name => OKL_API.G_APP_NAME,
2584: p_msg_name => 'OKL_AM_TERMNT_ACC_CHK',
2585: p_token1 => 'CONTRACT_NUMBER',
2586: p_token1_value => p_term_rec.p_contract_number,
2587: p_token2 => 'TERMINATION_DATE',
2586: p_token1_value => p_term_rec.p_contract_number,
2587: p_token2 => 'TERMINATION_DATE',
2588: p_token2_value => p_sys_date);
2589:
2590: RAISE OKL_API.G_EXCEPTION_ERROR;
2591:
2592: END IF;
2593: END IF;
2594:
2594:
2595: -- ++++++++++++++++++++ service contract integration end ++++++++++++
2596:
2597: x_return_status := l_return_status;
2598: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2599: IF (is_debug_procedure_on) THEN
2600: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
2601: END IF;
2602:
2600: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
2601: END IF;
2602:
2603: EXCEPTION
2604: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2605: IF (is_debug_exception_on) THEN
2606: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
2607: END IF;
2608:
2613:
2614: IF get_trn_csr%ISOPEN THEN
2615: CLOSE get_trn_csr;
2616: END IF;
2617: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2618: (
2619: l_api_name,
2620: G_PKG_NAME,
2621: 'OKL_API.G_RET_STS_ERROR',
2617: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2618: (
2619: l_api_name,
2620: G_PKG_NAME,
2621: 'OKL_API.G_RET_STS_ERROR',
2622: x_msg_count,
2623: x_msg_data,
2624: '_PVT'
2625: );
2622: x_msg_count,
2623: x_msg_data,
2624: '_PVT'
2625: );
2626: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2627: IF (is_debug_exception_on) THEN
2628: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
2629: END IF;
2630:
2636: IF get_trn_csr%ISOPEN THEN
2637: CLOSE get_trn_csr;
2638: END IF;
2639:
2640: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2641: (
2642: l_api_name,
2643: G_PKG_NAME,
2644: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2640: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2641: (
2642: l_api_name,
2643: G_PKG_NAME,
2644: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2645: x_msg_count,
2646: x_msg_data,
2647: '_PVT'
2648: );
2659: IF get_trn_csr%ISOPEN THEN
2660: CLOSE get_trn_csr;
2661: END IF;
2662:
2663: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2664: (
2665: l_api_name,
2666: G_PKG_NAME,
2667: 'OTHERS',
2686:
2687: lp_qtev_rec OKL_TRX_QUOTES_PUB.qtev_rec_type;
2688: lx_qtev_rec OKL_TRX_QUOTES_PUB.qtev_rec_type;
2689:
2690: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2691:
2692: l_quote_status VARCHAR2(200) := 'COMPLETE';--'OKL_QUOTE_STATUS'
2693:
2694: lx_msg_count NUMBER;
2697: l_qst_code varchar2(200);
2698:
2699: l_tmt_status_code VARCHAR2(200);
2700:
2701: lx_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2702: lx_quotes_found VARCHAR2(1) := 'N';
2703: l_api_version NUMBER := 1;
2704: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'UPDATE_QUOTE_STATUS';
2705: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2778:
2779: -- Call the update of the quote header api
2780: OKL_TRX_QUOTES_PUB.update_trx_quotes (
2781: p_api_version => l_api_version,
2782: p_init_msg_list => OKL_API.G_FALSE,
2783: x_return_status => l_return_status,
2784: x_msg_count => lx_msg_count,
2785: x_msg_data => lx_msg_data,
2786: p_qtev_rec => lp_qtev_rec,
2785: x_msg_data => lx_msg_data,
2786: p_qtev_rec => lp_qtev_rec,
2787: x_qtev_rec => lx_qtev_rec);
2788:
2789: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2790:
2791:
2792: IF (is_debug_statement_on)
2793: THEN
2873:
2874:
2875: rec_k_header k_header_csr%ROWTYPE;
2876: k_lines_rec k_lines_csr%ROWTYPE;
2877: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2878: --l_status_code VARCHAR2(30);
2879: i NUMBER;
2880: l_scs_code OKC_SUBCLASSES_V.code%TYPE;
2881: l_ste_code OKC_STATUSES_V.CODE%TYPE;
2905:
2906: -- Initialize savepoint to rollback to if error in this block
2907: SAVEPOINT update_k_hdr_lines;
2908:
2909: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2910:
2911: IF (is_debug_statement_on) THEN
2912: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
2913: END IF;
2926: CLOSE k_sts_code_meaning_csr;
2927:
2928: -- RMUNJULU 3018641 Step Message
2929: -- Step : Update Contract
2930: OKL_API.set_message(
2931: p_app_name => G_APP_NAME,
2932: p_msg_name => 'OKL_AM_STEP_UPD');
2933:
2934:
2964: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling process_close_streams');
2965: END IF;
2966: process_close_streams(
2967: p_api_version => p_api_version,
2968: p_init_msg_list => OKL_API.G_FALSE,
2969: x_return_status => l_return_status,
2970: x_msg_count => x_msg_count,
2971: x_msg_data => x_msg_data,
2972: p_term_rec => p_term_rec,
2979: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called process_close_streams l_return_status = '||l_return_status);
2980: END IF;
2981:
2982: -- Raise exception to rollback to savepoint
2983: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2984: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2985: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2986: RAISE OKL_API.G_EXCEPTION_ERROR;
2987: END IF;
2980: END IF;
2981:
2982: -- Raise exception to rollback to savepoint
2983: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2984: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2985: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2986: RAISE OKL_API.G_EXCEPTION_ERROR;
2987: END IF;
2988:
2981:
2982: -- Raise exception to rollback to savepoint
2983: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2984: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2985: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2986: RAISE OKL_API.G_EXCEPTION_ERROR;
2987: END IF;
2988:
2989: END IF;
2982: -- Raise exception to rollback to savepoint
2983: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2984: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2985: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2986: RAISE OKL_API.G_EXCEPTION_ERROR;
2987: END IF;
2988:
2989: END IF;
2990:
3038:
3039: -- call the update line tbl
3040: OKC_CONTRACT_PUB.update_contract_line(
3041: p_api_version => p_api_version,
3042: p_init_msg_list => OKL_API.G_FALSE,
3043: x_return_status => l_return_status,
3044: x_msg_count => x_msg_count,
3045: x_msg_data => x_msg_data,
3046: p_clev_tbl => lp_clev_tbl,
3047: x_clev_tbl => lx_clev_tbl);
3048: IF (is_debug_statement_on) THEN
3049: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKC_CONTRACT_PUB.update_contract_linel_return_status ='||l_return_status);
3050: END IF;
3051: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3052:
3053: -- Error updating assets of contract CONTRACT_NUMBER to status STATUS.
3054: OKL_API.set_message(
3055: p_app_name => G_APP_NAME,
3050: END IF;
3051: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3052:
3053: -- Error updating assets of contract CONTRACT_NUMBER to status STATUS.
3054: OKL_API.set_message(
3055: p_app_name => G_APP_NAME,
3056: p_msg_name => 'OKL_AM_K_LINE_STATUS_UPD_ERR',
3057: p_token1 => 'CONTRACT_NUMBER',
3058: p_token1_value => p_term_rec.p_contract_number,
3061:
3062: END IF;
3063:
3064: -- Raise exception to rollback to savepoint
3065: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3067: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3068: RAISE OKL_API.G_EXCEPTION_ERROR;
3069: END IF;
3062: END IF;
3063:
3064: -- Raise exception to rollback to savepoint
3065: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3067: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3068: RAISE OKL_API.G_EXCEPTION_ERROR;
3069: END IF;
3070:
3063:
3064: -- Raise exception to rollback to savepoint
3065: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3067: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3068: RAISE OKL_API.G_EXCEPTION_ERROR;
3069: END IF;
3070:
3071: -- set the "in" record
3064: -- Raise exception to rollback to savepoint
3065: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3067: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3068: RAISE OKL_API.G_EXCEPTION_ERROR;
3069: END IF;
3070:
3071: -- set the "in" record
3072: -- set the termination date
3072: -- set the termination date
3073: -- RMUNJULU 18-FEB-03 2804703 Added IF to check if being terminated
3074: IF p_status IN ('TERMINATED','EXPIRED') THEN
3075: IF (p_term_rec.p_termination_date IS NOT NULL)
3076: AND (p_term_rec.p_termination_date <> OKL_API.G_MISS_DATE) THEN
3077: lp_chrv_rec.date_terminated := p_term_rec.p_termination_date;
3078: ELSE
3079: lp_chrv_rec.date_terminated := l_quote_eff_date; -- rmunjulu EDAT
3080: END IF;
3101: END IF;
3102: -- Call the tapi to update contract with termination info
3103: OKC_CONTRACT_PUB.update_contract_header(
3104: p_api_version => p_api_version,
3105: p_init_msg_list => OKL_API.G_FALSE,
3106: x_return_status => l_return_status,
3107: x_msg_count => x_msg_count,
3108: x_msg_data => x_msg_data,
3109: p_restricted_update => OKL_API.G_TRUE,
3105: p_init_msg_list => OKL_API.G_FALSE,
3106: x_return_status => l_return_status,
3107: x_msg_count => x_msg_count,
3108: x_msg_data => x_msg_data,
3109: p_restricted_update => OKL_API.G_TRUE,
3110: p_chrv_rec => lp_chrv_rec,
3111: x_chrv_rec => lx_chrv_rec);
3112: IF (is_debug_statement_on) THEN
3113: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKC_CONTRACT_PUB.update_contract_header l_return_status = '||l_return_status);
3111: x_chrv_rec => lx_chrv_rec);
3112: IF (is_debug_statement_on) THEN
3113: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKC_CONTRACT_PUB.update_contract_header l_return_status = '||l_return_status);
3114: END IF;
3115: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3116:
3117: -- Error updating contract CONTRACT_NUMBER to status STATUS.
3118: OKL_API.set_message(
3119: p_app_name => G_APP_NAME,
3114: END IF;
3115: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3116:
3117: -- Error updating contract CONTRACT_NUMBER to status STATUS.
3118: OKL_API.set_message(
3119: p_app_name => G_APP_NAME,
3120: p_msg_name => 'OKL_AM_K_STATUS_UPD_ERR',
3121: p_token1 => 'CONTRACT_NUMBER',
3122: p_token1_value => p_term_rec.p_contract_number,
3125:
3126: END IF;
3127:
3128: -- Raise exception to rollback to savepoint
3129: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3131: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3132: RAISE OKL_API.G_EXCEPTION_ERROR;
3133: END IF;
3126: END IF;
3127:
3128: -- Raise exception to rollback to savepoint
3129: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3131: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3132: RAISE OKL_API.G_EXCEPTION_ERROR;
3133: END IF;
3134:
3127:
3128: -- Raise exception to rollback to savepoint
3129: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3131: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3132: RAISE OKL_API.G_EXCEPTION_ERROR;
3133: END IF;
3134:
3135:
3128: -- Raise exception to rollback to savepoint
3129: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3131: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3132: RAISE OKL_API.G_EXCEPTION_ERROR;
3133: END IF;
3134:
3135:
3136: -- Set the success messages
3135:
3136: -- Set the success messages
3137:
3138: -- Contract line statuses updated to STATUS for assets of contract CONTRACT_NUMBER.
3139: OKL_API.set_message(
3140: p_app_name => G_APP_NAME,
3141: p_msg_name => 'OKL_AM_K_LINE_STATUS_UPD',
3142: p_token1 => 'STATUS',
3143: p_token1_value => l_sts_meaning,
3145: p_token2_value => p_term_rec.p_contract_number);
3146:
3147:
3148: -- Contract CONTRACT_NUMBER status updated to STATUS.
3149: OKL_API.set_message( p_app_name => G_APP_NAME,
3150: p_msg_name => 'OKL_AM_K_STATUS_UPD',
3151: p_token1 => 'CONTRACT_NUMBER',
3152: p_token1_value => p_term_rec.p_contract_number,
3153: p_token2 => 'STATUS',
3173: IF (is_debug_procedure_on) THEN
3174: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
3175: END IF;
3176: EXCEPTION
3177: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3178: IF (is_debug_exception_on) THEN
3179: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3180: END IF;
3181:
3190: END IF;
3191:
3192: ROLLBACK TO update_k_hdr_lines;
3193:
3194: x_return_status := OKL_API.G_RET_STS_ERROR;
3195:
3196: -- store the highest degree of error
3197: set_overall_status(
3198: p_return_status => x_return_status,
3205: p_tmt_flag => 'TMT_CONTRACT_UPDATED_YN',
3206: p_tsu_code => 'ERROR',
3207: px_tcnv_rec => px_tcnv_rec);
3208:
3209: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3210: IF (is_debug_exception_on) THEN
3211: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3212: END IF;
3213:
3222: END IF;
3223:
3224: ROLLBACK TO update_k_hdr_lines;
3225:
3226: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3227:
3228: -- store the highest degree of error
3229: set_overall_status(
3230: p_return_status => x_return_status,
3254: END IF;
3255:
3256: ROLLBACK TO update_k_hdr_lines;
3257:
3258: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3259:
3260: -- store the highest degree of error
3261: set_overall_status(
3262: p_return_status => x_return_status,
3270: p_tsu_code => 'ERROR',
3271: px_tcnv_rec => px_tcnv_rec);
3272:
3273: -- Set the oracle error message
3274: OKL_API.set_message(
3275: p_app_name => OKC_API.G_APP_NAME,
3276: p_msg_name => g_unexpected_error,
3277: p_token1 => g_sqlcode_token,
3278: p_token1_value => SQLCODE,
3302: p_tcnv_rec IN tcnv_rec_type,
3303: x_id OUT NOCOPY NUMBER,
3304: p_trn_mode IN VARCHAR2) IS
3305:
3306: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3307: lp_tcnv_rec tcnv_rec_type := p_tcnv_rec;
3308: lx_tcnv_rec tcnv_rec_type;
3309: l_api_name VARCHAR2(30) := 'process_transaction';
3310:
3318: IF (is_debug_procedure_on) THEN
3319: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3320: END IF;
3321:
3322: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3323:
3324: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3325: p_init_msg_list,
3326: '_PVT',
3320: END IF;
3321:
3322: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3323:
3324: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3325: p_init_msg_list,
3326: '_PVT',
3327: x_return_status);
3328:
3325: p_init_msg_list,
3326: '_PVT',
3327: x_return_status);
3328:
3329: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3330: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3331: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3332: RAISE OKL_API.G_EXCEPTION_ERROR;
3333: END IF;
3326: '_PVT',
3327: x_return_status);
3328:
3329: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3330: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3331: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3332: RAISE OKL_API.G_EXCEPTION_ERROR;
3333: END IF;
3334:
3327: x_return_status);
3328:
3329: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3330: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3331: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3332: RAISE OKL_API.G_EXCEPTION_ERROR;
3333: END IF;
3334:
3335: -- Clear the recycle flag after processing
3328:
3329: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3330: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3331: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3332: RAISE OKL_API.G_EXCEPTION_ERROR;
3333: END IF;
3334:
3335: -- Clear the recycle flag after processing
3336: lp_tcnv_rec.tmt_recycle_yn := NULL;
3343: END IF;
3344: -- insert transaction rec
3345: OKL_TRX_CONTRACTS_PUB.create_trx_contracts(
3346: p_api_version => p_api_version,
3347: p_init_msg_list => OKL_API.G_FALSE,
3348: x_return_status => l_return_status,
3349: x_msg_count => x_msg_count,
3350: x_msg_data => x_msg_data,
3351: p_tcnv_rec => lp_tcnv_rec,
3360:
3361: -- update transaction rec
3362: OKL_TRX_CONTRACTS_PUB.update_trx_contracts(
3363: p_api_version => p_api_version,
3364: p_init_msg_list => OKL_API.G_FALSE,
3365: x_return_status => l_return_status,
3366: x_msg_count => x_msg_count,
3367: x_msg_data => x_msg_data,
3368: p_tcnv_rec => lp_tcnv_rec,
3372: END IF;
3373: END IF;
3374:
3375: -- rollback if error
3376: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3377: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3378: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3379: RAISE OKL_API.G_EXCEPTION_ERROR;
3380: END IF;
3373: END IF;
3374:
3375: -- rollback if error
3376: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3377: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3378: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3379: RAISE OKL_API.G_EXCEPTION_ERROR;
3380: END IF;
3381:
3374:
3375: -- rollback if error
3376: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3377: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3378: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3379: RAISE OKL_API.G_EXCEPTION_ERROR;
3380: END IF;
3381:
3382: -- set the return values
3375: -- rollback if error
3376: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3377: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3378: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3379: RAISE OKL_API.G_EXCEPTION_ERROR;
3380: END IF;
3381:
3382: -- set the return values
3383: x_return_status := l_return_status;
3382: -- set the return values
3383: x_return_status := l_return_status;
3384: x_id := lx_tcnv_rec.id;
3385:
3386: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3387: IF (is_debug_procedure_on) THEN
3388: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
3389: END IF;
3390: EXCEPTION
3387: IF (is_debug_procedure_on) THEN
3388: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
3389: END IF;
3390: EXCEPTION
3391: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3392: IF (is_debug_exception_on) THEN
3393: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3394: END IF;
3395:
3392: IF (is_debug_exception_on) THEN
3393: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3394: END IF;
3395:
3396: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3397: (
3398: l_api_name,
3399: G_PKG_NAME,
3400: 'OKL_API.G_RET_STS_ERROR',
3396: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3397: (
3398: l_api_name,
3399: G_PKG_NAME,
3400: 'OKL_API.G_RET_STS_ERROR',
3401: x_msg_count,
3402: x_msg_data,
3403: '_PVT'
3404: );
3401: x_msg_count,
3402: x_msg_data,
3403: '_PVT'
3404: );
3405: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3406: IF (is_debug_exception_on) THEN
3407: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3408: END IF;
3409:
3406: IF (is_debug_exception_on) THEN
3407: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3408: END IF;
3409:
3410: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3411: (
3412: l_api_name,
3413: G_PKG_NAME,
3414: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3410: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3411: (
3412: l_api_name,
3413: G_PKG_NAME,
3414: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3415: x_msg_count,
3416: x_msg_data,
3417: '_PVT'
3418: );
3420: IF (is_debug_exception_on) THEN
3421: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
3422: END IF;
3423:
3424: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3425: (
3426: l_api_name,
3427: G_PKG_NAME,
3428: 'OTHERS',
3491: SELECT deal_type
3492: FROM OKL_K_HEADERS_FULL_V
3493: WHERE id = p_term_rec.p_contract_id;
3494:
3495: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3496: l_api_name VARCHAR2(30) := 'process_evergreen_deprn';
3497: lp_thpv_rec OKL_TRX_ASSETS_PUB.thpv_rec_type;
3498: lx_thpv_rec OKL_TRX_ASSETS_PUB.thpv_rec_type;
3499: lp_tlpv_rec tlpv_rec_type;
3510: l_deal_type VARCHAR2(15);
3511: l_api_version CONSTANT NUMBER := 1;
3512: BEGIN
3513:
3514: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3515: G_PKG_NAME,
3516: p_init_msg_list,
3517: l_api_version,
3518: p_api_version,
3517: l_api_version,
3518: p_api_version,
3519: '_PVT',
3520: x_return_status);
3521: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3522: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3523: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3524: RAISE OKL_API.G_EXCEPTION_ERROR;
3525: END IF;
3518: p_api_version,
3519: '_PVT',
3520: x_return_status);
3521: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3522: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3523: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3524: RAISE OKL_API.G_EXCEPTION_ERROR;
3525: END IF;
3526:
3519: '_PVT',
3520: x_return_status);
3521: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3522: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3523: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3524: RAISE OKL_API.G_EXCEPTION_ERROR;
3525: END IF;
3526:
3527: IF (p_term_rec.p_contract_id IS NULL)
3520: x_return_status);
3521: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3522: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3523: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3524: RAISE OKL_API.G_EXCEPTION_ERROR;
3525: END IF;
3526:
3527: IF (p_term_rec.p_contract_id IS NULL)
3528: OR (p_term_rec.p_contract_id = OKL_API.G_MISS_NUM) THEN
3524: RAISE OKL_API.G_EXCEPTION_ERROR;
3525: END IF;
3526:
3527: IF (p_term_rec.p_contract_id IS NULL)
3528: OR (p_term_rec.p_contract_id = OKL_API.G_MISS_NUM) THEN
3529: x_return_status := OKL_API.G_RET_STS_ERROR;
3530: ---- contract id parameter is null
3531: OKL_API.set_message( p_app_name => 'OKC',
3532: p_msg_name => G_REQUIRED_VALUE,
3525: END IF;
3526:
3527: IF (p_term_rec.p_contract_id IS NULL)
3528: OR (p_term_rec.p_contract_id = OKL_API.G_MISS_NUM) THEN
3529: x_return_status := OKL_API.G_RET_STS_ERROR;
3530: ---- contract id parameter is null
3531: OKL_API.set_message( p_app_name => 'OKC',
3532: p_msg_name => G_REQUIRED_VALUE,
3533: p_token1 => G_COL_NAME_TOKEN,
3527: IF (p_term_rec.p_contract_id IS NULL)
3528: OR (p_term_rec.p_contract_id = OKL_API.G_MISS_NUM) THEN
3529: x_return_status := OKL_API.G_RET_STS_ERROR;
3530: ---- contract id parameter is null
3531: OKL_API.set_message( p_app_name => 'OKC',
3532: p_msg_name => G_REQUIRED_VALUE,
3533: p_token1 => G_COL_NAME_TOKEN,
3534: p_token1_value => 'CONTRACT_ID');
3535: RAISE OKL_API.G_EXCEPTION_ERROR;
3531: OKL_API.set_message( p_app_name => 'OKC',
3532: p_msg_name => G_REQUIRED_VALUE,
3533: p_token1 => G_COL_NAME_TOKEN,
3534: p_token1_value => 'CONTRACT_ID');
3535: RAISE OKL_API.G_EXCEPTION_ERROR;
3536: END IF;
3537:
3538: OPEN l_lhrfv_csr;
3539: FETCH l_lhrfv_csr INTO l_deal_type;
3537:
3538: OPEN l_lhrfv_csr;
3539: FETCH l_lhrfv_csr INTO l_deal_type;
3540: IF l_lhrfv_csr%NOTFOUND THEN
3541: x_return_status := OKL_API.G_RET_STS_ERROR;
3542: -- Contract ID is invalid
3543: OKL_API.set_message( p_app_name => 'OKC',
3544: p_msg_name => G_INVALID_VALUE,
3545: p_token1 => G_COL_NAME_TOKEN,
3539: FETCH l_lhrfv_csr INTO l_deal_type;
3540: IF l_lhrfv_csr%NOTFOUND THEN
3541: x_return_status := OKL_API.G_RET_STS_ERROR;
3542: -- Contract ID is invalid
3543: OKL_API.set_message( p_app_name => 'OKC',
3544: p_msg_name => G_INVALID_VALUE,
3545: p_token1 => G_COL_NAME_TOKEN,
3546: p_token1_value => 'CONTRACT_ID');
3547: RAISE OKL_API.G_EXCEPTION_ERROR;
3543: OKL_API.set_message( p_app_name => 'OKC',
3544: p_msg_name => G_INVALID_VALUE,
3545: p_token1 => G_COL_NAME_TOKEN,
3546: p_token1_value => 'CONTRACT_ID');
3547: RAISE OKL_API.G_EXCEPTION_ERROR;
3548: END IF;
3549: CLOSE l_lhrfv_csr;
3550:
3551: IF l_deal_type IS NULL THEN
3548: END IF;
3549: CLOSE l_lhrfv_csr;
3550:
3551: IF l_deal_type IS NULL THEN
3552: x_return_status := OKL_API.G_RET_STS_ERROR;
3553: --deal type not defined for this contract
3554: OKL_API.set_message( p_app_name => 'OKL',
3555: p_msg_name => 'OKL_AM_NO_DEAL_TYPE');
3556: RAISE OKL_API.G_EXCEPTION_ERROR;
3550:
3551: IF l_deal_type IS NULL THEN
3552: x_return_status := OKL_API.G_RET_STS_ERROR;
3553: --deal type not defined for this contract
3554: OKL_API.set_message( p_app_name => 'OKL',
3555: p_msg_name => 'OKL_AM_NO_DEAL_TYPE');
3556: RAISE OKL_API.G_EXCEPTION_ERROR;
3557: END IF;
3558:
3552: x_return_status := OKL_API.G_RET_STS_ERROR;
3553: --deal type not defined for this contract
3554: OKL_API.set_message( p_app_name => 'OKL',
3555: p_msg_name => 'OKL_AM_NO_DEAL_TYPE');
3556: RAISE OKL_API.G_EXCEPTION_ERROR;
3557: END IF;
3558:
3559: IF l_deal_type='LEASEDF' THEN
3560:
3573: ,x_return_status => l_return_status
3574: ,x_msg_count => x_msg_count
3575: ,x_msg_data => x_msg_data);
3576:
3577: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3579: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3580: RAISE OKL_API.G_EXCEPTION_ERROR;
3581: ELSIF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3574: ,x_msg_count => x_msg_count
3575: ,x_msg_data => x_msg_data);
3576:
3577: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3579: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3580: RAISE OKL_API.G_EXCEPTION_ERROR;
3581: ELSIF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3582: -- l_rulv_rec.RULE_INFORMATION1 will contain the value 'LESSEE' or
3575: ,x_msg_data => x_msg_data);
3576:
3577: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3579: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3580: RAISE OKL_API.G_EXCEPTION_ERROR;
3581: ELSIF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3582: -- l_rulv_rec.RULE_INFORMATION1 will contain the value 'LESSEE' or
3583: -- 'LESSOR'
3576:
3577: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3579: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3580: RAISE OKL_API.G_EXCEPTION_ERROR;
3581: ELSIF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3582: -- l_rulv_rec.RULE_INFORMATION1 will contain the value 'LESSEE' or
3583: -- 'LESSOR'
3584: l_tax_owner := l_rulv_rec.RULE_INFORMATION1;
3577: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3579: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3580: RAISE OKL_API.G_EXCEPTION_ERROR;
3581: ELSIF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3582: -- l_rulv_rec.RULE_INFORMATION1 will contain the value 'LESSEE' or
3583: -- 'LESSOR'
3584: l_tax_owner := l_rulv_rec.RULE_INFORMATION1;
3585: END IF;
3588:
3589:
3590:
3591: OKL_AM_UTIL_PVT.get_transaction_id('?',x_return_status,l_try_id);
3592: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3593: OKL_API.set_message(p_app_name => 'OKL',
3594: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
3595: p_token1 => 'TRY_NAME',
3596: p_token1_value => '?');
3589:
3590:
3591: OKL_AM_UTIL_PVT.get_transaction_id('?',x_return_status,l_try_id);
3592: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3593: OKL_API.set_message(p_app_name => 'OKL',
3594: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
3595: p_token1 => 'TRY_NAME',
3596: p_token1_value => '?');
3597: RAISE OKL_API.G_EXCEPTION_ERROR;
3593: OKL_API.set_message(p_app_name => 'OKL',
3594: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
3595: p_token1 => 'TRY_NAME',
3596: p_token1_value => '?');
3597: RAISE OKL_API.G_EXCEPTION_ERROR;
3598: END IF;
3599:
3600: -- scenario 8 - Direct Finance Lease expiration with NO hold period
3601: -- loop thru all the records from okx_asset_lines_v where
3606: l_line_status := NULL;
3607: -- validate data before creating the transaction line.
3608: IF l_lines_rec.parent_line_id IS NULL THEN
3609: -- Parent Line Id not defined for asset
3610: OKL_API.set_message( p_app_name => 'OKL',
3611: p_msg_name => 'OKL_AM_NO_PARENT_LINE_ID',
3612: p_token1 => 'ASSET_NUMBER',
3613: p_token1_value => l_lines_rec.asset_number);
3614: l_line_status := 'ERROR';
3614: l_line_status := 'ERROR';
3615: END IF;
3616: IF l_lines_rec.life_in_months IS NULL THEN
3617: -- Life in Months not defined for asset
3618: OKL_API.set_message( p_app_name => 'OKL',
3619: p_msg_name => 'OKL_AM_NO_LIFE_IN_MONTHS',
3620: p_token1 => 'ASSET_NUMBER',
3621: p_token1_value => l_lines_rec.asset_number);
3622: l_line_status := 'ERROR';
3630: CLOSE l_linesfullv_csr;
3631:
3632: IF l_residual_value IS NULL THEN
3633: -- Residual Value not defined for the asset
3634: OKL_API.set_message(p_app_name => 'OKL',
3635: p_msg_name => 'OKL_AM_NO_RESIDUAL_VALUE',
3636: p_token1 => 'ASSET_NUMBER',
3637: p_token1_value => l_lines_rec.asset_number);
3638: l_line_status := 'ERROR';
3639: END IF;
3640: IF l_df_original_cost IS NULL THEN
3641: IF l_oec IS NULL THEN
3642: -- OEC not defined for the asset
3643: OKL_API.set_message(p_app_name => 'OKL',
3644: p_msg_name => 'OKL_AM_NO_OEC',
3645: p_token1 => 'ASSET_NUMBER',
3646: p_token1_value => l_lines_rec.asset_number);
3647: l_line_status := 'ERROR';
3666: x_msg_count => x_msg_count,
3667: x_msg_data => x_msg_data,
3668: p_thpv_rec => lp_thpv_rec,
3669: x_thpv_rec => lx_thpv_rec);
3670: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3671: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3672: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3673: RAISE OKL_API.G_EXCEPTION_ERROR;
3674: END IF;
3667: x_msg_data => x_msg_data,
3668: p_thpv_rec => lp_thpv_rec,
3669: x_thpv_rec => lx_thpv_rec);
3670: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3671: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3672: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3673: RAISE OKL_API.G_EXCEPTION_ERROR;
3674: END IF;
3675:
3668: p_thpv_rec => lp_thpv_rec,
3669: x_thpv_rec => lx_thpv_rec);
3670: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3671: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3672: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3673: RAISE OKL_API.G_EXCEPTION_ERROR;
3674: END IF;
3675:
3676: -- Create transaction Line
3669: x_thpv_rec => lx_thpv_rec);
3670: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3671: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3672: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3673: RAISE OKL_API.G_EXCEPTION_ERROR;
3674: END IF;
3675:
3676: -- Create transaction Line
3677: lp_tlpv_rec.tas_id := lx_thpv_rec.id; -- FK
3707: x_msg_count => x_msg_count,
3708: x_msg_data => x_msg_data,
3709: p_tlpv_rec => lp_tlpv_rec,
3710: x_tlpv_rec => lx_tlpv_rec);
3711: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3713: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3714: RAISE OKL_API.G_EXCEPTION_ERROR;
3715: END IF;
3708: x_msg_data => x_msg_data,
3709: p_tlpv_rec => lp_tlpv_rec,
3710: x_tlpv_rec => lx_tlpv_rec);
3711: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3713: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3714: RAISE OKL_API.G_EXCEPTION_ERROR;
3715: END IF;
3716: END LOOP;
3709: p_tlpv_rec => lp_tlpv_rec,
3710: x_tlpv_rec => lx_tlpv_rec);
3711: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3713: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3714: RAISE OKL_API.G_EXCEPTION_ERROR;
3715: END IF;
3716: END LOOP;
3717: END IF; -- if deal_type='LEASEDF'
3710: x_tlpv_rec => lx_tlpv_rec);
3711: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3713: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3714: RAISE OKL_API.G_EXCEPTION_ERROR;
3715: END IF;
3716: END LOOP;
3717: END IF; -- if deal_type='LEASEDF'
3718:
3715: END IF;
3716: END LOOP;
3717: END IF; -- if deal_type='LEASEDF'
3718:
3719: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3720: EXCEPTION
3721: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3722: IF l_linesv_csr%ISOPEN THEN
3723: CLOSE l_linesv_csr;
3717: END IF; -- if deal_type='LEASEDF'
3718:
3719: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3720: EXCEPTION
3721: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3722: IF l_linesv_csr%ISOPEN THEN
3723: CLOSE l_linesv_csr;
3724: END IF;
3725: IF l_lhrfv_csr%ISOPEN THEN
3730: END IF;
3731: IF l_linesfullv_csr%ISOPEN THEN
3732: CLOSE l_linesfullv_csr;
3733: END IF;
3734: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3735: (
3736: l_api_name,
3737: G_PKG_NAME,
3738: 'OKL_API.G_RET_STS_ERROR',
3734: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3735: (
3736: l_api_name,
3737: G_PKG_NAME,
3738: 'OKL_API.G_RET_STS_ERROR',
3739: x_msg_count,
3740: x_msg_data,
3741: '_PVT'
3742: );
3739: x_msg_count,
3740: x_msg_data,
3741: '_PVT'
3742: );
3743: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3744: IF l_linesv_csr%ISOPEN THEN
3745: CLOSE l_linesv_csr;
3746: END IF;
3747: IF l_lhrfv_csr%ISOPEN THEN
3752: END IF;
3753: IF l_linesfullv_csr%ISOPEN THEN
3754: CLOSE l_linesfullv_csr;
3755: END IF;
3756: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3757: (
3758: l_api_name,
3759: G_PKG_NAME,
3760: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3756: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3757: (
3758: l_api_name,
3759: G_PKG_NAME,
3760: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3761: x_msg_count,
3762: x_msg_data,
3763: '_PVT'
3764: );
3774: END IF;
3775: IF l_linesfullv_csr%ISOPEN THEN
3776: CLOSE l_linesfullv_csr;
3777: END IF;
3778: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3779: (
3780: l_api_name,
3781: G_PKG_NAME,
3782: 'OTHERS',
3828: khr.sts_code
3829: FROM OKC_K_HEADERS_V khr
3830: WHERE khr.id = p_khr_id;
3831:
3832: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3833: l_api_name VARCHAR2(30) := 'process_evergreen_contract';
3834: l_evergreen_status VARCHAR2(1) := OKL_API.G_FALSE;
3835: l_rule_found VARCHAR2(1);
3836: lx_klev_tbl klev_tbl_type;
3830: WHERE khr.id = p_khr_id;
3831:
3832: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3833: l_api_name VARCHAR2(30) := 'process_evergreen_contract';
3834: l_evergreen_status VARCHAR2(1) := OKL_API.G_FALSE;
3835: l_rule_found VARCHAR2(1);
3836: lx_klev_tbl klev_tbl_type;
3837: lx_chrv_rec chrv_rec_type;
3838: lx_clev_tbl clev_tbl_type;
3855:
3856: -- Initialize savepoint to rollback to if error in this block
3857: SAVEPOINT evergreen;
3858:
3859: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3860: IF (is_debug_statement_on) THEN
3861: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
3862: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_tcnv_rec.id = '||px_tcnv_rec.id);
3863: END IF;
3910: IF (l_evergreen_earlier <> 'Y'
3911: AND p_term_rec.p_control_flag LIKE 'BATCH_PROCESS%'
3912: AND TRUNC(l_k_end_date) <= TRUNC(p_sys_date)
3913: AND (p_term_rec.p_quote_id IS NULL
3914: OR p_term_rec.p_quote_id = OKL_API.G_MISS_NUM))THEN
3915:
3916: -- RMUNJULU 3018641 Step Message
3917: -- Step : Evergreen
3918: OKL_API.set_message(
3914: OR p_term_rec.p_quote_id = OKL_API.G_MISS_NUM))THEN
3915:
3916: -- RMUNJULU 3018641 Step Message
3917: -- Step : Evergreen
3918: OKL_API.set_message(
3919: p_app_name => G_APP_NAME,
3920: p_msg_name => 'OKL_AM_STEP_EVR');
3921:
3922: -- get evergreen eligiblility
3930: x_msg_count => x_msg_count,
3931: x_msg_data => x_msg_data);
3932:
3933: -- Raise exception to rollback to the savepoint
3934: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3935:
3936: -- Error getting evergreen rule for contract.
3937: OKL_API.set_message(
3938: p_app_name => G_APP_NAME,
3933: -- Raise exception to rollback to the savepoint
3934: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3935:
3936: -- Error getting evergreen rule for contract.
3937: OKL_API.set_message(
3938: p_app_name => G_APP_NAME,
3939: p_msg_name => 'OKL_AM_EVERGREEN_RULE_ERR');
3940: RAISE OKL_API.G_EXCEPTION_ERROR;
3941: END IF;
3936: -- Error getting evergreen rule for contract.
3937: OKL_API.set_message(
3938: p_app_name => G_APP_NAME,
3939: p_msg_name => 'OKL_AM_EVERGREEN_RULE_ERR');
3940: RAISE OKL_API.G_EXCEPTION_ERROR;
3941: END IF;
3942: IF (is_debug_statement_on) THEN
3943: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_rule_found = '||l_rule_found);
3944: END IF;
3952: END IF;
3953: -- rmunjulu EDAT cancel all quotes for the contract which are not accepted or completed
3954: Okl_Am_Integration_Pvt.cancel_termination_quotes (
3955: p_api_version => p_api_version,
3956: p_init_msg_list => OKL_API.G_FALSE,
3957: p_khr_id => p_term_rec.p_contract_id,
3958: p_source_trx_id => NULL ,
3959: p_source => 'EVERGREEN', -- rmunjulu bug 4556370 pass source to integration pvt
3960: x_return_status => l_return_status,
3963: IF (is_debug_statement_on) THEN
3964: 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);
3965: END IF;
3966: -- Raise exception to rollback to the savepoint
3967: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3968: RAISE OKL_API.G_EXCEPTION_ERROR;
3969: END IF;
3970: IF (is_debug_statement_on) THEN
3971: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling update_k_hdr_and_lines');
3964: 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);
3965: END IF;
3966: -- Raise exception to rollback to the savepoint
3967: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3968: RAISE OKL_API.G_EXCEPTION_ERROR;
3969: END IF;
3970: IF (is_debug_statement_on) THEN
3971: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling update_k_hdr_and_lines');
3972: END IF;
3972: END IF;
3973: -- set_and_update_contract
3974: update_k_hdr_and_lines(
3975: p_api_version => p_api_version,
3976: p_init_msg_list => OKL_API.G_FALSE,
3977: x_return_status => l_return_status,
3978: x_msg_count => x_msg_count,
3979: x_msg_data => x_msg_data,
3980: p_status => 'EVERGREEN',
3989: IF (is_debug_statement_on) THEN
3990: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called update_k_hdr_and_lines l_return_status = '||l_return_status);
3991: END IF;
3992: -- Raise exception to rollback to the savepoint
3993: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3994: RAISE OKL_API.G_EXCEPTION_ERROR;
3995: END IF;
3996:
3997: -- This code is commented out till further notice
3990: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called update_k_hdr_and_lines l_return_status = '||l_return_status);
3991: END IF;
3992: -- Raise exception to rollback to the savepoint
3993: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3994: RAISE OKL_API.G_EXCEPTION_ERROR;
3995: END IF;
3996:
3997: -- This code is commented out till further notice
3998: -- start depreciation for evergreen contract
4006: p_term_rec => p_term_rec,
4007: p_sys_date => p_sys_date);
4008:
4009: -- Raise exception to rollback to the savepoint
4010: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4011: RAISE OKL_API.G_EXCEPTION_ERROR;
4012: END IF;
4013: */
4014: IF (is_debug_statement_on) THEN
4007: p_sys_date => p_sys_date);
4008:
4009: -- Raise exception to rollback to the savepoint
4010: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4011: RAISE OKL_API.G_EXCEPTION_ERROR;
4012: END IF;
4013: */
4014: IF (is_debug_statement_on) THEN
4015: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling process_accounting_entries');
4017: -- rmunjulu 4141991 do accounting entries
4018: --pagarg 4190887 Pass klev_tbl to do accounting at line level
4019: process_accounting_entries(
4020: p_api_version => p_api_version,
4021: p_init_msg_list => OKL_API.G_FALSE,
4022: x_return_status => l_return_status,
4023: x_msg_count => x_msg_count,
4024: x_msg_data => x_msg_data,
4025: p_term_rec => p_term_rec,
4032: IF (is_debug_statement_on) THEN
4033: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called process_accounting_entries l_return_status = '||l_return_status);
4034: END IF;
4035: -- rmunjulu 4141991 Raise exception to rollback to the savepoint
4036: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4037: RAISE OKL_API.G_EXCEPTION_ERROR;
4038: END IF;
4039:
4040: -- RMUNJULU 04-MAR-04 3485854 added call to process_amortize to do amortization
4033: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called process_accounting_entries l_return_status = '||l_return_status);
4034: END IF;
4035: -- rmunjulu 4141991 Raise exception to rollback to the savepoint
4036: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4037: RAISE OKL_API.G_EXCEPTION_ERROR;
4038: END IF;
4039:
4040: -- RMUNJULU 04-MAR-04 3485854 added call to process_amortize to do amortization
4041: -- Additional checks in process_amortize to cater to evergreen scenario
4043: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling process_amortize');
4044: END IF;
4045: process_amortize(
4046: p_api_version => p_api_version,
4047: p_init_msg_list => OKL_API.G_FALSE,
4048: x_return_status => l_return_status,
4049: x_msg_count => x_msg_count,
4050: x_msg_data => x_msg_data,
4051: p_term_rec => p_term_rec,
4056: IF (is_debug_statement_on) THEN
4057: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called process_amortize l_return_status = '||l_return_status);
4058: END IF;
4059: -- Raise exception to rollback to the savepoint
4060: IF (px_overall_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4061: RAISE OKL_API.G_EXCEPTION_ERROR;
4062: END IF;
4063:
4064: -- set the transaction record
4057: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called process_amortize l_return_status = '||l_return_status);
4058: END IF;
4059: -- Raise exception to rollback to the savepoint
4060: IF (px_overall_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4061: RAISE OKL_API.G_EXCEPTION_ERROR;
4062: END IF;
4063:
4064: -- set the transaction record
4065: set_transaction_rec(
4069: p_tsu_code => 'PROCESSED',
4070: px_tcnv_rec => px_tcnv_rec);
4071:
4072: -- Contract eligible for evergreen.
4073: OKL_API.set_message(
4074: p_app_name => G_APP_NAME,
4075: p_msg_name => 'OKL_AM_K_EVERGREEN');
4076:
4077: -- store the highest degree of error
4083:
4084: ELSE -- contract not eligible for evergreen
4085:
4086: -- Contract not eligible for evergreen.
4087: OKL_API.set_message(
4088: p_app_name => G_APP_NAME,
4089: p_msg_name => 'OKL_AM_K_NOT_EVERGREEN');
4090:
4091: -- set the transaction record
4109: /* -- RMUNJULU 05-MAR-03 Removed ELSE
4110: ELSE
4111:
4112: -- Contract not eligible for evergreen.
4113: OKL_API.set_message(
4114: p_app_name => G_APP_NAME,
4115: p_msg_name => 'OKL_AM_K_NOT_EVERGREEN');
4116: */
4117: END IF;
4121: IF (is_debug_procedure_on) THEN
4122: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
4123: END IF;
4124: EXCEPTION
4125: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4126: IF (is_debug_exception_on) THEN
4127: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4128: END IF;
4129:
4131: CLOSE l_k_end_csr;
4132: END IF;
4133:
4134: ROLLBACK TO evergreen;
4135: x_return_status := OKL_API.G_RET_STS_ERROR;
4136: x_evergreen_status := G_YES;
4137:
4138: -- store the highest degree of error
4139: set_overall_status(
4157: CLOSE l_k_end_csr;
4158: END IF;
4159:
4160: ROLLBACK TO evergreen;
4161: x_return_status := OKL_API.G_RET_STS_ERROR;
4162: x_evergreen_status := G_YES;
4163:
4164: -- store the highest degree of error
4165: set_overall_status(
4174: p_tsu_code => 'ERROR',
4175: px_tcnv_rec => px_tcnv_rec);
4176:
4177: -- Set the oracle error message
4178: OKL_API.set_message(
4179: p_app_name => OKC_API.G_APP_NAME,
4180: p_msg_name => g_unexpected_error,
4181: p_token1 => g_sqlcode_token,
4182: p_token1_value => SQLCODE,
4213: FROM OKC_K_HEADERS_B
4214: WHERE id = p_chr_id;
4215:
4216: l_k_end_date DATE;
4217: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4218: l_early_termination_yn VARCHAR2(1) := G_NO;
4219: i NUMBER;
4220:
4221: -- rmunjulu EDAT
4275: -- cancel insurance
4276:
4277: -- RMUNJULU 3018641 Step Message
4278: -- Step : Cancel Insurance
4279: OKL_API.set_message(
4280: p_app_name => G_APP_NAME,
4281: p_msg_name => 'OKL_AM_STEP_INS');
4282:
4283: IF (is_debug_statement_on) THEN
4286: END IF;
4287:
4288: OKL_INSURANCE_POLICIES_PUB.cancel_policies(
4289: p_api_version => p_api_version,
4290: p_init_msg_list => OKL_API.G_FALSE,
4291: x_return_status => l_return_status,
4292: x_msg_count => x_msg_count,
4293: x_msg_data => x_msg_data,
4294: p_contract_id => p_term_rec.p_contract_id,
4298: IF (is_debug_statement_on) THEN
4299: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKL_INSURANCE_POLICIES_PUB.cancel_policies l_return_status = '||l_return_status);
4300: END IF;
4301:
4302: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4303: -- Error in cancelling Insurance.
4304: OKL_API.set_message( p_app_name => G_APP_NAME,
4305: p_msg_name => 'OKL_AM_ERR_CAN_INS');
4306: END IF;
4300: END IF;
4301:
4302: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4303: -- Error in cancelling Insurance.
4304: OKL_API.set_message( p_app_name => G_APP_NAME,
4305: p_msg_name => 'OKL_AM_ERR_CAN_INS');
4306: END IF;
4307:
4308: -- Raise exception to rollback to the savepoint
4305: p_msg_name => 'OKL_AM_ERR_CAN_INS');
4306: END IF;
4307:
4308: -- Raise exception to rollback to the savepoint
4309: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4311: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4312: RAISE OKL_API.G_EXCEPTION_ERROR;
4313: END IF;
4306: END IF;
4307:
4308: -- Raise exception to rollback to the savepoint
4309: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4311: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4312: RAISE OKL_API.G_EXCEPTION_ERROR;
4313: END IF;
4314:
4307:
4308: -- Raise exception to rollback to the savepoint
4309: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4311: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4312: RAISE OKL_API.G_EXCEPTION_ERROR;
4313: END IF;
4314:
4315: -- store the highest degree of error
4308: -- Raise exception to rollback to the savepoint
4309: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4311: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4312: RAISE OKL_API.G_EXCEPTION_ERROR;
4313: END IF;
4314:
4315: -- store the highest degree of error
4316: set_overall_status(
4328: END IF;
4329: ELSE --( no early termination then set cancel insurance )
4330: -- Cancelling of insurance not needed because this
4331: -- is an end of term contract termination.
4332: OKL_API.set_message( p_app_name => G_APP_NAME,
4333: p_msg_name => 'OKL_AM_CAN_INS_NOT_NEEDED');
4334:
4335: -- set the transaction record
4336: set_transaction_rec(
4346: IF (is_debug_procedure_on) THEN
4347: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
4348: END IF;
4349: EXCEPTION
4350: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4351: IF (is_debug_exception_on) THEN
4352: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4353: END IF;
4354:
4357: END IF;
4358:
4359: ROLLBACK TO cancel_insurance;
4360:
4361: x_return_status := OKL_API.G_RET_STS_ERROR;
4362:
4363: -- store the highest degree of error
4364: set_overall_status(
4365: p_return_status => x_return_status,
4372: p_tmt_flag => 'TMT_CANCEL_INSURANCE_YN',
4373: p_tsu_code => 'ERROR',
4374: px_tcnv_rec => px_tcnv_rec);
4375:
4376: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4377: IF (is_debug_exception_on) THEN
4378: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
4379: END IF;
4380:
4383: END IF;
4384:
4385: ROLLBACK TO cancel_insurance;
4386:
4387: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4388:
4389: -- store the highest degree of error
4390: set_overall_status(
4391: p_return_status => x_return_status,
4409: END IF;
4410:
4411: ROLLBACK TO cancel_insurance;
4412:
4413: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4414:
4415: -- store the highest degree of error
4416: set_overall_status(
4417: p_return_status => x_return_status,
4425: p_tsu_code => 'ERROR',
4426: px_tcnv_rec => px_tcnv_rec);
4427:
4428: -- Set the oracle error message
4429: OKL_API.set_message(
4430: p_app_name => OKC_API.G_APP_NAME,
4431: p_msg_name => g_unexpected_error,
4432: p_token1 => g_sqlcode_token,
4433: p_token1_value => SQLCODE,
4477: OKL_STRM_TYPE_B STY
4478: WHERE STM.khr_id = p_chr_id
4479: AND STM.say_code = 'CURR'
4480: AND STM.STY_ID = STY.ID
4481: AND STY.ID NOT IN (nvl(p_sty_id, OKL_API.G_MISS_NUM)) -- rmunjulu 4058630 check for NVL
4482: AND nvl(STY.STREAM_TYPE_SUBCLASS, 'X') NOT IN ('INVESTOR_DISBURSEMENT') -- new subclass
4483: -- AND nvl(STM.sgn_code,'*') <> 'INTC'; -- rmunjulu 11-Apr-06 ER 5139307
4484: AND nvl(STM.sgn_code,'*') NOT IN ('LATE_CALC'); -- Bug#i6472228 - Added to exclude streams generated
4485: -- during late charge/interest calculation processs
4498: l_rev_rec_method VARCHAR2(150);
4499:
4500:
4501: k_streams_rec k_streams_csr%ROWTYPE;
4502: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4503: lp_stmv_tbl stmv_tbl_type;
4504: lx_stmv_tbl stmv_tbl_type;
4505: l_streams_found VARCHAR2(1) := G_NO;
4506: i NUMBER;
4537: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_already_set = '||p_trn_already_set);
4538: 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);
4539: END IF;
4540: -- Check if streams exist
4541: OPEN k_streams_csr(p_term_rec.p_contract_id,nvl(lx_sty_id,OKL_API.G_MISS_NUM)); -- rmunjulu 4058630 check for NVL
4542: FETCH k_streams_csr INTO l_id;
4543: IF k_streams_csr%FOUND THEN
4544: l_streams_found := G_YES;
4545: END IF;
4565: OR (p_trn_already_set = G_NO) THEN
4566:
4567: -- if streams found then
4568: -- Fix for Bug#13933234, added condition rev_rec_method <> 'ACTUAL'
4569: IF (l_streams_found = G_YES AND (NVL(l_rev_rec_method,OKL_API.G_MISS_CHAR) <> 'ACTUAL')) THEN
4570:
4571: i := 1;
4572: -- set the tbl type for streams pub
4573: 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
4569: IF (l_streams_found = G_YES AND (NVL(l_rev_rec_method,OKL_API.G_MISS_CHAR) <> 'ACTUAL')) THEN
4570:
4571: i := 1;
4572: -- set the tbl type for streams pub
4573: 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
4574: lp_stmv_tbl(i).khr_id := p_term_rec.p_contract_id;
4575: lp_stmv_tbl(i).active_yn := G_NO;
4576: lp_stmv_tbl(i).id := k_streams_rec.id;
4577:
4586: END IF;
4587: -- close streams
4588: OKL_STREAMS_PUB.update_streams(
4589: p_api_version => p_api_version,
4590: p_init_msg_list => OKL_API.G_FALSE,
4591: x_return_status => l_return_status,
4592: x_msg_count => x_msg_count,
4593: x_msg_data => x_msg_data,
4594: p_stmv_tbl => lp_stmv_tbl,
4596: IF (is_debug_statement_on) THEN
4597: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKL_STREAMS_PUB.update_streams l_return_status ='||l_return_status);
4598: END IF;
4599:
4600: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4601: -- Streams table update failed.
4602: OKL_API.set_message( p_app_name => G_APP_NAME,
4603: p_msg_name => 'OKL_AM_ERR_UPD_STREAMS');
4604: END IF;
4598: END IF;
4599:
4600: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4601: -- Streams table update failed.
4602: OKL_API.set_message( p_app_name => G_APP_NAME,
4603: p_msg_name => 'OKL_AM_ERR_UPD_STREAMS');
4604: END IF;
4605:
4606: -- Raise exception to rollback to if error
4603: p_msg_name => 'OKL_AM_ERR_UPD_STREAMS');
4604: END IF;
4605:
4606: -- Raise exception to rollback to if error
4607: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4609: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4610: RAISE OKL_API.G_EXCEPTION_ERROR;
4611: END IF;
4604: END IF;
4605:
4606: -- Raise exception to rollback to if error
4607: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4609: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4610: RAISE OKL_API.G_EXCEPTION_ERROR;
4611: END IF;
4612:
4605:
4606: -- Raise exception to rollback to if error
4607: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4609: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4610: RAISE OKL_API.G_EXCEPTION_ERROR;
4611: END IF;
4612:
4613: -- store the highest degree of error
4606: -- Raise exception to rollback to if error
4607: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4609: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4610: RAISE OKL_API.G_EXCEPTION_ERROR;
4611: END IF;
4612:
4613: -- store the highest degree of error
4614: set_overall_status(
4626: -- END IF;
4627: ELSE --( no streams found )
4628:
4629: -- No future billable streams found.
4630: OKL_API.set_message( p_app_name => G_APP_NAME,
4631: p_msg_name => 'OKL_AM_NO_STREAMS');
4632:
4633: -- set the transaction record
4634: set_transaction_rec(
4648: IF (is_debug_procedure_on) THEN
4649: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
4650: END IF;
4651: EXCEPTION
4652: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4653: IF (is_debug_exception_on) THEN
4654: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4655: END IF;
4656:
4659: END IF;
4660:
4661: ROLLBACK TO close_streams;
4662:
4663: x_return_status := OKL_API.G_RET_STS_ERROR;
4664: -- store the highest degree of error
4665: set_overall_status(
4666: p_return_status => x_return_status,
4667: px_overall_status => px_overall_status);
4673: p_tmt_flag => 'TMT_STREAMS_UPDATED_YN',
4674: p_tsu_code => 'ERROR',
4675: px_tcnv_rec => px_tcnv_rec);
4676:
4677: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4678: IF (is_debug_exception_on) THEN
4679: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
4680: END IF;
4681:
4684: END IF;
4685:
4686: ROLLBACK TO close_streams;
4687:
4688: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4689: -- store the highest degree of error
4690: set_overall_status(
4691: p_return_status => x_return_status,
4692: px_overall_status => px_overall_status);
4709: END IF;
4710:
4711: ROLLBACK TO close_streams;
4712:
4713: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4714: -- store the highest degree of error
4715: set_overall_status(
4716: p_return_status => x_return_status,
4717: px_overall_status => px_overall_status);
4724: p_tsu_code => 'ERROR',
4725: px_tcnv_rec => px_tcnv_rec);
4726:
4727: -- Set the oracle error message
4728: OKL_API.set_message(
4729: p_app_name => OKC_API.G_APP_NAME,
4730: p_msg_name => g_unexpected_error,
4731: p_token1 => g_sqlcode_token,
4732: p_token1_value => SQLCODE,
4767: l_curr_code VARCHAR2(200);
4768: l_formatted_inv_amt VARCHAR2(200);
4769: l_try_id NUMBER;
4770: l_purchase_option_sty_id NUMBER;
4771: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4772: l_taiv_rec okl_trx_ar_invoices_pub.taiv_rec_type;
4773: lx_taiv_rec okl_trx_ar_invoices_pub.taiv_rec_type;
4774: l_tilv_rec okl_txl_ar_inv_lns_pub.tilv_rec_type;
4775: lx_tilv_rec okl_txl_ar_inv_lns_pub.tilv_rec_type;
4861: IF (is_debug_statement_on) THEN
4862: 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);
4863: END IF;
4864:
4865: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
4866: AND (l_purchase_option_sty_id IS NULL OR l_purchase_option_sty_id = OKL_API.G_MISS_NUM) THEN
4867:
4868: l_return_status := OKL_API.G_RET_STS_ERROR;
4869: END IF;
4862: 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);
4863: END IF;
4864:
4865: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
4866: AND (l_purchase_option_sty_id IS NULL OR l_purchase_option_sty_id = OKL_API.G_MISS_NUM) THEN
4867:
4868: l_return_status := OKL_API.G_RET_STS_ERROR;
4869: END IF;
4870:
4864:
4865: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
4866: AND (l_purchase_option_sty_id IS NULL OR l_purchase_option_sty_id = OKL_API.G_MISS_NUM) THEN
4867:
4868: l_return_status := OKL_API.G_RET_STS_ERROR;
4869: END IF;
4870:
4871: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4872:
4867:
4868: l_return_status := OKL_API.G_RET_STS_ERROR;
4869: END IF;
4870:
4871: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4872:
4873: -- Unable to auto invoice the purchase amount for Contract CONTRACT_NUMBER.
4874: OKL_API.set_message(
4875: p_app_name => G_APP_NAME,
4870:
4871: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4872:
4873: -- Unable to auto invoice the purchase amount for Contract CONTRACT_NUMBER.
4874: OKL_API.set_message(
4875: p_app_name => G_APP_NAME,
4876: p_msg_name => 'OKL_AM_INV_CNTRCT_ERR',
4877: p_token1 => 'CONTRACT_NUMBER',
4878: p_token1_value => p_term_rec.p_contract_number);
4877: p_token1 => 'CONTRACT_NUMBER',
4878: p_token1_value => p_term_rec.p_contract_number);
4879: END IF;
4880:
4881: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4883: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4884: RAISE OKL_API.G_EXCEPTION_ERROR;
4885: END IF;
4878: p_token1_value => p_term_rec.p_contract_number);
4879: END IF;
4880:
4881: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4883: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4884: RAISE OKL_API.G_EXCEPTION_ERROR;
4885: END IF;
4886:
4879: END IF;
4880:
4881: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4883: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4884: RAISE OKL_API.G_EXCEPTION_ERROR;
4885: END IF;
4886:
4887: -- Get the currency code for contract
4880:
4881: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4883: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4884: RAISE OKL_API.G_EXCEPTION_ERROR;
4885: END IF;
4886:
4887: -- Get the currency code for contract
4888: l_curr_code := OKL_AM_UTIL_PVT.get_chr_currency(
4939: p_kle_id => p_klev_tbl(j).p_kle_id,
4940: x_purchase_amount => l_invoice_amount,
4941: x_return_status => l_return_status);
4942:
4943: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4944:
4945: -- Unable to auto invoice the purchase amount for Contract CONTRACT_NUMBER.
4946: OKL_API.set_message(
4947: p_app_name => G_APP_NAME,
4942:
4943: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4944:
4945: -- Unable to auto invoice the purchase amount for Contract CONTRACT_NUMBER.
4946: OKL_API.set_message(
4947: p_app_name => G_APP_NAME,
4948: p_msg_name => 'OKL_AM_INV_CNTRCT_ERR',
4949: p_token1 => 'CONTRACT_NUMBER',
4950: p_token1_value => p_term_rec.p_contract_number);
4949: p_token1 => 'CONTRACT_NUMBER',
4950: p_token1_value => p_term_rec.p_contract_number);
4951: END IF;
4952:
4953: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4955: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4956: RAISE OKL_API.G_EXCEPTION_ERROR;
4957: END IF;
4950: p_token1_value => p_term_rec.p_contract_number);
4951: END IF;
4952:
4953: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4955: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4956: RAISE OKL_API.G_EXCEPTION_ERROR;
4957: END IF;
4958:
4951: END IF;
4952:
4953: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4955: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4956: RAISE OKL_API.G_EXCEPTION_ERROR;
4957: END IF;
4958:
4959: /*bug 12999514 start proration changes*/
4952:
4953: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4955: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4956: RAISE OKL_API.G_EXCEPTION_ERROR;
4957: END IF;
4958:
4959: /*bug 12999514 start proration changes*/
4960:
4991: x_return_status => l_return_status,
4992: x_try_id => l_try_id);
4993: END IF;
4994:
4995: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
4996: OR NVL (l_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
4997:
4998: OKL_API.SET_MESSAGE (
4999: p_app_name => G_APP_NAME,
4992: x_try_id => l_try_id);
4993: END IF;
4994:
4995: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
4996: OR NVL (l_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
4997:
4998: OKL_API.SET_MESSAGE (
4999: p_app_name => G_APP_NAME,
5000: p_msg_name => G_INVALID_VALUE,
4994:
4995: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
4996: OR NVL (l_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
4997:
4998: OKL_API.SET_MESSAGE (
4999: p_app_name => G_APP_NAME,
5000: p_msg_name => G_INVALID_VALUE,
5001: p_token1 => G_COL_NAME_TOKEN,
5002: p_token1_value => 'Transaction Type');
5001: p_token1 => G_COL_NAME_TOKEN,
5002: p_token1_value => 'Transaction Type');
5003:
5004: -- Unable to auto invoice the purchase amount for Contract CONTRACT_NUMBER.
5005: OKL_API.set_message(
5006: p_app_name => G_APP_NAME,
5007: p_msg_name => 'OKL_AM_INV_CNTRCT_ERR',
5008: p_token1 => 'CONTRACT_NUMBER',
5009: p_token1_value => p_term_rec.p_contract_number);
5008: p_token1 => 'CONTRACT_NUMBER',
5009: p_token1_value => p_term_rec.p_contract_number);
5010: END IF;
5011:
5012: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5013: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5014: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5015: RAISE OKL_API.G_EXCEPTION_ERROR;
5016: END IF;
5009: p_token1_value => p_term_rec.p_contract_number);
5010: END IF;
5011:
5012: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5013: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5014: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5015: RAISE OKL_API.G_EXCEPTION_ERROR;
5016: END IF;
5017:
5010: END IF;
5011:
5012: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5013: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5014: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5015: RAISE OKL_API.G_EXCEPTION_ERROR;
5016: END IF;
5017:
5018: -- start invoice part only if invoice amount <> 0
5011:
5012: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5013: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5014: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5015: RAISE OKL_API.G_EXCEPTION_ERROR;
5016: END IF;
5017:
5018: -- start invoice part only if invoice amount <> 0
5019: IF l_invoice_amount <> 0 THEN
5053: 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);
5054: END IF;
5055:
5056:
5057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5059: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5060: RAISE OKL_API.G_EXCEPTION_ERROR;
5061: END IF;
5054: END IF;
5055:
5056:
5057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5059: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5060: RAISE OKL_API.G_EXCEPTION_ERROR;
5061: END IF;
5062: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5055:
5056:
5057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5059: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5060: RAISE OKL_API.G_EXCEPTION_ERROR;
5061: END IF;
5062: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5063: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
5056:
5057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5059: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5060: RAISE OKL_API.G_EXCEPTION_ERROR;
5061: END IF;
5062: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5063: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
5064: 'Process_Auto_Invoice.okl_internal_billing_pvt.create_billing_trx.',
5073: END IF;
5074:
5075: OKL_TRX_AR_INVOICES_PUB.insert_trx_ar_invoices (
5076: p_api_version => P_api_version,
5077: p_init_msg_list => OKL_API.G_FALSE,
5078: x_return_status => l_return_status,
5079: x_msg_count => l_msg_count,
5080: x_msg_data => l_msg_data,
5081: p_taiv_rec => l_taiv_rec,
5080: x_msg_data => l_msg_data,
5081: p_taiv_rec => l_taiv_rec,
5082: x_taiv_rec => lx_taiv_rec);
5083:
5084: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5085:
5086: -- Error invoicing Asset ASSET_NUMBER of Contract CONTRACT_NUMBER.
5087: OKL_API.set_message(
5088: p_app_name => G_APP_NAME,
5083:
5084: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5085:
5086: -- Error invoicing Asset ASSET_NUMBER of Contract CONTRACT_NUMBER.
5087: OKL_API.set_message(
5088: p_app_name => G_APP_NAME,
5089: p_msg_name => 'OKL_AM_INV_AMT_ERR',
5090: p_token1 => 'ASSET_NUMBER',
5091: p_token1_value => p_klev_tbl(j).p_asset_name,
5092: p_token2 => 'CONTRACT_NUMBER',
5093: p_token2_value => p_term_rec.p_contract_number);
5094: END IF;
5095:
5096: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5097: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5098: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5099: RAISE OKL_API.G_EXCEPTION_ERROR;
5100: END IF;
5093: p_token2_value => p_term_rec.p_contract_number);
5094: END IF;
5095:
5096: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5097: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5098: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5099: RAISE OKL_API.G_EXCEPTION_ERROR;
5100: END IF;
5101:
5094: END IF;
5095:
5096: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5097: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5098: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5099: RAISE OKL_API.G_EXCEPTION_ERROR;
5100: END IF;
5101:
5102: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5095:
5096: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5097: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5098: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5099: RAISE OKL_API.G_EXCEPTION_ERROR;
5100: END IF;
5101:
5102: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5103: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
5118:
5119: -- Create Invoice Line
5120: OKL_TXL_AR_INV_LNS_PUB.insert_txl_ar_inv_lns (
5121: p_api_version => l_api_version,
5122: p_init_msg_list => OKL_API.G_FALSE,
5123: x_return_status => l_return_status,
5124: x_msg_count => l_msg_count,
5125: x_msg_data => l_msg_data,
5126: p_tilv_rec => l_tilv_rec,
5125: x_msg_data => l_msg_data,
5126: p_tilv_rec => l_tilv_rec,
5127: x_tilv_rec => lx_tilv_rec);
5128:
5129: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5130:
5131: -- Error invoicing Asset ASSET_NUMBER of Contract CONTRACT_NUMBER.
5132: OKL_API.set_message(
5133: p_app_name => G_APP_NAME,
5128:
5129: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5130:
5131: -- Error invoicing Asset ASSET_NUMBER of Contract CONTRACT_NUMBER.
5132: OKL_API.set_message(
5133: p_app_name => G_APP_NAME,
5134: p_msg_name => 'OKL_AM_INV_AMT_ERR',
5135: p_token1 => 'ASSET_NUMBER',
5136: p_token1_value => p_klev_tbl(j).p_asset_name,
5136: p_token1_value => p_klev_tbl(j).p_asset_name,
5137: p_token2 => 'CONTRACT_NUMBER',
5138: p_token2_value => p_term_rec.p_contract_number);
5139: END IF;
5140: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5142: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5143: RAISE OKL_API.G_EXCEPTION_ERROR;
5144: END IF;
5137: p_token2 => 'CONTRACT_NUMBER',
5138: p_token2_value => p_term_rec.p_contract_number);
5139: END IF;
5140: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5142: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5143: RAISE OKL_API.G_EXCEPTION_ERROR;
5144: END IF;
5145:
5138: p_token2_value => p_term_rec.p_contract_number);
5139: END IF;
5140: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5142: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5143: RAISE OKL_API.G_EXCEPTION_ERROR;
5144: END IF;
5145:
5146: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5139: END IF;
5140: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5142: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5143: RAISE OKL_API.G_EXCEPTION_ERROR;
5144: END IF;
5145:
5146: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5147: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
5160:
5161: -- Create Accounting Distribution
5162: OKL_ACC_CALL_PUB.create_acc_trans(
5163: p_api_version => l_api_version,
5164: p_init_msg_list => OKL_API.G_FALSE,
5165: x_return_status => l_return_status,
5166: x_msg_count => l_msg_count,
5167: x_msg_data => l_msg_data,
5168: p_bpd_acc_rec => l_bpd_acc_rec);
5166: x_msg_count => l_msg_count,
5167: x_msg_data => l_msg_data,
5168: p_bpd_acc_rec => l_bpd_acc_rec);
5169:
5170: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5171:
5172: -- Error invoicing Asset ASSET_NUMBER of Contract CONTRACT_NUMBER.
5173: OKL_API.set_message(
5174: p_app_name => G_APP_NAME,
5169:
5170: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5171:
5172: -- Error invoicing Asset ASSET_NUMBER of Contract CONTRACT_NUMBER.
5173: OKL_API.set_message(
5174: p_app_name => G_APP_NAME,
5175: p_msg_name => 'OKL_AM_INV_AMT_ERR',
5176: p_token1 => 'ASSET_NUMBER',
5177: p_token1_value => p_klev_tbl(j).p_asset_name,
5178: p_token2 => 'CONTRACT_NUMBER',
5179: p_token2_value => p_term_rec.p_contract_number);
5180: END IF;
5181:
5182: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5184: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5185: RAISE OKL_API.G_EXCEPTION_ERROR;
5186: END IF;
5179: p_token2_value => p_term_rec.p_contract_number);
5180: END IF;
5181:
5182: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5184: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5185: RAISE OKL_API.G_EXCEPTION_ERROR;
5186: END IF;
5187:
5180: END IF;
5181:
5182: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5184: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5185: RAISE OKL_API.G_EXCEPTION_ERROR;
5186: END IF;
5187:
5188: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5181:
5182: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5184: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5185: RAISE OKL_API.G_EXCEPTION_ERROR;
5186: END IF;
5187:
5188: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5189: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
5198: p_amount => l_invoice_amount,
5199: p_currency_code => l_curr_code);
5200:
5201: -- Asset ASSET_NUMBER of Contract CONTRACT_NUMBER is invoiced with amount AMOUNT.
5202: OKL_API.set_message(
5203: p_app_name => G_APP_NAME,
5204: p_msg_name => 'OKL_AM_INV_AMT_SUCCESS',
5205: p_token1 => 'ASSET_NUMBER',
5206: p_token1_value => p_klev_tbl(j).p_asset_name,
5229: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
5230: END IF;
5231: EXCEPTION
5232:
5233: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5234: IF (is_debug_exception_on) THEN
5235: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5236: END IF;
5237:
5236: END IF;
5237:
5238: ROLLBACK TO auto_invoice;
5239:
5240: x_return_status := OKL_API.G_RET_STS_ERROR;
5241:
5242: -- store the highest degree of error
5243: set_overall_status(
5244: p_return_status => x_return_status,
5252: p_tsu_code => 'ERROR',
5253: p_ret_val => NULL,
5254: px_tcnv_rec => px_tcnv_rec);
5255:
5256: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5257: IF (is_debug_exception_on) THEN
5258: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5259: END IF;
5260:
5259: END IF;
5260:
5261: ROLLBACK TO auto_invoice;
5262:
5263: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5264:
5265: -- store the highest degree of error
5266: set_overall_status(
5267: p_return_status => x_return_status,
5282: END IF;
5283:
5284: ROLLBACK TO auto_invoice;
5285:
5286: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5287:
5288: -- store the highest degree of error
5289: set_overall_status(
5290: p_return_status => x_return_status,
5406: AND DST.cr_dr_flag = 'D'
5407: AND DST.percentage = 100;
5408:
5409: k_bal_lns_rec k_bal_lns_csr%ROWTYPE;
5410: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5411: lp_adjv_rec adjv_rec_type;
5412: lx_adjv_rec adjv_rec_type;
5413: -- lp_ajlv_tbl ajlv_tbl_type;
5414: -- lx_ajlv_tbl ajlv_tbl_type;
5411: lp_adjv_rec adjv_rec_type;
5412: lx_adjv_rec adjv_rec_type;
5413: -- lp_ajlv_tbl ajlv_tbl_type;
5414: -- lx_ajlv_tbl ajlv_tbl_type;
5415: l_early_termination_yn VARCHAR2(1) := OKL_API.G_FALSE;
5416: l_total_amount_due NUMBER := -1;
5417: l_code_combination_id NUMBER := -1;
5418: i NUMBER := 1;
5419: l_tolerance_amt NUMBER := -1;
5424: lp_ctxt_val_tbl OKL_ACCOUNT_DIST_PUB.ctxt_val_tbl_type;
5425: lp_acc_gen_primary_key_tbl OKL_ACCOUNT_DIST_PUB.acc_gen_primary_key;
5426: lx_template_tbl OKL_ACCOUNT_DIST_PUB.avlv_tbl_type;
5427: lx_amount_tbl OKL_ACCOUNT_DIST_PUB.amount_tbl_type;
5428: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5429: l_try_id NUMBER;
5430: l_trans_meaning VARCHAR2(200);
5431: l_currency_code VARCHAR2(200);
5432: l_formatted_bal_amt VARCHAR2(200);
5484: SAVEPOINT close_balances;
5485:
5486: -- RMUNJULU 3018641 Step Message
5487: -- Step : Close Balances
5488: OKL_API.set_message(
5489: p_app_name => G_APP_NAME,
5490: p_msg_name => 'OKL_AM_STEP_CLB');
5491:
5492: -- rmunjulu BUYOUT PROCESS --+++++++ START ++++++++++++++++++++++++++++++
5492: -- rmunjulu BUYOUT PROCESS --+++++++ START ++++++++++++++++++++++++++++++
5493: -- check for auto invoice yn and invoice if applicable
5494: process_auto_invoice(
5495: p_api_version => p_api_version,
5496: p_init_msg_list => OKL_API.G_FALSE,
5497: x_return_status => l_return_status,
5498: x_msg_count => x_msg_count,
5499: x_msg_data => x_msg_data,
5500: p_term_rec => p_term_rec,
5507: p_auto_invoice_yn => p_auto_invoice_yn,
5508: p_klev_tbl => p_klev_tbl);
5509:
5510: -- If process auto invoice errors everything errors
5511: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5512: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5513: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5514: RAISE OKL_API.G_EXCEPTION_ERROR;
5515: END IF;
5508: p_klev_tbl => p_klev_tbl);
5509:
5510: -- If process auto invoice errors everything errors
5511: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5512: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5513: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5514: RAISE OKL_API.G_EXCEPTION_ERROR;
5515: END IF;
5516:
5509:
5510: -- If process auto invoice errors everything errors
5511: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5512: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5513: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5514: RAISE OKL_API.G_EXCEPTION_ERROR;
5515: END IF;
5516:
5517: -- store the highest degree of error
5510: -- If process auto invoice errors everything errors
5511: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5512: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5513: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5514: RAISE OKL_API.G_EXCEPTION_ERROR;
5515: END IF;
5516:
5517: -- store the highest degree of error
5518: set_overall_status(
5584: -- Check if total amount due is +ve else set message and exit
5585: IF l_total_amount_due <= 0 THEN
5586:
5587: -- No outstanding balances found.
5588: OKL_API.set_message( p_app_name => G_APP_NAME,
5589: p_msg_name => 'OKL_AM_NO_BAL');
5590:
5591: -- set the transaction record
5592: set_transaction_rec(
5608: IF l_tolerance_amt IS NULL THEN
5609:
5610: l_tolerance_amt := 0;
5611: -- No tolerance amount found for closing of balances.
5612: OKL_API.set_message( p_app_name => G_APP_NAME,
5613: p_msg_name => 'OKL_AM_NO_TOL_AMT');
5614:
5615: END IF;
5616:
5639:
5640: -- call the adjusts api
5641: OKL_TRX_AR_ADJSTS_PUB.insert_trx_ar_adjsts(
5642: p_api_version => p_api_version,
5643: p_init_msg_list => OKL_API.G_FALSE,
5644: x_return_status => l_return_status,
5645: x_msg_count => x_msg_count,
5646: x_msg_data => x_msg_data,
5647: p_adjv_rec => lp_adjv_rec,
5646: x_msg_data => x_msg_data,
5647: p_adjv_rec => lp_adjv_rec,
5648: x_adjv_rec => lx_adjv_rec);
5649:
5650: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5651: -- Error occurred when creating adjustment records to write off balances.
5652: OKL_API.set_message( p_app_name => G_APP_NAME,
5653: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
5654: END IF;
5648: x_adjv_rec => lx_adjv_rec);
5649:
5650: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5651: -- Error occurred when creating adjustment records to write off balances.
5652: OKL_API.set_message( p_app_name => G_APP_NAME,
5653: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
5654: END IF;
5655:
5656: -- Raise exception to rollback this whole block
5653: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
5654: END IF;
5655:
5656: -- Raise exception to rollback this whole block
5657: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5658: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5659: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5660: RAISE OKL_API.G_EXCEPTION_ERROR;
5661: END IF;
5654: END IF;
5655:
5656: -- Raise exception to rollback this whole block
5657: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5658: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5659: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5660: RAISE OKL_API.G_EXCEPTION_ERROR;
5661: END IF;
5662:
5655:
5656: -- Raise exception to rollback this whole block
5657: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5658: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5659: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5660: RAISE OKL_API.G_EXCEPTION_ERROR;
5661: END IF;
5662:
5663: -- ******** GET TRY ID FOR Balance Write off ************* --
5656: -- Raise exception to rollback this whole block
5657: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5658: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5659: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5660: RAISE OKL_API.G_EXCEPTION_ERROR;
5661: END IF;
5662:
5663: -- ******** GET TRY ID FOR Balance Write off ************* --
5664:
5667: p_try_name => 'Balance Write off',
5668: x_return_status => l_return_status,
5669: x_try_id => l_try_id);
5670:
5671: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5672:
5673: -- Message: Unable to find a transaction type for
5674: -- the transaction TRY_NAME
5675: OKL_API.set_message(
5671: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5672:
5673: -- Message: Unable to find a transaction type for
5674: -- the transaction TRY_NAME
5675: OKL_API.set_message(
5676: p_app_name => G_APP_NAME,
5677: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
5678: p_token1 => 'TRY_NAME',
5679: p_token1_value => l_trans_meaning);
5679: p_token1_value => l_trans_meaning);
5680: END IF;
5681:
5682: -- Raise exception to rollback this whole block
5683: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5684: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5685: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5686: RAISE OKL_API.G_EXCEPTION_ERROR;
5687: END IF;
5680: END IF;
5681:
5682: -- Raise exception to rollback this whole block
5683: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5684: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5685: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5686: RAISE OKL_API.G_EXCEPTION_ERROR;
5687: END IF;
5688:
5681:
5682: -- Raise exception to rollback this whole block
5683: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5684: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5685: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5686: RAISE OKL_API.G_EXCEPTION_ERROR;
5687: END IF;
5688:
5689: -- Get the meaning of lookup BALANCE_WRITE_OFF
5682: -- Raise exception to rollback this whole block
5683: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5684: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5685: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5686: RAISE OKL_API.G_EXCEPTION_ERROR;
5687: END IF;
5688:
5689: -- Get the meaning of lookup BALANCE_WRITE_OFF
5690: l_trans_meaning := OKL_AM_UTIL_PVT.get_lookup_meaning(
5702: -- raise error message if no pdt_id
5703: IF l_pdt_id IS NULL OR l_pdt_id = 0 THEN
5704: -- Error: Unable to create accounting entries because of a missing
5705: -- Product Type for the contract CONTRACT_NUMBER.
5706: OKL_API.set_message(
5707: p_app_name => G_APP_NAME,
5708: p_msg_name => 'OKL_AM_PRODUCT_ID_ERROR',
5709: p_token1 => 'CONTRACT_NUMBER',
5710: p_token1_value=> p_term_rec.p_contract_number);
5712:
5713: -- RMUNJULU 03-JAN-03 2683876 Added code to raise exception when
5714: -- no product id.
5715: -- Raise exception to rollback this whole block
5716: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5718: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5719: RAISE OKL_API.G_EXCEPTION_ERROR;
5720: END IF;
5713: -- RMUNJULU 03-JAN-03 2683876 Added code to raise exception when
5714: -- no product id.
5715: -- Raise exception to rollback this whole block
5716: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5718: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5719: RAISE OKL_API.G_EXCEPTION_ERROR;
5720: END IF;
5721:
5714: -- no product id.
5715: -- Raise exception to rollback this whole block
5716: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5718: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5719: RAISE OKL_API.G_EXCEPTION_ERROR;
5720: END IF;
5721:
5722: -- RMUNJULU 03-JAN-03 2683876 Added code to Get
5715: -- Raise exception to rollback this whole block
5716: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5718: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5719: RAISE OKL_API.G_EXCEPTION_ERROR;
5720: END IF;
5721:
5722: -- RMUNJULU 03-JAN-03 2683876 Added code to Get
5723: -- the currency conversion parameters -- START
5739: x_converted_amount => l_converted_amount);
5740:
5741:
5742: -- If error from OKL_ACCOUNTING_UTIL
5743: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5744:
5745: -- Error occurred when creating accounting entries for
5746: -- transaction TRX_TYPE.
5747: OKL_API.set_message(
5743: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5744:
5745: -- Error occurred when creating accounting entries for
5746: -- transaction TRX_TYPE.
5747: OKL_API.set_message(
5748: p_app_name => G_APP_NAME,
5749: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
5750: p_token1 => 'TRX_TYPE',
5751: p_token1_value => l_trans_meaning);
5753: END IF;
5754:
5755:
5756: -- Raise exception to rollback this whole block
5757: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5758: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5759: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5760: RAISE OKL_API.G_EXCEPTION_ERROR;
5761: END IF;
5754:
5755:
5756: -- Raise exception to rollback this whole block
5757: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5758: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5759: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5760: RAISE OKL_API.G_EXCEPTION_ERROR;
5761: END IF;
5762:
5755:
5756: -- Raise exception to rollback this whole block
5757: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5758: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5759: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5760: RAISE OKL_API.G_EXCEPTION_ERROR;
5761: END IF;
5762:
5763: -- RMUNJULU 03-JAN-03 2683876 -- END
5756: -- Raise exception to rollback this whole block
5757: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5758: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5759: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5760: RAISE OKL_API.G_EXCEPTION_ERROR;
5761: END IF;
5762:
5763: -- RMUNJULU 03-JAN-03 2683876 -- END
5764:
5779: lp_ajlv_rec.til_id := k_bal_lns_rec.til_id;
5780:
5781: IF k_bal_lns_rec.tld_id <> -999
5782: AND k_bal_lns_rec.tld_id IS NOT NULL
5783: AND k_bal_lns_rec.tld_id <> OKL_API.G_MISS_NUM THEN
5784: lp_ajlv_rec.tld_id := k_bal_lns_rec.tld_id;
5785: END IF;
5786:
5787: lp_ajlv_rec.amount := k_bal_lns_rec.amount;
5789:
5790: --call the txl_lns_adjsts
5791: OKL_TXL_ADJSTS_LNS_PUB.insert_txl_adjsts_lns(
5792: p_api_version => p_api_version,
5793: p_init_msg_list => OKL_API.G_FALSE,
5794: x_return_status => l_return_status,
5795: x_msg_count => x_msg_count,
5796: x_msg_data => x_msg_data,
5797: p_ajlv_rec => lp_ajlv_rec,
5796: x_msg_data => x_msg_data,
5797: p_ajlv_rec => lp_ajlv_rec,
5798: x_ajlv_rec => lx_ajlv_rec);
5799:
5800: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5801: -- Error occurred when creating adjustment records to write
5802: -- off balances.
5803: OKL_API.set_message( p_app_name => G_APP_NAME,
5804: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
5799:
5800: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5801: -- Error occurred when creating adjustment records to write
5802: -- off balances.
5803: OKL_API.set_message( p_app_name => G_APP_NAME,
5804: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
5805: END IF;
5806:
5807: -- Raise exception to rollback this whole block
5804: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
5805: END IF;
5806:
5807: -- Raise exception to rollback this whole block
5808: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5809: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5810: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5811: RAISE OKL_API.G_EXCEPTION_ERROR;
5812: END IF;
5805: END IF;
5806:
5807: -- Raise exception to rollback this whole block
5808: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5809: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5810: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5811: RAISE OKL_API.G_EXCEPTION_ERROR;
5812: END IF;
5813:
5806:
5807: -- Raise exception to rollback this whole block
5808: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5809: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5810: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5811: RAISE OKL_API.G_EXCEPTION_ERROR;
5812: END IF;
5813:
5814: -- ******** CREATE ACCOUNTING DISTRIBUTIONS ************* --
5807: -- Raise exception to rollback this whole block
5808: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5809: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5810: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5811: RAISE OKL_API.G_EXCEPTION_ERROR;
5812: END IF;
5813:
5814: -- ******** CREATE ACCOUNTING DISTRIBUTIONS ************* --
5815:
5860: x_acc_gen_tbl => lp_acc_gen_primary_key_tbl,
5861: x_return_status => l_return_status);
5862:
5863: -- Raise exception to rollback to savepoint for this 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: x_return_status => l_return_status);
5862:
5863: -- Raise exception to rollback to savepoint for this 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 to savepoint for this 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: -- call accounting engine
5863: -- Raise exception to rollback to savepoint for this 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: -- call accounting engine
5871: -- This will calculate the adjstmnts and generate accounting entries
5870: -- call accounting engine
5871: -- This will calculate the adjstmnts and generate accounting entries
5872: OKL_ACCOUNT_DIST_PUB.create_accounting_dist(
5873: p_api_version => p_api_version,
5874: p_init_msg_list => OKL_API.G_FALSE,
5875: x_return_status => l_return_status,
5876: x_msg_count => x_msg_count,
5877: x_msg_data => x_msg_data,
5878: p_tmpl_identify_rec => lp_tmpl_identify_rec,
5881: p_acc_gen_primary_key_tbl => lp_acc_gen_primary_key_tbl,
5882: x_template_tbl => lx_template_tbl,
5883: x_amount_tbl => lx_amount_tbl);
5884:
5885: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5886:
5887: -- Error occurred when creating accounting entries
5888: -- for transaction type TRX_TYPE and stream type STREAM_TYPE.
5889: OKL_API.set_message( p_app_name => G_APP_NAME,
5885: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5886:
5887: -- Error occurred when creating accounting entries
5888: -- for transaction type TRX_TYPE and stream type STREAM_TYPE.
5889: OKL_API.set_message( p_app_name => G_APP_NAME,
5890: p_msg_name => 'OKL_AM_ERR_ACC_ENT_MSG',
5891: p_token1 => 'TRX_TYPE',
5892: p_token1_value => l_trans_meaning,
5893: p_token2 => 'STREAM_TYPE',
5895:
5896: END IF;
5897:
5898: -- Raise exception to rollback this whole block
5899: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5901: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5902: RAISE OKL_API.G_EXCEPTION_ERROR;
5903: END IF;
5896: END IF;
5897:
5898: -- Raise exception to rollback this whole block
5899: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5901: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5902: RAISE OKL_API.G_EXCEPTION_ERROR;
5903: END IF;
5904:
5897:
5898: -- Raise exception to rollback this whole block
5899: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5901: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5902: RAISE OKL_API.G_EXCEPTION_ERROR;
5903: END IF;
5904:
5905: -- ******** GET CCID FROM ACCOUNTING DISTRIBUTIONS ************* --
5898: -- Raise exception to rollback this whole block
5899: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5901: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5902: RAISE OKL_API.G_EXCEPTION_ERROR;
5903: END IF;
5904:
5905: -- ******** GET CCID FROM ACCOUNTING DISTRIBUTIONS ************* --
5906:
5915:
5916: -- Error: Unable to process small balance
5917: -- adjustments because of a missing Code Combination ID for the
5918: -- contract CONTRACT_NUMBER.
5919: OKL_API.set_message(
5920: p_app_name => G_APP_NAME,
5921: p_msg_name => 'OKL_AM_CODE_CMB_ERROR',
5922: p_token1 => 'CONTRACT_NUMBER',
5923: p_token1_value=> p_term_rec.p_contract_number);
5921: p_msg_name => 'OKL_AM_CODE_CMB_ERROR',
5922: p_token1 => 'CONTRACT_NUMBER',
5923: p_token1_value=> p_term_rec.p_contract_number);
5924:
5925: RAISE OKL_API.G_EXCEPTION_ERROR;
5926:
5927: END IF;
5928:
5929: -- ******** UPDATE TRN LINE WITH CCID ************* --
5938:
5939: --call the txl_lns_adjsts
5940: OKL_TXL_ADJSTS_LNS_PUB.update_txl_adjsts_lns(
5941: p_api_version => p_api_version,
5942: p_init_msg_list => OKL_API.G_FALSE,
5943: x_return_status => l_return_status,
5944: x_msg_count => x_msg_count,
5945: x_msg_data => x_msg_data,
5946: p_ajlv_rec => lp_ajlv_rec,
5945: x_msg_data => x_msg_data,
5946: p_ajlv_rec => lp_ajlv_rec,
5947: x_ajlv_rec => lx_ajlv_rec);
5948:
5949: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5950: -- Error occurred when creating adjustment records to write
5951: -- off balances.
5952: OKL_API.set_message( p_app_name => G_APP_NAME,
5953: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
5948:
5949: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5950: -- Error occurred when creating adjustment records to write
5951: -- off balances.
5952: OKL_API.set_message( p_app_name => G_APP_NAME,
5953: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
5954: END IF;
5955:
5956: -- Raise exception to rollback this whole block
5953: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
5954: END IF;
5955:
5956: -- Raise exception to rollback this whole block
5957: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5958: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5959: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5960: RAISE OKL_API.G_EXCEPTION_ERROR;
5961: END IF;
5954: END IF;
5955:
5956: -- Raise exception to rollback this whole block
5957: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5958: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5959: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5960: RAISE OKL_API.G_EXCEPTION_ERROR;
5961: END IF;
5962:
5955:
5956: -- Raise exception to rollback this whole block
5957: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5958: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5959: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5960: RAISE OKL_API.G_EXCEPTION_ERROR;
5961: END IF;
5962:
5963: /*
5956: -- Raise exception to rollback this whole block
5957: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5958: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5959: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5960: RAISE OKL_API.G_EXCEPTION_ERROR;
5961: END IF;
5962:
5963: /*
5964: -- Get the first code_combination_id for the transaction
5972:
5973: -- Error: Unable to process small balance
5974: -- adjustments because of a missing Code Combination ID for the
5975: -- contract CONTRACT_NUMBER.
5976: OKL_API.set_message(
5977: p_app_name => G_APP_NAME,
5978: p_msg_name => 'OKL_AM_CODE_CMB_ERROR',
5979: p_token1 => 'CONTRACT_NUMBER',
5980: p_token1_value=> p_term_rec.p_contract_number);
5978: p_msg_name => 'OKL_AM_CODE_CMB_ERROR',
5979: p_token1 => 'CONTRACT_NUMBER',
5980: p_token1_value=> p_term_rec.p_contract_number);
5981:
5982: RAISE OKL_API.G_EXCEPTION_ERROR;
5983:
5984: END IF;
5985:
5986: -- Loop thru the code combination ids to set the lns tbl
5992: lp_ajlv_tbl(i).til_id := k_bal_lns_rec.til_id;
5993:
5994: IF k_bal_lns_rec.tld_id <> -999
5995: AND k_bal_lns_rec.tld_id IS NOT NULL
5996: AND k_bal_lns_rec.tld_id <> OKL_API.G_MISS_NUM THEN
5997: lp_ajlv_tbl(i).tld_id := k_bal_lns_rec.tld_id;
5998: END IF;
5999:
6000: lp_ajlv_tbl(i).amount := k_bal_lns_rec.amount;
6011: /*
6012: --call the txl_lns_adjsts
6013: OKL_TXL_ADJSTS_LNS_PUB.insert_txl_adjsts_lns(
6014: p_api_version => p_api_version,
6015: p_init_msg_list => OKL_API.G_FALSE,
6016: x_return_status => l_return_status,
6017: x_msg_count => x_msg_count,
6018: x_msg_data => x_msg_data,
6019: p_ajlv_tbl => lp_ajlv_tbl,
6018: x_msg_data => x_msg_data,
6019: p_ajlv_tbl => lp_ajlv_tbl,
6020: x_ajlv_tbl => lx_ajlv_tbl);
6021:
6022: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6023: -- Error occurred when creating adjustment records to write
6024: -- off balances.
6025: OKL_API.set_message( p_app_name => G_APP_NAME,
6026: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
6021:
6022: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6023: -- Error occurred when creating adjustment records to write
6024: -- off balances.
6025: OKL_API.set_message( p_app_name => G_APP_NAME,
6026: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
6027: END IF;
6028:
6029: -- Raise exception to rollback this whole block
6026: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
6027: END IF;
6028:
6029: -- Raise exception to rollback this whole block
6030: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6032: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6033: RAISE OKL_API.G_EXCEPTION_ERROR;
6034: END IF;
6027: END IF;
6028:
6029: -- Raise exception to rollback this whole block
6030: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6032: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6033: RAISE OKL_API.G_EXCEPTION_ERROR;
6034: END IF;
6035: */
6028:
6029: -- Raise exception to rollback this whole block
6030: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6032: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6033: RAISE OKL_API.G_EXCEPTION_ERROR;
6034: END IF;
6035: */
6036:
6029: -- Raise exception to rollback this whole block
6030: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6032: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6033: RAISE OKL_API.G_EXCEPTION_ERROR;
6034: END IF;
6035: */
6036:
6037: /* -- Get the currency code for contract
6050: l_formatted_adj_amt := l_formatted_adj_amt || ' ' ||l_currency_code;
6051:
6052: -- Adjustment transaction for AR invoice AR_INVOICE_NUM of amount AMOUNT
6053: -- has been created.
6054: OKL_API.set_message(
6055: p_app_name => G_APP_NAME,
6056: p_msg_name => 'OKL_AM_ACC_ENT_AR_INV_MSG',
6057: p_token1 => 'AR_INVOICE_NUM',
6058: p_token1_value => k_bal_lns_rec.ar_invoice_number,
6060: p_token2_value => l_formatted_adj_amt);
6061:
6062: -- Accounting entries created for transaction type TRX_TYPE
6063: -- and stream type STREAM_TYPE.
6064: OKL_API.set_message(
6065: p_app_name => G_APP_NAME,
6066: p_msg_name => 'OKL_AM_ACC_ENT_CREATED_MSG',
6067: p_token1 => 'TRX_TYPE',
6068: p_token1_value => l_trans_meaning,
6086:
6087: ELSE --(cannot close all balances since tolerance amt is less)
6088:
6089: -- Unable to close all outstanding balances due to tolerance amount.
6090: OKL_API.set_message( p_app_name => G_APP_NAME,
6091: p_msg_name => 'OKL_AM_ERR_CLOSE_BAL');
6092:
6093: -- Get the currency code for contract
6094: l_currency_code := OKL_AM_UTIL_PVT.get_chr_currency(p_term_rec.p_contract_id);
6105: -- Append tolerance amt with currency code
6106: l_formatted_tol_amt := l_formatted_tol_amt || ' ' ||l_currency_code;
6107:
6108: -- Outstanding balance BALANCE_AMT exceeds Tolerance Amount TOLERANCE_AMT.
6109: OKL_API.set_message( p_app_name => G_APP_NAME,
6110: p_msg_name => 'OKL_AM_BAL_GTR_TOL',
6111: p_token1 => 'BALANCE_AMT',
6112: p_token1_value => l_formatted_bal_amt,
6113: p_token2 => 'TOLERANCE_AMT',
6116: -- store the highest degree of error
6117: -- Outstanding balances being greater than tolerance amt is nomore a
6118: -- HARD error, it is now a SOFT error
6119: set_overall_status(
6120: p_return_status => OKL_API.G_RET_STS_SUCCESS,
6121: px_overall_status => px_overall_status);
6122:
6123: -- set the transaction record
6124: set_transaction_rec(
6121: px_overall_status => px_overall_status);
6122:
6123: -- set the transaction record
6124: set_transaction_rec(
6125: p_return_status => OKL_API.G_RET_STS_SUCCESS,
6126: p_overall_status => px_overall_status,
6127: p_tmt_flag => 'TMT_CLOSE_BALANCES_YN',
6128: p_tsu_code => 'WORKING',
6129: p_ret_val => NULL,
6138: IF (is_debug_procedure_on) THEN
6139: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
6140: END IF;
6141: EXCEPTION
6142: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6143: IF (is_debug_exception_on) THEN
6144: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
6145: END IF;
6146:
6155: END IF;
6156:
6157: ROLLBACK TO close_balances;
6158:
6159: x_return_status := OKL_API.G_RET_STS_ERROR;
6160: -- store the highest degree of error
6161: set_overall_status(
6162: p_return_status => x_return_status,
6163: px_overall_status => px_overall_status);
6177: p_tmt_flag => 'TMT_GENERIC_FLAG3_YN',
6178: p_tsu_code => 'ERROR',
6179: px_tcnv_rec => px_tcnv_rec);
6180:
6181: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6182: IF (is_debug_exception_on) THEN
6183: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
6184: END IF;
6185:
6194: END IF;
6195:
6196: ROLLBACK TO close_balances;
6197:
6198: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6199: -- store the highest degree of error
6200: set_overall_status(
6201: p_return_status => x_return_status,
6202: px_overall_status => px_overall_status);
6233: END IF;
6234:
6235: ROLLBACK TO close_balances;
6236:
6237: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6238: -- store the highest degree of error
6239: set_overall_status(
6240: p_return_status => x_return_status,
6241: px_overall_status => px_overall_status);
6256: p_tsu_code => 'ERROR',
6257: px_tcnv_rec => px_tcnv_rec);
6258:
6259: -- Set the oracle error message
6260: OKL_API.set_message(
6261: p_app_name => OKC_API.G_APP_NAME,
6262: p_msg_name => g_unexpected_error,
6263: p_token1 => g_sqlcode_token,
6264: p_token1_value => SQLCODE,
6336: -- Get the product type
6337: CURSOR l_product_type_csr(p_pdt_id IN NUMBER) IS
6338: SELECT description FROM okl_products_v WHERE id = p_pdt_id;
6339:
6340: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
6341: l_api_name VARCHAR2(30) := 'process_accounting_entries';
6342: l_pdt_id NUMBER := 0;
6343:
6344: -- MGAAP 7263041 start
6654: THEN
6655:
6656: -- Error: Unable to create accounting entries because of a missing
6657: -- Product Type for the contract CONTRACT_NUMBER.
6658: okl_api.set_message(p_app_name => g_app_name,
6659: p_msg_name => 'OKL_AM_PRODUCT_ID_ERROR',
6660: p_token1 => 'CONTRACT_NUMBER',
6661: p_token1_value => p_term_rec.p_contract_number);
6662:
6659: p_msg_name => 'OKL_AM_PRODUCT_ID_ERROR',
6660: p_token1 => 'CONTRACT_NUMBER',
6661: p_token1_value => p_term_rec.p_contract_number);
6662:
6663: RAISE okl_api.g_exception_error;
6664:
6665: END IF;
6666: IF (is_debug_statement_on) THEN
6667: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,' l_pdt_id = '||l_pdt_id);
6679: THEN
6680:
6681: -- RMUNJULU 3018641 Step Message
6682: -- Step : Accounting Entries
6683: okl_api.set_message(p_app_name => g_app_name,
6684: p_msg_name => 'OKL_AM_STEP_ACT');
6685:
6686: -- rmunjulu +++++++++ Effective Dated Termination -- start ++++++++++++++++
6687:
6738: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_securitization_pvt.check_khr_ia_associated');
6739: END IF;
6740: -- rmunjulu 4622198 SPECIAL_ACCNT Get special accounting details
6741: okl_securitization_pvt.check_khr_ia_associated(p_api_version => p_api_version,
6742: p_init_msg_list => okl_api.g_false,
6743: x_return_status => l_return_status,
6744: x_msg_count => x_msg_count,
6745: x_msg_data => x_msg_data,
6746: p_khr_id => p_term_rec.p_contract_id,
6751: IF (is_debug_statement_on) THEN
6752: 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);
6753: END IF;
6754:
6755: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6756: THEN
6757: RAISE okl_api.g_exception_unexpected_error;
6758: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6759: THEN
6753: END IF;
6754:
6755: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6756: THEN
6757: RAISE okl_api.g_exception_unexpected_error;
6758: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6759: THEN
6760: RAISE okl_api.g_exception_error;
6761: END IF;
6754:
6755: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6756: THEN
6757: RAISE okl_api.g_exception_unexpected_error;
6758: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6759: THEN
6760: RAISE okl_api.g_exception_error;
6761: END IF;
6762:
6756: THEN
6757: RAISE okl_api.g_exception_unexpected_error;
6758: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6759: THEN
6760: RAISE okl_api.g_exception_error;
6761: END IF;
6762:
6763: -- rmunjulu 4622198 SPECIAL_ACCNT set the special accounting parameters
6764: lip_tmpl_identify_rec.factoring_synd_flag := l_fact_synd_code;
6768: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_account_dist_pub.get_template_info');
6769: END IF;
6770: -- Get the accounting templates
6771: okl_account_dist_pub.get_template_info(p_api_version => p_api_version,
6772: p_init_msg_list => okl_api.g_false,
6773: x_return_status => l_return_status,
6774: x_msg_count => x_msg_count,
6775: x_msg_data => x_msg_data,
6776: p_tmpl_identify_rec => lip_tmpl_identify_rec,
6779: IF (is_debug_statement_on) THEN
6780: 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);
6781: END IF;
6782:
6783: IF l_return_status <> okl_api.g_ret_sts_success
6784: THEN
6785:
6786: -- No accounting templates found matching the transaction type TRX_TYPE
6787: -- and product PRODUCT.
6784: THEN
6785:
6786: -- No accounting templates found matching the transaction type TRX_TYPE
6787: -- and product PRODUCT.
6788: okl_api.set_message(p_app_name => g_app_name,
6789: p_msg_name => 'OKL_AM_NO_ACC_TEMPLATES',
6790: p_token1 => 'TRX_TYPE',
6791: p_token1_value => l_trans_meaning,
6792: p_token2 => 'PRODUCT',
6793: p_token2_value => l_product_type);
6794:
6795: END IF;
6796:
6797: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6798: THEN
6799: RAISE okl_api.g_exception_unexpected_error;
6800: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6801: THEN
6795: END IF;
6796:
6797: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6798: THEN
6799: RAISE okl_api.g_exception_unexpected_error;
6800: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6801: THEN
6802: RAISE okl_api.g_exception_error;
6803: END IF;
6796:
6797: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6798: THEN
6799: RAISE okl_api.g_exception_unexpected_error;
6800: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6801: THEN
6802: RAISE okl_api.g_exception_error;
6803: END IF;
6804: l_functional_currency_code := okl_am_util_pvt.get_functional_currency();
6798: THEN
6799: RAISE okl_api.g_exception_unexpected_error;
6800: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6801: THEN
6802: RAISE okl_api.g_exception_error;
6803: END IF;
6804: l_functional_currency_code := okl_am_util_pvt.get_functional_currency();
6805: --akrangan Bug 6147049 code fix start
6806: --call functional currency conversion only
6829: IF (is_debug_statement_on) THEN
6830: 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);
6831: END IF;
6832: -- If error from OKL_ACCOUNTING_UTIL
6833: IF l_return_status <> okl_api.g_ret_sts_success
6834: THEN
6835:
6836: -- Error occurred when creating accounting entries for
6837: -- transaction TRX_TYPE.
6834: THEN
6835:
6836: -- Error occurred when creating accounting entries for
6837: -- transaction TRX_TYPE.
6838: okl_api.set_message(p_app_name => g_app_name,
6839: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
6840: p_token1 => 'TRX_TYPE',
6841: p_token1_value => l_trans_meaning);
6842:
6849: THEN
6850:
6851: -- No accounting templates found matching the transaction type TRX_TYPE
6852: -- and product PRODUCT.
6853: okl_api.set_message(p_app_name => g_app_name,
6854: p_msg_name => 'OKL_AM_NO_ACC_TEMPLATES',
6855: p_token1 => 'TRX_TYPE',
6856: p_token1_value => l_trans_meaning,
6857: p_token2 => 'PRODUCT',
6856: p_token1_value => l_trans_meaning,
6857: p_token2 => 'PRODUCT',
6858: p_token2_value => l_product_type);
6859:
6860: RAISE okl_api.g_exception_error;
6861:
6862: END IF;
6863:
6864: -- *****************************
6927: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_trx_contracts_pub.create_trx_cntrct_lines');
6928: END IF;
6929: --create trx contract lines table
6930: okl_trx_contracts_pub.create_trx_cntrct_lines(p_api_version => p_api_version,
6931: p_init_msg_list => okl_api.g_false,
6932: x_return_status => l_return_status,
6933: x_msg_count => x_msg_count,
6934: x_msg_data => x_msg_data,
6935: p_tclv_tbl => l_tclv_tbl,
6938: 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);
6939: END IF;
6940:
6941: -- If error inserting line then set message
6942: IF l_return_status <> okl_api.g_ret_sts_success
6943: THEN
6944:
6945: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
6946: okl_api.set_message(p_app_name => g_app_name,
6942: IF l_return_status <> okl_api.g_ret_sts_success
6943: THEN
6944:
6945: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
6946: okl_api.set_message(p_app_name => g_app_name,
6947: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
6948: p_token1 => 'TRX_TYPE',
6949: p_token1_value => l_trans_meaning);
6950:
6950:
6951: END IF;
6952:
6953: -- Raise exception to rollback to savepoint for this block
6954: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6955: THEN
6956: RAISE okl_api.g_exception_unexpected_error;
6957: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6958: THEN
6952:
6953: -- Raise exception to rollback to savepoint for this block
6954: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6955: THEN
6956: RAISE okl_api.g_exception_unexpected_error;
6957: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6958: THEN
6959: RAISE okl_api.g_exception_error;
6960: END IF;
6953: -- Raise exception to rollback to savepoint for this block
6954: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6955: THEN
6956: RAISE okl_api.g_exception_unexpected_error;
6957: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6958: THEN
6959: RAISE okl_api.g_exception_error;
6960: END IF;
6961: --setting the input table type to the obtained outout table type
6955: THEN
6956: RAISE okl_api.g_exception_unexpected_error;
6957: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6958: THEN
6959: RAISE okl_api.g_exception_error;
6960: END IF;
6961: --setting the input table type to the obtained outout table type
6962: l_tclv_tbl := lx_tclv_tbl;
6963:
6975: x_return_status => l_return_status);
6976: IF (is_debug_statement_on) THEN
6977: 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);
6978: END IF;
6979: IF l_return_status <> okl_api.g_ret_sts_success
6980: THEN
6981: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
6982: okl_api.set_message(p_app_name => g_app_name,
6983: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
6978: END IF;
6979: IF l_return_status <> okl_api.g_ret_sts_success
6980: THEN
6981: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
6982: okl_api.set_message(p_app_name => g_app_name,
6983: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
6984: p_token1 => 'TRX_TYPE',
6985: p_token1_value => l_trans_meaning);
6986: END IF;
6984: p_token1 => 'TRX_TYPE',
6985: p_token1_value => l_trans_meaning);
6986: END IF;
6987: -- Raise exception to rollback to savepoint for this block
6988: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6989: THEN
6990: RAISE okl_api.g_exception_unexpected_error;
6991: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6992: THEN
6986: END IF;
6987: -- Raise exception to rollback to savepoint for this block
6988: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6989: THEN
6990: RAISE okl_api.g_exception_unexpected_error;
6991: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6992: THEN
6993: RAISE okl_api.g_exception_error;
6994: END IF;
6987: -- Raise exception to rollback to savepoint for this block
6988: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6989: THEN
6990: RAISE okl_api.g_exception_unexpected_error;
6991: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6992: THEN
6993: RAISE okl_api.g_exception_error;
6994: END IF;
6995:
6989: THEN
6990: RAISE okl_api.g_exception_unexpected_error;
6991: ELSIF (l_return_status = okl_api.g_ret_sts_error)
6992: THEN
6993: RAISE okl_api.g_exception_error;
6994: END IF;
6995:
6996: -- *********************************************
6997: -- Accounting Engine Call
7035: IF (is_debug_statement_on) THEN
7036: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_account_dist_pvt.create_accounting_dist');
7037: END IF;
7038: okl_account_dist_pvt.create_accounting_dist(p_api_version => p_api_version,
7039: p_init_msg_list => okl_api.g_false,
7040: x_return_status => l_return_status,
7041: x_msg_count => x_msg_count,
7042: x_msg_data => x_msg_data,
7043: p_tmpl_identify_tbl => l_tmpl_identify_tbl,
7052: END IF;
7053:
7054: IF l_amount_out_tbl.COUNT = 0
7055: THEN
7056: l_return_status := okl_api.g_ret_sts_error;
7057: END IF;
7058:
7059: IF l_return_status <> okl_api.g_ret_sts_success
7060: THEN
7055: THEN
7056: l_return_status := okl_api.g_ret_sts_error;
7057: END IF;
7058:
7059: IF l_return_status <> okl_api.g_ret_sts_success
7060: THEN
7061: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
7062: okl_api.set_message(p_app_name => g_app_name,
7063: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
7058:
7059: IF l_return_status <> okl_api.g_ret_sts_success
7060: THEN
7061: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
7062: okl_api.set_message(p_app_name => g_app_name,
7063: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
7064: p_token1 => 'TRX_TYPE',
7065: p_token1_value => l_trans_meaning);
7066:
7066:
7067: END IF;
7068:
7069: -- Raise exception to rollback to savepoint for this block
7070: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7071: THEN
7072: RAISE okl_api.g_exception_unexpected_error;
7073: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7074: THEN
7068:
7069: -- Raise exception to rollback to savepoint for this block
7070: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7071: THEN
7072: RAISE okl_api.g_exception_unexpected_error;
7073: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7074: THEN
7075: RAISE okl_api.g_exception_error;
7076: END IF;
7069: -- Raise exception to rollback to savepoint for this block
7070: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7071: THEN
7072: RAISE okl_api.g_exception_unexpected_error;
7073: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7074: THEN
7075: RAISE okl_api.g_exception_error;
7076: END IF;
7077:
7071: THEN
7072: RAISE okl_api.g_exception_unexpected_error;
7073: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7074: THEN
7075: RAISE okl_api.g_exception_error;
7076: END IF;
7077:
7078: -- ******************************************************
7079: -- Update Trx Contracts with Header and Line Amounts
7123: lx_template_tbl := l_template_out_tbl(m).template_tbl;
7124: IF (lx_amount_tbl.COUNT <> 1 OR lx_template_tbl.COUNT <> 1)
7125: THEN
7126: --raise error
7127: l_return_status := okl_api.g_ret_sts_error;
7128: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
7129: okl_api.set_message(p_app_name => g_app_name,
7130: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
7131: p_token1 => 'TRX_TYPE',
7125: THEN
7126: --raise error
7127: l_return_status := okl_api.g_ret_sts_error;
7128: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
7129: okl_api.set_message(p_app_name => g_app_name,
7130: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
7131: p_token1 => 'TRX_TYPE',
7132: p_token1_value => l_trans_meaning);
7133:
7131: p_token1 => 'TRX_TYPE',
7132: p_token1_value => l_trans_meaning);
7133:
7134: -- Raise exception to rollback to savepoint for this block
7135: RAISE okl_api.g_exception_error;
7136: ELSE
7137: l := lx_amount_tbl.FIRST;
7138: --update line amount
7139: l_tclv_tbl(k).amount := NVL(lx_amount_tbl(l),0);
7152: IF (is_debug_statement_on) THEN
7153: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_trx_contracts_pub.update_trx_contracts');
7154: END IF;
7155: okl_trx_contracts_pub.update_trx_contracts(p_api_version => p_api_version,
7156: p_init_msg_list => okl_api.g_false,
7157: x_return_status => l_return_status,
7158: x_msg_count => x_msg_count,
7159: x_msg_data => x_msg_data,
7160: p_tcnv_rec => lip_tcnv_rec,
7164: --handle exception
7165: IF (is_debug_statement_on) THEN
7166: 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);
7167: END IF;
7168: IF l_return_status <> okl_api.g_ret_sts_success
7169: THEN
7170: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
7171: okl_api.set_message(p_app_name => g_app_name,
7172: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
7167: END IF;
7168: IF l_return_status <> okl_api.g_ret_sts_success
7169: THEN
7170: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
7171: okl_api.set_message(p_app_name => g_app_name,
7172: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
7173: p_token1 => 'TRX_TYPE',
7174: p_token1_value => l_trans_meaning);
7175:
7175:
7176: END IF;
7177:
7178: -- Raise exception to rollback to savepoint for this block
7179: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7180: THEN
7181: RAISE okl_api.g_exception_unexpected_error;
7182: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7183: THEN
7177:
7178: -- Raise exception to rollback to savepoint for this block
7179: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7180: THEN
7181: RAISE okl_api.g_exception_unexpected_error;
7182: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7183: THEN
7184: RAISE okl_api.g_exception_error;
7185: END IF;
7178: -- Raise exception to rollback to savepoint for this block
7179: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7180: THEN
7181: RAISE okl_api.g_exception_unexpected_error;
7182: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7183: THEN
7184: RAISE okl_api.g_exception_error;
7185: END IF;
7186:
7180: THEN
7181: RAISE okl_api.g_exception_unexpected_error;
7182: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7183: THEN
7184: RAISE okl_api.g_exception_error;
7185: END IF;
7186:
7187: -- Set the return record
7188: px_tcnv_rec := lix_tcnv_rec;
7199: ,P_TCLV_TBL => lx_tclv_tbl
7200: ,p_ctxt_val_tbl => l_ctxt_tbl
7201: ,p_acc_gen_primary_key_tbl => lp_acc_gen_primary_key_tbl);
7202:
7203: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7204: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7205: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
7206: RAISE Okl_Api.G_EXCEPTION_ERROR;
7207: END IF;
7200: ,p_ctxt_val_tbl => l_ctxt_tbl
7201: ,p_acc_gen_primary_key_tbl => lp_acc_gen_primary_key_tbl);
7202:
7203: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7204: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7205: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
7206: RAISE Okl_Api.G_EXCEPTION_ERROR;
7207: END IF;
7208:
7201: ,p_acc_gen_primary_key_tbl => lp_acc_gen_primary_key_tbl);
7202:
7203: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7204: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7205: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
7206: RAISE Okl_Api.G_EXCEPTION_ERROR;
7207: END IF;
7208:
7209: -- rmunjulu 4141991 Get the contract status
7202:
7203: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7204: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7205: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
7206: RAISE Okl_Api.G_EXCEPTION_ERROR;
7207: END IF;
7208:
7209: -- rmunjulu 4141991 Get the contract status
7210: OPEN get_k_sts_csr(p_term_rec.p_contract_id);
7257: IF (is_debug_statement_on) THEN
7258: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_generate_accruals_pub.reverse_accruals');
7259: END IF;
7260: okl_generate_accruals_pub.reverse_accruals(p_api_version => p_api_version,
7261: p_init_msg_list => okl_api.g_false,
7262: x_return_status => l_return_status,
7263: x_msg_count => x_msg_count,
7264: x_msg_data => x_msg_data,
7265: p_khr_id => p_term_rec.p_contract_id,
7270: p_tcn_type => l_empty_tcn_type); -- No value needs to be passed to this
7271: IF (is_debug_statement_on) THEN
7272: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_generate_accruals_pub.reverse_accruals l_return_status = '||l_return_status);
7273: END IF;
7274: IF l_return_status <> okl_api.g_ret_sts_success
7275: THEN
7276:
7277: -- Message: Unable to do reversal of accrual during
7278: -- termination of contract CONTRACT_NUMBER.
7275: THEN
7276:
7277: -- Message: Unable to do reversal of accrual during
7278: -- termination of contract CONTRACT_NUMBER.
7279: okl_api.set_message(p_app_name => g_app_name,
7280: p_msg_name => 'OKL_AM_EDT_REVERSAL_ERR',
7281: p_token1 => 'CONTRACT_NUMBER',
7282: p_token1_value => p_term_rec.p_contract_number);
7283: END IF;
7282: p_token1_value => p_term_rec.p_contract_number);
7283: END IF;
7284:
7285: -- Raise exception to rollback this whole block
7286: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7287: THEN
7288: RAISE okl_api.g_exception_unexpected_error;
7289: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7290: THEN
7284:
7285: -- Raise exception to rollback this whole block
7286: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7287: THEN
7288: RAISE okl_api.g_exception_unexpected_error;
7289: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7290: THEN
7291: RAISE okl_api.g_exception_error;
7292: END IF;
7285: -- Raise exception to rollback this whole block
7286: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7287: THEN
7288: RAISE okl_api.g_exception_unexpected_error;
7289: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7290: THEN
7291: RAISE okl_api.g_exception_error;
7292: END IF;
7293: END IF; -- 13074256 End to check if Termination from quote
7287: THEN
7288: RAISE okl_api.g_exception_unexpected_error;
7289: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7290: THEN
7291: RAISE okl_api.g_exception_error;
7292: END IF;
7293: END IF; -- 13074256 End to check if Termination from quote
7294:
7295:
7307: l_trans_meaning := okl_am_util_pvt.get_lookup_meaning(p_lookup_type => 'OKL_ACCOUNTING_EVENT_TYPE',
7308: p_lookup_code => 'ACCRUAL',
7309: p_validate_yn => 'Y');
7310:
7311: IF l_return_status <> okl_api.g_ret_sts_success
7312: THEN
7313:
7314: -- Message: Unable to find a transaction type for
7315: -- the transaction TRY_NAME
7312: THEN
7313:
7314: -- Message: Unable to find a transaction type for
7315: -- the transaction TRY_NAME
7316: okl_api.set_message(p_app_name => g_app_name,
7317: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
7318: p_token1 => 'TRY_NAME',
7319: p_token1_value => l_trans_meaning);
7320:
7319: p_token1_value => l_trans_meaning);
7320:
7321: --Message: Unable to do reversal of non-income during termination
7322: -- of contract CONTRACT_NUMBER.
7323: okl_api.set_message(p_app_name => g_app_name,
7324: p_msg_name => 'OKL_AM_REV_NONINC_ERR',
7325: p_token1 => 'CONTRACT_NUMBER',
7326: p_token1_value => p_term_rec.p_contract_number);
7327:
7327:
7328: END IF;
7329:
7330: -- Raise exception to rollback this whole block
7331: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7332: THEN
7333: RAISE okl_api.g_exception_unexpected_error;
7334: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7335: THEN
7329:
7330: -- Raise exception to rollback this whole block
7331: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7332: THEN
7333: RAISE okl_api.g_exception_unexpected_error;
7334: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7335: THEN
7336: RAISE okl_api.g_exception_error;
7337: END IF;
7330: -- Raise exception to rollback this whole block
7331: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7332: THEN
7333: RAISE okl_api.g_exception_unexpected_error;
7334: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7335: THEN
7336: RAISE okl_api.g_exception_error;
7337: END IF;
7338:
7332: THEN
7333: RAISE okl_api.g_exception_unexpected_error;
7334: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7335: THEN
7336: RAISE okl_api.g_exception_error;
7337: END IF;
7338:
7339: -- Set the rec type in parameter
7340: l_catchup_rec.contract_id := p_term_rec.p_contract_id;
7353: IF (is_debug_statement_on) THEN
7354: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_generate_accruals_pub.catchup_accruals');
7355: END IF;
7356: okl_generate_accruals_pub.catchup_accruals(p_api_version => p_api_version,
7357: p_init_msg_list => okl_api.g_false,
7358: x_return_status => l_return_status,
7359: x_msg_count => x_msg_count,
7360: x_msg_data => x_msg_data,
7361: p_catchup_rec => l_catchup_rec,
7363: x_tclv_tbl => lx_tclv_tbl);
7364: IF (is_debug_statement_on) THEN
7365: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_generate_accruals_pub.catchup_accruals l_return_status = '||l_return_status);
7366: END IF;
7367: IF l_return_status <> okl_api.g_ret_sts_success
7368: THEN
7369:
7370: --Message: Unable to do reversal of non-income during termination
7371: -- of contract CONTRACT_NUMBER.
7368: THEN
7369:
7370: --Message: Unable to do reversal of non-income during termination
7371: -- of contract CONTRACT_NUMBER.
7372: okl_api.set_message(p_app_name => g_app_name,
7373: p_msg_name => 'OKL_AM_REV_NONINC_ERR',
7374: p_token1 => 'CONTRACT_NUMBER',
7375: p_token1_value => p_term_rec.p_contract_number);
7376: END IF;
7375: p_token1_value => p_term_rec.p_contract_number);
7376: END IF;
7377:
7378: -- Raise exception to rollback this whole block
7379: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7380: THEN
7381: RAISE okl_api.g_exception_unexpected_error;
7382: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7383: THEN
7377:
7378: -- Raise exception to rollback this whole block
7379: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7380: THEN
7381: RAISE okl_api.g_exception_unexpected_error;
7382: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7383: THEN
7384: RAISE okl_api.g_exception_error;
7385: END IF;
7378: -- Raise exception to rollback this whole block
7379: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7380: THEN
7381: RAISE okl_api.g_exception_unexpected_error;
7382: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7383: THEN
7384: RAISE okl_api.g_exception_error;
7385: END IF;
7386:
7380: THEN
7381: RAISE okl_api.g_exception_unexpected_error;
7382: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7383: THEN
7384: RAISE okl_api.g_exception_error;
7385: END IF;
7386:
7387: -- MGAAP 7263041 start
7388:
7403: IF (is_debug_statement_on) THEN
7404: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_generate_accruals_pub.catchup_accruals for SECONDARY');
7405: END IF;
7406: okl_generate_accruals_pub.catchup_accruals(p_api_version => p_api_version,
7407: p_init_msg_list => okl_api.g_false,
7408: x_return_status => l_return_status,
7409: x_msg_count => x_msg_count,
7410: x_msg_data => x_msg_data,
7411: p_catchup_rec => l_catchup_rec,
7414: p_representation_type => 'SECONDARY');
7415: IF (is_debug_statement_on) THEN
7416: 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);
7417: END IF;
7418: IF l_return_status <> okl_api.g_ret_sts_success
7419: THEN
7420:
7421: --Message: Unable to do reversal of non-income during termination
7422: -- of contract CONTRACT_NUMBER.
7419: THEN
7420:
7421: --Message: Unable to do reversal of non-income during termination
7422: -- of contract CONTRACT_NUMBER.
7423: okl_api.set_message(p_app_name => g_app_name,
7424: p_msg_name => 'OKL_AM_REV_NONINC_ERR',
7425: p_token1 => 'CONTRACT_NUMBER',
7426: p_token1_value => p_term_rec.p_contract_number);
7427: END IF;
7426: p_token1_value => p_term_rec.p_contract_number);
7427: END IF;
7428:
7429: -- Raise exception to rollback this whole block
7430: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7431: THEN
7432: RAISE okl_api.g_exception_unexpected_error;
7433: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7434: THEN
7428:
7429: -- Raise exception to rollback this whole block
7430: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7431: THEN
7432: RAISE okl_api.g_exception_unexpected_error;
7433: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7434: THEN
7435: RAISE okl_api.g_exception_error;
7436: END IF;
7429: -- Raise exception to rollback this whole block
7430: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7431: THEN
7432: RAISE okl_api.g_exception_unexpected_error;
7433: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7434: THEN
7435: RAISE okl_api.g_exception_error;
7436: END IF;
7437:
7431: THEN
7432: RAISE okl_api.g_exception_unexpected_error;
7433: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7434: THEN
7435: RAISE okl_api.g_exception_error;
7436: END IF;
7437:
7438: END IF;
7439:
7453: IF (is_debug_statement_on) THEN
7454: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_rev_loss_prov_pub.reverse_loss_provisions');
7455: END IF;
7456: okl_rev_loss_prov_pub.reverse_loss_provisions(p_api_version => p_api_version,
7457: p_init_msg_list => okl_api.g_false,
7458: x_return_status => l_return_status,
7459: x_msg_count => x_msg_count,
7460: x_msg_data => x_msg_data,
7461: p_lprv_rec => l_lprv_rec);
7461: p_lprv_rec => l_lprv_rec);
7462: IF (is_debug_statement_on) THEN
7463: 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);
7464: END IF;
7465: IF l_return_status <> okl_api.g_ret_sts_success
7466: THEN
7467:
7468: -- Message: Unable to do reversal of loss provisions during
7469: -- termination of contract CONTRACT_NUMBER.
7466: THEN
7467:
7468: -- Message: Unable to do reversal of loss provisions during
7469: -- termination of contract CONTRACT_NUMBER.
7470: okl_api.set_message(p_app_name => g_app_name,
7471: p_msg_name => 'OKL_AM_REV_LOSPROV_ERR',
7472: p_token1 => 'CONTRACT_NUMBER',
7473: p_token1_value => p_term_rec.p_contract_number);
7474: END IF;
7473: p_token1_value => p_term_rec.p_contract_number);
7474: END IF;
7475:
7476: -- Raise exception to rollback this whole block
7477: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7478: THEN
7479: RAISE okl_api.g_exception_unexpected_error;
7480: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7481: THEN
7475:
7476: -- Raise exception to rollback this whole block
7477: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7478: THEN
7479: RAISE okl_api.g_exception_unexpected_error;
7480: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7481: THEN
7482: RAISE okl_api.g_exception_error;
7483: END IF;
7476: -- Raise exception to rollback this whole block
7477: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7478: THEN
7479: RAISE okl_api.g_exception_unexpected_error;
7480: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7481: THEN
7482: RAISE okl_api.g_exception_error;
7483: END IF;
7484:
7478: THEN
7479: RAISE okl_api.g_exception_unexpected_error;
7480: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7481: THEN
7482: RAISE okl_api.g_exception_error;
7483: END IF;
7484:
7485: -- rmunjulu +++++++++ Effective Dated Termination -- start ++++++++++++++++
7486:
7628: x_msg_data => x_msg_data,
7629: p_acceleration_rec => l_acceleration_rec,
7630: x_trx_number => l_trx_number); -- MGAAP 7263041
7631:
7632: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7633: THEN
7634: RAISE okl_api.g_exception_unexpected_error;
7635: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7636: THEN
7630: x_trx_number => l_trx_number); -- MGAAP 7263041
7631:
7632: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7633: THEN
7634: RAISE okl_api.g_exception_unexpected_error;
7635: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7636: THEN
7637: RAISE okl_api.g_exception_error;
7638: END IF;
7631:
7632: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7633: THEN
7634: RAISE okl_api.g_exception_unexpected_error;
7635: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7636: THEN
7637: RAISE okl_api.g_exception_error;
7638: END IF;
7639:
7633: THEN
7634: RAISE okl_api.g_exception_unexpected_error;
7635: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7636: THEN
7637: RAISE okl_api.g_exception_error;
7638: END IF;
7639:
7640: -- sosharma added multigaap check for bug 13075531
7641: IF (l_multi_gaap_yn = 'Y') THEN
7646: 'EXPENSE',
7647: 'AMORTIZED_FEE_EXPENSE',
7648: l_return_status,
7649: lx_sty_id_rep);
7650: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
7651: l_acceleration_rec.sty_id := lx_sty_id_rep;
7652: l_acceleration_rec.trx_number := l_trx_number;
7653:
7654: OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals (
7666: IF (is_debug_statement_on) THEN
7667: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
7668: END IF;
7669:
7670: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7671: THEN
7672: RAISE okl_api.g_exception_unexpected_error;
7673: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7674: THEN
7668: END IF;
7669:
7670: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7671: THEN
7672: RAISE okl_api.g_exception_unexpected_error;
7673: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7674: THEN
7675: RAISE okl_api.g_exception_error;
7676: END IF;
7669:
7670: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7671: THEN
7672: RAISE okl_api.g_exception_unexpected_error;
7673: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7674: THEN
7675: RAISE okl_api.g_exception_error;
7676: END IF;
7677:
7671: THEN
7672: RAISE okl_api.g_exception_unexpected_error;
7673: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7674: THEN
7675: RAISE okl_api.g_exception_error;
7676: END IF;
7677:
7678: END IF;
7679: -- End MGAAP 7263041
7689: IF (is_debug_statement_on) THEN
7690: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_am_lease_loan_trmnt_pvt.process_adjustments');
7691: END IF;
7692: okl_am_lease_loan_trmnt_pvt.process_adjustments(p_api_version => p_api_version,
7693: p_init_msg_list => okl_api.g_false,
7694: x_return_status => l_return_status,
7695: x_msg_count => x_msg_count,
7696: x_msg_data => x_msg_data,
7697: p_term_rec => p_term_rec,
7710: -- End MDOKAL Bug 3061765
7711: -- Smoduga
7712: -- Call to Process discount and Subsidy during acceptance of a termination quote
7713: okl_am_lease_loan_trmnt_pvt.process_discount_subsidy(p_api_version => p_api_version,
7714: p_init_msg_list => okl_api.g_false,
7715: x_return_status => l_return_status,
7716: x_msg_count => x_msg_count,
7717: x_msg_data => x_msg_data,
7718: p_term_rec => p_term_rec,
7720: p_termination_date => p_sys_date);
7721: IF (is_debug_statement_on) THEN
7722: 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);
7723: END IF;
7724: IF l_return_status <> okl_api.g_ret_sts_success
7725: THEN
7726:
7727: okl_api.set_message(p_app_name => g_app_name,
7728: p_msg_name => 'OKL_AM_SUBSIDY_PROC_FAIL');
7723: END IF;
7724: IF l_return_status <> okl_api.g_ret_sts_success
7725: THEN
7726:
7727: okl_api.set_message(p_app_name => g_app_name,
7728: p_msg_name => 'OKL_AM_SUBSIDY_PROC_FAIL');
7729: END IF;
7730:
7731: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7727: okl_api.set_message(p_app_name => g_app_name,
7728: p_msg_name => 'OKL_AM_SUBSIDY_PROC_FAIL');
7729: END IF;
7730:
7731: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7732: THEN
7733: RAISE okl_api.g_exception_unexpected_error;
7734: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7735: THEN
7729: END IF;
7730:
7731: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7732: THEN
7733: RAISE okl_api.g_exception_unexpected_error;
7734: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7735: THEN
7736: RAISE okl_api.g_exception_error;
7737: END IF;
7730:
7731: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7732: THEN
7733: RAISE okl_api.g_exception_unexpected_error;
7734: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7735: THEN
7736: RAISE okl_api.g_exception_error;
7737: END IF;
7738: -- Smoduga
7732: THEN
7733: RAISE okl_api.g_exception_unexpected_error;
7734: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7735: THEN
7736: RAISE okl_api.g_exception_error;
7737: END IF;
7738: -- Smoduga
7739: -- Call to Process discount and Subsidy during acceptance of a termination quote
7740: IF (is_debug_statement_on) THEN
7741: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_am_lease_loan_trmnt_pvt.process_loan_refunds');
7742: END IF;
7743: -- rmunjulu LOANS_ENHANCEMENTS Call to refund excess loan payments
7744: okl_am_lease_loan_trmnt_pvt.process_loan_refunds(p_api_version => p_api_version,
7745: p_init_msg_list => okl_api.g_false,
7746: x_return_status => l_return_status,
7747: x_msg_count => x_msg_count,
7748: x_msg_data => x_msg_data,
7749: p_term_rec => p_term_rec,
7752: p_termination_date => p_sys_date);
7753: IF (is_debug_statement_on) THEN
7754: 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);
7755: END IF;
7756: IF l_return_status <> okl_api.g_ret_sts_success
7757: THEN
7758:
7759: okl_api.set_message(p_app_name => g_app_name,
7760: p_msg_name => 'OKL_AM_LOAN_REFUND_FAILED');
7755: END IF;
7756: IF l_return_status <> okl_api.g_ret_sts_success
7757: THEN
7758:
7759: okl_api.set_message(p_app_name => g_app_name,
7760: p_msg_name => 'OKL_AM_LOAN_REFUND_FAILED');
7761: END IF;
7762:
7763: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7759: okl_api.set_message(p_app_name => g_app_name,
7760: p_msg_name => 'OKL_AM_LOAN_REFUND_FAILED');
7761: END IF;
7762:
7763: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7764: THEN
7765: RAISE okl_api.g_exception_unexpected_error;
7766: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7767: THEN
7761: END IF;
7762:
7763: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7764: THEN
7765: RAISE okl_api.g_exception_unexpected_error;
7766: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7767: THEN
7768: RAISE okl_api.g_exception_error;
7769: END IF;
7762:
7763: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7764: THEN
7765: RAISE okl_api.g_exception_unexpected_error;
7766: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7767: THEN
7768: RAISE okl_api.g_exception_error;
7769: END IF;
7770:
7764: THEN
7765: RAISE okl_api.g_exception_unexpected_error;
7766: ELSIF (l_return_status = okl_api.g_ret_sts_error)
7767: THEN
7768: RAISE okl_api.g_exception_error;
7769: END IF;
7770:
7771: -- *************
7772: -- SUCCESS MESSAGES
7773: -- *************
7774:
7775: -- Message: Reversal of non-income during termination
7776: -- of contract CONTRACT_NUMBER done successfully.
7777: okl_api.set_message(p_app_name => g_app_name,
7778: p_msg_name => 'OKL_AM_REV_NONINC_SUC',
7779: p_token1 => 'CONTRACT_NUMBER',
7780: p_token1_value => p_term_rec.p_contract_number);
7781:
7780: p_token1_value => p_term_rec.p_contract_number);
7781:
7782: -- Message: Reversal of loss provisions during
7783: -- termination of contract CONTRACT_NUMBER done successfully.
7784: okl_api.set_message(p_app_name => g_app_name,
7785: p_msg_name => 'OKL_AM_REV_LOSPROV_SUC',
7786: p_token1 => 'CONTRACT_NUMBER',
7787: p_token1_value => p_term_rec.p_contract_number);
7788:
7794: p_lookup_code => 'TERMINATION',
7795: p_validate_yn => 'Y');
7796:
7797: -- Accounting entries created for transaction type TRX_TYPE.
7798: okl_api.set_message(p_app_name => g_app_name,
7799: p_msg_name => 'OKL_AM_ACC_ENT_CREATED',
7800: p_token1 => 'TRX_TYPE',
7801: p_token1_value => l_trans_meaning);
7802:
7818: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
7819: END IF;
7820: EXCEPTION
7821:
7822: WHEN okl_api.g_exception_error THEN
7823: IF (is_debug_exception_on) THEN
7824: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
7825: END IF;
7826:
7865: END IF;
7866:
7867: ROLLBACK TO accounting_entries;
7868:
7869: x_return_status := okl_api.g_ret_sts_error;
7870: -- store the highest degree of error
7871: set_overall_status(p_return_status => x_return_status,
7872: px_overall_status => px_overall_status);
7873:
7877: p_tmt_flag => 'TMT_ACCOUNTING_ENTRIES_YN',
7878: p_tsu_code => 'ERROR',
7879: px_tcnv_rec => px_tcnv_rec);
7880:
7881: WHEN okl_api.g_exception_unexpected_error THEN
7882: IF (is_debug_exception_on) THEN
7883: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
7884: END IF;
7885:
7925: END IF;
7926:
7927: ROLLBACK TO accounting_entries;
7928:
7929: x_return_status := okl_api.g_ret_sts_unexp_error;
7930: -- store the highest degree of error
7931: set_overall_status(p_return_status => x_return_status,
7932: px_overall_status => px_overall_status);
7933:
7984: END IF;
7985:
7986: ROLLBACK TO accounting_entries;
7987:
7988: x_return_status := okl_api.g_ret_sts_unexp_error;
7989: -- store the highest degree of error
7990: set_overall_status(p_return_status => x_return_status,
7991: px_overall_status => px_overall_status);
7992:
7997: p_tsu_code => 'ERROR',
7998: px_tcnv_rec => px_tcnv_rec);
7999:
8000: -- Set the oracle error message
8001: okl_api.set_message(p_app_name => okc_api.g_app_name,
8002: p_msg_name => g_unexpected_error,
8003: p_token1 => g_sqlcode_token,
8004: p_token1_value => SQLCODE,
8005: p_token2 => g_sqlerrm_token,
8156: IF (is_debug_procedure_on) THEN
8157: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
8158: END IF;
8159:
8160: x_return_status := OKL_API.START_ACTIVITY (
8161: l_api_name
8162: ,p_init_msg_list
8163: ,'_PVT'
8164: ,x_return_status);
8162: ,p_init_msg_list
8163: ,'_PVT'
8164: ,x_return_status);
8165: -- Check if activity started successfully
8166: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8167: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8168: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8169: RAISE OKL_API.G_EXCEPTION_ERROR;
8170: END IF;
8163: ,'_PVT'
8164: ,x_return_status);
8165: -- Check if activity started successfully
8166: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8167: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8168: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8169: RAISE OKL_API.G_EXCEPTION_ERROR;
8170: END IF;
8171: IF (is_debug_statement_on) THEN
8164: ,x_return_status);
8165: -- Check if activity started successfully
8166: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8167: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8168: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8169: RAISE OKL_API.G_EXCEPTION_ERROR;
8170: END IF;
8171: IF (is_debug_statement_on) THEN
8172: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
8165: -- Check if activity started successfully
8166: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8167: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8168: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8169: RAISE OKL_API.G_EXCEPTION_ERROR;
8170: END IF;
8171: IF (is_debug_statement_on) THEN
8172: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
8173: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
8181: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
8182: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
8183: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_quote_id = '||p_quote_id);
8184: END IF;
8185: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8186:
8187: OPEN l_sub_line_csr(p_chr_id => p_khr_id,
8188: p_lty_code => 'ITEM',
8189: p_cle_id => p_kle_id);
8205: l_oec := l_asset_ret_dtls.asset_fmv_amount;
8206:
8207: l_set_of_books_id := OKL_ACCOUNTING_UTIL.GET_SET_OF_BOOKS_ID;
8208:
8209: /*IF (p_tax_book_2 IS NOT NULL AND p_tax_book_2 <> OKL_API.G_MISS_CHAR)
8210: THEN
8211: l_max_books := 3;
8212: ELSE
8213: l_max_books := 2;
8218: LOOP
8219:
8220: IF (l_counter=1) OR
8221: (l_counter=2 AND p_tax_book_1 IS NOT NULL
8222: AND p_tax_book_1 <> OKL_API.G_MISS_CHAR) OR
8223: (l_counter=3 AND p_tax_book_2 IS NOT NULL
8224: AND p_tax_book_2 <> OKL_API.G_MISS_CHAR) OR
8225: (l_counter=4 AND p_rep_book IS NOT NULL
8226: AND p_rep_book <> OKL_API.G_MISS_CHAR) THEN
8220: IF (l_counter=1) OR
8221: (l_counter=2 AND p_tax_book_1 IS NOT NULL
8222: AND p_tax_book_1 <> OKL_API.G_MISS_CHAR) OR
8223: (l_counter=3 AND p_tax_book_2 IS NOT NULL
8224: AND p_tax_book_2 <> OKL_API.G_MISS_CHAR) OR
8225: (l_counter=4 AND p_rep_book IS NOT NULL
8226: AND p_rep_book <> OKL_API.G_MISS_CHAR) THEN
8227: l_trans_rec.transaction_type_code := 'ADDITION';
8228: l_asset_desc_rec.asset_key_ccid:= p_asset_key_id;
8222: AND p_tax_book_1 <> OKL_API.G_MISS_CHAR) OR
8223: (l_counter=3 AND p_tax_book_2 IS NOT NULL
8224: AND p_tax_book_2 <> OKL_API.G_MISS_CHAR) OR
8225: (l_counter=4 AND p_rep_book IS NOT NULL
8226: AND p_rep_book <> OKL_API.G_MISS_CHAR) THEN
8227: l_trans_rec.transaction_type_code := 'ADDITION';
8228: l_asset_desc_rec.asset_key_ccid:= p_asset_key_id;
8229: l_asset_desc_rec.current_units:= l_model_line_rec.number_of_items;
8230: l_asset_hdr_rec.asset_id := NULL;
8284: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling fa_addition_pub.do_addition');
8285: END IF;
8286: fa_addition_pub.do_addition
8287: (p_api_version => l_api_version,
8288: p_init_msg_list => OKL_API.G_FALSE,
8289: p_commit => OKL_API.G_FALSE,
8290: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8291: x_return_status => x_return_status,
8292: x_msg_count => x_msg_count,
8285: END IF;
8286: fa_addition_pub.do_addition
8287: (p_api_version => l_api_version,
8288: p_init_msg_list => OKL_API.G_FALSE,
8289: p_commit => OKL_API.G_FALSE,
8290: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8291: x_return_status => x_return_status,
8292: x_msg_count => x_msg_count,
8293: x_msg_data => x_msg_data,
8308: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called fa_addition_pub.do_addition x_return_status = '||x_return_status);
8309: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_asset_hdr_rec.asset_id = '||l_asset_hdr_rec.asset_id);
8310: END IF;
8311:
8312: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8313: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8314: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8315: RAISE OKL_API.G_EXCEPTION_ERROR;
8316: END IF;
8309: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_asset_hdr_rec.asset_id = '||l_asset_hdr_rec.asset_id);
8310: END IF;
8311:
8312: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8313: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8314: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8315: RAISE OKL_API.G_EXCEPTION_ERROR;
8316: END IF;
8317:
8310: END IF;
8311:
8312: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8313: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8314: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8315: RAISE OKL_API.G_EXCEPTION_ERROR;
8316: END IF;
8317:
8318:
8311:
8312: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8313: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8314: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8315: RAISE OKL_API.G_EXCEPTION_ERROR;
8316: END IF;
8317:
8318:
8319: l_asset_id := l_asset_hdr_rec.asset_id;
8342: IF (is_debug_statement_on) THEN
8343: 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);
8344: END IF;
8345:
8346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8347: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8348: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8349: RAISE OKL_API.G_EXCEPTION_ERROR;
8350: END IF;
8343: 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);
8344: END IF;
8345:
8346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8347: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8348: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8349: RAISE OKL_API.G_EXCEPTION_ERROR;
8350: END IF;
8351:
8344: END IF;
8345:
8346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8347: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8348: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8349: RAISE OKL_API.G_EXCEPTION_ERROR;
8350: END IF;
8351:
8352: -- Now create 'Internal Asset Creation' transaction lines
8345:
8346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8347: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8348: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8349: RAISE OKL_API.G_EXCEPTION_ERROR;
8350: END IF;
8351:
8352: -- Now create 'Internal Asset Creation' transaction lines
8353:
8376: 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);
8377: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_talv_rec.ID = '||x_talv_rec.ID);
8378: END IF;
8379:
8380: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8381: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8382: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8383: RAISE OKL_API.G_EXCEPTION_ERROR;
8384: END IF;
8377: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_talv_rec.ID = '||x_talv_rec.ID);
8378: END IF;
8379:
8380: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8381: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8382: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8383: RAISE OKL_API.G_EXCEPTION_ERROR;
8384: END IF;
8385:
8378: END IF;
8379:
8380: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8381: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8382: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8383: RAISE OKL_API.G_EXCEPTION_ERROR;
8384: END IF;
8385:
8386: END IF;
8379:
8380: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8381: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8382: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8383: RAISE OKL_API.G_EXCEPTION_ERROR;
8384: END IF;
8385:
8386: END IF;
8387:
8432: IF (is_debug_statement_on) THEN
8433: 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);
8434: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_txdv_rec.ID = '||x_txdv_rec.ID);
8435: END IF;
8436: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8437: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8438: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8439: RAISE OKL_API.G_EXCEPTION_ERROR;
8440: END IF;
8433: 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);
8434: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_txdv_rec.ID = '||x_txdv_rec.ID);
8435: END IF;
8436: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8437: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8438: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8439: RAISE OKL_API.G_EXCEPTION_ERROR;
8440: END IF;
8441:
8434: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_txdv_rec.ID = '||x_txdv_rec.ID);
8435: END IF;
8436: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8437: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8438: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8439: RAISE OKL_API.G_EXCEPTION_ERROR;
8440: END IF;
8441:
8442: l_line_detail_number := l_line_detail_number + 1;
8435: END IF;
8436: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8437: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8438: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8439: RAISE OKL_API.G_EXCEPTION_ERROR;
8440: END IF;
8441:
8442: l_line_detail_number := l_line_detail_number + 1;
8443: END IF;
8445:
8446: END IF;
8447: END LOOP;
8448:
8449: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data );
8450: IF (is_debug_procedure_on) THEN
8451: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
8452: END IF;
8453: EXCEPTION
8450: IF (is_debug_procedure_on) THEN
8451: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
8452: END IF;
8453: EXCEPTION
8454: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8455: IF (is_debug_exception_on) THEN
8456: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
8457: END IF;
8458:
8455: IF (is_debug_exception_on) THEN
8456: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
8457: END IF;
8458:
8459: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8460: l_api_name,
8461: G_PKG_NAME,
8462: 'OKL_API.G_RET_STS_ERROR',
8463: x_msg_count,
8458:
8459: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8460: l_api_name,
8461: G_PKG_NAME,
8462: 'OKL_API.G_RET_STS_ERROR',
8463: x_msg_count,
8464: x_msg_data,
8465: '_PVT');
8466: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8462: 'OKL_API.G_RET_STS_ERROR',
8463: x_msg_count,
8464: x_msg_data,
8465: '_PVT');
8466: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8467: IF (is_debug_exception_on) THEN
8468: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
8469: END IF;
8470:
8467: IF (is_debug_exception_on) THEN
8468: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
8469: END IF;
8470:
8471: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8472: l_api_name,
8473: G_PKG_NAME,
8474: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8475: x_msg_count,
8470:
8471: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8472: l_api_name,
8473: G_PKG_NAME,
8474: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8475: x_msg_count,
8476: x_msg_data,
8477: '_PVT');
8478: WHEN OTHERS THEN
8479: IF (is_debug_exception_on) THEN
8480: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
8481: END IF;
8482:
8483: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8484: l_api_name,
8485: G_PKG_NAME,
8486: 'OTHERS',
8487: x_msg_count,
8537: l_date_accepted DATE;
8538: l_quote_type_code VARCHAR2(30);
8539: l_repossess_flag VARCHAR2(1);
8540: BEGIN
8541: x_return_status := OKL_API.START_ACTIVITY (
8542: l_api_name
8543: ,p_init_msg_list
8544: ,'_PVT'
8545: ,x_return_status);
8544: ,'_PVT'
8545: ,x_return_status);
8546:
8547: -- Check if activity started successfully
8548: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8549: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8550: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8551: RAISE OKL_API.G_EXCEPTION_ERROR;
8552: END IF;
8545: ,x_return_status);
8546:
8547: -- Check if activity started successfully
8548: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8549: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8550: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8551: RAISE OKL_API.G_EXCEPTION_ERROR;
8552: END IF;
8553:
8546:
8547: -- Check if activity started successfully
8548: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8549: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8550: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8551: RAISE OKL_API.G_EXCEPTION_ERROR;
8552: END IF;
8553:
8554: -- get the try id
8547: -- Check if activity started successfully
8548: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8549: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8550: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8551: RAISE OKL_API.G_EXCEPTION_ERROR;
8552: END IF;
8553:
8554: -- get the try id
8555: OPEN c_try_id(p_tas_id);
8592: x_return_status => x_return_status,
8593: x_msg_count => x_msg_count,
8594: x_msg_data => x_msg_data);
8595:
8596: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8598: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8599: RAISE OKL_API.G_EXCEPTION_ERROR;
8600: END IF;
8593: x_msg_count => x_msg_count,
8594: x_msg_data => x_msg_data);
8595:
8596: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8598: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8599: RAISE OKL_API.G_EXCEPTION_ERROR;
8600: END IF;
8601:
8594: x_msg_data => x_msg_data);
8595:
8596: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8598: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8599: RAISE OKL_API.G_EXCEPTION_ERROR;
8600: END IF;
8601:
8602: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data );
8595:
8596: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8598: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8599: RAISE OKL_API.G_EXCEPTION_ERROR;
8600: END IF;
8601:
8602: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data );
8603: END;
8598: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8599: RAISE OKL_API.G_EXCEPTION_ERROR;
8600: END IF;
8601:
8602: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data );
8603: END;
8604:
8605:
8606: PROCEDURE Create_Repo_asset(
8769:
8770: IF (is_debug_procedure_on) THEN
8771: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
8772: END IF;
8773: x_return_status := OKL_API.START_ACTIVITY (
8774: l_api_name
8775: ,p_init_msg_list
8776: ,'_PVT'
8777: ,x_return_status);
8775: ,p_init_msg_list
8776: ,'_PVT'
8777: ,x_return_status);
8778: -- Check if activity started successfully
8779: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8780: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8781: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8782: RAISE OKL_API.G_EXCEPTION_ERROR;
8783: END IF;
8776: ,'_PVT'
8777: ,x_return_status);
8778: -- Check if activity started successfully
8779: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8780: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8781: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8782: RAISE OKL_API.G_EXCEPTION_ERROR;
8783: END IF;
8784:
8777: ,x_return_status);
8778: -- Check if activity started successfully
8779: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8780: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8781: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8782: RAISE OKL_API.G_EXCEPTION_ERROR;
8783: END IF;
8784:
8785: IF (is_debug_statement_on) THEN
8778: -- Check if activity started successfully
8779: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8780: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8781: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8782: RAISE OKL_API.G_EXCEPTION_ERROR;
8783: END IF;
8784:
8785: IF (is_debug_statement_on) THEN
8786: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
8795: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
8796: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
8797: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_quote_id = '||p_quote_id);
8798: END IF;
8799: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8800:
8801: OPEN l_sub_line_csr(p_chr_id => p_khr_id,
8802: p_lty_code => 'ITEM',
8803: p_cle_id => p_kle_id);
8819: l_oec := l_asset_ret_dtls.asset_fmv_amount;
8820:
8821: l_set_of_books_id := OKL_ACCOUNTING_UTIL.GET_SET_OF_BOOKS_ID;
8822:
8823: /*IF (p_tax_book_2 IS NOT NULL AND p_tax_book_2 <> OKL_API.G_MISS_CHAR)
8824: THEN
8825: l_max_books := 3;
8826: ELSE
8827: l_max_books := 2;
8832: LOOP
8833:
8834: IF (l_counter=1) OR
8835: (l_counter=2 AND p_tax_book_1 IS NOT NULL
8836: AND p_tax_book_1 <> OKL_API.G_MISS_CHAR) OR
8837: (l_counter=3 AND p_tax_book_2 IS NOT NULL
8838: AND p_tax_book_2 <> OKL_API.G_MISS_CHAR) OR
8839: (l_counter=4 AND p_rep_book IS NOT NULL
8840: AND p_rep_book <> OKL_API.G_MISS_CHAR) THEN
8834: IF (l_counter=1) OR
8835: (l_counter=2 AND p_tax_book_1 IS NOT NULL
8836: AND p_tax_book_1 <> OKL_API.G_MISS_CHAR) OR
8837: (l_counter=3 AND p_tax_book_2 IS NOT NULL
8838: AND p_tax_book_2 <> OKL_API.G_MISS_CHAR) OR
8839: (l_counter=4 AND p_rep_book IS NOT NULL
8840: AND p_rep_book <> OKL_API.G_MISS_CHAR) THEN
8841: l_trans_rec.transaction_type_code := 'ADDITION';
8842: l_asset_desc_rec.asset_key_ccid:= p_asset_key_id;
8836: AND p_tax_book_1 <> OKL_API.G_MISS_CHAR) OR
8837: (l_counter=3 AND p_tax_book_2 IS NOT NULL
8838: AND p_tax_book_2 <> OKL_API.G_MISS_CHAR) OR
8839: (l_counter=4 AND p_rep_book IS NOT NULL
8840: AND p_rep_book <> OKL_API.G_MISS_CHAR) THEN
8841: l_trans_rec.transaction_type_code := 'ADDITION';
8842: l_asset_desc_rec.asset_key_ccid:= p_asset_key_id;
8843: l_asset_desc_rec.current_units:= l_model_line_rec.number_of_items;
8844: l_asset_hdr_rec.asset_id := NULL;
8899: END IF;
8900:
8901: fa_addition_pub.do_addition
8902: (p_api_version => l_api_version,
8903: p_init_msg_list => OKL_API.G_FALSE,
8904: p_commit => OKL_API.G_FALSE,
8905: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8906: x_return_status => x_return_status,
8907: x_msg_count => x_msg_count,
8900:
8901: fa_addition_pub.do_addition
8902: (p_api_version => l_api_version,
8903: p_init_msg_list => OKL_API.G_FALSE,
8904: p_commit => OKL_API.G_FALSE,
8905: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8906: x_return_status => x_return_status,
8907: x_msg_count => x_msg_count,
8908: x_msg_data => x_msg_data,
8924: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called fa_addition_pub.do_addition x_return_status = '||x_return_status);
8925: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_asset_hdr_rec.asset_id = '||l_asset_hdr_rec.asset_id);
8926: END IF;
8927:
8928: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8929: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8930: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8931: RAISE OKL_API.G_EXCEPTION_ERROR;
8932: END IF;
8925: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_asset_hdr_rec.asset_id = '||l_asset_hdr_rec.asset_id);
8926: END IF;
8927:
8928: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8929: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8930: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8931: RAISE OKL_API.G_EXCEPTION_ERROR;
8932: END IF;
8933:
8926: END IF;
8927:
8928: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8929: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8930: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8931: RAISE OKL_API.G_EXCEPTION_ERROR;
8932: END IF;
8933:
8934:
8927:
8928: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8929: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8930: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8931: RAISE OKL_API.G_EXCEPTION_ERROR;
8932: END IF;
8933:
8934:
8935: l_asset_id := l_asset_hdr_rec.asset_id;
8960: IF (is_debug_statement_on) THEN
8961: 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);
8962: END IF;
8963:
8964: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8965: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8966: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8967: RAISE OKL_API.G_EXCEPTION_ERROR;
8968: END IF;
8961: 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);
8962: END IF;
8963:
8964: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8965: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8966: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8967: RAISE OKL_API.G_EXCEPTION_ERROR;
8968: END IF;
8969:
8962: END IF;
8963:
8964: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8965: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8966: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8967: RAISE OKL_API.G_EXCEPTION_ERROR;
8968: END IF;
8969:
8970: okl_debug_pub.logmessage('AKP:After update_item: x_return_status=' || x_return_status || ' x_cim_rec.object1_id1=' || x_cim_rec.object1_id1);
8963:
8964: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8965: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8966: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8967: RAISE OKL_API.G_EXCEPTION_ERROR;
8968: END IF;
8969:
8970: okl_debug_pub.logmessage('AKP:After update_item: x_return_status=' || x_return_status || ' x_cim_rec.object1_id1=' || x_cim_rec.object1_id1);
8971:
9004: 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);
9005: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_talv_rec.ID = '||x_talv_rec.ID);
9006: END IF;
9007:
9008: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9009: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9010: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9011: RAISE OKL_API.G_EXCEPTION_ERROR;
9012: END IF;
9005: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_talv_rec.ID = '||x_talv_rec.ID);
9006: END IF;
9007:
9008: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9009: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9010: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9011: RAISE OKL_API.G_EXCEPTION_ERROR;
9012: END IF;
9013: okl_debug_pub.logmessage('AKP:x_return_status=' || x_return_status || 'x_talv_rec.ID=' || x_talv_rec.ID);
9006: END IF;
9007:
9008: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9009: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9010: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9011: RAISE OKL_API.G_EXCEPTION_ERROR;
9012: END IF;
9013: okl_debug_pub.logmessage('AKP:x_return_status=' || x_return_status || 'x_talv_rec.ID=' || x_talv_rec.ID);
9014:
9007:
9008: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9009: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9010: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9011: RAISE OKL_API.G_EXCEPTION_ERROR;
9012: END IF;
9013: okl_debug_pub.logmessage('AKP:x_return_status=' || x_return_status || 'x_talv_rec.ID=' || x_talv_rec.ID);
9014:
9015: --rkuttiya added for passing the line id to populate sources
9065: IF (is_debug_statement_on) THEN
9066: 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);
9067: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_txdv_rec.ID = '||x_txdv_rec.ID);
9068: END IF;
9069: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9070: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9071: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9072: RAISE OKL_API.G_EXCEPTION_ERROR;
9073: END IF;
9066: 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);
9067: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_txdv_rec.ID = '||x_txdv_rec.ID);
9068: END IF;
9069: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9070: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9071: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9072: RAISE OKL_API.G_EXCEPTION_ERROR;
9073: END IF;
9074:
9067: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_txdv_rec.ID = '||x_txdv_rec.ID);
9068: END IF;
9069: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9070: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9071: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9072: RAISE OKL_API.G_EXCEPTION_ERROR;
9073: END IF;
9074:
9075: okl_debug_pub.logmessage('AKP:x_return_status=' || x_return_status || 'x_txdv_rec.ID=' || x_txdv_rec.ID);
9068: END IF;
9069: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9070: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9071: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9072: RAISE OKL_API.G_EXCEPTION_ERROR;
9073: END IF;
9074:
9075: okl_debug_pub.logmessage('AKP:x_return_status=' || x_return_status || 'x_txdv_rec.ID=' || x_txdv_rec.ID);
9076:
9099: x_return_status => x_return_status,
9100: x_msg_count => x_msg_count,
9101: x_msg_data => x_msg_data);
9102:
9103: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9104: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9105: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9106: RAISE OKL_API.G_EXCEPTION_ERROR;
9107: END IF;
9100: x_msg_count => x_msg_count,
9101: x_msg_data => x_msg_data);
9102:
9103: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9104: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9105: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9106: RAISE OKL_API.G_EXCEPTION_ERROR;
9107: END IF;
9108:
9101: x_msg_data => x_msg_data);
9102:
9103: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9104: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9105: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9106: RAISE OKL_API.G_EXCEPTION_ERROR;
9107: END IF;
9108:
9109: okl_debug_pub.logmessage('RK:x_return_status after populate sources' || x_return_status );
9102:
9103: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9104: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9105: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9106: RAISE OKL_API.G_EXCEPTION_ERROR;
9107: END IF;
9108:
9109: okl_debug_pub.logmessage('RK:x_return_status after populate sources' || x_return_status );
9110:
9138: p_asset_deprn_rec_adj => l_asset_deprn_rec_adj,
9139: x_asset_deprn_rec_new => l_asset_deprn_rec_new,
9140: x_asset_deprn_mrc_tbl_new => l_asset_deprn_mrc_tbl_new,
9141: p_group_reclass_options_rec => l_group_reclass_options_rec);
9142: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9144: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9145: RAISE OKL_API.G_EXCEPTION_ERROR;
9146: END IF;
9139: x_asset_deprn_rec_new => l_asset_deprn_rec_new,
9140: x_asset_deprn_mrc_tbl_new => l_asset_deprn_mrc_tbl_new,
9141: p_group_reclass_options_rec => l_group_reclass_options_rec);
9142: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9144: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9145: RAISE OKL_API.G_EXCEPTION_ERROR;
9146: END IF;
9147: okl_debug_pub.logmessage('RK:Return Status after calling FA Adjustment API'|| x_return_status); */
9140: x_asset_deprn_mrc_tbl_new => l_asset_deprn_mrc_tbl_new,
9141: p_group_reclass_options_rec => l_group_reclass_options_rec);
9142: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9144: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9145: RAISE OKL_API.G_EXCEPTION_ERROR;
9146: END IF;
9147: okl_debug_pub.logmessage('RK:Return Status after calling FA Adjustment API'|| x_return_status); */
9148:
9141: p_group_reclass_options_rec => l_group_reclass_options_rec);
9142: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9144: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9145: RAISE OKL_API.G_EXCEPTION_ERROR;
9146: END IF;
9147: okl_debug_pub.logmessage('RK:Return Status after calling FA Adjustment API'|| x_return_status); */
9148:
9149:
9151:
9152:
9153: END LOOP;
9154:
9155: OKL_API.set_message( p_app_name => 'OKL',
9156: p_msg_name => 'OKL_AM_ASSET_CR_SUCC',
9157: p_token1 => 'ASSET_NUMBER',
9158: p_token1_value => l_asset_description.NAME);
9159:
9157: p_token1 => 'ASSET_NUMBER',
9158: p_token1_value => l_asset_description.NAME);
9159:
9160:
9161: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data );
9162: IF (is_debug_procedure_on) THEN
9163: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
9164: END IF;
9165:
9163: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
9164: END IF;
9165:
9166: EXCEPTION
9167: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9168: IF (is_debug_exception_on) THEN
9169: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
9170: END IF;
9171:
9168: IF (is_debug_exception_on) THEN
9169: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
9170: END IF;
9171:
9172: OKL_API.set_message( p_app_name => 'OKL',
9173: p_msg_name => 'OKL_AM_ASSET_CR_FAIL',
9174: p_token1 => 'ASSET_NUMBER',
9175: p_token1_value => l_asset_description.NAME);
9176:
9173: p_msg_name => 'OKL_AM_ASSET_CR_FAIL',
9174: p_token1 => 'ASSET_NUMBER',
9175: p_token1_value => l_asset_description.NAME);
9176:
9177: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9178: l_api_name,
9179: G_PKG_NAME,
9180: 'OKL_API.G_RET_STS_ERROR',
9181: x_msg_count,
9176:
9177: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9178: l_api_name,
9179: G_PKG_NAME,
9180: 'OKL_API.G_RET_STS_ERROR',
9181: x_msg_count,
9182: x_msg_data,
9183: '_PVT');
9184: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9180: 'OKL_API.G_RET_STS_ERROR',
9181: x_msg_count,
9182: x_msg_data,
9183: '_PVT');
9184: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9185: IF (is_debug_exception_on) THEN
9186: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
9187: END IF;
9188:
9185: IF (is_debug_exception_on) THEN
9186: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
9187: END IF;
9188:
9189: OKL_API.set_message( p_app_name => 'OKL',
9190: p_msg_name => 'OKL_AM_ASSET_CR_FAIL',
9191: p_token1 => 'ASSET_NUMBER',
9192: p_token1_value => l_asset_description.NAME);
9193:
9190: p_msg_name => 'OKL_AM_ASSET_CR_FAIL',
9191: p_token1 => 'ASSET_NUMBER',
9192: p_token1_value => l_asset_description.NAME);
9193:
9194: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9195: l_api_name,
9196: G_PKG_NAME,
9197: 'OKL_API.G_RET_STS_UNEXP_ERROR',
9198: x_msg_count,
9193:
9194: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9195: l_api_name,
9196: G_PKG_NAME,
9197: 'OKL_API.G_RET_STS_UNEXP_ERROR',
9198: x_msg_count,
9199: x_msg_data,
9200: '_PVT');
9201: WHEN OTHERS THEN
9202: IF (is_debug_exception_on) THEN
9203: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
9204: END IF;
9205:
9206: OKL_API.set_message( p_app_name => 'OKL',
9207: p_msg_name => 'OKL_AM_ASSET_CR_FAIL',
9208: p_token1 => 'ASSET_NUMBER',
9209: p_token1_value => l_asset_description.NAME);
9210:
9207: p_msg_name => 'OKL_AM_ASSET_CR_FAIL',
9208: p_token1 => 'ASSET_NUMBER',
9209: p_token1_value => l_asset_description.NAME);
9210:
9211: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9212: l_api_name,
9213: G_PKG_NAME,
9214: 'OTHERS',
9215: x_msg_count,
9267: AND qte_id = p_qte_id
9268: AND qlt_code = 'AMBPOC'; -- Purchase Amount
9269:
9270: kle_pur_amt_rec kle_pur_amt_csr%ROWTYPE;
9271: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9272: l_overall_dispose_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9273: l_asset_id NUMBER;
9274: l_line_number VARCHAR2(200);
9275: i NUMBER := 1;
9268: AND qlt_code = 'AMBPOC'; -- Purchase Amount
9269:
9270: kle_pur_amt_rec kle_pur_amt_csr%ROWTYPE;
9271: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9272: l_overall_dispose_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9273: l_asset_id NUMBER;
9274: l_line_number VARCHAR2(200);
9275: i NUMBER := 1;
9276: l_proceeds_of_sale NUMBER;
9333: FROM OKL_TRX_TYPES_tl
9334: WHERE upper(name) = upper(p_try_name)
9335: AND language = 'US';
9336:
9337: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
9338: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
9339:
9340: l_try_id NUMBER;
9341:
9383: OR (p_trn_already_set = G_NO) THEN
9384:
9385: -- RMUNJULU 3018641 Step Message
9386: -- Step : Asset Dispose
9387: OKL_API.set_message(
9388: p_app_name => G_APP_NAME,
9389: p_msg_name => 'OKL_AM_STEP_ADP');
9390:
9391: -- rmunjulu +++++++++ Effective Dated Termination -- start ++++++++++++++++
9405: END IF;
9406:
9407: -- 6674730 start
9408: IF (p_term_rec.p_quote_id IS NOT NULL AND
9409: p_term_rec.p_quote_id <> OKL_API.G_MISS_NUM) THEN
9410: OPEN c_get_repo_indicator(p_term_rec.p_quote_id);
9411: FETCH c_get_repo_indicator INTO l_repo_yn, l_deal_type, l_org_id;
9412: CLOSE c_get_repo_indicator;
9413: END IF;
9443: IF (is_debug_statement_on) THEN
9444: 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);
9445: END IF;
9446:
9447: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9448: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9449: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9450: RAISE OKL_API.G_EXCEPTION_ERROR;
9451: END IF;
9444: 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);
9445: END IF;
9446:
9447: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9448: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9449: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9450: RAISE OKL_API.G_EXCEPTION_ERROR;
9451: END IF;
9452: IF (is_debug_statement_on) THEN
9445: END IF;
9446:
9447: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9448: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9449: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9450: RAISE OKL_API.G_EXCEPTION_ERROR;
9451: END IF;
9452: IF (is_debug_statement_on) THEN
9453: 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);
9446:
9447: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9448: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9449: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9450: RAISE OKL_API.G_EXCEPTION_ERROR;
9451: END IF;
9452: IF (is_debug_statement_on) THEN
9453: 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);
9454: END IF;
9453: 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);
9454: END IF;
9455:
9456: IF (l_pdt_parameter_rec.reporting_pdt_id IS NOT NULL AND
9457: l_pdt_parameter_rec.reporting_pdt_id <> OKL_API.G_MISS_NUM)
9458: THEN
9459: l_pdtv_rec.ID := l_pdt_parameter_rec.reporting_pdt_id;
9460: IF (is_debug_statement_on) THEN
9461: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_SETUPPRODUCTS_PUB.Getpdt_parameters ');
9473: IF (is_debug_statement_on) THEN
9474: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_SETUPPRODUCTS_PUB.Getpdt_parameters x_return_status = '||x_return_status);
9475: END IF;
9476:
9477: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9479: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9480: RAISE OKL_API.G_EXCEPTION_ERROR;
9481: ELSIF NVL(l_pdt_parameter_rec2.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
9474: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_SETUPPRODUCTS_PUB.Getpdt_parameters x_return_status = '||x_return_status);
9475: END IF;
9476:
9477: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9479: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9480: RAISE OKL_API.G_EXCEPTION_ERROR;
9481: ELSIF NVL(l_pdt_parameter_rec2.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
9482: x_return_status := OKL_API.G_RET_STS_ERROR;
9475: END IF;
9476:
9477: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9479: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9480: RAISE OKL_API.G_EXCEPTION_ERROR;
9481: ELSIF NVL(l_pdt_parameter_rec2.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
9482: x_return_status := OKL_API.G_RET_STS_ERROR;
9483: RAISE OKL_API.G_EXCEPTION_ERROR;
9476:
9477: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9479: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9480: RAISE OKL_API.G_EXCEPTION_ERROR;
9481: ELSIF NVL(l_pdt_parameter_rec2.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
9482: x_return_status := OKL_API.G_RET_STS_ERROR;
9483: RAISE OKL_API.G_EXCEPTION_ERROR;
9484: END IF;
9477: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9479: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9480: RAISE OKL_API.G_EXCEPTION_ERROR;
9481: ELSIF NVL(l_pdt_parameter_rec2.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
9482: x_return_status := OKL_API.G_RET_STS_ERROR;
9483: RAISE OKL_API.G_EXCEPTION_ERROR;
9484: END IF;
9485:
9478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9479: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9480: RAISE OKL_API.G_EXCEPTION_ERROR;
9481: ELSIF NVL(l_pdt_parameter_rec2.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
9482: x_return_status := OKL_API.G_RET_STS_ERROR;
9483: RAISE OKL_API.G_EXCEPTION_ERROR;
9484: END IF;
9485:
9486: IF (l_pdt_parameter_rec2.DEAL_TYPE <> 'LOAN') THEN
9479: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9480: RAISE OKL_API.G_EXCEPTION_ERROR;
9481: ELSIF NVL(l_pdt_parameter_rec2.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
9482: x_return_status := OKL_API.G_RET_STS_ERROR;
9483: RAISE OKL_API.G_EXCEPTION_ERROR;
9484: END IF;
9485:
9486: IF (l_pdt_parameter_rec2.DEAL_TYPE <> 'LOAN') THEN
9487: l_rep_book := NULL; -- No reporting book asset to be created
9502: -- get try id
9503: Open try_id_csr(p_try_name => 'Internal Asset Creation');
9504: Fetch try_id_csr into l_try_id;
9505: If try_id_csr%NOTFOUND then
9506: OKL_API.set_message(p_app_name => G_APP_NAME,
9507: p_msg_name => G_NO_MATCHING_RECORD,
9508: p_token1 => G_COL_NAME_TOKEN,
9509: p_token1_value => 'OKL_TRX_TYPES_V.ID');
9510: RAISE OKL_API.G_EXCEPTION_ERROR;
9506: OKL_API.set_message(p_app_name => G_APP_NAME,
9507: p_msg_name => G_NO_MATCHING_RECORD,
9508: p_token1 => G_COL_NAME_TOKEN,
9509: p_token1_value => 'OKL_TRX_TYPES_V.ID');
9510: RAISE OKL_API.G_EXCEPTION_ERROR;
9511: End If;
9512: Close try_id_csr;
9513:
9514: l_trxv_rec.try_id := l_try_id;
9520: (p_term_rec.p_contract_id) ;
9521: IF l_legal_entity_id IS NOT NULL THEN
9522: l_trxv_rec.legal_entity_id := l_legal_entity_id;
9523: ELSE
9524: Okl_Api.set_message(p_app_name => g_app_name,
9525: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
9526: p_token1 => 'CONTRACT_NUMBER',
9527: p_token1_value => p_term_rec.p_contract_number);
9528: RAISE OKL_API.G_EXCEPTION_ERROR;
9524: Okl_Api.set_message(p_app_name => g_app_name,
9525: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
9526: p_token1 => 'CONTRACT_NUMBER',
9527: p_token1_value => p_term_rec.p_contract_number);
9528: RAISE OKL_API.G_EXCEPTION_ERROR;
9529: END IF;
9530:
9531: /*-- Now creating the new header record
9532: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def(
9537: x_msg_data => x_msg_data,
9538: p_thpv_rec => l_trxv_rec,
9539: x_thpv_rec => x_trxv_rec);
9540:
9541: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9542: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9543: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9544: RAISE OKL_API.G_EXCEPTION_ERROR;
9545: END IF;*/
9538: p_thpv_rec => l_trxv_rec,
9539: x_thpv_rec => x_trxv_rec);
9540:
9541: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9542: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9543: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9544: RAISE OKL_API.G_EXCEPTION_ERROR;
9545: END IF;*/
9546:
9539: x_thpv_rec => x_trxv_rec);
9540:
9541: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9542: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9543: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9544: RAISE OKL_API.G_EXCEPTION_ERROR;
9545: END IF;*/
9546:
9547:
9540:
9541: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9542: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9543: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9544: RAISE OKL_API.G_EXCEPTION_ERROR;
9545: END IF;*/
9546:
9547:
9548: i := p_klev_tbl.FIRST;
9569: 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);
9570: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_trxv_rec.ID =' ||x_trxv_rec.ID);
9571: END IF;
9572:
9573: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9574: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9575: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9576: RAISE OKL_API.G_EXCEPTION_ERROR;
9577: END IF;
9570: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_trxv_rec.ID =' ||x_trxv_rec.ID);
9571: END IF;
9572:
9573: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9574: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9575: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9576: RAISE OKL_API.G_EXCEPTION_ERROR;
9577: END IF;
9578:
9571: END IF;
9572:
9573: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9574: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9575: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9576: RAISE OKL_API.G_EXCEPTION_ERROR;
9577: END IF;
9578:
9579:
9572:
9573: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9574: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9575: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9576: RAISE OKL_API.G_EXCEPTION_ERROR;
9577: END IF;
9578:
9579:
9580: -- Create asset in FA for this KLE_ID
9604: IF (is_debug_statement_on) THEN
9605: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called Create_Repo_asset x_return_status = '||x_return_status);
9606: END IF;
9607:
9608: IF l_overall_dispose_status = OKL_API.G_RET_STS_SUCCESS
9609: and x_return_status in (OKL_API.G_RET_STS_ERROR,OKL_API.G_RET_STS_UNEXP_ERROR) then
9610: l_overall_dispose_status := x_return_status;
9611: END IF;
9612:
9605: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called Create_Repo_asset x_return_status = '||x_return_status);
9606: END IF;
9607:
9608: IF l_overall_dispose_status = OKL_API.G_RET_STS_SUCCESS
9609: and x_return_status in (OKL_API.G_RET_STS_ERROR,OKL_API.G_RET_STS_UNEXP_ERROR) then
9610: l_overall_dispose_status := x_return_status;
9611: END IF;
9612:
9613: ELSE
9666: x_currency_conversion_rate => lx_currency_conversion_rate,
9667: x_currency_conversion_date => lx_currency_conversion_date,
9668: x_converted_amount => lx_converted_amount );
9669:
9670: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
9671:
9672: -- Error occurred during disposal of asset NAME.
9673: OKL_API.set_message( p_app_name => G_APP_NAME,
9674: p_msg_name => 'OKL_AM_ERR_DISPOSAL',
9669:
9670: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
9671:
9672: -- Error occurred during disposal of asset NAME.
9673: OKL_API.set_message( p_app_name => G_APP_NAME,
9674: p_msg_name => 'OKL_AM_ERR_DISPOSAL',
9675: p_token1 => 'NAME',
9676: p_token1_value => p_klev_tbl(i).p_asset_name);
9677:
9677:
9678: END IF;
9679:
9680: -- Raise exception to rollback to savepoint if error
9681: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9683: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9684: RAISE OKL_API.G_EXCEPTION_ERROR;
9685: END IF;
9678: END IF;
9679:
9680: -- Raise exception to rollback to savepoint if error
9681: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9683: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9684: RAISE OKL_API.G_EXCEPTION_ERROR;
9685: END IF;
9686:
9679:
9680: -- Raise exception to rollback to savepoint if error
9681: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9683: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9684: RAISE OKL_API.G_EXCEPTION_ERROR;
9685: END IF;
9686:
9687: l_proceeds_of_sale := lx_converted_amount ;
9680: -- Raise exception to rollback to savepoint if error
9681: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9683: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9684: RAISE OKL_API.G_EXCEPTION_ERROR;
9685: END IF;
9686:
9687: l_proceeds_of_sale := lx_converted_amount ;
9688:
9700: END IF;
9701:
9702: OKL_AM_ASSET_DISPOSE_PUB.dispose_asset(
9703: p_api_version => p_api_version,
9704: p_init_msg_list => OKL_API.G_FALSE,
9705: x_return_status => l_return_status,
9706: x_msg_count => x_msg_count,
9707: x_msg_data => x_msg_data,
9708: p_financial_asset_id => p_klev_tbl(i).p_kle_id,
9719:
9720: /* -- call asset dispose retirement
9721: OKL_AM_ASSET_DISPOSE_PUB.dispose_asset(
9722: p_api_version => p_api_version,
9723: p_init_msg_list => OKL_API.G_FALSE,
9724: x_return_status => l_return_status,
9725: x_msg_count => x_msg_count,
9726: x_msg_data => x_msg_data,
9727: p_financial_asset_id => p_klev_tbl(i).p_kle_id,
9729: p_proceeds_of_sale => l_proceeds_of_sale,
9730: p_quote_eff_date => l_quote_eff_date, -- rmunjulu EDAT Pass additional parameters now required by disposal api
9731: p_quote_accpt_date => l_quote_accpt_date); -- rmunjulu EDAT Pass additional parameters now required by disposal api
9732: */
9733: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
9734:
9735: -- Error occurred during disposal of asset NAME.
9736: OKL_API.set_message( p_app_name => G_APP_NAME,
9737: p_msg_name => 'OKL_AM_ERR_DISPOSAL',
9732: */
9733: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
9734:
9735: -- Error occurred during disposal of asset NAME.
9736: OKL_API.set_message( p_app_name => G_APP_NAME,
9737: p_msg_name => 'OKL_AM_ERR_DISPOSAL',
9738: p_token1 => 'NAME',
9739: p_token1_value => p_klev_tbl(i).p_asset_name);
9740:
9739: p_token1_value => p_klev_tbl(i).p_asset_name);
9740:
9741: END IF;
9742: --08-mar-06 sgorantl -- Bug 3895098
9743: IF l_overall_dispose_status = OKL_API.G_RET_STS_SUCCESS
9744: and l_return_status in (OKL_API.G_RET_STS_ERROR,OKL_API.G_RET_STS_UNEXP_ERROR) then
9745: l_overall_dispose_status := l_return_status;
9746: END IF;
9747:
9740:
9741: END IF;
9742: --08-mar-06 sgorantl -- Bug 3895098
9743: IF l_overall_dispose_status = OKL_API.G_RET_STS_SUCCESS
9744: and l_return_status in (OKL_API.G_RET_STS_ERROR,OKL_API.G_RET_STS_UNEXP_ERROR) then
9745: l_overall_dispose_status := l_return_status;
9746: END IF;
9747:
9748: END IF;
9751: END LOOP;
9752:
9753: --08-mar-06 sgorantl -- Bug 3895098
9754: -- Raise exception to rollback to savepoint if error
9755: IF (l_overall_dispose_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9757: ELSIF (l_overall_dispose_status = OKL_API.G_RET_STS_ERROR) THEN
9758: RAISE OKL_API.G_EXCEPTION_ERROR;
9759: END IF;
9752:
9753: --08-mar-06 sgorantl -- Bug 3895098
9754: -- Raise exception to rollback to savepoint if error
9755: IF (l_overall_dispose_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9757: ELSIF (l_overall_dispose_status = OKL_API.G_RET_STS_ERROR) THEN
9758: RAISE OKL_API.G_EXCEPTION_ERROR;
9759: END IF;
9760: --08-mar-06 sgorantl -- Bug 3895098
9753: --08-mar-06 sgorantl -- Bug 3895098
9754: -- Raise exception to rollback to savepoint if error
9755: IF (l_overall_dispose_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9757: ELSIF (l_overall_dispose_status = OKL_API.G_RET_STS_ERROR) THEN
9758: RAISE OKL_API.G_EXCEPTION_ERROR;
9759: END IF;
9760: --08-mar-06 sgorantl -- Bug 3895098
9761:
9754: -- Raise exception to rollback to savepoint if error
9755: IF (l_overall_dispose_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9757: ELSIF (l_overall_dispose_status = OKL_API.G_RET_STS_ERROR) THEN
9758: RAISE OKL_API.G_EXCEPTION_ERROR;
9759: END IF;
9760: --08-mar-06 sgorantl -- Bug 3895098
9761:
9762: -- Set success message
9760: --08-mar-06 sgorantl -- Bug 3895098
9761:
9762: -- Set success message
9763: -- Asset dispostion for assets of contract CONTRACT_NUMBER done successfully.
9764: OKL_API.set_message( p_app_name => G_APP_NAME,
9765: p_msg_name => 'OKL_AM_ASS_DISPOSE_SUCCESS',
9766: p_token1 => 'CONTRACT_NUMBER',
9767: p_token1_value => p_term_rec.p_contract_number);
9768:
9804: IF (is_debug_procedure_on) THEN
9805: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
9806: END IF;
9807: EXCEPTION
9808: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9809: IF (is_debug_exception_on) THEN
9810: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
9811: END IF;
9812:
9815: END IF;
9816:
9817: ROLLBACK TO asset_dispose;
9818:
9819: x_return_status := OKL_API.G_RET_STS_ERROR;
9820: -- store the highest degree of error
9821: set_overall_status(
9822: p_return_status => x_return_status,
9823: px_overall_status => px_overall_status);
9845: p_tsu_code => 'ERROR',
9846: p_ret_val => NULL,
9847: px_tcnv_rec => px_tcnv_rec);
9848:
9849: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9850: IF (is_debug_exception_on) THEN
9851: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
9852: END IF;
9853:
9857:
9858: ROLLBACK TO asset_dispose;
9859:
9860:
9861: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
9862: -- store the highest degree of error
9863: set_overall_status(
9864: p_return_status => x_return_status,
9865: px_overall_status => px_overall_status);
9898: END IF;
9899:
9900: ROLLBACK TO asset_dispose;
9901:
9902: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
9903: -- store the highest degree of error
9904: set_overall_status(
9905: p_return_status => x_return_status,
9906: px_overall_status => px_overall_status);
9929: p_ret_val => NULL,
9930: px_tcnv_rec => px_tcnv_rec);
9931:
9932: -- Set the oracle error message
9933: OKL_API.set_message(
9934: p_app_name => OKC_API.G_APP_NAME,
9935: p_msg_name => g_unexpected_error,
9936: p_token1 => g_sqlcode_token,
9937: p_token1_value => SQLCODE,
9983: FROM OKL_ASSET_RETURNS_V
9984: WHERE kle_id = p_kle_id
9985: AND ars_code <> 'CANCELLED';
9986:
9987: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9988: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9989: lp_artv_rec OKL_AM_ASSET_RETURN_PUB.artv_rec_type;
9990: lx_artv_rec OKL_AM_ASSET_RETURN_PUB.artv_rec_type;
9991:
9984: WHERE kle_id = p_kle_id
9985: AND ars_code <> 'CANCELLED';
9986:
9987: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9988: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9989: lp_artv_rec OKL_AM_ASSET_RETURN_PUB.artv_rec_type;
9990: lx_artv_rec OKL_AM_ASSET_RETURN_PUB.artv_rec_type;
9991:
9992: i NUMBER := 1;
9991:
9992: i NUMBER := 1;
9993: j NUMBER := 1;
9994: l_kle_id NUMBER;
9995: l_k_end_date DATE := OKL_API.G_MISS_DATE;
9996: l_early_term_yn VARCHAR2(1) := G_NO;
9997: l_return_needed VARCHAR2(1) := G_NO;
9998: l_asset_return_status VARCHAR2(2000);
9999:
10043: OR (p_trn_already_set = G_NO) THEN
10044:
10045: -- RMUNJULU 3018641 Step Message
10046: -- Step : Amortization
10047: OKL_API.set_message(
10048: p_app_name => G_APP_NAME,
10049: p_msg_name => 'OKL_AM_STEP_AMT');
10050:
10051: -- call amortization
10053: OPEN get_k_end_date_csr(p_term_rec.p_contract_id);
10054: FETCH get_k_end_date_csr INTO l_k_end_date;
10055: CLOSE get_k_end_date_csr;
10056:
10057: IF (l_k_end_date <> OKL_API.G_MISS_DATE)
10058: AND (TRUNC(l_k_end_date) > TRUNC(p_sys_date)) THEN
10059: l_early_term_yn := G_YES;
10060: END IF;
10061:
10060: END IF;
10061:
10062: OKL_AM_AMORTIZE_PUB.create_offlease_asset_trx(
10063: p_api_version => p_api_version,
10064: p_init_msg_list => OKL_API.G_FALSE,
10065: x_return_status => l_return_status,
10066: x_msg_count => x_msg_count,
10067: x_msg_data => x_msg_data,
10068: p_contract_id => p_term_rec.p_contract_id,
10068: p_contract_id => p_term_rec.p_contract_id,
10069: p_early_termination_yn => l_early_term_yn);
10070:
10071:
10072: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
10073:
10074: -- Error occurred during the creation of an amortization transaction
10075: -- for assets of contract CONTRACT_NUMBER.
10076: OKL_API.set_message( p_app_name => G_APP_NAME,
10072: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
10073:
10074: -- Error occurred during the creation of an amortization transaction
10075: -- for assets of contract CONTRACT_NUMBER.
10076: OKL_API.set_message( p_app_name => G_APP_NAME,
10077: p_msg_name => 'OKL_AM_ERR_AMORTIZE',
10078: p_token1 => 'CONTRACT_NUMBER',
10079: p_token1_value => p_term_rec.p_contract_number);
10080:
10080:
10081: END IF;
10082:
10083: -- Raise exception to rollback to savepoint if error
10084: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10086: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10087: RAISE OKL_API.G_EXCEPTION_ERROR;
10088: END IF;
10081: END IF;
10082:
10083: -- Raise exception to rollback to savepoint if error
10084: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10086: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10087: RAISE OKL_API.G_EXCEPTION_ERROR;
10088: END IF;
10089:
10082:
10083: -- Raise exception to rollback to savepoint if error
10084: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10086: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10087: RAISE OKL_API.G_EXCEPTION_ERROR;
10088: END IF;
10089:
10090: -- store the highest degree of error
10083: -- Raise exception to rollback to savepoint if error
10084: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10086: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10087: RAISE OKL_API.G_EXCEPTION_ERROR;
10088: END IF;
10089:
10090: -- store the highest degree of error
10091: set_overall_status(
10101: px_tcnv_rec => px_tcnv_rec);
10102:
10103: END IF;
10104: EXCEPTION
10105: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10106:
10107: IF get_k_end_date_csr%ISOPEN THEN
10108: CLOSE get_k_end_date_csr;
10109: END IF;
10109: END IF;
10110:
10111: ROLLBACK TO asset_amortize;
10112:
10113: x_return_status := OKL_API.G_RET_STS_ERROR;
10114:
10115: -- store the highest degree of error
10116: set_overall_status(
10117: p_return_status => x_return_status,
10133: p_tsu_code => 'ERROR',
10134: p_ret_val => NULL,
10135: px_tcnv_rec => px_tcnv_rec);
10136:
10137: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10138:
10139: IF get_k_end_date_csr%ISOPEN THEN
10140: CLOSE get_k_end_date_csr;
10141: END IF;
10141: END IF;
10142:
10143: ROLLBACK TO asset_amortize;
10144:
10145: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
10146:
10147: -- store the highest degree of error
10148: set_overall_status(
10149: p_return_status => x_return_status,
10173: END IF;
10174:
10175: ROLLBACK TO asset_amortize;
10176:
10177: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
10178:
10179: -- store the highest degree of error
10180: set_overall_status(
10181: p_return_status => x_return_status,
10198: p_ret_val => NULL,
10199: px_tcnv_rec => px_tcnv_rec);
10200:
10201: -- Set the oracle error message
10202: OKL_API.set_message(
10203: p_app_name => OKC_API.G_APP_NAME,
10204: p_msg_name => g_unexpected_error,
10205: p_token1 => g_sqlcode_token,
10206: p_token1_value => SQLCODE,
10213: -- RMUNJULU 04-MAR-04 3485854 added call to process_amortize to do amortization
10214: -- Additional checks in process_amortize to cater to evergreen scenario
10215: process_amortize(
10216: p_api_version => p_api_version,
10217: p_init_msg_list => OKL_API.G_FALSE,
10218: x_return_status => l_return_status,
10219: x_msg_count => x_msg_count,
10220: x_msg_data => x_msg_data,
10221: p_term_rec => p_term_rec,
10239: OR (p_trn_already_set = G_NO) THEN
10240:
10241: -- RMUNJULU 3018641 Step Message
10242: -- Step : Asset Return
10243: OKL_API.set_message(
10244: p_app_name => G_APP_NAME,
10245: p_msg_name => 'OKL_AM_STEP_ART');
10246:
10247: -- if assets present for contract
10293: lp_artv_rec.kle_id := p_klev_tbl(i).p_kle_id;
10294:
10295: -- set the art1_code for asset return --'OKL_ASSET_RETURN_TYPE'
10296: -- if early termination assume from quote else contract exp
10297: -- IF (l_k_end_date <> OKL_API.G_MISS_DATE)
10298: -- AND (TRUNC(l_k_end_date) < TRUNC(p_sys_date)) THEN
10299: -- rmunjulu EDAT modified condition to say if quote exists then EXE_TERMINATION_QUOTE else EXPIRATION
10300: IF nvl(okl_am_lease_loan_trmnt_pvt.g_quote_exists,'N') = 'Y' THEN -- rmunjulu EDAT
10301: lp_artv_rec.art1_code := 'EXE_TERMINATION_QUOTE';
10319: -- Passing quote_id also to create_asset_return
10320: -- call asset return
10321: OKL_AM_ASSET_RETURN_PUB.create_asset_return(
10322: p_api_version => p_api_version,
10323: p_init_msg_list => OKL_API.G_FALSE,
10324: x_return_status => l_return_status,
10325: x_msg_count => x_msg_count,
10326: x_msg_data => x_msg_data,
10327: p_artv_rec => lp_artv_rec,
10327: p_artv_rec => lp_artv_rec,
10328: x_artv_rec => lx_artv_rec,
10329: p_quote_id => p_term_rec.p_quote_id);
10330:
10331: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
10332: -- Error occurred during the creation of an asset return record
10333: -- for asset NAME.
10334: OKL_API.set_message(
10335: p_app_name => G_APP_NAME,
10330:
10331: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
10332: -- Error occurred during the creation of an asset return record
10333: -- for asset NAME.
10334: OKL_API.set_message(
10335: p_app_name => G_APP_NAME,
10336: p_msg_name => 'OKL_AM_ERR_ASS_RET',
10337: p_token1 => 'NAME',
10338: p_token1_value => p_klev_tbl(i).p_asset_name);
10337: p_token1 => 'NAME',
10338: p_token1_value => p_klev_tbl(i).p_asset_name);
10339:
10340: -- Raise exception to rollback to savepoint if error
10341: RAISE OKL_API.G_EXCEPTION_ERROR;
10342:
10343: END IF;
10344:
10345: ELSE -- Asset return already exists -- This is not an error
10345: ELSE -- Asset return already exists -- This is not an error
10346:
10347: -- Asset Return already exists for this asset NAME with the
10348: -- status STATUS so cannot create a new asset return now.
10349: OKL_API.set_message(
10350: p_app_name => G_APP_NAME,
10351: p_msg_name => 'OKL_AM_ASS_RET_ARS_ERR',
10352: p_token1 => 'NAME',
10353: p_token1_value => p_klev_tbl(i).p_asset_name,
10364: i := l_temp_klev_tbl.FIRST;
10365: LOOP
10366:
10367: -- Asset return created for asset NAME.
10368: OKL_API.set_message(
10369: p_app_name => G_APP_NAME,
10370: p_msg_name => 'OKL_AM_ASS_RET_CREATED',
10371: p_token1 => 'NAME',
10372: p_token1_value => l_temp_klev_tbl(i).p_asset_name);
10395: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
10396: END IF;
10397: EXCEPTION
10398:
10399: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10400: IF (is_debug_exception_on) THEN
10401: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
10402: END IF;
10403:
10406: END IF;
10407:
10408: ROLLBACK TO asset_return;
10409:
10410: x_return_status := OKL_API.G_RET_STS_ERROR;
10411:
10412: -- store the highest degree of error
10413: set_overall_status(
10414: p_return_status => x_return_status,
10429: p_tsu_code => 'ERROR',
10430: p_ret_val => NULL,
10431: px_tcnv_rec => px_tcnv_rec);
10432:
10433: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10434: IF (is_debug_exception_on) THEN
10435: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
10436: END IF;
10437:
10441: END IF;
10442:
10443: ROLLBACK TO asset_return;
10444:
10445: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
10446:
10447: -- store the highest degree of error
10448: set_overall_status(
10449: p_return_status => x_return_status,
10476: END IF;
10477:
10478: ROLLBACK TO asset_return;
10479:
10480: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
10481:
10482: -- store the highest degree of error
10483: set_overall_status(
10484: p_return_status => x_return_status,
10501: p_ret_val => NULL,
10502: px_tcnv_rec => px_tcnv_rec);
10503:
10504: -- Set the oracle error message
10505: OKL_API.set_message(
10506: p_app_name => OKC_API.G_APP_NAME,
10507: p_msg_name => g_unexpected_error,
10508: p_token1 => g_sqlcode_token,
10509: p_token1_value => SQLCODE,
10526: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
10527: END IF;
10528: EXCEPTION
10529:
10530: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10531: IF (is_debug_exception_on) THEN
10532: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
10533: END IF;
10534:
10533: END IF;
10534:
10535: ROLLBACK TO amortize_and_return;
10536:
10537: x_return_status := OKL_API.G_RET_STS_ERROR;
10538: -- store the highest degree of error
10539: set_overall_status(
10540: p_return_status => x_return_status,
10541: px_overall_status => px_overall_status);
10562: p_tsu_code => 'ERROR',
10563: p_ret_val => NULL,
10564: px_tcnv_rec => px_tcnv_rec);
10565:
10566: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10567: IF (is_debug_exception_on) THEN
10568: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
10569: END IF;
10570:
10570:
10571:
10572: ROLLBACK TO amortize_and_return;
10573:
10574: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
10575: -- store the highest degree of error
10576: set_overall_status(
10577: p_return_status => x_return_status,
10578: px_overall_status => px_overall_status);
10606: END IF;
10607:
10608: ROLLBACK TO amortize_and_return;
10609:
10610: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
10611: -- store the highest degree of error
10612: set_overall_status(
10613: p_return_status => x_return_status,
10614: px_overall_status => px_overall_status);
10636: p_ret_val => NULL,
10637: px_tcnv_rec => px_tcnv_rec);
10638:
10639: -- Set the oracle error message
10640: OKL_API.set_message(
10641: p_app_name => OKC_API.G_APP_NAME,
10642: p_msg_name => g_unexpected_error,
10643: p_token1 => g_sqlcode_token,
10644: p_token1_value => SQLCODE,
10679: x_msg_count OUT NOCOPY NUMBER,
10680: x_msg_data OUT NOCOPY VARCHAR2,
10681: p_term_rec IN term_rec_type,
10682: p_tcnv_rec IN tcnv_rec_type) IS
10683: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10684: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10685: lp_tcnv_rec tcnv_rec_type;
10686: lx_stmv_tbl stmv_tbl_type;
10687: lx_adjv_rec adjv_rec_type;
10680: x_msg_data OUT NOCOPY VARCHAR2,
10681: p_term_rec IN term_rec_type,
10682: p_tcnv_rec IN tcnv_rec_type) IS
10683: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10684: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10685: lp_tcnv_rec tcnv_rec_type;
10686: lx_stmv_tbl stmv_tbl_type;
10687: lx_adjv_rec adjv_rec_type;
10688: lx_ajlv_tbl ajlv_tbl_type;
10691: lx_chrv_rec chrv_rec_type;
10692: lx_clev_tbl clev_tbl_type;
10693: lx_id NUMBER;
10694: i NUMBER := 1;
10695: l_tran_started VARCHAR2(1) := OKL_API.G_FALSE;
10696: l_evergreen_status VARCHAR2(1) := OKL_API.G_FALSE;
10697: l_api_name VARCHAR2(30) := 'lease_termination';
10698: l_sys_date DATE;
10699: l_trn_already_set VARCHAR2(1) := G_NO;
10692: lx_clev_tbl clev_tbl_type;
10693: lx_id NUMBER;
10694: i NUMBER := 1;
10695: l_tran_started VARCHAR2(1) := OKL_API.G_FALSE;
10696: l_evergreen_status VARCHAR2(1) := OKL_API.G_FALSE;
10697: l_api_name VARCHAR2(30) := 'lease_termination';
10698: l_sys_date DATE;
10699: l_trn_already_set VARCHAR2(1) := G_NO;
10700: lx_contract_status VARCHAR2(200);
10697: l_api_name VARCHAR2(30) := 'lease_termination';
10698: l_sys_date DATE;
10699: l_trn_already_set VARCHAR2(1) := G_NO;
10700: lx_contract_status VARCHAR2(200);
10701: l_validate VARCHAR2(1) := OKL_API.G_RET_STS_ERROR;
10702: l_api_version CONSTANT NUMBER := 1;
10703: l_status VARCHAR2(200);
10704: l_term_rec term_rec_type := p_term_rec;
10705:
10724: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
10725: END IF;
10726:
10727: -- Set the transaction
10728: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
10729: G_PKG_NAME,
10730: p_init_msg_list,
10731: l_api_version,
10732: p_api_version,
10733: '_PVT',
10734: x_return_status);
10735:
10736: -- Rollback if error setting activity for api
10737: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10739: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10740: RAISE OKL_API.G_EXCEPTION_ERROR;
10741: END IF;
10734: x_return_status);
10735:
10736: -- Rollback if error setting activity for api
10737: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10739: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10740: RAISE OKL_API.G_EXCEPTION_ERROR;
10741: END IF;
10742:
10735:
10736: -- Rollback if error setting activity for api
10737: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10739: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10740: RAISE OKL_API.G_EXCEPTION_ERROR;
10741: END IF;
10742:
10743: -- Set the x return status
10736: -- Rollback if error setting activity for api
10737: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10739: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10740: RAISE OKL_API.G_EXCEPTION_ERROR;
10741: END IF;
10742:
10743: -- Set the x return status
10744: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10740: RAISE OKL_API.G_EXCEPTION_ERROR;
10741: END IF;
10742:
10743: -- Set the x return status
10744: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10745:
10746: -- store the highest degree of error
10747: set_overall_status(
10748: p_return_status => l_return_status,
10756: set_info_messages(
10757: p_term_rec => l_term_rec);
10758:
10759: -- check if transaction already exists
10760: IF (p_tcnv_rec.id IS NOT NULL AND p_tcnv_rec.id <> OKL_API.G_MISS_NUM) THEN
10761: l_trn_already_set := G_YES;
10762: END IF;
10763:
10764: --get sysdate
10777: x_msg_count => x_msg_count,
10778: x_msg_data => x_msg_data);
10779: --akrangan bug 5354501 fix end
10780: -- rollback if intialize transaction failed
10781: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10782: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10783: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10784: RAISE OKL_API.G_EXCEPTION_ERROR;
10785: END IF;
10778: x_msg_data => x_msg_data);
10779: --akrangan bug 5354501 fix end
10780: -- rollback if intialize transaction failed
10781: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10782: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10783: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10784: RAISE OKL_API.G_EXCEPTION_ERROR;
10785: END IF;
10786:
10779: --akrangan bug 5354501 fix end
10780: -- rollback if intialize transaction failed
10781: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10782: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10783: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10784: RAISE OKL_API.G_EXCEPTION_ERROR;
10785: END IF;
10786:
10787: -- insert the transaction record
10780: -- rollback if intialize transaction failed
10781: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10782: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10783: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10784: RAISE OKL_API.G_EXCEPTION_ERROR;
10785: END IF;
10786:
10787: -- insert the transaction record
10788: process_transaction(
10786:
10787: -- insert the transaction record
10788: process_transaction(
10789: p_api_version => p_api_version,
10790: p_init_msg_list => OKL_API.G_FALSE,
10791: x_return_status => l_return_status,
10792: x_msg_count => x_msg_count,
10793: x_msg_data => x_msg_data,
10794: p_id => 0,
10797: x_id => lx_id,
10798: p_trn_mode => 'INSERT');
10799:
10800: -- rollback if processing transaction failed
10801: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10803: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10804: RAISE OKL_API.G_EXCEPTION_ERROR;
10805: END IF;
10798: p_trn_mode => 'INSERT');
10799:
10800: -- rollback if processing transaction failed
10801: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10803: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10804: RAISE OKL_API.G_EXCEPTION_ERROR;
10805: END IF;
10806:
10799:
10800: -- rollback if processing transaction failed
10801: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10803: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10804: RAISE OKL_API.G_EXCEPTION_ERROR;
10805: END IF;
10806:
10807: -- set the trn rec id
10800: -- rollback if processing transaction failed
10801: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10803: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10804: RAISE OKL_API.G_EXCEPTION_ERROR;
10805: END IF;
10806:
10807: -- set the trn rec id
10808: lp_tcnv_rec.id := lx_id;
10824: --akrangan bug 5354501 fix end
10825:
10826:
10827: -- rollback if intialize transaction failed
10828: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10830: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10831: RAISE OKL_API.G_EXCEPTION_ERROR;
10832: END IF;
10825:
10826:
10827: -- rollback if intialize transaction failed
10828: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10830: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10831: RAISE OKL_API.G_EXCEPTION_ERROR;
10832: END IF;
10833:
10826:
10827: -- rollback if intialize transaction failed
10828: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10830: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10831: RAISE OKL_API.G_EXCEPTION_ERROR;
10832: END IF;
10833:
10834: END IF;
10827: -- rollback if intialize transaction failed
10828: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10830: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10831: RAISE OKL_API.G_EXCEPTION_ERROR;
10832: END IF;
10833:
10834: END IF;
10835:
10850: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_return_status = '||l_return_status);
10851: END IF;
10852:
10853: -- Rollback if error setting activity for api
10854: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10855: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10856: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10857: RAISE OKL_API.G_EXCEPTION_ERROR;
10858: END IF;
10851: END IF;
10852:
10853: -- Rollback if error setting activity for api
10854: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10855: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10856: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10857: RAISE OKL_API.G_EXCEPTION_ERROR;
10858: END IF;
10859:
10852:
10853: -- Rollback if error setting activity for api
10854: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10855: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10856: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10857: RAISE OKL_API.G_EXCEPTION_ERROR;
10858: END IF;
10859:
10860: -- rmunjulu +++++++++ Effective Dated Termination -- end ++++++++++++++++
10853: -- Rollback if error setting activity for api
10854: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10855: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10856: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10857: RAISE OKL_API.G_EXCEPTION_ERROR;
10858: END IF;
10859:
10860: -- rmunjulu +++++++++ Effective Dated Termination -- end ++++++++++++++++
10861:
10861:
10862: -- check if lease valid
10863: validate_lease(
10864: p_api_version => p_api_version,
10865: p_init_msg_list => OKL_API.G_FALSE,
10866: x_return_status => l_return_status,
10867: x_msg_count => x_msg_count,
10868: x_msg_data => x_msg_data,
10869: p_sys_date => l_sys_date,
10890:
10891: -- Since batch process is not checked initially in LLT check here
10892: OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract(
10893: p_api_version => p_api_version,
10894: p_init_msg_list => OKL_API.G_FALSE,
10895: x_return_status => l_return_status,
10896: x_msg_count => x_msg_count,
10897: x_msg_data => x_msg_data,
10898: p_contract_id => l_term_rec.p_contract_id,
10904: END IF;
10905:
10906: -- Store the highest validation return status
10907: -- To capture the return status of validate lease called above
10908: IF (l_validate = OKL_API.G_RET_STS_SUCCESS) THEN
10909: l_validate := l_return_status;
10910: END IF;
10911:
10912: -- store the highest degree of error
10923: px_tcnv_rec => lp_tcnv_rec);
10924:
10925: -- if validation failed then insert transaction
10926: -- AND abort else continue next process
10927: IF (l_validate <> OKL_API.G_RET_STS_SUCCESS) THEN
10928:
10929: -- Validation of contract failed.
10930: OKL_API.set_message( p_app_name => G_APP_NAME,
10931: p_msg_name => 'OKL_AM_VAL_OF_K_FAILED');
10926: -- AND abort else continue next process
10927: IF (l_validate <> OKL_API.G_RET_STS_SUCCESS) THEN
10928:
10929: -- Validation of contract failed.
10930: OKL_API.set_message( p_app_name => G_APP_NAME,
10931: p_msg_name => 'OKL_AM_VAL_OF_K_FAILED');
10932:
10933: -- set the transaction record
10934: set_transaction_rec(
10940:
10941: -- update the transaction record
10942: process_transaction(
10943: p_api_version => p_api_version,
10944: p_init_msg_list => OKL_API.G_FALSE,
10945: x_return_status => l_return_status,
10946: x_msg_count => x_msg_count,
10947: x_msg_data => x_msg_data,
10948: p_id => 0,
10951: x_id => lx_id,
10952: p_trn_mode => 'UPDATE');
10953:
10954: -- rollback if processing transaction failed
10955: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10956: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10957: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10958: RAISE OKL_API.G_EXCEPTION_ERROR;
10959: END IF;
10952: p_trn_mode => 'UPDATE');
10953:
10954: -- rollback if processing transaction failed
10955: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10956: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10957: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10958: RAISE OKL_API.G_EXCEPTION_ERROR;
10959: END IF;
10960:
10953:
10954: -- rollback if processing transaction failed
10955: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10956: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10957: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10958: RAISE OKL_API.G_EXCEPTION_ERROR;
10959: END IF;
10960:
10961: -- Save messages from stack into transaction message table
10954: -- rollback if processing transaction failed
10955: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10956: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10957: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10958: RAISE OKL_API.G_EXCEPTION_ERROR;
10959: END IF;
10960:
10961: -- Save messages from stack into transaction message table
10962: OKL_AM_UTIL_PVT.process_messages(
10978: /* -- RMUNJULU 3061751 Changed this code to create a termination trn even when
10979: -- request is NON BATCH and validation has failed
10980:
10981: -- rollback if validation failed
10982: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10983: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10984: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10985: RAISE OKL_API.G_EXCEPTION_ERROR;
10986: END IF;
10979: -- request is NON BATCH and validation has failed
10980:
10981: -- rollback if validation failed
10982: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10983: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10984: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10985: RAISE OKL_API.G_EXCEPTION_ERROR;
10986: END IF;
10987:
10980:
10981: -- rollback if validation failed
10982: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10983: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10984: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10985: RAISE OKL_API.G_EXCEPTION_ERROR;
10986: END IF;
10987:
10988: -- set the transaction record
10981: -- rollback if validation failed
10982: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10983: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10984: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10985: RAISE OKL_API.G_EXCEPTION_ERROR;
10986: END IF;
10987:
10988: -- set the transaction record
10989: set_transaction_rec(
10996:
10997: -- RMUNJULU 3061751 Changed this code to create a termination trn even when
10998: -- request is NON BATCH and validation has failed
10999:
11000: IF (l_validate <> OKL_API.G_RET_STS_SUCCESS) THEN
11001:
11002: -- Validation of contract failed.
11003: OKL_API.set_message( p_app_name => G_APP_NAME,
11004: p_msg_name => 'OKL_AM_VAL_OF_K_FAILED');
10999:
11000: IF (l_validate <> OKL_API.G_RET_STS_SUCCESS) THEN
11001:
11002: -- Validation of contract failed.
11003: OKL_API.set_message( p_app_name => G_APP_NAME,
11004: p_msg_name => 'OKL_AM_VAL_OF_K_FAILED');
11005:
11006: -- set the transaction record
11007: set_transaction_rec(
11013:
11014: -- update the transaction record
11015: process_transaction(
11016: p_api_version => p_api_version,
11017: p_init_msg_list => OKL_API.G_FALSE,
11018: x_return_status => l_return_status,
11019: x_msg_count => x_msg_count,
11020: x_msg_data => x_msg_data,
11021: p_id => 0,
11024: x_id => lx_id,
11025: p_trn_mode => 'UPDATE');
11026:
11027: -- rollback if processing transaction failed
11028: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11030: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11031: RAISE OKL_API.G_EXCEPTION_ERROR;
11032: END IF;
11025: p_trn_mode => 'UPDATE');
11026:
11027: -- rollback if processing transaction failed
11028: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11030: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11031: RAISE OKL_API.G_EXCEPTION_ERROR;
11032: END IF;
11033:
11026:
11027: -- rollback if processing transaction failed
11028: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11030: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11031: RAISE OKL_API.G_EXCEPTION_ERROR;
11032: END IF;
11033:
11034: -- Save messages from stack into transaction message table
11027: -- rollback if processing transaction failed
11028: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11030: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11031: RAISE OKL_API.G_EXCEPTION_ERROR;
11032: END IF;
11033:
11034: -- Save messages from stack into transaction message table
11035: OKL_AM_UTIL_PVT.process_messages(
11051:
11052: -- get the lines
11053: get_contract_lines(
11054: p_api_version => p_api_version,
11055: p_init_msg_list => OKL_API.G_FALSE,
11056: x_return_status => l_return_status,
11057: x_msg_count => x_msg_count,
11058: x_msg_data => x_msg_data,
11059: p_term_rec => l_term_rec,
11061:
11062: -- check and process an evergreen lease
11063: process_evergreen_contract(
11064: p_api_version => p_api_version,
11065: p_init_msg_list => OKL_API.G_FALSE,
11066: x_return_status => l_return_status,
11067: x_msg_count => x_msg_count,
11068: x_msg_data => x_msg_data,
11069: p_term_rec => l_term_rec,
11075: x_evergreen_status => l_evergreen_status);
11076:
11077: -- Update transaction only if evergreen was found and successful or if error
11078: IF (l_evergreen_status = G_YES
11079: AND l_return_status = OKL_API.G_RET_STS_SUCCESS)
11080: -- RMUNJULU 11-MAR-04 3485854
11081: -- Changed the IF condition to check for ERROR properly
11082: OR (l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
11083:
11078: IF (l_evergreen_status = G_YES
11079: AND l_return_status = OKL_API.G_RET_STS_SUCCESS)
11080: -- RMUNJULU 11-MAR-04 3485854
11081: -- Changed the IF condition to check for ERROR properly
11082: OR (l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
11083:
11084: -- update the transaction record
11085: process_transaction(
11086: p_api_version => p_api_version,
11083:
11084: -- update the transaction record
11085: process_transaction(
11086: p_api_version => p_api_version,
11087: p_init_msg_list => OKL_API.G_FALSE,
11088: x_return_status => l_return_status,
11089: x_msg_count => x_msg_count,
11090: x_msg_data => x_msg_data,
11091: p_id => 0,
11094: x_id => lx_id,
11095: p_trn_mode => 'UPDATE');
11096:
11097: -- rollback if processing transaction failed
11098: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11099: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11100: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11101: RAISE OKL_API.G_EXCEPTION_ERROR;
11102: END IF;
11095: p_trn_mode => 'UPDATE');
11096:
11097: -- rollback if processing transaction failed
11098: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11099: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11100: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11101: RAISE OKL_API.G_EXCEPTION_ERROR;
11102: END IF;
11103:
11096:
11097: -- rollback if processing transaction failed
11098: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11099: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11100: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11101: RAISE OKL_API.G_EXCEPTION_ERROR;
11102: END IF;
11103:
11104: -- Save messages from stack into transaction message table
11097: -- rollback if processing transaction failed
11098: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11099: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11100: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11101: RAISE OKL_API.G_EXCEPTION_ERROR;
11102: END IF;
11103:
11104: -- Save messages from stack into transaction message table
11105: OKL_AM_UTIL_PVT.process_messages(
11118:
11119: -- do cancellation of insurance
11120: process_cancel_insurance(
11121: p_api_version => p_api_version,
11122: p_init_msg_list => OKL_API.G_FALSE,
11123: x_return_status => l_return_status,
11124: x_msg_count => x_msg_count,
11125: x_msg_data => x_msg_data,
11126: p_term_rec => l_term_rec,
11137:
11138: -- do closing of balances
11139: process_close_balances(
11140: p_api_version => p_api_version,
11141: p_init_msg_list => OKL_API.G_FALSE,
11142: x_return_status => l_return_status,
11143: x_msg_count => x_msg_count,
11144: x_msg_data => x_msg_data,
11145: p_term_rec => l_term_rec,
11159: /*
11160: -- process close streams
11161: process_close_streams(
11162: p_api_version => p_api_version,
11163: p_init_msg_list => OKL_API.G_FALSE,
11164: x_return_status => l_return_status,
11165: x_msg_count => x_msg_count,
11166: x_msg_data => x_msg_data,
11167: p_term_rec => l_term_rec,
11173: */
11174: -- do accounting entries
11175: process_accounting_entries(
11176: p_api_version => p_api_version,
11177: p_init_msg_list => OKL_API.G_FALSE,
11178: x_return_status => l_return_status,
11179: x_msg_count => x_msg_count,
11180: x_msg_data => x_msg_data,
11181: p_term_rec => l_term_rec,
11194:
11195: -- do asset dispose
11196: process_asset_dispose(
11197: p_api_version => p_api_version,
11198: p_init_msg_list => OKL_API.G_FALSE,
11199: x_return_status => l_return_status,
11200: x_msg_count => x_msg_count,
11201: x_msg_data => x_msg_data,
11202: p_term_rec => l_term_rec,
11206: p_klev_tbl => lx_klev_tbl,
11207: p_trn_already_set => l_trn_already_set);
11208:
11209: -- Amortization of assets not needed since termination with purchase
11210: OKL_API.set_message( p_app_name => G_APP_NAME,
11211: p_msg_name => 'OKL_AM_AMORTIZE_NOT_NEED');
11212:
11213: -- Return of assets not needed since termination with purchase
11214: OKL_API.set_message( p_app_name => G_APP_NAME,
11210: OKL_API.set_message( p_app_name => G_APP_NAME,
11211: p_msg_name => 'OKL_AM_AMORTIZE_NOT_NEED');
11212:
11213: -- Return of assets not needed since termination with purchase
11214: OKL_API.set_message( p_app_name => G_APP_NAME,
11215: p_msg_name => 'OKL_AM_RETURN_NOT_NEED');
11216:
11217: ELSIF (l_auto_invoice_yn = 'Y') THEN -- rmunjulu BUYOUT_PROCESS
11218:
11217: ELSIF (l_auto_invoice_yn = 'Y') THEN -- rmunjulu BUYOUT_PROCESS
11218:
11219: process_asset_dispose(
11220: p_api_version => p_api_version,
11221: p_init_msg_list => OKL_API.G_FALSE,
11222: x_return_status => l_return_status,
11223: x_msg_count => x_msg_count,
11224: x_msg_data => x_msg_data,
11225: p_term_rec => l_term_rec,
11230: p_trn_already_set => l_trn_already_set,
11231: p_auto_invoice_yn => l_auto_invoice_yn); -- rmunjulu BUYOUT_PROCESS
11232:
11233: -- Amortization of assets not needed since termination with purchase
11234: OKL_API.set_message( p_app_name => G_APP_NAME,
11235: p_msg_name => 'OKL_AM_AMORTIZE_NOT_NEED');
11236:
11237: -- Return of assets not needed since termination with purchase
11238: OKL_API.set_message( p_app_name => G_APP_NAME,
11234: OKL_API.set_message( p_app_name => G_APP_NAME,
11235: p_msg_name => 'OKL_AM_AMORTIZE_NOT_NEED');
11236:
11237: -- Return of assets not needed since termination with purchase
11238: OKL_API.set_message( p_app_name => G_APP_NAME,
11239: p_msg_name => 'OKL_AM_RETURN_NOT_NEED');
11240:
11241: ELSE
11242: -- do amortization and asset return
11241: ELSE
11242: -- do amortization and asset return
11243: process_amortize_and_return(
11244: p_api_version => p_api_version,
11245: p_init_msg_list => OKL_API.G_FALSE,
11246: x_return_status => l_return_status,
11247: x_msg_count => x_msg_count,
11248: x_msg_data => x_msg_data,
11249: p_term_rec => l_term_rec,
11253: p_klev_tbl => lx_klev_tbl,
11254: p_trn_already_set => l_trn_already_set);
11255:
11256: -- Disposition of assets not needed since termination without purchase
11257: OKL_API.set_message( p_app_name => G_APP_NAME,
11258: p_msg_name => 'OKL_AM_DISPOSE_NOT_NEED');
11259:
11260: END IF;
11261:
11259:
11260: END IF;
11261:
11262: -- update the contract only if the overall_status is success
11263: IF (l_overall_status = OKL_API.G_RET_STS_SUCCESS) THEN
11264: --start:| 05-29-08 cklee -- fixed bug: 7017824(R12)/OKL.H: bug#6964174 |
11265: -- Added Bug# 6964174 - Start
11266: -- Introduced the call to modify pool content api to inactivate pool contents
11267: -- and recreate them. This was initially present as part of the early termination
11270: -- transaction like termination billing, termination accounting can have special
11271: -- accounting before the pool contents are inactivated.
11272:
11273: -- Logic to run only for early termination -- check for quote_id
11274: IF l_term_rec.p_quote_id IS NOT NULL AND l_term_rec.p_quote_id <> OKL_API.G_MISS_NUM THEN
11275: -- Check if contract is securitized for RENT
11276: OKL_SECURITIZATION_PVT.check_khr_securitized(
11277: p_api_version => p_api_version
11278: ,p_init_msg_list => OKL_API.G_FALSE
11274: IF l_term_rec.p_quote_id IS NOT NULL AND l_term_rec.p_quote_id <> OKL_API.G_MISS_NUM THEN
11275: -- Check if contract is securitized for RENT
11276: OKL_SECURITIZATION_PVT.check_khr_securitized(
11277: p_api_version => p_api_version
11278: ,p_init_msg_list => OKL_API.G_FALSE
11279: ,x_return_status => l_return_status
11280: ,x_msg_count => x_msg_count
11281: ,x_msg_data => x_msg_data
11282: ,p_khr_id => l_term_rec.p_contract_id
11284: ,p_stream_type_subclass => 'RENT'
11285: ,x_value => l_is_securitized
11286: ,x_inv_agmt_chr_id_tbl => l_inv_agmt_chr_id_tbl );
11287: -- rollback if processing transaction failed
11288: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11289: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11290: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11291: RAISE OKL_API.G_EXCEPTION_ERROR;
11292: END IF;
11285: ,x_value => l_is_securitized
11286: ,x_inv_agmt_chr_id_tbl => l_inv_agmt_chr_id_tbl );
11287: -- rollback if processing transaction failed
11288: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11289: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11290: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11291: RAISE OKL_API.G_EXCEPTION_ERROR;
11292: END IF;
11293:
11286: ,x_inv_agmt_chr_id_tbl => l_inv_agmt_chr_id_tbl );
11287: -- rollback if processing transaction failed
11288: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11289: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11290: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11291: RAISE OKL_API.G_EXCEPTION_ERROR;
11292: END IF;
11293:
11294: -- if contract is securitized, then call the modify pool contents. Prior to fix for bug# 6964174
11287: -- rollback if processing transaction failed
11288: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11289: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11290: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11291: RAISE OKL_API.G_EXCEPTION_ERROR;
11292: END IF;
11293:
11294: -- if contract is securitized, then call the modify pool contents. Prior to fix for bug# 6964174
11295: -- this was present in OKL_AM_SECURITIZATION_PVT.create_pool_transaction
11295: -- this was present in OKL_AM_SECURITIZATION_PVT.create_pool_transaction
11296: IF l_is_securitized = OKC_API.G_TRUE THEN
11297: OKL_SECURITIZATION_PVT.MODIFY_POOL_CONTENTS
11298: ( p_api_version => p_api_version
11299: ,p_init_msg_list => OKL_API.G_FALSE
11300: ,p_transaction_reason => OKL_SECURITIZATION_PVT.G_TRX_REASON_EARLY_TERMINATION
11301: ,p_khr_id => l_term_rec.p_contract_id
11302: ,p_stream_type_subclass => 'RENT'
11303: ,p_transaction_date => okl_am_lease_loan_trmnt_pvt.g_quote_accept_date
11305: ,x_return_status => l_return_status
11306: ,x_msg_count => x_msg_count
11307: ,x_msg_data => x_msg_data );
11308: -- rollback if processing transaction failed
11309: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11311: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11312: RAISE OKL_API.G_EXCEPTION_ERROR;
11313: END IF;
11306: ,x_msg_count => x_msg_count
11307: ,x_msg_data => x_msg_data );
11308: -- rollback if processing transaction failed
11309: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11311: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11312: RAISE OKL_API.G_EXCEPTION_ERROR;
11313: END IF;
11314: END IF;
11307: ,x_msg_data => x_msg_data );
11308: -- rollback if processing transaction failed
11309: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11311: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11312: RAISE OKL_API.G_EXCEPTION_ERROR;
11313: END IF;
11314: END IF;
11315: END IF;
11308: -- rollback if processing transaction failed
11309: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11311: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11312: RAISE OKL_API.G_EXCEPTION_ERROR;
11313: END IF;
11314: END IF;
11315: END IF;
11316: -- Added Bug# 6964174 - End
11318:
11319: -- Set the p_status (which sets the sts_code) for the contract
11320: IF l_term_rec.p_control_flag = 'BATCH_PROCESS'
11321: AND ( l_term_rec.p_quote_id IS NULL
11322: OR l_term_rec.p_quote_id = OKL_API.G_MISS_NUM) THEN
11323: l_status := 'EXPIRED';
11324: ELSE
11325: l_status := 'TERMINATED';
11326: END IF;
11327:
11328: -- set_and_update_contract
11329: update_k_hdr_and_lines(
11330: p_api_version => p_api_version,
11331: p_init_msg_list => OKL_API.G_FALSE,
11332: x_return_status => l_return_status,
11333: x_msg_count => x_msg_count,
11334: x_msg_data => x_msg_data,
11335: p_status => l_status,
11341: x_chrv_rec => lx_chrv_rec,
11342: x_clev_tbl => lx_clev_tbl,
11343: p_sys_date => l_sys_date);
11344:
11345: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
11346:
11347: -- set the transaction record
11348: set_transaction_rec(
11349: p_return_status => l_return_status,
11354:
11355: ELSE -- Update of K hdr and lines failed
11356:
11357: -- Contract table update failed.
11358: OKL_API.set_message( p_app_name => G_APP_NAME,
11359: p_msg_name => 'OKL_AM_ERR_K_UPD');
11360:
11361: -- set the transaction record
11362: set_transaction_rec(
11370:
11371: -- update the transaction record
11372: process_transaction(
11373: p_api_version => p_api_version,
11374: p_init_msg_list => OKL_API.G_FALSE,
11375: x_return_status => l_return_status,
11376: x_msg_count => x_msg_count,
11377: x_msg_data => x_msg_data,
11378: p_id => 0,
11381: x_id => lx_id,
11382: p_trn_mode => 'UPDATE');
11383:
11384: -- rollback if processing transaction failed
11385: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11386: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11387: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11388: RAISE OKL_API.G_EXCEPTION_ERROR;
11389: END IF;
11382: p_trn_mode => 'UPDATE');
11383:
11384: -- rollback if processing transaction failed
11385: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11386: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11387: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11388: RAISE OKL_API.G_EXCEPTION_ERROR;
11389: END IF;
11390:
11383:
11384: -- rollback if processing transaction failed
11385: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11386: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11387: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11388: RAISE OKL_API.G_EXCEPTION_ERROR;
11389: END IF;
11390:
11391: -- Save messages from stack into transaction message table
11384: -- rollback if processing transaction failed
11385: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11386: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11387: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11388: RAISE OKL_API.G_EXCEPTION_ERROR;
11389: END IF;
11390:
11391: -- Save messages from stack into transaction message table
11392: OKL_AM_UTIL_PVT.process_messages(
11400: x_return_status => l_return_status);
11401:
11402: -- Set the return status
11403:
11404: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11405:
11406:
11407: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
11408: IF (is_debug_procedure_on) THEN
11403:
11404: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11405:
11406:
11407: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
11408: IF (is_debug_procedure_on) THEN
11409: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
11410: END IF;
11411: EXCEPTION
11413: IF (is_debug_exception_on) THEN
11414: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_HALT_VALIDATION');
11415: END IF;
11416:
11417: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11418: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11419: IF (is_debug_exception_on) THEN
11420: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
11421: END IF;
11414: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_HALT_VALIDATION');
11415: END IF;
11416:
11417: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11418: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11419: IF (is_debug_exception_on) THEN
11420: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
11421: END IF;
11422:
11419: IF (is_debug_exception_on) THEN
11420: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
11421: END IF;
11422:
11423: x_return_status := OKL_API.HANDLE_EXCEPTIONS
11424: (
11425: l_api_name,
11426: G_PKG_NAME,
11427: 'OKL_API.G_RET_STS_ERROR',
11423: x_return_status := OKL_API.HANDLE_EXCEPTIONS
11424: (
11425: l_api_name,
11426: G_PKG_NAME,
11427: 'OKL_API.G_RET_STS_ERROR',
11428: x_msg_count,
11429: x_msg_data,
11430: '_PVT'
11431: );
11428: x_msg_count,
11429: x_msg_data,
11430: '_PVT'
11431: );
11432: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11433: IF (is_debug_exception_on) THEN
11434: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
11435: END IF;
11436:
11433: IF (is_debug_exception_on) THEN
11434: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
11435: END IF;
11436:
11437: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
11438: (
11439: l_api_name,
11440: G_PKG_NAME,
11441: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11437: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
11438: (
11439: l_api_name,
11440: G_PKG_NAME,
11441: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11442: x_msg_count,
11443: x_msg_data,
11444: '_PVT'
11445: );
11447: IF (is_debug_exception_on) THEN
11448: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
11449: END IF;
11450:
11451: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
11452: (
11453: l_api_name,
11454: G_PKG_NAME,
11455: 'OTHERS',