1775: p_oie_id IN NUMBER) IS
1776: l_errbuf VARCHAR2(200);
1777: l_retcode NUMBER;
1778: l_api_version CONSTANT NUMBER := 1.0;
1779: l_init_msg_list VARCHAR2(2000) := FND_API.G_TRUE;
1780: l_return_status VARCHAR2(1);
1781: l_msg_count NUMBER;
1782: l_msg_data VARCHAR2(2000);
1783:
1973: END IF;
1974:
1975: --standard api initilization and checks
1976: SAVEPOINT submit_PVT;
1977: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
1978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1979: END IF;
1980: IF FND_API.to_boolean(p_init_msg_list ) THEN
1981: FND_MSG_PUB.initialize;
1974:
1975: --standard api initilization and checks
1976: SAVEPOINT submit_PVT;
1977: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
1978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1979: END IF;
1980: IF FND_API.to_boolean(p_init_msg_list ) THEN
1981: FND_MSG_PUB.initialize;
1982: END IF;
1976: SAVEPOINT submit_PVT;
1977: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
1978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1979: END IF;
1980: IF FND_API.to_boolean(p_init_msg_list ) THEN
1981: FND_MSG_PUB.initialize;
1982: END IF;
1983:
1984: -- Added by MSENGUPT 11/07
2042: LOG_MESSAGES(' ');
2043:
2044: -- End of Added by MSENGUPT 11/07
2045:
2046: x_return_status := FND_API.G_RET_STS_SUCCESS;
2047: l_return_status := FND_API.G_RET_STS_SUCCESS;
2048: retcode := 0; --0 for success, 1 for warning, 2 for error
2049: errbuf := NULL;
2050: l_conc_program := p_conc_program;
2043:
2044: -- End of Added by MSENGUPT 11/07
2045:
2046: x_return_status := FND_API.G_RET_STS_SUCCESS;
2047: l_return_status := FND_API.G_RET_STS_SUCCESS;
2048: retcode := 0; --0 for success, 1 for warning, 2 for error
2049: errbuf := NULL;
2050: l_conc_program := p_conc_program;
2051:
2138: LOG_MESSAGES(' ');
2139:
2140: OKS_RENCPY_PVT.copy_contract_line(
2141: p_api_version => 1.0,
2142: p_init_msg_list => FND_API.G_FALSE,
2143: x_return_status => l_return_status,
2144: x_msg_count => l_msg_count,
2145: x_msg_data => l_msg_data,
2146: p_from_cle_id => cur_get_oper_top_lines.object_cle_id,
2165: END IF;
2166:
2167: --for U:unexpected error stop, for E:regular error, try next line
2168: --for W:warnings or S:Success continue
2169: IF (l_return_status = FND_API.g_ret_sts_success) THEN
2170: NULL; --continue
2171: ELSIF(l_return_status = OKC_API.g_ret_sts_warning) THEN
2172: l_warnings := TRUE;
2173: ELSIF (l_return_status = FND_API.g_ret_sts_error) THEN
2169: IF (l_return_status = FND_API.g_ret_sts_success) THEN
2170: NULL; --continue
2171: ELSIF(l_return_status = OKC_API.g_ret_sts_warning) THEN
2172: l_warnings := TRUE;
2173: ELSIF (l_return_status = FND_API.g_ret_sts_error) THEN
2174: l_errors := TRUE;
2175: ELSE --all others treated as unexpected
2176: x_return_status := l_return_status;
2177: RAISE FND_API.g_exc_unexpected_error;
2173: ELSIF (l_return_status = FND_API.g_ret_sts_error) THEN
2174: l_errors := TRUE;
2175: ELSE --all others treated as unexpected
2176: x_return_status := l_return_status;
2177: RAISE FND_API.g_exc_unexpected_error;
2178: END IF;
2179:
2180: ------------------------------------------------------------------------------
2181: ----DEPENDING on the return status u update the operation lines process flag
2181: ----DEPENDING on the return status u update the operation lines process flag
2182: ------------------------------------------------------------------------------
2183: l_opl_id_tbl(l_opl_id_tbl.count +1) := cur_get_oper_top_lines.id;
2184:
2185: IF (l_return_status = FND_API.g_ret_sts_error) THEN
2186:
2187: log_messages('Topline id='|| cur_get_oper_top_lines.object_cle_id ||' did not get copied');
2188:
2189: l_opl_sub_cle_id_tbl(l_opl_id_tbl.count) := NULL;
2205: LOG_MESSAGES('Calling OKS_BILL_UTIL_PUB.delete_slh_rule');
2206:
2207: OKS_BILL_UTIL_PUB.delete_slh_rule(
2208: p_api_version => 1.0,
2209: p_init_msg_list => FND_API.G_FALSE,
2210: p_cle_id => l_cle_id,
2211: x_return_status => l_return_status,
2212: x_msg_count => l_msg_count,
2213: x_msg_data => l_msg_data);
2218: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2219: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.top_line_billing','After call to OKS_BILL_UTIL_PUB.delete_slh_rule, l_return_status='|| l_return_status);
2220: END IF;
2221:
2222: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2223: RAISE FND_API.g_exc_unexpected_error;
2224: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2225: RAISE FND_API.g_exc_error;
2226: END IF;
2219: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.top_line_billing','After call to OKS_BILL_UTIL_PUB.delete_slh_rule, l_return_status='|| l_return_status);
2220: END IF;
2221:
2222: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2223: RAISE FND_API.g_exc_unexpected_error;
2224: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2225: RAISE FND_API.g_exc_error;
2226: END IF;
2227:
2220: END IF;
2221:
2222: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2223: RAISE FND_API.g_exc_unexpected_error;
2224: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2225: RAISE FND_API.g_exc_error;
2226: END IF;
2227:
2228: s_cle_id := NULL;
2221:
2222: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2223: RAISE FND_API.g_exc_unexpected_error;
2224: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2225: RAISE FND_API.g_exc_error;
2226: END IF;
2227:
2228: s_cle_id := NULL;
2229: l_subject_sub_line_tbl.delete;
2247: LOG_MESSAGES('p_from_cle_id : '||cur_get_oper_sub_lines.object_cle_id);
2248:
2249: OKS_RENCPY_PVT.copy_contract_line(
2250: p_api_version => 1.0,
2251: p_init_msg_list => FND_API.G_FALSE,
2252: x_return_status => l_return_status,
2253: x_msg_count => l_msg_count,
2254: x_msg_data => l_msg_data,
2255: p_from_cle_id => cur_get_oper_sub_lines.object_cle_id,
2269: END IF;
2270:
2271: LOG_MESSAGES('After Calling OKS_RENCPY_PVT.copy_contract_line, l_return_status : '||l_return_status);
2272: LOG_MESSAGES(' ');
2273: IF (l_return_status = FND_API.g_ret_sts_success) THEN
2274: NULL;
2275: ELSIF(l_return_status = OKC_API.g_ret_sts_warning) THEN
2276: l_warnings := TRUE;
2277: ELSIF (l_return_status = FND_API.g_ret_sts_error) THEN
2273: IF (l_return_status = FND_API.g_ret_sts_success) THEN
2274: NULL;
2275: ELSIF(l_return_status = OKC_API.g_ret_sts_warning) THEN
2276: l_warnings := TRUE;
2277: ELSIF (l_return_status = FND_API.g_ret_sts_error) THEN
2278: l_errors := TRUE;
2279: ELSE
2280: x_return_status := l_return_status;
2281: RAISE FND_API.g_exc_unexpected_error;
2277: ELSIF (l_return_status = FND_API.g_ret_sts_error) THEN
2278: l_errors := TRUE;
2279: ELSE
2280: x_return_status := l_return_status;
2281: RAISE FND_API.g_exc_unexpected_error;
2282: END IF;
2283:
2284:
2285: l_opl_id_tbl(l_opl_id_tbl.count +1) := cur_get_oper_sub_lines.id;
2285: l_opl_id_tbl(l_opl_id_tbl.count +1) := cur_get_oper_sub_lines.id;
2286: --------------------------------------------------------------------------
2287: --DEPENDING on the return status u update the operation lines process flag
2288: --------------------------------------------------------------------------
2289: IF (l_return_status = FND_API.g_ret_sts_error) THEN
2290: log_messages(' Subline id='|| cur_get_oper_sub_lines.object_cle_id ||' did not get copied');
2291:
2292: l_opl_sub_cle_id_tbl(l_opl_id_tbl.count) := NULL;
2293: l_opl_status_tbl(l_opl_id_tbl.count) := 'E';
2312: LOG_MESSAGES('Calling OKS_BILL_UTIL_PUB.delete_slh_rule');
2313:
2314: OKS_BILL_UTIL_PUB.delete_slh_rule(
2315: p_api_version => 1.0,
2316: p_init_msg_list => FND_API.G_FALSE,
2317: p_cle_id => s_cle_id,
2318: x_return_status => l_return_status,
2319: x_msg_count => l_msg_count,
2320: x_msg_data => l_msg_data);
2325: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2326: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sub_line_billing','After call to OKS_BILL_UTIL_PUB.delete_slh_rule, l_return_status='|| l_return_status);
2327: END IF;
2328:
2329: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2330: RAISE FND_API.g_exc_unexpected_error;
2331: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2332: RAISE FND_API.g_exc_error;
2333: END IF;
2326: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sub_line_billing','After call to OKS_BILL_UTIL_PUB.delete_slh_rule, l_return_status='|| l_return_status);
2327: END IF;
2328:
2329: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2330: RAISE FND_API.g_exc_unexpected_error;
2331: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2332: RAISE FND_API.g_exc_error;
2333: END IF;
2334:
2327: END IF;
2328:
2329: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2330: RAISE FND_API.g_exc_unexpected_error;
2331: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2332: RAISE FND_API.g_exc_error;
2333: END IF;
2334:
2335: --------------------------------------------------------------------------
2328:
2329: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2330: RAISE FND_API.g_exc_unexpected_error;
2331: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2332: RAISE FND_API.g_exc_error;
2333: END IF;
2334:
2335: --------------------------------------------------------------------------
2336: ---- Update the source subline with the renewal date
2358: /*
2359: * Bug 6114024 Call moved after update to operation lines
2360: OKS_REPRICE_PVT.call_pricing_api(
2361: p_api_version => 1.0,
2362: p_init_msg_list => FND_API.G_FALSE,
2363: x_return_status => l_return_status,
2364: x_msg_count => l_msg_count,
2365: x_msg_data => l_msg_data,
2366: p_subject_chr_id => l_target_header_id,
2374: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2375: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.top_line_repricing','After call to OKS_REPRICE_PVT.call_pricing_api l_return_status='|| l_return_status);
2376: END IF;
2377:
2378: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2379: RAISE FND_API.g_exc_unexpected_error;
2380: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2381: RAISE FND_API.g_exc_error;
2382: END IF;
2375: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.top_line_repricing','After call to OKS_REPRICE_PVT.call_pricing_api l_return_status='|| l_return_status);
2376: END IF;
2377:
2378: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2379: RAISE FND_API.g_exc_unexpected_error;
2380: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2381: RAISE FND_API.g_exc_error;
2382: END IF;
2383:
2376: END IF;
2377:
2378: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2379: RAISE FND_API.g_exc_unexpected_error;
2380: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2381: RAISE FND_API.g_exc_error;
2382: END IF;
2383:
2384: log_messages('Top line id='||l_cle_id||' repriced');
2377:
2378: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2379: RAISE FND_API.g_exc_unexpected_error;
2380: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2381: RAISE FND_API.g_exc_error;
2382: END IF;
2383:
2384: log_messages('Top line id='||l_cle_id||' repriced');
2385: LOG_MESSAGES(' ');
2414: LOG_MESSAGES(' ');
2415:
2416: OKS_RENCPY_PVT.copy_contract_line(
2417: p_api_version => 1.0,
2418: p_init_msg_list => FND_API.G_FALSE,
2419: x_return_status => l_return_status,
2420: x_msg_count => l_msg_count,
2421: x_msg_data => l_msg_data,
2422: p_from_cle_id => cur_get_oper_sub_lines.object_cle_id,
2437: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2438: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sub_line_copy','After call to OKS_RENCPY_PVT.copy_contract_line, l_return_status=' || l_return_status ||' ,x_cle_id=' || s_cle_id);
2439: END IF;
2440:
2441: IF (l_return_status = FND_API.g_ret_sts_success) THEN
2442: NULL;
2443: ELSIF(l_return_status = OKC_API.g_ret_sts_warning) THEN
2444: l_warnings := TRUE;
2445: ELSIF (l_return_status = FND_API.g_ret_sts_error) THEN
2441: IF (l_return_status = FND_API.g_ret_sts_success) THEN
2442: NULL;
2443: ELSIF(l_return_status = OKC_API.g_ret_sts_warning) THEN
2444: l_warnings := TRUE;
2445: ELSIF (l_return_status = FND_API.g_ret_sts_error) THEN
2446: l_errors := TRUE;
2447: ELSE
2448: x_return_status := l_return_status;
2449: RAISE FND_API.g_exc_unexpected_error;
2445: ELSIF (l_return_status = FND_API.g_ret_sts_error) THEN
2446: l_errors := TRUE;
2447: ELSE
2448: x_return_status := l_return_status;
2449: RAISE FND_API.g_exc_unexpected_error;
2450: END IF;
2451:
2452:
2453: l_opl_id_tbl(l_opl_id_tbl.count +1) := cur_get_oper_sub_lines.id;
2453: l_opl_id_tbl(l_opl_id_tbl.count +1) := cur_get_oper_sub_lines.id;
2454: ------------------------------------------------------------------------------
2455: ----DEPENDING on the return status u update the operation lines process flag
2456: ------------------------------------------------------------------------------
2457: IF (l_return_status = FND_API.g_ret_sts_error) THEN
2458: log_messages(' Subline id='|| cur_get_oper_sub_lines.object_cle_id ||' did not get copied');
2459:
2460: l_opl_sub_cle_id_tbl(l_opl_id_tbl.count) := NULL;
2461: l_opl_status_tbl(l_opl_id_tbl.count) := 'E';
2478: LOG_MESSAGES('Calling OKS_BILL_UTIL_PUB.delete_slh_rule');
2479:
2480: OKS_BILL_UTIL_PUB.delete_slh_rule(
2481: p_api_version => 1.0,
2482: p_init_msg_list => FND_API.G_FALSE,
2483: p_cle_id => s_cle_id,
2484: x_return_status => l_return_status,
2485: x_msg_count => l_msg_count,
2486: x_msg_data => l_msg_data);
2491: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2492: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sub_line_billing','After call to OKS_BILL_UTIL_PUB.delete_slh_rule, l_return_status='|| l_return_status);
2493: END IF;
2494:
2495: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2496: RAISE FND_API.g_exc_unexpected_error;
2497: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2498: RAISE FND_API.g_exc_error;
2499: END IF;
2492: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sub_line_billing','After call to OKS_BILL_UTIL_PUB.delete_slh_rule, l_return_status='|| l_return_status);
2493: END IF;
2494:
2495: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2496: RAISE FND_API.g_exc_unexpected_error;
2497: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2498: RAISE FND_API.g_exc_error;
2499: END IF;
2500:
2493: END IF;
2494:
2495: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2496: RAISE FND_API.g_exc_unexpected_error;
2497: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2498: RAISE FND_API.g_exc_error;
2499: END IF;
2500:
2501: l_src_sub_line_id_tbl(l_src_sub_line_id_tbl.count +1) := cur_get_oper_sub_lines.object_cle_id;
2494:
2495: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2496: RAISE FND_API.g_exc_unexpected_error;
2497: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2498: RAISE FND_API.g_exc_error;
2499: END IF;
2500:
2501: l_src_sub_line_id_tbl(l_src_sub_line_id_tbl.count +1) := cur_get_oper_sub_lines.object_cle_id;
2502:
2523: /*
2524: * Bug 6114024 Call moved after update to operation lines
2525: OKS_REPRICE_PVT.call_pricing_api(
2526: p_api_version => 1.0,
2527: p_init_msg_list => FND_API.G_FALSE,
2528: x_return_status => l_return_status,
2529: x_msg_count => l_msg_count,
2530: x_msg_data => l_msg_data,
2531: p_subject_chr_id => l_target_header_id,
2538: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2539: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.top_line_repricing','After call to OKS_REPRICE_PVT.call_pricing_api l_return_status='|| l_return_status);
2540: END IF;
2541:
2542: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2543: RAISE FND_API.g_exc_unexpected_error;
2544: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2545: RAISE FND_API.g_exc_error;
2546: END IF;
2539: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.top_line_repricing','After call to OKS_REPRICE_PVT.call_pricing_api l_return_status='|| l_return_status);
2540: END IF;
2541:
2542: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2543: RAISE FND_API.g_exc_unexpected_error;
2544: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2545: RAISE FND_API.g_exc_error;
2546: END IF;
2547:
2540: END IF;
2541:
2542: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2543: RAISE FND_API.g_exc_unexpected_error;
2544: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2545: RAISE FND_API.g_exc_error;
2546: END IF;
2547:
2548: log_messages('Top line id='||l_target_line_id||' repriced');
2541:
2542: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2543: RAISE FND_API.g_exc_unexpected_error;
2544: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2545: RAISE FND_API.g_exc_error;
2546: END IF;
2547:
2548: log_messages('Top line id='||l_target_line_id||' repriced');
2549:
2597: LOG_MESSAGES('p_subject_sub_line_tbl.count='||l_subject_sub_line_tbl.count);
2598:
2599: OKS_REPRICE_PVT.call_pricing_api(
2600: p_api_version => 1.0,
2601: p_init_msg_list => FND_API.G_FALSE,
2602: x_return_status => l_return_status,
2603: x_msg_count => l_msg_count,
2604: x_msg_data => l_msg_data,
2605: p_subject_chr_id => l_target_header_id,
2616: LOG_MESSAGES('p_subject_sub_line_tbl.count='||l_subject_sub_line_tbl.COUNT);
2617:
2618: OKS_REPRICE_PVT.call_pricing_api(
2619: p_api_version => 1.0,
2620: p_init_msg_list => FND_API.G_FALSE,
2621: x_return_status => l_return_status,
2622: x_msg_count => l_msg_count,
2623: x_msg_data => l_msg_data,
2624: p_subject_chr_id => l_target_header_id,
2733: LOG_MESSAGES('Calling OKS_RENEW_CONTRACT_PVT.update_invoice_text');
2734:
2735: OKS_RENEW_CONTRACT_PVT.update_invoice_text(
2736: p_api_version => 1.0,
2737: p_init_msg_list => FND_API.G_FALSE,
2738: p_commit => FND_API.G_FALSE,
2739: x_return_status => l_return_status,
2740: x_msg_count => l_msg_count,
2741: x_msg_data => l_msg_data,
2734:
2735: OKS_RENEW_CONTRACT_PVT.update_invoice_text(
2736: p_api_version => 1.0,
2737: p_init_msg_list => FND_API.G_FALSE,
2738: p_commit => FND_API.G_FALSE,
2739: x_return_status => l_return_status,
2740: x_msg_count => l_msg_count,
2741: x_msg_data => l_msg_data,
2742: p_chr_id => l_target_header_id);
2747: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2748: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_invoice_text','After call to OKS_RENEW_CONTRACT_PVT.update_invoice_text l_return_status='||l_return_status);
2749: END IF;
2750:
2751: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2752: RAISE FND_API.g_exc_unexpected_error;
2753: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2754: RAISE FND_API.g_exc_error;
2755: END IF;
2748: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_invoice_text','After call to OKS_RENEW_CONTRACT_PVT.update_invoice_text l_return_status='||l_return_status);
2749: END IF;
2750:
2751: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2752: RAISE FND_API.g_exc_unexpected_error;
2753: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2754: RAISE FND_API.g_exc_error;
2755: END IF;
2756: log_messages('Updated invoice text');
2749: END IF;
2750:
2751: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2752: RAISE FND_API.g_exc_unexpected_error;
2753: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2754: RAISE FND_API.g_exc_error;
2755: END IF;
2756: log_messages('Updated invoice text');
2757: LOG_MESSAGES(' ');LOG_MESSAGES(' ');
2750:
2751: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2752: RAISE FND_API.g_exc_unexpected_error;
2753: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2754: RAISE FND_API.g_exc_error;
2755: END IF;
2756: log_messages('Updated invoice text');
2757: LOG_MESSAGES(' ');LOG_MESSAGES(' ');
2758:
2770: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2771: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_contract_amount','after call to update_contract_amount l_return_status='||l_return_status);
2772: END IF;
2773:
2774: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2775: RAISE FND_API.g_exc_unexpected_error;
2776: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2777: RAISE FND_API.g_exc_error;
2778: END IF;
2771: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_contract_amount','after call to update_contract_amount l_return_status='||l_return_status);
2772: END IF;
2773:
2774: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2775: RAISE FND_API.g_exc_unexpected_error;
2776: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2777: RAISE FND_API.g_exc_error;
2778: END IF;
2779: log_messages('Updated contract header and line amounts');
2772: END IF;
2773:
2774: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2775: RAISE FND_API.g_exc_unexpected_error;
2776: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2777: RAISE FND_API.g_exc_error;
2778: END IF;
2779: log_messages('Updated contract header and line amounts');
2780: LOG_MESSAGES(' ');
2773:
2774: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2775: RAISE FND_API.g_exc_unexpected_error;
2776: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2777: RAISE FND_API.g_exc_error;
2778: END IF;
2779: log_messages('Updated contract header and line amounts');
2780: LOG_MESSAGES(' ');
2781:
2789: x_return_status := OKC_API.g_ret_sts_warning;
2790: l_dummy := FND_CONCURRENT.set_completion_status('WARNING', null);
2791: log_messages('Some lines where copied with warnings');
2792: ELSE
2793: x_return_status := FND_API.g_ret_sts_success;
2794: l_dummy := FND_CONCURRENT.set_completion_status('NORMAL', null);
2795: END IF;
2796:
2797: --log all the error and warning messages the CP log file
2812: LOG_MESSAGES(' ');
2813:
2814: EXCEPTION
2815:
2816: WHEN FND_API.g_exc_error THEN
2817: ROLLBACK TO submit_PVT;
2818: x_return_status := FND_API.g_ret_sts_error ;
2819: retcode := 2;
2820: l_dummy := FND_CONCURRENT.set_completion_status('ERROR', null);
2814: EXCEPTION
2815:
2816: WHEN FND_API.g_exc_error THEN
2817: ROLLBACK TO submit_PVT;
2818: x_return_status := FND_API.g_ret_sts_error ;
2819: retcode := 2;
2820: l_dummy := FND_CONCURRENT.set_completion_status('ERROR', null);
2821:
2822: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2841: END LOOP;
2842: END IF;
2843: log_messages('Renewal Consolidation conurrent program - Error');
2844:
2845: WHEN FND_API.g_exc_unexpected_error THEN
2846: ROLLBACK TO submit_PVT;
2847: x_return_status := FND_API.g_ret_sts_unexp_error ;
2848: retcode := 2;
2849: l_dummy := FND_CONCURRENT.set_completion_status('ERROR', null);
2843: log_messages('Renewal Consolidation conurrent program - Error');
2844:
2845: WHEN FND_API.g_exc_unexpected_error THEN
2846: ROLLBACK TO submit_PVT;
2847: x_return_status := FND_API.g_ret_sts_unexp_error ;
2848: retcode := 2;
2849: l_dummy := FND_CONCURRENT.set_completion_status('ERROR', null);
2850:
2851: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2872: log_messages('Renewal Consolidation conurrent program - Unexpected Error');
2873:
2874: WHEN OTHERS THEN
2875: ROLLBACK TO submit_PVT;
2876: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2877: retcode := 2;
2878: l_dummy := FND_CONCURRENT.set_completion_status('ERROR', null);
2879: errbuf := SQLCODE || SQLERRM;
2880:
2942: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.begin','p_header_id='||p_header_id);
2943: END IF;
2944:
2945: SAVEPOINT update_contract_amount_PVT;
2946: x_return_status := FND_API.G_RET_STS_SUCCESS;
2947:
2948: IF p_header_id IS NOT NULL THEN
2949:
2950: l_update_date := sysdate;
3041: EXCEPTION
3042:
3043: WHEN OTHERS THEN
3044: ROLLBACK TO update_contract_amount_PVT;
3045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3046:
3047: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3048: l_error_text := substr (SQLERRM, 1, 240);
3049: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);