[Home] [Help]
1: PACKAGE BODY okl_contract_book_pvt AS
2: /* $Header: OKLRBKGB.pls 120.68.12020000.6 2013/03/28 10:32:54 bkatraga ship $ */
3:
4: -------------------------------------------------------------------------------------------------
5: -- GLOBAL MESSAGE CONSTANTS
1447:
1448: ---
1449:
1450: --call post approval process
1451: okl_contract_book_pvt.post_approval_process
1452: (p_api_version => p_api_version,
1453: p_init_msg_list => p_init_msg_list,
1454: x_return_status => x_return_status,
1455: x_msg_count => x_msg_count,
1775:
1776: ---
1777:
1778: --call post approval process
1779: okl_contract_book_pvt.post_approval_process
1780: (p_api_version => p_api_version,
1781: p_init_msg_list => p_init_msg_list,
1782: x_return_status => x_return_status,
1783: x_msg_count => x_msg_count,
2511: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2512: RAISE okl_api.g_exception_error;
2513: END IF;
2514: ELSE
2515: okl_contract_book_pvt.approve_activate_contract
2516: (p_api_version => p_api_version,
2517: p_init_msg_list => p_init_msg_list,
2518: x_return_status => x_return_status,
2519: x_msg_count => x_msg_count,
3945:
3946: --Bug# 4631549
3947: IF l_rel_khr = '!' AND l_mass_rebook_yn = okl_api.g_false THEN
3948: --IF l_rel_khr = '!' Then
3949: okl_contract_book_pvt.terminate_original_contract
3950: (p_api_version => l_api_version,
3951: p_init_msg_list => p_init_msg_list,
3952: x_return_status => x_return_status,
3953: x_msg_count => x_msg_count,
5326: l_del_fee_types_rec okl_maintain_fee_pvt.fee_types_rec_type;
5327: --Bug# 6512668
5328: BEGIN
5329: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5330: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'OKL_CONTRACT_BOOK_PVT.CALCULATE_UPFRONT_TAX.', 'Begin(+)');
5331: END IF;
5332:
5333: x_process_status := okl_api.g_ret_sts_success;
5334:
5332:
5333: x_process_status := okl_api.g_ret_sts_success;
5334:
5335: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5336: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_contract_book_PVT.calculate_upfront_tax.','0..');
5337: END IF;
5338:
5339: x_return_status :=
5340: okl_api.start_activity (p_api_name => l_api_name,
5345: p_api_type => g_api_type,
5346: x_return_status => x_return_status
5347: );
5348: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5349: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_contract_book_PVT.calculate_upfront_tax.','00..');
5350: END IF;
5351: -- check if activity started successfully
5352: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5353: RAISE okl_api.g_exception_unexpected_error;
5355: RAISE okl_api.g_exception_error;
5356: END IF;
5357:
5358: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5359: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_contract_book_PVT.calculate_upfront_tax.','1..');
5360: END IF;
5361:
5362: l_upfront_tax_prog_sts := okl_book_controller_pvt.g_prog_sts_complete;
5363:
5365: g_is_debug_statement_on :=
5366: okl_debug_pub.check_log_on (g_module, fnd_log.level_statement);
5367: END IF;
5368: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5369: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_contract_book_PVT.calculate_upfront_tax.','1..');
5370: END IF;
5371: --check for rebook contract
5372: l_rbk_khr := '?';
5373: l_orig_khr_id := NULL;
5375:
5376: OPEN l_chk_rbk_csr (p_chr_id => p_chr_id);
5377:
5378: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5379: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_contract_book_PVT.calculate_upfront_tax.','3..');
5380: END IF;
5381:
5382: FETCH l_chk_rbk_csr
5383: INTO l_rbk_khr,
5385: l_rebook_date,
5386: l_transaction_id;
5387:
5388: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5389: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_contract_book_PVT.calculate_upfront_tax.','4..');
5390: END IF;
5391:
5392: IF l_chk_rbk_csr%NOTFOUND THEN
5393: NULL;
5394: END IF;
5395:
5396: CLOSE l_chk_rbk_csr;
5397: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5398: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_contract_book_PVT.calculate_upfront_tax.','5..');
5399: END IF;
5400: -- Bug 6157438
5401: -- check for mass rebook contract
5402: l_mass_rbk_khr := '?';
5412:
5413: CLOSE l_chk_mass_rbk_csr;
5414:
5415: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5416: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_contract_book_PVT.calculate_upfront_tax.','6..');
5417: END IF;
5418:
5419:
5420: IF (l_rbk_khr = '!') THEN
5424: 'Rebook, Orig :' || l_orig_khr_id
5425: );
5426: END IF;
5427: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5428: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_contract_book_PVT.calculate_upfront_tax.','7.. ');
5429: END IF;
5430:
5431: -- Rebook
5432: -- Bug 4769822 - START
5446: x_msg_data => x_msg_data
5447: );
5448:
5449: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5450: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_contract_book_PVT.calculate_upfront_tax.','8.. '||x_return_status);
5451: END IF;
5452:
5453: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5454: RAISE okl_api.g_exception_unexpected_error;
5465: x_msg_data => x_msg_data,
5466: p_chr_id => p_chr_id
5467: );
5468: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5469: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_contract_book_PVT.calculate_upfront_tax.','9.. '||x_return_status);
5470: END IF;
5471:
5472: IF (x_return_status <> okl_api.g_ret_sts_success) THEN
5473: l_upfront_tax_prog_sts :=
5496: 'Authoring 1: ' || p_chr_id
5497: );
5498: END IF;
5499: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5500: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_contract_book_PVT.calculate_upfront_tax. ','10..'||x_return_status);
5501: END IF;
5502: okl_la_sales_tax_pvt.process_sales_tax
5503: (p_api_version => p_api_version,
5504: p_init_msg_list => p_init_msg_list,
5512: x_msg_count => x_msg_count,
5513: x_msg_data => x_msg_data
5514: );
5515: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5516: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_contract_book_PVT.calculate_upfront_tax.','11.. '||x_return_status);
5517: END IF;
5518:
5519: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5520: RAISE okl_api.g_exception_unexpected_error;
5560: END IF;
5561: END IF;
5562: END IF;
5563: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5564: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_contract_book_PVT.calculate_upfront_tax.','12.. '||x_return_status);
5565: END IF;
5566: okl_la_sales_tax_pvt.validate_upfront_tax_fee
5567: (p_api_version => p_api_version,
5568: p_init_msg_list => p_init_msg_list,
5571: x_msg_data => x_msg_data,
5572: p_chr_id => p_chr_id
5573: );
5574: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5575: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_contract_book_PVT.calculate_upfront_tax.','13.. '||x_return_status);
5576: END IF;
5577:
5578: IF (x_return_status <> okl_api.g_ret_sts_success) THEN
5579: l_upfront_tax_prog_sts :=
5586: END IF;
5587: END IF;
5588:
5589: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5590: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_contract_book_PVT.calculate_upfront_tax. ','13.1 ....'||x_return_status);
5591: END IF;
5592:
5593: --Update Contract Status to Passed
5594: okl_contract_status_pub.update_contract_status
5600: p_khr_status => 'PASSED',
5601: p_chr_id => p_chr_id
5602: );
5603: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5604: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_contract_book_PVT.calculate_upfront_tax.','14.. '||x_return_status);
5605: END IF;
5606:
5607: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5608: RAISE okl_api.g_exception_unexpected_error;
5619: x_msg_data => x_msg_data,
5620: p_chr_id => p_chr_id
5621: );
5622: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5623: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_contract_book_PVT.calculate_upfront_tax.','15.. '||x_return_status);
5624: END IF;
5625: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5626: RAISE okl_api.g_exception_unexpected_error;
5627: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5639: p_prog_short_name => okl_book_controller_pvt.g_validate_contract,
5640: p_progress_status => okl_book_controller_pvt.g_prog_sts_complete
5641: );
5642: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5643: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_contract_book_PVT.calculate_upfront_tax.','16.. '||x_return_status);
5644: END IF;
5645:
5646: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5647: RAISE okl_api.g_exception_unexpected_error;
5660: p_progress_status => l_upfront_tax_prog_sts
5661: );
5662:
5663: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5664: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_contract_book_PVT.calculate_upfront_tax.','17.. '||x_return_status);
5665: END IF;
5666:
5667: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5668: RAISE okl_api.g_exception_unexpected_error;
5718: -- Start of comments
5719: --
5720: -- Procedure Name : approve_activate_contract
5721: -- Description : Procedure will be called from Submit button on Contract Booking UI and
5722: -- from OKL_CONTRACT_BOOK_PVT.post_approval_process and Batch booking.
5723: -- This procedure will submit the contract for approval.
5724: -- If the contract has been approved, this will process contract activation
5725: -- Business Rules :
5726: -- Parameters : p_chr_id
6025: p_api_type => g_api_type
6026: );
6027: x_process_status := okl_api.g_ret_sts_error;
6028: END approve_activate_contract;
6029: END okl_contract_book_pvt;