[Home] [Help]
1: PACKAGE BODY OKL_LA_SALES_TAX_PVT AS
2: /* $Header: OKLRSTXB.pls 120.57.12010000.4 2008/10/31 05:48:42 rpillay ship $ */
3:
4: G_MODULE VARCHAR2(255) := 'okl.stream.esg.okl_esg_transport_pvt';
5: G_DEBUG_ENABLED CONSTANT VARCHAR2(10) := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
6: G_IS_DEBUG_STATEMENT_ON BOOLEAN;
7:
8: -- Common Cursors
9:
611: and col.application_column_name = p_ri;
612:
613: BEGIN
614: IF (G_DEBUG_ENABLED = 'Y') THEN
615: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
616: END IF;
617:
618: x_return_status := OKL_API.G_RET_STS_SUCCESS;
619:
627: IF okl_context.get_okc_org_id IS NULL THEN
628: okl_context.set_okc_org_context(p_chr_id => p_chr_id);
629: END IF;
630: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
631: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sync here1');
632: END IF;
633: -- call START_ACTIVITY to create savepoint, check compatibility
634: -- and initialize message list
635: x_return_status := OKL_API.START_ACTIVITY (
946:
947:
948: BEGIN
949:
950: okl_debug_pub.logmessage('OKL: POP TRX : START');
951: okl_debug_pub.logmessage('OKL: POP TRX : p_contract_id: ' || p_contract_id);
952: okl_debug_pub.logmessage('OKL: POP TRX : p_transaction_type: ' || p_transaction_type);
953: okl_debug_pub.logmessage('OKL: POP TRX : p_transaction_id: ' || p_transaction_id);
954: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_id: ' || p_source_trx_id);
947:
948: BEGIN
949:
950: okl_debug_pub.logmessage('OKL: POP TRX : START');
951: okl_debug_pub.logmessage('OKL: POP TRX : p_contract_id: ' || p_contract_id);
952: okl_debug_pub.logmessage('OKL: POP TRX : p_transaction_type: ' || p_transaction_type);
953: okl_debug_pub.logmessage('OKL: POP TRX : p_transaction_id: ' || p_transaction_id);
954: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_id: ' || p_source_trx_id);
955: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_type: ' || p_source_trx_type);
948: BEGIN
949:
950: okl_debug_pub.logmessage('OKL: POP TRX : START');
951: okl_debug_pub.logmessage('OKL: POP TRX : p_contract_id: ' || p_contract_id);
952: okl_debug_pub.logmessage('OKL: POP TRX : p_transaction_type: ' || p_transaction_type);
953: okl_debug_pub.logmessage('OKL: POP TRX : p_transaction_id: ' || p_transaction_id);
954: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_id: ' || p_source_trx_id);
955: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_type: ' || p_source_trx_type);
956:
949:
950: okl_debug_pub.logmessage('OKL: POP TRX : START');
951: okl_debug_pub.logmessage('OKL: POP TRX : p_contract_id: ' || p_contract_id);
952: okl_debug_pub.logmessage('OKL: POP TRX : p_transaction_type: ' || p_transaction_type);
953: okl_debug_pub.logmessage('OKL: POP TRX : p_transaction_id: ' || p_transaction_id);
954: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_id: ' || p_source_trx_id);
955: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_type: ' || p_source_trx_type);
956:
957: IF (G_DEBUG_ENABLED = 'Y') THEN
950: okl_debug_pub.logmessage('OKL: POP TRX : START');
951: okl_debug_pub.logmessage('OKL: POP TRX : p_contract_id: ' || p_contract_id);
952: okl_debug_pub.logmessage('OKL: POP TRX : p_transaction_type: ' || p_transaction_type);
953: okl_debug_pub.logmessage('OKL: POP TRX : p_transaction_id: ' || p_transaction_id);
954: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_id: ' || p_source_trx_id);
955: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_type: ' || p_source_trx_type);
956:
957: IF (G_DEBUG_ENABLED = 'Y') THEN
958: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
951: okl_debug_pub.logmessage('OKL: POP TRX : p_contract_id: ' || p_contract_id);
952: okl_debug_pub.logmessage('OKL: POP TRX : p_transaction_type: ' || p_transaction_type);
953: okl_debug_pub.logmessage('OKL: POP TRX : p_transaction_id: ' || p_transaction_id);
954: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_id: ' || p_source_trx_id);
955: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_type: ' || p_source_trx_type);
956:
957: IF (G_DEBUG_ENABLED = 'Y') THEN
958: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
959: END IF;
954: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_id: ' || p_source_trx_id);
955: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_type: ' || p_source_trx_type);
956:
957: IF (G_DEBUG_ENABLED = 'Y') THEN
958: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
959: END IF;
960:
961: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
962: l_sysdate := SYSDATE;
963: l_sysdate_trunc := trunc(SYSDATE);
964: i := 0;
965:
966: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
967: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : START ');
968: END IF;
969:
970:
971: -- R12 - START
1033: RAISE pop_trx_failed;
1034: END IF;
1035:
1036: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1037: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : before Transaction_Type_csr ');
1038: END IF;
1039: -- Check Transaction_Type
1040: OPEN Transaction_Type_csr(l_transaction_type);
1041: FETCH Transaction_Type_csr INTO l_Trx_Type_rec;
1051: RAISE pop_trx_failed;
1052: END IF;
1053: CLOSE Transaction_Type_csr;
1054:
1055: okl_debug_pub.logmessage('OKL: POP TRX : Transaction_Type_csr.id: ' || l_Trx_Type_rec.id);
1056:
1057: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1058: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : before fnd_lookups_csr ');
1059: END IF;
1054:
1055: okl_debug_pub.logmessage('OKL: POP TRX : Transaction_Type_csr.id: ' || l_Trx_Type_rec.id);
1056:
1057: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1058: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : before fnd_lookups_csr ');
1059: END IF;
1060:
1061: OPEN fnd_lookups_csr('OKL_TCN_TYPE', l_transaction_type);
1062: FETCH fnd_lookups_csr INTO l_fnd_rec;
1067: RAISE pop_trx_failed;
1068: END IF;
1069: CLOSE fnd_lookups_csr;
1070:
1071: okl_debug_pub.logmessage('OKL: POP TRX : transaction type: ' || l_transaction_type);
1072: okl_debug_pub.logmessage('OKL: POP TRX : fnd_lookups_csr: Description ' || l_fnd_rec.description);
1073: okl_debug_pub.logmessage('OKL: POP TRX : fnd_lookups_csr: lookup_code ' || l_fnd_rec.lookup_code);
1074:
1075:
1068: END IF;
1069: CLOSE fnd_lookups_csr;
1070:
1071: okl_debug_pub.logmessage('OKL: POP TRX : transaction type: ' || l_transaction_type);
1072: okl_debug_pub.logmessage('OKL: POP TRX : fnd_lookups_csr: Description ' || l_fnd_rec.description);
1073: okl_debug_pub.logmessage('OKL: POP TRX : fnd_lookups_csr: lookup_code ' || l_fnd_rec.lookup_code);
1074:
1075:
1076: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1069: CLOSE fnd_lookups_csr;
1070:
1071: okl_debug_pub.logmessage('OKL: POP TRX : transaction type: ' || l_transaction_type);
1072: okl_debug_pub.logmessage('OKL: POP TRX : fnd_lookups_csr: Description ' || l_fnd_rec.description);
1073: okl_debug_pub.logmessage('OKL: POP TRX : fnd_lookups_csr: lookup_code ' || l_fnd_rec.lookup_code);
1074:
1075:
1076: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1077: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : before trx_csr ');
1073: okl_debug_pub.logmessage('OKL: POP TRX : fnd_lookups_csr: lookup_code ' || l_fnd_rec.lookup_code);
1074:
1075:
1076: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1077: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : before trx_csr ');
1078: END IF;
1079:
1080: -- gboomina Bug 6487183 - Start
1081: -- For Upfront Tax transaction always create transaction header record
1083: OPEN trx_csr(p_contract_id,l_fnd_rec.lookup_code);
1084: FETCH trx_csr INTO l_trx_rec;
1085: IF trx_csr%NOTFOUND THEN -- While activation, create a new trans always.
1086: l_has_trans := OKL_API.G_FALSE;
1087: okl_debug_pub.logmessage('OKL: POP TRX : No Existing TRX: '||l_fnd_rec.lookup_code);
1088: Else
1089: l_has_trans := OKL_API.G_TRUE;
1090: okl_debug_pub.logmessage('OKL: POP TRX : TRX Exists: '|| l_fnd_rec.lookup_code);
1091: END IF;
1086: l_has_trans := OKL_API.G_FALSE;
1087: okl_debug_pub.logmessage('OKL: POP TRX : No Existing TRX: '||l_fnd_rec.lookup_code);
1088: Else
1089: l_has_trans := OKL_API.G_TRUE;
1090: okl_debug_pub.logmessage('OKL: POP TRX : TRX Exists: '|| l_fnd_rec.lookup_code);
1091: END IF;
1092: CLOSE trx_csr;
1093: ELSE
1094: l_has_trans := OKL_API.G_FALSE;
1107: IF p_transaction_amount IS NOT NULL THEN
1108: l_trxH_in_rec.amount := p_transaction_amount;
1109: END IF;
1110:
1111: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.khr_id : '|| l_trxH_in_rec.khr_id);
1112: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_id : '|| l_trxH_in_rec.source_trx_id);
1113: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_type : '|| l_trxH_in_rec.source_trx_type);
1114: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.date_transaction_occurred : '|| l_trxH_in_rec.date_transaction_occurred);
1115: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.try_id : '|| l_trxH_in_rec.try_id);
1108: l_trxH_in_rec.amount := p_transaction_amount;
1109: END IF;
1110:
1111: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.khr_id : '|| l_trxH_in_rec.khr_id);
1112: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_id : '|| l_trxH_in_rec.source_trx_id);
1113: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_type : '|| l_trxH_in_rec.source_trx_type);
1114: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.date_transaction_occurred : '|| l_trxH_in_rec.date_transaction_occurred);
1115: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.try_id : '|| l_trxH_in_rec.try_id);
1116: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.tcn_type : '|| l_trxH_in_rec.tcn_type);
1109: END IF;
1110:
1111: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.khr_id : '|| l_trxH_in_rec.khr_id);
1112: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_id : '|| l_trxH_in_rec.source_trx_id);
1113: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_type : '|| l_trxH_in_rec.source_trx_type);
1114: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.date_transaction_occurred : '|| l_trxH_in_rec.date_transaction_occurred);
1115: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.try_id : '|| l_trxH_in_rec.try_id);
1116: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.tcn_type : '|| l_trxH_in_rec.tcn_type);
1117: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.amount : '|| l_trxH_in_rec.amount);
1110:
1111: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.khr_id : '|| l_trxH_in_rec.khr_id);
1112: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_id : '|| l_trxH_in_rec.source_trx_id);
1113: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_type : '|| l_trxH_in_rec.source_trx_type);
1114: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.date_transaction_occurred : '|| l_trxH_in_rec.date_transaction_occurred);
1115: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.try_id : '|| l_trxH_in_rec.try_id);
1116: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.tcn_type : '|| l_trxH_in_rec.tcn_type);
1117: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.amount : '|| l_trxH_in_rec.amount);
1118:
1111: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.khr_id : '|| l_trxH_in_rec.khr_id);
1112: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_id : '|| l_trxH_in_rec.source_trx_id);
1113: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_type : '|| l_trxH_in_rec.source_trx_type);
1114: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.date_transaction_occurred : '|| l_trxH_in_rec.date_transaction_occurred);
1115: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.try_id : '|| l_trxH_in_rec.try_id);
1116: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.tcn_type : '|| l_trxH_in_rec.tcn_type);
1117: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.amount : '|| l_trxH_in_rec.amount);
1118:
1119: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1112: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_id : '|| l_trxH_in_rec.source_trx_id);
1113: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_type : '|| l_trxH_in_rec.source_trx_type);
1114: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.date_transaction_occurred : '|| l_trxH_in_rec.date_transaction_occurred);
1115: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.try_id : '|| l_trxH_in_rec.try_id);
1116: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.tcn_type : '|| l_trxH_in_rec.tcn_type);
1117: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.amount : '|| l_trxH_in_rec.amount);
1118:
1119: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1120: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : transaction type '||l_transaction_type);
1113: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_type : '|| l_trxH_in_rec.source_trx_type);
1114: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.date_transaction_occurred : '|| l_trxH_in_rec.date_transaction_occurred);
1115: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.try_id : '|| l_trxH_in_rec.try_id);
1116: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.tcn_type : '|| l_trxH_in_rec.tcn_type);
1117: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.amount : '|| l_trxH_in_rec.amount);
1118:
1119: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1120: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : transaction type '||l_transaction_type);
1121: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : try_id '||l_trxH_in_rec.try_id);
1116: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.tcn_type : '|| l_trxH_in_rec.tcn_type);
1117: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.amount : '|| l_trxH_in_rec.amount);
1118:
1119: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1120: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : transaction type '||l_transaction_type);
1121: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : try_id '||l_trxH_in_rec.try_id);
1122: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : tcn_type '||l_trxH_in_rec.tcn_type);
1123: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : l_has_trans '||l_has_trans);
1124: END IF;
1117: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.amount : '|| l_trxH_in_rec.amount);
1118:
1119: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1120: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : transaction type '||l_transaction_type);
1121: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : try_id '||l_trxH_in_rec.try_id);
1122: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : tcn_type '||l_trxH_in_rec.tcn_type);
1123: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : l_has_trans '||l_has_trans);
1124: END IF;
1125:
1118:
1119: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1120: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : transaction type '||l_transaction_type);
1121: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : try_id '||l_trxH_in_rec.try_id);
1122: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : tcn_type '||l_trxH_in_rec.tcn_type);
1123: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : l_has_trans '||l_has_trans);
1124: END IF;
1125:
1126: If ( l_has_trans = OKL_API.G_FALSE ) Then
1119: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1120: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : transaction type '||l_transaction_type);
1121: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : try_id '||l_trxH_in_rec.try_id);
1122: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : tcn_type '||l_trxH_in_rec.tcn_type);
1123: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : l_has_trans '||l_has_trans);
1124: END IF;
1125:
1126: If ( l_has_trans = OKL_API.G_FALSE ) Then
1127:
1125:
1126: If ( l_has_trans = OKL_API.G_FALSE ) Then
1127:
1128: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1129: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : before fnd_lookups_csr ');
1130: END IF;
1131:
1132: -- The followinf if segment ensures that Upfront Tax transaction is created
1133: -- with 'Processed' status
1147:
1148: l_trxH_in_rec.tsu_code := l_fnd_rec.lookup_code;
1149: l_trxH_in_rec.description := l_fnd_rec.description;
1150:
1151: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.tsu_code : '|| l_trxH_in_rec.tsu_code);
1152: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.description : '|| l_trxH_in_rec.description);
1153:
1154:
1155: --Added by dpsingh for LE Uptake
1148: l_trxH_in_rec.tsu_code := l_fnd_rec.lookup_code;
1149: l_trxH_in_rec.description := l_fnd_rec.description;
1150:
1151: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.tsu_code : '|| l_trxH_in_rec.tsu_code);
1152: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.description : '|| l_trxH_in_rec.description);
1153:
1154:
1155: --Added by dpsingh for LE Uptake
1156: l_legal_entity_id := OKL_LEGAL_ENTITY_UTIL.get_khr_le_id(p_contract_id) ;
1167: p_token1_value => l_cntrct_number);
1168: RAISE OKL_API.G_EXCEPTION_ERROR;
1169: END IF;
1170: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1171: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
1172: , G_MODULE
1173: ,'OKL: Populate Trx Procedure : before Okl_Trx_Contracts_Pub.create_trx_contracts ');
1174: END IF;
1175:
1182: ,x_msg_data => x_msg_data
1183: ,p_tcnv_rec => l_trxH_in_rec
1184: ,x_tcnv_rec => l_trxH_out_rec);
1185:
1186: okl_debug_pub.logmessage('OKL: POP TRX : return status '||x_return_status);
1187:
1188: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1189: RAISE pop_trx_failed;
1190: END IF;
1201: -- outbound transaction id
1202: x_transaction_id := l_trxH_out_rec.id;
1203: x_trxh_out_rec := l_trxH_out_rec; -- R12 Change
1204:
1205: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_out_rec.id : '|| l_trxH_out_rec.id);
1206: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_out_rec.description : '|| l_trxH_out_rec.description);
1207:
1208: okl_debug_pub.logmessage('OKL: POP TRX : try id '||l_trxH_out_rec.TRY_ID);
1209: okl_debug_pub.logmessage('OKL: POP TRX : transaction type '||l_trxH_out_rec.TCN_TYPE);
1202: x_transaction_id := l_trxH_out_rec.id;
1203: x_trxh_out_rec := l_trxH_out_rec; -- R12 Change
1204:
1205: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_out_rec.id : '|| l_trxH_out_rec.id);
1206: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_out_rec.description : '|| l_trxH_out_rec.description);
1207:
1208: okl_debug_pub.logmessage('OKL: POP TRX : try id '||l_trxH_out_rec.TRY_ID);
1209: okl_debug_pub.logmessage('OKL: POP TRX : transaction type '||l_trxH_out_rec.TCN_TYPE);
1210: okl_debug_pub.logmessage('OKL: POP TRX : tsu code '||l_trxH_out_rec.TSU_CODE);
1204:
1205: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_out_rec.id : '|| l_trxH_out_rec.id);
1206: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_out_rec.description : '|| l_trxH_out_rec.description);
1207:
1208: okl_debug_pub.logmessage('OKL: POP TRX : try id '||l_trxH_out_rec.TRY_ID);
1209: okl_debug_pub.logmessage('OKL: POP TRX : transaction type '||l_trxH_out_rec.TCN_TYPE);
1210: okl_debug_pub.logmessage('OKL: POP TRX : tsu code '||l_trxH_out_rec.TSU_CODE);
1211:
1212: ELSE
1205: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_out_rec.id : '|| l_trxH_out_rec.id);
1206: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_out_rec.description : '|| l_trxH_out_rec.description);
1207:
1208: okl_debug_pub.logmessage('OKL: POP TRX : try id '||l_trxH_out_rec.TRY_ID);
1209: okl_debug_pub.logmessage('OKL: POP TRX : transaction type '||l_trxH_out_rec.TCN_TYPE);
1210: okl_debug_pub.logmessage('OKL: POP TRX : tsu code '||l_trxH_out_rec.TSU_CODE);
1211:
1212: ELSE
1213:
1206: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_out_rec.description : '|| l_trxH_out_rec.description);
1207:
1208: okl_debug_pub.logmessage('OKL: POP TRX : try id '||l_trxH_out_rec.TRY_ID);
1209: okl_debug_pub.logmessage('OKL: POP TRX : transaction type '||l_trxH_out_rec.TCN_TYPE);
1210: okl_debug_pub.logmessage('OKL: POP TRX : tsu code '||l_trxH_out_rec.TSU_CODE);
1211:
1212: ELSE
1213:
1214: --if transaction exists change the date transaction occured
1214: --if transaction exists change the date transaction occured
1215: l_upd_trxH_rec.id := l_trx_rec.HeaderTransID;
1216: l_upd_trxH_rec.date_transaction_occurred := l_trx_rec.date_transaction_occurred;
1217: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1218: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : transaction ID '||l_trx_rec.HeaderTransID);
1219: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : before fnd_lookups_csr ');
1220: END IF;
1221:
1222: OPEN fnd_lookups_csr('OKL_TRANSACTION_STATUS', 'Entered');
1215: l_upd_trxH_rec.id := l_trx_rec.HeaderTransID;
1216: l_upd_trxH_rec.date_transaction_occurred := l_trx_rec.date_transaction_occurred;
1217: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1218: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : transaction ID '||l_trx_rec.HeaderTransID);
1219: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : before fnd_lookups_csr ');
1220: END IF;
1221:
1222: OPEN fnd_lookups_csr('OKL_TRANSACTION_STATUS', 'Entered');
1223: FETCH fnd_lookups_csr INTO l_fnd_rec;
1231:
1232: l_upd_trxH_rec.tsu_code := l_fnd_rec.lookup_code;
1233:
1234: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1235: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : before Okl_Trx_Contracts_Pub.update_trx_contracts ');
1236: END IF;
1237:
1238: Okl_Trx_Contracts_Pub.update_trx_contracts(
1239: p_api_version => p_api_version
1258: -- outbound transaction id
1259: x_transaction_id := l_trx_rec.HeaderTransID;
1260: x_trxh_out_rec := lx_upd_trxH_rec; -- R12 Change
1261:
1262: okl_debug_pub.logmessage('OKL: POP TRX : return status '||x_return_status);
1263: okl_debug_pub.logmessage('OKL: POP TRX : lx_upd_trxH_rec.id : '|| lx_upd_trxH_rec.id);
1264: okl_debug_pub.logmessage('OKL: POP TRX : lx_upd_trxH_rec.description : '|| lx_upd_trxH_rec.description);
1265:
1266: okl_debug_pub.logmessage('OKL: POP TRX : try id '||lx_upd_trxH_rec.TRY_ID);
1259: x_transaction_id := l_trx_rec.HeaderTransID;
1260: x_trxh_out_rec := lx_upd_trxH_rec; -- R12 Change
1261:
1262: okl_debug_pub.logmessage('OKL: POP TRX : return status '||x_return_status);
1263: okl_debug_pub.logmessage('OKL: POP TRX : lx_upd_trxH_rec.id : '|| lx_upd_trxH_rec.id);
1264: okl_debug_pub.logmessage('OKL: POP TRX : lx_upd_trxH_rec.description : '|| lx_upd_trxH_rec.description);
1265:
1266: okl_debug_pub.logmessage('OKL: POP TRX : try id '||lx_upd_trxH_rec.TRY_ID);
1267: okl_debug_pub.logmessage('OKL: POP TRX : transaction type '||lx_upd_trxH_rec.TCN_TYPE);
1260: x_trxh_out_rec := lx_upd_trxH_rec; -- R12 Change
1261:
1262: okl_debug_pub.logmessage('OKL: POP TRX : return status '||x_return_status);
1263: okl_debug_pub.logmessage('OKL: POP TRX : lx_upd_trxH_rec.id : '|| lx_upd_trxH_rec.id);
1264: okl_debug_pub.logmessage('OKL: POP TRX : lx_upd_trxH_rec.description : '|| lx_upd_trxH_rec.description);
1265:
1266: okl_debug_pub.logmessage('OKL: POP TRX : try id '||lx_upd_trxH_rec.TRY_ID);
1267: okl_debug_pub.logmessage('OKL: POP TRX : transaction type '||lx_upd_trxH_rec.TCN_TYPE);
1268: okl_debug_pub.logmessage('OKL: POP TRX : tsu code '||lx_upd_trxH_rec.TSU_CODE);
1262: okl_debug_pub.logmessage('OKL: POP TRX : return status '||x_return_status);
1263: okl_debug_pub.logmessage('OKL: POP TRX : lx_upd_trxH_rec.id : '|| lx_upd_trxH_rec.id);
1264: okl_debug_pub.logmessage('OKL: POP TRX : lx_upd_trxH_rec.description : '|| lx_upd_trxH_rec.description);
1265:
1266: okl_debug_pub.logmessage('OKL: POP TRX : try id '||lx_upd_trxH_rec.TRY_ID);
1267: okl_debug_pub.logmessage('OKL: POP TRX : transaction type '||lx_upd_trxH_rec.TCN_TYPE);
1268: okl_debug_pub.logmessage('OKL: POP TRX : tsu code '||lx_upd_trxH_rec.TSU_CODE);
1269:
1270:
1263: okl_debug_pub.logmessage('OKL: POP TRX : lx_upd_trxH_rec.id : '|| lx_upd_trxH_rec.id);
1264: okl_debug_pub.logmessage('OKL: POP TRX : lx_upd_trxH_rec.description : '|| lx_upd_trxH_rec.description);
1265:
1266: okl_debug_pub.logmessage('OKL: POP TRX : try id '||lx_upd_trxH_rec.TRY_ID);
1267: okl_debug_pub.logmessage('OKL: POP TRX : transaction type '||lx_upd_trxH_rec.TCN_TYPE);
1268: okl_debug_pub.logmessage('OKL: POP TRX : tsu code '||lx_upd_trxH_rec.TSU_CODE);
1269:
1270:
1271: END IF;
1264: okl_debug_pub.logmessage('OKL: POP TRX : lx_upd_trxH_rec.description : '|| lx_upd_trxH_rec.description);
1265:
1266: okl_debug_pub.logmessage('OKL: POP TRX : try id '||lx_upd_trxH_rec.TRY_ID);
1267: okl_debug_pub.logmessage('OKL: POP TRX : transaction type '||lx_upd_trxH_rec.TCN_TYPE);
1268: okl_debug_pub.logmessage('OKL: POP TRX : tsu code '||lx_upd_trxH_rec.TSU_CODE);
1269:
1270:
1271: END IF;
1272:
1270:
1271: END IF;
1272:
1273: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1274: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : END ');
1275: END IF;
1276:
1277: okl_debug_pub.logmessage('OKL: POP TRX : END');
1278:
1273: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1274: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : END ');
1275: END IF;
1276:
1277: okl_debug_pub.logmessage('OKL: POP TRX : END');
1278:
1279: Exception
1280: when pop_trx_failed then
1281: x_return_status := OKL_API.G_RET_STS_ERROR;
1662: x_msg_index_out Number;
1663:
1664: BEGIN
1665: IF (G_DEBUG_ENABLED = 'Y') THEN
1666: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1667: END IF;
1668:
1669: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1670:
1689: CLOSE check_fee_csr;
1690: END IF;
1691:
1692: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1693: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: l_upfront_tax_fee_amount: '||l_upfront_tax_fee_amount);
1694: END IF;
1695:
1696: IF (l_del_fee_line_id IS NOT NULL) THEN
1697: l_del_fee_types_rec.line_id := l_del_fee_line_id;
1707: p_fee_types_rec => l_del_fee_types_rec
1708: );
1709:
1710: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1711: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: after OKL_MAINTAIN_FEE_PVT.delete_fee_type: x_return_status '||x_return_status);
1712: END IF;
1713:
1714: -- Check if the call was successful
1715: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1721: FETCH l_fee_csr INTO l_fee_rec;
1722: CLOSE l_fee_csr;
1723:
1724: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1725: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: l_fee_rec.amount: '||l_fee_rec.amount);
1726: END IF;
1727:
1728: IF (l_upfront_tax_fee_amount <> l_fee_rec.amount) THEN
1729:
1736: l_fee_types_rec.item_id := l_fee_rec.cim_fee_id;
1737: l_fee_types_rec.item_id1 := l_fee_rec.object1_id1;
1738:
1739: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1740: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: before OKL_MAINTAIN_FEE_PVT.update_fee_type ');
1741: END IF;
1742:
1743: -- update fee top line
1744: OKL_MAINTAIN_FEE_PVT.update_fee_type(
1751: x_fee_types_rec => lx_fee_types_rec
1752: );
1753:
1754: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1755: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: after OKL_MAINTAIN_FEE_PVT.update_fee_type: x_return_status '||x_return_status);
1756: END IF;
1757:
1758: -- Check if the call was successful
1759: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1767: FOR j in get_asset_csr1(p_required_feetype)
1768: LOOP
1769:
1770: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1771: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: before get_asset_tax_amt_csr ');
1772: END IF;
1773:
1774: -- get asset tax amount
1775: OPEN get_asset_tax_amt_csr(j.id);
1777: IF get_asset_tax_amt_csr%NOTFOUND THEN
1778:
1779: OKL_API.set_message(G_APP_NAME, 'OKL_LA_ST_ASSET_TAX_AMT_ERROR');
1780: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1781: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount for ID'|| j.id);
1782: END IF;
1783: CLOSE get_asset_tax_amt_csr;
1784: RAISE update_fee_exception;
1785: END IF;
1785: END IF;
1786: CLOSE get_asset_tax_amt_csr;
1787:
1788: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1789: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: l_asset_tax_amt '||l_asset_tax_amt);
1790: END IF;
1791:
1792: l_cov_asset_line_rec.cleb_cov_asset_id := NULL;
1793: l_cov_asset_line_rec.amount := NULL;
1798: FETCH l_cov_asset_line_csr INTO l_cov_asset_line_rec;
1799: CLOSE l_cov_asset_line_csr;
1800:
1801: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1802: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: l_cov_asset_line_rec.cleb_cov_asset_id '||l_cov_asset_line_rec.cleb_cov_asset_id);
1803: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: l_cov_asset_line_rec.amount '||l_cov_asset_line_rec.amount);
1804: END IF;
1805:
1806: -- Update Fee covered asset amount if covered asset line exists, else create covered asset line
1799: CLOSE l_cov_asset_line_csr;
1800:
1801: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1802: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: l_cov_asset_line_rec.cleb_cov_asset_id '||l_cov_asset_line_rec.cleb_cov_asset_id);
1803: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: l_cov_asset_line_rec.amount '||l_cov_asset_line_rec.amount);
1804: END IF;
1805:
1806: -- Update Fee covered asset amount if covered asset line exists, else create covered asset line
1807: IF l_cov_asset_line_rec.cleb_cov_asset_id IS NOT NULL THEN
1858: FOR j in get_asset_csr2 (p_required_feetype)
1859: LOOP
1860:
1861: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1862: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: before get_asset_tax_amt_csr ');
1863: END IF;
1864:
1865: -- get asset tax amount
1866: OPEN get_asset_tax_amt_csr(j.id);
1868: IF get_asset_tax_amt_csr%NOTFOUND THEN
1869: OKL_API.set_message( p_app_name => G_APP_NAME,
1870: p_msg_name => 'OKL_LA_ST_ASSET_TAX_AMT_ERROR');
1871: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1872: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount. for ID'|| j.id);
1873: END IF;
1874: CLOSE get_asset_tax_amt_csr;
1875: RAISE update_fee_exception;
1876: END IF;
1939: -- Associate Assets to the fee
1940: IF (l_c_line_item_tbl.COUNT > 0) THEN
1941:
1942: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1943: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: before okl_contract_line_item_pvt.create_contract_line_item ');
1944: END IF;
1945:
1946: okl_contract_line_item_pvt.create_contract_line_item(
1947: p_api_version => p_api_version,
1953: x_line_item_tbl => lx_c_line_item_tbl);
1954:
1955:
1956: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1957: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: x_return_status '||x_return_status);
1958: END IF;
1959:
1960: -- Check if the call was successful
1961: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
1965:
1966: IF (l_u_line_item_tbl.COUNT > 0) THEN
1967:
1968: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1969: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: before okl_contract_line_item_pvt.update_contract_line_item ');
1970: END IF;
1971:
1972: okl_contract_line_item_pvt.update_contract_line_item(
1973: p_api_version => p_api_version,
1978: p_line_item_tbl => l_u_line_item_tbl,
1979: x_line_item_tbl => lx_u_line_item_tbl);
1980:
1981: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1982: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: x_return_status '||x_return_status);
1983: END IF;
1984:
1985: -- Check if the call was successful
1986: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
1990:
1991: IF (l_d_line_item_tbl.COUNT > 0) THEN
1992:
1993: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1994: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: before okl_contract_line_item_pvt.delete_contract_line_item ');
1995: END IF;
1996:
1997: okl_contract_line_item_pvt.delete_contract_line_item(
1998: p_api_version => p_api_version,
2002: x_msg_data => x_msg_data,
2003: p_line_item_tbl => l_d_line_item_tbl);
2004:
2005: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2006: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: x_return_status '||x_return_status);
2007: END IF;
2008:
2009: -- Check if the call was successful
2010: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
2028: l_rulv_tbl(1).rule_information_category := l_rul_rec.rule_information_category;
2029: l_rulv_tbl(1).rule_information2 := TO_CHAR(l_upfront_tax_fee_amount);
2030:
2031: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2032: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: before OKL_RULE_PUB.update_rule ');
2033: END IF;
2034: OKL_RULE_PUB.update_rule(
2035: p_api_version => p_api_version,
2036: p_init_msg_list => p_init_msg_list,
2040: p_rulv_tbl => l_rulv_tbl,
2041: x_rulv_tbl => lx_rulv_tbl);
2042:
2043: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2044: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: x_return_status '||x_return_status);
2045: END IF;
2046:
2047: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
2048: RAISE update_fee_exception;
2091:
2092: BEGIN
2093:
2094: IF (G_DEBUG_ENABLED = 'Y') THEN
2095: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2096: END IF;
2097:
2098: x_return_status := OKL_API.START_ACTIVITY(
2099: p_api_name => l_api_name,
2121: END IF;
2122: CLOSE rule_info_csr;
2123:
2124: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2125: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: Default Fee Type '||l_rule_info_rec.rule_information1);
2126: END IF;
2127:
2128: OPEN l_fee_csr(p_chr_id => p_chr_id);
2129: FETCH l_fee_csr INTO l_fee_rec;
2129: FETCH l_fee_csr INTO l_fee_rec;
2130: CLOSE l_fee_csr;
2131:
2132: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2133: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: Sales Tax Fee Line Id '||l_fee_rec.id);
2134: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: Sales Tax Fee Type '||l_fee_rec.fee_type);
2135: END IF;
2136:
2137: IF l_fee_rec.id IS NOT NULL THEN
2130: CLOSE l_fee_csr;
2131:
2132: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2133: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: Sales Tax Fee Line Id '||l_fee_rec.id);
2134: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: Sales Tax Fee Type '||l_fee_rec.fee_type);
2135: END IF;
2136:
2137: IF l_fee_rec.id IS NOT NULL THEN
2138:
2136:
2137: IF l_fee_rec.id IS NOT NULL THEN
2138:
2139: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2140: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: Before OKL_LA_SALES_TAX_PVT.update_fee ');
2141: END IF;
2142:
2143: OKL_LA_SALES_TAX_PVT.update_fee
2144: (p_api_version => p_api_version,
2152: x_msg_count => x_msg_count,
2153: x_msg_data => x_msg_data);
2154:
2155: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2156: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: After OKL_LA_SALES_TAX_PVT.update_fee: x_return_status '||x_return_status);
2157: END IF;
2158:
2159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2170: x_msg_data => x_msg_data,
2171: p_chr_id => p_chr_id);
2172:
2173: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2174: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: After OKL_LA_SALES_TAX_PVT.validate_upfront_tax_fee: x_return_status '||x_return_status);
2175: END IF;
2176:
2177: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2178: l_upfront_tax_prog_sts := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_ERROR;
2433: x_msg_index_out Number;
2434:
2435: BEGIN
2436: IF (G_DEBUG_ENABLED = 'Y') THEN
2437: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2438: END IF;
2439:
2440: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2441:
2444:
2445: --l_financed_amount := get_financed_tax ( p_Contract_id, p_transaction_id);
2446: l_financed_amount := get_financed_tax ( p_Contract_id, p_default_feetype);
2447: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2448: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: FINANCE segment: l_financed_amount: '
2449: ||l_financed_amount);
2450: END IF;
2451:
2452: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2449: ||l_financed_amount);
2450: END IF;
2451:
2452: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2453: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: FINANCE segment: before check_fee_csr ');
2454: END IF;
2455:
2456: -- Check If finance fee already exists
2457: -- if exists do nothing, because we can only create once
2469:
2470: -- Create Fee only if the amount is > 0 and Sale Tax Fee does not
2471: -- exist already
2472: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2473: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: FINANCE segment: before IF condition');
2474: END IF;
2475: If ((l_financed_amount > 0) AND
2476: (l_finance_fee_exists = OKL_API.G_FALSE)) THEN
2477:
2475: If ((l_financed_amount > 0) AND
2476: (l_finance_fee_exists = OKL_API.G_FALSE)) THEN
2477:
2478: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2479: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: FINANCE segment: before stream_csr ');
2480: END IF;
2481: -- get item_id1 value
2482: OPEN stream_csr(p_stream_id);
2483: FETCH stream_csr INTO l_item_name;
2492: END IF;
2493: CLOSE stream_csr;
2494:
2495: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2496: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: FINANCE segment: before contract_dates_csr ');
2497: END IF;
2498:
2499: -- get contract dates for fee effective date
2500: OPEN contract_dates_csr;
2516: l_fee_types_rec.effective_from := contract_dates_csr_rec.start_date;
2517: l_fee_types_rec.effective_to := contract_dates_csr_rec.end_date;
2518:
2519: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2520: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: FINANCE segment: before OKL_MAINTAIN_FEE_PVT ');
2521: END IF;
2522: -- create fee top line
2523: OKL_MAINTAIN_FEE_PVT.create_fee_type(
2524: p_api_version => p_api_version,
2540: FOR j in get_asset_csr1 ('FINANCE')
2541: LOOP
2542:
2543: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2544: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: FINANCE segment: before get_asset_tax_amt_csr ');
2545: END IF;
2546: -- get asset tax amount
2547: OPEN get_asset_tax_amt_csr(j.id);
2548: FETCH get_asset_tax_amt_csr INTO l_asset_tax_amt;
2549: IF get_asset_tax_amt_csr%NOTFOUND THEN
2550: --Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Asset Tax Amount cannot be derived');
2551: Okl_Api.SET_MESSAGE(G_APP_NAME, 'OKL_LA_ST_K_ID_ERROR');
2552: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2553: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount for ID'|| j.id);
2554: END IF;
2555: CLOSE get_asset_tax_amt_csr;
2556: RAISE create_fee_exception;
2557: END IF;
2578: FOR j in get_asset_csr2 ('FINANCE')
2579: LOOP
2580:
2581: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2582: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: FINANCE segment: before get_asset_tax_amt_csr ');
2583: END IF;
2584: -- get asset tax amount
2585: OPEN get_asset_tax_amt_csr(j.id);
2586: FETCH get_asset_tax_amt_csr INTO l_asset_tax_amt;
2587: IF get_asset_tax_amt_csr%NOTFOUND THEN
2588: OKL_API.set_message( p_app_name => G_APP_NAME,
2589: p_msg_name => 'OKL_LA_ST_ASSET_TAX_AMT_ERROR');
2590: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2591: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount. for ID'|| j.id);
2592: END IF;
2593: CLOSE get_asset_tax_amt_csr;
2594: RAISE create_fee_exception;
2595: END IF;
2613:
2614:
2615:
2616: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2617: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: FINANCE segment: before okl_contract_line_item_pvt ');
2618: END IF;
2619: -- Associate Assets to the fee
2620: okl_contract_line_item_pvt.create_contract_line_item(
2621: p_api_version => p_api_version,
2627: p_line_item_tbl => l_line_item_tbl,
2628: x_line_item_tbl => lx_line_item_tbl);
2629:
2630: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2631: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: FINANCE segment: x_return_status '||x_return_status);
2632: END IF;
2633: FOR k in 1..x_msg_count LOOP
2634: fnd_msg_pub.get (p_encoded => 'F',
2635: p_data => x_msg_data,
2635: p_data => x_msg_data,
2636: p_msg_index_out => x_msg_index_out
2637: );
2638: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2639: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: FINANCE segment:'||to_char(k) || ':' || x_msg_data);
2640: END IF;
2641: END LOOP;
2642:
2643: -- Check if the call was successful
2654: l_rgpv_rec.cle_id := lx_fee_types_rec.line_id;
2655: l_rgpv_rec.rgp_type := 'KRG';
2656:
2657: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2658: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: FINANCE segment: before OKL_RULE_PUB.create_rule_group ');
2659: END IF;
2660:
2661: OKL_RULE_PUB.create_rule_group(
2662: p_api_version => p_api_version,
2691: l_rulv_tbl(2).STD_TEMPLATE_YN := 'N';
2692: l_rulv_tbl(2).template_yn := 'N';
2693:
2694: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2695: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: FINANCE segment: before OKL_RULE_PUB.create_rule ');
2696: END IF;
2697: OKL_RULE_PUB.create_rule(
2698: p_api_version => p_api_version,
2699: p_init_msg_list => p_init_msg_list,
2742: ,p_default_feetype);
2743:
2744:
2745: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2746: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: CAPITALIZE segment: l_capitalized_amount: '
2747: ||l_capitalized_amount);
2748: END IF;
2749: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2750: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: CAPITALIZE segment: before check_fee_csr ');
2746: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: CAPITALIZE segment: l_capitalized_amount: '
2747: ||l_capitalized_amount);
2748: END IF;
2749: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2750: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: CAPITALIZE segment: before check_fee_csr ');
2751: END IF;
2752:
2753: OPEN check_fee_csr ('CAPITALIZED');
2754: -- R12B Authoring OA Migration
2761: END IF;
2762: CLOSE check_fee_csr;
2763:
2764: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2765: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: CAPITALIZE segment: before IF condition');
2766: END IF;
2767: -- Create Fee only if the amount is > 0 and fee does not exist
2768: If ((l_capitalized_amount > 0) AND
2769: (l_capitalized_fee_exists = OKL_API.G_FALSE)) THEN
2768: If ((l_capitalized_amount > 0) AND
2769: (l_capitalized_fee_exists = OKL_API.G_FALSE)) THEN
2770:
2771: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2772: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: CAPITALIZE segment: before stream_csr ');
2773: END IF;
2774: -- get item_id1 value
2775: OPEN stream_csr(p_stream_id);
2776: FETCH stream_csr INTO l_item_name;
2786: END IF;
2787: CLOSE stream_csr;
2788:
2789: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2790: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: CAPITALIZE segment: before contract_dates_csr ');
2791: END IF;
2792: -- get contract dates for fee effective date
2793: OPEN contract_dates_csr;
2794: FETCH contract_dates_csr INTO contract_dates_csr_rec;
2809: l_fee_types_rec.effective_from := contract_dates_csr_rec.start_date;
2810: l_fee_types_rec.effective_to := contract_dates_csr_rec.end_date;
2811:
2812: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2813: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: CAPITALIZE segment: before OKL_MAINTAIN_FEE_PVT ');
2814: END IF;
2815: -- Create Fee Top Line
2816: OKL_MAINTAIN_FEE_PVT.create_fee_type(
2817: p_api_version => p_api_version,
2832: FOR j in get_asset_csr1 ('CAPITALIZE')
2833: LOOP
2834: -- get asset tax amount
2835: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2836: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: CAPITALIZE segment: before get_asset_tax_amt_csr ');
2837: END IF;
2838: OPEN get_asset_tax_amt_csr(j.id);
2839: FETCH get_asset_tax_amt_csr INTO l_asset_tax_amt;
2840: IF get_asset_tax_amt_csr%NOTFOUND THEN
2840: IF get_asset_tax_amt_csr%NOTFOUND THEN
2841: OKL_API.set_message( p_app_name => G_APP_NAME,
2842: p_msg_name => 'OKL_LA_ST_ASSET_TAX_AMT_ERROR');
2843: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2844: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount. for ID'|| j.id);
2845: END IF;
2846: CLOSE get_asset_tax_amt_csr;
2847: RAISE create_fee_exception;
2848: END IF;
2870: FOR j in get_asset_csr2 ('CAPITALIZE')
2871: LOOP
2872:
2873: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2874: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: CAPITALIZE segment: before get_asset_tax_amt_csr ');
2875: END IF;
2876: -- get asset tax amount
2877: OPEN get_asset_tax_amt_csr(j.id);
2878: FETCH get_asset_tax_amt_csr INTO l_asset_tax_amt;
2879: IF get_asset_tax_amt_csr%NOTFOUND THEN
2880: OKL_API.set_message( p_app_name => G_APP_NAME,
2881: p_msg_name => 'OKL_LA_ST_ASSET_TAX_AMT_ERROR');
2882: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2883: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount. for ID'|| j.id);
2884: END IF;
2885: CLOSE get_asset_tax_amt_csr;
2886: RAISE create_fee_exception;
2887: END IF;
2905:
2906:
2907:
2908: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2909: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: CAPITALIZE segment: before okl_contract_line_item_pvt ');
2910: END IF;
2911: -- Associate Assets to the fee
2912: okl_contract_line_item_pvt.create_contract_line_item(
2913: p_api_version => p_api_version,
3043: l_acc_gen_primary_key_tbl1 okl_account_dist_pvt.acc_gen_primary_key;
3044:
3045: BEGIN
3046:
3047: okl_debug_pub.logmessage('OKL: populate_account_data : START');
3048:
3049: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3050:
3051: l_acc_gen_primary_key_tbl(1).source_table := 'FINANCIALS_SYSTEM_PARAMETERS';
3082: l_acc_gen_primary_key_tbl(4).primary_key_column := l_salesP_rec.id;
3083:
3084: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3085: THEN
3086: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
3087: ,G_MODULE
3088: , 'OKL: populate_account_data Procedure: Calling OKL_SECURITIZATION_PVT ');
3089: END IF;
3090:
3102: x_inv_acct_code => l_inv_acct_code
3103: );
3104:
3105:
3106: okl_debug_pub.logmessage('OKL: populate_account_data : OKL_SECURITIZATION_PVT : '||x_return_status);
3107:
3108: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3109: THEN
3110: RAISE account_data_exception;
3151: p_dist_info_tbl(i).currency_conversion_rate := p_trxh_out_rec.currency_conversion_rate;
3152: p_dist_info_tbl(i).currency_conversion_type := p_trxh_out_rec.currency_conversion_type;
3153: p_dist_info_tbl(i).currency_conversion_date := p_trxh_out_rec.currency_conversion_date;
3154: p_dist_info_tbl(i).currency_code := p_trxh_out_rec.currency_code;
3155: okl_debug_pub.logmessage('OKL: populate_account_data : p_tclv_tbl loop : l_dist_info_tbl(i).amount : '||p_dist_info_tbl(i).amount);
3156:
3157: END LOOP;
3158:
3159: okl_debug_pub.logmessage('OKL: populate_account_data : END');
3155: okl_debug_pub.logmessage('OKL: populate_account_data : p_tclv_tbl loop : l_dist_info_tbl(i).amount : '||p_dist_info_tbl(i).amount);
3156:
3157: END LOOP;
3158:
3159: okl_debug_pub.logmessage('OKL: populate_account_data : END');
3160:
3161: EXCEPTION
3162: WHEN account_data_exception
3163: THEN
3569: l_transaction_amount NUMBER;
3570:
3571: BEGIN
3572:
3573: okl_debug_pub.logmessage('OKL: UPF A/C : START');
3574:
3575: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3576:
3577: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3575: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3576:
3577: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3578: THEN
3579: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
3580: , G_MODULE
3581: , 'OKL: Booking Procedure: deriving Accounting option ');
3582: END IF;
3583:
3595: CLOSE acct_opt_csr;
3596:
3597: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3598: THEN
3599: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
3600: , G_MODULE
3601: , 'OKL: Booking Procedure: Validating Accounting option ');
3602: END IF;
3603:
3619: ELSE
3620:
3621: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3622: THEN
3623: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
3624: , G_MODULE
3625: ,'OKL: create_upfront_tax_accounting Procedure : before fnd_lookups_csr ');
3626: END IF;
3627:
3645: -- each inserted record's tax treatment
3646:
3647: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3648: THEN
3649: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
3650: ,G_MODULE
3651: ,'OKL: create_upfront_tax_accounting Procedure: deriving financed stream ID ');
3652: END IF;
3653:
3656: p_primary_sty_purpose => 'UPFRONT_TAX_FINANCED',
3657: x_return_status => x_return_status,
3658: x_primary_sty_id => l_financed_sty_id);
3659:
3660: okl_debug_pub.logmessage('OKL: UPF A/C : UPFRONT_TAX_FINANCED : '||l_financed_sty_id);
3661:
3662: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3663: THEN
3664: RAISE upfront_tax_acct_exception;
3665: End If;
3666:
3667: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3668: THEN
3669: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
3670: ,G_MODULE
3671: ,'OKL: create_upfront_tax_accounting Procedure: deriving capitalized stream ID ');
3672: END IF;
3673:
3676: p_primary_sty_purpose => 'UPFRONT_TAX_CAPITALIZED',
3677: x_return_status => x_return_status,
3678: x_primary_sty_id => l_capitalized_sty_id);
3679:
3680: okl_debug_pub.logmessage('OKL: UPF A/C : UPFRONT_TAX_CAPITALIZED : '||l_capitalized_sty_id);
3681:
3682: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
3683: RAISE upfront_tax_acct_exception;
3684: End If;
3685:
3686: --Bug# 6619311
3687: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3688: THEN
3689: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
3690: ,G_MODULE
3691: ,'OKL: create_upfront_tax_accounting Procedure: deriving billed stream ID ');
3692: END IF;
3693:
3696: p_primary_sty_purpose => 'UPFRONT_TAX_BILLED',
3697: x_return_status => x_return_status,
3698: x_primary_sty_id => l_billed_sty_id);
3699:
3700: okl_debug_pub.logmessage('OKL: UPF A/C : UPFRONT_TAX_BILLED : '||l_billed_sty_id);
3701:
3702: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
3703: RAISE upfront_tax_acct_exception;
3704: End If;
3705: --End Bug# 6619311
3706:
3707: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3708: THEN
3709: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
3710: ,G_MODULE
3711: ,'OKL: create_upfront_tax_accounting Procedure: deriving default tax treatment ');
3712: END IF;
3713:
3728: THEN
3729:
3730: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3731: THEN
3732: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
3733: ,G_MODULE
3734: ,'OKL: create_upfront_tax_accounting Procedure: deriving asset tax information ');
3735: END IF;
3736:
3804: l_transaction_amount := l_transaction_amount + (-1 * l_accoutable_tax_lines(i).tax_amount);
3805: END LOOP;
3806:
3807: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
3808: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
3809: , G_MODULE
3810: ,'OKL: create_upfront_tax_accounting Procedure: Calling populate_transaction procedure ');
3811: END IF;
3812:
3826: x_return_status => x_return_status,
3827: x_msg_count => x_msg_count,
3828: x_msg_data => x_msg_data);
3829:
3830: okl_debug_pub.logmessage('OKL: UPF A/C : populate_transaction : return status '||x_return_status);
3831: -- check transaction creation was successful
3832: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3833: THEN
3834: RAISE upfront_tax_acct_exception;
3871: -- Create TRX lines with the data gathered
3872:
3873: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3874: THEN
3875: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
3876: ,G_MODULE
3877: , 'OKL: create_upfront_tax_accounting Procedure: Calling Okl_Trx_Contracts_Pub.create_trx_cntrct_lines ');
3878: END IF;
3879:
3885: x_msg_data => x_msg_data,
3886: p_tclv_tbl => l_tclv_tbl,
3887: x_tclv_tbl => x_tclv_tbl);
3888:
3889: okl_debug_pub.logmessage('OKL: UPF A/C : create_trx_cntrct_lines : '||x_return_status);
3890:
3891: -- check transaction line creation was successful
3892: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3893: THEN
3906: ,x_return_status
3907: ,x_msg_count
3908: ,x_msg_data);
3909:
3910: okl_debug_pub.logmessage('OKL: UPF A/C : populate_account_data : '||x_return_status);
3911:
3912: -- check transaction line creation was successful
3913: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3914: THEN
3916: END IF;
3917:
3918: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3919: THEN
3920: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
3921: ,G_MODULE
3922: ,'OKL: create_upfront_tax_accounting Procedure: Calling Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST');
3923: END IF;
3924:
3977: l_ctxt_tbl.DELETE;
3978:
3979: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3980: THEN
3981: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
3982: ,G_MODULE
3983: ,'OKL: create_upfront_tax_accounting Procedure: deriving asset tax information ');
3984: END IF;
3985:
4044: END LOOP;
4045:
4046: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4047: THEN
4048: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
4049: , G_MODULE
4050: ,'OKL: create_upfront_tax_accounting Procedure: Calling populate_transaction procedure ');
4051: END IF;
4052:
4066: x_return_status => x_return_status,
4067: x_msg_count => x_msg_count,
4068: x_msg_data => x_msg_data);
4069:
4070: okl_debug_pub.logmessage('OKL: UPF A/C : populate_transaction : return status '||x_return_status);
4071:
4072: -- check transaction creation was successful
4073: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
4074: THEN
4109: -- Create TRX lines with the data gathered
4110:
4111: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4112: THEN
4113: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
4114: ,G_MODULE
4115: , 'OKL: create_upfront_tax_accounting Procedure: Calling Okl_Trx_Contracts_Pub.create_trx_cntrct_lines ');
4116: END IF;
4117:
4123: x_msg_data => x_msg_data,
4124: p_tclv_tbl => l_tclv_tbl,
4125: x_tclv_tbl => x_tclv_tbl);
4126:
4127: okl_debug_pub.logmessage('OKL: UPF A/C : create_trx_cntrct_lines : '||x_return_status);
4128:
4129: -- check transaction line creation was successful
4130: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
4131: THEN
4144: ,x_return_status
4145: ,x_msg_count
4146: ,x_msg_data);
4147:
4148: okl_debug_pub.logmessage('OKL: UPF A/C : populate_account_data : '||x_return_status);
4149:
4150: -- check transaction line creation was successful
4151: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
4152: THEN
4154: END IF;
4155:
4156: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4157: THEN
4158: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
4159: ,G_MODULE
4160: ,'OKL: create_upfront_tax_accounting Procedure: Calling Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST');
4161: END IF;
4162:
4159: ,G_MODULE
4160: ,'OKL: create_upfront_tax_accounting Procedure: Calling Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST');
4161: END IF;
4162:
4163: okl_debug_pub.logmessage('OKL: UPF A/C : before calling okl_account_dist_pvt');
4164:
4165: -- Call Accounting API to create distributions
4166: okl_account_dist_pvt.create_accounting_dist(
4167: p_api_version => 1.0,
4176: x_template_tbl => l_template_out_tbl,
4177: x_amount_tbl => l_amount_tbl,
4178: p_trx_header_id => l_trxh_out_rec.id);
4179:
4180: okl_debug_pub.logmessage('OKL: UPF A/C : after calling okl_account_dist_pvt : '|| x_return_status);
4181:
4182: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
4183: THEN
4184: RAISE upfront_tax_acct_exception;
4205: --Bug# 7506009
4206:
4207: END IF; -- AMB Check
4208:
4209: okl_debug_pub.logmessage('OKL: UPF A/C : END');
4210:
4211: EXCEPTION
4212: WHEN upfront_tax_acct_exception
4213: THEN
4257: l_fee_type_to_delete OKL_K_LINES.fee_type%TYPE;
4258:
4259: BEGIN
4260: IF (G_DEBUG_ENABLED = 'Y') THEN
4261: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4262: END IF;
4263:
4264: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4265: -- Get rule value to identify upfront tax type
4264: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4265: -- Get rule value to identify upfront tax type
4266:
4267: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4268: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: START ');
4269: END IF;
4270:
4271: OPEN rule_info_csr(p_contract_id);
4272: FETCH rule_info_csr INTO rule_info_csr_rec;
4289: l_asset_count > 0)
4290: THEN
4291: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4292: THEN
4293: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: before calling create fee in FINANCE if');
4294: END IF;
4295: create_fee(
4296: p_api_version => p_api_version,
4297: p_init_msg_list => p_init_msg_list,
4318: FETCH check_st_fee_csr INTO l_del_fee_line_id;
4319: CLOSE check_st_fee_csr;
4320:
4321: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4322: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||': CAPITALIZED Sales Tax Fee to Delete: '|| l_del_fee_line_id);
4323: END IF;
4324:
4325: IF l_del_fee_line_id IS NOT NULL THEN
4326:
4337: p_fee_types_rec => l_del_fee_types_rec
4338: );
4339:
4340: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4341: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: after calling OKL_MAINTAIN_FEE_PVT.delete_fee_type: x_return_status '|| x_return_status );
4342: END IF;
4343:
4344: -- Check if the call was successful
4345: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4353: -- If upfront tax is 'CAPITALIZED'
4354: If (rule_info_csr_rec.rule_information1 = 'CAPITALIZE' AND l_asset_count > 0)
4355: THEN
4356: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4357: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: before calling create fee in CAPITALIZE if ');
4358: END IF;
4359: create_fee(
4360: p_api_version => p_api_version,
4361: p_init_msg_list => p_init_msg_list,
4382: FETCH check_st_fee_csr INTO l_del_fee_line_id;
4383: CLOSE check_st_fee_csr;
4384:
4385: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4386: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||': FINANCED Sales Tax Fee to Delete: '|| l_del_fee_line_id);
4387: END IF;
4388:
4389: IF l_del_fee_line_id IS NOT NULL THEN
4390:
4401: p_fee_types_rec => l_del_fee_types_rec
4402: );
4403:
4404: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4405: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: after calling OKL_MAINTAIN_FEE_PVT.delete_fee_type: x_return_status '|| x_return_status );
4406: END IF;
4407:
4408: -- Check if the call was successful
4409: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4419: l_multiple_fee_type := Okl_Api.G_FALSE;
4420: l_fee_type := NULL;
4421:
4422: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4423: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: verifying if multiple fee treatments are selected ');
4424: END IF;
4425: FOR i in check_feetype_csr (p_contract_id)
4426: LOOP
4427: l_fee_type := i.feetype;
4434:
4435: IF (l_multiple_fee_type = Okl_Api.G_FALSE AND l_fee_type IS NOT NULL)
4436: THEN
4437: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4438: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: if multiple fee treatments are NOT selected');
4439: END IF;
4440: IF (l_fee_type = 'FINANCE') THEN
4441: l_stream_id := to_number(rule_info_csr_rec.rule_information3);
4442: END IF;
4445: l_stream_id := to_number(rule_info_csr_rec.rule_information4);
4446: END IF;
4447:
4448: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4449: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: before calling create fee for '||l_fee_type|| ' in BILLED if ');
4450: END IF;
4451: create_fee(
4452: p_api_version => p_api_version,
4453: p_init_msg_list => p_init_msg_list,
4459: x_return_status => x_return_status,
4460: x_msg_count => x_msg_count,
4461: x_msg_data => x_msg_data);
4462: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4463: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: after calling create fee for '||
4464: l_fee_type
4465: || ' in BILLED if return status '|| x_return_status );
4466: END IF;
4467: -- Check if the call was successful
4484: FETCH check_st_fee_csr INTO l_del_fee_line_id;
4485: CLOSE check_st_fee_csr;
4486:
4487: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4488: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||': '||l_fee_type_to_delete||' Sales Tax Fee to Delete: '|| l_del_fee_line_id);
4489: END IF;
4490:
4491: IF l_del_fee_line_id IS NOT NULL THEN
4492:
4503: p_fee_types_rec => l_del_fee_types_rec
4504: );
4505:
4506: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4507: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: after calling OKL_MAINTAIN_FEE_PVT.delete_fee_type: x_return_status '|| x_return_status );
4508: END IF;
4509:
4510: -- Check if the call was successful
4511: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4529: FETCH check_st_fee_csr INTO l_del_fee_line_id;
4530: CLOSE check_st_fee_csr;
4531:
4532: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4533: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||': Sales Tax Fee to Delete: '|| l_del_fee_line_id);
4534: END IF;
4535:
4536: IF l_del_fee_line_id IS NOT NULL THEN
4537:
4548: p_fee_types_rec => l_del_fee_types_rec
4549: );
4550:
4551: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4552: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: after calling OKL_MAINTAIN_FEE_PVT.delete_fee_type: x_return_status '|| x_return_status );
4553: END IF;
4554:
4555: -- Check if the call was successful
4556: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4560: END IF;
4561: -- R12B Authoring OA Migration
4562:
4563: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4564: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: END ');
4565: END IF;
4566:
4567: Exception
4568: when pre_book_exception then
4607: booking_exception exception;
4608:
4609: BEGIN
4610:
4611: okl_debug_pub.logmessage('OKL: process_booking_tax : START' );
4612:
4613: IF (G_DEBUG_ENABLED = 'Y')
4614: THEN
4615: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE
4611: okl_debug_pub.logmessage('OKL: process_booking_tax : START' );
4612:
4613: IF (G_DEBUG_ENABLED = 'Y')
4614: THEN
4615: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE
4616: , FND_LOG.LEVEL_STATEMENT);
4617: END IF;
4618:
4619: x_return_status := okl_Api.G_RET_STS_SUCCESS;
4619: x_return_status := okl_Api.G_RET_STS_SUCCESS;
4620:
4621: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4622: THEN
4623: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
4624: ,G_MODULE
4625: ,'OKL: Booking Procedure: START');
4626: END IF;
4627:
4629: -- user does not create Sales Tax T and C
4630:
4631: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4632: THEN
4633: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
4634: ,G_MODULE
4635: ,'OKL: Booking Procedure: before rule_info_csr');
4636: END IF;
4637:
4650:
4651: -- Call Tax API
4652: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4653: THEN
4654: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
4655: , G_MODULE
4656: ,'OKL: Booking Procedure: before calling tax API');
4657: END IF;
4658:
4666: p_source_trx_name => p_transaction_type,
4667: p_source_table => l_source_table,
4668: p_tax_call_type => 'ACTUAL' );
4669:
4670: okl_debug_pub.logmessage('OKL: process_booking_tax : OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax: ACTUAL : '|| x_return_status );
4671:
4672: -- Check if the tax call was successful
4673: IF (x_return_status <> okl_Api.G_RET_STS_SUCCESS)
4674: THEN
4677:
4678: --Bug# 6619311: Create upfront tax accounting for all tax treatments
4679: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4680: THEN
4681: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
4682: ,G_MODULE
4683: ,'OKL: Booking Procedure: Calling create_upfront_tax_accounting ');
4684: END IF;
4685:
4725: THEN
4726:
4727: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4728: THEN
4729: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
4730: , G_MODULE
4731: ,'OKL: Booking Procedure: before contract_csr');
4732: END IF;
4733:
4772: l_fee_type := NULL;
4773:
4774: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4775: THEN
4776: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
4777: , G_MODULE
4778: ,'OKL: Booking Procedure: verifying if multiple fee treatments are selected ');
4779: END IF;
4780:
4815: -- R12B eBtax changes
4816: IF (l_billed_assets <> 0 OR l_contract_bill_tax <> 0)
4817: THEN
4818: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4819: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
4820: , G_MODULE
4821: ,'OKL: Booking Procedure: before contract_csr');
4822: END IF;
4823: OPEN contract_csr;
4830: END IF;
4831: CLOSE contract_csr;
4832:
4833: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4834: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Booking Procedure: before OKL_BILL_UPFRONT_TAX_PVT ');
4835: END IF;
4836:
4837: OKL_BILL_UPFRONT_TAX_PVT.Bill_Upfront_Tax(
4838: p_api_version => p_api_version,
4851: END IF;
4852:
4853: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4854: THEN
4855: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
4856: , G_MODULE
4857: ,'OKL: Booking Procedure: END');
4858: END IF;
4859:
4856: , G_MODULE
4857: ,'OKL: Booking Procedure: END');
4858: END IF;
4859:
4860: okl_debug_pub.logmessage('OKL: process_booking_tax : END' );
4861:
4862: Exception
4863: when booking_exception then
4864: x_return_status := OKL_API.G_RET_STS_ERROR;
4899: rebook_exception EXCEPTION;
4900:
4901: BEGIN
4902:
4903: okl_debug_pub.logmessage('OKL: process_rebook_tax : START' );
4904:
4905: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4906:
4907: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4904:
4905: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4906:
4907: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4908: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
4909: ,G_MODULE
4910: ,'OKL: Rebook Procedure: START');
4911: END IF;
4912:
4938: p_source_trx_name => p_transaction_type,
4939: p_source_table => g_source_table,
4940: p_tax_call_type => 'ACTUAL' );
4941:
4942: okl_debug_pub.logmessage('OKL: process_rebook_tax : OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax: ACTUAL : '|| x_return_status );
4943:
4944: -- Check if the tax call was successful
4945: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
4946: THEN
4949:
4950: --Bug# 6619311: Create upfront tax accounting for all tax treatments
4951: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4952: THEN
4953: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
4954: ,G_MODULE
4955: ,'OKL: Booking Procedure: Calling create_upfront_tax_accounting ');
4956: END IF;
4957:
5023: l_multiple_fee_type := Okl_Api.G_FALSE;
5024: l_fee_type := NULL;
5025:
5026: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5027: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
5028: ,G_MODULE
5029: ,'OKL: Rebook Procedure: verifying if multiple fee treatments are selected ');
5030: END IF;
5031: FOR i in check_feetype_csr (p_contract_id)
5061: -- R12B eBtax changes
5062: IF (l_billed_assets <> 0 OR l_contract_bill_tax <> 0) THEN
5063:
5064: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5065: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Rebook Procedure: before OKL_BILL_UPFRONT_TAX_PVT ');
5066: END IF;
5067:
5068: OKL_BILL_UPFRONT_TAX_PVT.Bill_Upfront_Tax(
5069: p_api_version => p_api_version,
5084: END IF; -- rule_info_csr_rec.rule_information1 = 'BILLED'
5085:
5086: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
5087: THEN
5088: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
5089: ,G_MODULE
5090: ,'OKL: rebook Procedure: END');
5091: END IF;
5092:
5089: ,G_MODULE
5090: ,'OKL: rebook Procedure: END');
5091: END IF;
5092:
5093: okl_debug_pub.logmessage('OKL: process_rebook_tax : END' );
5094:
5095: Exception
5096: when rebook_exception then
5097: x_return_status := OKL_API.G_RET_STS_ERROR;
5186: l_release_asset_yn VARCHAR2(1);
5187:
5188: BEGIN
5189:
5190: okl_debug_pub.logmessage('OKL: process_sales_tax : START');
5191:
5192: IF (G_DEBUG_ENABLED = 'Y') THEN
5193: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5194: END IF;
5189:
5190: okl_debug_pub.logmessage('OKL: process_sales_tax : START');
5191:
5192: IF (G_DEBUG_ENABLED = 'Y') THEN
5193: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5194: END IF;
5195:
5196: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5197:
5211: raise OKL_API.G_EXCEPTION_ERROR;
5212: End If;
5213:
5214: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5215: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5216: G_MODULE,
5217: 'OKL: Process Sales Tax : START ');
5218: END IF;
5219:
5251:
5252: IF (p_transaction_type = 'Pre-Booking') THEN
5253:
5254: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5255: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5256: G_MODULE,
5257: 'OKL: Process Sales Tax : before populate_transaction ');
5258: END IF;
5259:
5277: x_return_status => x_return_status,
5278: x_msg_count => x_msg_count,
5279: x_msg_data => x_msg_data);
5280:
5281: okl_debug_pub.logmessage('OKL: process_sales_tax : populate_transaction : '|| x_return_status );
5282:
5283: -- check transaction creation was successful
5284: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5285: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5296: p_transaction_type = 'Pre-Rebook') -- Bug 4769822
5297: THEN
5298:
5299: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5300: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5301: G_MODULE,
5302: 'OKL: Process Sales Tax : '||p_transaction_type||' before calculate_sales_tax ');
5303: END IF;
5304:
5328: p_source_trx_name => l_transaction_type, -- R12 Change
5329: p_source_table => l_source_table,
5330: p_tax_call_type => 'ESTIMATED');
5331:
5332: okl_debug_pub.logmessage('OKL: process_sales_tax : OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax: ESTIMATED : '|| x_return_status );
5333:
5334: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5335: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5336: G_MODULE,
5331:
5332: okl_debug_pub.logmessage('OKL: process_sales_tax : OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax: ESTIMATED : '|| x_return_status );
5333:
5334: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5335: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5336: G_MODULE,
5337: 'OKL: Process Sales Tax...3'|| x_return_status);
5338: END IF;
5339: -- Check if the tax call was successful
5343: raise OKL_API.G_EXCEPTION_ERROR;
5344: End If;
5345:
5346: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5347: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5348: G_MODULE,
5349: 'OKL: Process Sales Tax : '||p_transaction_type||' before process_prebook_tax ');
5350: END IF;
5351:
5360: x_msg_count => x_msg_count,
5361: x_msg_data => x_msg_data
5362: );
5363:
5364: okl_debug_pub.logmessage('OKL: process_sales_tax : process_prebook_tax : '|| x_return_status );
5365:
5366: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5367: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5368: G_MODULE,
5363:
5364: okl_debug_pub.logmessage('OKL: process_sales_tax : process_prebook_tax : '|| x_return_status );
5365:
5366: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5367: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5368: G_MODULE,
5369: 'OKL: Process Sales Tax : '||p_transaction_type||
5370: ' after process_prebook_tax: x_return_status' ||x_return_status);
5371: END IF;
5384: -- Process Booking Activation Tax Call
5385: If (p_transaction_type = 'Booking') THEN
5386:
5387: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5388: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Process Sales Tax : '||p_transaction_type||' before process_booking_tax ');
5389: END IF;
5390:
5391: process_booking_tax(
5392: p_api_version => p_api_version,
5397: x_return_status => x_return_status,
5398: x_msg_count => x_msg_count,
5399: x_msg_data => x_msg_data);
5400:
5401: okl_debug_pub.logmessage('OKL: process_sales_tax : process_booking_tax : '|| x_return_status );
5402: -- Check if the call was successful
5403: -- Bug 5002042
5404: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5405: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5412: -- Process Rebook Activation Tax Call
5413: IF (p_transaction_type = 'Rebook') THEN
5414:
5415: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5416: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Process Sales Tax : '||p_transaction_type||' before process_rebook_tax ');
5417: END IF;
5418:
5419: process_rebook_tax(
5420: p_api_version => p_api_version,
5427: x_return_status => x_return_status,
5428: x_msg_count => x_msg_count,
5429: x_msg_data => x_msg_data);
5430:
5431: okl_debug_pub.logmessage('OKL: process_sales_tax : process_rebook_tax : '|| x_return_status );
5432:
5433: End If; -- Rebook
5434:
5435: -- Process Mass Rebook trx
5447: -- R12 Change - Start
5448:
5449:
5450: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5451: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
5452: , G_MODULE
5453: ,'OKL: Process Sales Tax : Tax schedule csr ');
5454: END IF;
5455:
5477: )
5478: THEN
5479:
5480: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5481: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5482: G_MODULE,
5483: 'OKL: Process Sales Tax : START tax schedule ');
5484: END IF;
5485:
5486: OPEN c_currency_code(p_contract_id);
5487: FETCH c_currency_code INTO l_start_date, l_end_date, l_currency_code;
5488: CLOSE c_currency_code;
5489: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5490: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5491: G_MODULE,
5492: 'OKL: Process Sales Tax : after currency code csr ');
5493: END IF;
5494:
5496: FETCH c_try_type INTO l_try_id;
5497: CLOSE c_try_type;
5498:
5499: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5500: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5501: G_MODULE,
5502: 'OKL: Process Sales Tax : after try type csr');
5503: END IF;
5504:
5510: l_trqv_tbl(1).end_date := l_end_date;
5511: l_trqv_tbl(1).try_id := l_try_id;
5512:
5513: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5514: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5515: G_MODULE,
5516: 'OKL: Process Sales Tax : before creating trx requests');
5517: END IF;
5518:
5524: x_msg_data => x_msg_data,
5525: p_trqv_tbl => l_trqv_tbl,
5526: x_trqv_tbl => x_trqv_tbl);
5527:
5528: okl_debug_pub.logmessage('OKL: process_sales_tax : okl_trx_requests_pub.insert_trx_requests : '|| x_return_status );
5529:
5530: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5531: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5532: G_MODULE,
5527:
5528: okl_debug_pub.logmessage('OKL: process_sales_tax : okl_trx_requests_pub.insert_trx_requests : '|| x_return_status );
5529:
5530: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5531: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5532: G_MODULE,
5533: 'OKL: Process Sales Tax : after creating trx requests: status-> '|| x_return_status);
5534: END IF;
5535:
5539: raise OKL_API.G_EXCEPTION_ERROR;
5540: End If;
5541:
5542: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5543: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5544: G_MODULE,
5545: 'OKL: Process Sales Tax : before OKL_PROCESS_SALES_TAX_PUB');
5546: END IF;
5547:
5555: p_source_trx_name => l_try_name,
5556: p_source_table => 'OKL_TRX_REQUESTS',
5557: p_tax_call_type => NULL);
5558:
5559: okl_debug_pub.logmessage('OKL: process_sales_tax : after creating tax schedule : '|| x_return_status );
5560:
5561: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5562: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5563: G_MODULE,'OKL: Process Sales Tax : after OKL_PROCESS_SALES_TAX_PUB: status-> '|| x_return_status);
5558:
5559: okl_debug_pub.logmessage('OKL: process_sales_tax : after creating tax schedule : '|| x_return_status );
5560:
5561: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5562: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5563: G_MODULE,'OKL: Process Sales Tax : after OKL_PROCESS_SALES_TAX_PUB: status-> '|| x_return_status);
5564: END IF;
5565:
5566: -- Check if the tax call was successful
5574: -- is removed from this location. It is not required as per IA.
5575: -- If required, take it from OKL.H code line
5576:
5577: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5578: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5579: G_MODULE,
5580: 'OKL: Process Sales Tax : END tax schedule ');
5581: END IF;
5582:
5587: OKC_API.END_ACTIVITY (x_msg_count => x_msg_count,
5588: x_msg_data => x_msg_data);
5589:
5590: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5591: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Process Sales Tax : END ');
5592: END IF;
5593:
5594: okl_debug_pub.logmessage('OKL: process_sales_tax : END');
5595:
5590: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5591: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Process Sales Tax : END ');
5592: END IF;
5593:
5594: okl_debug_pub.logmessage('OKL: process_sales_tax : END');
5595:
5596: Exception
5597: when OKL_API.G_EXCEPTION_ERROR then
5598: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5850: AND kle.id = cleb.id;
5851:
5852: BEGIN
5853: IF (G_DEBUG_ENABLED = 'Y') THEN
5854: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5855: END IF;
5856: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5857:
5858: --OPEN l_hdr_csr;
5883: p_app_name => G_APP_NAME,
5884: p_msg_name => 'OKL_QA_ST_HEADER_TAX');
5885: x_return_status := OKL_API.G_RET_STS_ERROR;
5886: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5887: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_HEADER_TAX The Upfront Sales Tax at Contract header can not be null.');
5888: END IF;
5889: END IF;
5890:
5891:
5889: END IF;
5890:
5891:
5892: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5893: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info1'||l_hdrrl_rec.RULE_INFORMATION1);
5894: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info2'||l_hdrrl_rec.RULE_INFORMATION2);
5895: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info3'||l_hdrrl_rec.RULE_INFORMATION3);
5896: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info4'||l_hdrrl_rec.RULE_INFORMATION4);
5897: END IF;
5890:
5891:
5892: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5893: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info1'||l_hdrrl_rec.RULE_INFORMATION1);
5894: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info2'||l_hdrrl_rec.RULE_INFORMATION2);
5895: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info3'||l_hdrrl_rec.RULE_INFORMATION3);
5896: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info4'||l_hdrrl_rec.RULE_INFORMATION4);
5897: END IF;
5898:
5891:
5892: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5893: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info1'||l_hdrrl_rec.RULE_INFORMATION1);
5894: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info2'||l_hdrrl_rec.RULE_INFORMATION2);
5895: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info3'||l_hdrrl_rec.RULE_INFORMATION3);
5896: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info4'||l_hdrrl_rec.RULE_INFORMATION4);
5897: END IF;
5898:
5899: --IF (NOT l_exists OR l_tax_treatment IS NULL) THEN
5892: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5893: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info1'||l_hdrrl_rec.RULE_INFORMATION1);
5894: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info2'||l_hdrrl_rec.RULE_INFORMATION2);
5895: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info3'||l_hdrrl_rec.RULE_INFORMATION3);
5896: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info4'||l_hdrrl_rec.RULE_INFORMATION4);
5897: END IF;
5898:
5899: --IF (NOT l_exists OR l_tax_treatment IS NULL) THEN
5900: IF (NOT l_exists) THEN
5902: p_app_name => G_APP_NAME,
5903: p_msg_name => 'OKL_QA_ST_MISSING');
5904: x_return_status := OKL_API.G_RET_STS_ERROR;
5905: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5906: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_MISSING');
5907: END IF;
5908: END IF;
5909:
5910:
5919: p_token1 => 'UPFRONT_TAX',
5920: p_token1_value => l_fnd_meaning);
5921: x_return_status := OKL_API.G_RET_STS_ERROR;
5922: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5923: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_STREAM_MISSING '||'Please enter '
5924: ||l_fnd_meaning ||' stream type on Taxes (Sales Tax Processing)'
5925: ||' terms and condition for the contract.');
5926: END IF;
5927: END IF;
5936: p_token1 => 'UPFRONT_TAX',
5937: p_token1_value => l_fnd_meaning);
5938: x_return_status := OKL_API.G_RET_STS_ERROR;
5939: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5940: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_STREAM_MISSING '||'Please enter '
5941: ||l_fnd_meaning ||' stream type on Taxes (Sales Tax Processing)'
5942: ||' terms and condition for the contract.');
5943: END IF;
5944: END IF;
5953: p_token1 => 'UPFRONT_TAX',
5954: p_token1_value => l_fnd_meaning);
5955: x_return_status := OKL_API.G_RET_STS_ERROR;
5956: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5957: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_STREAM_MISSING '||'Please enter '
5958: ||l_fnd_meaning ||' stream type on Taxes (Sales Tax Processing)'
5959: ||' terms and condition for the contract.');
5960: END IF;
5961: END IF;
5989: p_token1 => 'FEE_TYPE',
5990: p_token1_value => l_fee_type_meaning);
5991: x_return_status := OKL_API.G_RET_STS_ERROR;
5992: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5993: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_FEE_ZERO '||'The sales tax fee line (type='
5994: ||l_fee_type_meaning||') amount can not be zero or negative.');
5995: END IF;
5996: END IF;
5997:
6008: END IF;
6009: l_no_link_assets := l_no_link_assets + 1;
6010: END LOOP; --l_st_fee_link_asset_rec
6011: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6012: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_st_fee_rec.amount || ':' || l_amt_link_asset);
6013: END IF;
6014: IF (l_st_fee_rec.amount <> l_amt_link_asset) THEN
6015: OKL_API.set_message(
6016: p_app_name => G_APP_NAME,
6018: p_token1 => 'LINE_TYPE',
6019: p_token1_value => l_fee_type_meaning);
6020: x_return_status := OKL_API.G_RET_STS_ERROR;
6021: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6022: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: OKL_QA_ST_FEE_ASSET_AMT '||'The sales tax Fee line ('
6023: ||l_fee_type_meaning||') amount must be equal to the total amount on corresponding linked Fee asset(s).');
6024: END IF;
6025: END IF;
6026: END IF;
6039: p_app_name => G_APP_NAME,
6040: p_msg_name => 'OKL_QA_ST_FEE_GT1');
6041: x_return_status := OKL_API.G_RET_STS_ERROR;
6042: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6043: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_FEE_GT1 ' || 'The contract can not have more than one Sales Tax Fee line defined.');
6044: END IF;
6045: END IF;
6046:
6047:
6058: OPEN l_asset_tax_rule_csr(l_asset_rec.Id);
6059: FETCH l_asset_tax_rule_csr INTO l_asset_tax_rule_rec;
6060: CLOSE l_asset_tax_rule_csr;
6061: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6062: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_asset_rec.id: '||l_asset_rec.id || ' ' || l_asset_rec.name);
6063: END IF;
6064: l_line_asset_upfront_tax := nvl(l_asset_tax_rule_rec.RULE_INFORMATION11,'XXX');
6065:
6066: IF (l_line_asset_upfront_tax <> 'BILLED' AND l_line_asset_upfront_tax <> 'XXX') THEN
6069:
6070: --raise error capitalized and finance mix not allowed. For sales tax purposes all non billed asset
6071: --lines should be either capitalized or financed throughout.
6072: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6073: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_line_asset_upfront_tax:'||l_line_asset_upfront_tax);
6074: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_prev_line_asset_upfront_tax:'||l_prev_line_asset_upfront_tax);
6075: END IF;
6076: IF (l_line_asset_upfront_tax IN ('FINANCE','CAPITALIZE')
6077: AND l_line_asset_upfront_tax <> l_prev_line_asset_upfront_tax) THEN
6070: --raise error capitalized and finance mix not allowed. For sales tax purposes all non billed asset
6071: --lines should be either capitalized or financed throughout.
6072: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6073: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_line_asset_upfront_tax:'||l_line_asset_upfront_tax);
6074: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_prev_line_asset_upfront_tax:'||l_prev_line_asset_upfront_tax);
6075: END IF;
6076: IF (l_line_asset_upfront_tax IN ('FINANCE','CAPITALIZE')
6077: AND l_line_asset_upfront_tax <> l_prev_line_asset_upfront_tax) THEN
6078: IF (l_prev_line_asset_upfront_tax <> 'XXX') THEN
6080: p_app_name => G_APP_NAME,
6081: p_msg_name => 'OKL_QA_ST_ALL_CAP_OR_FIN');
6082: x_return_status := OKL_API.G_RET_STS_ERROR;
6083: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6084: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_ALL_CAP_OR_FIN All asset lines must have sales upfront tax as either Financed or Capitalized.');
6085: END IF;
6086: EXIT;
6087: --RAISE G_EXCEPTION_HALT_VALIDATION;
6088: END IF;
6111: p_token3 => 'ASSET_NUMBER',
6112: p_token3_value => l_asset_rec.name);
6113: x_return_status := OKL_API.G_RET_STS_ERROR;
6114: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6115: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_CAP_FIN_MIX The upfront tax for the asset line ' ||
6116: l_asset_rec.name||' is different from asset upfront tax at Contract header.' );
6117: END IF;
6118: null;
6119: END IF;
6155: p_token2 => 'ASSET_NUMBER',
6156: p_token2_value => l_asset_rec.name);
6157: x_return_status := OKL_API.G_RET_STS_ERROR;
6158: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6159: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_FEE_ASSET_ERROR '||'The "Bill Upfront Tax" is selected for the asset = '
6160: ||l_asset_rec.name||'. Please remove this asset association from Sales Tax Fee line ('||l_tax_fee_meaning||').');
6161: END IF;
6162: null;
6163: END IF;
6169: END IF;
6170:
6171: IF ( (l_line_asset_upfront_tax IN ('FINANCE','CAPITALIZE') ) AND (NOT l_linked_asset_exists ) AND l_fee_line_found)THEN
6172: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6173: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Here00001' ||l_line_asset_upfront_tax );
6174: END IF;
6175: OPEN fnd_csr('OKL_FEE_TYPES',l_st_fee_code);
6176: FETCH fnd_csr INTO l_fnd_rec;
6177: CLOSE fnd_csr;
6184: p_token2 => 'LINE_TYPE',
6185: p_token2_value => l_tax_fee_meaning );
6186: x_return_status := OKL_API.G_RET_STS_ERROR;
6187: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6188: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: OKL_QA_ST_FEE_ASSET_MISSING '||'The sales tax Fee line ('
6189: ||l_tax_fee_meaning ||') does not have corresponding linked asset('||l_asset_rec.name||') defined.');
6190: END IF;
6191: END IF;
6192: */
6207: p_app_name => G_APP_NAME,
6208: p_msg_name => 'OKL_QA_ST_NO_FEE');
6209: x_return_status := OKL_API.G_RET_STS_ERROR;
6210: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6211: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: OKL_QA_ST_NO_FEE '||'The sales tax Fee line must be present for the Contract');
6212: END IF;
6213: END IF;
6214:
6215: --Bug#4699379 ramurt