[Home] [Help]
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 (
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;
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;
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
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
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:
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
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:
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,
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:
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:
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:
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:
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:
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:
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:
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:
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:
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
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;
4824:
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:
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:
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:
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:
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;
5419:
5420: /* IF (G_DEBUG_ENABLED = 'Y') THEN
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;
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);
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:
5431: P_api_version => p_api_version,
5432: p_api_type => G_API_TYPE,
5433: x_return_status => x_return_status);
5434:
5435: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5436: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '0..');
5437: END IF;
5438:
5439:
5432: p_api_type => G_API_TYPE,
5433: x_return_status => x_return_status);
5434:
5435: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5436: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '0..');
5437: END IF;
5438:
5439:
5440: -- check if activity started successfully
5443: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5444: raise OKL_API.G_EXCEPTION_ERROR;
5445: End If;
5446:
5447: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
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
5444: raise OKL_API.G_EXCEPTION_ERROR;
5445: End If;
5446:
5447: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
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,
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: */
5454: 'OKL: Process Sales Tax : START ');
5455: END IF;
5456: */
5457:
5458: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5459: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '2..');
5460: END IF;
5461:
5462: OPEN sys_param_csr;
5455: END IF;
5456: */
5457:
5458: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5459: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '2..');
5460: END IF;
5461:
5462: OPEN sys_param_csr;
5463: FETCH sys_param_csr INTO l_tax_upfront_yn;
5467: RAISE Okl_Api.G_EXCEPTION_ERROR;
5468: END IF;
5469: CLOSE sys_param_csr;
5470:
5471: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5472: FND_LOG.STRING
5473: (FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '3..' || l_tax_upfront_yn);
5474: END IF;
5475:
5468: END IF;
5469: CLOSE sys_param_csr;
5470:
5471: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5472: FND_LOG.STRING
5473: (FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '3..' || l_tax_upfront_yn);
5474: END IF;
5475:
5476:
5469: CLOSE sys_param_csr;
5470:
5471: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5472: FND_LOG.STRING
5473: (FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '3..' || l_tax_upfront_yn);
5474: END IF;
5475:
5476:
5477: -- First off check upfront tax is enabled, if not
5499: -- Bug# 15992711 : End of modifications
5500: CLOSE l_chk_rel_ast_csr;
5501:
5502:
5503: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5504: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '4..' || l_release_asset_yn);
5505: END IF;
5506:
5507: -- Bug# 15992711 : If new asset count is zero, then do not calculate upfront tax for contract
5500: CLOSE l_chk_rel_ast_csr;
5501:
5502:
5503: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5504: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '4..' || l_release_asset_yn);
5505: END IF;
5506:
5507: -- Bug# 15992711 : If new asset count is zero, then do not calculate upfront tax for contract
5508: --IF (l_release_asset_yn = 'Y') THEN
5520: -- For Pre-Rebook ebTax calls, we will reuse Rebook
5521: -- TRX. Remove Pre-Rebook reference in the following
5522: -- Code segment
5523:
5524: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5525: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '5..' || p_transaction_type);
5526: END IF;
5527:
5528: IF (p_transaction_type = 'Pre-Booking') THEN
5521: -- TRX. Remove Pre-Rebook reference in the following
5522: -- Code segment
5523:
5524: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5525: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '5..' || p_transaction_type);
5526: END IF;
5527:
5528: IF (p_transaction_type = 'Pre-Booking') THEN
5529:
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: */
5536: -- R12 Change - START
5537:
5538: l_contract_id := p_contract_id;
5539:
5540: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5541: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '6..');
5542: END IF;
5543:
5544: -- create booking transaction at 'Validation' time
5537:
5538: l_contract_id := p_contract_id;
5539:
5540: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5541: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '6..');
5542: END IF;
5543:
5544: -- create booking transaction at 'Validation' time
5545: -- instead of 'Pre-Booking' transaction
5557: x_return_status => x_return_status,
5558: x_msg_count => x_msg_count,
5559: x_msg_data => x_msg_data);
5560:
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 );
5558: x_msg_count => x_msg_count,
5559: x_msg_data => x_msg_data);
5560:
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:
5573:
5574: -- R12 Change - END
5575: End If;
5576:
5577: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5578: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '8..');
5579: END IF;
5580:
5581: -- Process Pre Booking Tax Call
5574: -- R12 Change - END
5575: End If;
5576:
5577: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5578: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '8..');
5579: END IF;
5580:
5581: -- Process Pre Booking Tax Call
5582: If (p_transaction_type = 'Pre-Booking'
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: */
5602: l_contract_id := p_rbk_contract_id;
5603: l_transaction_type := 'Rebook';
5604: End If;
5605:
5606: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5607: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '9..');
5608: END IF;
5609:
5610: -- R12 Change - END
5603: l_transaction_type := 'Rebook';
5604: End If;
5605:
5606: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5607: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '9..');
5608: END IF;
5609:
5610: -- R12 Change - END
5611:
5625: p_source_trx_name => l_transaction_type, -- R12 Change
5626: p_source_table => l_source_table,
5627: p_tax_call_type => 'ESTIMATED');
5628:
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 );
5626: p_source_table => l_source_table,
5627: p_tax_call_type => 'ESTIMATED');
5628:
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:
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: */
5650: G_MODULE,
5651: 'OKL: Process Sales Tax : '||p_transaction_type||' before process_prebook_tax ');
5652: END IF;
5653: */
5654: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5655: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '11..');
5656: END IF;
5657:
5658: process_prebook_tax(
5651: 'OKL: Process Sales Tax : '||p_transaction_type||' before process_prebook_tax ');
5652: END IF;
5653: */
5654: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5655: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '11..');
5656: END IF;
5657:
5658: process_prebook_tax(
5659: p_api_version => p_api_version,
5666: x_msg_count => x_msg_count,
5667: x_msg_data => x_msg_data
5668: );
5669:
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 );
5667: x_msg_data => x_msg_data
5668: );
5669:
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:
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;
5692: END IF; -- ER# 9327076
5693:
5694: End If; -- Prebook
5695:
5696: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5697: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '13..');
5698: END IF;
5699:
5700: -- Process Booking Activation Tax Call
5693:
5694: End If; -- Prebook
5695:
5696: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5697: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '13..');
5698: END IF;
5699:
5700: -- Process Booking Activation Tax Call
5701: If (p_transaction_type = 'Booking') THEN
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..');
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..');
5709: END IF;
5710:
5711: process_booking_tax(
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..');
5709: END IF;
5710:
5711: process_booking_tax(
5712: p_api_version => p_api_version,
5717: x_return_status => x_return_status,
5718: x_msg_count => x_msg_count,
5719: x_msg_data => x_msg_data);
5720:
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 );
5718: x_msg_count => x_msg_count,
5719: x_msg_data => x_msg_data);
5720:
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
5732: End If;
5733:
5734: End If; -- Booking
5735:
5736: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5737: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '16..');
5738: END IF;
5739:
5740:
5733:
5734: End If; -- Booking
5735:
5736: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5737: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '16..');
5738: END IF;
5739:
5740:
5741: -- Process Rebook Activation Tax Call
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..');
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..');
5751: END IF;
5752:
5753: --ER# 9327076
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..');
5751: END IF;
5752:
5753: --ER# 9327076
5754: IF (check_prior_upfront_tax(p_contract_id)
5765: x_return_status => x_return_status,
5766: x_msg_count => x_msg_count,
5767: x_msg_data => x_msg_data);
5768:
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 );
5766: x_msg_count => x_msg_count,
5767: x_msg_data => x_msg_data);
5768:
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;
5786:
5787: END IF; -- Bug 6155565
5788: END IF;
5789:
5790: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5791: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '19..');
5792: END IF;
5793:
5794: -- R12 Change - Start
5787: END IF; -- Bug 6155565
5788: END IF;
5789:
5790: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5791: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '19..');
5792: END IF;
5793:
5794: -- R12 Change - Start
5795:
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: */
5803: OPEN rule_info_csr(p_contract_id);
5804: FETCH rule_info_csr INTO rule_info_csr_rec;
5805: IF rule_info_csr%NOTFOUND THEN
5806:
5807: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5808: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '20..');
5809: END IF;
5810:
5811: -- R12B Authoring OA Migration - Corrected error message
5804: FETCH rule_info_csr INTO rule_info_csr_rec;
5805: IF rule_info_csr%NOTFOUND THEN
5806:
5807: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5808: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '20..');
5809: END IF;
5810:
5811: -- R12B Authoring OA Migration - Corrected error message
5812: OKL_API.set_message( p_app_name => G_APP_NAME,
5815: RAISE Okl_Api.G_EXCEPTION_ERROR;
5816: END IF;
5817: CLOSE rule_info_csr;
5818:
5819: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5820: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '21..');
5821: END IF;
5822:
5823: -- R12 Change - End
5816: END IF;
5817: CLOSE rule_info_csr;
5818:
5819: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5820: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '21..');
5821: END IF;
5822:
5823: -- R12 Change - End
5824:
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: */
5838: G_MODULE,
5839: 'OKL: Process Sales Tax : START tax schedule ');
5840: END IF;
5841: */
5842: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5843: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '22..');
5844: END IF;
5845:
5846: OPEN c_currency_code(p_contract_id);
5839: 'OKL: Process Sales Tax : START tax schedule ');
5840: END IF;
5841: */
5842: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5843: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '22..');
5844: END IF;
5845:
5846: OPEN c_currency_code(p_contract_id);
5847: FETCH c_currency_code INTO l_start_date, l_end_date, l_currency_code;
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: */
5851: G_MODULE,
5852: 'OKL: Process Sales Tax : after currency code csr ');
5853: END IF;
5854: */
5855: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5856: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '23..');
5857: END IF;
5858:
5859: OPEN c_try_type(l_try_name);
5852: 'OKL: Process Sales Tax : after currency code csr ');
5853: END IF;
5854: */
5855: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5856: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '23..');
5857: END IF;
5858:
5859: OPEN c_try_type(l_try_name);
5860: FETCH c_try_type INTO l_try_id;
5859: OPEN c_try_type(l_try_name);
5860: FETCH c_try_type INTO l_try_id;
5861: CLOSE c_try_type;
5862:
5863: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
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
5860: FETCH c_try_type INTO l_try_id;
5861: CLOSE c_try_type;
5862:
5863: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
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,
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: */
5877: l_trqv_tbl(1).start_date := l_start_date;
5878: l_trqv_tbl(1).end_date := l_end_date;
5879: l_trqv_tbl(1).try_id := l_try_id;
5880:
5881: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
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
5878: l_trqv_tbl(1).end_date := l_end_date;
5879: l_trqv_tbl(1).try_id := l_try_id;
5880:
5881: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
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,
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: */
5896: x_msg_data => x_msg_data,
5897: p_trqv_tbl => l_trqv_tbl,
5898: x_trqv_tbl => x_trqv_tbl);
5899:
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 );
5897: p_trqv_tbl => l_trqv_tbl,
5898: x_trqv_tbl => x_trqv_tbl);
5899:
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:
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: */
5920: G_MODULE,
5921: 'OKL: Process Sales Tax : before OKL_PROCESS_SALES_TAX_PUB');
5922: END IF;
5923: */
5924: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5925: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '27..');
5926: END IF;
5927:
5928: OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax(
5921: 'OKL: Process Sales Tax : before OKL_PROCESS_SALES_TAX_PUB');
5922: END IF;
5923: */
5924: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5925: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '27..');
5926: END IF;
5927:
5928: OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax(
5929: p_api_version => p_api_version,
5935: p_source_trx_name => l_try_name,
5936: p_source_table => 'OKL_TRX_REQUESTS',
5937: p_tax_call_type => NULL);
5938:
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 );
5936: p_source_table => 'OKL_TRX_REQUESTS',
5937: p_tax_call_type => NULL);
5938:
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: /*
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: */
5966: */
5967:
5968: End If; -- Tax Schedule
5969:
5970: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5971: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '29..');
5972: END IF;
5973:
5974: -- Bug 4748910 - END
5967:
5968: End If; -- Tax Schedule
5969:
5970: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5971: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '29..');
5972: END IF;
5973:
5974: -- Bug 4748910 - END
5975:
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..');
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..');
5985: END IF;
5986:
5987: -- okl_debug_pub.logmessage('OKL: process_sales_tax : END');
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..');
5985: END IF;
5986:
5987: -- okl_debug_pub.logmessage('OKL: process_sales_tax : END');
5988:
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