1: PACKAGE BODY OKL_BOOK_CONTROLLER_PVT AS
2: /* $Header: OKLRBCTB.pls 120.8 2007/06/13 22:57:27 asahoo noship $ */
3: --------------------------------------------------------------------------------
4: --LOCAL DATASTRUCTURES
5: --------------------------------------------------------------------------------
245: END IF;
246:
247: -- Initialize records in okl_book_controller_trx table
248:
249: OKL_BOOK_CONTROLLER_PVT.init_book_controller_trx(
250: p_api_version => p_api_version,
251: p_init_msg_list => p_init_msg_list,
252: x_return_status => x_return_status,
253: x_msg_count => x_msg_count,
885: x_msg_data => l_msg_data,
886: p_khr_id => p_khr_id,
887: p_prog_short_name => l_program_name,
888: p_conc_req_id => NULL,
889: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_ERROR);
890:
891: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
892: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
893: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
923: x_msg_data => l_msg_data,
924: p_khr_id => p_khr_id,
925: p_prog_short_name => l_program_name,
926: p_conc_req_id => l_request_id,
927: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_RUNNING);
928:
929: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
931: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
968: x_msg_count => l_msg_count,
969: x_msg_data => l_msg_data,
970: p_khr_id => p_khr_id,
971: p_prog_short_name => l_program_name,
972: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_ERROR);
973:
974: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
976: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1004: x_msg_count => l_msg_count,
1005: x_msg_data => l_msg_data,
1006: p_khr_id => p_khr_id,
1007: p_prog_short_name => l_program_name,
1008: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
1009:
1010: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1012: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3006: l_bk_progress_status okl_book_controller_trx.progress_status%TYPE;
3007:
3008: BEGIN
3009: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3010: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'OKL_BOOK_CONTROLLER_PVT.init_book_controller_trx.', 'Begin(+)');
3011: END IF;
3012:
3013: x_batch_number := null;
3014: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3046: FETCH get_curr_sts_code INTO l_curr_sts_code;
3047: CLOSE get_curr_sts_code;
3048:
3049: IF (l_curr_sts_code = 'PASSED') THEN
3050: l_qa_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3051: l_ut_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3052: l_st_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3053: l_bk_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3054: ELSIF (l_curr_sts_code IN ('COMPLETE','APPROVED')) THEN
3047: CLOSE get_curr_sts_code;
3048:
3049: IF (l_curr_sts_code = 'PASSED') THEN
3050: l_qa_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3051: l_ut_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3052: l_st_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3053: l_bk_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3054: ELSIF (l_curr_sts_code IN ('COMPLETE','APPROVED')) THEN
3055: l_qa_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3048:
3049: IF (l_curr_sts_code = 'PASSED') THEN
3050: l_qa_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3051: l_ut_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3052: l_st_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3053: l_bk_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3054: ELSIF (l_curr_sts_code IN ('COMPLETE','APPROVED')) THEN
3055: l_qa_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3056: l_ut_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3049: IF (l_curr_sts_code = 'PASSED') THEN
3050: l_qa_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3051: l_ut_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3052: l_st_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3053: l_bk_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3054: ELSIF (l_curr_sts_code IN ('COMPLETE','APPROVED')) THEN
3055: l_qa_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3056: l_ut_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3057: l_st_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3051: l_ut_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3052: l_st_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3053: l_bk_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3054: ELSIF (l_curr_sts_code IN ('COMPLETE','APPROVED')) THEN
3055: l_qa_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3056: l_ut_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3057: l_st_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3058: l_bk_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3059: ELSIF (l_curr_sts_code = 'PENDING_APPROVAL') THEN
3052: l_st_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3053: l_bk_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3054: ELSIF (l_curr_sts_code IN ('COMPLETE','APPROVED')) THEN
3055: l_qa_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3056: l_ut_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3057: l_st_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3058: l_bk_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3059: ELSIF (l_curr_sts_code = 'PENDING_APPROVAL') THEN
3060: l_qa_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3053: l_bk_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3054: ELSIF (l_curr_sts_code IN ('COMPLETE','APPROVED')) THEN
3055: l_qa_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3056: l_ut_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3057: l_st_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3058: l_bk_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3059: ELSIF (l_curr_sts_code = 'PENDING_APPROVAL') THEN
3060: l_qa_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3061: l_ut_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3054: ELSIF (l_curr_sts_code IN ('COMPLETE','APPROVED')) THEN
3055: l_qa_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3056: l_ut_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3057: l_st_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3058: l_bk_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3059: ELSIF (l_curr_sts_code = 'PENDING_APPROVAL') THEN
3060: l_qa_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3061: l_ut_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3062: l_st_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3056: l_ut_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3057: l_st_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3058: l_bk_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3059: ELSIF (l_curr_sts_code = 'PENDING_APPROVAL') THEN
3060: l_qa_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3061: l_ut_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3062: l_st_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3063: l_bk_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_RUNNING;
3064: ELSE
3057: l_st_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3058: l_bk_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3059: ELSIF (l_curr_sts_code = 'PENDING_APPROVAL') THEN
3060: l_qa_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3061: l_ut_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3062: l_st_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3063: l_bk_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_RUNNING;
3064: ELSE
3065: l_qa_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3058: l_bk_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3059: ELSIF (l_curr_sts_code = 'PENDING_APPROVAL') THEN
3060: l_qa_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3061: l_ut_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3062: l_st_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3063: l_bk_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_RUNNING;
3064: ELSE
3065: l_qa_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3066: l_ut_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3059: ELSIF (l_curr_sts_code = 'PENDING_APPROVAL') THEN
3060: l_qa_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3061: l_ut_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3062: l_st_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3063: l_bk_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_RUNNING;
3064: ELSE
3065: l_qa_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3066: l_ut_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3067: l_st_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3061: l_ut_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3062: l_st_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3063: l_bk_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_RUNNING;
3064: ELSE
3065: l_qa_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3066: l_ut_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3067: l_st_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3068: l_bk_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3069: END IF;
3062: l_st_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
3063: l_bk_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_RUNNING;
3064: ELSE
3065: l_qa_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3066: l_ut_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3067: l_st_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3068: l_bk_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3069: END IF;
3070:
3063: l_bk_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_RUNNING;
3064: ELSE
3065: l_qa_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3066: l_ut_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3067: l_st_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3068: l_bk_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3069: END IF;
3070:
3071: i := 0;
3064: ELSE
3065: l_qa_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3066: l_ut_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3067: l_st_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3068: l_bk_progress_status := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING;
3069: END IF;
3070:
3071: i := 0;
3072: --populate record for QA Validation
3140: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3141: x_msg_data => x_msg_data);
3142:
3143: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3144: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'OKL_BOOK_CONTROLLER_PVT.init_book_controller_trx.', 'End(-)');
3145: END IF;
3146:
3147: EXCEPTION
3148: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3154: x_msg_data => x_msg_data,
3155: p_api_type => g_api_type);
3156:
3157: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3158: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_BOOK_CONTROLLER_PVT.init_book_controller_trx.', 'EXP - ERROR');
3159: END IF;
3160:
3161: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3162: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3167: x_msg_data => x_msg_data,
3168: p_api_type => g_api_type);
3169:
3170: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3171: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_BOOK_CONTROLLER_PVT.init_book_controller_trx.', 'EXP - UNEXCP ERROR');
3172: END IF;
3173:
3174: WHEN OTHERS THEN
3175: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3180: x_msg_data => x_msg_data,
3181: p_api_type => g_api_type);
3182:
3183: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3184: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_BOOK_CONTROLLER_PVT.init_book_controller_trx.', 'EXP - OTHERS');
3185: END IF;
3186:
3187: END init_book_controller_trx;
3188:
3226: l_book_ctrl_trx c_book_ctrl_trx%ROWTYPE;
3227:
3228: BEGIN
3229: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3230: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx.', 'Begin(+)');
3231: END IF;
3232: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3233:
3234: x_return_status := OKL_API.START_ACTIVITY(
3293: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3294: x_msg_data => x_msg_data);
3295:
3296: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3297: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx.', 'End(-)');
3298: END IF;
3299:
3300: EXCEPTION
3301: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3310: x_msg_data => x_msg_data,
3311: p_api_type => g_api_type);
3312:
3313: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3314: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx.', 'EXP - ERROR');
3315: END IF;
3316:
3317: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3318: IF (c_book_ctrl_trx%ISOPEN) THEN
3326: x_msg_data => x_msg_data,
3327: p_api_type => g_api_type);
3328:
3329: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3330: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx.', 'EXP - UNEXCP ERROR');
3331: END IF;
3332:
3333: WHEN OTHERS THEN
3334: IF (c_book_ctrl_trx%ISOPEN) THEN
3342: x_msg_data => x_msg_data,
3343: p_api_type => g_api_type);
3344:
3345: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3346: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx.', 'EXP - OTHERS');
3347: END IF;
3348: END update_book_controller_trx;
3349:
3350: -----------------------------------------------------------------------------
3372: l_api_version CONSTANT NUMBER := 1.0;
3373: l_prog_short_name OKL_BOOK_CONTROLLER_TRX.prog_short_name%TYPE;
3374: BEGIN
3375: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3376: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'OKL_BOOK_CONTROLLER_PVT.cancel_contract_activation.', 'Begin(+)');
3377: END IF;
3378:
3379: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3380:
3424:
3425: FOR i in 1..4
3426: LOOP
3427: IF (i = 1) THEN
3428: l_prog_short_name := OKL_BOOK_CONTROLLER_PVT.G_VALIDATE_CONTRACT;
3429: ELSIF (i = 2) THEN
3430: l_prog_short_name := OKL_BOOK_CONTROLLER_PVT.G_CALC_UPFRONT_TAX;
3431: ELSIF (i = 3) THEN
3432: l_prog_short_name := OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT;
3426: LOOP
3427: IF (i = 1) THEN
3428: l_prog_short_name := OKL_BOOK_CONTROLLER_PVT.G_VALIDATE_CONTRACT;
3429: ELSIF (i = 2) THEN
3430: l_prog_short_name := OKL_BOOK_CONTROLLER_PVT.G_CALC_UPFRONT_TAX;
3431: ELSIF (i = 3) THEN
3432: l_prog_short_name := OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT;
3433: ELSIF (i = 4) THEN
3434: l_prog_short_name := OKL_BOOK_CONTROLLER_PVT.G_SUBMIT_CONTRACT;
3428: l_prog_short_name := OKL_BOOK_CONTROLLER_PVT.G_VALIDATE_CONTRACT;
3429: ELSIF (i = 2) THEN
3430: l_prog_short_name := OKL_BOOK_CONTROLLER_PVT.G_CALC_UPFRONT_TAX;
3431: ELSIF (i = 3) THEN
3432: l_prog_short_name := OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT;
3433: ELSIF (i = 4) THEN
3434: l_prog_short_name := OKL_BOOK_CONTROLLER_PVT.G_SUBMIT_CONTRACT;
3435: END IF;
3436:
3430: l_prog_short_name := OKL_BOOK_CONTROLLER_PVT.G_CALC_UPFRONT_TAX;
3431: ELSIF (i = 3) THEN
3432: l_prog_short_name := OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT;
3433: ELSIF (i = 4) THEN
3434: l_prog_short_name := OKL_BOOK_CONTROLLER_PVT.G_SUBMIT_CONTRACT;
3435: END IF;
3436:
3437: okl_book_controller_pvt.update_book_controller_trx(
3438: p_api_version => p_api_version,
3433: ELSIF (i = 4) THEN
3434: l_prog_short_name := OKL_BOOK_CONTROLLER_PVT.G_SUBMIT_CONTRACT;
3435: END IF;
3436:
3437: okl_book_controller_pvt.update_book_controller_trx(
3438: p_api_version => p_api_version,
3439: p_init_msg_list => p_init_msg_list,
3440: x_return_status => x_return_status,
3441: x_msg_count => x_msg_count,
3442: x_msg_data => x_msg_data,
3443: p_khr_id => p_khr_id,
3444: p_prog_short_name => l_prog_short_name,
3445: p_conc_req_id => NULL,
3446: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING);
3447:
3448: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3449: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3450: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3457: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3458: x_msg_data => x_msg_data);
3459:
3460: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3461: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'OKL_BOOK_CONTROLLER_PVT.cancel_contract_activation.', 'End(-)');
3462: END IF;
3463:
3464: EXCEPTION
3465: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3471: x_msg_data => x_msg_data,
3472: p_api_type => g_api_type);
3473:
3474: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3475: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_BOOK_CONTROLLER_PVT.cancel_contract_activation.', 'EXP - ERROR');
3476: END IF;
3477:
3478: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3479: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3484: x_msg_data => x_msg_data,
3485: p_api_type => g_api_type);
3486:
3487: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3488: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_BOOK_CONTROLLER_PVT.cancel_contract_activation.', 'EXP - UNEXCP ERROR');
3489: END IF;
3490:
3491: WHEN OTHERS THEN
3492: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3497: x_msg_data => x_msg_data,
3498: p_api_type => g_api_type);
3499:
3500: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3501: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_BOOK_CONTROLLER_PVT.cancel_contract_activation.', 'EXP - OTHERS');
3502: END IF;
3503: END cancel_contract_activation;
3504:
3505: -----------------------------------------------------------------------------
3536: l_progress_status okl_book_controller_trx.progress_status%TYPE;
3537: x_process_status VARCHAR2(30);
3538: BEGIN
3539: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3540: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'OKL_BOOK_CONTROLLER_PVT.validate_contract_nxtbtn.', 'Begin(+)');
3541: END IF;
3542:
3543: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3544:
3557: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3558: RAISE OKL_API.G_EXCEPTION_ERROR;
3559: END IF;
3560:
3561: OPEN c_book_ctrl_trx(p_khr_id,okl_book_controller_pvt.g_validate_contract);
3562: FETCH c_book_ctrl_trx INTO l_progress_status;
3563: CLOSE c_book_ctrl_trx;
3564:
3565: IF (l_progress_status = okl_book_controller_pvt.g_prog_sts_complete) THEN
3561: OPEN c_book_ctrl_trx(p_khr_id,okl_book_controller_pvt.g_validate_contract);
3562: FETCH c_book_ctrl_trx INTO l_progress_status;
3563: CLOSE c_book_ctrl_trx;
3564:
3565: IF (l_progress_status = okl_book_controller_pvt.g_prog_sts_complete) THEN
3566: OPEN c_book_ctrl_trx(p_khr_id,okl_book_controller_pvt.g_calc_upfront_tax);
3567: FETCH c_book_ctrl_trx INTO l_progress_status;
3568: CLOSE c_book_ctrl_trx;
3569: IF (l_progress_status = okl_book_controller_pvt.g_prog_sts_pending) THEN
3562: FETCH c_book_ctrl_trx INTO l_progress_status;
3563: CLOSE c_book_ctrl_trx;
3564:
3565: IF (l_progress_status = okl_book_controller_pvt.g_prog_sts_complete) THEN
3566: OPEN c_book_ctrl_trx(p_khr_id,okl_book_controller_pvt.g_calc_upfront_tax);
3567: FETCH c_book_ctrl_trx INTO l_progress_status;
3568: CLOSE c_book_ctrl_trx;
3569: IF (l_progress_status = okl_book_controller_pvt.g_prog_sts_pending) THEN
3570: OKL_CONTRACT_BOOK_PVT.calculate_upfront_tax(
3565: IF (l_progress_status = okl_book_controller_pvt.g_prog_sts_complete) THEN
3566: OPEN c_book_ctrl_trx(p_khr_id,okl_book_controller_pvt.g_calc_upfront_tax);
3567: FETCH c_book_ctrl_trx INTO l_progress_status;
3568: CLOSE c_book_ctrl_trx;
3569: IF (l_progress_status = okl_book_controller_pvt.g_prog_sts_pending) THEN
3570: OKL_CONTRACT_BOOK_PVT.calculate_upfront_tax(
3571: p_api_version => p_api_version,
3572: p_init_msg_list => p_init_msg_list,
3573: x_return_status => x_return_status,
3592: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3593: x_msg_data => x_msg_data);
3594:
3595: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3596: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'OKL_BOOK_CONTROLLER_PVT.validate_contract_nxtbtn.', 'End(-)');
3597: END IF;
3598:
3599: EXCEPTION
3600: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3606: x_msg_data => x_msg_data,
3607: p_api_type => g_api_type);
3608:
3609: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3610: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_BOOK_CONTROLLER_PVT.validate_contract_nxtbtn.', 'EXP - ERROR');
3611: END IF;
3612:
3613: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3614: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3619: x_msg_data => x_msg_data,
3620: p_api_type => g_api_type);
3621:
3622: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3623: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_BOOK_CONTROLLER_PVT.validate_contract_nxtbtn.', 'EXP - UNEXCP ERROR');
3624: END IF;
3625:
3626: WHEN OTHERS THEN
3627: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3632: x_msg_data => x_msg_data,
3633: p_api_type => g_api_type);
3634:
3635: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3636: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_BOOK_CONTROLLER_PVT.validate_contract_nxtbtn.', 'EXP - OTHERS');
3637: END IF;
3638: END validate_contract_nxtbtn;
3639:
3640: -----------------------------------------------------------------------------
3671: l_progress_status okl_book_controller_trx.progress_status%TYPE;
3672: x_process_status VARCHAR2(30);
3673: BEGIN
3674: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3675: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'OKL_BOOK_CONTROLLER_PVT.calc_upfronttax_nxtbtn.', 'Begin(+)');
3676: END IF;
3677:
3678: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3679:
3692: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3693: RAISE OKL_API.G_EXCEPTION_ERROR;
3694: END IF;
3695:
3696: OPEN c_book_ctrl_trx(p_khr_id,okl_book_controller_pvt.g_calc_upfront_tax);
3697: FETCH c_book_ctrl_trx INTO l_progress_status;
3698: CLOSE c_book_ctrl_trx;
3699:
3700: IF (l_progress_status <> okl_book_controller_pvt.g_prog_sts_complete) THEN
3696: OPEN c_book_ctrl_trx(p_khr_id,okl_book_controller_pvt.g_calc_upfront_tax);
3697: FETCH c_book_ctrl_trx INTO l_progress_status;
3698: CLOSE c_book_ctrl_trx;
3699:
3700: IF (l_progress_status <> okl_book_controller_pvt.g_prog_sts_complete) THEN
3701: OKL_LA_SALES_TAX_PVT.validate_upfront_tax_fee(
3702: p_api_version => p_api_version,
3703: p_init_msg_list => p_init_msg_list,
3704: x_return_status => x_return_status,
3715: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3716: x_msg_data => x_msg_data);
3717:
3718: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3719: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'OKL_BOOK_CONTROLLER_PVT.calc_upfronttax_nxtbtn.', 'End(-)');
3720: END IF;
3721:
3722: EXCEPTION
3723: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3729: x_msg_data => x_msg_data,
3730: p_api_type => g_api_type);
3731:
3732: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3733: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_BOOK_CONTROLLER_PVT.validate_contract_nxtbtn.', 'EXP - ERROR');
3734: END IF;
3735:
3736: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3737: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3742: x_msg_data => x_msg_data,
3743: p_api_type => g_api_type);
3744:
3745: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3746: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_BOOK_CONTROLLER_PVT.validate_contract_nxtbtn.', 'EXP - UNEXCP ERROR');
3747: END IF;
3748:
3749: WHEN OTHERS THEN
3750: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3755: x_msg_data => x_msg_data,
3756: p_api_type => g_api_type);
3757:
3758: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3759: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'OKL_BOOK_CONTROLLER_PVT.validate_contract_nxtbtn.', 'EXP - OTHERS');
3760: END IF;
3761: END calc_upfronttax_nxtbtn;
3762:
3763: -----------------------------------------------------------------------------
3976: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
3977:
3978: END calculate_upfront_tax;
3979:
3980: END OKL_BOOK_CONTROLLER_PVT;