16: is_debug_procedure_on boolean;
17: is_debug_statement_on boolean;
18: x_msg_data VARCHAR2(2000);
19: l_api_version CONSTANT number := 1.0;
20: l_return_status varchar2(1) := okl_api.g_ret_sts_success;
21: l_program_name CONSTANT VARCHAR2(30) := 'populate';
22: l_api_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_program_name;
23: l_init_msg_list VARCHAR2(3);
24: l_parent_object_id NUMBER;
110: is_debug_statement_on := okl_debug_pub.check_log_on(l_module
111: ,fnd_log.level_statement);
112: -- call START_ACTIVITY to create savepoint, check compatibility
113: -- and initialize message list
114: l_return_status := okl_api.start_activity(p_api_name => l_api_name
115: ,p_pkg_name => G_PKG_NAME
116: ,p_init_msg_list => l_init_msg_list
117: ,l_api_version => l_api_version
118: ,p_api_version => l_api_version
118: ,p_api_version => l_api_version
119: ,p_api_type => G_API_TYPE
120: ,x_return_status => x_return_status); -- check if activity started successfully
121:
122: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
123: RAISE okl_api.g_exception_unexpected_error;
124: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
125: RAISE okl_api.g_exception_error;
126: END IF;
119: ,p_api_type => G_API_TYPE
120: ,x_return_status => x_return_status); -- check if activity started successfully
121:
122: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
123: RAISE okl_api.g_exception_unexpected_error;
124: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
125: RAISE okl_api.g_exception_error;
126: END IF;
127:
120: ,x_return_status => x_return_status); -- check if activity started successfully
121:
122: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
123: RAISE okl_api.g_exception_unexpected_error;
124: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
125: RAISE okl_api.g_exception_error;
126: END IF;
127:
128: OPEN c_lq_rec(p_target_id);
121:
122: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
123: RAISE okl_api.g_exception_unexpected_error;
124: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
125: RAISE okl_api.g_exception_error;
126: END IF;
127:
128: OPEN c_lq_rec(p_target_id);
129: FETCH c_lq_rec INTO l_parent_object_id,l_parent_object_code,l_expected_start_date,l_term;
184: ' x_msg_data ' ||
185: x_msg_data);
186: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
187:
188: IF (l_return_status = okl_api.g_ret_sts_error) THEN
189: RAISE okl_api.g_exception_error;
190: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
191: RAISE okl_api.g_exception_unexpected_error;
192: END IF;
185: x_msg_data);
186: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
187:
188: IF (l_return_status = okl_api.g_ret_sts_error) THEN
189: RAISE okl_api.g_exception_error;
190: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
191: RAISE okl_api.g_exception_unexpected_error;
192: END IF;
193: okl_api.end_activity(x_msg_count => l_msg_count
186: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
187:
188: IF (l_return_status = okl_api.g_ret_sts_error) THEN
189: RAISE okl_api.g_exception_error;
190: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
191: RAISE okl_api.g_exception_unexpected_error;
192: END IF;
193: okl_api.end_activity(x_msg_count => l_msg_count
194: ,x_msg_data => x_msg_data);
187:
188: IF (l_return_status = okl_api.g_ret_sts_error) THEN
189: RAISE okl_api.g_exception_error;
190: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
191: RAISE okl_api.g_exception_unexpected_error;
192: END IF;
193: okl_api.end_activity(x_msg_count => l_msg_count
194: ,x_msg_data => x_msg_data);
195:
189: RAISE okl_api.g_exception_error;
190: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
191: RAISE okl_api.g_exception_unexpected_error;
192: END IF;
193: okl_api.end_activity(x_msg_count => l_msg_count
194: ,x_msg_data => x_msg_data);
195:
196: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
197: okl_debug_pub.log_debug(fnd_log.level_procedure
198: ,l_module
199: ,'end debug OKL_EC_UPTAKE_PVT.pls call populate_lq_attributes');
200: END IF;
201: EXCEPTION
202: WHEN okl_api.g_exception_error THEN
203:
204: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
205: ,p_pkg_name => G_PKG_NAME
206: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
200: END IF;
201: EXCEPTION
202: WHEN okl_api.g_exception_error THEN
203:
204: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
205: ,p_pkg_name => G_PKG_NAME
206: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
207: ,x_msg_count => l_msg_count
208: ,x_msg_data => x_msg_data
202: WHEN okl_api.g_exception_error THEN
203:
204: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
205: ,p_pkg_name => G_PKG_NAME
206: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
207: ,x_msg_count => l_msg_count
208: ,x_msg_data => x_msg_data
209: ,p_api_type => G_API_TYPE);
210:
207: ,x_msg_count => l_msg_count
208: ,x_msg_data => x_msg_data
209: ,p_api_type => G_API_TYPE);
210:
211: WHEN okl_api.g_exception_unexpected_error THEN
212:
213: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
214: ,p_pkg_name => G_PKG_NAME
215: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
209: ,p_api_type => G_API_TYPE);
210:
211: WHEN okl_api.g_exception_unexpected_error THEN
212:
213: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
214: ,p_pkg_name => G_PKG_NAME
215: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
216: ,x_msg_count => l_msg_count
217: ,x_msg_data => x_msg_data
211: WHEN okl_api.g_exception_unexpected_error THEN
212:
213: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
214: ,p_pkg_name => G_PKG_NAME
215: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
216: ,x_msg_count => l_msg_count
217: ,x_msg_data => x_msg_data
218: ,p_api_type => G_API_TYPE);
219:
218: ,p_api_type => G_API_TYPE);
219:
220: WHEN OTHERS THEN
221:
222: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
223: ,p_pkg_name => G_PKG_NAME
224: ,p_exc_name => 'OTHERS'
225: ,x_msg_count => l_msg_count
226: ,x_msg_data => x_msg_data
272: END IF;
273: return l_vendor_prog_id;
274: EXCEPTION
275: WHEN OTHERS THEN
276: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
277: p_msg_name => G_DB_ERROR,
278: p_token1 => G_PROG_NAME_TOKEN,
279: p_token1_value => l_api_name,
280: p_token2 => G_SQLCODE_TOKEN,
318: l_debug_enabled varchar2(10);
319: is_debug_procedure_on boolean;
320: is_debug_statement_on boolean;
321: l_api_version CONSTANT number := 1.0;
322: l_return_status varchar2(1) := okl_api.g_ret_sts_success;
323: x_eligible boolean;
324: l_validation_mode VARCHAR2(30);
325: --Bug # 5045505 ssdeshpa Start
326: --Modified Cursor in order to filtered the LRS on currency Code
362:
363: -- call START_ACTIVITY to create savepoint, check compatibility
364: -- and initialize message list
365:
366: l_return_status := okl_api.start_activity(p_api_name => l_api_name
367: ,p_pkg_name => G_PKG_NAME
368: ,p_init_msg_list => p_init_msg_list
369: ,l_api_version => l_api_version
370: ,p_api_version => p_api_version
370: ,p_api_version => p_api_version
371: ,p_api_type => G_API_TYPE
372: ,x_return_status => x_return_status); -- check if activity started successfully
373:
374: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
375: RAISE okl_api.g_exception_unexpected_error;
376: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
377: RAISE okl_api.g_exception_error;
378: END IF;
371: ,p_api_type => G_API_TYPE
372: ,x_return_status => x_return_status); -- check if activity started successfully
373:
374: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
375: RAISE okl_api.g_exception_unexpected_error;
376: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
377: RAISE okl_api.g_exception_error;
378: END IF;
379: --Populate the Record Structure for the OKL_ECC_PUB.validate method
372: ,x_return_status => x_return_status); -- check if activity started successfully
373:
374: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
375: RAISE okl_api.g_exception_unexpected_error;
376: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
377: RAISE okl_api.g_exception_error;
378: END IF;
379: --Populate the Record Structure for the OKL_ECC_PUB.validate method
380: --l_okl_ec_rec_type.target
373:
374: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
375: RAISE okl_api.g_exception_unexpected_error;
376: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
377: RAISE okl_api.g_exception_error;
378: END IF;
379: --Populate the Record Structure for the OKL_ECC_PUB.validate method
380: --l_okl_ec_rec_type.target
381: l_okl_ec_rec_type.src_type:='LRS';
412: ,x_msg_data
413: ,l_okl_ec_rec_type
414: ,x_eligible);
415:
416: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
417: RAISE okl_api.g_exception_unexpected_error;
418: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
419: RAISE okl_api.g_exception_error;
420: END IF;
413: ,l_okl_ec_rec_type
414: ,x_eligible);
415:
416: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
417: RAISE okl_api.g_exception_unexpected_error;
418: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
419: RAISE okl_api.g_exception_error;
420: END IF;
421: IF(x_eligible) THEN
414: ,x_eligible);
415:
416: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
417: RAISE okl_api.g_exception_unexpected_error;
418: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
419: RAISE okl_api.g_exception_error;
420: END IF;
421: IF(x_eligible) THEN
422: l_okl_lrs_table(i).id:=l_okl_lrs_rec.id;
415:
416: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
417: RAISE okl_api.g_exception_unexpected_error;
418: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
419: RAISE okl_api.g_exception_error;
420: END IF;
421: IF(x_eligible) THEN
422: l_okl_lrs_table(i).id:=l_okl_lrs_rec.id;
423: l_okl_lrs_table(i).name:=l_okl_lrs_rec.name;
444: ' x_msg_data ' ||
445: x_msg_data);
446: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
447:
448: IF (l_return_status = okl_api.g_ret_sts_error) THEN
449: RAISE okl_api.g_exception_error;
450: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
451: RAISE okl_api.g_exception_unexpected_error;
452: END IF; --Copy value of OUT variable in the IN rvldrd type
445: x_msg_data);
446: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
447:
448: IF (l_return_status = okl_api.g_ret_sts_error) THEN
449: RAISE okl_api.g_exception_error;
450: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
451: RAISE okl_api.g_exception_unexpected_error;
452: END IF; --Copy value of OUT variable in the IN rvldrd type
453: okl_api.end_activity(x_msg_count => x_msg_count
446: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
447:
448: IF (l_return_status = okl_api.g_ret_sts_error) THEN
449: RAISE okl_api.g_exception_error;
450: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
451: RAISE okl_api.g_exception_unexpected_error;
452: END IF; --Copy value of OUT variable in the IN rvldrd type
453: okl_api.end_activity(x_msg_count => x_msg_count
454: ,x_msg_data => x_msg_data);
447:
448: IF (l_return_status = okl_api.g_ret_sts_error) THEN
449: RAISE okl_api.g_exception_error;
450: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
451: RAISE okl_api.g_exception_unexpected_error;
452: END IF; --Copy value of OUT variable in the IN rvldrd type
453: okl_api.end_activity(x_msg_count => x_msg_count
454: ,x_msg_data => x_msg_data);
455:
449: RAISE okl_api.g_exception_error;
450: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
451: RAISE okl_api.g_exception_unexpected_error;
452: END IF; --Copy value of OUT variable in the IN rvldrd type
453: okl_api.end_activity(x_msg_count => x_msg_count
454: ,x_msg_data => x_msg_data);
455:
456: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
457: okl_debug_pub.log_debug(fnd_log.level_procedure
459: ,'end debug OKL_EC_UPTAKE_PVT.pls call populate_lease_rate_set');
460: END IF;
461: EXCEPTION
462:
463: WHEN okl_api.g_exception_error THEN
464:
465: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
466: ,p_pkg_name => G_PKG_NAME
467: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
461: EXCEPTION
462:
463: WHEN okl_api.g_exception_error THEN
464:
465: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
466: ,p_pkg_name => G_PKG_NAME
467: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
468: ,x_msg_count => x_msg_count
469: ,x_msg_data => x_msg_data
463: WHEN okl_api.g_exception_error THEN
464:
465: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
466: ,p_pkg_name => G_PKG_NAME
467: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
468: ,x_msg_count => x_msg_count
469: ,x_msg_data => x_msg_data
470: ,p_api_type => G_API_TYPE);
471:
468: ,x_msg_count => x_msg_count
469: ,x_msg_data => x_msg_data
470: ,p_api_type => G_API_TYPE);
471:
472: WHEN okl_api.g_exception_unexpected_error THEN
473:
474: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
475: ,p_pkg_name => G_PKG_NAME
476: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
470: ,p_api_type => G_API_TYPE);
471:
472: WHEN okl_api.g_exception_unexpected_error THEN
473:
474: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
475: ,p_pkg_name => G_PKG_NAME
476: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
477: ,x_msg_count => x_msg_count
478: ,x_msg_data => x_msg_data
472: WHEN okl_api.g_exception_unexpected_error THEN
473:
474: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
475: ,p_pkg_name => G_PKG_NAME
476: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
477: ,x_msg_count => x_msg_count
478: ,x_msg_data => x_msg_data
479: ,p_api_type => G_API_TYPE);
480:
479: ,p_api_type => G_API_TYPE);
480:
481: WHEN OTHERS THEN
482:
483: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
484: ,p_pkg_name => G_PKG_NAME
485: ,p_exc_name => 'OTHERS'
486: ,x_msg_count => x_msg_count
487: ,x_msg_data => x_msg_data
519: l_okl_srt_rec okl_std_rate_tmpl_rec_type;
520: l_okl_ec_rec_type okl_ec_evaluate_pvt.okl_ec_rec_type;
521: l_okl_srt_table okl_std_rate_tmpl_tbl_type;
522: l_api_version CONSTANT number := 1.0;
523: l_return_status varchar2(1) := okl_api.g_ret_sts_success;
524: l_module CONSTANT fnd_log_messages.module%TYPE := 'lrs';
525: l_debug_enabled varchar2(10);
526: is_debug_procedure_on boolean;
527: is_debug_statement_on boolean;
626: ,fnd_log.level_statement);
627: -- call START_ACTIVITY to create savepoint, check compatibility
628: -- and initialize message list
629:
630: l_return_status := okl_api.start_activity(p_api_name => l_api_name
631: ,p_pkg_name => G_PKG_NAME
632: ,p_init_msg_list => p_init_msg_list
633: ,l_api_version => l_api_version
634: ,p_api_version => p_api_version
634: ,p_api_version => p_api_version
635: ,p_api_type => G_API_TYPE
636: ,x_return_status => x_return_status); -- check if activity started successfully
637:
638: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
639: RAISE okl_api.g_exception_unexpected_error;
640: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
641: RAISE okl_api.g_exception_error;
642: END IF;
635: ,p_api_type => G_API_TYPE
636: ,x_return_status => x_return_status); -- check if activity started successfully
637:
638: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
639: RAISE okl_api.g_exception_unexpected_error;
640: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
641: RAISE okl_api.g_exception_error;
642: END IF;
643: --Populate the Record Structure for the OKL_ECC_PUB.validate method
636: ,x_return_status => x_return_status); -- check if activity started successfully
637:
638: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
639: RAISE okl_api.g_exception_unexpected_error;
640: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
641: RAISE okl_api.g_exception_error;
642: END IF;
643: --Populate the Record Structure for the OKL_ECC_PUB.validate method
644: --l_okl_ec_rec_type.target
637:
638: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
639: RAISE okl_api.g_exception_unexpected_error;
640: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
641: RAISE okl_api.g_exception_error;
642: END IF;
643: --Populate the Record Structure for the OKL_ECC_PUB.validate method
644: --l_okl_ec_rec_type.target
645: l_okl_ec_rec_type.src_type:='SRT';
676: ,x_msg_data
677: ,l_okl_ec_rec_type
678: ,x_eligible);
679:
680: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
681: RAISE okl_api.g_exception_unexpected_error;
682: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
683: RAISE okl_api.g_exception_error;
684: END IF;
677: ,l_okl_ec_rec_type
678: ,x_eligible);
679:
680: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
681: RAISE okl_api.g_exception_unexpected_error;
682: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
683: RAISE okl_api.g_exception_error;
684: END IF;
685: IF(x_eligible) THEN
678: ,x_eligible);
679:
680: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
681: RAISE okl_api.g_exception_unexpected_error;
682: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
683: RAISE okl_api.g_exception_error;
684: END IF;
685: IF(x_eligible) THEN
686: ----------------------------------------------------------------
679:
680: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
681: RAISE okl_api.g_exception_unexpected_error;
682: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
683: RAISE okl_api.g_exception_error;
684: END IF;
685: IF(x_eligible) THEN
686: ----------------------------------------------------------------
687: --Bug # 5045505 ssdeshpa start
704: x_msg_count => x_msg_count,
705: x_msg_data => x_msg_data,
706: p_okl_ac_rec => l_ac_rec_type,
707: x_adjustment_factor => l_adj_factor );
708: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
710: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
711: RAISE OKL_API.G_EXCEPTION_ERROR;
712: END IF;
705: x_msg_data => x_msg_data,
706: p_okl_ac_rec => l_ac_rec_type,
707: x_adjustment_factor => l_adj_factor );
708: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
710: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
711: RAISE OKL_API.G_EXCEPTION_ERROR;
712: END IF;
713: --Calculate Effective Rate
706: p_okl_ac_rec => l_ac_rec_type,
707: x_adjustment_factor => l_adj_factor );
708: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
710: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
711: RAISE OKL_API.G_EXCEPTION_ERROR;
712: END IF;
713: --Calculate Effective Rate
714: l_srt_effective_rate := l_okl_srt_rec.srt_rate + nvl(l_okl_srt_rec.spread,0) + nvl(l_adj_factor,0); -- Rate is being stored as Percentage
707: x_adjustment_factor => l_adj_factor );
708: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
710: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
711: RAISE OKL_API.G_EXCEPTION_ERROR;
712: END IF;
713: --Calculate Effective Rate
714: l_srt_effective_rate := l_okl_srt_rec.srt_rate + nvl(l_okl_srt_rec.spread,0) + nvl(l_adj_factor,0); -- Rate is being stored as Percentage
715: --Bug # 5045505
749: ' x_msg_data ' ||
750: x_msg_data);
751: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
752:
753: IF (l_return_status = okl_api.g_ret_sts_error) THEN
754: RAISE okl_api.g_exception_error;
755: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
756: RAISE okl_api.g_exception_unexpected_error;
757: END IF; --Copy value of OUT variable in the IN rvldrd type
750: x_msg_data);
751: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
752:
753: IF (l_return_status = okl_api.g_ret_sts_error) THEN
754: RAISE okl_api.g_exception_error;
755: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
756: RAISE okl_api.g_exception_unexpected_error;
757: END IF; --Copy value of OUT variable in the IN rvldrd type
758: okl_api.end_activity(x_msg_count => x_msg_count
751: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
752:
753: IF (l_return_status = okl_api.g_ret_sts_error) THEN
754: RAISE okl_api.g_exception_error;
755: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
756: RAISE okl_api.g_exception_unexpected_error;
757: END IF; --Copy value of OUT variable in the IN rvldrd type
758: okl_api.end_activity(x_msg_count => x_msg_count
759: ,x_msg_data => x_msg_data);
752:
753: IF (l_return_status = okl_api.g_ret_sts_error) THEN
754: RAISE okl_api.g_exception_error;
755: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
756: RAISE okl_api.g_exception_unexpected_error;
757: END IF; --Copy value of OUT variable in the IN rvldrd type
758: okl_api.end_activity(x_msg_count => x_msg_count
759: ,x_msg_data => x_msg_data);
760:
754: RAISE okl_api.g_exception_error;
755: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
756: RAISE okl_api.g_exception_unexpected_error;
757: END IF; --Copy value of OUT variable in the IN rvldrd type
758: okl_api.end_activity(x_msg_count => x_msg_count
759: ,x_msg_data => x_msg_data);
760:
761: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
762: okl_debug_pub.log_debug(fnd_log.level_procedure
763: ,l_module
764: ,'end debug OKL_EC_UPTAKE_PVT.pls call populate_standard_rate_template');
765: END IF;
766: EXCEPTION
767: WHEN okl_api.g_exception_error THEN
768:
769: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
770: ,p_pkg_name => G_PKG_NAME
771: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
765: END IF;
766: EXCEPTION
767: WHEN okl_api.g_exception_error THEN
768:
769: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
770: ,p_pkg_name => G_PKG_NAME
771: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
772: ,x_msg_count => x_msg_count
773: ,x_msg_data => x_msg_data
767: WHEN okl_api.g_exception_error THEN
768:
769: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
770: ,p_pkg_name => G_PKG_NAME
771: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
772: ,x_msg_count => x_msg_count
773: ,x_msg_data => x_msg_data
774: ,p_api_type => G_API_TYPE);
775:
772: ,x_msg_count => x_msg_count
773: ,x_msg_data => x_msg_data
774: ,p_api_type => G_API_TYPE);
775:
776: WHEN okl_api.g_exception_unexpected_error THEN
777:
778: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
779: ,p_pkg_name => G_PKG_NAME
780: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
774: ,p_api_type => G_API_TYPE);
775:
776: WHEN okl_api.g_exception_unexpected_error THEN
777:
778: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
779: ,p_pkg_name => G_PKG_NAME
780: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
781: ,x_msg_count => x_msg_count
782: ,x_msg_data => x_msg_data
776: WHEN okl_api.g_exception_unexpected_error THEN
777:
778: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
779: ,p_pkg_name => G_PKG_NAME
780: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
781: ,x_msg_count => x_msg_count
782: ,x_msg_data => x_msg_data
783: ,p_api_type => G_API_TYPE);
784:
783: ,p_api_type => G_API_TYPE);
784:
785: WHEN OTHERS THEN
786:
787: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
788: ,p_pkg_name => G_PKG_NAME
789: ,p_exc_name => 'OTHERS'
790: ,x_msg_count => x_msg_count
791: ,x_msg_data => x_msg_data
857:
858: -- call START_ACTIVITY to create savepoint, check compatibility
859: -- and initialize message list
860:
861: l_return_status := okl_api.start_activity(p_api_name => l_api_name
862: ,p_pkg_name => G_PKG_NAME
863: ,p_init_msg_list => p_init_msg_list
864: ,l_api_version => l_api_version
865: ,p_api_version => p_api_version
865: ,p_api_version => p_api_version
866: ,p_api_type => G_API_TYPE
867: ,x_return_status => l_return_status); -- check if activity started successfully
868:
869: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
870: RAISE okl_api.g_exception_unexpected_error;
871: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
872: RAISE okl_api.g_exception_error;
873: END IF;
866: ,p_api_type => G_API_TYPE
867: ,x_return_status => l_return_status); -- check if activity started successfully
868:
869: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
870: RAISE okl_api.g_exception_unexpected_error;
871: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
872: RAISE okl_api.g_exception_error;
873: END IF;
874: --Populate the Record Structure for the OKL_ECC_PUB.validate method
867: ,x_return_status => l_return_status); -- check if activity started successfully
868:
869: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
870: RAISE okl_api.g_exception_unexpected_error;
871: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
872: RAISE okl_api.g_exception_error;
873: END IF;
874: --Populate the Record Structure for the OKL_ECC_PUB.validate method
875: --l_okl_ec_rec_type.target
868:
869: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
870: RAISE okl_api.g_exception_unexpected_error;
871: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
872: RAISE okl_api.g_exception_error;
873: END IF;
874: --Populate the Record Structure for the OKL_ECC_PUB.validate method
875: --l_okl_ec_rec_type.target
876: l_okl_ec_rec_type.src_type := 'LRS';
881: -------------------------------------------------------------------------------------
882: populate_lq_attributes(l_okl_ec_rec_type
883: ,p_target_id
884: ,x_return_status);
885: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
886: RAISE okl_api.g_exception_unexpected_error;
887: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
888: RAISE okl_api.g_exception_error;
889: END IF;
882: populate_lq_attributes(l_okl_ec_rec_type
883: ,p_target_id
884: ,x_return_status);
885: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
886: RAISE okl_api.g_exception_unexpected_error;
887: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
888: RAISE okl_api.g_exception_error;
889: END IF;
890: --------------------------------------------------------------------------------------
883: ,p_target_id
884: ,x_return_status);
885: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
886: RAISE okl_api.g_exception_unexpected_error;
887: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
888: RAISE okl_api.g_exception_error;
889: END IF;
890: --------------------------------------------------------------------------------------
891: i := 1;
884: ,x_return_status);
885: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
886: RAISE okl_api.g_exception_unexpected_error;
887: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
888: RAISE okl_api.g_exception_error;
889: END IF;
890: --------------------------------------------------------------------------------------
891: i := 1;
892: FOR l_okl_lrs_rec IN c_lrs_rec(l_okl_ec_rec_type.target_eff_from,l_okl_ec_rec_type.currency_code)LOOP
898: ,x_msg_count
899: ,x_msg_data
900: ,l_okl_ec_rec_type
901: ,x_eligible);
902: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
903: RAISE okl_api.g_exception_unexpected_error;
904: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
905: RAISE okl_api.g_exception_error;
906: END IF;
899: ,x_msg_data
900: ,l_okl_ec_rec_type
901: ,x_eligible);
902: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
903: RAISE okl_api.g_exception_unexpected_error;
904: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
905: RAISE okl_api.g_exception_error;
906: END IF;
907:
900: ,l_okl_ec_rec_type
901: ,x_eligible);
902: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
903: RAISE okl_api.g_exception_unexpected_error;
904: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
905: RAISE okl_api.g_exception_error;
906: END IF;
907:
908: IF(x_eligible) THEN
901: ,x_eligible);
902: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
903: RAISE okl_api.g_exception_unexpected_error;
904: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
905: RAISE okl_api.g_exception_error;
906: END IF;
907:
908: IF(x_eligible) THEN
909: l_okl_lrs_table(i).id:=l_okl_lrs_rec.id;
929: ' x_msg_data ' ||
930: x_msg_data);
931: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
932:
933: IF (l_return_status = okl_api.g_ret_sts_error) THEN
934: RAISE okl_api.g_exception_error;
935: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
936: RAISE okl_api.g_exception_unexpected_error;
937: END IF; --Copy value of OUT variable in the IN rvldrd type
930: x_msg_data);
931: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
932:
933: IF (l_return_status = okl_api.g_ret_sts_error) THEN
934: RAISE okl_api.g_exception_error;
935: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
936: RAISE okl_api.g_exception_unexpected_error;
937: END IF; --Copy value of OUT variable in the IN rvldrd type
938: okl_api.end_activity(x_msg_count => x_msg_count
931: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
932:
933: IF (l_return_status = okl_api.g_ret_sts_error) THEN
934: RAISE okl_api.g_exception_error;
935: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
936: RAISE okl_api.g_exception_unexpected_error;
937: END IF; --Copy value of OUT variable in the IN rvldrd type
938: okl_api.end_activity(x_msg_count => x_msg_count
939: ,x_msg_data => x_msg_data);
932:
933: IF (l_return_status = okl_api.g_ret_sts_error) THEN
934: RAISE okl_api.g_exception_error;
935: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
936: RAISE okl_api.g_exception_unexpected_error;
937: END IF; --Copy value of OUT variable in the IN rvldrd type
938: okl_api.end_activity(x_msg_count => x_msg_count
939: ,x_msg_data => x_msg_data);
940:
934: RAISE okl_api.g_exception_error;
935: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
936: RAISE okl_api.g_exception_unexpected_error;
937: END IF; --Copy value of OUT variable in the IN rvldrd type
938: okl_api.end_activity(x_msg_count => x_msg_count
939: ,x_msg_data => x_msg_data);
940:
941: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
942: okl_debug_pub.log_debug(fnd_log.level_procedure
943: ,l_module
944: ,'end debug OKLRECXB.pls call populate_lease_rate_set2');
945: END IF;
946: EXCEPTION
947: WHEN okl_api.g_exception_error THEN
948:
949: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
950: ,p_pkg_name => G_PKG_NAME
951: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
945: END IF;
946: EXCEPTION
947: WHEN okl_api.g_exception_error THEN
948:
949: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
950: ,p_pkg_name => G_PKG_NAME
951: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
952: ,x_msg_count => x_msg_count
953: ,x_msg_data => x_msg_data
947: WHEN okl_api.g_exception_error THEN
948:
949: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
950: ,p_pkg_name => G_PKG_NAME
951: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
952: ,x_msg_count => x_msg_count
953: ,x_msg_data => x_msg_data
954: ,p_api_type => G_API_TYPE);
955:
952: ,x_msg_count => x_msg_count
953: ,x_msg_data => x_msg_data
954: ,p_api_type => G_API_TYPE);
955:
956: WHEN okl_api.g_exception_unexpected_error THEN
957:
958: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
959: ,p_pkg_name => G_PKG_NAME
960: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
954: ,p_api_type => G_API_TYPE);
955:
956: WHEN okl_api.g_exception_unexpected_error THEN
957:
958: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
959: ,p_pkg_name => G_PKG_NAME
960: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
961: ,x_msg_count => x_msg_count
962: ,x_msg_data => x_msg_data
956: WHEN okl_api.g_exception_unexpected_error THEN
957:
958: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
959: ,p_pkg_name => G_PKG_NAME
960: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
961: ,x_msg_count => x_msg_count
962: ,x_msg_data => x_msg_data
963: ,p_api_type => G_API_TYPE);
964:
963: ,p_api_type => G_API_TYPE);
964:
965: WHEN OTHERS THEN
966:
967: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
968: ,p_pkg_name => G_PKG_NAME
969: ,p_exc_name => 'OTHERS'
970: ,x_msg_count => x_msg_count
971: ,x_msg_data => x_msg_data
1098:
1099: -- call START_ACTIVITY to create savepoint, check compatibility
1100: -- and initialize message list
1101:
1102: l_return_status := okl_api.start_activity(p_api_name => l_api_name
1103: ,p_pkg_name => G_PKG_NAME
1104: ,p_init_msg_list => p_init_msg_list
1105: ,l_api_version => l_api_version
1106: ,p_api_version => p_api_version
1106: ,p_api_version => p_api_version
1107: ,p_api_type => G_API_TYPE
1108: ,x_return_status => x_return_status); -- check if activity started successfully
1109:
1110: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1111: RAISE okl_api.g_exception_unexpected_error;
1112: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1113: RAISE okl_api.g_exception_error;
1114: END IF;
1107: ,p_api_type => G_API_TYPE
1108: ,x_return_status => x_return_status); -- check if activity started successfully
1109:
1110: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1111: RAISE okl_api.g_exception_unexpected_error;
1112: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1113: RAISE okl_api.g_exception_error;
1114: END IF;
1115: --Populate the Record Structure for the OKL_ECC_PUB.validate method
1108: ,x_return_status => x_return_status); -- check if activity started successfully
1109:
1110: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1111: RAISE okl_api.g_exception_unexpected_error;
1112: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1113: RAISE okl_api.g_exception_error;
1114: END IF;
1115: --Populate the Record Structure for the OKL_ECC_PUB.validate method
1116: --l_okl_ec_rec_type.target
1109:
1110: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1111: RAISE okl_api.g_exception_unexpected_error;
1112: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1113: RAISE okl_api.g_exception_error;
1114: END IF;
1115: --Populate the Record Structure for the OKL_ECC_PUB.validate method
1116: --l_okl_ec_rec_type.target
1117: l_okl_ec_rec_type.src_type:='SRT';
1122: -------------------------------------------------------------------------------------
1123: populate_lq_attributes(l_okl_ec_rec_type
1124: ,p_target_id
1125: ,x_return_status);
1126: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1127: RAISE okl_api.g_exception_unexpected_error;
1128: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1129: RAISE okl_api.g_exception_error;
1130: END IF;
1123: populate_lq_attributes(l_okl_ec_rec_type
1124: ,p_target_id
1125: ,x_return_status);
1126: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1127: RAISE okl_api.g_exception_unexpected_error;
1128: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1129: RAISE okl_api.g_exception_error;
1130: END IF;
1131: --------------------------------------------------------------------------------------
1124: ,p_target_id
1125: ,x_return_status);
1126: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1127: RAISE okl_api.g_exception_unexpected_error;
1128: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1129: RAISE okl_api.g_exception_error;
1130: END IF;
1131: --------------------------------------------------------------------------------------
1132:
1125: ,x_return_status);
1126: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1127: RAISE okl_api.g_exception_unexpected_error;
1128: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1129: RAISE okl_api.g_exception_error;
1130: END IF;
1131: --------------------------------------------------------------------------------------
1132:
1133: i := 1;
1141: ,x_msg_count
1142: ,x_msg_data
1143: ,l_okl_ec_rec_type
1144: ,x_eligible);
1145: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1146: RAISE okl_api.g_exception_unexpected_error;
1147: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1148: RAISE okl_api.g_exception_error;
1149: END IF;
1142: ,x_msg_data
1143: ,l_okl_ec_rec_type
1144: ,x_eligible);
1145: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1146: RAISE okl_api.g_exception_unexpected_error;
1147: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1148: RAISE okl_api.g_exception_error;
1149: END IF;
1150:
1143: ,l_okl_ec_rec_type
1144: ,x_eligible);
1145: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1146: RAISE okl_api.g_exception_unexpected_error;
1147: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1148: RAISE okl_api.g_exception_error;
1149: END IF;
1150:
1151: IF(x_eligible) THEN
1144: ,x_eligible);
1145: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1146: RAISE okl_api.g_exception_unexpected_error;
1147: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1148: RAISE okl_api.g_exception_error;
1149: END IF;
1150:
1151: IF(x_eligible) THEN
1152: ----------------------------------------------------------------
1170: x_msg_count => x_msg_count,
1171: x_msg_data => x_msg_data,
1172: p_okl_ac_rec => l_ac_rec_type,
1173: x_adjustment_factor => l_adj_factor );
1174: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1175: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1176: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1177: RAISE OKL_API.G_EXCEPTION_ERROR;
1178: END IF;
1171: x_msg_data => x_msg_data,
1172: p_okl_ac_rec => l_ac_rec_type,
1173: x_adjustment_factor => l_adj_factor );
1174: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1175: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1176: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1177: RAISE OKL_API.G_EXCEPTION_ERROR;
1178: END IF;
1179: --Calculate Effective Rate
1172: p_okl_ac_rec => l_ac_rec_type,
1173: x_adjustment_factor => l_adj_factor );
1174: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1175: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1176: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1177: RAISE OKL_API.G_EXCEPTION_ERROR;
1178: END IF;
1179: --Calculate Effective Rate
1180:
1173: x_adjustment_factor => l_adj_factor );
1174: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1175: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1176: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1177: RAISE OKL_API.G_EXCEPTION_ERROR;
1178: END IF;
1179: --Calculate Effective Rate
1180:
1181: l_srt_effective_rate := l_okl_srt_rec.srt_rate + nvl(l_okl_srt_rec.spread,0) + nvl(l_adj_factor,0); -- Rate is being stored as Percentage
1217: ' x_msg_data ' ||
1218: x_msg_data);
1219: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
1220:
1221: IF (l_return_status = okl_api.g_ret_sts_error) THEN
1222: RAISE okl_api.g_exception_error;
1223: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1224: RAISE okl_api.g_exception_unexpected_error;
1225: END IF; --Copy value of OUT variable in the IN rvldrd type
1218: x_msg_data);
1219: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
1220:
1221: IF (l_return_status = okl_api.g_ret_sts_error) THEN
1222: RAISE okl_api.g_exception_error;
1223: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1224: RAISE okl_api.g_exception_unexpected_error;
1225: END IF; --Copy value of OUT variable in the IN rvldrd type
1226: okl_api.end_activity(x_msg_count => x_msg_count
1219: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
1220:
1221: IF (l_return_status = okl_api.g_ret_sts_error) THEN
1222: RAISE okl_api.g_exception_error;
1223: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1224: RAISE okl_api.g_exception_unexpected_error;
1225: END IF; --Copy value of OUT variable in the IN rvldrd type
1226: okl_api.end_activity(x_msg_count => x_msg_count
1227: ,x_msg_data => x_msg_data);
1220:
1221: IF (l_return_status = okl_api.g_ret_sts_error) THEN
1222: RAISE okl_api.g_exception_error;
1223: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1224: RAISE okl_api.g_exception_unexpected_error;
1225: END IF; --Copy value of OUT variable in the IN rvldrd type
1226: okl_api.end_activity(x_msg_count => x_msg_count
1227: ,x_msg_data => x_msg_data);
1228:
1222: RAISE okl_api.g_exception_error;
1223: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1224: RAISE okl_api.g_exception_unexpected_error;
1225: END IF; --Copy value of OUT variable in the IN rvldrd type
1226: okl_api.end_activity(x_msg_count => x_msg_count
1227: ,x_msg_data => x_msg_data);
1228:
1229: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
1230: okl_debug_pub.log_debug(fnd_log.level_procedure
1232: ,'end debug OKL_EC_UPTAKE_PVT.populate_standard_rate_template2 call create_vls');
1233: END IF;
1234: EXCEPTION
1235:
1236: WHEN okl_api.g_exception_error THEN
1237:
1238: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
1239: ,p_pkg_name => G_PKG_NAME
1240: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
1234: EXCEPTION
1235:
1236: WHEN okl_api.g_exception_error THEN
1237:
1238: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
1239: ,p_pkg_name => G_PKG_NAME
1240: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
1241: ,x_msg_count => x_msg_count
1242: ,x_msg_data => x_msg_data
1236: WHEN okl_api.g_exception_error THEN
1237:
1238: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
1239: ,p_pkg_name => G_PKG_NAME
1240: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
1241: ,x_msg_count => x_msg_count
1242: ,x_msg_data => x_msg_data
1243: ,p_api_type => G_API_TYPE);
1244:
1241: ,x_msg_count => x_msg_count
1242: ,x_msg_data => x_msg_data
1243: ,p_api_type => G_API_TYPE);
1244:
1245: WHEN okl_api.g_exception_unexpected_error THEN
1246:
1247: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
1248: ,p_pkg_name => G_PKG_NAME
1249: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
1243: ,p_api_type => G_API_TYPE);
1244:
1245: WHEN okl_api.g_exception_unexpected_error THEN
1246:
1247: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
1248: ,p_pkg_name => G_PKG_NAME
1249: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
1250: ,x_msg_count => x_msg_count
1251: ,x_msg_data => x_msg_data
1245: WHEN okl_api.g_exception_unexpected_error THEN
1246:
1247: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
1248: ,p_pkg_name => G_PKG_NAME
1249: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
1250: ,x_msg_count => x_msg_count
1251: ,x_msg_data => x_msg_data
1252: ,p_api_type => G_API_TYPE);
1253:
1252: ,p_api_type => G_API_TYPE);
1253:
1254: WHEN OTHERS THEN
1255:
1256: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
1257: ,p_pkg_name => G_PKG_NAME
1258: ,p_exc_name => 'OTHERS'
1259: ,x_msg_count => x_msg_count
1260: ,x_msg_data => x_msg_data
1345:
1346: -- call START_ACTIVITY to create savepoint, check compatibility
1347: -- and initialize message list
1348:
1349: l_return_status := okl_api.start_activity(p_api_name => l_api_name
1350: ,p_pkg_name => G_PKG_NAME
1351: ,p_init_msg_list => p_init_msg_list
1352: ,l_api_version => l_api_version
1353: ,p_api_version => p_api_version
1353: ,p_api_version => p_api_version
1354: ,p_api_type => G_API_TYPE
1355: ,x_return_status => x_return_status); -- check if activity started successfully
1356:
1357: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1358: RAISE okl_api.g_exception_unexpected_error;
1359: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1360: RAISE okl_api.g_exception_error;
1361: END IF;
1354: ,p_api_type => G_API_TYPE
1355: ,x_return_status => x_return_status); -- check if activity started successfully
1356:
1357: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1358: RAISE okl_api.g_exception_unexpected_error;
1359: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1360: RAISE okl_api.g_exception_error;
1361: END IF;
1362: --Populate the Record Structure for the OKL_ECC_PUB.validate method
1355: ,x_return_status => x_return_status); -- check if activity started successfully
1356:
1357: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1358: RAISE okl_api.g_exception_unexpected_error;
1359: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1360: RAISE okl_api.g_exception_error;
1361: END IF;
1362: --Populate the Record Structure for the OKL_ECC_PUB.validate method
1363: --l_okl_ec_rec_type.target
1356:
1357: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1358: RAISE okl_api.g_exception_unexpected_error;
1359: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1360: RAISE okl_api.g_exception_error;
1361: END IF;
1362: --Populate the Record Structure for the OKL_ECC_PUB.validate method
1363: --l_okl_ec_rec_type.target
1364: l_okl_ec_rec_type.src_type:='PRODUCT';
1368:
1369: populate_lq_attributes(l_okl_ec_rec_type
1370: ,p_target_id
1371: ,x_return_status);
1372: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1373: RAISE okl_api.g_exception_unexpected_error;
1374: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1375: RAISE okl_api.g_exception_error;
1376: END IF;
1369: populate_lq_attributes(l_okl_ec_rec_type
1370: ,p_target_id
1371: ,x_return_status);
1372: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1373: RAISE okl_api.g_exception_unexpected_error;
1374: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1375: RAISE okl_api.g_exception_error;
1376: END IF;
1377: ------------------------------------------------------------------------
1370: ,p_target_id
1371: ,x_return_status);
1372: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1373: RAISE okl_api.g_exception_unexpected_error;
1374: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1375: RAISE okl_api.g_exception_error;
1376: END IF;
1377: ------------------------------------------------------------------------
1378: l_vendor_prog_id:=get_vp_id(p_target_id);
1371: ,x_return_status);
1372: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1373: RAISE okl_api.g_exception_unexpected_error;
1374: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1375: RAISE okl_api.g_exception_error;
1376: END IF;
1377: ------------------------------------------------------------------------
1378: l_vendor_prog_id:=get_vp_id(p_target_id);
1379: ------------------------------------------------------------------------
1390: ,x_msg_data
1391: ,l_okl_ec_rec_type
1392: ,x_eligible);
1393:
1394: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1395: RAISE okl_api.g_exception_unexpected_error;
1396: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1397: RAISE okl_api.g_exception_error;
1398: END IF;
1391: ,l_okl_ec_rec_type
1392: ,x_eligible);
1393:
1394: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1395: RAISE okl_api.g_exception_unexpected_error;
1396: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1397: RAISE okl_api.g_exception_error;
1398: END IF;
1399: IF(x_eligible) THEN
1392: ,x_eligible);
1393:
1394: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1395: RAISE okl_api.g_exception_unexpected_error;
1396: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1397: RAISE okl_api.g_exception_error;
1398: END IF;
1399: IF(x_eligible) THEN
1400: l_okl_prod_table(i).id:=l_okl_prod_rec.id;
1393:
1394: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1395: RAISE okl_api.g_exception_unexpected_error;
1396: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1397: RAISE okl_api.g_exception_error;
1398: END IF;
1399: IF(x_eligible) THEN
1400: l_okl_prod_table(i).id:=l_okl_prod_rec.id;
1401: l_okl_prod_table(i).name:=l_okl_prod_rec.name;
1414: ,x_msg_count
1415: ,x_msg_data
1416: ,l_okl_ec_rec_type
1417: ,x_eligible);
1418: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1419: RAISE okl_api.g_exception_unexpected_error;
1420: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1421: RAISE okl_api.g_exception_error;
1422: END IF;
1415: ,x_msg_data
1416: ,l_okl_ec_rec_type
1417: ,x_eligible);
1418: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1419: RAISE okl_api.g_exception_unexpected_error;
1420: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1421: RAISE okl_api.g_exception_error;
1422: END IF;
1423: IF(x_eligible) THEN
1416: ,l_okl_ec_rec_type
1417: ,x_eligible);
1418: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1419: RAISE okl_api.g_exception_unexpected_error;
1420: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1421: RAISE okl_api.g_exception_error;
1422: END IF;
1423: IF(x_eligible) THEN
1424: l_okl_prod_table(i).id:=l_okl_prod_rec.id;
1417: ,x_eligible);
1418: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1419: RAISE okl_api.g_exception_unexpected_error;
1420: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1421: RAISE okl_api.g_exception_error;
1422: END IF;
1423: IF(x_eligible) THEN
1424: l_okl_prod_table(i).id:=l_okl_prod_rec.id;
1425: l_okl_prod_table(i).name:=l_okl_prod_rec.name;
1438: ' x_msg_data ' ||
1439: x_msg_data);
1440: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
1441:
1442: IF (l_return_status = okl_api.g_ret_sts_error) THEN
1443: RAISE okl_api.g_exception_error;
1444: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1445: RAISE okl_api.g_exception_unexpected_error;
1446: END IF;
1439: x_msg_data);
1440: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
1441:
1442: IF (l_return_status = okl_api.g_ret_sts_error) THEN
1443: RAISE okl_api.g_exception_error;
1444: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1445: RAISE okl_api.g_exception_unexpected_error;
1446: END IF;
1447: okl_api.end_activity(x_msg_count => x_msg_count
1440: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
1441:
1442: IF (l_return_status = okl_api.g_ret_sts_error) THEN
1443: RAISE okl_api.g_exception_error;
1444: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1445: RAISE okl_api.g_exception_unexpected_error;
1446: END IF;
1447: okl_api.end_activity(x_msg_count => x_msg_count
1448: ,x_msg_data => x_msg_data);
1441:
1442: IF (l_return_status = okl_api.g_ret_sts_error) THEN
1443: RAISE okl_api.g_exception_error;
1444: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1445: RAISE okl_api.g_exception_unexpected_error;
1446: END IF;
1447: okl_api.end_activity(x_msg_count => x_msg_count
1448: ,x_msg_data => x_msg_data);
1449:
1443: RAISE okl_api.g_exception_error;
1444: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1445: RAISE okl_api.g_exception_unexpected_error;
1446: END IF;
1447: okl_api.end_activity(x_msg_count => x_msg_count
1448: ,x_msg_data => x_msg_data);
1449:
1450: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
1451: okl_debug_pub.log_debug(fnd_log.level_procedure
1452: ,l_module
1453: ,'end debug OKL_EC_UPTAKE_PVT.populate_product ');
1454: END IF;
1455: EXCEPTION
1456: WHEN okl_api.g_exception_error THEN
1457:
1458: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
1459: ,p_pkg_name => G_PKG_NAME
1460: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
1454: END IF;
1455: EXCEPTION
1456: WHEN okl_api.g_exception_error THEN
1457:
1458: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
1459: ,p_pkg_name => G_PKG_NAME
1460: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
1461: ,x_msg_count => x_msg_count
1462: ,x_msg_data => x_msg_data
1456: WHEN okl_api.g_exception_error THEN
1457:
1458: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
1459: ,p_pkg_name => G_PKG_NAME
1460: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
1461: ,x_msg_count => x_msg_count
1462: ,x_msg_data => x_msg_data
1463: ,p_api_type => G_API_TYPE);
1464:
1461: ,x_msg_count => x_msg_count
1462: ,x_msg_data => x_msg_data
1463: ,p_api_type => G_API_TYPE);
1464:
1465: WHEN okl_api.g_exception_unexpected_error THEN
1466:
1467: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
1468: ,p_pkg_name => G_PKG_NAME
1469: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
1463: ,p_api_type => G_API_TYPE);
1464:
1465: WHEN okl_api.g_exception_unexpected_error THEN
1466:
1467: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
1468: ,p_pkg_name => G_PKG_NAME
1469: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
1470: ,x_msg_count => x_msg_count
1471: ,x_msg_data => x_msg_data
1465: WHEN okl_api.g_exception_unexpected_error THEN
1466:
1467: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
1468: ,p_pkg_name => G_PKG_NAME
1469: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
1470: ,x_msg_count => x_msg_count
1471: ,x_msg_data => x_msg_data
1472: ,p_api_type => G_API_TYPE);
1473:
1472: ,p_api_type => G_API_TYPE);
1473:
1474: WHEN OTHERS THEN
1475:
1476: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
1477: ,p_pkg_name => G_PKG_NAME
1478: ,p_exc_name => 'OTHERS'
1479: ,x_msg_count => x_msg_count
1480: ,x_msg_data => x_msg_data
1507: l_okl_ec_rec_type okl_ec_evaluate_pvt.okl_ec_rec_type;
1508: l_okl_vp_table okl_vp_tbl_type;
1509: i INTEGER;
1510: l_api_version CONSTANT number := 1.0;
1511: l_return_status varchar2(1) := okl_api.g_ret_sts_success;
1512: x_eligible boolean;
1513: l_debug_enabled varchar2(10);
1514: is_debug_procedure_on boolean;
1515: is_debug_statement_on boolean;
1545:
1546: -- call START_ACTIVITY to create savepoint, check compatibility
1547: -- and initialize message list
1548:
1549: l_return_status := okl_api.start_activity(p_api_name => l_api_name
1550: ,p_pkg_name => G_PKG_NAME
1551: ,p_init_msg_list => p_init_msg_list
1552: ,l_api_version => l_api_version
1553: ,p_api_version => p_api_version
1553: ,p_api_version => p_api_version
1554: ,p_api_type => G_API_TYPE
1555: ,x_return_status => x_return_status); -- check if activity started successfully
1556:
1557: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1558: RAISE okl_api.g_exception_unexpected_error;
1559: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1560: RAISE okl_api.g_exception_error;
1561: END IF;
1554: ,p_api_type => G_API_TYPE
1555: ,x_return_status => x_return_status); -- check if activity started successfully
1556:
1557: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1558: RAISE okl_api.g_exception_unexpected_error;
1559: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1560: RAISE okl_api.g_exception_error;
1561: END IF;
1562: --Populate the Record Structure for the OKL_ECC_PUB.validate method
1555: ,x_return_status => x_return_status); -- check if activity started successfully
1556:
1557: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1558: RAISE okl_api.g_exception_unexpected_error;
1559: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1560: RAISE okl_api.g_exception_error;
1561: END IF;
1562: --Populate the Record Structure for the OKL_ECC_PUB.validate method
1563: --l_okl_ec_rec_type.target
1556:
1557: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1558: RAISE okl_api.g_exception_unexpected_error;
1559: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1560: RAISE okl_api.g_exception_error;
1561: END IF;
1562: --Populate the Record Structure for the OKL_ECC_PUB.validate method
1563: --l_okl_ec_rec_type.target
1564: l_okl_ec_rec_type.src_type:='VENDOR_PROGRAM';
1586: ,x_msg_data
1587: ,l_okl_ec_rec_type
1588: ,x_eligible);
1589:
1590: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1591: RAISE okl_api.g_exception_unexpected_error;
1592: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1593: RAISE okl_api.g_exception_error;
1594: END IF;
1587: ,l_okl_ec_rec_type
1588: ,x_eligible);
1589:
1590: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1591: RAISE okl_api.g_exception_unexpected_error;
1592: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1593: RAISE okl_api.g_exception_error;
1594: END IF;
1595: IF(x_eligible) THEN
1588: ,x_eligible);
1589:
1590: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1591: RAISE okl_api.g_exception_unexpected_error;
1592: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1593: RAISE okl_api.g_exception_error;
1594: END IF;
1595: IF(x_eligible) THEN
1596: l_okl_vp_table(i).id:=l_okl_vp_rec.id;
1589:
1590: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1591: RAISE okl_api.g_exception_unexpected_error;
1592: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1593: RAISE okl_api.g_exception_error;
1594: END IF;
1595: IF(x_eligible) THEN
1596: l_okl_vp_table(i).id:=l_okl_vp_rec.id;
1597: l_okl_vp_table(i).contract_number:=l_okl_vp_rec.contract_number;
1607: ' x_msg_data ' ||
1608: x_msg_data);
1609: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
1610:
1611: IF (l_return_status = okl_api.g_ret_sts_error) THEN
1612: RAISE okl_api.g_exception_error;
1613: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1614: RAISE okl_api.g_exception_unexpected_error;
1615: END IF;
1608: x_msg_data);
1609: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
1610:
1611: IF (l_return_status = okl_api.g_ret_sts_error) THEN
1612: RAISE okl_api.g_exception_error;
1613: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1614: RAISE okl_api.g_exception_unexpected_error;
1615: END IF;
1616: okl_api.end_activity(x_msg_count => x_msg_count
1609: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
1610:
1611: IF (l_return_status = okl_api.g_ret_sts_error) THEN
1612: RAISE okl_api.g_exception_error;
1613: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1614: RAISE okl_api.g_exception_unexpected_error;
1615: END IF;
1616: okl_api.end_activity(x_msg_count => x_msg_count
1617: ,x_msg_data => x_msg_data);
1610:
1611: IF (l_return_status = okl_api.g_ret_sts_error) THEN
1612: RAISE okl_api.g_exception_error;
1613: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1614: RAISE okl_api.g_exception_unexpected_error;
1615: END IF;
1616: okl_api.end_activity(x_msg_count => x_msg_count
1617: ,x_msg_data => x_msg_data);
1618:
1612: RAISE okl_api.g_exception_error;
1613: ELSIF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1614: RAISE okl_api.g_exception_unexpected_error;
1615: END IF;
1616: okl_api.end_activity(x_msg_count => x_msg_count
1617: ,x_msg_data => x_msg_data);
1618:
1619: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
1620: okl_debug_pub.log_debug(fnd_log.level_procedure
1622: ,'end debug OKL_EC_UPTAKE_PVT.populate_vpa ');
1623: END IF;
1624:
1625: EXCEPTION
1626: WHEN okl_api.g_exception_error THEN
1627:
1628: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
1629: ,p_pkg_name => G_PKG_NAME
1630: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
1624:
1625: EXCEPTION
1626: WHEN okl_api.g_exception_error THEN
1627:
1628: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
1629: ,p_pkg_name => G_PKG_NAME
1630: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
1631: ,x_msg_count => x_msg_count
1632: ,x_msg_data => x_msg_data
1626: WHEN okl_api.g_exception_error THEN
1627:
1628: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
1629: ,p_pkg_name => G_PKG_NAME
1630: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
1631: ,x_msg_count => x_msg_count
1632: ,x_msg_data => x_msg_data
1633: ,p_api_type => G_API_TYPE);
1634:
1631: ,x_msg_count => x_msg_count
1632: ,x_msg_data => x_msg_data
1633: ,p_api_type => G_API_TYPE);
1634:
1635: WHEN okl_api.g_exception_unexpected_error THEN
1636:
1637: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
1638: ,p_pkg_name => G_PKG_NAME
1639: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
1633: ,p_api_type => G_API_TYPE);
1634:
1635: WHEN okl_api.g_exception_unexpected_error THEN
1636:
1637: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
1638: ,p_pkg_name => G_PKG_NAME
1639: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
1640: ,x_msg_count => x_msg_count
1641: ,x_msg_data => x_msg_data
1635: WHEN okl_api.g_exception_unexpected_error THEN
1636:
1637: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
1638: ,p_pkg_name => G_PKG_NAME
1639: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
1640: ,x_msg_count => x_msg_count
1641: ,x_msg_data => x_msg_data
1642: ,p_api_type => G_API_TYPE);
1643:
1642: ,p_api_type => G_API_TYPE);
1643:
1644: WHEN OTHERS THEN
1645:
1646: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
1647: ,p_pkg_name => G_PKG_NAME
1648: ,p_exc_name => 'OTHERS'
1649: ,x_msg_count => x_msg_count
1650: ,x_msg_data => x_msg_data