5: -- GLOBAL MESSAGE CONSTANTS
6: -------------------------------------------------------------------------------------------------
7: g_no_parent_record CONSTANT VARCHAR2 (200)
8: := 'OKC_NO_PARENT_RECORD';
9: g_fnd_app CONSTANT VARCHAR2 (200) := okl_api.g_fnd_app;
10: g_required_value CONSTANT VARCHAR2 (200)
11: := okl_api.g_required_value;
12: g_invalid_value CONSTANT VARCHAR2 (200)
13: := okl_api.g_invalid_value;
7: g_no_parent_record CONSTANT VARCHAR2 (200)
8: := 'OKC_NO_PARENT_RECORD';
9: g_fnd_app CONSTANT VARCHAR2 (200) := okl_api.g_fnd_app;
10: g_required_value CONSTANT VARCHAR2 (200)
11: := okl_api.g_required_value;
12: g_invalid_value CONSTANT VARCHAR2 (200)
13: := okl_api.g_invalid_value;
14: g_unexpected_error CONSTANT VARCHAR2 (200)
15: := 'OKC_CONTRACTS_UNEXP_ERROR';
9: g_fnd_app CONSTANT VARCHAR2 (200) := okl_api.g_fnd_app;
10: g_required_value CONSTANT VARCHAR2 (200)
11: := okl_api.g_required_value;
12: g_invalid_value CONSTANT VARCHAR2 (200)
13: := okl_api.g_invalid_value;
14: g_unexpected_error CONSTANT VARCHAR2 (200)
15: := 'OKC_CONTRACTS_UNEXP_ERROR';
16: g_sqlerrm_token CONSTANT VARCHAR2 (200) := 'SQLerrm';
17: g_sqlcode_token CONSTANT VARCHAR2 (200) := 'SQLcode';
17: g_sqlcode_token CONSTANT VARCHAR2 (200) := 'SQLcode';
18: g_uppercase_required CONSTANT VARCHAR2 (200)
19: := 'OKL_CONTRACTS_UPPERCASE_REQ';
20: g_col_name_token CONSTANT VARCHAR2 (200)
21: := okl_api.g_col_name_token;
22: g_debug_enabled CONSTANT VARCHAR2 (10)
23: := okl_debug_pub.check_log_enabled;
24: g_is_debug_statement_on BOOLEAN;
25: g_auto_approve CONSTANT VARCHAR2 (15) := 'AUTO_APPROVE';
143: WHERE chrb.ID = p_chr_id AND chrb.scs_code = 'LEASE';
144:
145: l_exists VARCHAR2 (1) DEFAULT 'N';
146: BEGIN
147: IF (p_chr_id = okl_api.g_miss_num OR p_chr_id IS NULL) THEN
148: okl_api.set_message (g_app_name,
149: g_required_value,
150: g_col_name_token,
151: 'p_chr_id'
144:
145: l_exists VARCHAR2 (1) DEFAULT 'N';
146: BEGIN
147: IF (p_chr_id = okl_api.g_miss_num OR p_chr_id IS NULL) THEN
148: okl_api.set_message (g_app_name,
149: g_required_value,
150: g_col_name_token,
151: 'p_chr_id'
152: );
149: g_required_value,
150: g_col_name_token,
151: 'p_chr_id'
152: );
153: x_return_status := okl_api.g_ret_sts_error;
154: RAISE g_exception_halt_validation;
155: END IF;
156:
157: l_exists := 'N';
168:
169: CLOSE l_chr_csr;
170:
171: IF l_exists = 'N' THEN
172: okl_api.set_message (g_app_name,
173: g_invalid_value,
174: g_col_name_token,
175: 'p_chr_id'
176: );
173: g_invalid_value,
174: g_col_name_token,
175: 'p_chr_id'
176: );
177: x_return_status := okl_api.g_ret_sts_error;
178: RAISE g_exception_halt_validation;
179: END IF;
180: EXCEPTION
181: WHEN g_exception_halt_validation THEN
184: IF l_chr_csr%ISOPEN THEN
185: CLOSE l_chr_csr;
186: END IF;
187:
188: okl_api.set_message (p_app_name => g_app_name,
189: p_msg_name => g_unexpected_error,
190: p_token1 => g_sqlcode_token,
191: p_token1_value => SQLCODE,
192: p_token2 => g_sqlerrm_token,
191: p_token1_value => SQLCODE,
192: p_token2 => g_sqlerrm_token,
193: p_token2_value => SQLERRM
194: );
195: x_return_status := okl_api.g_ret_sts_unexp_error;
196: END validate_chr_id;
197:
198: PROCEDURE execute_qa_check_list (
199: p_api_version IN NUMBER,
207: x_msg_tbl OUT NOCOPY okl_qa_check_pub.msg_tbl_type
208: ) IS
209: l_api_name CONSTANT VARCHAR2 (30) := 'EXECUTE_QA_CHECK_LIST';
210: l_api_version CONSTANT NUMBER := 1;
211: l_return_status VARCHAR2 (1) := okl_api.g_ret_sts_success;
212: l_passstatus VARCHAR2 (30) := 'PASSED';
213: l_failstatus VARCHAR2 (256) := 'INCOMPLETE';
214: severity VARCHAR2 (1);
215: l_msg_tbl okl_qa_check_pub.msg_tbl_type;
274: p_parameters => l_parameter_list
275: );
276: EXCEPTION
277: WHEN OTHERS THEN
278: x_return_status := okl_api.g_ret_sts_unexp_error;
279: RAISE okl_api.g_exception_unexpected_error;
280: END raise_business_event;
281: /*
282: -- mvasudev, 08/30/2004
275: );
276: EXCEPTION
277: WHEN OTHERS THEN
278: x_return_status := okl_api.g_ret_sts_unexp_error;
279: RAISE okl_api.g_exception_unexpected_error;
280: END raise_business_event;
281: /*
282: -- mvasudev, 08/30/2004
283: -- END, PROCEDURE to enable Business Event
283: -- END, PROCEDURE to enable Business Event
284: */
285: BEGIN
286: x_return_status :=
287: okl_api.start_activity (p_api_name => l_api_name,
288: p_pkg_name => g_pkg_name,
289: p_init_msg_list => p_init_msg_list,
290: l_api_version => l_api_version,
291: p_api_version => p_api_version,
293: x_return_status => x_return_status
294: );
295:
296: -- check if activity started successfully
297: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
298: RAISE okl_api.g_exception_unexpected_error;
299: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
300: RAISE okl_api.g_exception_error;
301: END IF;
294: );
295:
296: -- check if activity started successfully
297: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
298: RAISE okl_api.g_exception_unexpected_error;
299: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
300: RAISE okl_api.g_exception_error;
301: END IF;
302:
295:
296: -- check if activity started successfully
297: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
298: RAISE okl_api.g_exception_unexpected_error;
299: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
300: RAISE okl_api.g_exception_error;
301: END IF;
302:
303: OPEN l_dltype_csr (p_chr_id);
296: -- check if activity started successfully
297: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
298: RAISE okl_api.g_exception_unexpected_error;
299: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
300: RAISE okl_api.g_exception_error;
301: END IF;
302:
303: OPEN l_dltype_csr (p_chr_id);
304:
305: FETCH l_dltype_csr
306: INTO l_dltype_rec;
307:
308: IF (l_dltype_csr%NOTFOUND) THEN
309: RAISE okl_api.g_exception_unexpected_error;
310: END IF;
311:
312: /* gboomina commenting for Bug Bug 6476425 - start
313: -- Revolving Loan contract status will be changed by stream
328: p_khr_id => p_chr_id,
329: x_batch_number => x_batch_number
330: );
331:
332: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
333: RAISE okl_api.g_exception_unexpected_error;
334: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
335: RAISE okl_api.g_exception_error;
336: END IF;
329: x_batch_number => x_batch_number
330: );
331:
332: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
333: RAISE okl_api.g_exception_unexpected_error;
334: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
335: RAISE okl_api.g_exception_error;
336: END IF;
337:
330: );
331:
332: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
333: RAISE okl_api.g_exception_unexpected_error;
334: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
335: RAISE okl_api.g_exception_error;
336: END IF;
337:
338: /*
331:
332: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
333: RAISE okl_api.g_exception_unexpected_error;
334: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
335: RAISE okl_api.g_exception_error;
336: END IF;
337:
338: /*
339: --call to cascade status on to lines
344: x_msg_count => x_msg_count,
345: x_msg_data => x_msg_data,
346: p_chr_id => p_chr_id);
347:
348: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
349: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
350: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
351: RAISE OKL_API.G_EXCEPTION_ERROR;
352: END IF;
345: x_msg_data => x_msg_data,
346: p_chr_id => p_chr_id);
347:
348: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
349: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
350: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
351: RAISE OKL_API.G_EXCEPTION_ERROR;
352: END IF;
353: */
346: p_chr_id => p_chr_id);
347:
348: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
349: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
350: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
351: RAISE OKL_API.G_EXCEPTION_ERROR;
352: END IF;
353: */
354: l_template_yn := 'N';
347:
348: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
349: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
350: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
351: RAISE OKL_API.G_EXCEPTION_ERROR;
352: END IF;
353: */
354: l_template_yn := 'N';
355: l_template_type_code := 'XXX';
396: );
397: END IF;
398:
399: -- Bug# 3477560 - Changed l_return_status to x_return_status
400: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
401: RAISE okl_api.g_exception_unexpected_error;
402: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
403: RAISE okl_api.g_exception_error;
404: END IF;
397: END IF;
398:
399: -- Bug# 3477560 - Changed l_return_status to x_return_status
400: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
401: RAISE okl_api.g_exception_unexpected_error;
402: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
403: RAISE okl_api.g_exception_error;
404: END IF;
405:
398:
399: -- Bug# 3477560 - Changed l_return_status to x_return_status
400: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
401: RAISE okl_api.g_exception_unexpected_error;
402: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
403: RAISE okl_api.g_exception_error;
404: END IF;
405:
406: j := 0;
399: -- Bug# 3477560 - Changed l_return_status to x_return_status
400: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
401: RAISE okl_api.g_exception_unexpected_error;
402: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
403: RAISE okl_api.g_exception_error;
404: END IF;
405:
406: j := 0;
407:
440:
441: x_msg_tbl := l_msg_tbl;
442:
443: IF (p_call_mode = 'ACTUAL') THEN
444: IF ( (x_return_status = okl_api.g_ret_sts_success)
445: AND (severity = 'S')
446: ) THEN
447: okl_contract_status_pub.update_contract_status (l_api_version,
448: p_init_msg_list,
462: p_prog_short_name => okl_book_controller_pvt.g_validate_contract,
463: p_progress_status => okl_book_controller_pvt.g_prog_sts_complete
464: );
465:
466: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
467: RAISE okl_api.g_exception_unexpected_error;
468: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
469: RAISE okl_api.g_exception_error;
470: END IF;
463: p_progress_status => okl_book_controller_pvt.g_prog_sts_complete
464: );
465:
466: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
467: RAISE okl_api.g_exception_unexpected_error;
468: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
469: RAISE okl_api.g_exception_error;
470: END IF;
471: ELSE
464: );
465:
466: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
467: RAISE okl_api.g_exception_unexpected_error;
468: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
469: RAISE okl_api.g_exception_error;
470: END IF;
471: ELSE
472: okl_contract_status_pub.update_contract_status (l_api_version,
465:
466: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
467: RAISE okl_api.g_exception_unexpected_error;
468: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
469: RAISE okl_api.g_exception_error;
470: END IF;
471: ELSE
472: okl_contract_status_pub.update_contract_status (l_api_version,
473: p_init_msg_list,
487: p_prog_short_name => okl_book_controller_pvt.g_validate_contract,
488: p_progress_status => okl_book_controller_pvt.g_prog_sts_error
489: );
490:
491: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
492: RAISE okl_api.g_exception_unexpected_error;
493: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
494: RAISE okl_api.g_exception_error;
495: END IF;
488: p_progress_status => okl_book_controller_pvt.g_prog_sts_error
489: );
490:
491: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
492: RAISE okl_api.g_exception_unexpected_error;
493: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
494: RAISE okl_api.g_exception_error;
495: END IF;
496: END IF;
489: );
490:
491: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
492: RAISE okl_api.g_exception_unexpected_error;
493: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
494: RAISE okl_api.g_exception_error;
495: END IF;
496: END IF;
497:
490:
491: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
492: RAISE okl_api.g_exception_unexpected_error;
493: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
494: RAISE okl_api.g_exception_error;
495: END IF;
496: END IF;
497:
498: --call to cascade status on to lines
504: x_msg_data => x_msg_data,
505: p_chr_id => p_chr_id
506: );
507:
508: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
509: RAISE okl_api.g_exception_unexpected_error;
510: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
511: RAISE okl_api.g_exception_error;
512: END IF;
505: p_chr_id => p_chr_id
506: );
507:
508: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
509: RAISE okl_api.g_exception_unexpected_error;
510: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
511: RAISE okl_api.g_exception_error;
512: END IF;
513:
506: );
507:
508: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
509: RAISE okl_api.g_exception_unexpected_error;
510: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
511: RAISE okl_api.g_exception_error;
512: END IF;
513:
514: /*
507:
508: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
509: RAISE okl_api.g_exception_unexpected_error;
510: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
511: RAISE okl_api.g_exception_error;
512: END IF;
513:
514: /*
515: -- mvasudev, 08/30/2004
521: x_return_status => x_return_status
522: );
523:
524: --END 21-Dec-2005 cklee Bug# 4901292 |
525: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
526: RAISE okl_api.g_exception_unexpected_error;
527: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
528: RAISE okl_api.g_exception_error;
529: END IF;
522: );
523:
524: --END 21-Dec-2005 cklee Bug# 4901292 |
525: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
526: RAISE okl_api.g_exception_unexpected_error;
527: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
528: RAISE okl_api.g_exception_error;
529: END IF;
530:
523:
524: --END 21-Dec-2005 cklee Bug# 4901292 |
525: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
526: RAISE okl_api.g_exception_unexpected_error;
527: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
528: RAISE okl_api.g_exception_error;
529: END IF;
530:
531: /*
524: --END 21-Dec-2005 cklee Bug# 4901292 |
525: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
526: RAISE okl_api.g_exception_unexpected_error;
527: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
528: RAISE okl_api.g_exception_error;
529: END IF;
530:
531: /*
532: -- mvasudev, 08/30/2004
559: raise_business_event (p_event_name => g_wf_evt_chr_list_validated,
560: x_return_status => x_return_status
561: );
562:
563: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
564: RAISE okl_api.g_exception_unexpected_error;
565: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
566: RAISE okl_api.g_exception_error;
567: END IF;
560: x_return_status => x_return_status
561: );
562:
563: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
564: RAISE okl_api.g_exception_unexpected_error;
565: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
566: RAISE okl_api.g_exception_error;
567: END IF;
568: /*
561: );
562:
563: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
564: RAISE okl_api.g_exception_unexpected_error;
565: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
566: RAISE okl_api.g_exception_error;
567: END IF;
568: /*
569: -- 21-Dec-2005 cklee Bug# 4901292
562:
563: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
564: RAISE okl_api.g_exception_unexpected_error;
565: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
566: RAISE okl_api.g_exception_error;
567: END IF;
568: /*
569: -- 21-Dec-2005 cklee Bug# 4901292
570: -- END, Code change to enable Business Event
570: -- END, Code change to enable Business Event
571: */
572: END IF;
573:
574: okl_api.end_activity (x_msg_count => x_msg_count,
575: x_msg_data => x_msg_data
576: );
577: ---
578: EXCEPTION
575: x_msg_data => x_msg_data
576: );
577: ---
578: EXCEPTION
579: WHEN okl_api.g_exception_error THEN
580: x_return_status :=
581: okl_api.handle_exceptions
582: (p_api_name => l_api_name,
583: p_pkg_name => g_pkg_name,
577: ---
578: EXCEPTION
579: WHEN okl_api.g_exception_error THEN
580: x_return_status :=
581: okl_api.handle_exceptions
582: (p_api_name => l_api_name,
583: p_pkg_name => g_pkg_name,
584: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
585: x_msg_count => x_msg_count,
580: x_return_status :=
581: okl_api.handle_exceptions
582: (p_api_name => l_api_name,
583: p_pkg_name => g_pkg_name,
584: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
585: x_msg_count => x_msg_count,
586: x_msg_data => x_msg_data,
587: p_api_type => g_api_type
588: );
585: x_msg_count => x_msg_count,
586: x_msg_data => x_msg_data,
587: p_api_type => g_api_type
588: );
589: WHEN okl_api.g_exception_unexpected_error THEN
590: x_return_status :=
591: okl_api.handle_exceptions
592: (p_api_name => l_api_name,
593: p_pkg_name => g_pkg_name,
587: p_api_type => g_api_type
588: );
589: WHEN okl_api.g_exception_unexpected_error THEN
590: x_return_status :=
591: okl_api.handle_exceptions
592: (p_api_name => l_api_name,
593: p_pkg_name => g_pkg_name,
594: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
595: x_msg_count => x_msg_count,
590: x_return_status :=
591: okl_api.handle_exceptions
592: (p_api_name => l_api_name,
593: p_pkg_name => g_pkg_name,
594: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
595: x_msg_count => x_msg_count,
596: x_msg_data => x_msg_data,
597: p_api_type => g_api_type
598: );
597: p_api_type => g_api_type
598: );
599: WHEN OTHERS THEN
600: x_return_status :=
601: okl_api.handle_exceptions (p_api_name => l_api_name,
602: p_pkg_name => g_pkg_name,
603: p_exc_name => 'OTHERS',
604: x_msg_count => x_msg_count,
605: x_msg_data => x_msg_data,
608: END execute_qa_check_list;
609:
610: PROCEDURE generate_journal_entries (
611: p_api_version IN NUMBER,
612: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false,
613: p_commit IN VARCHAR2 DEFAULT okl_api.g_false,
614: p_contract_id IN NUMBER,
615: p_transaction_type IN VARCHAR2,
616: p_draft_yn IN VARCHAR2 DEFAULT okc_api.g_true,
609:
610: PROCEDURE generate_journal_entries (
611: p_api_version IN NUMBER,
612: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false,
613: p_commit IN VARCHAR2 DEFAULT okl_api.g_false,
614: p_contract_id IN NUMBER,
615: p_transaction_type IN VARCHAR2,
616: p_draft_yn IN VARCHAR2 DEFAULT okc_api.g_true,
617: x_return_status OUT NOCOPY VARCHAR2,
619: x_msg_data OUT NOCOPY VARCHAR2
620: ) IS
621: l_api_name CONSTANT VARCHAR2 (30) := 'GENERATE_JNL_ENTRIES';
622: l_api_version CONSTANT NUMBER := 1;
623: l_return_status VARCHAR2 (1) := okl_api.g_ret_sts_success;
624: l_isallowed BOOLEAN;
625: l_passstatus VARCHAR2 (256);
626: l_failstatus VARCHAR2 (256);
627:
671: p_parameters => l_parameter_list
672: );
673: EXCEPTION
674: WHEN OTHERS THEN
675: x_return_status := okl_api.g_ret_sts_unexp_error;
676: RAISE okl_api.g_exception_unexpected_error;
677: END raise_business_event;
678: /*
679: -- mvasudev, 08/30/2004
672: );
673: EXCEPTION
674: WHEN OTHERS THEN
675: x_return_status := okl_api.g_ret_sts_unexp_error;
676: RAISE okl_api.g_exception_unexpected_error;
677: END raise_business_event;
678: /*
679: -- mvasudev, 08/30/2004
680: -- END, PROCEDURE to enable Business Event
680: -- END, PROCEDURE to enable Business Event
681: */
682: BEGIN
683: x_return_status :=
684: okl_api.start_activity (p_api_name => l_api_name,
685: p_pkg_name => g_pkg_name,
686: p_init_msg_list => p_init_msg_list,
687: l_api_version => l_api_version,
688: p_api_version => p_api_version,
690: x_return_status => x_return_status
691: );
692:
693: -- check if activity started successfully
694: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
695: RAISE okl_api.g_exception_unexpected_error;
696: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
697: RAISE okl_api.g_exception_error;
698: END IF;
691: );
692:
693: -- check if activity started successfully
694: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
695: RAISE okl_api.g_exception_unexpected_error;
696: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
697: RAISE okl_api.g_exception_error;
698: END IF;
699:
692:
693: -- check if activity started successfully
694: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
695: RAISE okl_api.g_exception_unexpected_error;
696: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
697: RAISE okl_api.g_exception_error;
698: END IF;
699:
700: l_transaction_date := NULL;
693: -- check if activity started successfully
694: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
695: RAISE okl_api.g_exception_unexpected_error;
696: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
697: RAISE okl_api.g_exception_error;
698: END IF;
699:
700: l_transaction_date := NULL;
701:
734: p_contract_id,
735: p_transaction_type,
736: l_transaction_date,
737: p_draft_yn,
738: okl_api.g_true,
739: x_return_status,
740: x_msg_count,
741: x_msg_data
742: );
740: x_msg_count,
741: x_msg_data
742: );
743:
744: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
745: RAISE okl_api.g_exception_unexpected_error;
746: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
747: RAISE okl_api.g_exception_error;
748: END IF;
741: x_msg_data
742: );
743:
744: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
745: RAISE okl_api.g_exception_unexpected_error;
746: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
747: RAISE okl_api.g_exception_error;
748: END IF;
749:
742: );
743:
744: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
745: RAISE okl_api.g_exception_unexpected_error;
746: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
747: RAISE okl_api.g_exception_error;
748: END IF;
749:
750: okl_api.set_message (p_app_name => g_app_name,
743:
744: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
745: RAISE okl_api.g_exception_unexpected_error;
746: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
747: RAISE okl_api.g_exception_error;
748: END IF;
749:
750: okl_api.set_message (p_app_name => g_app_name,
751: p_msg_name => 'OKL_LLA_JE_SUCCESS'
746: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
747: RAISE okl_api.g_exception_error;
748: END IF;
749:
750: okl_api.set_message (p_app_name => g_app_name,
751: p_msg_name => 'OKL_LLA_JE_SUCCESS'
752: );
753: x_return_status := okl_api.g_ret_sts_success;
754: /*
749:
750: okl_api.set_message (p_app_name => g_app_name,
751: p_msg_name => 'OKL_LLA_JE_SUCCESS'
752: );
753: x_return_status := okl_api.g_ret_sts_success;
754: /*
755: -- mvasudev, 08/30/2004
756: -- Code change to enable Business Event
757: */
756: -- Code change to enable Business Event
757: */
758: raise_business_event (x_return_status => x_return_status);
759:
760: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
761: RAISE okl_api.g_exception_unexpected_error;
762: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
763: RAISE okl_api.g_exception_error;
764: END IF;
757: */
758: raise_business_event (x_return_status => x_return_status);
759:
760: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
761: RAISE okl_api.g_exception_unexpected_error;
762: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
763: RAISE okl_api.g_exception_error;
764: END IF;
765:
758: raise_business_event (x_return_status => x_return_status);
759:
760: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
761: RAISE okl_api.g_exception_unexpected_error;
762: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
763: RAISE okl_api.g_exception_error;
764: END IF;
765:
766: /*
759:
760: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
761: RAISE okl_api.g_exception_unexpected_error;
762: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
763: RAISE okl_api.g_exception_error;
764: END IF;
765:
766: /*
767: -- mvasudev, 08/30/2004
766: /*
767: -- mvasudev, 08/30/2004
768: -- END, Code change to enable Business Event
769: */
770: okl_api.end_activity (x_msg_count => x_msg_count,
771: x_msg_data => x_msg_data
772: );
773: EXCEPTION
774: WHEN okl_api.g_exception_error THEN
770: okl_api.end_activity (x_msg_count => x_msg_count,
771: x_msg_data => x_msg_data
772: );
773: EXCEPTION
774: WHEN okl_api.g_exception_error THEN
775: x_return_status :=
776: okl_api.handle_exceptions
777: (p_api_name => l_api_name,
778: p_pkg_name => g_pkg_name,
772: );
773: EXCEPTION
774: WHEN okl_api.g_exception_error THEN
775: x_return_status :=
776: okl_api.handle_exceptions
777: (p_api_name => l_api_name,
778: p_pkg_name => g_pkg_name,
779: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
780: x_msg_count => x_msg_count,
775: x_return_status :=
776: okl_api.handle_exceptions
777: (p_api_name => l_api_name,
778: p_pkg_name => g_pkg_name,
779: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
780: x_msg_count => x_msg_count,
781: x_msg_data => x_msg_data,
782: p_api_type => g_api_type
783: );
780: x_msg_count => x_msg_count,
781: x_msg_data => x_msg_data,
782: p_api_type => g_api_type
783: );
784: WHEN okl_api.g_exception_unexpected_error THEN
785: x_return_status :=
786: okl_api.handle_exceptions
787: (p_api_name => l_api_name,
788: p_pkg_name => g_pkg_name,
782: p_api_type => g_api_type
783: );
784: WHEN okl_api.g_exception_unexpected_error THEN
785: x_return_status :=
786: okl_api.handle_exceptions
787: (p_api_name => l_api_name,
788: p_pkg_name => g_pkg_name,
789: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
790: x_msg_count => x_msg_count,
785: x_return_status :=
786: okl_api.handle_exceptions
787: (p_api_name => l_api_name,
788: p_pkg_name => g_pkg_name,
789: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
790: x_msg_count => x_msg_count,
791: x_msg_data => x_msg_data,
792: p_api_type => g_api_type
793: );
792: p_api_type => g_api_type
793: );
794: WHEN OTHERS THEN
795: x_return_status :=
796: okl_api.handle_exceptions (p_api_name => l_api_name,
797: p_pkg_name => g_pkg_name,
798: p_exc_name => 'OTHERS',
799: x_msg_count => x_msg_count,
800: x_msg_data => x_msg_data,
814: x_trx_status OUT NOCOPY VARCHAR2
815: ) IS
816: l_api_name CONSTANT VARCHAR2 (30) := 'MAP_AND_GEN_STREAMS';
817: l_api_version CONSTANT NUMBER := 1;
818: l_return_status VARCHAR2 (1) := okl_api.g_ret_sts_success;
819: l_isallowed BOOLEAN;
820: l_passstatus VARCHAR2 (256);
821: l_failstatus VARCHAR2 (256);
822:
853: p_parameters => l_parameter_list
854: );
855: EXCEPTION
856: WHEN OTHERS THEN
857: x_return_status := okl_api.g_ret_sts_unexp_error;
858: RAISE okl_api.g_exception_unexpected_error;
859: END raise_business_event;
860: /*
861: -- mvasudev, 08/30/2004
854: );
855: EXCEPTION
856: WHEN OTHERS THEN
857: x_return_status := okl_api.g_ret_sts_unexp_error;
858: RAISE okl_api.g_exception_unexpected_error;
859: END raise_business_event;
860: /*
861: -- mvasudev, 08/30/2004
862: -- END, PROCEDURE to enable Business Event
862: -- END, PROCEDURE to enable Business Event
863: */
864: BEGIN
865: x_return_status :=
866: okl_api.start_activity (p_api_name => l_api_name,
867: p_pkg_name => g_pkg_name,
868: p_init_msg_list => p_init_msg_list,
869: l_api_version => l_api_version,
870: p_api_version => p_api_version,
872: x_return_status => x_return_status
873: );
874:
875: -- check if activity started successfully
876: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
877: RAISE okl_api.g_exception_unexpected_error;
878: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
879: RAISE okl_api.g_exception_error;
880: END IF;
873: );
874:
875: -- check if activity started successfully
876: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
877: RAISE okl_api.g_exception_unexpected_error;
878: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
879: RAISE okl_api.g_exception_error;
880: END IF;
881:
874:
875: -- check if activity started successfully
876: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
877: RAISE okl_api.g_exception_unexpected_error;
878: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
879: RAISE okl_api.g_exception_error;
880: END IF;
881:
882: --Bug# 3556674
875: -- check if activity started successfully
876: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
877: RAISE okl_api.g_exception_unexpected_error;
878: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
879: RAISE okl_api.g_exception_error;
880: END IF;
881:
882: --Bug# 3556674
883: validate_chr_id (p_chr_id => p_chr_id,
883: validate_chr_id (p_chr_id => p_chr_id,
884: x_return_status => x_return_status
885: );
886:
887: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
888: RAISE okl_api.g_exception_unexpected_error;
889: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
890: RAISE okl_api.g_exception_error;
891: END IF;
884: x_return_status => x_return_status
885: );
886:
887: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
888: RAISE okl_api.g_exception_unexpected_error;
889: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
890: RAISE okl_api.g_exception_error;
891: END IF;
892:
885: );
886:
887: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
888: RAISE okl_api.g_exception_unexpected_error;
889: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
890: RAISE okl_api.g_exception_error;
891: END IF;
892:
893: --Bug# 3556674
886:
887: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
888: RAISE okl_api.g_exception_unexpected_error;
889: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
890: RAISE okl_api.g_exception_error;
891: END IF;
892:
893: --Bug# 3556674
894: OPEN tmp_csr (TO_NUMBER (p_chr_id));
898:
899: CLOSE tmp_csr;
900:
901: IF (tmp_rec.template_yn = 'Y') THEN
902: x_return_status := okl_api.g_ret_sts_error;
903: okl_api.set_message (p_app_name => g_app_name,
904: p_msg_name => 'OKL_LLA_NO_STRM_TMPLTC'
905: );
906: RAISE okl_api.g_exception_error;
899: CLOSE tmp_csr;
900:
901: IF (tmp_rec.template_yn = 'Y') THEN
902: x_return_status := okl_api.g_ret_sts_error;
903: okl_api.set_message (p_app_name => g_app_name,
904: p_msg_name => 'OKL_LLA_NO_STRM_TMPLTC'
905: );
906: RAISE okl_api.g_exception_error;
907: END IF;
902: x_return_status := okl_api.g_ret_sts_error;
903: okl_api.set_message (p_app_name => g_app_name,
904: p_msg_name => 'OKL_LLA_NO_STRM_TMPLTC'
905: );
906: RAISE okl_api.g_exception_error;
907: END IF;
908:
909: okl_contract_status_pub.get_contract_status (l_api_version,
910: p_init_msg_list,
918: p_chr_id
919: );
920:
921: IF (l_isallowed = FALSE) THEN
922: x_return_status := okl_api.g_ret_sts_success;
923: okl_api.set_message (p_app_name => g_app_name,
924: p_msg_name => 'OKL_LLA_CTGEN_STRMS'
925: );
926: RAISE okl_api.g_exception_error;
919: );
920:
921: IF (l_isallowed = FALSE) THEN
922: x_return_status := okl_api.g_ret_sts_success;
923: okl_api.set_message (p_app_name => g_app_name,
924: p_msg_name => 'OKL_LLA_CTGEN_STRMS'
925: );
926: RAISE okl_api.g_exception_error;
927: END IF;
922: x_return_status := okl_api.g_ret_sts_success;
923: okl_api.set_message (p_app_name => g_app_name,
924: p_msg_name => 'OKL_LLA_CTGEN_STRMS'
925: );
926: RAISE okl_api.g_exception_error;
927: END IF;
928:
929: --Bug# 4023501: start - Phasing out Stream generation profile option
930: okl_la_stream_pub.gen_intr_extr_stream
941: x_trx_status => x_trx_status
942: );
943:
944: -- check if activity started successfully
945: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
946: RAISE okl_api.g_exception_unexpected_error;
947: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
948: RAISE okl_api.g_exception_error;
949: END IF;
942: );
943:
944: -- check if activity started successfully
945: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
946: RAISE okl_api.g_exception_unexpected_error;
947: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
948: RAISE okl_api.g_exception_error;
949: END IF;
950:
943:
944: -- check if activity started successfully
945: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
946: RAISE okl_api.g_exception_unexpected_error;
947: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
948: RAISE okl_api.g_exception_error;
949: END IF;
950:
951: --Bug# 4023501: end
944: -- check if activity started successfully
945: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
946: RAISE okl_api.g_exception_unexpected_error;
947: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
948: RAISE okl_api.g_exception_error;
949: END IF;
950:
951: --Bug# 4023501: end
952: x_return_status := okl_api.g_ret_sts_success;
948: RAISE okl_api.g_exception_error;
949: END IF;
950:
951: --Bug# 4023501: end
952: x_return_status := okl_api.g_ret_sts_success;
953: okl_api.set_message (p_app_name => g_app_name,
954: p_msg_name => 'OKL_LLA_ST_SUCCESS'
955: );
956: --raise SUCCESS_MESSAGE;
949: END IF;
950:
951: --Bug# 4023501: end
952: x_return_status := okl_api.g_ret_sts_success;
953: okl_api.set_message (p_app_name => g_app_name,
954: p_msg_name => 'OKL_LLA_ST_SUCCESS'
955: );
956: --raise SUCCESS_MESSAGE;
957:
960: -- Code change to enable Business Event
961: */
962: raise_business_event (x_return_status => x_return_status);
963:
964: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
965: RAISE okl_api.g_exception_unexpected_error;
966: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
967: RAISE okl_api.g_exception_error;
968: END IF;
961: */
962: raise_business_event (x_return_status => x_return_status);
963:
964: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
965: RAISE okl_api.g_exception_unexpected_error;
966: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
967: RAISE okl_api.g_exception_error;
968: END IF;
969:
962: raise_business_event (x_return_status => x_return_status);
963:
964: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
965: RAISE okl_api.g_exception_unexpected_error;
966: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
967: RAISE okl_api.g_exception_error;
968: END IF;
969:
970: /*
963:
964: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
965: RAISE okl_api.g_exception_unexpected_error;
966: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
967: RAISE okl_api.g_exception_error;
968: END IF;
969:
970: /*
971: -- mvasudev, 08/30/2004
970: /*
971: -- mvasudev, 08/30/2004
972: -- END, Code change to enable Business Event
973: */
974: okl_api.end_activity (x_msg_count => x_msg_count,
975: x_msg_data => x_msg_data
976: );
977: EXCEPTION
978: WHEN okl_api.g_exception_error THEN
974: okl_api.end_activity (x_msg_count => x_msg_count,
975: x_msg_data => x_msg_data
976: );
977: EXCEPTION
978: WHEN okl_api.g_exception_error THEN
979: x_return_status :=
980: okl_api.handle_exceptions
981: (p_api_name => l_api_name,
982: p_pkg_name => g_pkg_name,
976: );
977: EXCEPTION
978: WHEN okl_api.g_exception_error THEN
979: x_return_status :=
980: okl_api.handle_exceptions
981: (p_api_name => l_api_name,
982: p_pkg_name => g_pkg_name,
983: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
984: x_msg_count => x_msg_count,
979: x_return_status :=
980: okl_api.handle_exceptions
981: (p_api_name => l_api_name,
982: p_pkg_name => g_pkg_name,
983: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
984: x_msg_count => x_msg_count,
985: x_msg_data => x_msg_data,
986: p_api_type => g_api_type
987: );
984: x_msg_count => x_msg_count,
985: x_msg_data => x_msg_data,
986: p_api_type => g_api_type
987: );
988: WHEN okl_api.g_exception_unexpected_error THEN
989: x_return_status :=
990: okl_api.handle_exceptions
991: (p_api_name => l_api_name,
992: p_pkg_name => g_pkg_name,
986: p_api_type => g_api_type
987: );
988: WHEN okl_api.g_exception_unexpected_error THEN
989: x_return_status :=
990: okl_api.handle_exceptions
991: (p_api_name => l_api_name,
992: p_pkg_name => g_pkg_name,
993: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
994: x_msg_count => x_msg_count,
989: x_return_status :=
990: okl_api.handle_exceptions
991: (p_api_name => l_api_name,
992: p_pkg_name => g_pkg_name,
993: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
994: x_msg_count => x_msg_count,
995: x_msg_data => x_msg_data,
996: p_api_type => g_api_type
997: );
996: p_api_type => g_api_type
997: );
998: WHEN OTHERS THEN
999: x_return_status :=
1000: okl_api.handle_exceptions (p_api_name => l_api_name,
1001: p_pkg_name => g_pkg_name,
1002: p_exc_name => 'OTHERS',
1003: x_msg_count => x_msg_count,
1004: x_msg_data => x_msg_data,
1025: p_chr_id IN VARCHAR2
1026: ) IS
1027: l_api_name CONSTANT VARCHAR2 (30) := 'APPROVE_CONTRACT';
1028: l_api_version CONSTANT NUMBER := 1.0;
1029: l_return_status VARCHAR2 (1) := okl_api.g_ret_sts_success;
1030: l_isallowed BOOLEAN;
1031: l_passstatus VARCHAR2 (100) := 'APPROVED';
1032: l_failstatus VARCHAR2 (100) := 'PENDING_APPROVAL';
1033: l_event VARCHAR2 (100)
1042: WHERE ID = chrid;
1043:
1044: l_sts_rec l_sts_csr%ROWTYPE;
1045: BEGIN
1046: l_return_status := okl_api.g_ret_sts_success;
1047: x_return_status :=
1048: okl_api.start_activity (p_api_name => l_api_name,
1049: p_pkg_name => g_pkg_name,
1050: p_init_msg_list => p_init_msg_list,
1044: l_sts_rec l_sts_csr%ROWTYPE;
1045: BEGIN
1046: l_return_status := okl_api.g_ret_sts_success;
1047: x_return_status :=
1048: okl_api.start_activity (p_api_name => l_api_name,
1049: p_pkg_name => g_pkg_name,
1050: p_init_msg_list => p_init_msg_list,
1051: l_api_version => l_api_version,
1052: p_api_version => p_api_version,
1054: x_return_status => x_return_status
1055: );
1056:
1057: -- check if activity started successfully
1058: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1059: RAISE okl_api.g_exception_unexpected_error;
1060: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1061: RAISE okl_api.g_exception_error;
1062: END IF;
1055: );
1056:
1057: -- check if activity started successfully
1058: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1059: RAISE okl_api.g_exception_unexpected_error;
1060: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1061: RAISE okl_api.g_exception_error;
1062: END IF;
1063:
1056:
1057: -- check if activity started successfully
1058: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1059: RAISE okl_api.g_exception_unexpected_error;
1060: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1061: RAISE okl_api.g_exception_error;
1062: END IF;
1063:
1064: OPEN l_sts_csr (TO_NUMBER (p_chr_id));
1057: -- check if activity started successfully
1058: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1059: RAISE okl_api.g_exception_unexpected_error;
1060: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1061: RAISE okl_api.g_exception_error;
1062: END IF;
1063:
1064: OPEN l_sts_csr (TO_NUMBER (p_chr_id));
1065:
1080: p_chr_id
1081: );
1082:
1083: IF (l_isallowed = FALSE) THEN
1084: x_return_status := okl_api.g_ret_sts_success;
1085:
1086: IF (l_sts_rec.sts_code = 'APPROVED') THEN
1087: okl_api.set_message (p_app_name => g_app_name,
1088: p_msg_name => 'OKL_LLA_ALRDY_APPRVD'
1083: IF (l_isallowed = FALSE) THEN
1084: x_return_status := okl_api.g_ret_sts_success;
1085:
1086: IF (l_sts_rec.sts_code = 'APPROVED') THEN
1087: okl_api.set_message (p_app_name => g_app_name,
1088: p_msg_name => 'OKL_LLA_ALRDY_APPRVD'
1089: );
1090: ELSE
1091: okl_api.set_message (p_app_name => g_app_name,
1087: okl_api.set_message (p_app_name => g_app_name,
1088: p_msg_name => 'OKL_LLA_ALRDY_APPRVD'
1089: );
1090: ELSE
1091: okl_api.set_message (p_app_name => g_app_name,
1092: p_msg_name => 'OKL_LLA_NOT_COMPLETE'
1093: );
1094: END IF;
1095:
1092: p_msg_name => 'OKL_LLA_NOT_COMPLETE'
1093: );
1094: END IF;
1095:
1096: RAISE okl_api.g_exception_error;
1097: END IF;
1098:
1099: IF (l_return_status = okl_api.g_ret_sts_success) THEN
1100: --temp fix to set status to approved
1095:
1096: RAISE okl_api.g_exception_error;
1097: END IF;
1098:
1099: IF (l_return_status = okl_api.g_ret_sts_success) THEN
1100: --temp fix to set status to approved
1101: okl_contract_status_pub.update_contract_status (l_api_version,
1102: p_init_msg_list,
1103: x_return_status,
1106: 'APPROVED',
1107: p_chr_id
1108: );
1109:
1110: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1111: RAISE okl_api.g_exception_unexpected_error;
1112: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1113: RAISE okl_api.g_exception_error;
1114: END IF;
1107: p_chr_id
1108: );
1109:
1110: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1111: RAISE okl_api.g_exception_unexpected_error;
1112: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1113: RAISE okl_api.g_exception_error;
1114: END IF;
1115: ELSE
1108: );
1109:
1110: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1111: RAISE okl_api.g_exception_unexpected_error;
1112: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1113: RAISE okl_api.g_exception_error;
1114: END IF;
1115: ELSE
1116: okl_contract_status_pub.update_contract_status (l_api_version,
1109:
1110: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1111: RAISE okl_api.g_exception_unexpected_error;
1112: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1113: RAISE okl_api.g_exception_error;
1114: END IF;
1115: ELSE
1116: okl_contract_status_pub.update_contract_status (l_api_version,
1117: p_init_msg_list,
1121: l_failstatus,
1122: p_chr_id
1123: );
1124:
1125: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1126: RAISE okl_api.g_exception_unexpected_error;
1127: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1128: RAISE okl_api.g_exception_error;
1129: END IF;
1122: p_chr_id
1123: );
1124:
1125: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1126: RAISE okl_api.g_exception_unexpected_error;
1127: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1128: RAISE okl_api.g_exception_error;
1129: END IF;
1130: END IF;
1123: );
1124:
1125: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1126: RAISE okl_api.g_exception_unexpected_error;
1127: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1128: RAISE okl_api.g_exception_error;
1129: END IF;
1130: END IF;
1131:
1124:
1125: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1126: RAISE okl_api.g_exception_unexpected_error;
1127: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1128: RAISE okl_api.g_exception_error;
1129: END IF;
1130: END IF;
1131:
1132: --call to cascade status on to lines
1138: x_msg_data => x_msg_data,
1139: p_chr_id => p_chr_id
1140: );
1141:
1142: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1143: RAISE okl_api.g_exception_unexpected_error;
1144: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1145: RAISE okl_api.g_exception_error;
1146: END IF;
1139: p_chr_id => p_chr_id
1140: );
1141:
1142: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1143: RAISE okl_api.g_exception_unexpected_error;
1144: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1145: RAISE okl_api.g_exception_error;
1146: END IF;
1147:
1140: );
1141:
1142: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1143: RAISE okl_api.g_exception_unexpected_error;
1144: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1145: RAISE okl_api.g_exception_error;
1146: END IF;
1147:
1148: ---
1141:
1142: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1143: RAISE okl_api.g_exception_unexpected_error;
1144: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1145: RAISE okl_api.g_exception_error;
1146: END IF;
1147:
1148: ---
1149:
1157: p_chr_id => p_chr_id,
1158: p_call_mode => g_auto_approve
1159: );
1160:
1161: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1162: RAISE okl_api.g_exception_unexpected_error;
1163: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1164: RAISE okl_api.g_exception_error;
1165: END IF;
1158: p_call_mode => g_auto_approve
1159: );
1160:
1161: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1162: RAISE okl_api.g_exception_unexpected_error;
1163: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1164: RAISE okl_api.g_exception_error;
1165: END IF;
1166:
1159: );
1160:
1161: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1162: RAISE okl_api.g_exception_unexpected_error;
1163: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1164: RAISE okl_api.g_exception_error;
1165: END IF;
1166:
1167: ---
1160:
1161: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1162: RAISE okl_api.g_exception_unexpected_error;
1163: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1164: RAISE okl_api.g_exception_error;
1165: END IF;
1166:
1167: ---
1168: okl_api.end_activity (x_msg_count => x_msg_count,
1164: RAISE okl_api.g_exception_error;
1165: END IF;
1166:
1167: ---
1168: okl_api.end_activity (x_msg_count => x_msg_count,
1169: x_msg_data => x_msg_data
1170: );
1171: EXCEPTION
1172: WHEN okl_api.g_exception_error THEN
1168: okl_api.end_activity (x_msg_count => x_msg_count,
1169: x_msg_data => x_msg_data
1170: );
1171: EXCEPTION
1172: WHEN okl_api.g_exception_error THEN
1173: x_return_status :=
1174: okl_api.handle_exceptions
1175: (p_api_name => l_api_name,
1176: p_pkg_name => g_pkg_name,
1170: );
1171: EXCEPTION
1172: WHEN okl_api.g_exception_error THEN
1173: x_return_status :=
1174: okl_api.handle_exceptions
1175: (p_api_name => l_api_name,
1176: p_pkg_name => g_pkg_name,
1177: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1178: x_msg_count => x_msg_count,
1173: x_return_status :=
1174: okl_api.handle_exceptions
1175: (p_api_name => l_api_name,
1176: p_pkg_name => g_pkg_name,
1177: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1178: x_msg_count => x_msg_count,
1179: x_msg_data => x_msg_data,
1180: p_api_type => g_api_type
1181: );
1178: x_msg_count => x_msg_count,
1179: x_msg_data => x_msg_data,
1180: p_api_type => g_api_type
1181: );
1182: WHEN okl_api.g_exception_unexpected_error THEN
1183: x_return_status :=
1184: okl_api.handle_exceptions
1185: (p_api_name => l_api_name,
1186: p_pkg_name => g_pkg_name,
1180: p_api_type => g_api_type
1181: );
1182: WHEN okl_api.g_exception_unexpected_error THEN
1183: x_return_status :=
1184: okl_api.handle_exceptions
1185: (p_api_name => l_api_name,
1186: p_pkg_name => g_pkg_name,
1187: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1188: x_msg_count => x_msg_count,
1183: x_return_status :=
1184: okl_api.handle_exceptions
1185: (p_api_name => l_api_name,
1186: p_pkg_name => g_pkg_name,
1187: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1188: x_msg_count => x_msg_count,
1189: x_msg_data => x_msg_data,
1190: p_api_type => g_api_type
1191: );
1190: p_api_type => g_api_type
1191: );
1192: WHEN OTHERS THEN
1193: x_return_status :=
1194: okl_api.handle_exceptions (p_api_name => l_api_name,
1195: p_pkg_name => g_pkg_name,
1196: p_exc_name => 'OTHERS',
1197: x_msg_count => x_msg_count,
1198: x_msg_data => x_msg_data,
1220: p_chr_id IN VARCHAR2
1221: ) IS
1222: l_api_name CONSTANT VARCHAR2 (30) := 'SUBMIT_FOR_APPROVAL';
1223: l_api_version CONSTANT NUMBER := 1.0;
1224: l_return_status VARCHAR2 (1) := okl_api.g_ret_sts_success;
1225: l_isallowed BOOLEAN;
1226: l_passstatus VARCHAR2 (100) := 'APPROVED';
1227: l_failstatus VARCHAR2 (100) := 'PENDING_APPROVAL';
1228: l_event VARCHAR2 (100)
1283: p_parameters => l_parameter_list
1284: );
1285: EXCEPTION
1286: WHEN OTHERS THEN
1287: x_return_status := okl_api.g_ret_sts_unexp_error;
1288: RAISE okl_api.g_exception_unexpected_error;
1289: END raise_business_event;
1290: /*
1291: -- mvasudev, 08/30/2004
1284: );
1285: EXCEPTION
1286: WHEN OTHERS THEN
1287: x_return_status := okl_api.g_ret_sts_unexp_error;
1288: RAISE okl_api.g_exception_unexpected_error;
1289: END raise_business_event;
1290: /*
1291: -- mvasudev, 08/30/2004
1292: -- END, PROCEDURE to enable Business Event
1291: -- mvasudev, 08/30/2004
1292: -- END, PROCEDURE to enable Business Event
1293: */
1294: BEGIN
1295: l_return_status := okl_api.g_ret_sts_success;
1296: x_return_status :=
1297: okl_api.start_activity (p_api_name => l_api_name,
1298: p_pkg_name => g_pkg_name,
1299: p_init_msg_list => p_init_msg_list,
1293: */
1294: BEGIN
1295: l_return_status := okl_api.g_ret_sts_success;
1296: x_return_status :=
1297: okl_api.start_activity (p_api_name => l_api_name,
1298: p_pkg_name => g_pkg_name,
1299: p_init_msg_list => p_init_msg_list,
1300: l_api_version => l_api_version,
1301: p_api_version => p_api_version,
1303: x_return_status => x_return_status
1304: );
1305:
1306: -- check if activity started successfully
1307: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1308: RAISE okl_api.g_exception_unexpected_error;
1309: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1310: RAISE okl_api.g_exception_error;
1311: END IF;
1304: );
1305:
1306: -- check if activity started successfully
1307: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1308: RAISE okl_api.g_exception_unexpected_error;
1309: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1310: RAISE okl_api.g_exception_error;
1311: END IF;
1312:
1305:
1306: -- check if activity started successfully
1307: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1308: RAISE okl_api.g_exception_unexpected_error;
1309: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1310: RAISE okl_api.g_exception_error;
1311: END IF;
1312:
1313: --Bug# 3556674
1306: -- check if activity started successfully
1307: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1308: RAISE okl_api.g_exception_unexpected_error;
1309: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1310: RAISE okl_api.g_exception_error;
1311: END IF;
1312:
1313: --Bug# 3556674
1314: validate_chr_id (p_chr_id => p_chr_id,
1314: validate_chr_id (p_chr_id => p_chr_id,
1315: x_return_status => x_return_status
1316: );
1317:
1318: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1319: RAISE okl_api.g_exception_unexpected_error;
1320: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1321: RAISE okl_api.g_exception_error;
1322: END IF;
1315: x_return_status => x_return_status
1316: );
1317:
1318: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1319: RAISE okl_api.g_exception_unexpected_error;
1320: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1321: RAISE okl_api.g_exception_error;
1322: END IF;
1323:
1316: );
1317:
1318: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1319: RAISE okl_api.g_exception_unexpected_error;
1320: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1321: RAISE okl_api.g_exception_error;
1322: END IF;
1323:
1324: --Bug# 3556674
1317:
1318: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1319: RAISE okl_api.g_exception_unexpected_error;
1320: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1321: RAISE okl_api.g_exception_error;
1322: END IF;
1323:
1324: --Bug# 3556674
1325: OPEN l_sts_csr (TO_NUMBER (p_chr_id));
1341: p_chr_id
1342: );
1343:
1344: IF (l_isallowed = FALSE) THEN
1345: x_return_status := okl_api.g_ret_sts_success;
1346:
1347: IF (l_sts_rec.sts_code = 'APPROVED') THEN
1348: okl_api.set_message (p_app_name => g_app_name,
1349: p_msg_name => 'OKL_LLA_ALRDY_APPRVD'
1344: IF (l_isallowed = FALSE) THEN
1345: x_return_status := okl_api.g_ret_sts_success;
1346:
1347: IF (l_sts_rec.sts_code = 'APPROVED') THEN
1348: okl_api.set_message (p_app_name => g_app_name,
1349: p_msg_name => 'OKL_LLA_ALRDY_APPRVD'
1350: );
1351: ELSE
1352: --Bug# 4502754
1364: --Bug# 4874338
1365: ( l_chk_template_rec.template_yn = 'Y'
1366: AND l_chk_template_rec.template_type_code = 'LEASEAPP'
1367: ) THEN
1368: okl_api.set_message (p_app_name => g_app_name,
1369: p_msg_name => 'OKL_LLA_NOT_PASSED'
1370: );
1371: ELSE
1372: okl_api.set_message (p_app_name => g_app_name,
1368: okl_api.set_message (p_app_name => g_app_name,
1369: p_msg_name => 'OKL_LLA_NOT_PASSED'
1370: );
1371: ELSE
1372: okl_api.set_message (p_app_name => g_app_name,
1373: p_msg_name => 'OKL_LLA_NOT_COMPLETE'
1374: );
1375: END IF;
1376: END IF;
1374: );
1375: END IF;
1376: END IF;
1377:
1378: RAISE okl_api.g_exception_error;
1379: END IF;
1380:
1381: -- start: cklee okl.h: leaase app IA Authoring
1382: -- update item function validation results
1404: raise_business_event (p_event_name => g_wf_evt_chr_list_validated,
1405: x_return_status => x_return_status
1406: );
1407:
1408: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1409: RAISE okl_api.g_exception_unexpected_error;
1410: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1411: RAISE okl_api.g_exception_error;
1412: END IF;
1405: x_return_status => x_return_status
1406: );
1407:
1408: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1409: RAISE okl_api.g_exception_unexpected_error;
1410: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1411: RAISE okl_api.g_exception_error;
1412: END IF;
1413:
1406: );
1407:
1408: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1409: RAISE okl_api.g_exception_unexpected_error;
1410: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1411: RAISE okl_api.g_exception_error;
1412: END IF;
1413:
1414: /*
1407:
1408: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1409: RAISE okl_api.g_exception_unexpected_error;
1410: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1411: RAISE okl_api.g_exception_error;
1412: END IF;
1413:
1414: /*
1415: -- 21-Dec-2005 cklee Bug# 4901292
1421: fnd_profile.VALUE ('OKL_LEASE_CONTRACT_APPROVAL_PROCESS');
1422:
1423: IF NVL (l_approval_path, 'NONE') = 'NONE' THEN
1424: -- Change Status
1425: IF (l_return_status = okl_api.g_ret_sts_success) THEN
1426: --temp fix to set status to approved
1427: okl_contract_status_pub.update_contract_status (l_api_version,
1428: p_init_msg_list,
1429: x_return_status,
1432: 'APPROVED',
1433: p_chr_id
1434: );
1435:
1436: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1437: RAISE okl_api.g_exception_unexpected_error;
1438: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1439: RAISE okl_api.g_exception_error;
1440: END IF;
1433: p_chr_id
1434: );
1435:
1436: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1437: RAISE okl_api.g_exception_unexpected_error;
1438: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1439: RAISE okl_api.g_exception_error;
1440: END IF;
1441: ELSE
1434: );
1435:
1436: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1437: RAISE okl_api.g_exception_unexpected_error;
1438: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1439: RAISE okl_api.g_exception_error;
1440: END IF;
1441: ELSE
1442: okl_contract_status_pub.update_contract_status (l_api_version,
1435:
1436: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1437: RAISE okl_api.g_exception_unexpected_error;
1438: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1439: RAISE okl_api.g_exception_error;
1440: END IF;
1441: ELSE
1442: okl_contract_status_pub.update_contract_status (l_api_version,
1443: p_init_msg_list,
1447: l_failstatus,
1448: p_chr_id
1449: );
1450:
1451: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1452: RAISE okl_api.g_exception_unexpected_error;
1453: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1454: RAISE okl_api.g_exception_error;
1455: END IF;
1448: p_chr_id
1449: );
1450:
1451: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1452: RAISE okl_api.g_exception_unexpected_error;
1453: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1454: RAISE okl_api.g_exception_error;
1455: END IF;
1456: END IF;
1449: );
1450:
1451: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1452: RAISE okl_api.g_exception_unexpected_error;
1453: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1454: RAISE okl_api.g_exception_error;
1455: END IF;
1456: END IF;
1457:
1450:
1451: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1452: RAISE okl_api.g_exception_unexpected_error;
1453: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1454: RAISE okl_api.g_exception_error;
1455: END IF;
1456: END IF;
1457:
1458: --call to cascade status on to lines
1464: x_msg_data => x_msg_data,
1465: p_chr_id => p_chr_id
1466: );
1467:
1468: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1469: RAISE okl_api.g_exception_unexpected_error;
1470: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1471: RAISE okl_api.g_exception_error;
1472: END IF;
1465: p_chr_id => p_chr_id
1466: );
1467:
1468: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1469: RAISE okl_api.g_exception_unexpected_error;
1470: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1471: RAISE okl_api.g_exception_error;
1472: END IF;
1473:
1466: );
1467:
1468: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1469: RAISE okl_api.g_exception_unexpected_error;
1470: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1471: RAISE okl_api.g_exception_error;
1472: END IF;
1473:
1474: ---
1467:
1468: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1469: RAISE okl_api.g_exception_unexpected_error;
1470: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1471: RAISE okl_api.g_exception_error;
1472: END IF;
1473:
1474: ---
1475:
1483: p_chr_id => p_chr_id,
1484: p_call_mode => g_auto_approve
1485: );
1486:
1487: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1488: RAISE okl_api.g_exception_unexpected_error;
1489: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1490: RAISE okl_api.g_exception_error;
1491: END IF;
1484: p_call_mode => g_auto_approve
1485: );
1486:
1487: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1488: RAISE okl_api.g_exception_unexpected_error;
1489: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1490: RAISE okl_api.g_exception_error;
1491: END IF;
1492: ---
1485: );
1486:
1487: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1488: RAISE okl_api.g_exception_unexpected_error;
1489: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1490: RAISE okl_api.g_exception_error;
1491: END IF;
1492: ---
1493: ELSIF NVL (l_approval_path, 'NONE') IN ('AME', 'WF') THEN
1486:
1487: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1488: RAISE okl_api.g_exception_unexpected_error;
1489: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1490: RAISE okl_api.g_exception_error;
1491: END IF;
1492: ---
1493: ELSIF NVL (l_approval_path, 'NONE') IN ('AME', 'WF') THEN
1494: okl_book_controller_pvt.update_book_controller_trx
1501: p_prog_short_name => okl_book_controller_pvt.g_submit_contract,
1502: p_progress_status => okl_book_controller_pvt.g_prog_sts_running
1503: );
1504:
1505: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1506: RAISE okl_api.g_exception_unexpected_error;
1507: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1508: RAISE okl_api.g_exception_error;
1509: END IF;
1502: p_progress_status => okl_book_controller_pvt.g_prog_sts_running
1503: );
1504:
1505: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1506: RAISE okl_api.g_exception_unexpected_error;
1507: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1508: RAISE okl_api.g_exception_error;
1509: END IF;
1510:
1503: );
1504:
1505: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1506: RAISE okl_api.g_exception_unexpected_error;
1507: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1508: RAISE okl_api.g_exception_error;
1509: END IF;
1510:
1511: okl_kbk_approvals_wf.raise_approval_event
1504:
1505: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1506: RAISE okl_api.g_exception_unexpected_error;
1507: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1508: RAISE okl_api.g_exception_error;
1509: END IF;
1510:
1511: okl_kbk_approvals_wf.raise_approval_event
1512: (p_api_version => p_api_version,
1516: x_msg_data => x_msg_data,
1517: p_contract_id => p_chr_id
1518: );
1519:
1520: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1521: RAISE okl_api.g_exception_unexpected_error;
1522: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1523: RAISE okl_api.g_exception_error;
1524: END IF;
1517: p_contract_id => p_chr_id
1518: );
1519:
1520: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1521: RAISE okl_api.g_exception_unexpected_error;
1522: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1523: RAISE okl_api.g_exception_error;
1524: END IF;
1525: ---
1518: );
1519:
1520: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1521: RAISE okl_api.g_exception_unexpected_error;
1522: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1523: RAISE okl_api.g_exception_error;
1524: END IF;
1525: ---
1526: END IF;
1519:
1520: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1521: RAISE okl_api.g_exception_unexpected_error;
1522: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1523: RAISE okl_api.g_exception_error;
1524: END IF;
1525: ---
1526: END IF;
1527:
1534: x_return_status => x_return_status
1535: );
1536:
1537: -- END 21-Dec-2005 cklee Bug# 4901292
1538: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1539: RAISE okl_api.g_exception_unexpected_error;
1540: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1541: RAISE okl_api.g_exception_error;
1542: END IF;
1535: );
1536:
1537: -- END 21-Dec-2005 cklee Bug# 4901292
1538: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1539: RAISE okl_api.g_exception_unexpected_error;
1540: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1541: RAISE okl_api.g_exception_error;
1542: END IF;
1543:
1536:
1537: -- END 21-Dec-2005 cklee Bug# 4901292
1538: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1539: RAISE okl_api.g_exception_unexpected_error;
1540: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1541: RAISE okl_api.g_exception_error;
1542: END IF;
1543:
1544: /*
1537: -- END 21-Dec-2005 cklee Bug# 4901292
1538: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1539: RAISE okl_api.g_exception_unexpected_error;
1540: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1541: RAISE okl_api.g_exception_error;
1542: END IF;
1543:
1544: /*
1545: -- mvasudev, 08/30/2004
1544: /*
1545: -- mvasudev, 08/30/2004
1546: -- END, Code change to enable Business Event
1547: */
1548: okl_api.end_activity (x_msg_count => x_msg_count,
1549: x_msg_data => x_msg_data
1550: );
1551: EXCEPTION
1552: WHEN okl_api.g_exception_error THEN
1548: okl_api.end_activity (x_msg_count => x_msg_count,
1549: x_msg_data => x_msg_data
1550: );
1551: EXCEPTION
1552: WHEN okl_api.g_exception_error THEN
1553: x_return_status :=
1554: okl_api.handle_exceptions
1555: (p_api_name => l_api_name,
1556: p_pkg_name => g_pkg_name,
1550: );
1551: EXCEPTION
1552: WHEN okl_api.g_exception_error THEN
1553: x_return_status :=
1554: okl_api.handle_exceptions
1555: (p_api_name => l_api_name,
1556: p_pkg_name => g_pkg_name,
1557: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1558: x_msg_count => x_msg_count,
1553: x_return_status :=
1554: okl_api.handle_exceptions
1555: (p_api_name => l_api_name,
1556: p_pkg_name => g_pkg_name,
1557: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1558: x_msg_count => x_msg_count,
1559: x_msg_data => x_msg_data,
1560: p_api_type => g_api_type
1561: );
1558: x_msg_count => x_msg_count,
1559: x_msg_data => x_msg_data,
1560: p_api_type => g_api_type
1561: );
1562: WHEN okl_api.g_exception_unexpected_error THEN
1563: x_return_status :=
1564: okl_api.handle_exceptions
1565: (p_api_name => l_api_name,
1566: p_pkg_name => g_pkg_name,
1560: p_api_type => g_api_type
1561: );
1562: WHEN okl_api.g_exception_unexpected_error THEN
1563: x_return_status :=
1564: okl_api.handle_exceptions
1565: (p_api_name => l_api_name,
1566: p_pkg_name => g_pkg_name,
1567: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1568: x_msg_count => x_msg_count,
1563: x_return_status :=
1564: okl_api.handle_exceptions
1565: (p_api_name => l_api_name,
1566: p_pkg_name => g_pkg_name,
1567: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1568: x_msg_count => x_msg_count,
1569: x_msg_data => x_msg_data,
1570: p_api_type => g_api_type
1571: );
1570: p_api_type => g_api_type
1571: );
1572: WHEN OTHERS THEN
1573: x_return_status :=
1574: okl_api.handle_exceptions (p_api_name => l_api_name,
1575: p_pkg_name => g_pkg_name,
1576: p_exc_name => 'OTHERS',
1577: x_msg_count => x_msg_count,
1578: x_msg_data => x_msg_data,
1602: p_call_mode IN VARCHAR2 DEFAULT NULL
1603: ) IS
1604: l_api_name CONSTANT VARCHAR2 (30) := 'POST_APPROVAL_PROCESS';
1605: l_api_version CONSTANT NUMBER := 1.0;
1606: l_return_status VARCHAR2 (1) := okl_api.g_ret_sts_success;
1607:
1608: CURSOR l_sts_csr (chrid NUMBER) IS
1609: SELECT sts_code,
1610: NVL (orig_system_source_code, 'XXX') src_code
1814: AND NVL (active_flag, 'N') = 'N';
1815:
1816: l_exists VARCHAR2 (1) DEFAULT 'N';
1817: BEGIN
1818: l_return_status := okl_api.g_ret_sts_success;
1819: x_return_status :=
1820: okl_api.start_activity (p_api_name => l_api_name,
1821: p_pkg_name => g_pkg_name,
1822: p_init_msg_list => p_init_msg_list,
1816: l_exists VARCHAR2 (1) DEFAULT 'N';
1817: BEGIN
1818: l_return_status := okl_api.g_ret_sts_success;
1819: x_return_status :=
1820: okl_api.start_activity (p_api_name => l_api_name,
1821: p_pkg_name => g_pkg_name,
1822: p_init_msg_list => p_init_msg_list,
1823: l_api_version => l_api_version,
1824: p_api_version => p_api_version,
1826: x_return_status => x_return_status
1827: );
1828:
1829: -- check if activity started successfully
1830: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1831: RAISE okl_api.g_exception_unexpected_error;
1832: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1833: RAISE okl_api.g_exception_error;
1834: END IF;
1827: );
1828:
1829: -- check if activity started successfully
1830: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1831: RAISE okl_api.g_exception_unexpected_error;
1832: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1833: RAISE okl_api.g_exception_error;
1834: END IF;
1835:
1828:
1829: -- check if activity started successfully
1830: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1831: RAISE okl_api.g_exception_unexpected_error;
1832: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1833: RAISE okl_api.g_exception_error;
1834: END IF;
1835:
1836: --Bug# 3257597 : 11.5.10 OKS Rules migration impact :
1829: -- check if activity started successfully
1830: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1831: RAISE okl_api.g_exception_unexpected_error;
1832: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1833: RAISE okl_api.g_exception_error;
1834: END IF;
1835:
1836: --Bug# 3257597 : 11.5.10 OKS Rules migration impact :
1837: l_oks_rulemig_exists := 'N';
1871: l_event,
1872: p_chr_id );
1873:
1874: if( l_isAllowed = FALSE ) then
1875: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1876:
1877:
1878: if ( l_sts_rec.sts_code = 'APPROVED') Then
1879: OKL_API.set_message(
1875: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1876:
1877:
1878: if ( l_sts_rec.sts_code = 'APPROVED') Then
1879: OKL_API.set_message(
1880: p_app_name => G_APP_NAME,
1881: p_msg_name => 'OKL_LLA_ALRDY_APPRVD');
1882: Else
1883: OKL_API.set_message(
1879: OKL_API.set_message(
1880: p_app_name => G_APP_NAME,
1881: p_msg_name => 'OKL_LLA_ALRDY_APPRVD');
1882: Else
1883: OKL_API.set_message(
1884: p_app_name => G_APP_NAME,
1885: p_msg_name => 'OKL_LLA_NOT_COMPLETE');
1886: End If;
1887:
1884: p_app_name => G_APP_NAME,
1885: p_msg_name => 'OKL_LLA_NOT_COMPLETE');
1886: End If;
1887:
1888: RAISE OKL_API.G_EXCEPTION_ERROR;
1889: end if;
1890:
1891: -- Change Status
1892: IF(l_return_status = Okl_Api.G_RET_STS_SUCCESS) THEN
1888: RAISE OKL_API.G_EXCEPTION_ERROR;
1889: end if;
1890:
1891: -- Change Status
1892: IF(l_return_status = Okl_Api.G_RET_STS_SUCCESS) THEN
1893: --temp fix to set status to approved
1894: okl_contract_status_pub.update_contract_status(
1895: l_api_version,
1896: p_init_msg_list,
1898: x_msg_count,
1899: x_msg_data,
1900: 'APPROVED',
1901: p_chr_id );
1902: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1903: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1904: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1905: RAISE Okl_Api.G_EXCEPTION_ERROR;
1906: END IF;
1899: x_msg_data,
1900: 'APPROVED',
1901: p_chr_id );
1902: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1903: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1904: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1905: RAISE Okl_Api.G_EXCEPTION_ERROR;
1906: END IF;
1907: ELSE
1900: 'APPROVED',
1901: p_chr_id );
1902: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1903: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1904: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1905: RAISE Okl_Api.G_EXCEPTION_ERROR;
1906: END IF;
1907: ELSE
1908: okl_contract_status_pub.update_contract_status(
1901: p_chr_id );
1902: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1903: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1904: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1905: RAISE Okl_Api.G_EXCEPTION_ERROR;
1906: END IF;
1907: ELSE
1908: okl_contract_status_pub.update_contract_status(
1909: l_api_version,
1912: x_msg_count,
1913: x_msg_data,
1914: l_failStatus,
1915: p_chr_id );
1916: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1917: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1918: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1919: RAISE Okl_Api.G_EXCEPTION_ERROR;
1920: END IF;
1913: x_msg_data,
1914: l_failStatus,
1915: p_chr_id );
1916: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1917: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1918: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1919: RAISE Okl_Api.G_EXCEPTION_ERROR;
1920: END IF;
1921: END IF;
1914: l_failStatus,
1915: p_chr_id );
1916: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1917: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1918: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1919: RAISE Okl_Api.G_EXCEPTION_ERROR;
1920: END IF;
1921: END IF;
1922:
1915: p_chr_id );
1916: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1917: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1918: ELSIF (x_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1919: RAISE Okl_Api.G_EXCEPTION_ERROR;
1920: END IF;
1921: END IF;
1922:
1923: --call to cascade status on to lines
1928: x_msg_count => x_msg_count,
1929: x_msg_data => x_msg_data,
1930: p_chr_id => p_chr_id);
1931:
1932: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1934: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1935: RAISE OKL_API.G_EXCEPTION_ERROR;
1936: END IF;
1929: x_msg_data => x_msg_data,
1930: p_chr_id => p_chr_id);
1931:
1932: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1934: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1935: RAISE OKL_API.G_EXCEPTION_ERROR;
1936: END IF;
1937: ---
1930: p_chr_id => p_chr_id);
1931:
1932: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1934: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1935: RAISE OKL_API.G_EXCEPTION_ERROR;
1936: END IF;
1937: ---
1938: --------------------------------------------------------------------------------*/
1931:
1932: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1934: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1935: RAISE OKL_API.G_EXCEPTION_ERROR;
1936: END IF;
1937: ---
1938: --------------------------------------------------------------------------------*/
1939: --Bug# 2566822 : End of commented code
1942: /*---------------------------------------------------------------------------
1943: IF (( l_sts_rec.src_code = 'XXX') OR
1944: ( l_sts_rec.src_code = 'OKL_REBOOK' ) OR
1945: ( l_sts_rec.src_code = 'OKC_HDR' ) )THEN
1946: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1947:
1948:
1949: COMMIT;
1950: x_return_status := OKL_API.START_ACTIVITY(
1946: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1947:
1948:
1949: COMMIT;
1950: x_return_status := OKL_API.START_ACTIVITY(
1951: p_api_name => l_api_name,
1952: p_pkg_name => g_pkg_name,
1953: p_init_msg_list => p_init_msg_list,
1954: l_api_version => l_api_version,
1956: p_api_type => G_API_TYPE,
1957: x_return_status => x_return_status);
1958:
1959: -- check if activity started successfully
1960: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1963: RAISE OKL_API.G_EXCEPTION_ERROR;
1964: END IF;
1957: x_return_status => x_return_status);
1958:
1959: -- check if activity started successfully
1960: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1963: RAISE OKL_API.G_EXCEPTION_ERROR;
1964: END IF;
1965:
1958:
1959: -- check if activity started successfully
1960: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1963: RAISE OKL_API.G_EXCEPTION_ERROR;
1964: END IF;
1965:
1966: END IF;
1959: -- check if activity started successfully
1960: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1963: RAISE OKL_API.G_EXCEPTION_ERROR;
1964: END IF;
1965:
1966: END IF;
1967: -------------------------------------------------------------------*/
1968:
1969: -- Bug# 3800843 - Changed p_api_version from '1.0' to p_api_version
1970: okl_service_integration_pub.get_service_link_line
1971: (p_api_version => p_api_version,
1972: p_init_msg_list => okl_api.g_false,
1973: x_return_status => x_return_status,
1974: x_msg_count => x_msg_count,
1975: x_msg_data => x_msg_data,
1976: p_lease_contract_id => p_chr_id,
1977: x_link_line_tbl => x_link_line_tbl,
1978: x_service_contract_id => x_service_contract_id
1979: );
1980:
1981: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1982: RAISE okl_api.g_exception_unexpected_error;
1983: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1984: RAISE okl_api.g_exception_error;
1985: END IF;
1978: x_service_contract_id => x_service_contract_id
1979: );
1980:
1981: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1982: RAISE okl_api.g_exception_unexpected_error;
1983: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1984: RAISE okl_api.g_exception_error;
1985: END IF;
1986:
1979: );
1980:
1981: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1982: RAISE okl_api.g_exception_unexpected_error;
1983: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1984: RAISE okl_api.g_exception_error;
1985: END IF;
1986:
1987: j := 0;
1980:
1981: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1982: RAISE okl_api.g_exception_unexpected_error;
1983: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1984: RAISE okl_api.g_exception_error;
1985: END IF;
1986:
1987: j := 0;
1988:
2050: INTO l_name_rec2;
2051:
2052: CLOSE l_name_csr;
2053:
2054: okl_api.set_message (p_app_name => g_app_name,
2055: p_msg_name => 'OKL_LLA_SERV_PMNT_FREQ',
2056: p_token1 => 'PMNT_FREQ1',
2057: p_token1_value => l_name_rec2.NAME,
2058: p_token2 => 'PMNT_FREQ2',
2062: IF ( (l_sts_rec.src_code = 'XXX')
2063: OR (l_sts_rec.src_code = 'OKL_REBOOK')
2064: OR (l_sts_rec.src_code = 'OKC_HDR')
2065: ) THEN
2066: RAISE okl_api.g_exception_error;
2067: END IF;
2068: END IF;
2069: END LOOP;
2070: --Bug# 3257592 : 11.5.10 OKS Rule Migration impact
2105: INTO l_name_rec2;
2106:
2107: CLOSE l_name_csr;
2108:
2109: okl_api.set_message (p_app_name => g_app_name,
2110: p_msg_name => 'OKL_LLA_SERV_PMNT_FREQ',
2111: p_token1 => 'PMNT_FREQ1',
2112: p_token1_value => l_name_rec2.NAME,
2113: p_token2 => 'PMNT_FREQ2',
2117: IF ( (l_sts_rec.src_code = 'XXX')
2118: OR (l_sts_rec.src_code = 'OKL_REBOOK')
2119: OR (l_sts_rec.src_code = 'OKC_HDR')
2120: ) THEN
2121: RAISE okl_api.g_exception_error;
2122: END IF;
2123: END IF;
2124: END LOOP;
2125: END IF;
2139:
2140: -- nikshah -- Bug # 5484903 start, replaced with new IF condition
2141: IF (NVL (l_check_date_rec.y, 'X') <> 'Y') THEN
2142: -- nikshah -- Bug # 5484903 end
2143: okl_api.set_message (p_app_name => g_app_name,
2144: p_msg_name => 'OKL_LLA_SERV_SCHDT_DATE'
2145: );
2146:
2147: IF ( (l_sts_rec.src_code = 'XXX')
2147: IF ( (l_sts_rec.src_code = 'XXX')
2148: OR (l_sts_rec.src_code = 'OKL_REBOOK')
2149: OR (l_sts_rec.src_code = 'OKC_HDR')
2150: ) THEN
2151: RAISE okl_api.g_exception_error;
2152: END IF;
2153: END IF;
2154: ELSIF l_oks_rulemig_exists = 'Y' THEN
2155: OPEN l_check_date_v10_csr (TO_NUMBER (l_finlne_rec.object1_id1),
2163:
2164: -- nikshah -- Bug # 5484903 start, replaced with new IF condition
2165: IF (NVL (l_check_date_v10_rec.y, 'X') <> 'Y') THEN
2166: -- nikshah -- Bug # 5484903 end
2167: okl_api.set_message (p_app_name => g_app_name,
2168: p_msg_name => 'OKL_LLA_SERV_SCHDT_DATE'
2169: );
2170:
2171: IF ( (l_sts_rec.src_code = 'XXX')
2171: IF ( (l_sts_rec.src_code = 'XXX')
2172: OR (l_sts_rec.src_code = 'OKL_REBOOK')
2173: OR (l_sts_rec.src_code = 'OKC_HDR')
2174: ) THEN
2175: RAISE okl_api.g_exception_error;
2176: END IF;
2177: END IF;
2178: END IF;
2179: --Bug# 3257593 End.
2202: x_msg_data => x_msg_data,
2203: p_khr_id => p_chr_id
2204: );
2205:
2206: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2207: RAISE okl_api.g_exception_unexpected_error;
2208: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2209: RAISE okl_api.g_exception_error;
2210: END IF;
2203: p_khr_id => p_chr_id
2204: );
2205:
2206: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2207: RAISE okl_api.g_exception_unexpected_error;
2208: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2209: RAISE okl_api.g_exception_error;
2210: END IF;
2211: ELSE
2204: );
2205:
2206: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2207: RAISE okl_api.g_exception_unexpected_error;
2208: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2209: RAISE okl_api.g_exception_error;
2210: END IF;
2211: ELSE
2212: okl_contract_book_pvt.approve_activate_contract
2205:
2206: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2207: RAISE okl_api.g_exception_unexpected_error;
2208: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2209: RAISE okl_api.g_exception_error;
2210: END IF;
2211: ELSE
2212: okl_contract_book_pvt.approve_activate_contract
2213: (p_api_version => p_api_version,
2218: p_chr_id => p_chr_id,
2219: x_process_status => l_process_status
2220: );
2221:
2222: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2223: RAISE okl_api.g_exception_unexpected_error;
2224: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2225: RAISE okl_api.g_exception_error;
2226: END IF;
2219: x_process_status => l_process_status
2220: );
2221:
2222: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2223: RAISE okl_api.g_exception_unexpected_error;
2224: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2225: RAISE okl_api.g_exception_error;
2226: END IF;
2227: END IF;
2220: );
2221:
2222: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2223: RAISE okl_api.g_exception_unexpected_error;
2224: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2225: RAISE okl_api.g_exception_error;
2226: END IF;
2227: END IF;
2228: END IF;
2221:
2222: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2223: RAISE okl_api.g_exception_unexpected_error;
2224: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2225: RAISE okl_api.g_exception_error;
2226: END IF;
2227: END IF;
2228: END IF;
2229:
2226: END IF;
2227: END IF;
2228: END IF;
2229:
2230: okl_api.end_activity (x_msg_count => x_msg_count,
2231: x_msg_data => x_msg_data
2232: );
2233: EXCEPTION
2234: WHEN okl_api.g_exception_error THEN
2230: okl_api.end_activity (x_msg_count => x_msg_count,
2231: x_msg_data => x_msg_data
2232: );
2233: EXCEPTION
2234: WHEN okl_api.g_exception_error THEN
2235: x_return_status :=
2236: okl_api.handle_exceptions
2237: (p_api_name => l_api_name,
2238: p_pkg_name => g_pkg_name,
2232: );
2233: EXCEPTION
2234: WHEN okl_api.g_exception_error THEN
2235: x_return_status :=
2236: okl_api.handle_exceptions
2237: (p_api_name => l_api_name,
2238: p_pkg_name => g_pkg_name,
2239: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2240: x_msg_count => x_msg_count,
2235: x_return_status :=
2236: okl_api.handle_exceptions
2237: (p_api_name => l_api_name,
2238: p_pkg_name => g_pkg_name,
2239: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2240: x_msg_count => x_msg_count,
2241: x_msg_data => x_msg_data,
2242: p_api_type => g_api_type
2243: );
2240: x_msg_count => x_msg_count,
2241: x_msg_data => x_msg_data,
2242: p_api_type => g_api_type
2243: );
2244: WHEN okl_api.g_exception_unexpected_error THEN
2245: x_return_status :=
2246: okl_api.handle_exceptions
2247: (p_api_name => l_api_name,
2248: p_pkg_name => g_pkg_name,
2242: p_api_type => g_api_type
2243: );
2244: WHEN okl_api.g_exception_unexpected_error THEN
2245: x_return_status :=
2246: okl_api.handle_exceptions
2247: (p_api_name => l_api_name,
2248: p_pkg_name => g_pkg_name,
2249: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2250: x_msg_count => x_msg_count,
2245: x_return_status :=
2246: okl_api.handle_exceptions
2247: (p_api_name => l_api_name,
2248: p_pkg_name => g_pkg_name,
2249: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2250: x_msg_count => x_msg_count,
2251: x_msg_data => x_msg_data,
2252: p_api_type => g_api_type
2253: );
2252: p_api_type => g_api_type
2253: );
2254: WHEN OTHERS THEN
2255: x_return_status :=
2256: okl_api.handle_exceptions (p_api_name => l_api_name,
2257: p_pkg_name => g_pkg_name,
2258: p_exc_name => 'OTHERS',
2259: x_msg_count => x_msg_count,
2260: x_msg_data => x_msg_data,
2268: -------------------------------------------------------------------------------
2269: PROCEDURE terminate_original_contract (
2270: p_api_version IN NUMBER,
2271: p_init_msg_list IN VARCHAR2
2272: DEFAULT okl_api.g_false,
2273: x_return_status OUT NOCOPY VARCHAR2,
2274: x_msg_count OUT NOCOPY NUMBER,
2275: x_msg_data OUT NOCOPY VARCHAR2,
2276: p_chr_id IN okc_k_headers_b.ID%TYPE,
2493: );
2494: END IF;
2495:
2496: x_termination_complete_yn := 'Y';
2497: x_return_status := okl_api.g_ret_sts_success;
2498: -- Call start_activity to create savepoint, check compatibility
2499: -- and initialize message list
2500: x_return_status :=
2501: okl_api.start_activity (l_api_name,
2497: x_return_status := okl_api.g_ret_sts_success;
2498: -- Call start_activity to create savepoint, check compatibility
2499: -- and initialize message list
2500: x_return_status :=
2501: okl_api.start_activity (l_api_name,
2502: p_init_msg_list,
2503: '_PVT',
2504: x_return_status
2505: );
2504: x_return_status
2505: );
2506:
2507: -- Check if activity started successfully
2508: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2509: RAISE okl_api.g_exception_unexpected_error;
2510: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2511: RAISE okl_api.g_exception_error;
2512: END IF;
2505: );
2506:
2507: -- Check if activity started successfully
2508: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2509: RAISE okl_api.g_exception_unexpected_error;
2510: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2511: RAISE okl_api.g_exception_error;
2512: END IF;
2513:
2506:
2507: -- Check if activity started successfully
2508: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2509: RAISE okl_api.g_exception_unexpected_error;
2510: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2511: RAISE okl_api.g_exception_error;
2512: END IF;
2513:
2514: -- To get the orig system id for
2507: -- Check if activity started successfully
2508: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2509: RAISE okl_api.g_exception_unexpected_error;
2510: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2511: RAISE okl_api.g_exception_error;
2512: END IF;
2513:
2514: -- To get the orig system id for
2515: OPEN get_orig_sys_code (p_chr_id => p_chr_id);
2519: ln_orig_system_id1,
2520: ln_orig_contract_number;
2521:
2522: IF get_orig_sys_code%NOTFOUND THEN
2523: okl_api.set_message (p_app_name => g_app_name,
2524: p_msg_name => 'OKL_LLA_NO_MATCHING_RECORD',
2525: p_token1 => g_col_name_token,
2526: p_token1_value => 'OKC_K_HEADERS_V.ID'
2527: );
2524: p_msg_name => 'OKL_LLA_NO_MATCHING_RECORD',
2525: p_token1 => g_col_name_token,
2526: p_token1_value => 'OKC_K_HEADERS_V.ID'
2527: );
2528: RAISE okl_api.g_exception_error;
2529: END IF;
2530:
2531: CLOSE get_orig_sys_code;
2532:
2591: 'x_return_status =' || x_return_status
2592: );
2593: END IF;
2594:
2595: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2596: RAISE okl_api.g_exception_unexpected_error;
2597: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2598: RAISE okl_api.g_exception_error;
2599: END IF;
2592: );
2593: END IF;
2594:
2595: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2596: RAISE okl_api.g_exception_unexpected_error;
2597: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2598: RAISE okl_api.g_exception_error;
2599: END IF;
2600:
2593: END IF;
2594:
2595: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2596: RAISE okl_api.g_exception_unexpected_error;
2597: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2598: RAISE okl_api.g_exception_error;
2599: END IF;
2600:
2601: l_quot_rec.khr_id := ln_orig_system_id1;
2594:
2595: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2596: RAISE okl_api.g_exception_unexpected_error;
2597: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2598: RAISE okl_api.g_exception_error;
2599: END IF;
2600:
2601: l_quot_rec.khr_id := ln_orig_system_id1;
2602: l_quot_rec.qtp_code := 'TER_RELEASE_WO_PURCHASE';
2748: 'x_return_status =' || x_return_status
2749: );
2750: END IF;
2751:
2752: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2753: RAISE okl_api.g_exception_unexpected_error;
2754: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2755: RAISE okl_api.g_exception_error;
2756: END IF;
2749: );
2750: END IF;
2751:
2752: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2753: RAISE okl_api.g_exception_unexpected_error;
2754: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2755: RAISE okl_api.g_exception_error;
2756: END IF;
2757:
2750: END IF;
2751:
2752: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2753: RAISE okl_api.g_exception_unexpected_error;
2754: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2755: RAISE okl_api.g_exception_error;
2756: END IF;
2757:
2758: l_term_rec.ID := x_quot_rec.ID;
2751:
2752: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2753: RAISE okl_api.g_exception_unexpected_error;
2754: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2755: RAISE okl_api.g_exception_error;
2756: END IF;
2757:
2758: l_term_rec.ID := x_quot_rec.ID;
2759: l_term_rec.accepted_yn := 'Y';
2799: 'x_return_status =' || x_return_status
2800: );
2801: END IF;
2802:
2803: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2804: RAISE okl_api.g_exception_unexpected_error;
2805: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2806: RAISE okl_api.g_exception_error;
2807: END IF;
2800: );
2801: END IF;
2802:
2803: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2804: RAISE okl_api.g_exception_unexpected_error;
2805: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2806: RAISE okl_api.g_exception_error;
2807: END IF;
2808:
2801: END IF;
2802:
2803: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2804: RAISE okl_api.g_exception_unexpected_error;
2805: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2806: RAISE okl_api.g_exception_error;
2807: END IF;
2808:
2809: -- Save Termination Quote Id on the Transaction row
2802:
2803: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2804: RAISE okl_api.g_exception_unexpected_error;
2805: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2806: RAISE okl_api.g_exception_error;
2807: END IF;
2808:
2809: -- Save Termination Quote Id on the Transaction row
2810: l_tcnv_rec.ID := taa_trx_rec.ID;
2849: 'x_return_status =' || x_return_status
2850: );
2851: END IF;
2852:
2853: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2854: RAISE okl_api.g_exception_unexpected_error;
2855: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2856: RAISE okl_api.g_exception_error;
2857: END IF;
2850: );
2851: END IF;
2852:
2853: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2854: RAISE okl_api.g_exception_unexpected_error;
2855: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2856: RAISE okl_api.g_exception_error;
2857: END IF;
2858: END IF; -- Termination quote exists Y/N
2851: END IF;
2852:
2853: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2854: RAISE okl_api.g_exception_unexpected_error;
2855: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2856: RAISE okl_api.g_exception_error;
2857: END IF;
2858: END IF; -- Termination quote exists Y/N
2859:
2852:
2853: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2854: RAISE okl_api.g_exception_unexpected_error;
2855: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2856: RAISE okl_api.g_exception_error;
2857: END IF;
2858: END IF; -- Termination quote exists Y/N
2859:
2860: -- Check if Termination process is Complete
2961: INTO quote_num_rec;
2962:
2963: CLOSE quote_num_csr;
2964:
2965: okl_api.set_message
2966: (p_app_name => g_app_name,
2967: p_msg_name => 'OKL_LLA_REL_TERMN_NO_COMPLETE',
2968: p_token1 => 'QUOTE_NUM',
2969: p_token1_value => quote_num_rec.quote_number
2968: p_token1 => 'QUOTE_NUM',
2969: p_token1_value => quote_num_rec.quote_number
2970: );
2971: x_termination_complete_yn := 'N';
2972: x_return_status := okl_api.g_ret_sts_success;
2973: END IF; --Termination process complete Y/N
2974:
2975: --Bug# 4515347
2976: --call process FA transactions
3036: || x_return_status
3037: );
3038: END IF;
3039:
3040: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3041: RAISE okl_api.g_exception_unexpected_error;
3042: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3043: RAISE okl_api.g_exception_error;
3044: END IF;
3037: );
3038: END IF;
3039:
3040: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3041: RAISE okl_api.g_exception_unexpected_error;
3042: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3043: RAISE okl_api.g_exception_error;
3044: END IF;
3045: END LOOP;
3038: END IF;
3039:
3040: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3041: RAISE okl_api.g_exception_unexpected_error;
3042: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3043: RAISE okl_api.g_exception_error;
3044: END IF;
3045: END LOOP;
3046:
3039:
3040: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3041: RAISE okl_api.g_exception_unexpected_error;
3042: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3043: RAISE okl_api.g_exception_error;
3044: END IF;
3045: END LOOP;
3046:
3047: -- Check if Process FA transations is Complete
3057: IF chk_off_lease_rec.tsu_code NOT IN
3058: ('PROCESSED', 'CANCELED')
3059: AND NVL (chk_off_lease_rec.hold_period_days, 0) = 0 THEN
3060: x_termination_complete_yn := 'N';
3061: x_return_status := okl_api.g_ret_sts_success;
3062: EXIT;
3063: ELSIF chk_off_lease_rec.tsu_code NOT IN
3064: ('PROCESSED', 'CANCELED')
3065: AND NVL (chk_off_lease_rec.hold_period_days, 0) > 0 THEN
3107: || x_return_status
3108: );
3109: END IF;
3110:
3111: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3112: RAISE okl_api.g_exception_unexpected_error;
3113: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3114: RAISE okl_api.g_exception_error;
3115: END IF;
3108: );
3109: END IF;
3110:
3111: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3112: RAISE okl_api.g_exception_unexpected_error;
3113: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3114: RAISE okl_api.g_exception_error;
3115: END IF;
3116: END IF;
3109: END IF;
3110:
3111: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3112: RAISE okl_api.g_exception_unexpected_error;
3113: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3114: RAISE okl_api.g_exception_error;
3115: END IF;
3116: END IF;
3117: END LOOP;
3110:
3111: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3112: RAISE okl_api.g_exception_unexpected_error;
3113: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3114: RAISE okl_api.g_exception_error;
3115: END IF;
3116: END IF;
3117: END LOOP;
3118:
3119: CLOSE chk_off_lease_csr;
3120: --Bug# 4631549
3121: --if chk_off_lease_rec.off_lease_exists = 'Y' then
3122: --x_termination_complete_yn := 'N';
3123: --x_return_status := OKL_API.G_RET_STS_SUCCESS;
3124: --end if;
3125: --Bug# 4631549
3126: END IF; -- Bug# 4515347
3127: ELSE
3124: --end if;
3125: --Bug# 4631549
3126: END IF; -- Bug# 4515347
3127: ELSE
3128: okl_api.set_message
3129: (p_app_name => g_app_name,
3130: p_msg_name => 'This Contract is not a Re-Lease Contract'
3131: );
3132: RAISE okl_api.g_exception_error;
3128: okl_api.set_message
3129: (p_app_name => g_app_name,
3130: p_msg_name => 'This Contract is not a Re-Lease Contract'
3131: );
3132: RAISE okl_api.g_exception_error;
3133: END IF;
3134:
3135: okl_api.end_activity (x_msg_count => x_msg_count,
3136: x_msg_data => x_msg_data
3131: );
3132: RAISE okl_api.g_exception_error;
3133: END IF;
3134:
3135: okl_api.end_activity (x_msg_count => x_msg_count,
3136: x_msg_data => x_msg_data
3137: );
3138:
3139: IF (is_debug_procedure_on) THEN
3140: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
3141: END IF;
3142:
3143: EXCEPTION
3144: WHEN okl_api.g_exception_error THEN
3145: IF get_orig_sys_code%ISOPEN THEN
3146: CLOSE get_orig_sys_code;
3147: END IF;
3148:
3146: CLOSE get_orig_sys_code;
3147: END IF;
3148:
3149: x_return_status :=
3150: okl_api.handle_exceptions
3151: (p_api_name => l_api_name,
3152: p_pkg_name => g_pkg_name,
3153: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3154: x_msg_count => x_msg_count,
3149: x_return_status :=
3150: okl_api.handle_exceptions
3151: (p_api_name => l_api_name,
3152: p_pkg_name => g_pkg_name,
3153: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3154: x_msg_count => x_msg_count,
3155: x_msg_data => x_msg_data,
3156: p_api_type => g_api_type
3157: );
3154: x_msg_count => x_msg_count,
3155: x_msg_data => x_msg_data,
3156: p_api_type => g_api_type
3157: );
3158: WHEN okl_api.g_exception_unexpected_error THEN
3159: IF get_orig_sys_code%ISOPEN THEN
3160: CLOSE get_orig_sys_code;
3161: END IF;
3162:
3160: CLOSE get_orig_sys_code;
3161: END IF;
3162:
3163: x_return_status :=
3164: okl_api.handle_exceptions
3165: (p_api_name => l_api_name,
3166: p_pkg_name => g_pkg_name,
3167: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3168: x_msg_count => x_msg_count,
3163: x_return_status :=
3164: okl_api.handle_exceptions
3165: (p_api_name => l_api_name,
3166: p_pkg_name => g_pkg_name,
3167: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3168: x_msg_count => x_msg_count,
3169: x_msg_data => x_msg_data,
3170: p_api_type => g_api_type
3171: );
3174: CLOSE get_orig_sys_code;
3175: END IF;
3176:
3177: x_return_status :=
3178: okl_api.handle_exceptions (p_api_name => l_api_name,
3179: p_pkg_name => g_pkg_name,
3180: p_exc_name => 'OTHERS',
3181: x_msg_count => x_msg_count,
3182: x_msg_data => x_msg_data,
3193: p_chr_id IN VARCHAR2
3194: ) IS
3195: l_api_name CONSTANT VARCHAR2 (30) := 'ACTIVATE_CONTRACT';
3196: l_api_version CONSTANT NUMBER := 1.0;
3197: l_return_status VARCHAR2 (1) := okl_api.g_ret_sts_success;
3198: l_isallowed BOOLEAN;
3199: l_passstatus VARCHAR2 (100) := 'BOOKED';
3200: l_failstatus VARCHAR2 (100) := 'APPROVED';
3201: l_event VARCHAR2 (100)
3229: WHERE rbk_khr.khr_id = CHR.ID
3230: AND rbk_khr.status <> 'PROCESSED');
3231:
3232: l_chk_mass_rbk_rec l_chk_mass_rbk_csr%ROWTYPE;
3233: l_commit VARCHAR2 (256) := okl_api.g_false;
3234: l_transaction_type VARCHAR2 (256);
3235: l_acct_trans_type VARCHAR2 (256); --Bug 5909373
3236: l_draft_yn VARCHAR2 (1) := okl_api.g_false;
3237: l_chr_for_sts_change NUMBER;
3232: l_chk_mass_rbk_rec l_chk_mass_rbk_csr%ROWTYPE;
3233: l_commit VARCHAR2 (256) := okl_api.g_false;
3234: l_transaction_type VARCHAR2 (256);
3235: l_acct_trans_type VARCHAR2 (256); --Bug 5909373
3236: l_draft_yn VARCHAR2 (1) := okl_api.g_false;
3237: l_chr_for_sts_change NUMBER;
3238: old_rec old_csr%ROWTYPE;
3239: rbk_rec rbk_csr%ROWTYPE;
3240:
3459: ) IS
3460: l_process VARCHAR2 (20);
3461: l_parameter_list wf_parameter_list_t;
3462: BEGIN
3463: x_return_status := okl_api.g_ret_sts_success;
3464: l_process := okl_lla_util_pvt.get_contract_process (p_chr_id);
3465:
3466: -- Raise "Rebook Completed" for Rebook Process
3467: FOR l_chk_rbk_rec IN l_chk_rbk_csr (p_chr_id)
3511: p_parameters => l_parameter_list
3512: );
3513: EXCEPTION
3514: WHEN OTHERS THEN
3515: x_return_status := okl_api.g_ret_sts_unexp_error;
3516: RAISE okl_api.g_exception_unexpected_error;
3517: END raise_business_event;
3518: /*
3519: -- mvasudev, 08/30/2004
3512: );
3513: EXCEPTION
3514: WHEN OTHERS THEN
3515: x_return_status := okl_api.g_ret_sts_unexp_error;
3516: RAISE okl_api.g_exception_unexpected_error;
3517: END raise_business_event;
3518: /*
3519: -- mvasudev, 08/30/2004
3520: -- END, PROCEDURE to enable Business Event
3519: -- mvasudev, 08/30/2004
3520: -- END, PROCEDURE to enable Business Event
3521: */
3522: BEGIN
3523: x_return_status := okl_api.g_ret_sts_success;
3524: x_return_status :=
3525: okl_api.start_activity (p_api_name => l_api_name,
3526: p_pkg_name => g_pkg_name,
3527: p_init_msg_list => p_init_msg_list,
3521: */
3522: BEGIN
3523: x_return_status := okl_api.g_ret_sts_success;
3524: x_return_status :=
3525: okl_api.start_activity (p_api_name => l_api_name,
3526: p_pkg_name => g_pkg_name,
3527: p_init_msg_list => p_init_msg_list,
3528: l_api_version => l_api_version,
3529: p_api_version => p_api_version,
3531: x_return_status => x_return_status
3532: );
3533:
3534: -- check if activity started successfully
3535: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3536: RAISE okl_api.g_exception_unexpected_error;
3537: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3538: RAISE okl_api.g_exception_error;
3539: END IF;
3532: );
3533:
3534: -- check if activity started successfully
3535: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3536: RAISE okl_api.g_exception_unexpected_error;
3537: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3538: RAISE okl_api.g_exception_error;
3539: END IF;
3540:
3533:
3534: -- check if activity started successfully
3535: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3536: RAISE okl_api.g_exception_unexpected_error;
3537: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3538: RAISE okl_api.g_exception_error;
3539: END IF;
3540:
3541: --Bug# 3556674
3534: -- check if activity started successfully
3535: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3536: RAISE okl_api.g_exception_unexpected_error;
3537: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3538: RAISE okl_api.g_exception_error;
3539: END IF;
3540:
3541: --Bug# 3556674
3542: validate_chr_id (p_chr_id => p_chr_id,
3542: validate_chr_id (p_chr_id => p_chr_id,
3543: x_return_status => x_return_status
3544: );
3545:
3546: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3547: RAISE okl_api.g_exception_unexpected_error;
3548: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3549: RAISE okl_api.g_exception_error;
3550: END IF;
3543: x_return_status => x_return_status
3544: );
3545:
3546: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3547: RAISE okl_api.g_exception_unexpected_error;
3548: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3549: RAISE okl_api.g_exception_error;
3550: END IF;
3551:
3544: );
3545:
3546: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3547: RAISE okl_api.g_exception_unexpected_error;
3548: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3549: RAISE okl_api.g_exception_error;
3550: END IF;
3551:
3552: --Bug# 3556674
3545:
3546: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3547: RAISE okl_api.g_exception_unexpected_error;
3548: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3549: RAISE okl_api.g_exception_error;
3550: END IF;
3551:
3552: --Bug# 3556674
3553:
3577: p_chr_id
3578: );
3579:
3580: IF (l_isallowed = FALSE) THEN
3581: x_return_status := okl_api.g_ret_sts_success;
3582: okl_api.set_message (p_app_name => g_app_name,
3583: p_msg_name => 'OKL_LLA_NOT_APPROVED'
3584: );
3585: RAISE okl_api.g_exception_error;
3578: );
3579:
3580: IF (l_isallowed = FALSE) THEN
3581: x_return_status := okl_api.g_ret_sts_success;
3582: okl_api.set_message (p_app_name => g_app_name,
3583: p_msg_name => 'OKL_LLA_NOT_APPROVED'
3584: );
3585: RAISE okl_api.g_exception_error;
3586: END IF;
3581: x_return_status := okl_api.g_ret_sts_success;
3582: okl_api.set_message (p_app_name => g_app_name,
3583: p_msg_name => 'OKL_LLA_NOT_APPROVED'
3584: );
3585: RAISE okl_api.g_exception_error;
3586: END IF;
3587:
3588: --ramurt Bug#4622438
3589: OPEN chk_product_status (p_chr_id => TO_NUMBER (p_chr_id));
3594:
3595: CLOSE chk_product_status;
3596:
3597: IF (l_product_status_code = 'INVALID') THEN
3598: -- x_return_status := OKL_API.G_RET_STS_SUCCESS;
3599: okl_api.set_message (p_app_name => g_app_name,
3600: p_msg_name => 'OKL_LLA_INVALID_PRODUCT',
3601: p_token1 => 'PRODUCT_NAME',
3602: p_token1_value => l_product_name
3595: CLOSE chk_product_status;
3596:
3597: IF (l_product_status_code = 'INVALID') THEN
3598: -- x_return_status := OKL_API.G_RET_STS_SUCCESS;
3599: okl_api.set_message (p_app_name => g_app_name,
3600: p_msg_name => 'OKL_LLA_INVALID_PRODUCT',
3601: p_token1 => 'PRODUCT_NAME',
3602: p_token1_value => l_product_name
3603: );
3600: p_msg_name => 'OKL_LLA_INVALID_PRODUCT',
3601: p_token1 => 'PRODUCT_NAME',
3602: p_token1_value => l_product_name
3603: );
3604: RAISE okl_api.g_exception_error;
3605: END IF;
3606:
3607: -- End
3608:
3622:
3623: CLOSE l_chk_rel_khr_csr;
3624:
3625: --Bug# 4631549
3626: l_mass_rebook_yn := okl_api.g_false;
3627: l_mass_rebook_yn :=
3628: okl_lla_util_pvt.check_mass_rebook_contract (p_chr_id => p_chr_id);
3629: --End Bug# 4631549
3630: l_proceed_activation := 'Y';
3629: --End Bug# 4631549
3630: l_proceed_activation := 'Y';
3631:
3632: --Bug# 4631549
3633: IF l_rel_khr = '!' AND l_mass_rebook_yn = okl_api.g_false THEN
3634: --IF l_rel_khr = '!' Then
3635: okl_contract_book_pvt.terminate_original_contract
3636: (p_api_version => l_api_version,
3637: p_init_msg_list => p_init_msg_list,
3642: x_termination_complete_yn => l_proceed_activation
3643: );
3644:
3645: -- check if activity started successfully
3646: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3647: RAISE okl_api.g_exception_unexpected_error;
3648: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3649: RAISE okl_api.g_exception_error;
3650: END IF;
3643: );
3644:
3645: -- check if activity started successfully
3646: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3647: RAISE okl_api.g_exception_unexpected_error;
3648: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3649: RAISE okl_api.g_exception_error;
3650: END IF;
3651:
3644:
3645: -- check if activity started successfully
3646: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3647: RAISE okl_api.g_exception_unexpected_error;
3648: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3649: RAISE okl_api.g_exception_error;
3650: END IF;
3651:
3652: -- Bug# 4061058
3645: -- check if activity started successfully
3646: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3647: RAISE okl_api.g_exception_unexpected_error;
3648: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3649: RAISE okl_api.g_exception_error;
3650: END IF;
3651:
3652: -- Bug# 4061058
3653: -- If Termination is successfully completed then
3652: -- Bug# 4061058
3653: -- If Termination is successfully completed then
3654: -- do Commit
3655: IF l_proceed_activation = 'Y' THEN
3656: okl_api.end_activity (x_msg_count => x_msg_count,
3657: x_msg_data => x_msg_data
3658: );
3659: COMMIT;
3660: x_return_status :=
3657: x_msg_data => x_msg_data
3658: );
3659: COMMIT;
3660: x_return_status :=
3661: okl_api.start_activity (p_api_name => l_api_name,
3662: p_pkg_name => g_pkg_name,
3663: p_init_msg_list => p_init_msg_list,
3664: l_api_version => l_api_version,
3665: p_api_version => p_api_version,
3667: x_return_status => x_return_status
3668: );
3669:
3670: -- check if activity started successfully
3671: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3672: RAISE okl_api.g_exception_unexpected_error;
3673: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3674: RAISE okl_api.g_exception_error;
3675: END IF;
3668: );
3669:
3670: -- check if activity started successfully
3671: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3672: RAISE okl_api.g_exception_unexpected_error;
3673: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3674: RAISE okl_api.g_exception_error;
3675: END IF;
3676: END IF;
3669:
3670: -- check if activity started successfully
3671: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3672: RAISE okl_api.g_exception_unexpected_error;
3673: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3674: RAISE okl_api.g_exception_error;
3675: END IF;
3676: END IF;
3677: END IF;
3670: -- check if activity started successfully
3671: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3672: RAISE okl_api.g_exception_unexpected_error;
3673: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3674: RAISE okl_api.g_exception_error;
3675: END IF;
3676: END IF;
3677: END IF;
3678:
3696: ( l_chk_template_rec.template_yn = 'Y'
3697: AND l_chk_template_rec.template_type_code = 'LEASEAPP'
3698: ) THEN
3699: l_chr_for_sts_change := TO_NUMBER (p_chr_id);
3700: x_return_status := okl_api.g_ret_sts_success;
3701: ELSE
3702: OPEN l_hdr_csr (p_chr_id);
3703:
3704: FETCH l_hdr_csr
3706:
3707: IF l_hdr_csr%NOTFOUND THEN
3708: CLOSE l_hdr_csr;
3709:
3710: RAISE okl_api.g_exception_unexpected_error;
3711: END IF;
3712:
3713: CLOSE l_hdr_csr;
3714:
3722: ----------------------------------------------------------------------------------------
3723: --Bug# 3379294 : Deal type is coming as null on some of the contracts copied from old contracts
3724: -- We should check for it and raise an error here
3725: ----------------------------------------------------------------------------------------
3726: IF NVL (old_rec.deal_type, okl_api.g_miss_char) =
3727: okl_api.g_miss_char THEN
3728: --check for incomplete product setup
3729: p_pdtv_rec.ID := l_hdr_rec.pid;
3730: okl_setupproducts_pub.getpdt_parameters
3723: --Bug# 3379294 : Deal type is coming as null on some of the contracts copied from old contracts
3724: -- We should check for it and raise an error here
3725: ----------------------------------------------------------------------------------------
3726: IF NVL (old_rec.deal_type, okl_api.g_miss_char) =
3727: okl_api.g_miss_char THEN
3728: --check for incomplete product setup
3729: p_pdtv_rec.ID := l_hdr_rec.pid;
3730: okl_setupproducts_pub.getpdt_parameters
3731: (p_api_version => p_api_version,
3737: x_no_data_found => x_no_data_found,
3738: p_pdt_parameter_rec => x_pdt_parameter_rec
3739: );
3740:
3741: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3742: RAISE okl_api.g_exception_unexpected_error;
3743: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3744: RAISE okl_api.g_exception_error;
3745: ELSIF (NVL (x_pdt_parameter_rec.NAME, okl_api.g_miss_char) =
3738: p_pdt_parameter_rec => x_pdt_parameter_rec
3739: );
3740:
3741: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3742: RAISE okl_api.g_exception_unexpected_error;
3743: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3744: RAISE okl_api.g_exception_error;
3745: ELSIF (NVL (x_pdt_parameter_rec.NAME, okl_api.g_miss_char) =
3746: okl_api.g_miss_char
3739: );
3740:
3741: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3742: RAISE okl_api.g_exception_unexpected_error;
3743: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3744: RAISE okl_api.g_exception_error;
3745: ELSIF (NVL (x_pdt_parameter_rec.NAME, okl_api.g_miss_char) =
3746: okl_api.g_miss_char
3747: ) THEN
3740:
3741: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3742: RAISE okl_api.g_exception_unexpected_error;
3743: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3744: RAISE okl_api.g_exception_error;
3745: ELSIF (NVL (x_pdt_parameter_rec.NAME, okl_api.g_miss_char) =
3746: okl_api.g_miss_char
3747: ) THEN
3748: x_return_status := okl_api.g_ret_sts_error;
3741: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3742: RAISE okl_api.g_exception_unexpected_error;
3743: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3744: RAISE okl_api.g_exception_error;
3745: ELSIF (NVL (x_pdt_parameter_rec.NAME, okl_api.g_miss_char) =
3746: okl_api.g_miss_char
3747: ) THEN
3748: x_return_status := okl_api.g_ret_sts_error;
3749: RAISE okl_api.g_exception_error;
3742: RAISE okl_api.g_exception_unexpected_error;
3743: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3744: RAISE okl_api.g_exception_error;
3745: ELSIF (NVL (x_pdt_parameter_rec.NAME, okl_api.g_miss_char) =
3746: okl_api.g_miss_char
3747: ) THEN
3748: x_return_status := okl_api.g_ret_sts_error;
3749: RAISE okl_api.g_exception_error;
3750: END IF;
3744: RAISE okl_api.g_exception_error;
3745: ELSIF (NVL (x_pdt_parameter_rec.NAME, okl_api.g_miss_char) =
3746: okl_api.g_miss_char
3747: ) THEN
3748: x_return_status := okl_api.g_ret_sts_error;
3749: RAISE okl_api.g_exception_error;
3750: END IF;
3751:
3752: --if product setup is also complete raise an error on balnk deal type
3745: ELSIF (NVL (x_pdt_parameter_rec.NAME, okl_api.g_miss_char) =
3746: okl_api.g_miss_char
3747: ) THEN
3748: x_return_status := okl_api.g_ret_sts_error;
3749: RAISE okl_api.g_exception_error;
3750: END IF;
3751:
3752: --if product setup is also complete raise an error on balnk deal type
3753: okl_api.set_message (p_app_name => g_app_name,
3749: RAISE okl_api.g_exception_error;
3750: END IF;
3751:
3752: --if product setup is also complete raise an error on balnk deal type
3753: okl_api.set_message (p_app_name => g_app_name,
3754: p_msg_name => 'OKL_NULL_DEAL_TYPE'
3755: );
3756: x_return_status := okl_api.g_ret_sts_error;
3757: RAISE okl_api.g_exception_error;
3752: --if product setup is also complete raise an error on balnk deal type
3753: okl_api.set_message (p_app_name => g_app_name,
3754: p_msg_name => 'OKL_NULL_DEAL_TYPE'
3755: );
3756: x_return_status := okl_api.g_ret_sts_error;
3757: RAISE okl_api.g_exception_error;
3758: --Bug# : End : modified following 'IF' to 'ELSIF'
3759:
3760: --ELSIF ( old_rec.deal_type <> 'LOAN-REVOLVING' ) THEN -- 4895333
3753: okl_api.set_message (p_app_name => g_app_name,
3754: p_msg_name => 'OKL_NULL_DEAL_TYPE'
3755: );
3756: x_return_status := okl_api.g_ret_sts_error;
3757: RAISE okl_api.g_exception_error;
3758: --Bug# : End : modified following 'IF' to 'ELSIF'
3759:
3760: --ELSIF ( old_rec.deal_type <> 'LOAN-REVOLVING' ) THEN -- 4895333
3761: ELSE
3776: x_no_data_found => x_no_data_found,
3777: p_pdt_parameter_rec => x_pdt_parameter_rec
3778: );
3779:
3780: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3781: RAISE okl_api.g_exception_unexpected_error;
3782: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3783: RAISE okl_api.g_exception_error;
3784: --Bug# 3379294:
3777: p_pdt_parameter_rec => x_pdt_parameter_rec
3778: );
3779:
3780: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3781: RAISE okl_api.g_exception_unexpected_error;
3782: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3783: RAISE okl_api.g_exception_error;
3784: --Bug# 3379294:
3785: --ELSIF ( x_pdt_parameter_rec.Name = OKL_API.G_MISS_CHAR )THEN
3778: );
3779:
3780: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3781: RAISE okl_api.g_exception_unexpected_error;
3782: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3783: RAISE okl_api.g_exception_error;
3784: --Bug# 3379294:
3785: --ELSIF ( x_pdt_parameter_rec.Name = OKL_API.G_MISS_CHAR )THEN
3786: ELSIF NVL (x_pdt_parameter_rec.NAME, okl_api.g_miss_char) =
3779:
3780: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3781: RAISE okl_api.g_exception_unexpected_error;
3782: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3783: RAISE okl_api.g_exception_error;
3784: --Bug# 3379294:
3785: --ELSIF ( x_pdt_parameter_rec.Name = OKL_API.G_MISS_CHAR )THEN
3786: ELSIF NVL (x_pdt_parameter_rec.NAME, okl_api.g_miss_char) =
3787: okl_api.g_miss_char THEN
3781: RAISE okl_api.g_exception_unexpected_error;
3782: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3783: RAISE okl_api.g_exception_error;
3784: --Bug# 3379294:
3785: --ELSIF ( x_pdt_parameter_rec.Name = OKL_API.G_MISS_CHAR )THEN
3786: ELSIF NVL (x_pdt_parameter_rec.NAME, okl_api.g_miss_char) =
3787: okl_api.g_miss_char THEN
3788: x_return_status := okl_api.g_ret_sts_error;
3789: RAISE okl_api.g_exception_error;
3782: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3783: RAISE okl_api.g_exception_error;
3784: --Bug# 3379294:
3785: --ELSIF ( x_pdt_parameter_rec.Name = OKL_API.G_MISS_CHAR )THEN
3786: ELSIF NVL (x_pdt_parameter_rec.NAME, okl_api.g_miss_char) =
3787: okl_api.g_miss_char THEN
3788: x_return_status := okl_api.g_ret_sts_error;
3789: RAISE okl_api.g_exception_error;
3790: END IF;
3783: RAISE okl_api.g_exception_error;
3784: --Bug# 3379294:
3785: --ELSIF ( x_pdt_parameter_rec.Name = OKL_API.G_MISS_CHAR )THEN
3786: ELSIF NVL (x_pdt_parameter_rec.NAME, okl_api.g_miss_char) =
3787: okl_api.g_miss_char THEN
3788: x_return_status := okl_api.g_ret_sts_error;
3789: RAISE okl_api.g_exception_error;
3790: END IF;
3791: END IF;
3784: --Bug# 3379294:
3785: --ELSIF ( x_pdt_parameter_rec.Name = OKL_API.G_MISS_CHAR )THEN
3786: ELSIF NVL (x_pdt_parameter_rec.NAME, okl_api.g_miss_char) =
3787: okl_api.g_miss_char THEN
3788: x_return_status := okl_api.g_ret_sts_error;
3789: RAISE okl_api.g_exception_error;
3790: END IF;
3791: END IF;
3792:
3785: --ELSIF ( x_pdt_parameter_rec.Name = OKL_API.G_MISS_CHAR )THEN
3786: ELSIF NVL (x_pdt_parameter_rec.NAME, okl_api.g_miss_char) =
3787: okl_api.g_miss_char THEN
3788: x_return_status := okl_api.g_ret_sts_error;
3789: RAISE okl_api.g_exception_error;
3790: END IF;
3791: END IF;
3792:
3793: --Bug Fix# 2857843 End
3805: old_rec.orig_system_id1,
3806: l_transaction_type,
3807: rbk_rec.date_transaction_occurred,
3808: l_draft_yn,
3809: okl_api.g_true,
3810: x_return_status,
3811: x_msg_count,
3812: x_msg_data
3813: );
3836: x_no_data_found => x_no_data_found,
3837: p_pdt_parameter_rec => x_pdt_parameter_rec
3838: );
3839:
3840: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3841: RAISE okl_api.g_exception_unexpected_error;
3842: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3843: RAISE okl_api.g_exception_error;
3844: --Bug# 3379294:
3837: p_pdt_parameter_rec => x_pdt_parameter_rec
3838: );
3839:
3840: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3841: RAISE okl_api.g_exception_unexpected_error;
3842: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3843: RAISE okl_api.g_exception_error;
3844: --Bug# 3379294:
3845: --ELSIF ( x_pdt_parameter_rec.Name = OKL_API.G_MISS_CHAR )THEN
3838: );
3839:
3840: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3841: RAISE okl_api.g_exception_unexpected_error;
3842: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3843: RAISE okl_api.g_exception_error;
3844: --Bug# 3379294:
3845: --ELSIF ( x_pdt_parameter_rec.Name = OKL_API.G_MISS_CHAR )THEN
3846: ELSIF NVL (x_pdt_parameter_rec.NAME,
3839:
3840: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3841: RAISE okl_api.g_exception_unexpected_error;
3842: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3843: RAISE okl_api.g_exception_error;
3844: --Bug# 3379294:
3845: --ELSIF ( x_pdt_parameter_rec.Name = OKL_API.G_MISS_CHAR )THEN
3846: ELSIF NVL (x_pdt_parameter_rec.NAME,
3847: okl_api.g_miss_char
3841: RAISE okl_api.g_exception_unexpected_error;
3842: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3843: RAISE okl_api.g_exception_error;
3844: --Bug# 3379294:
3845: --ELSIF ( x_pdt_parameter_rec.Name = OKL_API.G_MISS_CHAR )THEN
3846: ELSIF NVL (x_pdt_parameter_rec.NAME,
3847: okl_api.g_miss_char
3848: ) = okl_api.g_miss_char THEN
3849: x_return_status := okl_api.g_ret_sts_error;
3843: RAISE okl_api.g_exception_error;
3844: --Bug# 3379294:
3845: --ELSIF ( x_pdt_parameter_rec.Name = OKL_API.G_MISS_CHAR )THEN
3846: ELSIF NVL (x_pdt_parameter_rec.NAME,
3847: okl_api.g_miss_char
3848: ) = okl_api.g_miss_char THEN
3849: x_return_status := okl_api.g_ret_sts_error;
3850: RAISE okl_api.g_exception_error;
3851: END IF;
3844: --Bug# 3379294:
3845: --ELSIF ( x_pdt_parameter_rec.Name = OKL_API.G_MISS_CHAR )THEN
3846: ELSIF NVL (x_pdt_parameter_rec.NAME,
3847: okl_api.g_miss_char
3848: ) = okl_api.g_miss_char THEN
3849: x_return_status := okl_api.g_ret_sts_error;
3850: RAISE okl_api.g_exception_error;
3851: END IF;
3852: END IF;
3845: --ELSIF ( x_pdt_parameter_rec.Name = OKL_API.G_MISS_CHAR )THEN
3846: ELSIF NVL (x_pdt_parameter_rec.NAME,
3847: okl_api.g_miss_char
3848: ) = okl_api.g_miss_char THEN
3849: x_return_status := okl_api.g_ret_sts_error;
3850: RAISE okl_api.g_exception_error;
3851: END IF;
3852: END IF;
3853:
3846: ELSIF NVL (x_pdt_parameter_rec.NAME,
3847: okl_api.g_miss_char
3848: ) = okl_api.g_miss_char THEN
3849: x_return_status := okl_api.g_ret_sts_error;
3850: RAISE okl_api.g_exception_error;
3851: END IF;
3852: END IF;
3853:
3854: --Bug Fix# 2857843 End
3871: l_acct_trans_type,
3872: --Bug 5909373
3873: NULL,
3874: l_draft_yn,
3875: okl_api.g_true,
3876: x_return_status,
3877: x_msg_count,
3878: x_msg_data,
3879: x_trxh_rec
3878: x_msg_data,
3879: x_trxh_rec
3880: );
3881:
3882: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3883: RAISE okl_api.g_exception_unexpected_error;
3884: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3885: RAISE okl_api.g_exception_error;
3886: END IF;
3879: x_trxh_rec
3880: );
3881:
3882: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3883: RAISE okl_api.g_exception_unexpected_error;
3884: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3885: RAISE okl_api.g_exception_error;
3886: END IF;
3887:
3880: );
3881:
3882: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3883: RAISE okl_api.g_exception_unexpected_error;
3884: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3885: RAISE okl_api.g_exception_error;
3886: END IF;
3887:
3888: okl_la_sales_tax_pvt.process_sales_tax
3881:
3882: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3883: RAISE okl_api.g_exception_unexpected_error;
3884: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3885: RAISE okl_api.g_exception_error;
3886: END IF;
3887:
3888: okl_la_sales_tax_pvt.process_sales_tax
3889: (p_api_version => l_api_version,
3887:
3888: okl_la_sales_tax_pvt.process_sales_tax
3889: (p_api_version => l_api_version,
3890: p_init_msg_list => p_init_msg_list,
3891: p_commit => okl_api.g_false,
3892: p_contract_id => TO_NUMBER
3893: (p_chr_id
3894: ),
3895: p_transaction_type => 'Booking',
3898: x_msg_count => x_msg_count,
3899: x_msg_data => x_msg_data
3900: );
3901:
3902: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3903: RAISE okl_api.g_exception_unexpected_error;
3904: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3905: RAISE okl_api.g_exception_error;
3906: END IF;
3899: x_msg_data => x_msg_data
3900: );
3901:
3902: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3903: RAISE okl_api.g_exception_unexpected_error;
3904: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3905: RAISE okl_api.g_exception_error;
3906: END IF;
3907: -- Sales Tax Changes END
3900: );
3901:
3902: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3903: RAISE okl_api.g_exception_unexpected_error;
3904: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3905: RAISE okl_api.g_exception_error;
3906: END IF;
3907: -- Sales Tax Changes END
3908:
3901:
3902: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3903: RAISE okl_api.g_exception_unexpected_error;
3904: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3905: RAISE okl_api.g_exception_error;
3906: END IF;
3907: -- Sales Tax Changes END
3908:
3909: /*OKL_LA_JE_PUB.generate_journal_entries(
3912: l_commit,
3913: TO_NUMBER(p_chr_id),
3914: l_transaction_type,
3915: l_draft_yn,
3916: OKL_API.G_TRUE,
3917: x_return_status,
3918: x_msg_count,
3919: x_msg_data);*/
3920: END IF;
3919: x_msg_data);*/
3920: END IF;
3921: END IF;
3922:
3923: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3924: RAISE okl_api.g_exception_unexpected_error;
3925: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3926: RAISE okl_api.g_exception_error;
3927: END IF;
3920: END IF;
3921: END IF;
3922:
3923: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3924: RAISE okl_api.g_exception_unexpected_error;
3925: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3926: RAISE okl_api.g_exception_error;
3927: END IF;
3928:
3921: END IF;
3922:
3923: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3924: RAISE okl_api.g_exception_unexpected_error;
3925: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3926: RAISE okl_api.g_exception_error;
3927: END IF;
3928:
3929: /* Manu 18-Aug-2004 Start
3922:
3923: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3924: RAISE okl_api.g_exception_unexpected_error;
3925: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3926: RAISE okl_api.g_exception_error;
3927: END IF;
3928:
3929: /* Manu 18-Aug-2004 Start
3930: Get the rollover fee lines for a contract and call
3964: p_qte_id => l_qte_id,
3965: p_for_qa_check => FALSE
3966: );
3967:
3968: IF (x_return_status <> okl_api.g_ret_sts_success) THEN
3969: CLOSE l_rq_fee_lns_bkg_csr;
3970:
3971: RAISE okl_api.g_exception_error;
3972: ELSIF (x_return_status = okl_api.g_ret_sts_success) THEN
3967:
3968: IF (x_return_status <> okl_api.g_ret_sts_success) THEN
3969: CLOSE l_rq_fee_lns_bkg_csr;
3970:
3971: RAISE okl_api.g_exception_error;
3972: ELSIF (x_return_status = okl_api.g_ret_sts_success) THEN
3973: l_tq_rec_count := l_tq_rec_count + 1;
3974: p_term_tbl (l_tq_rec_count).ID := l_qte_id;
3975: p_term_tbl (l_tq_rec_count).accepted_yn := 'Y';
3968: IF (x_return_status <> okl_api.g_ret_sts_success) THEN
3969: CLOSE l_rq_fee_lns_bkg_csr;
3970:
3971: RAISE okl_api.g_exception_error;
3972: ELSIF (x_return_status = okl_api.g_ret_sts_success) THEN
3973: l_tq_rec_count := l_tq_rec_count + 1;
3974: p_term_tbl (l_tq_rec_count).ID := l_qte_id;
3975: p_term_tbl (l_tq_rec_count).accepted_yn := 'Y';
3976: p_term_tbl (l_tq_rec_count).date_effective_to :=
3999: CLOSE l_k_std_csr;
4000:
4001: IF (l_in_future AND l_ro_fee_bkg_found) THEN
4002: -- Contract Start date in future
4003: x_return_status := okl_api.g_ret_sts_error;
4004: l_in_future := NULL;
4005: l_found := NULL;
4006: okl_api.set_message
4007: (p_app_name => g_app_name,
4002: -- Contract Start date in future
4003: x_return_status := okl_api.g_ret_sts_error;
4004: l_in_future := NULL;
4005: l_found := NULL;
4006: okl_api.set_message
4007: (p_app_name => g_app_name,
4008: p_msg_name => 'OKL_LLA_RQ_SD_IN_FUTURE'
4009: );
4010: RAISE okl_api.g_exception_error;
4006: okl_api.set_message
4007: (p_app_name => g_app_name,
4008: p_msg_name => 'OKL_LLA_RQ_SD_IN_FUTURE'
4009: );
4010: RAISE okl_api.g_exception_error;
4011: END IF;
4012:
4013: l_ro_fee_bkg_found := FALSE;
4014: /* Manu 18-Nov-2004 End */
4062: p_chr_id => p_chr_id,
4063: p_qte_id => l_qte_id
4064: );
4065:
4066: IF (x_return_status <> okl_api.g_ret_sts_success) THEN
4067: CLOSE l_rq_fee_lns_rbk_csr;
4068:
4069: RAISE okl_api.g_exception_error;
4070: ELSIF (x_return_status = okl_api.g_ret_sts_success) THEN
4065:
4066: IF (x_return_status <> okl_api.g_ret_sts_success) THEN
4067: CLOSE l_rq_fee_lns_rbk_csr;
4068:
4069: RAISE okl_api.g_exception_error;
4070: ELSIF (x_return_status = okl_api.g_ret_sts_success) THEN
4071: l_tq_rec_count := l_tq_rec_count + 1;
4072: p_term_tbl (l_tq_rec_count).ID := l_qte_id;
4073: p_term_tbl (l_tq_rec_count).accepted_yn := 'Y';
4066: IF (x_return_status <> okl_api.g_ret_sts_success) THEN
4067: CLOSE l_rq_fee_lns_rbk_csr;
4068:
4069: RAISE okl_api.g_exception_error;
4070: ELSIF (x_return_status = okl_api.g_ret_sts_success) THEN
4071: l_tq_rec_count := l_tq_rec_count + 1;
4072: p_term_tbl (l_tq_rec_count).ID := l_qte_id;
4073: p_term_tbl (l_tq_rec_count).accepted_yn := 'Y';
4074: p_term_tbl (l_tq_rec_count).date_effective_to :=
4097: CLOSE l_k_std__4rbk_csr;
4098:
4099: IF (l_in_future AND l_ro_fee_rbk_found) THEN
4100: -- Contract Start date in future
4101: x_return_status := okl_api.g_ret_sts_error;
4102: l_in_future := NULL;
4103: l_found := NULL;
4104: okl_api.set_message
4105: (p_app_name => g_app_name,
4100: -- Contract Start date in future
4101: x_return_status := okl_api.g_ret_sts_error;
4102: l_in_future := NULL;
4103: l_found := NULL;
4104: okl_api.set_message
4105: (p_app_name => g_app_name,
4106: p_msg_name => 'OKL_LLA_RQ_SD_IN_FUTURE'
4107: );
4108: RAISE okl_api.g_exception_error;
4104: okl_api.set_message
4105: (p_app_name => g_app_name,
4106: p_msg_name => 'OKL_LLA_RQ_SD_IN_FUTURE'
4107: );
4108: RAISE okl_api.g_exception_error;
4109: END IF;
4110:
4111: l_ro_fee_rbk_found := FALSE;
4112: /* Manu 18-Nov-2004 End */
4157: x_err_msg => x_err_msg,
4158: p_acceptance_source => 'ROLLOVER'
4159: );
4160:
4161: IF (x_return_status <> okl_api.g_ret_sts_success) THEN
4162: RAISE okl_api.g_exception_error;
4163: END IF;
4164:
4165: /* Manu 18-Aug-2004 End */
4158: p_acceptance_source => 'ROLLOVER'
4159: );
4160:
4161: IF (x_return_status <> okl_api.g_ret_sts_success) THEN
4162: RAISE okl_api.g_exception_error;
4163: END IF;
4164:
4165: /* Manu 18-Aug-2004 End */
4166:
4169: (x_return_status => x_return_status,
4170: p_chr_id => p_chr_id
4171: );
4172:
4173: IF (x_return_status = okl_api.g_ret_sts_success) THEN
4174: okl_api.init_msg_list ('T');
4175: ELSIF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4176: RAISE okl_api.g_exception_unexpected_error;
4177: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4170: p_chr_id => p_chr_id
4171: );
4172:
4173: IF (x_return_status = okl_api.g_ret_sts_success) THEN
4174: okl_api.init_msg_list ('T');
4175: ELSIF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4176: RAISE okl_api.g_exception_unexpected_error;
4177: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4178: RAISE okl_api.g_exception_error;
4171: );
4172:
4173: IF (x_return_status = okl_api.g_ret_sts_success) THEN
4174: okl_api.init_msg_list ('T');
4175: ELSIF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4176: RAISE okl_api.g_exception_unexpected_error;
4177: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4178: RAISE okl_api.g_exception_error;
4179: END IF;
4172:
4173: IF (x_return_status = okl_api.g_ret_sts_success) THEN
4174: okl_api.init_msg_list ('T');
4175: ELSIF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4176: RAISE okl_api.g_exception_unexpected_error;
4177: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4178: RAISE okl_api.g_exception_error;
4179: END IF;
4180:
4173: IF (x_return_status = okl_api.g_ret_sts_success) THEN
4174: okl_api.init_msg_list ('T');
4175: ELSIF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4176: RAISE okl_api.g_exception_unexpected_error;
4177: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4178: RAISE okl_api.g_exception_error;
4179: END IF;
4180:
4181: --rviriyal bug 5982201 end
4174: okl_api.init_msg_list ('T');
4175: ELSIF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4176: RAISE okl_api.g_exception_unexpected_error;
4177: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4178: RAISE okl_api.g_exception_error;
4179: END IF;
4180:
4181: --rviriyal bug 5982201 end
4182: okl_activate_contract_pub.activate_contract
4189: p_call_mode => 'BOOK'
4190: );
4191:
4192: -- check if activity started successfully
4193: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4194: RAISE okl_api.g_exception_unexpected_error;
4195: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4196: RAISE okl_api.g_exception_error;
4197: END IF;
4190: );
4191:
4192: -- check if activity started successfully
4193: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4194: RAISE okl_api.g_exception_unexpected_error;
4195: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4196: RAISE okl_api.g_exception_error;
4197: END IF;
4198:
4191:
4192: -- check if activity started successfully
4193: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4194: RAISE okl_api.g_exception_unexpected_error;
4195: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4196: RAISE okl_api.g_exception_error;
4197: END IF;
4198:
4199: IF (l_transaction_type = 'Booking')
4192: -- check if activity started successfully
4193: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4194: RAISE okl_api.g_exception_unexpected_error;
4195: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4196: RAISE okl_api.g_exception_error;
4197: END IF;
4198:
4199: IF (l_transaction_type = 'Booking')
4200: AND
4241: (p_chr_id
4242: )
4243: );
4244:
4245: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4246: RAISE okl_api.g_exception_unexpected_error;
4247: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4248: RAISE okl_api.g_exception_error;
4249: END IF;
4242: )
4243: );
4244:
4245: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4246: RAISE okl_api.g_exception_unexpected_error;
4247: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4248: RAISE okl_api.g_exception_error;
4249: END IF;
4250:
4243: );
4244:
4245: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4246: RAISE okl_api.g_exception_unexpected_error;
4247: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4248: RAISE okl_api.g_exception_error;
4249: END IF;
4250:
4251: x_return_status := okl_api.g_ret_sts_success;
4244:
4245: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4246: RAISE okl_api.g_exception_unexpected_error;
4247: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4248: RAISE okl_api.g_exception_error;
4249: END IF;
4250:
4251: x_return_status := okl_api.g_ret_sts_success;
4252: /*
4247: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4248: RAISE okl_api.g_exception_error;
4249: END IF;
4250:
4251: x_return_status := okl_api.g_ret_sts_success;
4252: /*
4253: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4254: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4255: --Bug#2393795-this call will not raise error as
4249: END IF;
4250:
4251: x_return_status := okl_api.g_ret_sts_success;
4252: /*
4253: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4254: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4255: --Bug#2393795-this call will not raise error as
4256: --not tested properly. So should not stop Booking
4257: --if this fails in PROD.
4250:
4251: x_return_status := okl_api.g_ret_sts_success;
4252: /*
4253: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4254: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4255: --Bug#2393795-this call will not raise error as
4256: --not tested properly. So should not stop Booking
4257: --if this fails in PROD.
4258: --raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4254: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4255: --Bug#2393795-this call will not raise error as
4256: --not tested properly. So should not stop Booking
4257: --if this fails in PROD.
4258: --raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4259: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4260: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4261: --raise OKL_API.G_EXCEPTION_ERROR;
4262: End If;
4255: --Bug#2393795-this call will not raise error as
4256: --not tested properly. So should not stop Booking
4257: --if this fails in PROD.
4258: --raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4259: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4260: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4261: --raise OKL_API.G_EXCEPTION_ERROR;
4262: End If;
4263: */
4256: --not tested properly. So should not stop Booking
4257: --if this fails in PROD.
4258: --raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4259: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4260: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4261: --raise OKL_API.G_EXCEPTION_ERROR;
4262: End If;
4263: */
4264: END IF;
4257: --if this fails in PROD.
4258: --raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4259: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4260: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4261: --raise OKL_API.G_EXCEPTION_ERROR;
4262: End If;
4263: */
4264: END IF;
4265: --ELSE 4895333
4267: END IF;
4268: END IF; -- Vendor Program Template: End
4269:
4270: -- Change Status
4271: IF (x_return_status = okl_api.g_ret_sts_success) THEN
4272: okl_contract_status_pub.update_contract_status
4273: (l_api_version,
4274: p_init_msg_list,
4275: x_return_status,
4290: l_chr_for_sts_change
4291: );
4292:
4293: --p_chr_id );
4294: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
4295: RAISE okl_api.g_exception_unexpected_error;
4296: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
4297: RAISE okl_api.g_exception_error;
4298: END IF;
4291: );
4292:
4293: --p_chr_id );
4294: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
4295: RAISE okl_api.g_exception_unexpected_error;
4296: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
4297: RAISE okl_api.g_exception_error;
4298: END IF;
4299: END IF;
4292:
4293: --p_chr_id );
4294: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
4295: RAISE okl_api.g_exception_unexpected_error;
4296: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
4297: RAISE okl_api.g_exception_error;
4298: END IF;
4299: END IF;
4300:
4293: --p_chr_id );
4294: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
4295: RAISE okl_api.g_exception_unexpected_error;
4296: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
4297: RAISE okl_api.g_exception_error;
4298: END IF;
4299: END IF;
4300:
4301: -- 4895333
4310: p_chr_id => l_chr_for_sts_change
4311: );
4312:
4313: --p_chr_id => p_chr_id);
4314: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4315: RAISE okl_api.g_exception_unexpected_error;
4316: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4317: RAISE okl_api.g_exception_error;
4318: END IF;
4311: );
4312:
4313: --p_chr_id => p_chr_id);
4314: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4315: RAISE okl_api.g_exception_unexpected_error;
4316: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4317: RAISE okl_api.g_exception_error;
4318: END IF;
4319: ---
4312:
4313: --p_chr_id => p_chr_id);
4314: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4315: RAISE okl_api.g_exception_unexpected_error;
4316: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4317: RAISE okl_api.g_exception_error;
4318: END IF;
4319: ---
4320: END IF;
4313: --p_chr_id => p_chr_id);
4314: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4315: RAISE okl_api.g_exception_unexpected_error;
4316: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4317: RAISE okl_api.g_exception_error;
4318: END IF;
4319: ---
4320: END IF;
4321:
4339: x_msg_count => x_msg_count,
4340: x_msg_data => x_msg_data,
4341: p_chr_id => old_rec.ORIG_SYSTEM_ID1 );
4342:
4343: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4345: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4346: RAISE OKL_API.G_EXCEPTION_ERROR;
4347: END IF;
4340: x_msg_data => x_msg_data,
4341: p_chr_id => old_rec.ORIG_SYSTEM_ID1 );
4342:
4343: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4345: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4346: RAISE OKL_API.G_EXCEPTION_ERROR;
4347: END IF;
4348: ---
4341: p_chr_id => old_rec.ORIG_SYSTEM_ID1 );
4342:
4343: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4345: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4346: RAISE OKL_API.G_EXCEPTION_ERROR;
4347: END IF;
4348: ---
4349:
4342:
4343: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4345: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4346: RAISE OKL_API.G_EXCEPTION_ERROR;
4347: END IF;
4348: ---
4349:
4350: End If;
4348: ---
4349:
4350: End If;
4351: */
4352: okl_api.set_message (p_app_name => g_app_name,
4353: p_msg_name => 'OKL_LLA_AC_SUCCESS'
4354: );
4355: x_return_status := okl_api.g_ret_sts_success;
4356: /*
4351: */
4352: okl_api.set_message (p_app_name => g_app_name,
4353: p_msg_name => 'OKL_LLA_AC_SUCCESS'
4354: );
4355: x_return_status := okl_api.g_ret_sts_success;
4356: /*
4357: -- mvasudev, 08/30/2004
4358: -- Code change to enable Business Event
4359: */
4361: p_date_transaction_occurred => l_rbk_date,
4362: x_return_status => x_return_status
4363: );
4364:
4365: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4366: RAISE okl_api.g_exception_unexpected_error;
4367: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4368: RAISE okl_api.g_exception_error;
4369: END IF;
4362: x_return_status => x_return_status
4363: );
4364:
4365: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4366: RAISE okl_api.g_exception_unexpected_error;
4367: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4368: RAISE okl_api.g_exception_error;
4369: END IF;
4370: /*
4363: );
4364:
4365: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4366: RAISE okl_api.g_exception_unexpected_error;
4367: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4368: RAISE okl_api.g_exception_error;
4369: END IF;
4370: /*
4371: -- mvasudev, 08/30/2004
4364:
4365: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4366: RAISE okl_api.g_exception_unexpected_error;
4367: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4368: RAISE okl_api.g_exception_error;
4369: END IF;
4370: /*
4371: -- mvasudev, 08/30/2004
4372: -- END, Code change to enable Business Event
4372: -- END, Code change to enable Business Event
4373: */
4374: END IF; -- l_proceed_activation Y/N
4375:
4376: okl_api.end_activity (x_msg_count => x_msg_count,
4377: x_msg_data => x_msg_data
4378: );
4379: EXCEPTION
4380: WHEN okl_api.g_exception_error THEN
4376: okl_api.end_activity (x_msg_count => x_msg_count,
4377: x_msg_data => x_msg_data
4378: );
4379: EXCEPTION
4380: WHEN okl_api.g_exception_error THEN
4381: /* Manu 18-Aug-2004 Start Clean Up. */
4382: IF l_rq_fee_lns_bkg_csr%ISOPEN THEN
4383: CLOSE l_rq_fee_lns_bkg_csr;
4384: END IF;
4410: END IF;
4411:
4412: -- end
4413: x_return_status :=
4414: okl_api.handle_exceptions
4415: (p_api_name => l_api_name,
4416: p_pkg_name => g_pkg_name,
4417: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4418: x_msg_count => x_msg_count,
4413: x_return_status :=
4414: okl_api.handle_exceptions
4415: (p_api_name => l_api_name,
4416: p_pkg_name => g_pkg_name,
4417: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4418: x_msg_count => x_msg_count,
4419: x_msg_data => x_msg_data,
4420: p_api_type => g_api_type
4421: );
4418: x_msg_count => x_msg_count,
4419: x_msg_data => x_msg_data,
4420: p_api_type => g_api_type
4421: );
4422: WHEN okl_api.g_exception_unexpected_error THEN
4423: /* Manu 18-Aug-2004 Start Clean Up. */
4424: IF l_rq_fee_lns_bkg_csr%ISOPEN THEN
4425: CLOSE l_rq_fee_lns_bkg_csr;
4426: END IF;
4445: END IF;
4446:
4447: /* Manu 18-Nov-2004 End */
4448: x_return_status :=
4449: okl_api.handle_exceptions
4450: (p_api_name => l_api_name,
4451: p_pkg_name => g_pkg_name,
4452: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4453: x_msg_count => x_msg_count,
4448: x_return_status :=
4449: okl_api.handle_exceptions
4450: (p_api_name => l_api_name,
4451: p_pkg_name => g_pkg_name,
4452: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4453: x_msg_count => x_msg_count,
4454: x_msg_data => x_msg_data,
4455: p_api_type => g_api_type
4456: );
4480: END IF;
4481:
4482: /* Manu 18-Nov-2004 End */
4483: x_return_status :=
4484: okl_api.handle_exceptions (p_api_name => l_api_name,
4485: p_pkg_name => g_pkg_name,
4486: p_exc_name => 'OTHERS',
4487: x_msg_count => x_msg_count,
4488: x_msg_data => x_msg_data,
4506: x_msg_tbl OUT NOCOPY okl_qa_check_pub.msg_tbl_type
4507: ) IS
4508: l_api_name CONSTANT VARCHAR2 (30) := 'VALIDATE_CONTRACT';
4509: l_api_version CONSTANT NUMBER := 1;
4510: l_return_status VARCHAR2 (1) := okl_api.g_ret_sts_success;
4511:
4512: --Cursor to get QA checklist id from contract header
4513: CURSOR l_chr_csr (p_chr_id IN NUMBER) IS
4514: SELECT chrb.qcl_id,
4530: l_qcl_id okc_qa_check_lists_b.ID%TYPE;
4531: l_qclid okc_qa_check_lists_b.ID%TYPE
4532: DEFAULT 253090624152411882761357215253616454772;
4533: BEGIN
4534: x_return_status := okl_api.g_ret_sts_success;
4535: x_return_status :=
4536: okl_api.start_activity (p_api_name => l_api_name,
4537: p_pkg_name => g_pkg_name,
4538: p_init_msg_list => p_init_msg_list,
4532: DEFAULT 253090624152411882761357215253616454772;
4533: BEGIN
4534: x_return_status := okl_api.g_ret_sts_success;
4535: x_return_status :=
4536: okl_api.start_activity (p_api_name => l_api_name,
4537: p_pkg_name => g_pkg_name,
4538: p_init_msg_list => p_init_msg_list,
4539: l_api_version => l_api_version,
4540: p_api_version => p_api_version,
4542: x_return_status => x_return_status
4543: );
4544:
4545: -- check if activity started successfully
4546: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4547: RAISE okl_api.g_exception_unexpected_error;
4548: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4549: RAISE okl_api.g_exception_error;
4550: END IF;
4543: );
4544:
4545: -- check if activity started successfully
4546: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4547: RAISE okl_api.g_exception_unexpected_error;
4548: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4549: RAISE okl_api.g_exception_error;
4550: END IF;
4551:
4544:
4545: -- check if activity started successfully
4546: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4547: RAISE okl_api.g_exception_unexpected_error;
4548: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4549: RAISE okl_api.g_exception_error;
4550: END IF;
4551:
4552: l_qcl_id := p_qcl_id;
4545: -- check if activity started successfully
4546: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4547: RAISE okl_api.g_exception_unexpected_error;
4548: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4549: RAISE okl_api.g_exception_error;
4550: END IF;
4551:
4552: l_qcl_id := p_qcl_id;
4553: validate_chr_id (p_chr_id => p_chr_id,
4553: validate_chr_id (p_chr_id => p_chr_id,
4554: x_return_status => x_return_status
4555: );
4556:
4557: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4558: RAISE okl_api.g_exception_unexpected_error;
4559: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4560: RAISE okl_api.g_exception_error;
4561: END IF;
4554: x_return_status => x_return_status
4555: );
4556:
4557: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4558: RAISE okl_api.g_exception_unexpected_error;
4559: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4560: RAISE okl_api.g_exception_error;
4561: END IF;
4562:
4555: );
4556:
4557: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4558: RAISE okl_api.g_exception_unexpected_error;
4559: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4560: RAISE okl_api.g_exception_error;
4561: END IF;
4562:
4563: OPEN l_chr_csr (p_chr_id => p_chr_id);
4556:
4557: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4558: RAISE okl_api.g_exception_unexpected_error;
4559: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4560: RAISE okl_api.g_exception_error;
4561: END IF;
4562:
4563: OPEN l_chr_csr (p_chr_id => p_chr_id);
4564:
4566: INTO l_chr_rec;
4567:
4568: IF l_chr_csr%NOTFOUND THEN
4569: --error : contract does not exist
4570: okl_api.set_message (g_app_name,
4571: g_invalid_value,
4572: g_col_name_token,
4573: 'p_chr_id'
4574: );
4571: g_invalid_value,
4572: g_col_name_token,
4573: 'p_chr_id'
4574: );
4575: x_return_status := okl_api.g_ret_sts_error;
4576: RAISE okl_api.g_exception_error;
4577: END IF;
4578:
4579: CLOSE l_chr_csr;
4572: g_col_name_token,
4573: 'p_chr_id'
4574: );
4575: x_return_status := okl_api.g_ret_sts_error;
4576: RAISE okl_api.g_exception_error;
4577: END IF;
4578:
4579: CLOSE l_chr_csr;
4580:
4579: CLOSE l_chr_csr;
4580:
4581: IF l_chr_rec.ste_code NOT IN ('ENTERED', 'SIGNED') THEN
4582: --error : Contract with status can not be validated.
4583: okl_api.set_message (g_app_name,
4584: 'OKL_LA_CAN_NOT_QA',
4585: 'STATUS',
4586: l_chr_rec.meaning
4587: );
4584: 'OKL_LA_CAN_NOT_QA',
4585: 'STATUS',
4586: l_chr_rec.meaning
4587: );
4588: RAISE okl_api.g_exception_error;
4589: END IF;
4590:
4591: IF l_qcl_id IS NULL OR l_qcl_id = okl_api.g_miss_num THEN
4592: --get qcl_id from k hdr
4587: );
4588: RAISE okl_api.g_exception_error;
4589: END IF;
4590:
4591: IF l_qcl_id IS NULL OR l_qcl_id = okl_api.g_miss_num THEN
4592: --get qcl_id from k hdr
4593: l_qcl_id := l_chr_rec.qcl_id;
4594: END IF;
4595:
4592: --get qcl_id from k hdr
4593: l_qcl_id := l_chr_rec.qcl_id;
4594: END IF;
4595:
4596: IF l_qcl_id IS NULL OR l_qcl_id = okl_api.g_miss_num THEN
4597: --get seeded QCL id
4598: OPEN l_qcl_csr (p_qclid => l_qclid);
4599:
4600: FETCH l_qcl_csr
4606:
4607: CLOSE l_qcl_csr;
4608: END IF;
4609:
4610: IF l_qcl_id IS NOT NULL AND l_qcl_id <> okl_api.g_miss_num THEN
4611: execute_qa_check_list (p_api_version => p_api_version,
4612: p_init_msg_list => p_init_msg_list,
4613: x_return_status => x_return_status,
4614: x_msg_count => x_msg_count,
4618: p_call_mode => p_call_mode,
4619: x_msg_tbl => x_msg_tbl
4620: );
4621:
4622: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4623: RAISE okl_api.g_exception_unexpected_error;
4624: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4625: RAISE okl_api.g_exception_error;
4626: END IF;
4619: x_msg_tbl => x_msg_tbl
4620: );
4621:
4622: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4623: RAISE okl_api.g_exception_unexpected_error;
4624: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4625: RAISE okl_api.g_exception_error;
4626: END IF;
4627: ELSIF l_qcl_id IS NULL OR l_qcl_id = okl_api.g_miss_num THEN
4620: );
4621:
4622: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4623: RAISE okl_api.g_exception_unexpected_error;
4624: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4625: RAISE okl_api.g_exception_error;
4626: END IF;
4627: ELSIF l_qcl_id IS NULL OR l_qcl_id = okl_api.g_miss_num THEN
4628: --error
4621:
4622: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4623: RAISE okl_api.g_exception_unexpected_error;
4624: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4625: RAISE okl_api.g_exception_error;
4626: END IF;
4627: ELSIF l_qcl_id IS NULL OR l_qcl_id = okl_api.g_miss_num THEN
4628: --error
4629: okl_api.set_message (g_app_name,
4623: RAISE okl_api.g_exception_unexpected_error;
4624: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4625: RAISE okl_api.g_exception_error;
4626: END IF;
4627: ELSIF l_qcl_id IS NULL OR l_qcl_id = okl_api.g_miss_num THEN
4628: --error
4629: okl_api.set_message (g_app_name,
4630: g_invalid_value,
4631: g_col_name_token,
4625: RAISE okl_api.g_exception_error;
4626: END IF;
4627: ELSIF l_qcl_id IS NULL OR l_qcl_id = okl_api.g_miss_num THEN
4628: --error
4629: okl_api.set_message (g_app_name,
4630: g_invalid_value,
4631: g_col_name_token,
4632: 'p_qcl_id'
4633: );
4630: g_invalid_value,
4631: g_col_name_token,
4632: 'p_qcl_id'
4633: );
4634: x_return_status := okl_api.g_ret_sts_error;
4635: RAISE okl_api.g_exception_error;
4636: END IF;
4637:
4638: okl_api.end_activity (x_msg_count => x_msg_count,
4631: g_col_name_token,
4632: 'p_qcl_id'
4633: );
4634: x_return_status := okl_api.g_ret_sts_error;
4635: RAISE okl_api.g_exception_error;
4636: END IF;
4637:
4638: okl_api.end_activity (x_msg_count => x_msg_count,
4639: x_msg_data => x_msg_data
4634: x_return_status := okl_api.g_ret_sts_error;
4635: RAISE okl_api.g_exception_error;
4636: END IF;
4637:
4638: okl_api.end_activity (x_msg_count => x_msg_count,
4639: x_msg_data => x_msg_data
4640: );
4641: ---
4642: EXCEPTION
4639: x_msg_data => x_msg_data
4640: );
4641: ---
4642: EXCEPTION
4643: WHEN okl_api.g_exception_error THEN
4644: x_return_status :=
4645: okl_api.handle_exceptions
4646: (p_api_name => l_api_name,
4647: p_pkg_name => g_pkg_name,
4641: ---
4642: EXCEPTION
4643: WHEN okl_api.g_exception_error THEN
4644: x_return_status :=
4645: okl_api.handle_exceptions
4646: (p_api_name => l_api_name,
4647: p_pkg_name => g_pkg_name,
4648: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4649: x_msg_count => x_msg_count,
4644: x_return_status :=
4645: okl_api.handle_exceptions
4646: (p_api_name => l_api_name,
4647: p_pkg_name => g_pkg_name,
4648: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4649: x_msg_count => x_msg_count,
4650: x_msg_data => x_msg_data,
4651: p_api_type => g_api_type
4652: );
4649: x_msg_count => x_msg_count,
4650: x_msg_data => x_msg_data,
4651: p_api_type => g_api_type
4652: );
4653: WHEN okl_api.g_exception_unexpected_error THEN
4654: x_return_status :=
4655: okl_api.handle_exceptions
4656: (p_api_name => l_api_name,
4657: p_pkg_name => g_pkg_name,
4651: p_api_type => g_api_type
4652: );
4653: WHEN okl_api.g_exception_unexpected_error THEN
4654: x_return_status :=
4655: okl_api.handle_exceptions
4656: (p_api_name => l_api_name,
4657: p_pkg_name => g_pkg_name,
4658: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4659: x_msg_count => x_msg_count,
4654: x_return_status :=
4655: okl_api.handle_exceptions
4656: (p_api_name => l_api_name,
4657: p_pkg_name => g_pkg_name,
4658: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4659: x_msg_count => x_msg_count,
4660: x_msg_data => x_msg_data,
4661: p_api_type => g_api_type
4662: );
4661: p_api_type => g_api_type
4662: );
4663: WHEN OTHERS THEN
4664: x_return_status :=
4665: okl_api.handle_exceptions (p_api_name => l_api_name,
4666: p_pkg_name => g_pkg_name,
4667: p_exc_name => 'OTHERS',
4668: x_msg_count => x_msg_count,
4669: x_msg_data => x_msg_data,
4684: p_chr_id IN NUMBER
4685: ) IS
4686: l_api_name CONSTANT VARCHAR2 (30) := 'GENERATE_DRAFT_ACCT';
4687: l_api_version CONSTANT NUMBER := 1;
4688: l_return_status VARCHAR2 (1) := okl_api.g_ret_sts_success;
4689: l_booking_trx_type okl_trx_types_tl.NAME%TYPE DEFAULT 'Booking';
4690: BEGIN
4691: x_return_status := okl_api.g_ret_sts_success;
4692: x_return_status :=
4687: l_api_version CONSTANT NUMBER := 1;
4688: l_return_status VARCHAR2 (1) := okl_api.g_ret_sts_success;
4689: l_booking_trx_type okl_trx_types_tl.NAME%TYPE DEFAULT 'Booking';
4690: BEGIN
4691: x_return_status := okl_api.g_ret_sts_success;
4692: x_return_status :=
4693: okl_api.start_activity (p_api_name => l_api_name,
4694: p_pkg_name => g_pkg_name,
4695: p_init_msg_list => p_init_msg_list,
4689: l_booking_trx_type okl_trx_types_tl.NAME%TYPE DEFAULT 'Booking';
4690: BEGIN
4691: x_return_status := okl_api.g_ret_sts_success;
4692: x_return_status :=
4693: okl_api.start_activity (p_api_name => l_api_name,
4694: p_pkg_name => g_pkg_name,
4695: p_init_msg_list => p_init_msg_list,
4696: l_api_version => l_api_version,
4697: p_api_version => p_api_version,
4699: x_return_status => x_return_status
4700: );
4701:
4702: -- check if activity started successfully
4703: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4704: RAISE okl_api.g_exception_unexpected_error;
4705: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4706: RAISE okl_api.g_exception_error;
4707: END IF;
4700: );
4701:
4702: -- check if activity started successfully
4703: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4704: RAISE okl_api.g_exception_unexpected_error;
4705: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4706: RAISE okl_api.g_exception_error;
4707: END IF;
4708:
4701:
4702: -- check if activity started successfully
4703: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4704: RAISE okl_api.g_exception_unexpected_error;
4705: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4706: RAISE okl_api.g_exception_error;
4707: END IF;
4708:
4709: --1. validate chr id
4702: -- check if activity started successfully
4703: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4704: RAISE okl_api.g_exception_unexpected_error;
4705: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4706: RAISE okl_api.g_exception_error;
4707: END IF;
4708:
4709: --1. validate chr id
4710: validate_chr_id (p_chr_id => p_chr_id,
4710: validate_chr_id (p_chr_id => p_chr_id,
4711: x_return_status => x_return_status
4712: );
4713:
4714: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4715: RAISE okl_api.g_exception_unexpected_error;
4716: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4717: RAISE okl_api.g_exception_error;
4718: END IF;
4711: x_return_status => x_return_status
4712: );
4713:
4714: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4715: RAISE okl_api.g_exception_unexpected_error;
4716: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4717: RAISE okl_api.g_exception_error;
4718: END IF;
4719:
4712: );
4713:
4714: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4715: RAISE okl_api.g_exception_unexpected_error;
4716: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4717: RAISE okl_api.g_exception_error;
4718: END IF;
4719:
4720: --2. call api for generating journal entries
4713:
4714: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4715: RAISE okl_api.g_exception_unexpected_error;
4716: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4717: RAISE okl_api.g_exception_error;
4718: END IF;
4719:
4720: --2. call api for generating journal entries
4721: generate_journal_entries (p_api_version => p_api_version,
4719:
4720: --2. call api for generating journal entries
4721: generate_journal_entries (p_api_version => p_api_version,
4722: p_init_msg_list => p_init_msg_list,
4723: p_commit => okl_api.g_false,
4724: p_contract_id => p_chr_id,
4725: p_transaction_type => l_booking_trx_type,
4726: p_draft_yn => okl_api.g_true,
4727: x_return_status => x_return_status,
4722: p_init_msg_list => p_init_msg_list,
4723: p_commit => okl_api.g_false,
4724: p_contract_id => p_chr_id,
4725: p_transaction_type => l_booking_trx_type,
4726: p_draft_yn => okl_api.g_true,
4727: x_return_status => x_return_status,
4728: x_msg_count => x_msg_count,
4729: x_msg_data => x_msg_data
4730: );
4728: x_msg_count => x_msg_count,
4729: x_msg_data => x_msg_data
4730: );
4731:
4732: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4733: RAISE okl_api.g_exception_unexpected_error;
4734: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4735: RAISE okl_api.g_exception_error;
4736: END IF;
4729: x_msg_data => x_msg_data
4730: );
4731:
4732: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4733: RAISE okl_api.g_exception_unexpected_error;
4734: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4735: RAISE okl_api.g_exception_error;
4736: END IF;
4737:
4730: );
4731:
4732: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4733: RAISE okl_api.g_exception_unexpected_error;
4734: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4735: RAISE okl_api.g_exception_error;
4736: END IF;
4737:
4738: okl_api.end_activity (x_msg_count => x_msg_count,
4731:
4732: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4733: RAISE okl_api.g_exception_unexpected_error;
4734: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4735: RAISE okl_api.g_exception_error;
4736: END IF;
4737:
4738: okl_api.end_activity (x_msg_count => x_msg_count,
4739: x_msg_data => x_msg_data
4734: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4735: RAISE okl_api.g_exception_error;
4736: END IF;
4737:
4738: okl_api.end_activity (x_msg_count => x_msg_count,
4739: x_msg_data => x_msg_data
4740: );
4741: EXCEPTION
4742: WHEN okl_api.g_exception_error THEN
4738: okl_api.end_activity (x_msg_count => x_msg_count,
4739: x_msg_data => x_msg_data
4740: );
4741: EXCEPTION
4742: WHEN okl_api.g_exception_error THEN
4743: x_return_status :=
4744: okl_api.handle_exceptions
4745: (p_api_name => l_api_name,
4746: p_pkg_name => g_pkg_name,
4740: );
4741: EXCEPTION
4742: WHEN okl_api.g_exception_error THEN
4743: x_return_status :=
4744: okl_api.handle_exceptions
4745: (p_api_name => l_api_name,
4746: p_pkg_name => g_pkg_name,
4747: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4748: x_msg_count => x_msg_count,
4743: x_return_status :=
4744: okl_api.handle_exceptions
4745: (p_api_name => l_api_name,
4746: p_pkg_name => g_pkg_name,
4747: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4748: x_msg_count => x_msg_count,
4749: x_msg_data => x_msg_data,
4750: p_api_type => g_api_type
4751: );
4748: x_msg_count => x_msg_count,
4749: x_msg_data => x_msg_data,
4750: p_api_type => g_api_type
4751: );
4752: WHEN okl_api.g_exception_unexpected_error THEN
4753: x_return_status :=
4754: okl_api.handle_exceptions
4755: (p_api_name => l_api_name,
4756: p_pkg_name => g_pkg_name,
4750: p_api_type => g_api_type
4751: );
4752: WHEN okl_api.g_exception_unexpected_error THEN
4753: x_return_status :=
4754: okl_api.handle_exceptions
4755: (p_api_name => l_api_name,
4756: p_pkg_name => g_pkg_name,
4757: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4758: x_msg_count => x_msg_count,
4753: x_return_status :=
4754: okl_api.handle_exceptions
4755: (p_api_name => l_api_name,
4756: p_pkg_name => g_pkg_name,
4757: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4758: x_msg_count => x_msg_count,
4759: x_msg_data => x_msg_data,
4760: p_api_type => g_api_type
4761: );
4760: p_api_type => g_api_type
4761: );
4762: WHEN OTHERS THEN
4763: x_return_status :=
4764: okl_api.handle_exceptions (p_api_name => l_api_name,
4765: p_pkg_name => g_pkg_name,
4766: p_exc_name => 'OTHERS',
4767: x_msg_count => x_msg_count,
4768: x_msg_data => x_msg_data,
4784: -- History : 24-Apr-2007 rpillay Created
4785: -- End of comments
4786: PROCEDURE calculate_upfront_tax (
4787: p_api_version IN NUMBER,
4788: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false,
4789: x_return_status OUT NOCOPY VARCHAR2,
4790: x_msg_count OUT NOCOPY NUMBER,
4791: x_msg_data OUT NOCOPY VARCHAR2,
4792: p_chr_id IN VARCHAR2,
4857: l_del_fee_line_id okc_k_lines_b.ID%TYPE;
4858: l_del_fee_types_rec okl_maintain_fee_pvt.fee_types_rec_type;
4859: --Bug# 6512668
4860: BEGIN
4861: x_process_status := okl_api.g_ret_sts_success;
4862: x_return_status :=
4863: okl_api.start_activity (p_api_name => l_api_name,
4864: p_pkg_name => g_pkg_name,
4865: p_init_msg_list => p_init_msg_list,
4859: --Bug# 6512668
4860: BEGIN
4861: x_process_status := okl_api.g_ret_sts_success;
4862: x_return_status :=
4863: okl_api.start_activity (p_api_name => l_api_name,
4864: p_pkg_name => g_pkg_name,
4865: p_init_msg_list => p_init_msg_list,
4866: l_api_version => l_api_version,
4867: p_api_version => p_api_version,
4869: x_return_status => x_return_status
4870: );
4871:
4872: -- check if activity started successfully
4873: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4874: RAISE okl_api.g_exception_unexpected_error;
4875: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4876: RAISE okl_api.g_exception_error;
4877: END IF;
4870: );
4871:
4872: -- check if activity started successfully
4873: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4874: RAISE okl_api.g_exception_unexpected_error;
4875: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4876: RAISE okl_api.g_exception_error;
4877: END IF;
4878:
4871:
4872: -- check if activity started successfully
4873: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4874: RAISE okl_api.g_exception_unexpected_error;
4875: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4876: RAISE okl_api.g_exception_error;
4877: END IF;
4878:
4879: l_upfront_tax_prog_sts := okl_book_controller_pvt.g_prog_sts_complete;
4872: -- check if activity started successfully
4873: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4874: RAISE okl_api.g_exception_unexpected_error;
4875: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4876: RAISE okl_api.g_exception_error;
4877: END IF;
4878:
4879: l_upfront_tax_prog_sts := okl_book_controller_pvt.g_prog_sts_complete;
4880:
4929: -- Bug 4769822 - START
4930: okl_la_sales_tax_pvt.process_sales_tax
4931: (p_api_version => p_api_version,
4932: p_init_msg_list => p_init_msg_list,
4933: p_commit => okl_api.g_false,
4934: p_contract_id => l_orig_khr_id,
4935: p_transaction_type => 'Pre-Rebook',
4936: p_transaction_id => l_transaction_id,
4937: -- R12 change NULL to l_transaction_id
4942: x_msg_count => x_msg_count,
4943: x_msg_data => x_msg_data
4944: );
4945:
4946: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4947: RAISE okl_api.g_exception_unexpected_error;
4948: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4949: RAISE okl_api.g_exception_error;
4950: END IF;
4943: x_msg_data => x_msg_data
4944: );
4945:
4946: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4947: RAISE okl_api.g_exception_unexpected_error;
4948: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4949: RAISE okl_api.g_exception_error;
4950: END IF;
4951:
4944: );
4945:
4946: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4947: RAISE okl_api.g_exception_unexpected_error;
4948: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4949: RAISE okl_api.g_exception_error;
4950: END IF;
4951:
4952: -- Bug 4769822 - END
4945:
4946: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4947: RAISE okl_api.g_exception_unexpected_error;
4948: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4949: RAISE okl_api.g_exception_error;
4950: END IF;
4951:
4952: -- Bug 4769822 - END
4953: okl_la_sales_tax_pvt.validate_upfront_tax_fee
4958: x_msg_data => x_msg_data,
4959: p_chr_id => p_chr_id
4960: );
4961:
4962: IF (x_return_status <> okl_api.g_ret_sts_success) THEN
4963: l_upfront_tax_prog_sts :=
4964: okl_book_controller_pvt.g_prog_sts_error;
4965: x_process_status := okl_api.g_ret_sts_error;
4966: x_return_status := okl_api.g_ret_sts_success;
4961:
4962: IF (x_return_status <> okl_api.g_ret_sts_success) THEN
4963: l_upfront_tax_prog_sts :=
4964: okl_book_controller_pvt.g_prog_sts_error;
4965: x_process_status := okl_api.g_ret_sts_error;
4966: x_return_status := okl_api.g_ret_sts_success;
4967: ELSE
4968: l_upfront_tax_prog_sts :=
4969: okl_book_controller_pvt.g_prog_sts_complete;
4962: IF (x_return_status <> okl_api.g_ret_sts_success) THEN
4963: l_upfront_tax_prog_sts :=
4964: okl_book_controller_pvt.g_prog_sts_error;
4965: x_process_status := okl_api.g_ret_sts_error;
4966: x_return_status := okl_api.g_ret_sts_success;
4967: ELSE
4968: l_upfront_tax_prog_sts :=
4969: okl_book_controller_pvt.g_prog_sts_complete;
4970: END IF;
4989:
4990: okl_la_sales_tax_pvt.process_sales_tax
4991: (p_api_version => p_api_version,
4992: p_init_msg_list => p_init_msg_list,
4993: p_commit => okl_api.g_false,
4994: p_contract_id => p_chr_id,
4995: p_transaction_type => 'Pre-Booking',
4996: p_transaction_id => NULL,
4997: p_transaction_date => NULL,
5000: x_msg_count => x_msg_count,
5001: x_msg_data => x_msg_data
5002: );
5003:
5004: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5005: RAISE okl_api.g_exception_unexpected_error;
5006: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5007: RAISE okl_api.g_exception_error;
5008: END IF;
5001: x_msg_data => x_msg_data
5002: );
5003:
5004: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5005: RAISE okl_api.g_exception_unexpected_error;
5006: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5007: RAISE okl_api.g_exception_error;
5008: END IF;
5009:
5002: );
5003:
5004: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5005: RAISE okl_api.g_exception_unexpected_error;
5006: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5007: RAISE okl_api.g_exception_error;
5008: END IF;
5009:
5010: -- Bug# 6512668: Delete Upfront Tax Fee line if Upfront
5003:
5004: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5005: RAISE okl_api.g_exception_unexpected_error;
5006: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5007: RAISE okl_api.g_exception_error;
5008: END IF;
5009:
5010: -- Bug# 6512668: Delete Upfront Tax Fee line if Upfront
5011: -- Tax System Option is set to 'N'
5037: x_msg_data => x_msg_data,
5038: p_fee_types_rec => l_del_fee_types_rec
5039: );
5040:
5041: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5042: RAISE okl_api.g_exception_unexpected_error;
5043: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5044: RAISE okl_api.g_exception_error;
5045: END IF;
5038: p_fee_types_rec => l_del_fee_types_rec
5039: );
5040:
5041: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5042: RAISE okl_api.g_exception_unexpected_error;
5043: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5044: RAISE okl_api.g_exception_error;
5045: END IF;
5046: END IF;
5039: );
5040:
5041: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5042: RAISE okl_api.g_exception_unexpected_error;
5043: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5044: RAISE okl_api.g_exception_error;
5045: END IF;
5046: END IF;
5047: END IF;
5040:
5041: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5042: RAISE okl_api.g_exception_unexpected_error;
5043: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5044: RAISE okl_api.g_exception_error;
5045: END IF;
5046: END IF;
5047: END IF;
5048:
5054: x_msg_data => x_msg_data,
5055: p_chr_id => p_chr_id
5056: );
5057:
5058: IF (x_return_status <> okl_api.g_ret_sts_success) THEN
5059: l_upfront_tax_prog_sts :=
5060: okl_book_controller_pvt.g_prog_sts_error;
5061: x_process_status := okl_api.g_ret_sts_error;
5062: x_return_status := okl_api.g_ret_sts_success;
5057:
5058: IF (x_return_status <> okl_api.g_ret_sts_success) THEN
5059: l_upfront_tax_prog_sts :=
5060: okl_book_controller_pvt.g_prog_sts_error;
5061: x_process_status := okl_api.g_ret_sts_error;
5062: x_return_status := okl_api.g_ret_sts_success;
5063: ELSE
5064: l_upfront_tax_prog_sts :=
5065: okl_book_controller_pvt.g_prog_sts_complete;
5058: IF (x_return_status <> okl_api.g_ret_sts_success) THEN
5059: l_upfront_tax_prog_sts :=
5060: okl_book_controller_pvt.g_prog_sts_error;
5061: x_process_status := okl_api.g_ret_sts_error;
5062: x_return_status := okl_api.g_ret_sts_success;
5063: ELSE
5064: l_upfront_tax_prog_sts :=
5065: okl_book_controller_pvt.g_prog_sts_complete;
5066: END IF;
5076: p_khr_status => 'PASSED',
5077: p_chr_id => p_chr_id
5078: );
5079:
5080: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5081: RAISE okl_api.g_exception_unexpected_error;
5082: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5083: RAISE okl_api.g_exception_error;
5084: END IF;
5077: p_chr_id => p_chr_id
5078: );
5079:
5080: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5081: RAISE okl_api.g_exception_unexpected_error;
5082: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5083: RAISE okl_api.g_exception_error;
5084: END IF;
5085:
5078: );
5079:
5080: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5081: RAISE okl_api.g_exception_unexpected_error;
5082: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5083: RAISE okl_api.g_exception_error;
5084: END IF;
5085:
5086: --call to cascade status on to lines
5079:
5080: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5081: RAISE okl_api.g_exception_unexpected_error;
5082: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5083: RAISE okl_api.g_exception_error;
5084: END IF;
5085:
5086: --call to cascade status on to lines
5087: okl_contract_status_pub.cascade_lease_status
5092: x_msg_data => x_msg_data,
5093: p_chr_id => p_chr_id
5094: );
5095:
5096: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5097: RAISE okl_api.g_exception_unexpected_error;
5098: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5099: RAISE okl_api.g_exception_error;
5100: END IF;
5093: p_chr_id => p_chr_id
5094: );
5095:
5096: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5097: RAISE okl_api.g_exception_unexpected_error;
5098: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5099: RAISE okl_api.g_exception_error;
5100: END IF;
5101:
5094: );
5095:
5096: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5097: RAISE okl_api.g_exception_unexpected_error;
5098: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5099: RAISE okl_api.g_exception_error;
5100: END IF;
5101:
5102: -- Update status of Validate Contract process to Complete
5095:
5096: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5097: RAISE okl_api.g_exception_unexpected_error;
5098: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5099: RAISE okl_api.g_exception_error;
5100: END IF;
5101:
5102: -- Update status of Validate Contract process to Complete
5103: okl_book_controller_pvt.update_book_controller_trx
5110: p_prog_short_name => okl_book_controller_pvt.g_validate_contract,
5111: p_progress_status => okl_book_controller_pvt.g_prog_sts_complete
5112: );
5113:
5114: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5115: RAISE okl_api.g_exception_unexpected_error;
5116: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5117: RAISE okl_api.g_exception_error;
5118: END IF;
5111: p_progress_status => okl_book_controller_pvt.g_prog_sts_complete
5112: );
5113:
5114: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5115: RAISE okl_api.g_exception_unexpected_error;
5116: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5117: RAISE okl_api.g_exception_error;
5118: END IF;
5119:
5112: );
5113:
5114: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5115: RAISE okl_api.g_exception_unexpected_error;
5116: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5117: RAISE okl_api.g_exception_error;
5118: END IF;
5119:
5120: okl_book_controller_pvt.update_book_controller_trx
5113:
5114: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5115: RAISE okl_api.g_exception_unexpected_error;
5116: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5117: RAISE okl_api.g_exception_error;
5118: END IF;
5119:
5120: okl_book_controller_pvt.update_book_controller_trx
5121: (p_api_version => p_api_version,
5127: p_prog_short_name => okl_book_controller_pvt.g_calc_upfront_tax,
5128: p_progress_status => l_upfront_tax_prog_sts
5129: );
5130:
5131: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5132: RAISE okl_api.g_exception_unexpected_error;
5133: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5134: RAISE okl_api.g_exception_error;
5135: END IF;
5128: p_progress_status => l_upfront_tax_prog_sts
5129: );
5130:
5131: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5132: RAISE okl_api.g_exception_unexpected_error;
5133: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5134: RAISE okl_api.g_exception_error;
5135: END IF;
5136:
5129: );
5130:
5131: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5132: RAISE okl_api.g_exception_unexpected_error;
5133: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5134: RAISE okl_api.g_exception_error;
5135: END IF;
5136:
5137: okl_api.end_activity (x_msg_count => x_msg_count,
5130:
5131: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5132: RAISE okl_api.g_exception_unexpected_error;
5133: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5134: RAISE okl_api.g_exception_error;
5135: END IF;
5136:
5137: okl_api.end_activity (x_msg_count => x_msg_count,
5138: x_msg_data => x_msg_data
5133: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5134: RAISE okl_api.g_exception_error;
5135: END IF;
5136:
5137: okl_api.end_activity (x_msg_count => x_msg_count,
5138: x_msg_data => x_msg_data
5139: );
5140: EXCEPTION
5141: WHEN okl_api.g_exception_error THEN
5137: okl_api.end_activity (x_msg_count => x_msg_count,
5138: x_msg_data => x_msg_data
5139: );
5140: EXCEPTION
5141: WHEN okl_api.g_exception_error THEN
5142: x_return_status :=
5143: okl_api.handle_exceptions
5144: (p_api_name => l_api_name,
5145: p_pkg_name => g_pkg_name,
5139: );
5140: EXCEPTION
5141: WHEN okl_api.g_exception_error THEN
5142: x_return_status :=
5143: okl_api.handle_exceptions
5144: (p_api_name => l_api_name,
5145: p_pkg_name => g_pkg_name,
5146: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5147: x_msg_count => x_msg_count,
5142: x_return_status :=
5143: okl_api.handle_exceptions
5144: (p_api_name => l_api_name,
5145: p_pkg_name => g_pkg_name,
5146: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5147: x_msg_count => x_msg_count,
5148: x_msg_data => x_msg_data,
5149: p_api_type => g_api_type
5150: );
5147: x_msg_count => x_msg_count,
5148: x_msg_data => x_msg_data,
5149: p_api_type => g_api_type
5150: );
5151: x_process_status := okl_api.g_ret_sts_error;
5152: WHEN okl_api.g_exception_unexpected_error THEN
5153: x_return_status :=
5154: okl_api.handle_exceptions
5155: (p_api_name => l_api_name,
5148: x_msg_data => x_msg_data,
5149: p_api_type => g_api_type
5150: );
5151: x_process_status := okl_api.g_ret_sts_error;
5152: WHEN okl_api.g_exception_unexpected_error THEN
5153: x_return_status :=
5154: okl_api.handle_exceptions
5155: (p_api_name => l_api_name,
5156: p_pkg_name => g_pkg_name,
5150: );
5151: x_process_status := okl_api.g_ret_sts_error;
5152: WHEN okl_api.g_exception_unexpected_error THEN
5153: x_return_status :=
5154: okl_api.handle_exceptions
5155: (p_api_name => l_api_name,
5156: p_pkg_name => g_pkg_name,
5157: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5158: x_msg_count => x_msg_count,
5153: x_return_status :=
5154: okl_api.handle_exceptions
5155: (p_api_name => l_api_name,
5156: p_pkg_name => g_pkg_name,
5157: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5158: x_msg_count => x_msg_count,
5159: x_msg_data => x_msg_data,
5160: p_api_type => g_api_type
5161: );
5158: x_msg_count => x_msg_count,
5159: x_msg_data => x_msg_data,
5160: p_api_type => g_api_type
5161: );
5162: x_process_status := okl_api.g_ret_sts_error;
5163: WHEN OTHERS THEN
5164: x_return_status :=
5165: okl_api.handle_exceptions (p_api_name => l_api_name,
5166: p_pkg_name => g_pkg_name,
5161: );
5162: x_process_status := okl_api.g_ret_sts_error;
5163: WHEN OTHERS THEN
5164: x_return_status :=
5165: okl_api.handle_exceptions (p_api_name => l_api_name,
5166: p_pkg_name => g_pkg_name,
5167: p_exc_name => 'OTHERS',
5168: x_msg_count => x_msg_count,
5169: x_msg_data => x_msg_data,
5168: x_msg_count => x_msg_count,
5169: x_msg_data => x_msg_data,
5170: p_api_type => g_api_type
5171: );
5172: x_process_status := okl_api.g_ret_sts_error;
5173: END calculate_upfront_tax;
5174:
5175: -----------------------------------------------------------------------------
5176: -- PROCEDURE approve_activate_contract
5188: -- History : 24-Apr-2007 rpillay Created
5189: -- End of comments
5190: PROCEDURE approve_activate_contract (
5191: p_api_version IN NUMBER,
5192: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false,
5193: x_return_status OUT NOCOPY VARCHAR2,
5194: x_msg_count OUT NOCOPY NUMBER,
5195: x_msg_data OUT NOCOPY VARCHAR2,
5196: p_chr_id IN VARCHAR2,
5254: AND rbk_khr.status <> 'PROCESSED');
5255:
5256: l_chk_mass_rbk_rec l_chk_mass_rbk_csr%ROWTYPE;
5257: BEGIN
5258: x_process_status := okl_api.g_ret_sts_success;
5259: x_return_status :=
5260: okl_api.start_activity (p_api_name => l_api_name,
5261: p_pkg_name => g_pkg_name,
5262: p_init_msg_list => p_init_msg_list,
5256: l_chk_mass_rbk_rec l_chk_mass_rbk_csr%ROWTYPE;
5257: BEGIN
5258: x_process_status := okl_api.g_ret_sts_success;
5259: x_return_status :=
5260: okl_api.start_activity (p_api_name => l_api_name,
5261: p_pkg_name => g_pkg_name,
5262: p_init_msg_list => p_init_msg_list,
5263: l_api_version => l_api_version,
5264: p_api_version => p_api_version,
5266: x_return_status => x_return_status
5267: );
5268:
5269: -- check if activity started successfully
5270: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5271: RAISE okl_api.g_exception_unexpected_error;
5272: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5273: RAISE okl_api.g_exception_error;
5274: END IF;
5267: );
5268:
5269: -- check if activity started successfully
5270: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5271: RAISE okl_api.g_exception_unexpected_error;
5272: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5273: RAISE okl_api.g_exception_error;
5274: END IF;
5275:
5268:
5269: -- check if activity started successfully
5270: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5271: RAISE okl_api.g_exception_unexpected_error;
5272: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5273: RAISE okl_api.g_exception_error;
5274: END IF;
5275:
5276: --fetch contract status code
5269: -- check if activity started successfully
5270: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5271: RAISE okl_api.g_exception_unexpected_error;
5272: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5273: RAISE okl_api.g_exception_error;
5274: END IF;
5275:
5276: --fetch contract status code
5277: OPEN sts_code_csr (p_chr_id);
5303: x_msg_data => x_msg_data,
5304: p_chr_id => p_chr_id
5305: );
5306:
5307: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5308: RAISE okl_api.g_exception_unexpected_error;
5309: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5310: RAISE okl_api.g_exception_error;
5311: END IF;
5304: p_chr_id => p_chr_id
5305: );
5306:
5307: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5308: RAISE okl_api.g_exception_unexpected_error;
5309: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5310: RAISE okl_api.g_exception_error;
5311: END IF;
5312:
5305: );
5306:
5307: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5308: RAISE okl_api.g_exception_unexpected_error;
5309: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5310: RAISE okl_api.g_exception_error;
5311: END IF;
5312:
5313: --read profile for approval path
5306:
5307: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5308: RAISE okl_api.g_exception_unexpected_error;
5309: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5310: RAISE okl_api.g_exception_error;
5311: END IF;
5312:
5313: --read profile for approval path
5314: l_approval_path :=
5328: p_chr_id => p_chr_id
5329: );
5330:
5331: IF (x_return_status IN
5332: (okl_api.g_ret_sts_unexp_error, okl_api.g_ret_sts_error)
5333: ) THEN
5334: RAISE contract_activation_failed;
5335: END IF;
5336:
5345: x_rem_amt => l_rem_amt
5346: );
5347:
5348: IF (x_return_status IN
5349: (okl_api.g_ret_sts_unexp_error, okl_api.g_ret_sts_error)
5350: ) THEN
5351: RAISE contract_activation_failed;
5352: END IF;
5353:
5371: END IF;
5372:
5373: CLOSE get_term_qte_num;
5374:
5375: okl_api.set_message
5376: (p_app_name => g_app_name,
5377: p_msg_name => 'OKL_LLA_REL_TERMN_NO_COMPLETE',
5378: p_token1 => 'QUOTE_NUM',
5379: p_token1_value => l_qte_num
5379: p_token1_value => l_qte_num
5380: );
5381: RAISE contract_activation_failed;
5382: ELSIF ( l_rem_amt IS NOT NULL
5383: AND l_rem_amt <> okl_api.g_miss_num
5384: AND ROUND (l_rem_amt) < 0
5385: ) THEN
5386: --rollover fee amount warning
5387: okl_api.set_message (p_app_name => g_app_name,
5383: AND l_rem_amt <> okl_api.g_miss_num
5384: AND ROUND (l_rem_amt) < 0
5385: ) THEN
5386: --rollover fee amount warning
5387: okl_api.set_message (p_app_name => g_app_name,
5388: p_msg_name => 'OKL_ROLL_QT_WRNG'
5389: );
5390: x_process_status := okl_api.g_ret_sts_warning;
5391: END IF;
5386: --rollover fee amount warning
5387: okl_api.set_message (p_app_name => g_app_name,
5388: p_msg_name => 'OKL_ROLL_QT_WRNG'
5389: );
5390: x_process_status := okl_api.g_ret_sts_warning;
5391: END IF;
5392:
5393: okl_book_controller_pvt.update_book_controller_trx
5394: (p_api_version => p_api_version,
5391: END IF;
5392:
5393: okl_book_controller_pvt.update_book_controller_trx
5394: (p_api_version => p_api_version,
5395: p_init_msg_list => okl_api.g_false,
5396: --To retain message stack
5397: x_return_status => x_return_status,
5398: x_msg_count => x_msg_count,
5399: x_msg_data => x_msg_data,
5401: p_prog_short_name => okl_book_controller_pvt.g_submit_contract,
5402: p_progress_status => okl_book_controller_pvt.g_prog_sts_complete
5403: );
5404:
5405: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5406: RAISE okl_api.g_exception_unexpected_error;
5407: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5408: RAISE okl_api.g_exception_error;
5409: END IF;
5402: p_progress_status => okl_book_controller_pvt.g_prog_sts_complete
5403: );
5404:
5405: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5406: RAISE okl_api.g_exception_unexpected_error;
5407: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5408: RAISE okl_api.g_exception_error;
5409: END IF;
5410: END IF;
5403: );
5404:
5405: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5406: RAISE okl_api.g_exception_unexpected_error;
5407: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5408: RAISE okl_api.g_exception_error;
5409: END IF;
5410: END IF;
5411: -- Bug# 5038395
5404:
5405: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5406: RAISE okl_api.g_exception_unexpected_error;
5407: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5408: RAISE okl_api.g_exception_error;
5409: END IF;
5410: END IF;
5411: -- Bug# 5038395
5412: -- If Mass Rebook is in progress, then do mass rebook activation
5420: p_chr_id => p_chr_id
5421: );
5422:
5423: IF (x_return_status IN
5424: (okl_api.g_ret_sts_unexp_error, okl_api.g_ret_sts_error)
5425: ) THEN
5426: RAISE contract_activation_failed;
5427: END IF;
5428: END IF;
5426: RAISE contract_activation_failed;
5427: END IF;
5428: END IF;
5429:
5430: x_return_status := okl_api.g_ret_sts_success;
5431: okl_api.end_activity (x_msg_count => x_msg_count,
5432: x_msg_data => x_msg_data
5433: );
5434: EXCEPTION
5427: END IF;
5428: END IF;
5429:
5430: x_return_status := okl_api.g_ret_sts_success;
5431: okl_api.end_activity (x_msg_count => x_msg_count,
5432: x_msg_data => x_msg_data
5433: );
5434: EXCEPTION
5435: WHEN contract_activation_failed THEN
5432: x_msg_data => x_msg_data
5433: );
5434: EXCEPTION
5435: WHEN contract_activation_failed THEN
5436: x_process_status := okl_api.g_ret_sts_error;
5437: okl_book_controller_pvt.update_book_controller_trx
5438: (p_api_version => p_api_version,
5439: p_init_msg_list => okl_api.g_false,
5440: --To retain message stack
5435: WHEN contract_activation_failed THEN
5436: x_process_status := okl_api.g_ret_sts_error;
5437: okl_book_controller_pvt.update_book_controller_trx
5438: (p_api_version => p_api_version,
5439: p_init_msg_list => okl_api.g_false,
5440: --To retain message stack
5441: x_return_status => x_return_status,
5442: x_msg_count => x_msg_count,
5443: x_msg_data => x_msg_data,
5445: p_prog_short_name => okl_book_controller_pvt.g_submit_contract,
5446: p_progress_status => okl_book_controller_pvt.g_prog_sts_error
5447: );
5448:
5449: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5450: RAISE okl_api.g_exception_unexpected_error;
5451: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5452: RAISE okl_api.g_exception_error;
5453: END IF;
5446: p_progress_status => okl_book_controller_pvt.g_prog_sts_error
5447: );
5448:
5449: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5450: RAISE okl_api.g_exception_unexpected_error;
5451: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5452: RAISE okl_api.g_exception_error;
5453: END IF;
5454:
5447: );
5448:
5449: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5450: RAISE okl_api.g_exception_unexpected_error;
5451: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5452: RAISE okl_api.g_exception_error;
5453: END IF;
5454:
5455: x_return_status := okl_api.g_ret_sts_success;
5448:
5449: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5450: RAISE okl_api.g_exception_unexpected_error;
5451: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5452: RAISE okl_api.g_exception_error;
5453: END IF;
5454:
5455: x_return_status := okl_api.g_ret_sts_success;
5456: WHEN okl_api.g_exception_error THEN
5451: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5452: RAISE okl_api.g_exception_error;
5453: END IF;
5454:
5455: x_return_status := okl_api.g_ret_sts_success;
5456: WHEN okl_api.g_exception_error THEN
5457: x_return_status :=
5458: okl_api.handle_exceptions
5459: (p_api_name => l_api_name,
5452: RAISE okl_api.g_exception_error;
5453: END IF;
5454:
5455: x_return_status := okl_api.g_ret_sts_success;
5456: WHEN okl_api.g_exception_error THEN
5457: x_return_status :=
5458: okl_api.handle_exceptions
5459: (p_api_name => l_api_name,
5460: p_pkg_name => g_pkg_name,
5454:
5455: x_return_status := okl_api.g_ret_sts_success;
5456: WHEN okl_api.g_exception_error THEN
5457: x_return_status :=
5458: okl_api.handle_exceptions
5459: (p_api_name => l_api_name,
5460: p_pkg_name => g_pkg_name,
5461: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5462: x_msg_count => x_msg_count,
5457: x_return_status :=
5458: okl_api.handle_exceptions
5459: (p_api_name => l_api_name,
5460: p_pkg_name => g_pkg_name,
5461: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5462: x_msg_count => x_msg_count,
5463: x_msg_data => x_msg_data,
5464: p_api_type => g_api_type
5465: );
5462: x_msg_count => x_msg_count,
5463: x_msg_data => x_msg_data,
5464: p_api_type => g_api_type
5465: );
5466: x_process_status := okl_api.g_ret_sts_error;
5467: WHEN okl_api.g_exception_unexpected_error THEN
5468: x_return_status :=
5469: okl_api.handle_exceptions
5470: (p_api_name => l_api_name,
5463: x_msg_data => x_msg_data,
5464: p_api_type => g_api_type
5465: );
5466: x_process_status := okl_api.g_ret_sts_error;
5467: WHEN okl_api.g_exception_unexpected_error THEN
5468: x_return_status :=
5469: okl_api.handle_exceptions
5470: (p_api_name => l_api_name,
5471: p_pkg_name => g_pkg_name,
5465: );
5466: x_process_status := okl_api.g_ret_sts_error;
5467: WHEN okl_api.g_exception_unexpected_error THEN
5468: x_return_status :=
5469: okl_api.handle_exceptions
5470: (p_api_name => l_api_name,
5471: p_pkg_name => g_pkg_name,
5472: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5473: x_msg_count => x_msg_count,
5468: x_return_status :=
5469: okl_api.handle_exceptions
5470: (p_api_name => l_api_name,
5471: p_pkg_name => g_pkg_name,
5472: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5473: x_msg_count => x_msg_count,
5474: x_msg_data => x_msg_data,
5475: p_api_type => g_api_type
5476: );
5473: x_msg_count => x_msg_count,
5474: x_msg_data => x_msg_data,
5475: p_api_type => g_api_type
5476: );
5477: x_process_status := okl_api.g_ret_sts_error;
5478: WHEN OTHERS THEN
5479: x_return_status :=
5480: okl_api.handle_exceptions (p_api_name => l_api_name,
5481: p_pkg_name => g_pkg_name,
5476: );
5477: x_process_status := okl_api.g_ret_sts_error;
5478: WHEN OTHERS THEN
5479: x_return_status :=
5480: okl_api.handle_exceptions (p_api_name => l_api_name,
5481: p_pkg_name => g_pkg_name,
5482: p_exc_name => 'OTHERS',
5483: x_msg_count => x_msg_count,
5484: x_msg_data => x_msg_data,
5483: x_msg_count => x_msg_count,
5484: x_msg_data => x_msg_data,
5485: p_api_type => g_api_type
5486: );
5487: x_process_status := okl_api.g_ret_sts_error;
5488: END approve_activate_contract;
5489: END okl_contract_book_pvt;