20:
21: BEGIN
22:
23: --log key input parameters
24: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id||' ,p_party_id='||p_party_id||' ,p_org_id='||p_org_id||' ,p_date='||p_date);
26: END IF;
27:
28: --standard api initilization and checks
21: BEGIN
22:
23: --log key input parameters
24: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
25: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id||' ,p_party_id='||p_party_id||' ,p_org_id='||p_org_id||' ,p_date='||p_date);
26: END IF;
27:
28: --standard api initilization and checks
29: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
53: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
54: RAISE FND_API.g_exc_error;
55: END IF;
56:
57: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
58: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end','x_return_status='|| x_return_status);
59: END IF;
60: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
61:
54: RAISE FND_API.g_exc_error;
55: END IF;
56:
57: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
58: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end','x_return_status='|| x_return_status);
59: END IF;
60: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
61:
62: EXCEPTION
62: EXCEPTION
63: WHEN FND_API.g_exc_error THEN
64: x_return_status := FND_API.g_ret_sts_error ;
65:
66: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
67: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
68: END IF;
69: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
70:
63: WHEN FND_API.g_exc_error THEN
64: x_return_status := FND_API.g_ret_sts_error ;
65:
66: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
67: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
68: END IF;
69: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
70:
71: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
70:
71: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
72: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
73:
74: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
75: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
76: END IF;
77: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
78:
71: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
72: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
73:
74: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
75: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
76: END IF;
77: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
78:
79: WHEN OTHERS THEN
78:
79: WHEN OTHERS THEN
80: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
81:
82: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
83: --first log the sqlerrm
84: l_error_text := substr (SQLERRM, 1, 240);
85: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
86: --then add it to the message api list
81:
82: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
83: --first log the sqlerrm
84: l_error_text := substr (SQLERRM, 1, 240);
85: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
86: --then add it to the message api list
87: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
88: END IF;
89: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
475:
476: BEGIN
477:
478: --log key input parameters
479: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
480: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
481: END IF;
482:
483: --standard api initilization and checks
476: BEGIN
477:
478: --log key input parameters
479: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
480: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
481: END IF;
482:
483: --standard api initilization and checks
484: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
504: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
505: RAISE FND_API.g_exc_error;
506: END IF;
507:
508: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
509: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end','x_return_status='|| x_return_status);
510: END IF;
511: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
512:
505: RAISE FND_API.g_exc_error;
506: END IF;
507:
508: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
509: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end','x_return_status='|| x_return_status);
510: END IF;
511: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
512:
513: EXCEPTION
513: EXCEPTION
514: WHEN FND_API.g_exc_error THEN
515: x_return_status := FND_API.g_ret_sts_error ;
516:
517: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
518: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
519: END IF;
520: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
521:
514: WHEN FND_API.g_exc_error THEN
515: x_return_status := FND_API.g_ret_sts_error ;
516:
517: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
518: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
519: END IF;
520: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
521:
522: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
521:
522: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
523: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
524:
525: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
526: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
527: END IF;
528: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
529:
522: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
523: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
524:
525: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
526: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
527: END IF;
528: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
529:
530: WHEN OTHERS THEN
529:
530: WHEN OTHERS THEN
531: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
532:
533: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
534: --first log the sqlerrm
535: l_error_text := substr (SQLERRM, 1, 240);
536: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
537: --then add it to the message api list
532:
533: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
534: --first log the sqlerrm
535: l_error_text := substr (SQLERRM, 1, 240);
536: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
537: --then add it to the message api list
538: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
539: END IF;
540: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
595:
596: BEGIN
597:
598: --log key input parameters
599: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
600: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
601: END IF;
602:
603: --standard api initilization and checks
596: BEGIN
597:
598: --log key input parameters
599: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
600: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
601: END IF;
602:
603: --standard api initilization and checks
604: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
628: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
629: RAISE FND_API.g_exc_error;
630: END IF;
631:
632: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
633: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end','x_return_status='|| x_return_status);
634: END IF;
635: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
636:
629: RAISE FND_API.g_exc_error;
630: END IF;
631:
632: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
633: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end','x_return_status='|| x_return_status);
634: END IF;
635: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
636:
637: EXCEPTION
637: EXCEPTION
638: WHEN FND_API.g_exc_error THEN
639: x_return_status := FND_API.g_ret_sts_error ;
640:
641: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
642: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
643: END IF;
644: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
645:
638: WHEN FND_API.g_exc_error THEN
639: x_return_status := FND_API.g_ret_sts_error ;
640:
641: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
642: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
643: END IF;
644: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
645:
646: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
645:
646: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
648:
649: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
650: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
651: END IF;
652: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
653:
646: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
648:
649: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
650: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
651: END IF;
652: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
653:
654: WHEN OTHERS THEN
653:
654: WHEN OTHERS THEN
655: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
656:
657: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
658: --first log the sqlerrm
659: l_error_text := substr (SQLERRM, 1, 240);
660: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
661: --then add it to the message api list
656:
657: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
658: --first log the sqlerrm
659: l_error_text := substr (SQLERRM, 1, 240);
660: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
661: --then add it to the message api list
662: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
663: END IF;
664: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );