[Home] [Help]
1: PACKAGE BODY OKL_LA_SALES_TAX_PVT AS
2: /* $Header: OKLRSTXB.pls 120.69.12020000.4 2013/03/22 05:08:44 racheruv 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:
769: and col.application_column_name = p_ri;
770:
771: BEGIN
772: IF (G_DEBUG_ENABLED = 'Y') THEN
773: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
774: END IF;
775:
776: x_return_status := OKL_API.G_RET_STS_SUCCESS;
777:
785: IF okl_context.get_okc_org_id IS NULL THEN
786: okl_context.set_okc_org_context(p_chr_id => p_chr_id);
787: END IF;
788: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
789: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sync here1');
790: END IF;
791: -- call START_ACTIVITY to create savepoint, check compatibility
792: -- and initialize message list
793: x_return_status := OKL_API.START_ACTIVITY (
1104:
1105:
1106: BEGIN
1107:
1108: okl_debug_pub.logmessage('OKL: POP TRX : START');
1109: okl_debug_pub.logmessage('OKL: POP TRX : p_contract_id: ' || p_contract_id);
1110: okl_debug_pub.logmessage('OKL: POP TRX : p_transaction_type: ' || p_transaction_type);
1111: okl_debug_pub.logmessage('OKL: POP TRX : p_transaction_id: ' || p_transaction_id);
1112: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_id: ' || p_source_trx_id);
1105:
1106: BEGIN
1107:
1108: okl_debug_pub.logmessage('OKL: POP TRX : START');
1109: okl_debug_pub.logmessage('OKL: POP TRX : p_contract_id: ' || p_contract_id);
1110: okl_debug_pub.logmessage('OKL: POP TRX : p_transaction_type: ' || p_transaction_type);
1111: okl_debug_pub.logmessage('OKL: POP TRX : p_transaction_id: ' || p_transaction_id);
1112: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_id: ' || p_source_trx_id);
1113: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_type: ' || p_source_trx_type);
1106: BEGIN
1107:
1108: okl_debug_pub.logmessage('OKL: POP TRX : START');
1109: okl_debug_pub.logmessage('OKL: POP TRX : p_contract_id: ' || p_contract_id);
1110: okl_debug_pub.logmessage('OKL: POP TRX : p_transaction_type: ' || p_transaction_type);
1111: okl_debug_pub.logmessage('OKL: POP TRX : p_transaction_id: ' || p_transaction_id);
1112: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_id: ' || p_source_trx_id);
1113: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_type: ' || p_source_trx_type);
1114:
1107:
1108: okl_debug_pub.logmessage('OKL: POP TRX : START');
1109: okl_debug_pub.logmessage('OKL: POP TRX : p_contract_id: ' || p_contract_id);
1110: okl_debug_pub.logmessage('OKL: POP TRX : p_transaction_type: ' || p_transaction_type);
1111: okl_debug_pub.logmessage('OKL: POP TRX : p_transaction_id: ' || p_transaction_id);
1112: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_id: ' || p_source_trx_id);
1113: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_type: ' || p_source_trx_type);
1114:
1115: IF (G_DEBUG_ENABLED = 'Y') THEN
1108: okl_debug_pub.logmessage('OKL: POP TRX : START');
1109: okl_debug_pub.logmessage('OKL: POP TRX : p_contract_id: ' || p_contract_id);
1110: okl_debug_pub.logmessage('OKL: POP TRX : p_transaction_type: ' || p_transaction_type);
1111: okl_debug_pub.logmessage('OKL: POP TRX : p_transaction_id: ' || p_transaction_id);
1112: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_id: ' || p_source_trx_id);
1113: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_type: ' || p_source_trx_type);
1114:
1115: IF (G_DEBUG_ENABLED = 'Y') THEN
1116: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1109: okl_debug_pub.logmessage('OKL: POP TRX : p_contract_id: ' || p_contract_id);
1110: okl_debug_pub.logmessage('OKL: POP TRX : p_transaction_type: ' || p_transaction_type);
1111: okl_debug_pub.logmessage('OKL: POP TRX : p_transaction_id: ' || p_transaction_id);
1112: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_id: ' || p_source_trx_id);
1113: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_type: ' || p_source_trx_type);
1114:
1115: IF (G_DEBUG_ENABLED = 'Y') THEN
1116: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1117: END IF;
1112: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_id: ' || p_source_trx_id);
1113: okl_debug_pub.logmessage('OKL: POP TRX : p_source_trx_type: ' || p_source_trx_type);
1114:
1115: IF (G_DEBUG_ENABLED = 'Y') THEN
1116: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1117: END IF;
1118:
1119: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1120: l_sysdate := SYSDATE;
1121: l_sysdate_trunc := trunc(SYSDATE);
1122: i := 0;
1123:
1124: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1125: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : START ');
1126: END IF;
1127:
1128:
1129: -- R12 - START
1208: RAISE pop_trx_failed;
1209: END IF;
1210:
1211: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1212: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : before Transaction_Type_csr ');
1213: END IF;
1214: -- Check Transaction_Type
1215: OPEN Transaction_Type_csr(l_transaction_type);
1216: FETCH Transaction_Type_csr INTO l_Trx_Type_rec;
1226: RAISE pop_trx_failed;
1227: END IF;
1228: CLOSE Transaction_Type_csr;
1229:
1230: okl_debug_pub.logmessage('OKL: POP TRX : Transaction_Type_csr.id: ' || l_Trx_Type_rec.id);
1231:
1232: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1233: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : before fnd_lookups_csr ');
1234: END IF;
1229:
1230: okl_debug_pub.logmessage('OKL: POP TRX : Transaction_Type_csr.id: ' || l_Trx_Type_rec.id);
1231:
1232: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1233: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : before fnd_lookups_csr ');
1234: END IF;
1235:
1236: OPEN fnd_lookups_csr('OKL_TCN_TYPE', l_transaction_type);
1237: FETCH fnd_lookups_csr INTO l_fnd_rec;
1242: RAISE pop_trx_failed;
1243: END IF;
1244: CLOSE fnd_lookups_csr;
1245:
1246: okl_debug_pub.logmessage('OKL: POP TRX : transaction type: ' || l_transaction_type);
1247: okl_debug_pub.logmessage('OKL: POP TRX : fnd_lookups_csr: Description ' || l_fnd_rec.description);
1248: okl_debug_pub.logmessage('OKL: POP TRX : fnd_lookups_csr: lookup_code ' || l_fnd_rec.lookup_code);
1249:
1250:
1243: END IF;
1244: CLOSE fnd_lookups_csr;
1245:
1246: okl_debug_pub.logmessage('OKL: POP TRX : transaction type: ' || l_transaction_type);
1247: okl_debug_pub.logmessage('OKL: POP TRX : fnd_lookups_csr: Description ' || l_fnd_rec.description);
1248: okl_debug_pub.logmessage('OKL: POP TRX : fnd_lookups_csr: lookup_code ' || l_fnd_rec.lookup_code);
1249:
1250:
1251: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1244: CLOSE fnd_lookups_csr;
1245:
1246: okl_debug_pub.logmessage('OKL: POP TRX : transaction type: ' || l_transaction_type);
1247: okl_debug_pub.logmessage('OKL: POP TRX : fnd_lookups_csr: Description ' || l_fnd_rec.description);
1248: okl_debug_pub.logmessage('OKL: POP TRX : fnd_lookups_csr: lookup_code ' || l_fnd_rec.lookup_code);
1249:
1250:
1251: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1252: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : before trx_csr ');
1248: okl_debug_pub.logmessage('OKL: POP TRX : fnd_lookups_csr: lookup_code ' || l_fnd_rec.lookup_code);
1249:
1250:
1251: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1252: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : before trx_csr ');
1253: END IF;
1254:
1255: -- gboomina Bug 6487183 - Start
1256: -- For Upfront Tax transaction always create transaction header record
1258: OPEN trx_csr(p_contract_id,l_fnd_rec.lookup_code);
1259: FETCH trx_csr INTO l_trx_rec;
1260: IF trx_csr%NOTFOUND THEN -- While activation, create a new trans always.
1261: l_has_trans := OKL_API.G_FALSE;
1262: okl_debug_pub.logmessage('OKL: POP TRX : No Existing TRX: '||l_fnd_rec.lookup_code);
1263: Else
1264: l_has_trans := OKL_API.G_TRUE;
1265: okl_debug_pub.logmessage('OKL: POP TRX : TRX Exists: '|| l_fnd_rec.lookup_code);
1266: END IF;
1261: l_has_trans := OKL_API.G_FALSE;
1262: okl_debug_pub.logmessage('OKL: POP TRX : No Existing TRX: '||l_fnd_rec.lookup_code);
1263: Else
1264: l_has_trans := OKL_API.G_TRUE;
1265: okl_debug_pub.logmessage('OKL: POP TRX : TRX Exists: '|| l_fnd_rec.lookup_code);
1266: END IF;
1267: CLOSE trx_csr;
1268: ELSE
1269: l_has_trans := OKL_API.G_FALSE;
1282: IF p_transaction_amount IS NOT NULL THEN
1283: l_trxH_in_rec.amount := p_transaction_amount;
1284: END IF;
1285:
1286: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.khr_id : '|| l_trxH_in_rec.khr_id);
1287: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_id : '|| l_trxH_in_rec.source_trx_id);
1288: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_type : '|| l_trxH_in_rec.source_trx_type);
1289: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.date_transaction_occurred : '|| l_trxH_in_rec.date_transaction_occurred);
1290: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.try_id : '|| l_trxH_in_rec.try_id);
1283: l_trxH_in_rec.amount := p_transaction_amount;
1284: END IF;
1285:
1286: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.khr_id : '|| l_trxH_in_rec.khr_id);
1287: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_id : '|| l_trxH_in_rec.source_trx_id);
1288: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_type : '|| l_trxH_in_rec.source_trx_type);
1289: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.date_transaction_occurred : '|| l_trxH_in_rec.date_transaction_occurred);
1290: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.try_id : '|| l_trxH_in_rec.try_id);
1291: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.tcn_type : '|| l_trxH_in_rec.tcn_type);
1284: END IF;
1285:
1286: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.khr_id : '|| l_trxH_in_rec.khr_id);
1287: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_id : '|| l_trxH_in_rec.source_trx_id);
1288: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_type : '|| l_trxH_in_rec.source_trx_type);
1289: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.date_transaction_occurred : '|| l_trxH_in_rec.date_transaction_occurred);
1290: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.try_id : '|| l_trxH_in_rec.try_id);
1291: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.tcn_type : '|| l_trxH_in_rec.tcn_type);
1292: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.amount : '|| l_trxH_in_rec.amount);
1285:
1286: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.khr_id : '|| l_trxH_in_rec.khr_id);
1287: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_id : '|| l_trxH_in_rec.source_trx_id);
1288: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_type : '|| l_trxH_in_rec.source_trx_type);
1289: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.date_transaction_occurred : '|| l_trxH_in_rec.date_transaction_occurred);
1290: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.try_id : '|| l_trxH_in_rec.try_id);
1291: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.tcn_type : '|| l_trxH_in_rec.tcn_type);
1292: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.amount : '|| l_trxH_in_rec.amount);
1293:
1286: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.khr_id : '|| l_trxH_in_rec.khr_id);
1287: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_id : '|| l_trxH_in_rec.source_trx_id);
1288: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_type : '|| l_trxH_in_rec.source_trx_type);
1289: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.date_transaction_occurred : '|| l_trxH_in_rec.date_transaction_occurred);
1290: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.try_id : '|| l_trxH_in_rec.try_id);
1291: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.tcn_type : '|| l_trxH_in_rec.tcn_type);
1292: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.amount : '|| l_trxH_in_rec.amount);
1293:
1294: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1287: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_id : '|| l_trxH_in_rec.source_trx_id);
1288: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_type : '|| l_trxH_in_rec.source_trx_type);
1289: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.date_transaction_occurred : '|| l_trxH_in_rec.date_transaction_occurred);
1290: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.try_id : '|| l_trxH_in_rec.try_id);
1291: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.tcn_type : '|| l_trxH_in_rec.tcn_type);
1292: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.amount : '|| l_trxH_in_rec.amount);
1293:
1294: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1295: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : transaction type '||l_transaction_type);
1288: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.source_trx_type : '|| l_trxH_in_rec.source_trx_type);
1289: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.date_transaction_occurred : '|| l_trxH_in_rec.date_transaction_occurred);
1290: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.try_id : '|| l_trxH_in_rec.try_id);
1291: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.tcn_type : '|| l_trxH_in_rec.tcn_type);
1292: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.amount : '|| l_trxH_in_rec.amount);
1293:
1294: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1295: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : transaction type '||l_transaction_type);
1296: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : try_id '||l_trxH_in_rec.try_id);
1291: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.tcn_type : '|| l_trxH_in_rec.tcn_type);
1292: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.amount : '|| l_trxH_in_rec.amount);
1293:
1294: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1295: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : transaction type '||l_transaction_type);
1296: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : try_id '||l_trxH_in_rec.try_id);
1297: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : tcn_type '||l_trxH_in_rec.tcn_type);
1298: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : l_has_trans '||l_has_trans);
1299: END IF;
1292: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.amount : '|| l_trxH_in_rec.amount);
1293:
1294: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1295: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : transaction type '||l_transaction_type);
1296: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : try_id '||l_trxH_in_rec.try_id);
1297: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : tcn_type '||l_trxH_in_rec.tcn_type);
1298: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : l_has_trans '||l_has_trans);
1299: END IF;
1300:
1293:
1294: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1295: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : transaction type '||l_transaction_type);
1296: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : try_id '||l_trxH_in_rec.try_id);
1297: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : tcn_type '||l_trxH_in_rec.tcn_type);
1298: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : l_has_trans '||l_has_trans);
1299: END IF;
1300:
1301: If ( l_has_trans = OKL_API.G_FALSE ) Then
1294: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1295: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : transaction type '||l_transaction_type);
1296: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : try_id '||l_trxH_in_rec.try_id);
1297: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : tcn_type '||l_trxH_in_rec.tcn_type);
1298: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : l_has_trans '||l_has_trans);
1299: END IF;
1300:
1301: If ( l_has_trans = OKL_API.G_FALSE ) Then
1302:
1300:
1301: If ( l_has_trans = OKL_API.G_FALSE ) Then
1302:
1303: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1304: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : before fnd_lookups_csr ');
1305: END IF;
1306:
1307: -- The followinf if segment ensures that Upfront Tax transaction is created
1308: -- with 'Processed' status
1322:
1323: l_trxH_in_rec.tsu_code := l_fnd_rec.lookup_code;
1324: l_trxH_in_rec.description := l_fnd_rec.description;
1325:
1326: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.tsu_code : '|| l_trxH_in_rec.tsu_code);
1327: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.description : '|| l_trxH_in_rec.description);
1328:
1329:
1330: --Added by dpsingh for LE Uptake
1323: l_trxH_in_rec.tsu_code := l_fnd_rec.lookup_code;
1324: l_trxH_in_rec.description := l_fnd_rec.description;
1325:
1326: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.tsu_code : '|| l_trxH_in_rec.tsu_code);
1327: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_in_rec.description : '|| l_trxH_in_rec.description);
1328:
1329:
1330: --Added by dpsingh for LE Uptake
1331: l_legal_entity_id := OKL_LEGAL_ENTITY_UTIL.get_khr_le_id(p_contract_id) ;
1342: p_token1_value => l_cntrct_number);
1343: RAISE OKL_API.G_EXCEPTION_ERROR;
1344: END IF;
1345: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1346: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
1347: , G_MODULE
1348: ,'OKL: Populate Trx Procedure : before Okl_Trx_Contracts_Pub.create_trx_contracts ');
1349: END IF;
1350:
1357: ,x_msg_data => x_msg_data
1358: ,p_tcnv_rec => l_trxH_in_rec
1359: ,x_tcnv_rec => l_trxH_out_rec);
1360:
1361: okl_debug_pub.logmessage('OKL: POP TRX : return status '||x_return_status);
1362:
1363: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1364: RAISE pop_trx_failed;
1365: END IF;
1376: -- outbound transaction id
1377: x_transaction_id := l_trxH_out_rec.id;
1378: x_trxh_out_rec := l_trxH_out_rec; -- R12 Change
1379:
1380: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_out_rec.id : '|| l_trxH_out_rec.id);
1381: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_out_rec.description : '|| l_trxH_out_rec.description);
1382:
1383: okl_debug_pub.logmessage('OKL: POP TRX : try id '||l_trxH_out_rec.TRY_ID);
1384: okl_debug_pub.logmessage('OKL: POP TRX : transaction type '||l_trxH_out_rec.TCN_TYPE);
1377: x_transaction_id := l_trxH_out_rec.id;
1378: x_trxh_out_rec := l_trxH_out_rec; -- R12 Change
1379:
1380: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_out_rec.id : '|| l_trxH_out_rec.id);
1381: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_out_rec.description : '|| l_trxH_out_rec.description);
1382:
1383: okl_debug_pub.logmessage('OKL: POP TRX : try id '||l_trxH_out_rec.TRY_ID);
1384: okl_debug_pub.logmessage('OKL: POP TRX : transaction type '||l_trxH_out_rec.TCN_TYPE);
1385: okl_debug_pub.logmessage('OKL: POP TRX : tsu code '||l_trxH_out_rec.TSU_CODE);
1379:
1380: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_out_rec.id : '|| l_trxH_out_rec.id);
1381: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_out_rec.description : '|| l_trxH_out_rec.description);
1382:
1383: okl_debug_pub.logmessage('OKL: POP TRX : try id '||l_trxH_out_rec.TRY_ID);
1384: okl_debug_pub.logmessage('OKL: POP TRX : transaction type '||l_trxH_out_rec.TCN_TYPE);
1385: okl_debug_pub.logmessage('OKL: POP TRX : tsu code '||l_trxH_out_rec.TSU_CODE);
1386:
1387: ELSE
1380: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_out_rec.id : '|| l_trxH_out_rec.id);
1381: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_out_rec.description : '|| l_trxH_out_rec.description);
1382:
1383: okl_debug_pub.logmessage('OKL: POP TRX : try id '||l_trxH_out_rec.TRY_ID);
1384: okl_debug_pub.logmessage('OKL: POP TRX : transaction type '||l_trxH_out_rec.TCN_TYPE);
1385: okl_debug_pub.logmessage('OKL: POP TRX : tsu code '||l_trxH_out_rec.TSU_CODE);
1386:
1387: ELSE
1388:
1381: okl_debug_pub.logmessage('OKL: POP TRX : l_trxH_out_rec.description : '|| l_trxH_out_rec.description);
1382:
1383: okl_debug_pub.logmessage('OKL: POP TRX : try id '||l_trxH_out_rec.TRY_ID);
1384: okl_debug_pub.logmessage('OKL: POP TRX : transaction type '||l_trxH_out_rec.TCN_TYPE);
1385: okl_debug_pub.logmessage('OKL: POP TRX : tsu code '||l_trxH_out_rec.TSU_CODE);
1386:
1387: ELSE
1388:
1389: --if transaction exists change the date transaction occured
1389: --if transaction exists change the date transaction occured
1390: l_upd_trxH_rec.id := l_trx_rec.HeaderTransID;
1391: l_upd_trxH_rec.date_transaction_occurred := l_trx_rec.date_transaction_occurred;
1392: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1393: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : transaction ID '||l_trx_rec.HeaderTransID);
1394: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : before fnd_lookups_csr ');
1395: END IF;
1396:
1397: -- R12 Bug# 14033244 Start
1390: l_upd_trxH_rec.id := l_trx_rec.HeaderTransID;
1391: l_upd_trxH_rec.date_transaction_occurred := l_trx_rec.date_transaction_occurred;
1392: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1393: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : transaction ID '||l_trx_rec.HeaderTransID);
1394: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : before fnd_lookups_csr ');
1395: END IF;
1396:
1397: -- R12 Bug# 14033244 Start
1398: l_upd_trxH_rec.pdt_id := g_Product_rec.product_id;
1417:
1418: l_upd_trxH_rec.tsu_code := l_fnd_rec.lookup_code;
1419:
1420: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1421: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : before Okl_Trx_Contracts_Pub.update_trx_contracts ');
1422: END IF;
1423:
1424: Okl_Trx_Contracts_Pub.update_trx_contracts(
1425: p_api_version => p_api_version
1444: -- outbound transaction id
1445: x_transaction_id := l_trx_rec.HeaderTransID;
1446: x_trxh_out_rec := lx_upd_trxH_rec; -- R12 Change
1447:
1448: okl_debug_pub.logmessage('OKL: POP TRX : return status '||x_return_status);
1449: okl_debug_pub.logmessage('OKL: POP TRX : lx_upd_trxH_rec.id : '|| lx_upd_trxH_rec.id);
1450: okl_debug_pub.logmessage('OKL: POP TRX : lx_upd_trxH_rec.description : '|| lx_upd_trxH_rec.description);
1451:
1452: okl_debug_pub.logmessage('OKL: POP TRX : try id '||lx_upd_trxH_rec.TRY_ID);
1445: x_transaction_id := l_trx_rec.HeaderTransID;
1446: x_trxh_out_rec := lx_upd_trxH_rec; -- R12 Change
1447:
1448: okl_debug_pub.logmessage('OKL: POP TRX : return status '||x_return_status);
1449: okl_debug_pub.logmessage('OKL: POP TRX : lx_upd_trxH_rec.id : '|| lx_upd_trxH_rec.id);
1450: okl_debug_pub.logmessage('OKL: POP TRX : lx_upd_trxH_rec.description : '|| lx_upd_trxH_rec.description);
1451:
1452: okl_debug_pub.logmessage('OKL: POP TRX : try id '||lx_upd_trxH_rec.TRY_ID);
1453: okl_debug_pub.logmessage('OKL: POP TRX : transaction type '||lx_upd_trxH_rec.TCN_TYPE);
1446: x_trxh_out_rec := lx_upd_trxH_rec; -- R12 Change
1447:
1448: okl_debug_pub.logmessage('OKL: POP TRX : return status '||x_return_status);
1449: okl_debug_pub.logmessage('OKL: POP TRX : lx_upd_trxH_rec.id : '|| lx_upd_trxH_rec.id);
1450: okl_debug_pub.logmessage('OKL: POP TRX : lx_upd_trxH_rec.description : '|| lx_upd_trxH_rec.description);
1451:
1452: okl_debug_pub.logmessage('OKL: POP TRX : try id '||lx_upd_trxH_rec.TRY_ID);
1453: okl_debug_pub.logmessage('OKL: POP TRX : transaction type '||lx_upd_trxH_rec.TCN_TYPE);
1454: okl_debug_pub.logmessage('OKL: POP TRX : tsu code '||lx_upd_trxH_rec.TSU_CODE);
1448: okl_debug_pub.logmessage('OKL: POP TRX : return status '||x_return_status);
1449: okl_debug_pub.logmessage('OKL: POP TRX : lx_upd_trxH_rec.id : '|| lx_upd_trxH_rec.id);
1450: okl_debug_pub.logmessage('OKL: POP TRX : lx_upd_trxH_rec.description : '|| lx_upd_trxH_rec.description);
1451:
1452: okl_debug_pub.logmessage('OKL: POP TRX : try id '||lx_upd_trxH_rec.TRY_ID);
1453: okl_debug_pub.logmessage('OKL: POP TRX : transaction type '||lx_upd_trxH_rec.TCN_TYPE);
1454: okl_debug_pub.logmessage('OKL: POP TRX : tsu code '||lx_upd_trxH_rec.TSU_CODE);
1455:
1456:
1449: okl_debug_pub.logmessage('OKL: POP TRX : lx_upd_trxH_rec.id : '|| lx_upd_trxH_rec.id);
1450: okl_debug_pub.logmessage('OKL: POP TRX : lx_upd_trxH_rec.description : '|| lx_upd_trxH_rec.description);
1451:
1452: okl_debug_pub.logmessage('OKL: POP TRX : try id '||lx_upd_trxH_rec.TRY_ID);
1453: okl_debug_pub.logmessage('OKL: POP TRX : transaction type '||lx_upd_trxH_rec.TCN_TYPE);
1454: okl_debug_pub.logmessage('OKL: POP TRX : tsu code '||lx_upd_trxH_rec.TSU_CODE);
1455:
1456:
1457: END IF;
1450: okl_debug_pub.logmessage('OKL: POP TRX : lx_upd_trxH_rec.description : '|| lx_upd_trxH_rec.description);
1451:
1452: okl_debug_pub.logmessage('OKL: POP TRX : try id '||lx_upd_trxH_rec.TRY_ID);
1453: okl_debug_pub.logmessage('OKL: POP TRX : transaction type '||lx_upd_trxH_rec.TCN_TYPE);
1454: okl_debug_pub.logmessage('OKL: POP TRX : tsu code '||lx_upd_trxH_rec.TSU_CODE);
1455:
1456:
1457: END IF;
1458:
1456:
1457: END IF;
1458:
1459: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1460: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : END ');
1461: END IF;
1462:
1463: okl_debug_pub.logmessage('OKL: POP TRX : END');
1464:
1459: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1460: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : END ');
1461: END IF;
1462:
1463: okl_debug_pub.logmessage('OKL: POP TRX : END');
1464:
1465: Exception
1466: when pop_trx_failed then
1467: x_return_status := OKL_API.G_RET_STS_ERROR;
1857: x_msg_index_out Number;
1858:
1859: BEGIN
1860: IF (G_DEBUG_ENABLED = 'Y') THEN
1861: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1862: END IF;
1863:
1864: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1865:
1884: CLOSE check_fee_csr;
1885: END IF;
1886:
1887: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1888: 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);
1889: END IF;
1890:
1891: IF (l_del_fee_line_id IS NOT NULL) THEN
1892: l_del_fee_types_rec.line_id := l_del_fee_line_id;
1902: p_fee_types_rec => l_del_fee_types_rec
1903: );
1904:
1905: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1906: 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);
1907: END IF;
1908:
1909: -- Check if the call was successful
1910: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1916: FETCH l_fee_csr INTO l_fee_rec;
1917: CLOSE l_fee_csr;
1918:
1919: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1920: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: l_fee_rec.amount: '||l_fee_rec.amount);
1921: END IF;
1922:
1923: IF (l_upfront_tax_fee_amount <> l_fee_rec.amount) THEN
1924:
1939:
1940: l_fee_types_rec.item_name := l_strm_type_name;
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_MAINTAIN_FEE_PVT.update_fee_type ');
1944: END IF;
1945:
1946: -- update fee top line
1947: OKL_MAINTAIN_FEE_PVT.update_fee_type(
1954: x_fee_types_rec => lx_fee_types_rec
1955: );
1956:
1957: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1958: 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);
1959: END IF;
1960:
1961: -- Check if the call was successful
1962: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1970: FOR j in get_asset_csr1(p_required_feetype)
1971: LOOP
1972:
1973: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1974: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: before get_asset_tax_amt_csr ');
1975: END IF;
1976:
1977: -- get asset tax amount
1978: OPEN get_asset_tax_amt_csr(j.id);
1980: IF get_asset_tax_amt_csr%NOTFOUND THEN
1981:
1982: OKL_API.set_message(G_APP_NAME, 'OKL_LA_ST_ASSET_TAX_AMT_ERROR');
1983: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1984: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount for ID'|| j.id);
1985: END IF;
1986: CLOSE get_asset_tax_amt_csr;
1987: RAISE update_fee_exception;
1988: END IF;
1988: END IF;
1989: CLOSE get_asset_tax_amt_csr;
1990:
1991: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1992: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: l_asset_tax_amt '||l_asset_tax_amt);
1993: END IF;
1994:
1995: l_cov_asset_line_rec.cleb_cov_asset_id := NULL;
1996: l_cov_asset_line_rec.amount := NULL;
2001: FETCH l_cov_asset_line_csr INTO l_cov_asset_line_rec;
2002: CLOSE l_cov_asset_line_csr;
2003:
2004: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2005: 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);
2006: 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);
2007: END IF;
2008:
2009: -- Update Fee covered asset amount if covered asset line exists, else create covered asset line
2002: CLOSE l_cov_asset_line_csr;
2003:
2004: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2005: 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);
2006: 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);
2007: END IF;
2008:
2009: -- Update Fee covered asset amount if covered asset line exists, else create covered asset line
2010: IF l_cov_asset_line_rec.cleb_cov_asset_id IS NOT NULL THEN
2061: FOR j in get_asset_csr2 (p_required_feetype)
2062: LOOP
2063:
2064: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2065: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: before get_asset_tax_amt_csr ');
2066: END IF;
2067:
2068: -- get asset tax amount
2069: OPEN get_asset_tax_amt_csr(j.id);
2071: IF get_asset_tax_amt_csr%NOTFOUND THEN
2072: OKL_API.set_message( p_app_name => G_APP_NAME,
2073: p_msg_name => 'OKL_LA_ST_ASSET_TAX_AMT_ERROR');
2074: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2075: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount. for ID'|| j.id);
2076: END IF;
2077: CLOSE get_asset_tax_amt_csr;
2078: RAISE update_fee_exception;
2079: END IF;
2142: -- Associate Assets to the fee
2143: IF (l_c_line_item_tbl.COUNT > 0) THEN
2144:
2145: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2146: 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 ');
2147: END IF;
2148:
2149: okl_contract_line_item_pvt.create_contract_line_item(
2150: p_api_version => p_api_version,
2156: x_line_item_tbl => lx_c_line_item_tbl);
2157:
2158:
2159: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2160: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: x_return_status '||x_return_status);
2161: END IF;
2162:
2163: -- Check if the call was successful
2164: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
2168:
2169: IF (l_u_line_item_tbl.COUNT > 0) THEN
2170:
2171: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2172: 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 ');
2173: END IF;
2174:
2175: okl_contract_line_item_pvt.update_contract_line_item(
2176: p_api_version => p_api_version,
2181: p_line_item_tbl => l_u_line_item_tbl,
2182: x_line_item_tbl => lx_u_line_item_tbl);
2183:
2184: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2185: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: x_return_status '||x_return_status);
2186: END IF;
2187:
2188: -- Check if the call was successful
2189: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
2193:
2194: IF (l_d_line_item_tbl.COUNT > 0) THEN
2195:
2196: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2197: 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 ');
2198: END IF;
2199:
2200: okl_contract_line_item_pvt.delete_contract_line_item(
2201: p_api_version => p_api_version,
2205: x_msg_data => x_msg_data,
2206: p_line_item_tbl => l_d_line_item_tbl);
2207:
2208: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2209: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: x_return_status '||x_return_status);
2210: END IF;
2211:
2212: -- Check if the call was successful
2213: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
2231: l_rulv_tbl(1).rule_information_category := l_rul_rec.rule_information_category;
2232: l_rulv_tbl(1).rule_information2 := TO_CHAR(l_upfront_tax_fee_amount);
2233:
2234: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2235: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: before OKL_RULE_PUB.update_rule ');
2236: END IF;
2237: OKL_RULE_PUB.update_rule(
2238: p_api_version => p_api_version,
2239: p_init_msg_list => p_init_msg_list,
2243: p_rulv_tbl => l_rulv_tbl,
2244: x_rulv_tbl => lx_rulv_tbl);
2245:
2246: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2247: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: x_return_status '||x_return_status);
2248: END IF;
2249:
2250: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
2251: RAISE update_fee_exception;
2294:
2295: BEGIN
2296:
2297: IF (G_DEBUG_ENABLED = 'Y') THEN
2298: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2299: END IF;
2300:
2301: x_return_status := OKL_API.START_ACTIVITY(
2302: p_api_name => l_api_name,
2324: END IF;
2325: CLOSE rule_info_csr;
2326:
2327: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2328: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: Default Fee Type '||l_rule_info_rec.rule_information1);
2329: END IF;
2330:
2331: OPEN l_fee_csr(p_chr_id => p_chr_id);
2332: FETCH l_fee_csr INTO l_fee_rec;
2332: FETCH l_fee_csr INTO l_fee_rec;
2333: CLOSE l_fee_csr;
2334:
2335: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2336: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: Sales Tax Fee Line Id '||l_fee_rec.id);
2337: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: Sales Tax Fee Type '||l_fee_rec.fee_type);
2338: END IF;
2339:
2340: IF l_fee_rec.id IS NOT NULL THEN
2333: CLOSE l_fee_csr;
2334:
2335: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2336: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: Sales Tax Fee Line Id '||l_fee_rec.id);
2337: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: Sales Tax Fee Type '||l_fee_rec.fee_type);
2338: END IF;
2339:
2340: IF l_fee_rec.id IS NOT NULL THEN
2341:
2339:
2340: IF l_fee_rec.id IS NOT NULL THEN
2341:
2342: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2343: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: Before OKL_LA_SALES_TAX_PVT.update_fee ');
2344: END IF;
2345:
2346: OKL_LA_SALES_TAX_PVT.update_fee
2347: (p_api_version => p_api_version,
2355: x_msg_count => x_msg_count,
2356: x_msg_data => x_msg_data);
2357:
2358: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2359: 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);
2360: END IF;
2361:
2362: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2363: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2373: x_msg_data => x_msg_data,
2374: p_chr_id => p_chr_id);
2375:
2376: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2377: 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);
2378: END IF;
2379:
2380: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2381: l_upfront_tax_prog_sts := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_ERROR;
2637: x_msg_index_out Number;
2638:
2639: BEGIN
2640: IF (G_DEBUG_ENABLED = 'Y') THEN
2641: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2642: END IF;
2643:
2644: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2645:
2648:
2649: --l_financed_amount := get_financed_tax ( p_Contract_id, p_transaction_id);
2650: l_financed_amount := get_financed_tax ( p_Contract_id, p_default_feetype);
2651: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2652: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: FINANCE segment: l_financed_amount: '
2653: ||l_financed_amount);
2654: END IF;
2655:
2656: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2653: ||l_financed_amount);
2654: END IF;
2655:
2656: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2657: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: FINANCE segment: before check_fee_csr ');
2658: END IF;
2659:
2660: -- Check If finance fee already exists
2661: -- if exists do nothing, because we can only create once
2673:
2674: -- Create Fee only if the amount is > 0 and Sale Tax Fee does not
2675: -- exist already
2676: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2677: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: FINANCE segment: before IF condition');
2678: END IF;
2679: If ((l_financed_amount > 0) AND
2680: (l_finance_fee_exists = OKL_API.G_FALSE)) THEN
2681:
2679: If ((l_financed_amount > 0) AND
2680: (l_finance_fee_exists = OKL_API.G_FALSE)) THEN
2681:
2682: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2683: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: FINANCE segment: before stream_csr ');
2684: END IF;
2685: -- get item_id1 value
2686: OPEN stream_csr(p_stream_id);
2687: FETCH stream_csr INTO l_item_name;
2696: END IF;
2697: CLOSE stream_csr;
2698:
2699: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2700: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: FINANCE segment: before contract_dates_csr ');
2701: END IF;
2702:
2703: -- get contract dates for fee effective date
2704: OPEN contract_dates_csr;
2720: l_fee_types_rec.effective_from := contract_dates_csr_rec.start_date;
2721: l_fee_types_rec.effective_to := contract_dates_csr_rec.end_date;
2722:
2723: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2724: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: FINANCE segment: before OKL_MAINTAIN_FEE_PVT ');
2725: END IF;
2726: -- create fee top line
2727: OKL_MAINTAIN_FEE_PVT.create_fee_type(
2728: p_api_version => p_api_version,
2744: FOR j in get_asset_csr1 ('FINANCE')
2745: LOOP
2746:
2747: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2748: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: FINANCE segment: before get_asset_tax_amt_csr ');
2749: END IF;
2750: -- get asset tax amount
2751: OPEN get_asset_tax_amt_csr(j.id);
2752: FETCH get_asset_tax_amt_csr INTO l_asset_tax_amt;
2753: IF get_asset_tax_amt_csr%NOTFOUND THEN
2754: --Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Asset Tax Amount cannot be derived');
2755: Okl_Api.SET_MESSAGE(G_APP_NAME, 'OKL_LA_ST_K_ID_ERROR');
2756: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2757: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount for ID'|| j.id);
2758: END IF;
2759: CLOSE get_asset_tax_amt_csr;
2760: RAISE create_fee_exception;
2761: END IF;
2782: FOR j in get_asset_csr2 ('FINANCE')
2783: LOOP
2784:
2785: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2786: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: FINANCE segment: before get_asset_tax_amt_csr ');
2787: END IF;
2788: -- get asset tax amount
2789: OPEN get_asset_tax_amt_csr(j.id);
2790: FETCH get_asset_tax_amt_csr INTO l_asset_tax_amt;
2791: IF get_asset_tax_amt_csr%NOTFOUND THEN
2792: OKL_API.set_message( p_app_name => G_APP_NAME,
2793: p_msg_name => 'OKL_LA_ST_ASSET_TAX_AMT_ERROR');
2794: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2795: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount. for ID'|| j.id);
2796: END IF;
2797: CLOSE get_asset_tax_amt_csr;
2798: RAISE create_fee_exception;
2799: END IF;
2817:
2818:
2819:
2820: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2821: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: FINANCE segment: before okl_contract_line_item_pvt ');
2822: END IF;
2823: -- Associate Assets to the fee
2824: okl_contract_line_item_pvt.create_contract_line_item(
2825: p_api_version => p_api_version,
2831: p_line_item_tbl => l_line_item_tbl,
2832: x_line_item_tbl => lx_line_item_tbl);
2833:
2834: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2835: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: FINANCE segment: x_return_status '||x_return_status);
2836: END IF;
2837: FOR k in 1..x_msg_count LOOP
2838: fnd_msg_pub.get (p_encoded => 'F',
2839: p_data => x_msg_data,
2839: p_data => x_msg_data,
2840: p_msg_index_out => x_msg_index_out
2841: );
2842: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2843: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: FINANCE segment:'||to_char(k) || ':' || x_msg_data);
2844: END IF;
2845: END LOOP;
2846:
2847: -- Check if the call was successful
2858: l_rgpv_rec.cle_id := lx_fee_types_rec.line_id;
2859: l_rgpv_rec.rgp_type := 'KRG';
2860:
2861: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2862: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: FINANCE segment: before OKL_RULE_PUB.create_rule_group ');
2863: END IF;
2864:
2865: OKL_RULE_PUB.create_rule_group(
2866: p_api_version => p_api_version,
2895: l_rulv_tbl(2).STD_TEMPLATE_YN := 'N';
2896: l_rulv_tbl(2).template_yn := 'N';
2897:
2898: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2899: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: FINANCE segment: before OKL_RULE_PUB.create_rule ');
2900: END IF;
2901: OKL_RULE_PUB.create_rule(
2902: p_api_version => p_api_version,
2903: p_init_msg_list => p_init_msg_list,
2946: ,p_default_feetype);
2947:
2948:
2949: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2950: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: CAPITALIZE segment: l_capitalized_amount: '
2951: ||l_capitalized_amount);
2952: END IF;
2953: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2954: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: CAPITALIZE segment: before check_fee_csr ');
2950: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: CAPITALIZE segment: l_capitalized_amount: '
2951: ||l_capitalized_amount);
2952: END IF;
2953: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2954: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: CAPITALIZE segment: before check_fee_csr ');
2955: END IF;
2956:
2957: OPEN check_fee_csr ('CAPITALIZED');
2958: -- R12B Authoring OA Migration
2965: END IF;
2966: CLOSE check_fee_csr;
2967:
2968: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2969: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: CAPITALIZE segment: before IF condition');
2970: END IF;
2971: -- Create Fee only if the amount is > 0 and fee does not exist
2972: If ((l_capitalized_amount > 0) AND
2973: (l_capitalized_fee_exists = OKL_API.G_FALSE)) THEN
2972: If ((l_capitalized_amount > 0) AND
2973: (l_capitalized_fee_exists = OKL_API.G_FALSE)) THEN
2974:
2975: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2976: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: CAPITALIZE segment: before stream_csr ');
2977: END IF;
2978: -- get item_id1 value
2979: OPEN stream_csr(p_stream_id);
2980: FETCH stream_csr INTO l_item_name;
2990: END IF;
2991: CLOSE stream_csr;
2992:
2993: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2994: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: CAPITALIZE segment: before contract_dates_csr ');
2995: END IF;
2996: -- get contract dates for fee effective date
2997: OPEN contract_dates_csr;
2998: FETCH contract_dates_csr INTO contract_dates_csr_rec;
3013: l_fee_types_rec.effective_from := contract_dates_csr_rec.start_date;
3014: l_fee_types_rec.effective_to := contract_dates_csr_rec.end_date;
3015:
3016: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
3017: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: CAPITALIZE segment: before OKL_MAINTAIN_FEE_PVT ');
3018: END IF;
3019: -- Create Fee Top Line
3020: OKL_MAINTAIN_FEE_PVT.create_fee_type(
3021: p_api_version => p_api_version,
3036: FOR j in get_asset_csr1 ('CAPITALIZE')
3037: LOOP
3038: -- get asset tax amount
3039: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
3040: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: CAPITALIZE segment: before get_asset_tax_amt_csr ');
3041: END IF;
3042: OPEN get_asset_tax_amt_csr(j.id);
3043: FETCH get_asset_tax_amt_csr INTO l_asset_tax_amt;
3044: IF get_asset_tax_amt_csr%NOTFOUND THEN
3044: IF get_asset_tax_amt_csr%NOTFOUND THEN
3045: OKL_API.set_message( p_app_name => G_APP_NAME,
3046: p_msg_name => 'OKL_LA_ST_ASSET_TAX_AMT_ERROR');
3047: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
3048: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount. for ID'|| j.id);
3049: END IF;
3050: CLOSE get_asset_tax_amt_csr;
3051: RAISE create_fee_exception;
3052: END IF;
3074: FOR j in get_asset_csr2 ('CAPITALIZE')
3075: LOOP
3076:
3077: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
3078: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: CAPITALIZE segment: before get_asset_tax_amt_csr ');
3079: END IF;
3080: -- get asset tax amount
3081: OPEN get_asset_tax_amt_csr(j.id);
3082: FETCH get_asset_tax_amt_csr INTO l_asset_tax_amt;
3083: IF get_asset_tax_amt_csr%NOTFOUND THEN
3084: OKL_API.set_message( p_app_name => G_APP_NAME,
3085: p_msg_name => 'OKL_LA_ST_ASSET_TAX_AMT_ERROR');
3086: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
3087: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount. for ID'|| j.id);
3088: END IF;
3089: CLOSE get_asset_tax_amt_csr;
3090: RAISE create_fee_exception;
3091: END IF;
3109:
3110:
3111:
3112: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
3113: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: CAPITALIZE segment: before okl_contract_line_item_pvt ');
3114: END IF;
3115: -- Associate Assets to the fee
3116: okl_contract_line_item_pvt.create_contract_line_item(
3117: p_api_version => p_api_version,
3247: l_acc_gen_primary_key_tbl1 okl_account_dist_pvt.acc_gen_primary_key;
3248:
3249: BEGIN
3250:
3251: okl_debug_pub.logmessage('OKL: populate_account_data : START');
3252:
3253: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3254:
3255: l_acc_gen_primary_key_tbl(1).source_table := 'FINANCIALS_SYSTEM_PARAMETERS';
3286: l_acc_gen_primary_key_tbl(4).primary_key_column := l_salesP_rec.id;
3287:
3288: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3289: THEN
3290: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
3291: ,G_MODULE
3292: , 'OKL: populate_account_data Procedure: Calling OKL_SECURITIZATION_PVT ');
3293: END IF;
3294:
3306: x_inv_acct_code => l_inv_acct_code
3307: );
3308:
3309:
3310: okl_debug_pub.logmessage('OKL: populate_account_data : OKL_SECURITIZATION_PVT : '||x_return_status);
3311:
3312: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3313: THEN
3314: RAISE account_data_exception;
3355: p_dist_info_tbl(i).currency_conversion_rate := p_trxh_out_rec.currency_conversion_rate;
3356: p_dist_info_tbl(i).currency_conversion_type := p_trxh_out_rec.currency_conversion_type;
3357: p_dist_info_tbl(i).currency_conversion_date := p_trxh_out_rec.currency_conversion_date;
3358: p_dist_info_tbl(i).currency_code := p_trxh_out_rec.currency_code;
3359: okl_debug_pub.logmessage('OKL: populate_account_data : p_tclv_tbl loop : l_dist_info_tbl(i).amount : '||p_dist_info_tbl(i).amount);
3360:
3361: END LOOP;
3362:
3363: okl_debug_pub.logmessage('OKL: populate_account_data : END');
3359: okl_debug_pub.logmessage('OKL: populate_account_data : p_tclv_tbl loop : l_dist_info_tbl(i).amount : '||p_dist_info_tbl(i).amount);
3360:
3361: END LOOP;
3362:
3363: okl_debug_pub.logmessage('OKL: populate_account_data : END');
3364:
3365: EXCEPTION
3366: WHEN account_data_exception
3367: THEN
3773: l_transaction_amount NUMBER;
3774:
3775: BEGIN
3776:
3777: okl_debug_pub.logmessage('OKL: UPF A/C : START');
3778:
3779: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3780:
3781: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3779: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3780:
3781: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3782: THEN
3783: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
3784: , G_MODULE
3785: , 'OKL: Booking Procedure: deriving Accounting option ');
3786: END IF;
3787:
3799: CLOSE acct_opt_csr;
3800:
3801: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3802: THEN
3803: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
3804: , G_MODULE
3805: , 'OKL: Booking Procedure: Validating Accounting option ');
3806: END IF;
3807:
3823: ELSE
3824:
3825: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3826: THEN
3827: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
3828: , G_MODULE
3829: ,'OKL: create_upfront_tax_accounting Procedure : before fnd_lookups_csr ');
3830: END IF;
3831:
3849: -- each inserted record's tax treatment
3850:
3851: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3852: THEN
3853: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
3854: ,G_MODULE
3855: ,'OKL: create_upfront_tax_accounting Procedure: deriving financed stream ID ');
3856: END IF;
3857:
3860: p_primary_sty_purpose => 'UPFRONT_TAX_FINANCED',
3861: x_return_status => x_return_status,
3862: x_primary_sty_id => l_financed_sty_id);
3863:
3864: okl_debug_pub.logmessage('OKL: UPF A/C : UPFRONT_TAX_FINANCED : '||l_financed_sty_id);
3865:
3866: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3867: THEN
3868: RAISE upfront_tax_acct_exception;
3869: End If;
3870:
3871: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3872: THEN
3873: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
3874: ,G_MODULE
3875: ,'OKL: create_upfront_tax_accounting Procedure: deriving capitalized stream ID ');
3876: END IF;
3877:
3880: p_primary_sty_purpose => 'UPFRONT_TAX_CAPITALIZED',
3881: x_return_status => x_return_status,
3882: x_primary_sty_id => l_capitalized_sty_id);
3883:
3884: okl_debug_pub.logmessage('OKL: UPF A/C : UPFRONT_TAX_CAPITALIZED : '||l_capitalized_sty_id);
3885:
3886: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
3887: RAISE upfront_tax_acct_exception;
3888: End If;
3889:
3890: --Bug# 6619311
3891: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3892: THEN
3893: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
3894: ,G_MODULE
3895: ,'OKL: create_upfront_tax_accounting Procedure: deriving billed stream ID ');
3896: END IF;
3897:
3900: p_primary_sty_purpose => 'UPFRONT_TAX_BILLED',
3901: x_return_status => x_return_status,
3902: x_primary_sty_id => l_billed_sty_id);
3903:
3904: okl_debug_pub.logmessage('OKL: UPF A/C : UPFRONT_TAX_BILLED : '||l_billed_sty_id);
3905:
3906: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
3907: RAISE upfront_tax_acct_exception;
3908: End If;
3909: --End Bug# 6619311
3910:
3911: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3912: THEN
3913: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
3914: ,G_MODULE
3915: ,'OKL: create_upfront_tax_accounting Procedure: deriving default tax treatment ');
3916: END IF;
3917:
3932: THEN
3933:
3934: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3935: THEN
3936: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
3937: ,G_MODULE
3938: ,'OKL: create_upfront_tax_accounting Procedure: deriving asset tax information ');
3939: END IF;
3940:
4008: l_transaction_amount := l_transaction_amount + (-1 * l_accoutable_tax_lines(i).tax_amount);
4009: END LOOP;
4010:
4011: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4012: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
4013: , G_MODULE
4014: ,'OKL: create_upfront_tax_accounting Procedure: Calling populate_transaction procedure ');
4015: END IF;
4016:
4030: x_return_status => x_return_status,
4031: x_msg_count => x_msg_count,
4032: x_msg_data => x_msg_data);
4033:
4034: okl_debug_pub.logmessage('OKL: UPF A/C : populate_transaction : return status '||x_return_status);
4035: -- check transaction creation was successful
4036: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
4037: THEN
4038: RAISE upfront_tax_acct_exception;
4075: -- Create TRX lines with the data gathered
4076:
4077: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4078: THEN
4079: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
4080: ,G_MODULE
4081: , 'OKL: create_upfront_tax_accounting Procedure: Calling Okl_Trx_Contracts_Pub.create_trx_cntrct_lines ');
4082: END IF;
4083:
4089: x_msg_data => x_msg_data,
4090: p_tclv_tbl => l_tclv_tbl,
4091: x_tclv_tbl => x_tclv_tbl);
4092:
4093: okl_debug_pub.logmessage('OKL: UPF A/C : create_trx_cntrct_lines : '||x_return_status);
4094:
4095: -- check transaction line creation was successful
4096: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
4097: THEN
4110: ,x_return_status
4111: ,x_msg_count
4112: ,x_msg_data);
4113:
4114: okl_debug_pub.logmessage('OKL: UPF A/C : populate_account_data : '||x_return_status);
4115:
4116: -- check transaction line creation was successful
4117: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
4118: THEN
4120: END IF;
4121:
4122: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4123: THEN
4124: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
4125: ,G_MODULE
4126: ,'OKL: create_upfront_tax_accounting Procedure: Calling Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST');
4127: END IF;
4128:
4181: l_ctxt_tbl.DELETE;
4182:
4183: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4184: THEN
4185: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
4186: ,G_MODULE
4187: ,'OKL: create_upfront_tax_accounting Procedure: deriving asset tax information ');
4188: END IF;
4189:
4248: END LOOP;
4249:
4250: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4251: THEN
4252: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
4253: , G_MODULE
4254: ,'OKL: create_upfront_tax_accounting Procedure: Calling populate_transaction procedure ');
4255: END IF;
4256:
4270: x_return_status => x_return_status,
4271: x_msg_count => x_msg_count,
4272: x_msg_data => x_msg_data);
4273:
4274: okl_debug_pub.logmessage('OKL: UPF A/C : populate_transaction : return status '||x_return_status);
4275:
4276: -- check transaction creation was successful
4277: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
4278: THEN
4313: -- Create TRX lines with the data gathered
4314:
4315: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4316: THEN
4317: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
4318: ,G_MODULE
4319: , 'OKL: create_upfront_tax_accounting Procedure: Calling Okl_Trx_Contracts_Pub.create_trx_cntrct_lines ');
4320: END IF;
4321:
4327: x_msg_data => x_msg_data,
4328: p_tclv_tbl => l_tclv_tbl,
4329: x_tclv_tbl => x_tclv_tbl);
4330:
4331: okl_debug_pub.logmessage('OKL: UPF A/C : create_trx_cntrct_lines : '||x_return_status);
4332:
4333: -- check transaction line creation was successful
4334: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
4335: THEN
4348: ,x_return_status
4349: ,x_msg_count
4350: ,x_msg_data);
4351:
4352: okl_debug_pub.logmessage('OKL: UPF A/C : populate_account_data : '||x_return_status);
4353:
4354: -- check transaction line creation was successful
4355: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
4356: THEN
4358: END IF;
4359:
4360: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4361: THEN
4362: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
4363: ,G_MODULE
4364: ,'OKL: create_upfront_tax_accounting Procedure: Calling Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST');
4365: END IF;
4366:
4363: ,G_MODULE
4364: ,'OKL: create_upfront_tax_accounting Procedure: Calling Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST');
4365: END IF;
4366:
4367: okl_debug_pub.logmessage('OKL: UPF A/C : before calling okl_account_dist_pvt');
4368:
4369: -- Call Accounting API to create distributions
4370: okl_account_dist_pvt.create_accounting_dist(
4371: p_api_version => 1.0,
4380: x_template_tbl => l_template_out_tbl,
4381: x_amount_tbl => l_amount_tbl,
4382: p_trx_header_id => l_trxh_out_rec.id);
4383:
4384: okl_debug_pub.logmessage('OKL: UPF A/C : after calling okl_account_dist_pvt : '|| x_return_status);
4385:
4386: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
4387: THEN
4388: RAISE upfront_tax_acct_exception;
4409: --Bug# 7506009
4410:
4411: END IF; -- AMB Check
4412:
4413: okl_debug_pub.logmessage('OKL: UPF A/C : END');
4414:
4415: EXCEPTION
4416: WHEN upfront_tax_acct_exception
4417: THEN
4461: l_fee_type_to_delete OKL_K_LINES.fee_type%TYPE;
4462:
4463: BEGIN
4464: IF (G_DEBUG_ENABLED = 'Y') THEN
4465: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4466: END IF;
4467:
4468: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4469: -- Get rule value to identify upfront tax type
4468: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4469: -- Get rule value to identify upfront tax type
4470:
4471: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4472: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: START ');
4473: END IF;
4474:
4475: OPEN rule_info_csr(p_contract_id);
4476: FETCH rule_info_csr INTO rule_info_csr_rec;
4493: l_asset_count > 0)
4494: THEN
4495: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4496: THEN
4497: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: before calling create fee in FINANCE if');
4498: END IF;
4499: create_fee(
4500: p_api_version => p_api_version,
4501: p_init_msg_list => p_init_msg_list,
4522: FETCH check_st_fee_csr INTO l_del_fee_line_id;
4523: CLOSE check_st_fee_csr;
4524:
4525: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4526: 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);
4527: END IF;
4528:
4529: IF l_del_fee_line_id IS NOT NULL THEN
4530:
4541: p_fee_types_rec => l_del_fee_types_rec
4542: );
4543:
4544: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4545: 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 );
4546: END IF;
4547:
4548: -- Check if the call was successful
4549: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4557: -- If upfront tax is 'CAPITALIZED'
4558: If (rule_info_csr_rec.rule_information1 = 'CAPITALIZE' AND l_asset_count > 0)
4559: THEN
4560: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4561: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: before calling create fee in CAPITALIZE if ');
4562: END IF;
4563: create_fee(
4564: p_api_version => p_api_version,
4565: p_init_msg_list => p_init_msg_list,
4586: FETCH check_st_fee_csr INTO l_del_fee_line_id;
4587: CLOSE check_st_fee_csr;
4588:
4589: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4590: 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);
4591: END IF;
4592:
4593: IF l_del_fee_line_id IS NOT NULL THEN
4594:
4605: p_fee_types_rec => l_del_fee_types_rec
4606: );
4607:
4608: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4609: 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 );
4610: END IF;
4611:
4612: -- Check if the call was successful
4613: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4623: l_multiple_fee_type := Okl_Api.G_FALSE;
4624: l_fee_type := NULL;
4625:
4626: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4627: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: verifying if multiple fee treatments are selected ');
4628: END IF;
4629: FOR i in check_feetype_csr (p_contract_id)
4630: LOOP
4631: l_fee_type := i.feetype;
4638:
4639: IF (l_multiple_fee_type = Okl_Api.G_FALSE AND l_fee_type IS NOT NULL)
4640: THEN
4641: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4642: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: if multiple fee treatments are NOT selected');
4643: END IF;
4644: IF (l_fee_type = 'FINANCE') THEN
4645: l_stream_id := to_number(rule_info_csr_rec.rule_information3);
4646: END IF;
4649: l_stream_id := to_number(rule_info_csr_rec.rule_information4);
4650: END IF;
4651:
4652: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4653: 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 ');
4654: END IF;
4655: create_fee(
4656: p_api_version => p_api_version,
4657: p_init_msg_list => p_init_msg_list,
4663: x_return_status => x_return_status,
4664: x_msg_count => x_msg_count,
4665: x_msg_data => x_msg_data);
4666: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4667: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: after calling create fee for '||
4668: l_fee_type
4669: || ' in BILLED if return status '|| x_return_status );
4670: END IF;
4671: -- Check if the call was successful
4688: FETCH check_st_fee_csr INTO l_del_fee_line_id;
4689: CLOSE check_st_fee_csr;
4690:
4691: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4692: 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);
4693: END IF;
4694:
4695: IF l_del_fee_line_id IS NOT NULL THEN
4696:
4707: p_fee_types_rec => l_del_fee_types_rec
4708: );
4709:
4710: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4711: 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 );
4712: END IF;
4713:
4714: -- Check if the call was successful
4715: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4733: FETCH check_st_fee_csr INTO l_del_fee_line_id;
4734: CLOSE check_st_fee_csr;
4735:
4736: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4737: 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);
4738: END IF;
4739:
4740: IF l_del_fee_line_id IS NOT NULL THEN
4741:
4752: p_fee_types_rec => l_del_fee_types_rec
4753: );
4754:
4755: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4756: 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 );
4757: END IF;
4758:
4759: -- Check if the call was successful
4760: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4764: END IF;
4765: -- R12B Authoring OA Migration
4766:
4767: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4768: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: END ');
4769: END IF;
4770:
4771: Exception
4772: when pre_book_exception then
4811: booking_exception exception;
4812:
4813: BEGIN
4814:
4815: okl_debug_pub.logmessage('OKL: process_booking_tax : START' );
4816:
4817: IF (G_DEBUG_ENABLED = 'Y')
4818: THEN
4819: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE
4815: okl_debug_pub.logmessage('OKL: process_booking_tax : START' );
4816:
4817: IF (G_DEBUG_ENABLED = 'Y')
4818: THEN
4819: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE
4820: , FND_LOG.LEVEL_STATEMENT);
4821: END IF;
4822:
4823: x_return_status := okl_Api.G_RET_STS_SUCCESS;
4823: x_return_status := okl_Api.G_RET_STS_SUCCESS;
4824:
4825: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4826: THEN
4827: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
4828: ,G_MODULE
4829: ,'OKL: Booking Procedure: START');
4830: END IF;
4831:
4833: -- user does not create Sales Tax T and C
4834:
4835: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4836: THEN
4837: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
4838: ,G_MODULE
4839: ,'OKL: Booking Procedure: before rule_info_csr');
4840: END IF;
4841:
4854:
4855: -- Call Tax API
4856: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4857: THEN
4858: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
4859: , G_MODULE
4860: ,'OKL: Booking Procedure: before calling tax API');
4861: END IF;
4862:
4870: p_source_trx_name => p_transaction_type,
4871: p_source_table => l_source_table,
4872: p_tax_call_type => 'ACTUAL' );
4873:
4874: okl_debug_pub.logmessage('OKL: process_booking_tax : OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax: ACTUAL : '|| x_return_status );
4875:
4876: -- Check if the tax call was successful
4877: IF (x_return_status <> okl_Api.G_RET_STS_SUCCESS)
4878: THEN
4881:
4882: --Bug# 6619311: Create upfront tax accounting for all tax treatments
4883: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4884: THEN
4885: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
4886: ,G_MODULE
4887: ,'OKL: Booking Procedure: Calling create_upfront_tax_accounting ');
4888: END IF;
4889:
4929: THEN
4930:
4931: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4932: THEN
4933: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
4934: , G_MODULE
4935: ,'OKL: Booking Procedure: before contract_csr');
4936: END IF;
4937:
4976: l_fee_type := NULL;
4977:
4978: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4979: THEN
4980: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
4981: , G_MODULE
4982: ,'OKL: Booking Procedure: verifying if multiple fee treatments are selected ');
4983: END IF;
4984:
5019: -- R12B eBtax changes
5020: IF (l_billed_assets <> 0 OR l_contract_bill_tax <> 0)
5021: THEN
5022: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5023: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
5024: , G_MODULE
5025: ,'OKL: Booking Procedure: before contract_csr');
5026: END IF;
5027: OPEN contract_csr;
5034: END IF;
5035: CLOSE contract_csr;
5036:
5037: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5038: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Booking Procedure: before OKL_BILL_UPFRONT_TAX_PVT ');
5039: END IF;
5040:
5041: OKL_BILL_UPFRONT_TAX_PVT.Bill_Upfront_Tax(
5042: p_api_version => p_api_version,
5055: END IF;
5056:
5057: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
5058: THEN
5059: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
5060: , G_MODULE
5061: ,'OKL: Booking Procedure: END');
5062: END IF;
5063:
5060: , G_MODULE
5061: ,'OKL: Booking Procedure: END');
5062: END IF;
5063:
5064: okl_debug_pub.logmessage('OKL: process_booking_tax : END' );
5065:
5066: Exception
5067: when booking_exception then
5068: x_return_status := OKL_API.G_RET_STS_ERROR;
5103: rebook_exception EXCEPTION;
5104:
5105: BEGIN
5106:
5107: okl_debug_pub.logmessage('OKL: process_rebook_tax : START' );
5108:
5109: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5110:
5111: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5108:
5109: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5110:
5111: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5112: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
5113: ,G_MODULE
5114: ,'OKL: Rebook Procedure: START');
5115: END IF;
5116:
5142: p_source_trx_name => p_transaction_type,
5143: p_source_table => g_source_table,
5144: p_tax_call_type => 'ACTUAL' );
5145:
5146: okl_debug_pub.logmessage('OKL: process_rebook_tax : OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax: ACTUAL : '|| x_return_status );
5147:
5148: -- Check if the tax call was successful
5149: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
5150: THEN
5153:
5154: --Bug# 6619311: Create upfront tax accounting for all tax treatments
5155: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
5156: THEN
5157: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
5158: ,G_MODULE
5159: ,'OKL: Booking Procedure: Calling create_upfront_tax_accounting ');
5160: END IF;
5161:
5227: l_multiple_fee_type := Okl_Api.G_FALSE;
5228: l_fee_type := NULL;
5229:
5230: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5231: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
5232: ,G_MODULE
5233: ,'OKL: Rebook Procedure: verifying if multiple fee treatments are selected ');
5234: END IF;
5235: FOR i in check_feetype_csr (p_contract_id)
5265: -- R12B eBtax changes
5266: IF (l_billed_assets <> 0 OR l_contract_bill_tax <> 0) THEN
5267:
5268: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5269: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Rebook Procedure: before OKL_BILL_UPFRONT_TAX_PVT ');
5270: END IF;
5271:
5272: OKL_BILL_UPFRONT_TAX_PVT.Bill_Upfront_Tax(
5273: p_api_version => p_api_version,
5288: END IF; -- rule_info_csr_rec.rule_information1 = 'BILLED'
5289:
5290: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
5291: THEN
5292: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
5293: ,G_MODULE
5294: ,'OKL: rebook Procedure: END');
5295: END IF;
5296:
5293: ,G_MODULE
5294: ,'OKL: rebook Procedure: END');
5295: END IF;
5296:
5297: okl_debug_pub.logmessage('OKL: process_rebook_tax : END' );
5298:
5299: Exception
5300: when rebook_exception then
5301: x_return_status := OKL_API.G_RET_STS_ERROR;
5410: l_release_asset_yn VARCHAR2(1);
5411:
5412: BEGIN
5413:
5414: --okl_debug_pub.logmessage('OKL: process_sales_tax : START');
5415:
5416: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5417: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'okl_la_sales_tax_pvt.process_sales_tax.', 'Begin(+)');
5418: END IF;
5417: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'okl_la_sales_tax_pvt.process_sales_tax.', 'Begin(+)');
5418: END IF;
5419:
5420: /* IF (G_DEBUG_ENABLED = 'Y') THEN
5421: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5422: END IF;
5423: */
5424: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5425:
5448: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '1..');
5449: END IF;
5450:
5451: /* IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5452: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5453: G_MODULE,
5454: 'OKL: Process Sales Tax : START ');
5455: END IF;
5456: */
5527:
5528: IF (p_transaction_type = 'Pre-Booking') THEN
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 : before populate_transaction ');
5534: END IF;
5535: */
5561: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5562: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '7..' || x_return_status);
5563: END IF;
5564:
5565: -- okl_debug_pub.logmessage('OKL: process_sales_tax : populate_transaction : '|| x_return_status );
5566:
5567: -- check transaction creation was successful
5568: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5569: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5584: p_transaction_type = 'Pre-Rebook') -- Bug 4769822
5585: THEN
5586:
5587: /* IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5588: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5589: G_MODULE,
5590: 'OKL: Process Sales Tax : '||p_transaction_type||' before calculate_sales_tax ');
5591: END IF;
5592: */
5629: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5630: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '10..' || x_return_status);
5631: END IF;
5632:
5633: -- okl_debug_pub.logmessage('OKL: process_sales_tax : OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax: ESTIMATED : '|| x_return_status );
5634:
5635: /* IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5636: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5637: G_MODULE,
5632:
5633: -- okl_debug_pub.logmessage('OKL: process_sales_tax : OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax: ESTIMATED : '|| x_return_status );
5634:
5635: /* IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5636: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5637: G_MODULE,
5638: 'OKL: Process Sales Tax...3'|| x_return_status);
5639: END IF;
5640: */
5645: raise OKL_API.G_EXCEPTION_ERROR;
5646: End If;
5647:
5648: /* IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5649: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5650: G_MODULE,
5651: 'OKL: Process Sales Tax : '||p_transaction_type||' before process_prebook_tax ');
5652: END IF;
5653: */
5670: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5671: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '12..' || x_return_status);
5672: END IF;
5673:
5674: --okl_debug_pub.logmessage('OKL: process_sales_tax : process_prebook_tax : '|| x_return_status );
5675:
5676: /*IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5677: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5678: G_MODULE,
5673:
5674: --okl_debug_pub.logmessage('OKL: process_sales_tax : process_prebook_tax : '|| x_return_status );
5675:
5676: /*IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5677: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5678: G_MODULE,
5679: 'OKL: Process Sales Tax : '||p_transaction_type||
5680: ' after process_prebook_tax: x_return_status' ||x_return_status);
5681: END IF;
5700: -- Process Booking Activation Tax Call
5701: If (p_transaction_type = 'Booking') THEN
5702:
5703: /* IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5704: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Process Sales Tax : '||p_transaction_type||' before process_booking_tax ');
5705: END IF;
5706: */
5707: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5708: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '14..');
5721: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5722: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '15..' || x_return_status);
5723: END IF;
5724:
5725: -- okl_debug_pub.logmessage('OKL: process_sales_tax : process_booking_tax : '|| x_return_status );
5726: -- Check if the call was successful
5727: -- Bug 5002042
5728: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5729: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5742: IF (p_transaction_type = 'Rebook') THEN
5743:
5744:
5745: /* IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5746: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Process Sales Tax : '||p_transaction_type||' before process_rebook_tax ');
5747: END IF;
5748: */
5749: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5750: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '17..');
5769: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5770: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '18..' || x_return_status);
5771: END IF;
5772:
5773: -- okl_debug_pub.logmessage('OKL: process_sales_tax : process_rebook_tax : '|| x_return_status );
5774: END IF;
5775:
5776: End If; -- Rebook
5777:
5794: -- R12 Change - Start
5795:
5796:
5797: /* IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5798: OKL_DEBUG_PUB.LOG_DEBUG( FND_LOG.LEVEL_STATEMENT
5799: , G_MODULE
5800: ,'OKL: Process Sales Tax : Tax schedule csr ');
5801: END IF;
5802: */
5833: )
5834: THEN
5835:
5836: /* IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5837: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5838: G_MODULE,
5839: 'OKL: Process Sales Tax : START tax schedule ');
5840: END IF;
5841: */
5846: OPEN c_currency_code(p_contract_id);
5847: FETCH c_currency_code INTO l_start_date, l_end_date, l_currency_code;
5848: CLOSE c_currency_code;
5849: /* IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5850: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5851: G_MODULE,
5852: 'OKL: Process Sales Tax : after currency code csr ');
5853: END IF;
5854: */
5864: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '24..');
5865: END IF;
5866:
5867: /* IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5868: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5869: G_MODULE,
5870: 'OKL: Process Sales Tax : after try type csr');
5871: END IF;
5872: */
5882: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '25..');
5883: END IF;
5884:
5885: /* IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5886: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5887: G_MODULE,
5888: 'OKL: Process Sales Tax : before creating trx requests');
5889: END IF;
5890: */
5900: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5901: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '26..' || x_return_status);
5902: END IF;
5903:
5904: --- okl_debug_pub.logmessage('OKL: process_sales_tax : okl_trx_requests_pub.insert_trx_requests : '|| x_return_status );
5905:
5906: /* IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5907: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5908: G_MODULE,
5903:
5904: --- okl_debug_pub.logmessage('OKL: process_sales_tax : okl_trx_requests_pub.insert_trx_requests : '|| x_return_status );
5905:
5906: /* IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5907: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5908: G_MODULE,
5909: 'OKL: Process Sales Tax : after creating trx requests: status-> '|| x_return_status);
5910: END IF;
5911: */
5915: raise OKL_API.G_EXCEPTION_ERROR;
5916: End If;
5917:
5918: /* IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5919: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5920: G_MODULE,
5921: 'OKL: Process Sales Tax : before OKL_PROCESS_SALES_TAX_PUB');
5922: END IF;
5923: */
5939: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5940: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '28..' || x_return_status);
5941: END IF;
5942:
5943: -- okl_debug_pub.logmessage('OKL: process_sales_tax : after creating tax schedule : '|| x_return_status );
5944: /*
5945: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5946: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5947: G_MODULE,'OKL: Process Sales Tax : after OKL_PROCESS_SALES_TAX_PUB: status-> '|| x_return_status);
5942:
5943: -- okl_debug_pub.logmessage('OKL: process_sales_tax : after creating tax schedule : '|| x_return_status );
5944: /*
5945: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5946: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5947: G_MODULE,'OKL: Process Sales Tax : after OKL_PROCESS_SALES_TAX_PUB: status-> '|| x_return_status);
5948: END IF;
5949: */
5950: -- Check if the tax call was successful
5958: -- is removed from this location. It is not required as per IA.
5959: -- If required, take it from OKL.H code line
5960:
5961: /* IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5962: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5963: G_MODULE,
5964: 'OKL: Process Sales Tax : END tax schedule ');
5965: END IF;
5966: */
5976: OKC_API.END_ACTIVITY (x_msg_count => x_msg_count,
5977: x_msg_data => x_msg_data);
5978:
5979: /* IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5980: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Process Sales Tax : END ');
5981: END IF;
5982: */
5983: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5984: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'okl_la_sales_tax_pvt.process_sales_tax.', '30..');
5983: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5984: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'okl_la_sales_tax_pvt.process_sales_tax.', '30..');
5985: END IF;
5986:
5987: -- okl_debug_pub.logmessage('OKL: process_sales_tax : END');
5988:
5989: Exception
5990: when OKL_API.G_EXCEPTION_ERROR then
5991: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6295: --23-Jun-10 sechawla 9841386 : end
6296:
6297: BEGIN
6298: IF (G_DEBUG_ENABLED = 'Y') THEN
6299: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6300: END IF;
6301: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6302:
6303: --OPEN l_hdr_csr;
6409: p_app_name => G_APP_NAME,
6410: p_msg_name => 'OKL_QA_ST_HEADER_TAX');
6411: x_return_status := OKL_API.G_RET_STS_ERROR;
6412: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6413: 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.');
6414: END IF;
6415: END IF;
6416:
6417:
6415: END IF;
6416:
6417:
6418: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6419: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info1'||l_hdrrl_rec.RULE_INFORMATION1);
6420: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info2'||l_hdrrl_rec.RULE_INFORMATION2);
6421: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info3'||l_hdrrl_rec.RULE_INFORMATION3);
6422: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info4'||l_hdrrl_rec.RULE_INFORMATION4);
6423: END IF;
6416:
6417:
6418: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6419: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info1'||l_hdrrl_rec.RULE_INFORMATION1);
6420: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info2'||l_hdrrl_rec.RULE_INFORMATION2);
6421: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info3'||l_hdrrl_rec.RULE_INFORMATION3);
6422: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info4'||l_hdrrl_rec.RULE_INFORMATION4);
6423: END IF;
6424:
6417:
6418: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6419: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info1'||l_hdrrl_rec.RULE_INFORMATION1);
6420: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info2'||l_hdrrl_rec.RULE_INFORMATION2);
6421: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info3'||l_hdrrl_rec.RULE_INFORMATION3);
6422: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info4'||l_hdrrl_rec.RULE_INFORMATION4);
6423: END IF;
6424:
6425: --IF (NOT l_exists OR l_tax_treatment IS NULL) THEN
6418: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6419: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info1'||l_hdrrl_rec.RULE_INFORMATION1);
6420: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info2'||l_hdrrl_rec.RULE_INFORMATION2);
6421: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info3'||l_hdrrl_rec.RULE_INFORMATION3);
6422: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rule_info4'||l_hdrrl_rec.RULE_INFORMATION4);
6423: END IF;
6424:
6425: --IF (NOT l_exists OR l_tax_treatment IS NULL) THEN
6426: IF (NOT l_exists ) THEN
6428: p_app_name => G_APP_NAME,
6429: p_msg_name => 'OKL_QA_ST_MISSING');
6430: x_return_status := OKL_API.G_RET_STS_ERROR;
6431: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6432: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_MISSING');
6433: END IF;
6434: END IF;
6435:
6436:
6445: p_token1 => 'UPFRONT_TAX',
6446: p_token1_value => l_fnd_meaning);
6447: x_return_status := OKL_API.G_RET_STS_ERROR;
6448: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6449: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_STREAM_MISSING '||'Please enter '
6450: ||l_fnd_meaning ||' stream type on Taxes (Sales Tax Processing)'
6451: ||' terms and condition for the contract.');
6452: END IF;
6453: END IF;
6462: p_token1 => 'UPFRONT_TAX',
6463: p_token1_value => l_fnd_meaning);
6464: x_return_status := OKL_API.G_RET_STS_ERROR;
6465: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6466: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_STREAM_MISSING '||'Please enter '
6467: ||l_fnd_meaning ||' stream type on Taxes (Sales Tax Processing)'
6468: ||' terms and condition for the contract.');
6469: END IF;
6470: END IF;
6479: p_token1 => 'UPFRONT_TAX',
6480: p_token1_value => l_fnd_meaning);
6481: x_return_status := OKL_API.G_RET_STS_ERROR;
6482: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6483: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_STREAM_MISSING '||'Please enter '
6484: ||l_fnd_meaning ||' stream type on Taxes (Sales Tax Processing)'
6485: ||' terms and condition for the contract.');
6486: END IF;
6487: END IF;
6516: p_token1 => 'FEE_TYPE',
6517: p_token1_value => l_fee_type_meaning);
6518: x_return_status := OKL_API.G_RET_STS_ERROR;
6519: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6520: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_FEE_ZERO '||'The sales tax fee line (type='
6521: ||l_fee_type_meaning||') amount can not be zero or negative.');
6522: END IF;
6523: END IF;
6524:
6535: END IF;
6536: l_no_link_assets := l_no_link_assets + 1;
6537: END LOOP; --l_st_fee_link_asset_rec
6538: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6539: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_st_fee_rec.amount || ':' || l_amt_link_asset);
6540: END IF;
6541: IF (l_st_fee_rec.amount <> l_amt_link_asset) THEN
6542: OKL_API.set_message(
6543: p_app_name => G_APP_NAME,
6545: p_token1 => 'LINE_TYPE',
6546: p_token1_value => l_fee_type_meaning);
6547: x_return_status := OKL_API.G_RET_STS_ERROR;
6548: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6549: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: OKL_QA_ST_FEE_ASSET_AMT '||'The sales tax Fee line ('
6550: ||l_fee_type_meaning||') amount must be equal to the total amount on corresponding linked Fee asset(s).');
6551: END IF;
6552: END IF;
6553: END IF;
6566: p_app_name => G_APP_NAME,
6567: p_msg_name => 'OKL_QA_ST_FEE_GT1');
6568: x_return_status := OKL_API.G_RET_STS_ERROR;
6569: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6570: 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.');
6571: END IF;
6572: END IF;
6573:
6574:
6597: OPEN l_asset_tax_rule_csr(l_asset_rec.Id);
6598: FETCH l_asset_tax_rule_csr INTO l_asset_tax_rule_rec;
6599: CLOSE l_asset_tax_rule_csr;
6600: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6601: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_asset_rec.id: '||l_asset_rec.id || ' ' || l_asset_rec.name);
6602: END IF;
6603: l_line_asset_upfront_tax := nvl(l_asset_tax_rule_rec.RULE_INFORMATION11,'XXX');
6604:
6605: IF (l_line_asset_upfront_tax <> 'BILLED' AND l_line_asset_upfront_tax <> 'XXX') THEN
6608:
6609: --raise error capitalized and finance mix not allowed. For sales tax purposes all non billed asset
6610: --lines should be either capitalized or financed throughout.
6611: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6612: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_line_asset_upfront_tax:'||l_line_asset_upfront_tax);
6613: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_prev_line_asset_upfront_tax:'||l_prev_line_asset_upfront_tax);
6614: END IF;
6615: IF (l_line_asset_upfront_tax IN ('FINANCE','CAPITALIZE')
6616: AND l_line_asset_upfront_tax <> l_prev_line_asset_upfront_tax) THEN
6609: --raise error capitalized and finance mix not allowed. For sales tax purposes all non billed asset
6610: --lines should be either capitalized or financed throughout.
6611: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6612: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_line_asset_upfront_tax:'||l_line_asset_upfront_tax);
6613: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_prev_line_asset_upfront_tax:'||l_prev_line_asset_upfront_tax);
6614: END IF;
6615: IF (l_line_asset_upfront_tax IN ('FINANCE','CAPITALIZE')
6616: AND l_line_asset_upfront_tax <> l_prev_line_asset_upfront_tax) THEN
6617: IF (l_prev_line_asset_upfront_tax <> 'XXX') THEN
6619: p_app_name => G_APP_NAME,
6620: p_msg_name => 'OKL_QA_ST_ALL_CAP_OR_FIN');
6621: x_return_status := OKL_API.G_RET_STS_ERROR;
6622: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6623: 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.');
6624: END IF;
6625: EXIT;
6626: --RAISE G_EXCEPTION_HALT_VALIDATION;
6627: END IF;
6650: p_token3 => 'ASSET_NUMBER',
6651: p_token3_value => l_asset_rec.name);
6652: x_return_status := OKL_API.G_RET_STS_ERROR;
6653: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6654: 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 ' ||
6655: l_asset_rec.name||' is different from asset upfront tax at Contract header.' );
6656: END IF;
6657: null;
6658: END IF;
6694: p_token2 => 'ASSET_NUMBER',
6695: p_token2_value => l_asset_rec.name);
6696: x_return_status := OKL_API.G_RET_STS_ERROR;
6697: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6698: 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 = '
6699: ||l_asset_rec.name||'. Please remove this asset association from Sales Tax Fee line ('||l_tax_fee_meaning||').');
6700: END IF;
6701: null;
6702: END IF;
6708: END IF;
6709:
6710: IF ( (l_line_asset_upfront_tax IN ('FINANCE','CAPITALIZE') ) AND (NOT l_linked_asset_exists ) AND l_fee_line_found)THEN
6711: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6712: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Here00001' ||l_line_asset_upfront_tax );
6713: END IF;
6714: OPEN fnd_csr('OKL_FEE_TYPES',l_st_fee_code);
6715: FETCH fnd_csr INTO l_fnd_rec;
6716: CLOSE fnd_csr;
6723: p_token2 => 'LINE_TYPE',
6724: p_token2_value => l_tax_fee_meaning );
6725: x_return_status := OKL_API.G_RET_STS_ERROR;
6726: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6727: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: OKL_QA_ST_FEE_ASSET_MISSING '||'The sales tax Fee line ('
6728: ||l_tax_fee_meaning ||') does not have corresponding linked asset('||l_asset_rec.name||') defined.');
6729: END IF;
6730: END IF;
6731: */
6749: p_app_name => G_APP_NAME,
6750: p_msg_name => 'OKL_QA_ST_NO_FEE');
6751: x_return_status := OKL_API.G_RET_STS_ERROR;
6752: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6753: 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');
6754: END IF;
6755: END IF;
6756:
6757: --Bug#4699379 ramurt