7:
8: -- Global Variables
9: G_INIT_NUMBER NUMBER := -9999;
10: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_TRANSACTION_PVT';
11: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
12: G_API_TYPE CONSTANT VARCHAR2(4) := '_PVT';
13:
14: -- smadhava Bug# 4542290 - 24-Aug-2005 - Added - Start
15: G_REBOOK_TRX CONSTANT VARCHAR(30) := 'REBOOK';
51: x_msg_out VARCHAR2(2000);
52:
53: BEGIN
54:
55: okl_api.end_activity(
56: X_msg_count => x_msg_count,
57: X_msg_data => x_msg_data
58: );
59:
118: RETURN;
119:
120: EXCEPTION
121: WHEN rebook_failed THEN
122: okl_api.set_message(
123: G_APP_NAME,
124: G_INVALID_VALUE,
125: 'COL_NAME',
126: 'REBOOK REASON'
186: OPEN con_header_csr(p_chr_id);
187: FETCH con_header_csr INTO l_currency_code,
188: l_org_id;
189: IF con_header_csr%NOTFOUND THEN
190: okl_api.set_message(
191: G_APP_NAME,
192: G_LLA_CHR_ID
193: );
194: RAISE populate_failed;
211:
212: OPEN try_csr (p_trx_type);
213: FETCH try_csr INTO l_try_id;
214: IF try_csr%NOTFOUND THEN
215: okl_api.set_message(
216: G_APP_NAME,
217: G_LLA_NO_TRY,
218: 'TRX_TYPE',
219: p_trx_type
247: -- get the contract number
248: OPEN contract_num_csr(p_chr_id);
249: FETCH contract_num_csr INTO l_cntrct_number;
250: CLOSE contract_num_csr;
251: Okl_Api.set_message(p_app_name => g_app_name,
252: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
253: p_token1 => 'CONTRACT_NUMBER',
254: p_token1_value => l_cntrct_number);
255: RAISE OKL_API.G_EXCEPTION_ERROR;
251: Okl_Api.set_message(p_app_name => g_app_name,
252: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
253: p_token1 => 'CONTRACT_NUMBER',
254: p_token1_value => l_cntrct_number);
255: RAISE OKL_API.G_EXCEPTION_ERROR;
256: END IF;
257: RETURN;
258:
259:
270:
271: x_return_status := OKC_API.G_RET_STS_ERROR;
272:
273: WHEN OTHERS THEN
274: okl_api.set_message(
275: G_APP_NAME,
276: G_UNEXPECTED_ERROR,
277: 'OKL_SQLCODE',
278: SQLCODE,
363: RAISE Okc_Api.G_EXCEPTION_ERROR;
364: END IF;
365:
366: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
367: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
368: x_msg_data => x_msg_data);
369:
370: EXCEPTION
371: WHEN OKC_API.G_EXCEPTION_ERROR THEN
426: IF (G_DEBUG_ENABLED = 'Y') THEN
427: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
428: END IF;
429:
430: x_return_status := OKL_API.G_RET_STS_SUCCESS;
431: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
432: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
433: END IF;
434:
443: x_value => l_contract_secu,
444: x_inv_agmt_chr_id_tbl => l_inv_agmt_chr_id_tbl
445: );
446:
447: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
448: IF (l_contract_secu = OKL_API.G_TRUE) THEN
449: okl_api.set_message(
450: G_APP_NAME,
451: G_LLA_SECU_ERROR
444: x_inv_agmt_chr_id_tbl => l_inv_agmt_chr_id_tbl
445: );
446:
447: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
448: IF (l_contract_secu = OKL_API.G_TRUE) THEN
449: okl_api.set_message(
450: G_APP_NAME,
451: G_LLA_SECU_ERROR
452: );
445: );
446:
447: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
448: IF (l_contract_secu = OKL_API.G_TRUE) THEN
449: okl_api.set_message(
450: G_APP_NAME,
451: G_LLA_SECU_ERROR
452: );
453: x_return_status := OKL_API.G_RET_STS_ERROR;
449: okl_api.set_message(
450: G_APP_NAME,
451: G_LLA_SECU_ERROR
452: );
453: x_return_status := OKL_API.G_RET_STS_ERROR;
454: END IF;
455: END IF;
456:
457: RETURN;
502: IF (G_DEBUG_ENABLED = 'Y') THEN
503: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
504: END IF;
505:
506: x_return_status := OKL_API.G_RET_STS_SUCCESS;
507: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
508: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
509: END IF;
510:
509: END IF;
510:
511: okl_securitization_pvt.check_kle_securitized(
512: p_api_version => p_api_version,
513: p_init_msg_list => OKL_API.G_FALSE,
514: x_return_status => x_return_status,
515: x_msg_count => x_msg_count,
516: x_msg_data => x_msg_data,
517: p_kle_id => p_cle_id,
520: x_value => l_asset_secu,
521: x_inv_agmt_chr_id_tbl => l_inv_agmt_chr_id_tbl
522: );
523:
524: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
525: IF (l_asset_secu = OKL_API.G_TRUE) THEN
526: okl_api.set_message(
527: G_APP_NAME,
528: G_LLA_SECU_ERROR
521: x_inv_agmt_chr_id_tbl => l_inv_agmt_chr_id_tbl
522: );
523:
524: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
525: IF (l_asset_secu = OKL_API.G_TRUE) THEN
526: okl_api.set_message(
527: G_APP_NAME,
528: G_LLA_SECU_ERROR
529: );
522: );
523:
524: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
525: IF (l_asset_secu = OKL_API.G_TRUE) THEN
526: okl_api.set_message(
527: G_APP_NAME,
528: G_LLA_SECU_ERROR
529: );
530: x_return_status := OKL_API.G_RET_STS_ERROR;
526: okl_api.set_message(
527: G_APP_NAME,
528: G_LLA_SECU_ERROR
529: );
530: x_return_status := OKL_API.G_RET_STS_ERROR;
531: END IF;
532: END IF;
533:
534: RETURN;
642: END IF;
643:
644: EXCEPTION
645: WHEN OTHERS THEN
646: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
648: END raise_business_event;
649:
650:
643:
644: EXCEPTION
645: WHEN OTHERS THEN
646: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
648: END raise_business_event;
649:
650:
651: /*
679: RAISE OKC_API.G_EXCEPTION_ERROR;
680: END IF;
681:
682: IF (p_trx_type NOT IN ('REBOOK','SPLIT')) THEN
683: okl_api.set_message(
684: G_APP_NAME,
685: G_LLA_INVALID_TRX_TYPE,
686: 'TRX_TYPE',
687: p_trx_type
694: -- Check for securitization during split contract
695: --
696: check_contract_securitized(
697: p_api_version => p_api_version,
698: p_init_msg_list => OKL_API.G_FALSE,
699: x_return_status => x_return_status,
700: x_msg_count => x_msg_count,
701: x_msg_data => x_msg_data,
702: p_chr_id => p_chr_id,
702: p_chr_id => p_chr_id,
703: p_trx_date => p_trx_date
704: );
705:
706: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
707: RAISE OKC_API.G_EXCEPTION_ERROR;
708: END IF;
709: END IF;
710:
721: OPEN contract_num_csr(p_chr_id);
722: FETCH contract_num_csr INTO l_contract_number;
723: CLOSE contract_num_csr;
724:
725: okl_api.set_message(
726: G_APP_NAME,
727: 'OKL_TX_AST_LOC_RBK_NOTALLWED',
728: 'CONTRACT_NUMBER',
729: l_contract_number
747: --
748: -- Check for Transaction Date, it is mandetory
749: --
750: IF (p_trx_date IS NULL) THEN
751: okl_api.set_message(
752: G_APP_NAME,
753: G_LLA_MISSING_TRX_DATE
754: );
755: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
772: FETCH check_date_csr INTO l_date_valid;
773: CLOSE check_date_csr;
774:
775: IF (l_date_valid = 'N') THEN
776: okl_api.set_message(
777: G_APP_NAME,
778: G_LLA_WRONG_TRX_DATE,
779: 'START_DATE',
780: l_con_start_date,
789: IF (p_trx_type = G_REBOOK_TRX) THEN
790: -- check if the rebook transaction is allowed for the contract for this rebook date
791: OKL_K_RATE_PARAMS_PVT.check_rebook_allowed(
792: p_api_version => p_api_version
793: , p_init_msg_list => OKL_API.G_FALSE
794: , x_return_status => x_return_status
795: , x_msg_count => x_msg_count
796: , x_msg_data => x_msg_data
797: , p_chr_id => p_chr_id
842: IF (p_trx_type = G_REBOOK_TRX) THEN
843: -- check if the rebook transaction is allowed for the contract for this rebook date
844: OKL_K_RATE_PARAMS_PVT.check_rebook_allowed(
845: p_api_version => p_api_version
846: , p_init_msg_list => OKL_API.G_FALSE
847: , x_return_status => x_return_status
848: , x_msg_count => x_msg_count
849: , x_msg_data => x_msg_data
850: , p_chr_id => p_chr_id
863: -- mvasudev, 08/30/2004
864: -- Code change to enable Business Event
865: */
866: raise_business_event(x_return_status => x_return_status);
867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
870: RAISE OKL_API.G_EXCEPTION_ERROR;
871: END IF;
864: -- Code change to enable Business Event
865: */
866: raise_business_event(x_return_status => x_return_status);
867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
870: RAISE OKL_API.G_EXCEPTION_ERROR;
871: END IF;
872:
865: */
866: raise_business_event(x_return_status => x_return_status);
867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
870: RAISE OKL_API.G_EXCEPTION_ERROR;
871: END IF;
872:
873: /*
866: raise_business_event(x_return_status => x_return_status);
867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
870: RAISE OKL_API.G_EXCEPTION_ERROR;
871: END IF;
872:
873: /*
874: -- mvasudev, 08/30/2004
875: -- END, Code change to enable Business Event
876: */
877:
878: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
879: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
880: x_msg_data => x_msg_data);
881:
882: EXCEPTION
883: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1105: EXIT WHEN (i >= l_rev_tbl.last);
1106:
1107: END LOOP;
1108:
1109: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1110: x_msg_data => x_msg_data);
1111:
1112: EXCEPTION
1113: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1220: --
1221: -- Check for Transaction Date, it is mandetory
1222: --
1223: IF (p_trx_date IS NULL) THEN
1224: okl_api.set_message(
1225: G_APP_NAME,
1226: G_LLA_MISSING_TRX_DATE
1227: );
1228: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1262: -- get the contract number
1263: OPEN contract_num_csr(p_lease_id);
1264: FETCH contract_num_csr INTO l_cntrct_number;
1265: CLOSE contract_num_csr;
1266: Okl_Api.set_message(p_app_name => g_app_name,
1267: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
1268: p_token1 => 'CONTRACT_NUMBER',
1269: p_token1_value => l_cntrct_number);
1270: RAISE OKL_API.G_EXCEPTION_ERROR;
1266: Okl_Api.set_message(p_app_name => g_app_name,
1267: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
1268: p_token1 => 'CONTRACT_NUMBER',
1269: p_token1_value => l_cntrct_number);
1270: RAISE OKL_API.G_EXCEPTION_ERROR;
1271: END IF;
1272: FOR con_header_rec IN con_header_csr (p_lease_id)
1273: LOOP
1274: l_tcnv_rec.org_id := con_header_rec.authoring_org_id;
1303: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Done...');
1304: END IF;
1305:
1306: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1307: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1308: x_msg_data => x_msg_data);
1309:
1310: EXCEPTION
1311:
1312: WHEN service_txn_failed THEN
1313: IF try_csr%ISOPEN THEN
1314: CLOSE try_csr;
1315: END IF;
1316: x_return_status := OKL_API.G_RET_STS_ERROR;
1317:
1318: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1319: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1320: p_api_name => l_api_name,
1425: --
1426: -- Check for Transaction Date, it is mandetory
1427: --
1428: IF (p_trx_date IS NULL) THEN
1429: okl_api.set_message(
1430: G_APP_NAME,
1431: G_LLA_MISSING_TRX_DATE
1432: );
1433: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1468: -- get the contract number
1469: OPEN contract_num_csr(p_chr_id);
1470: FETCH contract_num_csr INTO l_cntrct_number;
1471: CLOSE contract_num_csr;
1472: Okl_Api.set_message(p_app_name => g_app_name,
1473: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
1474: p_token1 => 'CONTRACT_NUMBER',
1475: p_token1_value => l_cntrct_number);
1476: RAISE OKL_API.G_EXCEPTION_ERROR;
1472: Okl_Api.set_message(p_app_name => g_app_name,
1473: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
1474: p_token1 => 'CONTRACT_NUMBER',
1475: p_token1_value => l_cntrct_number);
1476: RAISE OKL_API.G_EXCEPTION_ERROR;
1477: END IF;
1478: FOR con_header_rec IN con_header_csr (p_chr_id)
1479: LOOP
1480: l_tcnv_rec.org_id := con_header_rec.authoring_org_id;
1509: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Done...');
1510: END IF;
1511:
1512: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1513: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1514: x_msg_data => x_msg_data);
1515:
1516: EXCEPTION
1517:
1518: WHEN ppd_txn_failed THEN
1519: IF try_csr%ISOPEN THEN
1520: CLOSE try_csr;
1521: END IF;
1522: x_return_status := OKL_API.G_RET_STS_ERROR;
1523:
1524: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1525: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1526: p_api_name => l_api_name,