59: */
60: ---------------------------------------------------------------------
61: PROCEDURE Get_GL_Account(
62: p_api_version IN NUMBER
63: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
64: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
65: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
66:
67: ,x_return_status OUT NOCOPY VARCHAR2
60: ---------------------------------------------------------------------
61: PROCEDURE Get_GL_Account(
62: p_api_version IN NUMBER
63: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
64: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
65: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
66:
67: ,x_return_status OUT NOCOPY VARCHAR2
68: ,x_msg_data OUT NOCOPY VARCHAR2
61: PROCEDURE Get_GL_Account(
62: p_api_version IN NUMBER
63: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
64: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
65: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
66:
67: ,x_return_status OUT NOCOPY VARCHAR2
68: ,x_msg_data OUT NOCOPY VARCHAR2
69: ,x_msg_count OUT NOCOPY NUMBER
225: BEGIN
226: -- Standard begin of API savepoint
227: SAVEPOINT Get_GL_Account_PVT;
228: -- Standard call to check for call compatibility.
229: IF NOT FND_API.Compatible_API_Call (
230: l_api_version,
231: p_api_version,
232: l_api_name,
233: G_PKG_NAME)
231: p_api_version,
232: l_api_name,
233: G_PKG_NAME)
234: THEN
235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
236: END IF;
237: -- Debug Message
238: IF OZF_DEBUG_LOW_ON THEN
239: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
240: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
241: FND_MSG_PUB.Add;
242: END IF;
243: --Initialize message list if p_init_msg_list is TRUE.
244: IF FND_API.To_Boolean (p_init_msg_list) THEN
245: FND_MSG_PUB.initialize;
246: END IF;
247: -- Initialize API return status to sucess
248: x_return_status := FND_API.G_RET_STS_SUCCESS;
244: IF FND_API.To_Boolean (p_init_msg_list) THEN
245: FND_MSG_PUB.initialize;
246: END IF;
247: -- Initialize API return status to sucess
248: x_return_status := FND_API.G_RET_STS_SUCCESS;
249:
250: IF OZF_DEBUG_LOW_ON THEN
251: OZF_Utility_PVT.debug_message('p_account_type : '||p_account_type);
252: OZF_Utility_PVT.debug_message('p_source_table : '||p_source_table);
427: */
428:
429: Ozf_Acct_Generator.Start_Process (
430: p_api_version_number => 1.0,
431: p_init_msg_list => FND_API.G_FALSE,
432: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
433: x_return_status => x_return_status,
434: x_msg_count => x_msg_count,
435: x_msg_data => x_msg_data,
428:
429: Ozf_Acct_Generator.Start_Process (
430: p_api_version_number => 1.0,
431: p_init_msg_list => FND_API.G_FALSE,
432: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
433: x_return_status => x_return_status,
434: x_msg_count => x_msg_count,
435: x_msg_data => x_msg_data,
436: p_account_type => l_account_type,
463: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
464: FND_MESSAGE.set_name('OZF', 'OZF_GL_ACCT_GEN_ERROR');
465: FND_MSG_PUB.add;
466: END IF;
467: x_return_status := FND_API.g_ret_sts_unexp_error;
468: END;
469: IF OZF_DEBUG_HIGH_ON THEN
470: OZF_UTILITY_PVT.debug_message('St and Id '||x_return_status||'-'||l_ccid);
471: END IF;
468: END;
469: IF OZF_DEBUG_HIGH_ON THEN
470: OZF_UTILITY_PVT.debug_message('St and Id '||x_return_status||'-'||l_ccid);
471: END IF;
472: IF x_return_status = FND_API.g_ret_sts_error OR
473: x_return_status = FND_API.g_ret_sts_unexp_error
474: THEN
475: EXIT;
476: END IF;
469: IF OZF_DEBUG_HIGH_ON THEN
470: OZF_UTILITY_PVT.debug_message('St and Id '||x_return_status||'-'||l_ccid);
471: END IF;
472: IF x_return_status = FND_API.g_ret_sts_error OR
473: x_return_status = FND_API.g_ret_sts_unexp_error
474: THEN
475: EXIT;
476: END IF;
477: END IF;
477: END IF;
478: END LOOP;
479:
480: --Standard check of commit
481: IF FND_API.To_Boolean ( p_commit ) THEN
482: COMMIT WORK;
483: END IF;
484: -- Debug Message
485: IF OZF_DEBUG_LOW_ON THEN
488: FND_MSG_PUB.Add;
489: END IF;
490: --Standard call to get message count and if count=1, get the message
491: FND_MSG_PUB.Count_And_Get (
492: p_encoded => FND_API.G_FALSE,
493: p_count => x_msg_count,
494: p_data => x_msg_data
495: );
496: EXCEPTION
493: p_count => x_msg_count,
494: p_data => x_msg_data
495: );
496: EXCEPTION
497: WHEN FND_API.G_EXC_ERROR THEN
498: ROLLBACK TO Get_GL_Account_PVT;
499: x_return_status := FND_API.G_RET_STS_ERROR;
500: -- Standard call to get message count and if count=1, get the message
501: FND_MSG_PUB.Count_And_Get (
495: );
496: EXCEPTION
497: WHEN FND_API.G_EXC_ERROR THEN
498: ROLLBACK TO Get_GL_Account_PVT;
499: x_return_status := FND_API.G_RET_STS_ERROR;
500: -- Standard call to get message count and if count=1, get the message
501: FND_MSG_PUB.Count_And_Get (
502: p_encoded => FND_API.G_FALSE,
503: p_count => x_msg_count,
498: ROLLBACK TO Get_GL_Account_PVT;
499: x_return_status := FND_API.G_RET_STS_ERROR;
500: -- Standard call to get message count and if count=1, get the message
501: FND_MSG_PUB.Count_And_Get (
502: p_encoded => FND_API.G_FALSE,
503: p_count => x_msg_count,
504: p_data => x_msg_data
505: );
506: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
502: p_encoded => FND_API.G_FALSE,
503: p_count => x_msg_count,
504: p_data => x_msg_data
505: );
506: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
507: ROLLBACK TO Get_GL_Account_PVT;
508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
509: -- Standard call to get message count and if count=1, get the message
510: FND_MSG_PUB.Count_And_Get (
504: p_data => x_msg_data
505: );
506: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
507: ROLLBACK TO Get_GL_Account_PVT;
508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
509: -- Standard call to get message count and if count=1, get the message
510: FND_MSG_PUB.Count_And_Get (
511: p_encoded => FND_API.G_FALSE,
512: p_count => x_msg_count,
507: ROLLBACK TO Get_GL_Account_PVT;
508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
509: -- Standard call to get message count and if count=1, get the message
510: FND_MSG_PUB.Count_And_Get (
511: p_encoded => FND_API.G_FALSE,
512: p_count => x_msg_count,
513: p_data => x_msg_data
514: );
515: WHEN OTHERS THEN
513: p_data => x_msg_data
514: );
515: WHEN OTHERS THEN
516: ROLLBACK TO Get_GL_Account_PVT;
517: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
518: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
519: THEN
520: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
521: END IF;
520: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
521: END IF;
522: -- Standard call to get message count and if count=1, get the message
523: FND_MSG_PUB.Count_And_Get (
524: p_encoded => FND_API.G_FALSE,
525: p_count => x_msg_count,
526: p_data => x_msg_data
527: );
528: --
570: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
571: FND_MESSAGE.set_name('OZF', 'OZF_GL_FUND_TYPE_ERROR');
572: FND_MSG_PUB.add;
573: END IF;
574: x_return_status := FND_API.g_ret_sts_error;
575: END IF;
576: ELSIF upper(p_source_table) = 'OZF_CLAIMS_ALL' THEN
577: OPEN get_claim_class_csr(p_source_id);
578: FETCH get_claim_class_csr into l_type, x_sob_id, x_period_name;
592: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
593: FND_MESSAGE.set_name('OZF', 'OZF_GL_INVALID_SOURCE_TABLE');
594: FND_MSG_PUB.add;
595: END IF;
596: x_return_status := FND_API.g_ret_sts_error;
597: END IF;
598: EXCEPTION
599: WHEN OTHERS THEN
600: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
600: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
601: FND_MESSAGE.set_name('OZF', 'OZF_GL_AE_CATG_ERROR');
602: FND_MSG_PUB.add;
603: END IF;
604: x_return_status := FND_API.g_ret_sts_unexp_error;
605: END get_ae_category;
606: */
607: ---------------------------------------------------------------------
608: /*FUNCTION get_event_number(
664: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
665: FND_MESSAGE.set_name('OZF', 'OZF_GL_INVALID_ACCT_EVENT');
666: FND_MSG_PUB.add;
667: END IF;
668: x_return_status := FND_API.g_ret_sts_error;
669: return null;
670: END IF;
671: EXCEPTION
672: WHEN OTHERS THEN
673: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
674: FND_MESSAGE.set_name('OZF', 'OZF_GL_EVE_NUM_ERROR');
675: FND_MSG_PUB.add;
676: END IF;
677: x_return_status := FND_API.g_ret_sts_unexp_error;
678: END get_event_number;
679: */
680: ---------------------------------------------------------------------
681: FUNCTION get_account_type_code(p_event_type_code IN VARCHAR2,
790: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
791: FND_MESSAGE.set_name('OZF', 'OZF_GL_INVALID_ACCT_EVENT');
792: FND_MSG_PUB.add;
793: END IF;
794: x_return_status := FND_API.g_ret_sts_error;
795: return null;
796: END IF;
797: EXCEPTION
798: WHEN OTHERS THEN
799: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
800: FND_MESSAGE.set_name('OZF', 'OZF_GL_ACC_TYPE_ERROR');
801: FND_MSG_PUB.add;
802: END IF;
803: x_return_status := FND_API.g_ret_sts_unexp_error;
804: END get_account_type_code;
805:
806: ---------------------------------------------------------------------
807: /*FUNCTION get_account_description(
847: x_sob_id => l_sob,
848: x_period_name => l_period_name,
849: x_return_status => x_return_status);
850:
851: IF x_return_status = FND_API.g_ret_sts_error THEN
852: RAISE FND_API.G_EXC_ERROR;
853: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
854: RAISE FND_API.g_exc_unexpected_error;
855: END IF;
848: x_period_name => l_period_name,
849: x_return_status => x_return_status);
850:
851: IF x_return_status = FND_API.g_ret_sts_error THEN
852: RAISE FND_API.G_EXC_ERROR;
853: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
854: RAISE FND_API.g_exc_unexpected_error;
855: END IF;
856:
849: x_return_status => x_return_status);
850:
851: IF x_return_status = FND_API.g_ret_sts_error THEN
852: RAISE FND_API.G_EXC_ERROR;
853: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
854: RAISE FND_API.g_exc_unexpected_error;
855: END IF;
856:
857: IF l_ae_category = 'Fixed Budgets' THEN
850:
851: IF x_return_status = FND_API.g_ret_sts_error THEN
852: RAISE FND_API.G_EXC_ERROR;
853: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
854: RAISE FND_API.g_exc_unexpected_error;
855: END IF;
856:
857: IF l_ae_category = 'Fixed Budgets' THEN
858: OPEN offer_code_csr(p_gl_rec.source_id);
914: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
915: FND_MESSAGE.set_name('OZF', 'OZF_GL_ACC_DESC_ERROR');
916: FND_MSG_PUB.add;
917: END IF;
918: x_return_status := FND_API.g_ret_sts_unexp_error;
919: END get_account_description;
920: */
921: ---------------------------------------------------------------------
922:
976: p_source_object_class => l_source_object_class, -- Fix for Bug#13721874
977: p_event_type => l_debit_event,
978: x_return_status => x_return_status);
979:
980: IF x_return_status = FND_API.g_ret_sts_error THEN
981: RAISE FND_API.G_EXC_ERROR;
982: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
984: END IF;
977: p_event_type => l_debit_event,
978: x_return_status => x_return_status);
979:
980: IF x_return_status = FND_API.g_ret_sts_error THEN
981: RAISE FND_API.G_EXC_ERROR;
982: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
984: END IF;
985:
978: x_return_status => x_return_status);
979:
980: IF x_return_status = FND_API.g_ret_sts_error THEN
981: RAISE FND_API.G_EXC_ERROR;
982: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
984: END IF;
985:
986: l_cr_account_type_code := get_account_type_code(
979:
980: IF x_return_status = FND_API.g_ret_sts_error THEN
981: RAISE FND_API.G_EXC_ERROR;
982: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
984: END IF;
985:
986: l_cr_account_type_code := get_account_type_code(
987: p_event_type_code => p_gl_rec.event_type_code,
988: p_source_object_class => l_source_object_class, -- Fix for Bug#13721874
989: p_event_type => l_credit_event,
990: x_return_status => x_return_status);
991:
992: IF x_return_status = FND_API.g_ret_sts_error THEN
993: RAISE FND_API.G_EXC_ERROR;
994: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
995: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
996: END IF;
989: p_event_type => l_credit_event,
990: x_return_status => x_return_status);
991:
992: IF x_return_status = FND_API.g_ret_sts_error THEN
993: RAISE FND_API.G_EXC_ERROR;
994: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
995: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
996: END IF;
997:
990: x_return_status => x_return_status);
991:
992: IF x_return_status = FND_API.g_ret_sts_error THEN
993: RAISE FND_API.G_EXC_ERROR;
994: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
995: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
996: END IF;
997:
998: IF OZF_DEBUG_HIGH_ON THEN
991:
992: IF x_return_status = FND_API.g_ret_sts_error THEN
993: RAISE FND_API.G_EXC_ERROR;
994: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
995: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
996: END IF;
997:
998: IF OZF_DEBUG_HIGH_ON THEN
999: OZF_UTILITY_PVT.debug_message('p_gl_rec.source_table:' || p_gl_rec.source_table);
1013: IF(p_gl_rec.event_type_code = 'PAID_ADJUSTMENT' AND l_dr_account_type_code = 'ACCRUAL_LIABILITY') THEN
1014:
1015: Get_GL_Account(
1016: p_api_version => 1.0,
1017: p_init_msg_list => FND_API.G_FALSE,
1018: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
1019: x_msg_data => l_msg_data,
1020: x_msg_count => l_msg_count,
1021: x_return_status => x_return_status,
1014:
1015: Get_GL_Account(
1016: p_api_version => 1.0,
1017: p_init_msg_list => FND_API.G_FALSE,
1018: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
1019: x_msg_data => l_msg_data,
1020: x_msg_count => l_msg_count,
1021: x_return_status => x_return_status,
1022: p_source_id => p_gl_rec.source_id,
1023: p_source_table => p_gl_rec.source_table,
1024: p_account_type => l_dr_account_type_code,
1025: x_cc_id_tbl => l_dr_cc_id_tbl);
1026:
1027: IF x_return_status = FND_API.g_ret_sts_error THEN
1028: RAISE FND_API.G_EXC_ERROR;
1029: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1031: END IF;
1024: p_account_type => l_dr_account_type_code,
1025: x_cc_id_tbl => l_dr_cc_id_tbl);
1026:
1027: IF x_return_status = FND_API.g_ret_sts_error THEN
1028: RAISE FND_API.G_EXC_ERROR;
1029: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1031: END IF;
1032:
1025: x_cc_id_tbl => l_dr_cc_id_tbl);
1026:
1027: IF x_return_status = FND_API.g_ret_sts_error THEN
1028: RAISE FND_API.G_EXC_ERROR;
1029: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1031: END IF;
1032:
1033:
1026:
1027: IF x_return_status = FND_API.g_ret_sts_error THEN
1028: RAISE FND_API.G_EXC_ERROR;
1029: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1031: END IF;
1032:
1033:
1034: ELSE
1034: ELSE
1035:
1036: Get_GL_Account(
1037: p_api_version => 1.0,
1038: p_init_msg_list => FND_API.G_FALSE,
1039: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
1040: x_msg_data => l_msg_data,
1041: x_msg_count => l_msg_count,
1042: x_return_status => x_return_status,
1035:
1036: Get_GL_Account(
1037: p_api_version => 1.0,
1038: p_init_msg_list => FND_API.G_FALSE,
1039: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
1040: x_msg_data => l_msg_data,
1041: x_msg_count => l_msg_count,
1042: x_return_status => x_return_status,
1043: p_source_id => p_gl_rec.source_id,
1044: p_source_table => p_gl_rec.source_table,
1045: p_account_type => l_dr_account_type_code,
1046: x_cc_id_tbl => l_dr_cc_id_tbl);
1047:
1048: IF x_return_status = FND_API.g_ret_sts_error THEN
1049: RAISE FND_API.G_EXC_ERROR;
1050: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1051: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1052: END IF;
1045: p_account_type => l_dr_account_type_code,
1046: x_cc_id_tbl => l_dr_cc_id_tbl);
1047:
1048: IF x_return_status = FND_API.g_ret_sts_error THEN
1049: RAISE FND_API.G_EXC_ERROR;
1050: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1051: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1052: END IF;
1053:
1046: x_cc_id_tbl => l_dr_cc_id_tbl);
1047:
1048: IF x_return_status = FND_API.g_ret_sts_error THEN
1049: RAISE FND_API.G_EXC_ERROR;
1050: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1051: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1052: END IF;
1053:
1054: IF OZF_DEBUG_HIGH_ON THEN
1047:
1048: IF x_return_status = FND_API.g_ret_sts_error THEN
1049: RAISE FND_API.G_EXC_ERROR;
1050: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1051: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1052: END IF;
1053:
1054: IF OZF_DEBUG_HIGH_ON THEN
1055: OZF_UTILITY_PVT.debug_message('Getting GL Account for crediting');
1057: -- get accounts from account generator for crediting
1058:
1059: Get_GL_Account(
1060: p_api_version => 1.0,
1061: p_init_msg_list => FND_API.G_FALSE,
1062: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
1063: x_msg_data => l_msg_data,
1064: x_msg_count => l_msg_count,
1065: x_return_status => x_return_status,
1058:
1059: Get_GL_Account(
1060: p_api_version => 1.0,
1061: p_init_msg_list => FND_API.G_FALSE,
1062: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
1063: x_msg_data => l_msg_data,
1064: x_msg_count => l_msg_count,
1065: x_return_status => x_return_status,
1066: p_source_id => p_gl_rec.source_id,
1067: p_source_table => p_gl_rec.source_table,
1068: p_account_type => l_cr_account_type_code,
1069: x_cc_id_tbl => l_cr_cc_id_tbl);
1070:
1071: IF x_return_status = FND_API.g_ret_sts_error THEN
1072: RAISE FND_API.G_EXC_ERROR;
1073: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1074: IF OZF_DEBUG_HIGH_ON THEN
1075: OZF_UTILITY_PVT.debug_message('Unexp Error in getting CR account');
1068: p_account_type => l_cr_account_type_code,
1069: x_cc_id_tbl => l_cr_cc_id_tbl);
1070:
1071: IF x_return_status = FND_API.g_ret_sts_error THEN
1072: RAISE FND_API.G_EXC_ERROR;
1073: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1074: IF OZF_DEBUG_HIGH_ON THEN
1075: OZF_UTILITY_PVT.debug_message('Unexp Error in getting CR account');
1076: END IF;
1069: x_cc_id_tbl => l_cr_cc_id_tbl);
1070:
1071: IF x_return_status = FND_API.g_ret_sts_error THEN
1072: RAISE FND_API.G_EXC_ERROR;
1073: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1074: IF OZF_DEBUG_HIGH_ON THEN
1075: OZF_UTILITY_PVT.debug_message('Unexp Error in getting CR account');
1076: END IF;
1077: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1073: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1074: IF OZF_DEBUG_HIGH_ON THEN
1075: OZF_UTILITY_PVT.debug_message('Unexp Error in getting CR account');
1076: END IF;
1077: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1078: END IF;
1079: END IF;
1080: ELSIF(upper(p_gl_rec.source_table) = 'OZF_CLAIMS_ALL') THEN
1081:
1092: END IF;
1093: -- get accounts from account generator for debiting
1094: Get_GL_Account(
1095: p_api_version => 1.0,
1096: p_init_msg_list => FND_API.G_FALSE,
1097: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
1098: x_msg_data => l_msg_data,
1099: x_msg_count => l_msg_count,
1100: x_return_status => x_return_status,
1093: -- get accounts from account generator for debiting
1094: Get_GL_Account(
1095: p_api_version => 1.0,
1096: p_init_msg_list => FND_API.G_FALSE,
1097: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
1098: x_msg_data => l_msg_data,
1099: x_msg_count => l_msg_count,
1100: x_return_status => x_return_status,
1101: p_source_id => p_gl_rec.source_id,
1101: p_source_id => p_gl_rec.source_id,
1102: p_source_table => p_gl_rec.source_table,
1103: p_account_type => l_dr_account_type_code,
1104: x_cc_id_tbl => l_dr_cc_id_tbl);
1105: IF x_return_status = FND_API.g_ret_sts_error THEN
1106: RAISE FND_API.G_EXC_ERROR;
1107: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1108: IF OZF_DEBUG_HIGH_ON THEN
1109: OZF_UTILITY_PVT.debug_message('Unexp Error in getting DR account');
1102: p_source_table => p_gl_rec.source_table,
1103: p_account_type => l_dr_account_type_code,
1104: x_cc_id_tbl => l_dr_cc_id_tbl);
1105: IF x_return_status = FND_API.g_ret_sts_error THEN
1106: RAISE FND_API.G_EXC_ERROR;
1107: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1108: IF OZF_DEBUG_HIGH_ON THEN
1109: OZF_UTILITY_PVT.debug_message('Unexp Error in getting DR account');
1110: END IF;
1103: p_account_type => l_dr_account_type_code,
1104: x_cc_id_tbl => l_dr_cc_id_tbl);
1105: IF x_return_status = FND_API.g_ret_sts_error THEN
1106: RAISE FND_API.G_EXC_ERROR;
1107: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1108: IF OZF_DEBUG_HIGH_ON THEN
1109: OZF_UTILITY_PVT.debug_message('Unexp Error in getting DR account');
1110: END IF;
1111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1107: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1108: IF OZF_DEBUG_HIGH_ON THEN
1109: OZF_UTILITY_PVT.debug_message('Unexp Error in getting DR account');
1110: END IF;
1111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1112: END IF;
1113: ELSIF(p_gl_rec.event_type_code IN ('SETTLE_BY_DEBIT_MEMO')
1114: OR (p_gl_rec.event_type_code IN ('SETTLE_BY_AP_CUSTOM','SETTLE_BY_AP_INVOICE','SETTLE_BY_AP_DEBIT')
1115: AND (l_source_object_class IS NOT NULL AND l_source_object_class = 'SD_SUPPLIER'))) THEN
1118: END IF;
1119: -- get accounts from account generator for crediting
1120: Get_GL_Account(
1121: p_api_version => 1.0,
1122: p_init_msg_list => FND_API.G_FALSE,
1123: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
1124: x_msg_data => l_msg_data,
1125: x_msg_count => l_msg_count,
1126: x_return_status => x_return_status,
1119: -- get accounts from account generator for crediting
1120: Get_GL_Account(
1121: p_api_version => 1.0,
1122: p_init_msg_list => FND_API.G_FALSE,
1123: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
1124: x_msg_data => l_msg_data,
1125: x_msg_count => l_msg_count,
1126: x_return_status => x_return_status,
1127: p_source_id => p_gl_rec.source_id,
1129: p_account_type => l_cr_account_type_code,
1130: p_event_type => p_gl_rec.event_type_code,
1131: x_cc_id_tbl => l_cr_cc_id_tbl);
1132:
1133: IF x_return_status = FND_API.g_ret_sts_error THEN
1134: RAISE FND_API.G_EXC_ERROR;
1135: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1136: IF OZF_DEBUG_HIGH_ON THEN
1137: OZF_UTILITY_PVT.debug_message('Unexp Error in getting CR account');
1130: p_event_type => p_gl_rec.event_type_code,
1131: x_cc_id_tbl => l_cr_cc_id_tbl);
1132:
1133: IF x_return_status = FND_API.g_ret_sts_error THEN
1134: RAISE FND_API.G_EXC_ERROR;
1135: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1136: IF OZF_DEBUG_HIGH_ON THEN
1137: OZF_UTILITY_PVT.debug_message('Unexp Error in getting CR account');
1138: END IF;
1131: x_cc_id_tbl => l_cr_cc_id_tbl);
1132:
1133: IF x_return_status = FND_API.g_ret_sts_error THEN
1134: RAISE FND_API.G_EXC_ERROR;
1135: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1136: IF OZF_DEBUG_HIGH_ON THEN
1137: OZF_UTILITY_PVT.debug_message('Unexp Error in getting CR account');
1138: END IF;
1139: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1135: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1136: IF OZF_DEBUG_HIGH_ON THEN
1137: OZF_UTILITY_PVT.debug_message('Unexp Error in getting CR account');
1138: END IF;
1139: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1140: END IF;
1141: END IF;
1142: END IF;
1143: OZF_UTILITY_PVT.debug_message('After Get_gl_account');
1165: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1166: FND_MESSAGE.set_name('OZF', 'OZF_GL_INVALID_SOURCE_EVENT');
1167: FND_MSG_PUB.add;
1168: END IF;
1169: x_return_status := FND_API.g_ret_sts_error;
1170: END IF;
1171:
1172: ELSIF upper(p_gl_rec.source_table) = 'OZF_CLAIMS_ALL' THEN
1173:
1208: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1209: FND_MESSAGE.set_name('OZF', 'OZF_GL_INVALID_SOURCE_TABLE');
1210: FND_MSG_PUB.add;
1211: END IF;
1212: x_return_status := FND_API.g_ret_sts_error;
1213: END IF;
1214:
1215: EXCEPTION
1216: WHEN FND_API.G_EXC_ERROR THEN
1212: x_return_status := FND_API.g_ret_sts_error;
1213: END IF;
1214:
1215: EXCEPTION
1216: WHEN FND_API.G_EXC_ERROR THEN
1217: x_return_status := FND_API.G_RET_STS_ERROR;
1218: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1220: WHEN OTHERS THEN
1213: END IF;
1214:
1215: EXCEPTION
1216: WHEN FND_API.G_EXC_ERROR THEN
1217: x_return_status := FND_API.G_RET_STS_ERROR;
1218: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1220: WHEN OTHERS THEN
1221: OZF_UTILITY_PVT.debug_message('sqlerrm:'|| sqlerrm);
1214:
1215: EXCEPTION
1216: WHEN FND_API.G_EXC_ERROR THEN
1217: x_return_status := FND_API.G_RET_STS_ERROR;
1218: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1220: WHEN OTHERS THEN
1221: OZF_UTILITY_PVT.debug_message('sqlerrm:'|| sqlerrm);
1222: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1215: EXCEPTION
1216: WHEN FND_API.G_EXC_ERROR THEN
1217: x_return_status := FND_API.G_RET_STS_ERROR;
1218: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1220: WHEN OTHERS THEN
1221: OZF_UTILITY_PVT.debug_message('sqlerrm:'|| sqlerrm);
1222: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1223: FND_MESSAGE.set_name('OZF', 'OZF_GL_LINE_AMOUNT_CALC_ERROR');
1222: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1223: FND_MESSAGE.set_name('OZF', 'OZF_GL_LINE_AMOUNT_CALC_ERROR');
1224: FND_MSG_PUB.add;
1225: END IF;
1226: x_return_status := FND_API.g_ret_sts_unexp_error;
1227: END;
1228:
1229: ---------------------------------------------------------------------
1230:
1398: p_event_type_code => p_gl_rec.event_type_code,
1399: p_adjustment_type => p_gl_rec.adjustment_type,
1400: x_return_status => x_return_status);
1401:
1402: IF x_return_status = FND_API.g_ret_sts_error THEN
1403: RAISE FND_API.G_EXC_ERROR;
1404: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1405: RAISE FND_API.g_exc_unexpected_error;
1406: END IF;
1399: p_adjustment_type => p_gl_rec.adjustment_type,
1400: x_return_status => x_return_status);
1401:
1402: IF x_return_status = FND_API.g_ret_sts_error THEN
1403: RAISE FND_API.G_EXC_ERROR;
1404: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1405: RAISE FND_API.g_exc_unexpected_error;
1406: END IF;
1407:
1400: x_return_status => x_return_status);
1401:
1402: IF x_return_status = FND_API.g_ret_sts_error THEN
1403: RAISE FND_API.G_EXC_ERROR;
1404: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1405: RAISE FND_API.g_exc_unexpected_error;
1406: END IF;
1407:
1408: l_gl_date := get_gl_date(p_source_id => p_gl_rec.source_id,
1401:
1402: IF x_return_status = FND_API.g_ret_sts_error THEN
1403: RAISE FND_API.G_EXC_ERROR;
1404: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1405: RAISE FND_API.g_exc_unexpected_error;
1406: END IF;
1407:
1408: l_gl_date := get_gl_date(p_source_id => p_gl_rec.source_id,
1409: p_source_table => upper(p_gl_rec.source_table));
1418: x_accounting_event_rec.source_table := upper(p_gl_rec.source_table);
1419: x_accounting_event_rec.org_id := l_org_id;
1420:
1421: EXCEPTION
1422: WHEN FND_API.G_EXC_ERROR THEN
1423: x_return_status := FND_API.G_RET_STS_ERROR;
1424: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1426: WHEN OTHERS THEN
1419: x_accounting_event_rec.org_id := l_org_id;
1420:
1421: EXCEPTION
1422: WHEN FND_API.G_EXC_ERROR THEN
1423: x_return_status := FND_API.G_RET_STS_ERROR;
1424: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1426: WHEN OTHERS THEN
1427: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1420:
1421: EXCEPTION
1422: WHEN FND_API.G_EXC_ERROR THEN
1423: x_return_status := FND_API.G_RET_STS_ERROR;
1424: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1426: WHEN OTHERS THEN
1427: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1428: FND_MESSAGE.set_name('OZF', 'OZF_GL_ACCTNG_EVENT_ERROR');
1421: EXCEPTION
1422: WHEN FND_API.G_EXC_ERROR THEN
1423: x_return_status := FND_API.G_RET_STS_ERROR;
1424: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1426: WHEN OTHERS THEN
1427: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1428: FND_MESSAGE.set_name('OZF', 'OZF_GL_ACCTNG_EVENT_ERROR');
1429: FND_MSG_PUB.add;
1427: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1428: FND_MESSAGE.set_name('OZF', 'OZF_GL_ACCTNG_EVENT_ERROR');
1429: FND_MSG_PUB.add;
1430: END IF;
1431: x_return_status := FND_API.g_ret_sts_unexp_error;
1432: END Construct_Acctng_Event_Rec;
1433: */
1434: ---------------------------------------------------------------------
1435: /*PROCEDURE Construct_Header_Rec(
1463:
1464: IF OZF_DEBUG_HIGH_ON THEN
1465: OZF_UTILITY_PVT.debug_message('AE Category'||l_ae_category);
1466: END IF;
1467: IF x_return_status = FND_API.g_ret_sts_error THEN
1468: RAISE FND_API.G_EXC_ERROR;
1469: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1470: RAISE FND_API.g_exc_unexpected_error;
1471: END IF;
1464: IF OZF_DEBUG_HIGH_ON THEN
1465: OZF_UTILITY_PVT.debug_message('AE Category'||l_ae_category);
1466: END IF;
1467: IF x_return_status = FND_API.g_ret_sts_error THEN
1468: RAISE FND_API.G_EXC_ERROR;
1469: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1470: RAISE FND_API.g_exc_unexpected_error;
1471: END IF;
1472:
1465: OZF_UTILITY_PVT.debug_message('AE Category'||l_ae_category);
1466: END IF;
1467: IF x_return_status = FND_API.g_ret_sts_error THEN
1468: RAISE FND_API.G_EXC_ERROR;
1469: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1470: RAISE FND_API.g_exc_unexpected_error;
1471: END IF;
1472:
1473: --- get event status meaning
1466: END IF;
1467: IF x_return_status = FND_API.g_ret_sts_error THEN
1468: RAISE FND_API.G_EXC_ERROR;
1469: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1470: RAISE FND_API.g_exc_unexpected_error;
1471: END IF;
1472:
1473: --- get event status meaning
1474: open meaning_csr(p_gl_rec.event_status_code);
1507: x_ae_header_rec.gl_transfer_run_id := -1;
1508: x_ae_header_rec.org_id := l_org_id;
1509:
1510: EXCEPTION
1511: WHEN FND_API.G_EXC_ERROR THEN
1512: x_return_status := FND_API.G_RET_STS_ERROR;
1513: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1515: WHEN OTHERS THEN
1508: x_ae_header_rec.org_id := l_org_id;
1509:
1510: EXCEPTION
1511: WHEN FND_API.G_EXC_ERROR THEN
1512: x_return_status := FND_API.G_RET_STS_ERROR;
1513: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1515: WHEN OTHERS THEN
1516: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1509:
1510: EXCEPTION
1511: WHEN FND_API.G_EXC_ERROR THEN
1512: x_return_status := FND_API.G_RET_STS_ERROR;
1513: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1515: WHEN OTHERS THEN
1516: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1517: FND_MESSAGE.set_name('OZF', 'OZF_GL_AE_HEADER_ERROR');
1510: EXCEPTION
1511: WHEN FND_API.G_EXC_ERROR THEN
1512: x_return_status := FND_API.G_RET_STS_ERROR;
1513: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1515: WHEN OTHERS THEN
1516: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1517: FND_MESSAGE.set_name('OZF', 'OZF_GL_AE_HEADER_ERROR');
1518: FND_MSG_PUB.add;
1516: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1517: FND_MESSAGE.set_name('OZF', 'OZF_GL_AE_HEADER_ERROR');
1518: FND_MSG_PUB.add;
1519: END IF;
1520: x_return_status := FND_API.g_ret_sts_unexp_error;
1521: END Construct_Header_Rec;
1522: */
1523: ---------------------------------------------------------------------
1524: /*
1573: p_gl_rec => p_gl_rec,
1574: x_amount_tbl => l_amount_tbl,
1575: x_return_status => x_return_status );
1576:
1577: IF x_return_status = FND_API.g_ret_sts_error THEN
1578: RAISE FND_API.G_EXC_ERROR;
1579: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1580: RAISE FND_API.g_exc_unexpected_error;
1581: END IF;
1574: x_amount_tbl => l_amount_tbl,
1575: x_return_status => x_return_status );
1576:
1577: IF x_return_status = FND_API.g_ret_sts_error THEN
1578: RAISE FND_API.G_EXC_ERROR;
1579: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1580: RAISE FND_API.g_exc_unexpected_error;
1581: END IF;
1582:
1575: x_return_status => x_return_status );
1576:
1577: IF x_return_status = FND_API.g_ret_sts_error THEN
1578: RAISE FND_API.G_EXC_ERROR;
1579: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1580: RAISE FND_API.g_exc_unexpected_error;
1581: END IF;
1582:
1583: -- org id
1576:
1577: IF x_return_status = FND_API.g_ret_sts_error THEN
1578: RAISE FND_API.G_EXC_ERROR;
1579: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1580: RAISE FND_API.g_exc_unexpected_error;
1581: END IF;
1582:
1583: -- org id
1584: l_org_id := get_org_id(p_source_id => p_gl_rec.source_id,
1596: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1597: FND_MESSAGE.set_name('OZF', 'OZF_GL_NO_FXGL_ACCOUNT_SETUP');
1598: FND_MSG_PUB.add;
1599: END IF;
1600: x_return_status := FND_API.g_ret_sts_error;
1601: return;
1602: END IF;
1603:
1604: IF l_fxgl_loss_ccid is null THEN
1614: FOR i in 1..l_num_lines LOOP
1615: x_ae_line_tbl.extend;
1616: x_ae_line_tbl(i) := null;
1617: --OZF_UTILITY_PVT.debug_message('Line Number before entering: ' || x_ae_line_tbl(i).ae_line_number);
1618: --if x_ae_line_tbl(i).ae_line_type_code = FND_API.G_MISS_CHAR then
1619: --OZF_UTILITY_PVT.debug_message('Line Type Code before entering - miss char: ' || x_ae_line_tbl(i).ae_line_type_code);
1620: --else
1621: --OZF_UTILITY_PVT.debug_message('Line Type Code before entering: ' || x_ae_line_tbl(i).ae_line_type_code);
1622: --end if;
1658: p_gl_rec => p_gl_rec,
1659: p_account_type_code => l_amount_tbl(i).line_type_code,
1660: x_return_status => x_return_status );
1661:
1662: IF x_return_status = FND_API.g_ret_sts_error THEN
1663: RAISE FND_API.G_EXC_ERROR;
1664: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1665: RAISE FND_API.g_exc_unexpected_error;
1666: END IF;
1659: p_account_type_code => l_amount_tbl(i).line_type_code,
1660: x_return_status => x_return_status );
1661:
1662: IF x_return_status = FND_API.g_ret_sts_error THEN
1663: RAISE FND_API.G_EXC_ERROR;
1664: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1665: RAISE FND_API.g_exc_unexpected_error;
1666: END IF;
1667:
1660: x_return_status => x_return_status );
1661:
1662: IF x_return_status = FND_API.g_ret_sts_error THEN
1663: RAISE FND_API.G_EXC_ERROR;
1664: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1665: RAISE FND_API.g_exc_unexpected_error;
1666: END IF;
1667:
1668: --OZF_UTILITY_PVT.debug_message('Line Number after entering: ' || x_ae_line_tbl(i).ae_line_number);
1661:
1662: IF x_return_status = FND_API.g_ret_sts_error THEN
1663: RAISE FND_API.G_EXC_ERROR;
1664: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1665: RAISE FND_API.g_exc_unexpected_error;
1666: END IF;
1667:
1668: --OZF_UTILITY_PVT.debug_message('Line Number after entering: ' || x_ae_line_tbl(i).ae_line_number);
1669: --if x_ae_line_tbl(i).ae_line_type_code = FND_API.G_MISS_CHAR then
1665: RAISE FND_API.g_exc_unexpected_error;
1666: END IF;
1667:
1668: --OZF_UTILITY_PVT.debug_message('Line Number after entering: ' || x_ae_line_tbl(i).ae_line_number);
1669: --if x_ae_line_tbl(i).ae_line_type_code = FND_API.G_MISS_CHAR then
1670: --OZF_UTILITY_PVT.debug_message('Line Type Code after entering - miss char: ' || x_ae_line_tbl(i).ae_line_type_code);
1671: --else
1672: --OZF_UTILITY_PVT.debug_message('Line Type Code after entering: ' || x_ae_line_tbl(i).ae_line_type_code);
1673: --end if;
1684: p_event_type => 'CR',
1685: p_adjustment_type => p_gl_rec.adjustment_type,
1686: x_return_status => x_return_status);
1687:
1688: IF x_return_status = FND_API.g_ret_sts_error THEN
1689: RAISE FND_API.G_EXC_ERROR;
1690: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1691: RAISE FND_API.g_exc_unexpected_error;
1692: END IF;
1685: p_adjustment_type => p_gl_rec.adjustment_type,
1686: x_return_status => x_return_status);
1687:
1688: IF x_return_status = FND_API.g_ret_sts_error THEN
1689: RAISE FND_API.G_EXC_ERROR;
1690: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1691: RAISE FND_API.g_exc_unexpected_error;
1692: END IF;
1693:
1686: x_return_status => x_return_status);
1687:
1688: IF x_return_status = FND_API.g_ret_sts_error THEN
1689: RAISE FND_API.G_EXC_ERROR;
1690: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1691: RAISE FND_API.g_exc_unexpected_error;
1692: END IF;
1693:
1694: OPEN get_fxgl_amt_csr(p_gl_rec.source_id);
1687:
1688: IF x_return_status = FND_API.g_ret_sts_error THEN
1689: RAISE FND_API.G_EXC_ERROR;
1690: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1691: RAISE FND_API.g_exc_unexpected_error;
1692: END IF;
1693:
1694: OPEN get_fxgl_amt_csr(p_gl_rec.source_id);
1695: LOOP
1716: p_gl_rec => p_gl_rec,
1717: p_account_type_code => l_line_type_code,
1718: x_return_status => x_return_status );
1719:
1720: IF x_return_status = FND_API.g_ret_sts_error THEN
1721: RAISE FND_API.G_EXC_ERROR;
1722: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1723: RAISE FND_API.g_exc_unexpected_error;
1724: END IF;
1717: p_account_type_code => l_line_type_code,
1718: x_return_status => x_return_status );
1719:
1720: IF x_return_status = FND_API.g_ret_sts_error THEN
1721: RAISE FND_API.G_EXC_ERROR;
1722: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1723: RAISE FND_API.g_exc_unexpected_error;
1724: END IF;
1725: ELSIF l_acctd_amount > 0 THEN
1718: x_return_status => x_return_status );
1719:
1720: IF x_return_status = FND_API.g_ret_sts_error THEN
1721: RAISE FND_API.G_EXC_ERROR;
1722: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1723: RAISE FND_API.g_exc_unexpected_error;
1724: END IF;
1725: ELSIF l_acctd_amount > 0 THEN
1726: x_ae_line_tbl.extend;
1719:
1720: IF x_return_status = FND_API.g_ret_sts_error THEN
1721: RAISE FND_API.G_EXC_ERROR;
1722: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1723: RAISE FND_API.g_exc_unexpected_error;
1724: END IF;
1725: ELSIF l_acctd_amount > 0 THEN
1726: x_ae_line_tbl.extend;
1727: x_ae_line_tbl( l_rec_num ) := null;
1740: p_gl_rec => p_gl_rec,
1741: p_account_type_code => l_line_type_code,
1742: x_return_status => x_return_status );
1743:
1744: IF x_return_status = FND_API.g_ret_sts_error THEN
1745: RAISE FND_API.G_EXC_ERROR;
1746: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1747: RAISE FND_API.g_exc_unexpected_error;
1748: END IF;
1741: p_account_type_code => l_line_type_code,
1742: x_return_status => x_return_status );
1743:
1744: IF x_return_status = FND_API.g_ret_sts_error THEN
1745: RAISE FND_API.G_EXC_ERROR;
1746: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1747: RAISE FND_API.g_exc_unexpected_error;
1748: END IF;
1749: END IF;
1742: x_return_status => x_return_status );
1743:
1744: IF x_return_status = FND_API.g_ret_sts_error THEN
1745: RAISE FND_API.G_EXC_ERROR;
1746: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1747: RAISE FND_API.g_exc_unexpected_error;
1748: END IF;
1749: END IF;
1750: END LOOP;
1743:
1744: IF x_return_status = FND_API.g_ret_sts_error THEN
1745: RAISE FND_API.G_EXC_ERROR;
1746: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1747: RAISE FND_API.g_exc_unexpected_error;
1748: END IF;
1749: END IF;
1750: END LOOP;
1751: CLOSE get_fxgl_amt_csr;
1752: END IF;
1753:
1754:
1755: EXCEPTION
1756: WHEN FND_API.G_EXC_ERROR THEN
1757: x_return_status := FND_API.G_RET_STS_ERROR;
1758: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1760: WHEN OTHERS THEN
1753:
1754:
1755: EXCEPTION
1756: WHEN FND_API.G_EXC_ERROR THEN
1757: x_return_status := FND_API.G_RET_STS_ERROR;
1758: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1760: WHEN OTHERS THEN
1761: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1754:
1755: EXCEPTION
1756: WHEN FND_API.G_EXC_ERROR THEN
1757: x_return_status := FND_API.G_RET_STS_ERROR;
1758: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1760: WHEN OTHERS THEN
1761: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1762: FND_MESSAGE.set_name('OZF', 'OZF_GL_AE_LINE_ERROR');
1755: EXCEPTION
1756: WHEN FND_API.G_EXC_ERROR THEN
1757: x_return_status := FND_API.G_RET_STS_ERROR;
1758: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1760: WHEN OTHERS THEN
1761: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1762: FND_MESSAGE.set_name('OZF', 'OZF_GL_AE_LINE_ERROR');
1763: FND_MSG_PUB.add;
1761: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1762: FND_MESSAGE.set_name('OZF', 'OZF_GL_AE_LINE_ERROR');
1763: FND_MSG_PUB.add;
1764: END IF;
1765: x_return_status := FND_API.g_ret_sts_unexp_error;
1766: END Construct_Line_Rec;
1767: */
1768: ---------------------------------------------------------------------
1769: /*PROCEDURE Set_Accounting_Rules(
1767: */
1768: ---------------------------------------------------------------------
1769: /*PROCEDURE Set_Accounting_Rules(
1770: p_api_version IN NUMBER
1771: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1772: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1773:
1774: ,x_msg_data OUT NOCOPY VARCHAR2
1775: ,x_msg_count OUT NOCOPY NUMBER
1768: ---------------------------------------------------------------------
1769: /*PROCEDURE Set_Accounting_Rules(
1770: p_api_version IN NUMBER
1771: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1772: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1773:
1774: ,x_msg_data OUT NOCOPY VARCHAR2
1775: ,x_msg_count OUT NOCOPY NUMBER
1776: ,x_return_status OUT NOCOPY VARCHAR2
1786: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME ||'.'|| l_api_name;
1787: --
1788: BEGIN
1789: -- Standard call to check for call compatibility.
1790: IF NOT FND_API.Compatible_API_Call (
1791: l_api_version,
1792: p_api_version,
1793: l_api_name,
1794: G_PKG_NAME)
1792: p_api_version,
1793: l_api_name,
1794: G_PKG_NAME)
1795: THEN
1796: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1797: END IF;
1798: -- Debug Message
1799: IF OZF_DEBUG_LOW_ON THEN
1800: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1801: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
1802: FND_MSG_PUB.Add;
1803: END IF;
1804: --Initialize message list if p_init_msg_list is TRUE.
1805: IF FND_API.To_Boolean (p_init_msg_list) THEN
1806: FND_MSG_PUB.initialize;
1807: END IF;
1808: -- Initialize API return status to sucess
1809: x_return_status := FND_API.G_RET_STS_SUCCESS;
1805: IF FND_API.To_Boolean (p_init_msg_list) THEN
1806: FND_MSG_PUB.initialize;
1807: END IF;
1808: -- Initialize API return status to sucess
1809: x_return_status := FND_API.G_RET_STS_SUCCESS;
1810:
1811:
1812:
1813: -- construct accounting event
1815: p_gl_rec => p_gl_rec
1816: ,x_return_status => x_return_status
1817: ,x_accounting_event_rec => x_accounting_event_rec);
1818:
1819: IF x_return_status = FND_API.g_ret_sts_error THEN
1820: RAISE FND_API.G_EXC_ERROR;
1821: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1822: RAISE FND_API.g_exc_unexpected_error;
1823: END IF;
1816: ,x_return_status => x_return_status
1817: ,x_accounting_event_rec => x_accounting_event_rec);
1818:
1819: IF x_return_status = FND_API.g_ret_sts_error THEN
1820: RAISE FND_API.G_EXC_ERROR;
1821: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1822: RAISE FND_API.g_exc_unexpected_error;
1823: END IF;
1824:
1817: ,x_accounting_event_rec => x_accounting_event_rec);
1818:
1819: IF x_return_status = FND_API.g_ret_sts_error THEN
1820: RAISE FND_API.G_EXC_ERROR;
1821: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1822: RAISE FND_API.g_exc_unexpected_error;
1823: END IF;
1824:
1825: IF p_acctng_entries = 'T' THEN
1818:
1819: IF x_return_status = FND_API.g_ret_sts_error THEN
1820: RAISE FND_API.G_EXC_ERROR;
1821: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1822: RAISE FND_API.g_exc_unexpected_error;
1823: END IF;
1824:
1825: IF p_acctng_entries = 'T' THEN
1826: -- ae header rec
1828: p_gl_rec => p_gl_rec
1829: ,x_return_status => x_return_status
1830: ,x_ae_header_rec => x_ae_header_rec);
1831:
1832: IF x_return_status = FND_API.g_ret_sts_error THEN
1833: RAISE FND_API.G_EXC_ERROR;
1834: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1835: RAISE FND_API.g_exc_unexpected_error;
1836: END IF;
1829: ,x_return_status => x_return_status
1830: ,x_ae_header_rec => x_ae_header_rec);
1831:
1832: IF x_return_status = FND_API.g_ret_sts_error THEN
1833: RAISE FND_API.G_EXC_ERROR;
1834: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1835: RAISE FND_API.g_exc_unexpected_error;
1836: END IF;
1837:
1830: ,x_ae_header_rec => x_ae_header_rec);
1831:
1832: IF x_return_status = FND_API.g_ret_sts_error THEN
1833: RAISE FND_API.G_EXC_ERROR;
1834: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1835: RAISE FND_API.g_exc_unexpected_error;
1836: END IF;
1837:
1838: -- ae lines
1831:
1832: IF x_return_status = FND_API.g_ret_sts_error THEN
1833: RAISE FND_API.G_EXC_ERROR;
1834: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1835: RAISE FND_API.g_exc_unexpected_error;
1836: END IF;
1837:
1838: -- ae lines
1839: Construct_Line_Rec(
1840: p_gl_rec => p_gl_rec
1841: ,x_return_status => x_return_status
1842: ,x_ae_line_tbl => x_ae_line_tbl);
1843:
1844: IF x_return_status = FND_API.g_ret_sts_error THEN
1845: RAISE FND_API.G_EXC_ERROR;
1846: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1847: RAISE FND_API.g_exc_unexpected_error;
1848: END IF;
1841: ,x_return_status => x_return_status
1842: ,x_ae_line_tbl => x_ae_line_tbl);
1843:
1844: IF x_return_status = FND_API.g_ret_sts_error THEN
1845: RAISE FND_API.G_EXC_ERROR;
1846: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1847: RAISE FND_API.g_exc_unexpected_error;
1848: END IF;
1849: END IF;
1842: ,x_ae_line_tbl => x_ae_line_tbl);
1843:
1844: IF x_return_status = FND_API.g_ret_sts_error THEN
1845: RAISE FND_API.G_EXC_ERROR;
1846: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1847: RAISE FND_API.g_exc_unexpected_error;
1848: END IF;
1849: END IF;
1850:
1843:
1844: IF x_return_status = FND_API.g_ret_sts_error THEN
1845: RAISE FND_API.G_EXC_ERROR;
1846: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1847: RAISE FND_API.g_exc_unexpected_error;
1848: END IF;
1849: END IF;
1850:
1851:
1853: p_gl_rec => p_gl_rec,
1854: x_actg_tbl => l_actg_tbl,
1855: x_return_status => x_return_status );
1856:
1857: IF x_return_status = FND_API.g_ret_sts_error THEN
1858: RAISE FND_API.G_EXC_ERROR;
1859: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1860: RAISE FND_API.g_exc_unexpected_error;
1861: END IF;
1854: x_actg_tbl => l_actg_tbl,
1855: x_return_status => x_return_status );
1856:
1857: IF x_return_status = FND_API.g_ret_sts_error THEN
1858: RAISE FND_API.G_EXC_ERROR;
1859: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1860: RAISE FND_API.g_exc_unexpected_error;
1861: END IF;
1862:
1855: x_return_status => x_return_status );
1856:
1857: IF x_return_status = FND_API.g_ret_sts_error THEN
1858: RAISE FND_API.G_EXC_ERROR;
1859: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1860: RAISE FND_API.g_exc_unexpected_error;
1861: END IF;
1862:
1863: -- Debug Message
1856:
1857: IF x_return_status = FND_API.g_ret_sts_error THEN
1858: RAISE FND_API.G_EXC_ERROR;
1859: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1860: RAISE FND_API.g_exc_unexpected_error;
1861: END IF;
1862:
1863: -- Debug Message
1864: IF OZF_DEBUG_LOW_ON THEN
1867: FND_MSG_PUB.Add;
1868: END IF;
1869: --Standard call to get message count and if count=1, get the message
1870: FND_MSG_PUB.Count_And_Get (
1871: p_encoded => FND_API.G_FALSE,
1872: p_count => x_msg_count,
1873: p_data => x_msg_data
1874: );
1875: EXCEPTION
1872: p_count => x_msg_count,
1873: p_data => x_msg_data
1874: );
1875: EXCEPTION
1876: WHEN FND_API.G_EXC_ERROR THEN
1877: x_return_status := FND_API.G_RET_STS_ERROR;
1878: -- Standard call to get message count and if count=1, get the message
1879: FND_MSG_PUB.Count_And_Get (
1880: p_encoded => FND_API.G_FALSE,
1873: p_data => x_msg_data
1874: );
1875: EXCEPTION
1876: WHEN FND_API.G_EXC_ERROR THEN
1877: x_return_status := FND_API.G_RET_STS_ERROR;
1878: -- Standard call to get message count and if count=1, get the message
1879: FND_MSG_PUB.Count_And_Get (
1880: p_encoded => FND_API.G_FALSE,
1881: p_count => x_msg_count,
1876: WHEN FND_API.G_EXC_ERROR THEN
1877: x_return_status := FND_API.G_RET_STS_ERROR;
1878: -- Standard call to get message count and if count=1, get the message
1879: FND_MSG_PUB.Count_And_Get (
1880: p_encoded => FND_API.G_FALSE,
1881: p_count => x_msg_count,
1882: p_data => x_msg_data
1883: );
1884: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1880: p_encoded => FND_API.G_FALSE,
1881: p_count => x_msg_count,
1882: p_data => x_msg_data
1883: );
1884: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1886: -- Standard call to get message count and if count=1, get the message
1887: FND_MSG_PUB.Count_And_Get (
1888: p_encoded => FND_API.G_FALSE,
1881: p_count => x_msg_count,
1882: p_data => x_msg_data
1883: );
1884: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1886: -- Standard call to get message count and if count=1, get the message
1887: FND_MSG_PUB.Count_And_Get (
1888: p_encoded => FND_API.G_FALSE,
1889: p_count => x_msg_count,
1884: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1886: -- Standard call to get message count and if count=1, get the message
1887: FND_MSG_PUB.Count_And_Get (
1888: p_encoded => FND_API.G_FALSE,
1889: p_count => x_msg_count,
1890: p_data => x_msg_data
1891: );
1892: WHEN OTHERS THEN
1889: p_count => x_msg_count,
1890: p_data => x_msg_data
1891: );
1892: WHEN OTHERS THEN
1893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1894: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1895: THEN
1896: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1897: END IF;
1896: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1897: END IF;
1898: -- Standard call to get message count and if count=1, get the message
1899: FND_MSG_PUB.Count_And_Get (
1900: p_encoded => FND_API.G_FALSE,
1901: p_count => x_msg_count,
1902: p_data => x_msg_data
1903: );
1904: END set_accounting_rules;
1925: -- 12-Feb-10 BKUNJAN ER#9382547 ChRM-SLA Uptake -Created
1926: ---------------------------------------------------------------------
1927: PROCEDURE Create_SLA_Accrual_Extract (
1928: p_api_version IN NUMBER
1929: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1930: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1931: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1932:
1933: ,x_return_status OUT NOCOPY VARCHAR2
1926: ---------------------------------------------------------------------
1927: PROCEDURE Create_SLA_Accrual_Extract (
1928: p_api_version IN NUMBER
1929: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1930: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1931: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1932:
1933: ,x_return_status OUT NOCOPY VARCHAR2
1934: ,x_msg_data OUT NOCOPY VARCHAR2
1927: PROCEDURE Create_SLA_Accrual_Extract (
1928: p_api_version IN NUMBER
1929: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1930: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1931: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1932:
1933: ,x_return_status OUT NOCOPY VARCHAR2
1934: ,x_msg_data OUT NOCOPY VARCHAR2
1935: ,x_msg_count OUT NOCOPY NUMBER
1984: BEGIN
1985: -- Standard begin of API savepoint
1986: SAVEPOINT Create_SLA_Accrual_Extract;
1987: -- Standard call to check for call compatibility.
1988: IF NOT FND_API.Compatible_API_Call (
1989: l_api_version,
1990: p_api_version,
1991: l_api_name,
1992: G_PKG_NAME)
1990: p_api_version,
1991: l_api_name,
1992: G_PKG_NAME)
1993: THEN
1994: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1995: END IF;
1996: -- Debug Message
1997: IF OZF_DEBUG_LOW_ON THEN
1998: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1999: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
2000: FND_MSG_PUB.Add;
2001: END IF;
2002: --Initialize message list if p_init_msg_list is TRUE.
2003: IF FND_API.To_Boolean (p_init_msg_list) THEN
2004: FND_MSG_PUB.initialize;
2005: END IF;
2006: -- Initialize API return status to sucess
2007: x_return_status := FND_API.G_RET_STS_SUCCESS;
2003: IF FND_API.To_Boolean (p_init_msg_list) THEN
2004: FND_MSG_PUB.initialize;
2005: END IF;
2006: -- Initialize API return status to sucess
2007: x_return_status := FND_API.G_RET_STS_SUCCESS;
2008:
2009: --ER 13069257
2010: OPEN c_util_details;
2011: FETCH c_util_details INTO l_org_id, l_gl_date,l_adjustment_type;
2018: IF l_revenue_acct IS NULL THEN
2019: IF OZF_DEBUG_LOW_ON THEN
2020: OZF_Utility_PVT.debug_message('OZF_UTILITY_PVT.get_revenue_account() Call :- Revenue Account is Null ');
2021: END IF;
2022: RAISE FND_API.G_EXC_ERROR;
2023: END IF;
2024: END IF;
2025:
2026:
2052: p_gl_rec => p_gl_rec,
2053: x_actg_tbl => l_actg_tbl,
2054: x_return_status => x_return_status );
2055:
2056: IF x_return_status = FND_API.g_ret_sts_error THEN
2057: RAISE FND_API.G_EXC_ERROR;
2058: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2059: RAISE FND_API.g_exc_unexpected_error;
2060: END IF;
2053: x_actg_tbl => l_actg_tbl,
2054: x_return_status => x_return_status );
2055:
2056: IF x_return_status = FND_API.g_ret_sts_error THEN
2057: RAISE FND_API.G_EXC_ERROR;
2058: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2059: RAISE FND_API.g_exc_unexpected_error;
2060: END IF;
2061: IF OZF_DEBUG_LOW_ON THEN
2054: x_return_status => x_return_status );
2055:
2056: IF x_return_status = FND_API.g_ret_sts_error THEN
2057: RAISE FND_API.G_EXC_ERROR;
2058: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2059: RAISE FND_API.g_exc_unexpected_error;
2060: END IF;
2061: IF OZF_DEBUG_LOW_ON THEN
2062: OZF_Utility_PVT.debug_message('Number of Record l_actg_tbl.count : '||l_actg_tbl.count);
2055:
2056: IF x_return_status = FND_API.g_ret_sts_error THEN
2057: RAISE FND_API.G_EXC_ERROR;
2058: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2059: RAISE FND_API.g_exc_unexpected_error;
2060: END IF;
2061: IF OZF_DEBUG_LOW_ON THEN
2062: OZF_Utility_PVT.debug_message('Number of Record l_actg_tbl.count : '||l_actg_tbl.count);
2063: END IF;
2151: );
2152:
2153:
2154: --Standard check of commit
2155: IF FND_API.To_Boolean ( p_commit ) THEN
2156: COMMIT WORK;
2157: END IF;
2158: -- Debug Message
2159: IF OZF_DEBUG_LOW_ON THEN
2162: FND_MSG_PUB.Add;
2163: END IF;
2164: --Standard call to get message count and if count=1, get the message
2165: FND_MSG_PUB.Count_And_Get (
2166: p_encoded => FND_API.G_FALSE,
2167: p_count => x_msg_count,
2168: p_data => x_msg_data
2169: );
2170: EXCEPTION
2169: );
2170: EXCEPTION
2171: WHEN DUP_VAL_ON_INDEX THEN --bug 13517522 - raise and catch error if duplicate value is inserted for column UTILIZATION_ID
2172: ROLLBACK TO Create_SLA_Accrual_Extract;
2173: x_return_status := FND_API.G_RET_STS_SUCCESS;
2174:
2175: ozf_utility_pvt.write_conc_log('duplicate event raised for accrual');
2176: ozf_utility_pvt.debug_message('duplicate event raised for accrual');
2177:
2174:
2175: ozf_utility_pvt.write_conc_log('duplicate event raised for accrual');
2176: ozf_utility_pvt.debug_message('duplicate event raised for accrual');
2177:
2178: WHEN FND_API.G_EXC_ERROR THEN
2179: ROLLBACK TO Create_SLA_Accrual_Extract;
2180: x_return_status := FND_API.G_RET_STS_ERROR;
2181: -- Standard call to get message count and if count=1, get the message
2182: FND_MSG_PUB.Count_And_Get (
2176: ozf_utility_pvt.debug_message('duplicate event raised for accrual');
2177:
2178: WHEN FND_API.G_EXC_ERROR THEN
2179: ROLLBACK TO Create_SLA_Accrual_Extract;
2180: x_return_status := FND_API.G_RET_STS_ERROR;
2181: -- Standard call to get message count and if count=1, get the message
2182: FND_MSG_PUB.Count_And_Get (
2183: p_encoded => FND_API.G_FALSE,
2184: p_count => x_msg_count,
2179: ROLLBACK TO Create_SLA_Accrual_Extract;
2180: x_return_status := FND_API.G_RET_STS_ERROR;
2181: -- Standard call to get message count and if count=1, get the message
2182: FND_MSG_PUB.Count_And_Get (
2183: p_encoded => FND_API.G_FALSE,
2184: p_count => x_msg_count,
2185: p_data => x_msg_data
2186: );
2187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2183: p_encoded => FND_API.G_FALSE,
2184: p_count => x_msg_count,
2185: p_data => x_msg_data
2186: );
2187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2188: ROLLBACK TO Create_SLA_Accrual_Extract;
2189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2190: -- Standard call to get message count and if count=1, get the message
2191: FND_MSG_PUB.Count_And_Get (
2185: p_data => x_msg_data
2186: );
2187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2188: ROLLBACK TO Create_SLA_Accrual_Extract;
2189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2190: -- Standard call to get message count and if count=1, get the message
2191: FND_MSG_PUB.Count_And_Get (
2192: p_encoded => FND_API.G_FALSE,
2193: p_count => x_msg_count,
2188: ROLLBACK TO Create_SLA_Accrual_Extract;
2189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2190: -- Standard call to get message count and if count=1, get the message
2191: FND_MSG_PUB.Count_And_Get (
2192: p_encoded => FND_API.G_FALSE,
2193: p_count => x_msg_count,
2194: p_data => x_msg_data
2195: );
2196: WHEN OTHERS THEN
2194: p_data => x_msg_data
2195: );
2196: WHEN OTHERS THEN
2197: ROLLBACK TO Create_SLA_Accrual_Extract;
2198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2199: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2200: THEN
2201: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2202: END IF;
2201: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2202: END IF;
2203: -- Standard call to get message count and if count=1, get the message
2204: FND_MSG_PUB.Count_And_Get (
2205: p_encoded => FND_API.G_FALSE,
2206: p_count => x_msg_count,
2207: p_data => x_msg_data
2208: );
2209:
2229: -- 09/19/2011 BKUNJAN ER 12985686 .Added x_xla_event_id parameter
2230: ---------------------------------------------------------------------
2231: PROCEDURE Create_SLA_Claim_Extract (
2232: p_api_version IN NUMBER
2233: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2234: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2235: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2236:
2237: ,x_return_status OUT NOCOPY VARCHAR2
2230: ---------------------------------------------------------------------
2231: PROCEDURE Create_SLA_Claim_Extract (
2232: p_api_version IN NUMBER
2233: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2234: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2235: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2236:
2237: ,x_return_status OUT NOCOPY VARCHAR2
2238: ,x_msg_data OUT NOCOPY VARCHAR2
2231: PROCEDURE Create_SLA_Claim_Extract (
2232: p_api_version IN NUMBER
2233: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2234: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2235: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2236:
2237: ,x_return_status OUT NOCOPY VARCHAR2
2238: ,x_msg_data OUT NOCOPY VARCHAR2
2239: ,x_msg_count OUT NOCOPY NUMBER
2339: BEGIN
2340: -- Standard begin of API savepoint
2341: SAVEPOINT Create_SLA_Claim_Extract;
2342: -- Standard call to check for call compatibility.
2343: IF NOT FND_API.Compatible_API_Call (
2344: l_api_version,
2345: p_api_version,
2346: l_api_name,
2347: G_PKG_NAME)
2345: p_api_version,
2346: l_api_name,
2347: G_PKG_NAME)
2348: THEN
2349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2350: END IF;
2351: -- Debug Message
2352: IF OZF_DEBUG_LOW_ON THEN
2353: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2354: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
2355: FND_MSG_PUB.Add;
2356: END IF;
2357: --Initialize message list if p_init_msg_list is TRUE.
2358: IF FND_API.To_Boolean (p_init_msg_list) THEN
2359: FND_MSG_PUB.initialize;
2360: END IF;
2361: -- Initialize API return status to sucess
2362: x_return_status := FND_API.G_RET_STS_SUCCESS;
2358: IF FND_API.To_Boolean (p_init_msg_list) THEN
2359: FND_MSG_PUB.initialize;
2360: END IF;
2361: -- Initialize API return status to sucess
2362: x_return_status := FND_API.G_RET_STS_SUCCESS;
2363:
2364: OPEN c_count_claim_utils (p_claim_id);
2365: FETCH c_count_claim_utils INTO l_count_claim_utils;
2366: CLOSE c_count_claim_utils;
2392: get_acctg_accounts(
2393: p_gl_rec => p_gl_rec,
2394: x_actg_tbl => l_actg_tbl,
2395: x_return_status => x_return_status );
2396: IF x_return_status = FND_API.g_ret_sts_error THEN
2397: RAISE FND_API.G_EXC_ERROR;
2398: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2399: RAISE FND_API.g_exc_unexpected_error;
2400: END IF;
2393: p_gl_rec => p_gl_rec,
2394: x_actg_tbl => l_actg_tbl,
2395: x_return_status => x_return_status );
2396: IF x_return_status = FND_API.g_ret_sts_error THEN
2397: RAISE FND_API.G_EXC_ERROR;
2398: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2399: RAISE FND_API.g_exc_unexpected_error;
2400: END IF;
2401: END IF;
2394: x_actg_tbl => l_actg_tbl,
2395: x_return_status => x_return_status );
2396: IF x_return_status = FND_API.g_ret_sts_error THEN
2397: RAISE FND_API.G_EXC_ERROR;
2398: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2399: RAISE FND_API.g_exc_unexpected_error;
2400: END IF;
2401: END IF;
2402:
2395: x_return_status => x_return_status );
2396: IF x_return_status = FND_API.g_ret_sts_error THEN
2397: RAISE FND_API.G_EXC_ERROR;
2398: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2399: RAISE FND_API.g_exc_unexpected_error;
2400: END IF;
2401: END IF;
2402:
2403: END IF;
2590: END IF;
2591:
2592: END IF;
2593: --Standard check of commit
2594: IF FND_API.To_Boolean ( p_commit ) THEN
2595: COMMIT WORK;
2596: END IF;
2597: -- Debug Message
2598: IF OZF_DEBUG_LOW_ON THEN
2601: FND_MSG_PUB.Add;
2602: END IF;
2603: --Standard call to get message count and if count=1, get the message
2604: FND_MSG_PUB.Count_And_Get (
2605: p_encoded => FND_API.G_FALSE,
2606: p_count => x_msg_count,
2607: p_data => x_msg_data
2608: );
2609: EXCEPTION
2609: EXCEPTION
2610: WHEN DUP_VAL_ON_INDEX THEN -- Fix for Bug#13542516
2611: --amitamku fix for bug 16073366 - corrected the savepoint name
2612: ROLLBACK TO Create_SLA_Claim_Extract;
2613: x_return_status := FND_API.G_RET_STS_SUCCESS;
2614:
2615: ozf_utility_pvt.write_conc_log('duplicate event raised for Claim Settlement');
2616: ozf_utility_pvt.debug_message('duplicate event raised for Claim Settlement');
2617:
2614:
2615: ozf_utility_pvt.write_conc_log('duplicate event raised for Claim Settlement');
2616: ozf_utility_pvt.debug_message('duplicate event raised for Claim Settlement');
2617:
2618: WHEN FND_API.G_EXC_ERROR THEN
2619: ROLLBACK TO Create_SLA_Claim_Extract;
2620: x_return_status := FND_API.G_RET_STS_ERROR;
2621: -- Standard call to get message count and if count=1, get the message
2622: FND_MSG_PUB.Count_And_Get (
2616: ozf_utility_pvt.debug_message('duplicate event raised for Claim Settlement');
2617:
2618: WHEN FND_API.G_EXC_ERROR THEN
2619: ROLLBACK TO Create_SLA_Claim_Extract;
2620: x_return_status := FND_API.G_RET_STS_ERROR;
2621: -- Standard call to get message count and if count=1, get the message
2622: FND_MSG_PUB.Count_And_Get (
2623: p_encoded => FND_API.G_FALSE,
2624: p_count => x_msg_count,
2619: ROLLBACK TO Create_SLA_Claim_Extract;
2620: x_return_status := FND_API.G_RET_STS_ERROR;
2621: -- Standard call to get message count and if count=1, get the message
2622: FND_MSG_PUB.Count_And_Get (
2623: p_encoded => FND_API.G_FALSE,
2624: p_count => x_msg_count,
2625: p_data => x_msg_data
2626: );
2627: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2623: p_encoded => FND_API.G_FALSE,
2624: p_count => x_msg_count,
2625: p_data => x_msg_data
2626: );
2627: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2628: ROLLBACK TO Create_SLA_Claim_Extract;
2629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2630: -- Standard call to get message count and if count=1, get the message
2631: FND_MSG_PUB.Count_And_Get (
2625: p_data => x_msg_data
2626: );
2627: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2628: ROLLBACK TO Create_SLA_Claim_Extract;
2629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2630: -- Standard call to get message count and if count=1, get the message
2631: FND_MSG_PUB.Count_And_Get (
2632: p_encoded => FND_API.G_FALSE,
2633: p_count => x_msg_count,
2628: ROLLBACK TO Create_SLA_Claim_Extract;
2629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2630: -- Standard call to get message count and if count=1, get the message
2631: FND_MSG_PUB.Count_And_Get (
2632: p_encoded => FND_API.G_FALSE,
2633: p_count => x_msg_count,
2634: p_data => x_msg_data
2635: );
2636: WHEN OTHERS THEN
2634: p_data => x_msg_data
2635: );
2636: WHEN OTHERS THEN
2637: ROLLBACK TO Create_SLA_Claim_Extract;
2638: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2639: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2640: THEN
2641: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2642: END IF;
2641: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2642: END IF;
2643: -- Standard call to get message count and if count=1, get the message
2644: FND_MSG_PUB.Count_And_Get (
2645: p_encoded => FND_API.G_FALSE,
2646: p_count => x_msg_count,
2647: p_data => x_msg_data
2648: );
2649:
2669: --
2670: ---------------------------------------------------------------------
2671: PROCEDURE Create_Gl_Entry (
2672: p_api_version IN NUMBER
2673: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2674: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2675: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2676:
2677: ,x_return_status OUT NOCOPY VARCHAR2
2670: ---------------------------------------------------------------------
2671: PROCEDURE Create_Gl_Entry (
2672: p_api_version IN NUMBER
2673: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2674: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2675: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2676:
2677: ,x_return_status OUT NOCOPY VARCHAR2
2678: ,x_msg_data OUT NOCOPY VARCHAR2
2671: PROCEDURE Create_Gl_Entry (
2672: p_api_version IN NUMBER
2673: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2674: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2675: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2676:
2677: ,x_return_status OUT NOCOPY VARCHAR2
2678: ,x_msg_data OUT NOCOPY VARCHAR2
2679: ,x_msg_count OUT NOCOPY NUMBER
2720: BEGIN
2721: -- Standard begin of API savepoint
2722: SAVEPOINT Create_Gl_Entry_PVT;
2723: -- Standard call to check for call compatibility.
2724: IF NOT FND_API.Compatible_API_Call (
2725: l_api_version,
2726: p_api_version,
2727: l_api_name,
2728: G_PKG_NAME)
2726: p_api_version,
2727: l_api_name,
2728: G_PKG_NAME)
2729: THEN
2730: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2731: END IF;
2732: -- Debug Message
2733: IF OZF_DEBUG_LOW_ON THEN
2734: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2735: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
2736: FND_MSG_PUB.Add;
2737: END IF;
2738: --Initialize message list if p_init_msg_list is TRUE.
2739: IF FND_API.To_Boolean (p_init_msg_list) THEN
2740: FND_MSG_PUB.initialize;
2741: END IF;
2742: -- Initialize API return status to sucess
2743: x_return_status := FND_API.G_RET_STS_SUCCESS;
2739: IF FND_API.To_Boolean (p_init_msg_list) THEN
2740: FND_MSG_PUB.initialize;
2741: END IF;
2742: -- Initialize API return status to sucess
2743: x_return_status := FND_API.G_RET_STS_SUCCESS;
2744:
2745: IF OZF_DEBUG_LOW_ON THEN
2746: OZF_Utility_PVT.debug_message('--------- create_gl_entry ----------');
2747: OZF_Utility_PVT.debug_message('event_type_code : '||p_gl_rec.event_type_code);
2765: FND_MESSAGE.set_token('SOURCE_ID', p_gl_rec.source_id);
2766: FND_MESSAGE.set_token('SOURCE_TABLE', p_gl_rec.source_table);
2767: FND_MSG_PUB.add;
2768: END IF;
2769: RAISE FND_API.G_EXC_ERROR;
2770: END IF;
2771: END IF;
2772: -- [END OF BUG 4039894 FIXING]
2773: */
2791: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2792: FND_MESSAGE.set_name('OZF', 'OZF_GL_NO_SYSPARAM');
2793: FND_MSG_PUB.add;
2794: END IF;
2795: x_return_status := FND_API.g_ret_sts_error;
2796: return;
2797: END IF;
2798:
2799: -- Bug Fix 10037158
2868:
2869: OZF_Utility_PVT.write_conc_log('Before Calling Create_SLA_Accrual_Extract');
2870: Create_SLA_Accrual_Extract (
2871: p_api_version => 1.0
2872: ,p_init_msg_list => FND_API.G_FALSE
2873: ,p_commit => FND_API.G_FALSE
2874: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2875: ,x_return_status => x_return_status
2876: ,x_msg_data => x_msg_data
2869: OZF_Utility_PVT.write_conc_log('Before Calling Create_SLA_Accrual_Extract');
2870: Create_SLA_Accrual_Extract (
2871: p_api_version => 1.0
2872: ,p_init_msg_list => FND_API.G_FALSE
2873: ,p_commit => FND_API.G_FALSE
2874: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2875: ,x_return_status => x_return_status
2876: ,x_msg_data => x_msg_data
2877: ,x_msg_count => x_msg_count
2870: Create_SLA_Accrual_Extract (
2871: p_api_version => 1.0
2872: ,p_init_msg_list => FND_API.G_FALSE
2873: ,p_commit => FND_API.G_FALSE
2874: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2875: ,x_return_status => x_return_status
2876: ,x_msg_data => x_msg_data
2877: ,x_msg_count => x_msg_count
2878: ,p_utilization_id => p_gl_rec.source_id
2881: ,p_adj_dr_cc_id => p_gl_rec.dr_code_combination_id
2882: ,p_gl_rec => p_gl_rec
2883: );
2884:
2885: IF x_return_status = FND_API.g_ret_sts_error THEN
2886: RAISE FND_API.G_EXC_ERROR;
2887: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2888: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2889: END IF;
2882: ,p_gl_rec => p_gl_rec
2883: );
2884:
2885: IF x_return_status = FND_API.g_ret_sts_error THEN
2886: RAISE FND_API.G_EXC_ERROR;
2887: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2888: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2889: END IF;
2890: ELSIF UPPER(p_gl_rec.source_table) = 'OZF_CLAIMS_ALL' THEN
2883: );
2884:
2885: IF x_return_status = FND_API.g_ret_sts_error THEN
2886: RAISE FND_API.G_EXC_ERROR;
2887: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2888: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2889: END IF;
2890: ELSIF UPPER(p_gl_rec.source_table) = 'OZF_CLAIMS_ALL' THEN
2891:
2884:
2885: IF x_return_status = FND_API.g_ret_sts_error THEN
2886: RAISE FND_API.G_EXC_ERROR;
2887: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2888: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2889: END IF;
2890: ELSIF UPPER(p_gl_rec.source_table) = 'OZF_CLAIMS_ALL' THEN
2891:
2892: Create_SLA_Claim_Extract (
2890: ELSIF UPPER(p_gl_rec.source_table) = 'OZF_CLAIMS_ALL' THEN
2891:
2892: Create_SLA_Claim_Extract (
2893: p_api_version => 1.0
2894: ,p_init_msg_list => FND_API.G_FALSE
2895: ,p_commit => FND_API.G_FALSE
2896: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2897: ,x_return_status => x_return_status
2898: ,x_msg_data => x_msg_data
2891:
2892: Create_SLA_Claim_Extract (
2893: p_api_version => 1.0
2894: ,p_init_msg_list => FND_API.G_FALSE
2895: ,p_commit => FND_API.G_FALSE
2896: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2897: ,x_return_status => x_return_status
2898: ,x_msg_data => x_msg_data
2899: ,x_msg_count => x_msg_count
2892: Create_SLA_Claim_Extract (
2893: p_api_version => 1.0
2894: ,p_init_msg_list => FND_API.G_FALSE
2895: ,p_commit => FND_API.G_FALSE
2896: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2897: ,x_return_status => x_return_status
2898: ,x_msg_data => x_msg_data
2899: ,x_msg_count => x_msg_count
2900: ,p_claim_id => p_gl_rec.source_id
2902: ,p_gl_rec => p_gl_rec
2903: ,x_xla_event_id => l_xla_event_id
2904: );
2905:
2906: IF x_return_status = FND_API.g_ret_sts_error THEN
2907: RAISE FND_API.G_EXC_ERROR;
2908: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2909: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2910: END IF;
2903: ,x_xla_event_id => l_xla_event_id
2904: );
2905:
2906: IF x_return_status = FND_API.g_ret_sts_error THEN
2907: RAISE FND_API.G_EXC_ERROR;
2908: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2909: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2910: END IF;
2911: END IF;
2904: );
2905:
2906: IF x_return_status = FND_API.g_ret_sts_error THEN
2907: RAISE FND_API.G_EXC_ERROR;
2908: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2909: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2910: END IF;
2911: END IF;
2912: END IF; --IF l_post_to_gl = 'T' THEN
2905:
2906: IF x_return_status = FND_API.g_ret_sts_error THEN
2907: RAISE FND_API.G_EXC_ERROR;
2908: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2909: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2910: END IF;
2911: END IF;
2912: END IF; --IF l_post_to_gl = 'T' THEN
2913:
2918:
2919: -- get the SLA table values populated
2920: Set_Accounting_Rules(
2921: P_Api_Version => 1.0,
2922: P_Init_Msg_List => FND_API.G_FALSE,
2923: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2924: X_Msg_Data => x_msg_data,
2925: X_Msg_Count => x_msg_count,
2926: X_Return_Status => x_return_status,
2919: -- get the SLA table values populated
2920: Set_Accounting_Rules(
2921: P_Api_Version => 1.0,
2922: P_Init_Msg_List => FND_API.G_FALSE,
2923: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2924: X_Msg_Data => x_msg_data,
2925: X_Msg_Count => x_msg_count,
2926: X_Return_Status => x_return_status,
2927: p_gl_rec => p_gl_rec,
2929: x_accounting_event_rec => l_acctng_event_rec,
2930: x_ae_header_rec => l_ae_header_rec,
2931: x_ae_line_tbl => l_ae_line_tbl );
2932:
2933: IF x_return_status = FND_API.g_ret_sts_error THEN
2934: --IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2935: -- FND_MESSAGE.set_name('OZF', 'OZF_GL_ACCT_RULE_ERROR');
2936: -- FND_MSG_PUB.add;
2937: --END IF;
2934: --IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2935: -- FND_MESSAGE.set_name('OZF', 'OZF_GL_ACCT_RULE_ERROR');
2936: -- FND_MSG_PUB.add;
2937: --END IF;
2938: RAISE FND_API.G_EXC_ERROR;
2939: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2940: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2941: END IF;
2942:
2935: -- FND_MESSAGE.set_name('OZF', 'OZF_GL_ACCT_RULE_ERROR');
2936: -- FND_MSG_PUB.add;
2937: --END IF;
2938: RAISE FND_API.G_EXC_ERROR;
2939: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2940: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2941: END IF;
2942:
2943: -- populate interface tables for GL enter creation
2936: -- FND_MSG_PUB.add;
2937: --END IF;
2938: RAISE FND_API.G_EXC_ERROR;
2939: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2940: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2941: END IF;
2942:
2943: -- populate interface tables for GL enter creation
2944: -- Create accounting event
2943: -- populate interface tables for GL enter creation
2944: -- Create accounting event
2945: OZF_acctng_events_PVT.Create_acctng_events(
2946: P_Api_Version_Number => 1.0,
2947: P_Init_Msg_List => FND_API.G_FALSE,
2948: P_Commit => FND_API.G_FALSE,
2949: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2950: X_Return_Status => x_return_status,
2951: X_Msg_Count => x_msg_count,
2944: -- Create accounting event
2945: OZF_acctng_events_PVT.Create_acctng_events(
2946: P_Api_Version_Number => 1.0,
2947: P_Init_Msg_List => FND_API.G_FALSE,
2948: P_Commit => FND_API.G_FALSE,
2949: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2950: X_Return_Status => x_return_status,
2951: X_Msg_Count => x_msg_count,
2952: X_Msg_Data => x_msg_data,
2945: OZF_acctng_events_PVT.Create_acctng_events(
2946: P_Api_Version_Number => 1.0,
2947: P_Init_Msg_List => FND_API.G_FALSE,
2948: P_Commit => FND_API.G_FALSE,
2949: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2950: X_Return_Status => x_return_status,
2951: X_Msg_Count => x_msg_count,
2952: X_Msg_Data => x_msg_data,
2953: P_ACCTNG_EVENT_Rec => l_ACCTNG_EVENT_Rec,
2952: X_Msg_Data => x_msg_data,
2953: P_ACCTNG_EVENT_Rec => l_ACCTNG_EVENT_Rec,
2954: X_ACCOUNTING_EVENT_ID => l_ACCOUNTING_EVENT_ID);
2955:
2956: IF x_return_status = FND_API.g_ret_sts_error THEN
2957: RAISE FND_API.G_EXC_ERROR;
2958: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2959: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2960: END IF;
2953: P_ACCTNG_EVENT_Rec => l_ACCTNG_EVENT_Rec,
2954: X_ACCOUNTING_EVENT_ID => l_ACCOUNTING_EVENT_ID);
2955:
2956: IF x_return_status = FND_API.g_ret_sts_error THEN
2957: RAISE FND_API.G_EXC_ERROR;
2958: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2959: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2960: END IF;
2961:
2954: X_ACCOUNTING_EVENT_ID => l_ACCOUNTING_EVENT_ID);
2955:
2956: IF x_return_status = FND_API.g_ret_sts_error THEN
2957: RAISE FND_API.G_EXC_ERROR;
2958: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2959: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2960: END IF;
2961:
2962: IF l_acctng_entries = 'T' THEN
2955:
2956: IF x_return_status = FND_API.g_ret_sts_error THEN
2957: RAISE FND_API.G_EXC_ERROR;
2958: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2959: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2960: END IF;
2961:
2962: IF l_acctng_entries = 'T' THEN
2963:
2964: -- Create account event header
2965: l_ae_header_rec.accounting_event_id := l_accounting_event_id;
2966: OZF_ae_header_PVT.Create_ae_header(
2967: P_Api_Version_Number => 1.0,
2968: P_Init_Msg_List => FND_API.G_FALSE,
2969: P_Commit => FND_API.G_FALSE,
2970: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2971: X_Return_Status => x_return_status,
2972: X_Msg_Count => x_msg_count,
2965: l_ae_header_rec.accounting_event_id := l_accounting_event_id;
2966: OZF_ae_header_PVT.Create_ae_header(
2967: P_Api_Version_Number => 1.0,
2968: P_Init_Msg_List => FND_API.G_FALSE,
2969: P_Commit => FND_API.G_FALSE,
2970: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2971: X_Return_Status => x_return_status,
2972: X_Msg_Count => x_msg_count,
2973: X_Msg_Data => x_msg_data,
2966: OZF_ae_header_PVT.Create_ae_header(
2967: P_Api_Version_Number => 1.0,
2968: P_Init_Msg_List => FND_API.G_FALSE,
2969: P_Commit => FND_API.G_FALSE,
2970: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2971: X_Return_Status => x_return_status,
2972: X_Msg_Count => x_msg_count,
2973: X_Msg_Data => x_msg_data,
2974: P_AE_HEADER_Rec => l_AE_HEADER_Rec,
2973: X_Msg_Data => x_msg_data,
2974: P_AE_HEADER_Rec => l_AE_HEADER_Rec,
2975: X_AE_HEADER_ID => l_AE_HEADER_ID);
2976:
2977: IF x_return_status = FND_API.g_ret_sts_error THEN
2978: RAISE FND_API.G_EXC_ERROR;
2979: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2980: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2981: END IF;
2974: P_AE_HEADER_Rec => l_AE_HEADER_Rec,
2975: X_AE_HEADER_ID => l_AE_HEADER_ID);
2976:
2977: IF x_return_status = FND_API.g_ret_sts_error THEN
2978: RAISE FND_API.G_EXC_ERROR;
2979: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2980: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2981: END IF;
2982:
2975: X_AE_HEADER_ID => l_AE_HEADER_ID);
2976:
2977: IF x_return_status = FND_API.g_ret_sts_error THEN
2978: RAISE FND_API.G_EXC_ERROR;
2979: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2980: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2981: END IF;
2982:
2983: -- Create account event lines
2976:
2977: IF x_return_status = FND_API.g_ret_sts_error THEN
2978: RAISE FND_API.G_EXC_ERROR;
2979: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2980: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2981: END IF;
2982:
2983: -- Create account event lines
2984: FOR i in 1..l_AE_LINE_Tbl.count LOOP
2990: END LOOP;
2991:
2992: OZF_ae_line_PVT.Create_ae_line(
2993: P_Api_Version_Number => 1.0,
2994: P_Init_Msg_List => FND_API.G_FALSE,
2995: P_Commit => FND_API.G_FALSE,
2996: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2997: X_Return_Status => x_return_status,
2998: X_Msg_Count => x_msg_count,
2991:
2992: OZF_ae_line_PVT.Create_ae_line(
2993: P_Api_Version_Number => 1.0,
2994: P_Init_Msg_List => FND_API.G_FALSE,
2995: P_Commit => FND_API.G_FALSE,
2996: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2997: X_Return_Status => x_return_status,
2998: X_Msg_Count => x_msg_count,
2999: X_Msg_Data => x_msg_data,
2992: OZF_ae_line_PVT.Create_ae_line(
2993: P_Api_Version_Number => 1.0,
2994: P_Init_Msg_List => FND_API.G_FALSE,
2995: P_Commit => FND_API.G_FALSE,
2996: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2997: X_Return_Status => x_return_status,
2998: X_Msg_Count => x_msg_count,
2999: X_Msg_Data => x_msg_data,
3000: P_AE_LINE_Tbl => l_AE_LINE_Tbl,
2999: X_Msg_Data => x_msg_data,
3000: P_AE_LINE_Tbl => l_AE_LINE_Tbl,
3001: X_AE_LINE_ID => l_AE_LINE_ID_Tbl);
3002:
3003: IF x_return_status = FND_API.g_ret_sts_error THEN
3004: RAISE FND_API.G_EXC_ERROR;
3005: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3007: END IF;
3000: P_AE_LINE_Tbl => l_AE_LINE_Tbl,
3001: X_AE_LINE_ID => l_AE_LINE_ID_Tbl);
3002:
3003: IF x_return_status = FND_API.g_ret_sts_error THEN
3004: RAISE FND_API.G_EXC_ERROR;
3005: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3007: END IF;
3008:
3001: X_AE_LINE_ID => l_AE_LINE_ID_Tbl);
3002:
3003: IF x_return_status = FND_API.g_ret_sts_error THEN
3004: RAISE FND_API.G_EXC_ERROR;
3005: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3007: END IF;
3008:
3009: END IF; -- if l_acctng_entries = 'T'
3002:
3003: IF x_return_status = FND_API.g_ret_sts_error THEN
3004: RAISE FND_API.G_EXC_ERROR;
3005: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3007: END IF;
3008:
3009: END IF; -- if l_acctng_entries = 'T'
3010:
3017: -- pass accounting event id
3018: --//ER#9382547 ChRM-SLA Uptake
3019:
3020: --Standard check of commit
3021: IF FND_API.To_Boolean ( p_commit ) THEN
3022: COMMIT WORK;
3023: END IF;
3024: -- Debug Message
3025: IF OZF_DEBUG_LOW_ON THEN
3028: FND_MSG_PUB.Add;
3029: END IF;
3030: --Standard call to get message count and if count=1, get the message
3031: FND_MSG_PUB.Count_And_Get (
3032: p_encoded => FND_API.G_FALSE,
3033: p_count => x_msg_count,
3034: p_data => x_msg_data
3035: );
3036: EXCEPTION
3033: p_count => x_msg_count,
3034: p_data => x_msg_data
3035: );
3036: EXCEPTION
3037: WHEN FND_API.G_EXC_ERROR THEN
3038: ROLLBACK TO Create_Gl_Entry_PVT;
3039: x_return_status := FND_API.G_RET_STS_ERROR;
3040: -- Standard call to get message count and if count=1, get the message
3041: FND_MSG_PUB.Count_And_Get (
3035: );
3036: EXCEPTION
3037: WHEN FND_API.G_EXC_ERROR THEN
3038: ROLLBACK TO Create_Gl_Entry_PVT;
3039: x_return_status := FND_API.G_RET_STS_ERROR;
3040: -- Standard call to get message count and if count=1, get the message
3041: FND_MSG_PUB.Count_And_Get (
3042: p_encoded => FND_API.G_FALSE,
3043: p_count => x_msg_count,
3038: ROLLBACK TO Create_Gl_Entry_PVT;
3039: x_return_status := FND_API.G_RET_STS_ERROR;
3040: -- Standard call to get message count and if count=1, get the message
3041: FND_MSG_PUB.Count_And_Get (
3042: p_encoded => FND_API.G_FALSE,
3043: p_count => x_msg_count,
3044: p_data => x_msg_data
3045: );
3046: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3042: p_encoded => FND_API.G_FALSE,
3043: p_count => x_msg_count,
3044: p_data => x_msg_data
3045: );
3046: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3047: ROLLBACK TO Create_Gl_Entry_PVT;
3048: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3049: -- Standard call to get message count and if count=1, get the message
3050: FND_MSG_PUB.Count_And_Get (
3044: p_data => x_msg_data
3045: );
3046: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3047: ROLLBACK TO Create_Gl_Entry_PVT;
3048: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3049: -- Standard call to get message count and if count=1, get the message
3050: FND_MSG_PUB.Count_And_Get (
3051: p_encoded => FND_API.G_FALSE,
3052: p_count => x_msg_count,
3047: ROLLBACK TO Create_Gl_Entry_PVT;
3048: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3049: -- Standard call to get message count and if count=1, get the message
3050: FND_MSG_PUB.Count_And_Get (
3051: p_encoded => FND_API.G_FALSE,
3052: p_count => x_msg_count,
3053: p_data => x_msg_data
3054: );
3055: WHEN OTHERS THEN
3053: p_data => x_msg_data
3054: );
3055: WHEN OTHERS THEN
3056: ROLLBACK TO Create_Gl_Entry_PVT;
3057: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3058: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3059: THEN
3060: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3061: END IF;
3060: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3061: END IF;
3062: -- Standard call to get message count and if count=1, get the message
3063: FND_MSG_PUB.Count_And_Get (
3064: p_encoded => FND_API.G_FALSE,
3065: p_count => x_msg_count,
3066: p_data => x_msg_data
3067: );
3068: --
3082: -- 1. object_version_number will be set to 1.
3083: ---------------------------------------------------------------------
3084: /*PROCEDURE Create_Acctng_Entries (
3085: p_api_version IN NUMBER
3086: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3087: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3088: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3089:
3090: ,x_return_status OUT NOCOPY VARCHAR2
3083: ---------------------------------------------------------------------
3084: /*PROCEDURE Create_Acctng_Entries (
3085: p_api_version IN NUMBER
3086: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3087: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3088: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3089:
3090: ,x_return_status OUT NOCOPY VARCHAR2
3091: ,x_msg_data OUT NOCOPY VARCHAR2
3084: /*PROCEDURE Create_Acctng_Entries (
3085: p_api_version IN NUMBER
3086: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3087: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3088: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3089:
3090: ,x_return_status OUT NOCOPY VARCHAR2
3091: ,x_msg_data OUT NOCOPY VARCHAR2
3092: ,x_msg_count OUT NOCOPY NUMBER
3118: BEGIN
3119: -- Standard begin of API savepoint
3120: SAVEPOINT Create_Acctng_Entries;
3121: -- Standard call to check for call compatibility.
3122: IF NOT FND_API.Compatible_API_Call (
3123: l_api_version,
3124: p_api_version,
3125: l_api_name,
3126: G_PKG_NAME)
3124: p_api_version,
3125: l_api_name,
3126: G_PKG_NAME)
3127: THEN
3128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3129: END IF;
3130: -- Debug Message
3131: IF OZF_DEBUG_LOW_ON THEN
3132: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3133: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
3134: FND_MSG_PUB.Add;
3135: END IF;
3136: --Initialize message list if p_init_msg_list is TRUE.
3137: IF FND_API.To_Boolean (p_init_msg_list) THEN
3138: FND_MSG_PUB.initialize;
3139: END IF;
3140: -- Initialize API return status to sucess
3141: x_return_status := FND_API.G_RET_STS_SUCCESS;
3137: IF FND_API.To_Boolean (p_init_msg_list) THEN
3138: FND_MSG_PUB.initialize;
3139: END IF;
3140: -- Initialize API return status to sucess
3141: x_return_status := FND_API.G_RET_STS_SUCCESS;
3142:
3143: OPEN check_acct_status_csr(l_accounting_event_id);
3144: FETCH check_acct_status_csr INTO l_event_status_code;
3145: CLOSE check_acct_status_csr;
3149: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3150: FND_MESSAGE.set_name('OZF', 'OZF_GL_INCORR_EVENT_STATUS');
3151: FND_MSG_PUB.add;
3152: END IF;
3153: RAISE FND_API.G_EXC_ERROR;
3154: END IF;
3155:
3156: -- Construct Header Rec
3157: -- ae header rec
3159: p_gl_rec => p_gl_rec
3160: ,x_return_status => x_return_status
3161: ,x_ae_header_rec => l_ae_header_rec);
3162:
3163: IF x_return_status = FND_API.g_ret_sts_error THEN
3164: RAISE FND_API.G_EXC_ERROR;
3165: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3166: RAISE FND_API.g_exc_unexpected_error;
3167: END IF;
3160: ,x_return_status => x_return_status
3161: ,x_ae_header_rec => l_ae_header_rec);
3162:
3163: IF x_return_status = FND_API.g_ret_sts_error THEN
3164: RAISE FND_API.G_EXC_ERROR;
3165: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3166: RAISE FND_API.g_exc_unexpected_error;
3167: END IF;
3168:
3161: ,x_ae_header_rec => l_ae_header_rec);
3162:
3163: IF x_return_status = FND_API.g_ret_sts_error THEN
3164: RAISE FND_API.G_EXC_ERROR;
3165: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3166: RAISE FND_API.g_exc_unexpected_error;
3167: END IF;
3168:
3169: -- ae lines
3162:
3163: IF x_return_status = FND_API.g_ret_sts_error THEN
3164: RAISE FND_API.G_EXC_ERROR;
3165: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3166: RAISE FND_API.g_exc_unexpected_error;
3167: END IF;
3168:
3169: -- ae lines
3170: Construct_Line_Rec(
3171: p_gl_rec => p_gl_rec
3172: ,x_return_status => x_return_status
3173: ,x_ae_line_tbl => l_ae_line_tbl);
3174:
3175: IF x_return_status = FND_API.g_ret_sts_error THEN
3176: RAISE FND_API.G_EXC_ERROR;
3177: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3178: RAISE FND_API.g_exc_unexpected_error;
3179: END IF;
3172: ,x_return_status => x_return_status
3173: ,x_ae_line_tbl => l_ae_line_tbl);
3174:
3175: IF x_return_status = FND_API.g_ret_sts_error THEN
3176: RAISE FND_API.G_EXC_ERROR;
3177: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3178: RAISE FND_API.g_exc_unexpected_error;
3179: END IF;
3180:
3173: ,x_ae_line_tbl => l_ae_line_tbl);
3174:
3175: IF x_return_status = FND_API.g_ret_sts_error THEN
3176: RAISE FND_API.G_EXC_ERROR;
3177: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3178: RAISE FND_API.g_exc_unexpected_error;
3179: END IF;
3180:
3181: -- Create account event header
3174:
3175: IF x_return_status = FND_API.g_ret_sts_error THEN
3176: RAISE FND_API.G_EXC_ERROR;
3177: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3178: RAISE FND_API.g_exc_unexpected_error;
3179: END IF;
3180:
3181: -- Create account event header
3182: l_ae_header_rec.accounting_event_id := l_accounting_event_id;
3181: -- Create account event header
3182: l_ae_header_rec.accounting_event_id := l_accounting_event_id;
3183: OZF_ae_header_PVT.Create_ae_header(
3184: P_Api_Version_Number => 1.0,
3185: P_Init_Msg_List => FND_API.G_FALSE,
3186: P_Commit => FND_API.G_FALSE,
3187: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
3188: X_Return_Status => x_return_status,
3189: X_Msg_Count => x_msg_count,
3182: l_ae_header_rec.accounting_event_id := l_accounting_event_id;
3183: OZF_ae_header_PVT.Create_ae_header(
3184: P_Api_Version_Number => 1.0,
3185: P_Init_Msg_List => FND_API.G_FALSE,
3186: P_Commit => FND_API.G_FALSE,
3187: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
3188: X_Return_Status => x_return_status,
3189: X_Msg_Count => x_msg_count,
3190: X_Msg_Data => x_msg_data,
3183: OZF_ae_header_PVT.Create_ae_header(
3184: P_Api_Version_Number => 1.0,
3185: P_Init_Msg_List => FND_API.G_FALSE,
3186: P_Commit => FND_API.G_FALSE,
3187: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
3188: X_Return_Status => x_return_status,
3189: X_Msg_Count => x_msg_count,
3190: X_Msg_Data => x_msg_data,
3191: P_AE_HEADER_Rec => l_AE_HEADER_Rec,
3190: X_Msg_Data => x_msg_data,
3191: P_AE_HEADER_Rec => l_AE_HEADER_Rec,
3192: X_AE_HEADER_ID => l_AE_HEADER_ID);
3193:
3194: IF x_return_status = FND_API.g_ret_sts_error THEN
3195: RAISE FND_API.G_EXC_ERROR;
3196: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3197: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3198: END IF;
3191: P_AE_HEADER_Rec => l_AE_HEADER_Rec,
3192: X_AE_HEADER_ID => l_AE_HEADER_ID);
3193:
3194: IF x_return_status = FND_API.g_ret_sts_error THEN
3195: RAISE FND_API.G_EXC_ERROR;
3196: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3197: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3198: END IF;
3199:
3192: X_AE_HEADER_ID => l_AE_HEADER_ID);
3193:
3194: IF x_return_status = FND_API.g_ret_sts_error THEN
3195: RAISE FND_API.G_EXC_ERROR;
3196: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3197: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3198: END IF;
3199:
3200: -- Create account event lines
3193:
3194: IF x_return_status = FND_API.g_ret_sts_error THEN
3195: RAISE FND_API.G_EXC_ERROR;
3196: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3197: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3198: END IF;
3199:
3200: -- Create account event lines
3201: FOR i in 1..l_AE_LINE_Tbl.count LOOP
3207: END LOOP;
3208:
3209: OZF_ae_line_PVT.Create_ae_line(
3210: P_Api_Version_Number => 1.0,
3211: P_Init_Msg_List => FND_API.G_FALSE,
3212: P_Commit => FND_API.G_FALSE,
3213: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
3214: X_Return_Status => x_return_status,
3215: X_Msg_Count => x_msg_count,
3208:
3209: OZF_ae_line_PVT.Create_ae_line(
3210: P_Api_Version_Number => 1.0,
3211: P_Init_Msg_List => FND_API.G_FALSE,
3212: P_Commit => FND_API.G_FALSE,
3213: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
3214: X_Return_Status => x_return_status,
3215: X_Msg_Count => x_msg_count,
3216: X_Msg_Data => x_msg_data,
3209: OZF_ae_line_PVT.Create_ae_line(
3210: P_Api_Version_Number => 1.0,
3211: P_Init_Msg_List => FND_API.G_FALSE,
3212: P_Commit => FND_API.G_FALSE,
3213: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
3214: X_Return_Status => x_return_status,
3215: X_Msg_Count => x_msg_count,
3216: X_Msg_Data => x_msg_data,
3217: P_AE_LINE_Tbl => l_AE_LINE_Tbl,
3216: X_Msg_Data => x_msg_data,
3217: P_AE_LINE_Tbl => l_AE_LINE_Tbl,
3218: X_AE_LINE_ID => l_AE_LINE_ID_Tbl);
3219:
3220: IF x_return_status = FND_API.g_ret_sts_error THEN
3221: RAISE FND_API.G_EXC_ERROR;
3222: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3223: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3224: END IF;
3217: P_AE_LINE_Tbl => l_AE_LINE_Tbl,
3218: X_AE_LINE_ID => l_AE_LINE_ID_Tbl);
3219:
3220: IF x_return_status = FND_API.g_ret_sts_error THEN
3221: RAISE FND_API.G_EXC_ERROR;
3222: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3223: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3224: END IF;
3225:
3218: X_AE_LINE_ID => l_AE_LINE_ID_Tbl);
3219:
3220: IF x_return_status = FND_API.g_ret_sts_error THEN
3221: RAISE FND_API.G_EXC_ERROR;
3222: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3223: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3224: END IF;
3225:
3226: -- Update accounting events table
3219:
3220: IF x_return_status = FND_API.g_ret_sts_error THEN
3221: RAISE FND_API.G_EXC_ERROR;
3222: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3223: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3224: END IF;
3225:
3226: -- Update accounting events table
3227: UPDATE ozf_acctng_events_all
3228: SET event_status_code = 'ACCOUNTED'
3229: where accounting_event_id = l_accounting_event_id;
3230:
3231: --Standard check of commit
3232: IF FND_API.To_Boolean ( p_commit ) THEN
3233: COMMIT WORK;
3234: END IF;
3235: -- Debug Message
3236: IF OZF_DEBUG_LOW_ON THEN
3239: FND_MSG_PUB.Add;
3240: END IF;
3241: --Standard call to get message count and if count=1, get the message
3242: FND_MSG_PUB.Count_And_Get (
3243: p_encoded => FND_API.G_FALSE,
3244: p_count => x_msg_count,
3245: p_data => x_msg_data
3246: );
3247: EXCEPTION
3244: p_count => x_msg_count,
3245: p_data => x_msg_data
3246: );
3247: EXCEPTION
3248: WHEN FND_API.G_EXC_ERROR THEN
3249: ROLLBACK TO Create_Acctng_Entries;
3250: x_return_status := FND_API.G_RET_STS_ERROR;
3251: -- Standard call to get message count and if count=1, get the message
3252: FND_MSG_PUB.Count_And_Get (
3246: );
3247: EXCEPTION
3248: WHEN FND_API.G_EXC_ERROR THEN
3249: ROLLBACK TO Create_Acctng_Entries;
3250: x_return_status := FND_API.G_RET_STS_ERROR;
3251: -- Standard call to get message count and if count=1, get the message
3252: FND_MSG_PUB.Count_And_Get (
3253: p_encoded => FND_API.G_FALSE,
3254: p_count => x_msg_count,
3249: ROLLBACK TO Create_Acctng_Entries;
3250: x_return_status := FND_API.G_RET_STS_ERROR;
3251: -- Standard call to get message count and if count=1, get the message
3252: FND_MSG_PUB.Count_And_Get (
3253: p_encoded => FND_API.G_FALSE,
3254: p_count => x_msg_count,
3255: p_data => x_msg_data
3256: );
3257: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3253: p_encoded => FND_API.G_FALSE,
3254: p_count => x_msg_count,
3255: p_data => x_msg_data
3256: );
3257: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3258: ROLLBACK TO Create_Acctng_Entries;
3259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3260: -- Standard call to get message count and if count=1, get the message
3261: FND_MSG_PUB.Count_And_Get (
3255: p_data => x_msg_data
3256: );
3257: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3258: ROLLBACK TO Create_Acctng_Entries;
3259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3260: -- Standard call to get message count and if count=1, get the message
3261: FND_MSG_PUB.Count_And_Get (
3262: p_encoded => FND_API.G_FALSE,
3263: p_count => x_msg_count,
3258: ROLLBACK TO Create_Acctng_Entries;
3259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3260: -- Standard call to get message count and if count=1, get the message
3261: FND_MSG_PUB.Count_And_Get (
3262: p_encoded => FND_API.G_FALSE,
3263: p_count => x_msg_count,
3264: p_data => x_msg_data
3265: );
3266: WHEN OTHERS THEN
3264: p_data => x_msg_data
3265: );
3266: WHEN OTHERS THEN
3267: ROLLBACK TO Create_Acctng_Entries;
3268: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3269: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3270: THEN
3271: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3272: END IF;
3271: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3272: END IF;
3273: -- Standard call to get message count and if count=1, get the message
3274: FND_MSG_PUB.Count_And_Get (
3275: p_encoded => FND_API.G_FALSE,
3276: p_count => x_msg_count,
3277: p_data => x_msg_data
3278: );
3279: --
3299: -- NOTES
3300: ---------------------------------------------------------------------
3301: /*PROCEDURE Revert_GL_Entry (
3302: p_api_version IN NUMBER
3303: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3304: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3305: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3306:
3307: ,x_return_status OUT NOCOPY VARCHAR2
3300: ---------------------------------------------------------------------
3301: /*PROCEDURE Revert_GL_Entry (
3302: p_api_version IN NUMBER
3303: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3304: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3305: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3306:
3307: ,x_return_status OUT NOCOPY VARCHAR2
3308: ,x_msg_data OUT NOCOPY VARCHAR2
3301: /*PROCEDURE Revert_GL_Entry (
3302: p_api_version IN NUMBER
3303: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3304: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3305: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3306:
3307: ,x_return_status OUT NOCOPY VARCHAR2
3308: ,x_msg_data OUT NOCOPY VARCHAR2
3309: ,x_msg_count OUT NOCOPY NUMBER
3438: -- Standard begin of API savepoint
3439: SAVEPOINT Revert_GL_Entry;
3440:
3441: -- Standard call to check for call compatibility.
3442: IF NOT FND_API.Compatible_API_Call (
3443: l_api_version,
3444: p_api_version,
3445: l_api_name,
3446: G_PKG_NAME)
3444: p_api_version,
3445: l_api_name,
3446: G_PKG_NAME)
3447: THEN
3448: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3449: END IF;
3450:
3451: IF OZF_DEBUG_LOW_ON THEN
3452: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3454: FND_MSG_PUB.Add;
3455: END IF;
3456:
3457: --Initialize message list if p_init_msg_list is TRUE.
3458: IF FND_API.To_Boolean (p_init_msg_list) THEN
3459: FND_MSG_PUB.initialize;
3460: END IF;
3461:
3462: -- Initialize API return status to sucess
3459: FND_MSG_PUB.initialize;
3460: END IF;
3461:
3462: -- Initialize API return status to sucess
3463: x_return_status := FND_API.G_RET_STS_SUCCESS;
3464:
3465: IF OZF_DEBUG_LOW_ON THEN
3466: OZF_Utility_PVT.debug_message('--------- Revert_GL_Entry ----------');
3467: OZF_Utility_PVT.debug_message('claim_id : '||p_claim_id);
3478: , l_acctng_event_rec.accounting_date
3479: , l_ae_object_version_num;
3480: CLOSE get_accounting_event_csr;
3481:
3482: IF l_accounting_event_id IS NULL OR l_accounting_event_id = FND_API.G_MISS_NUM THEN
3483: IF OZF_DEBUG_LOW_ON THEN
3484: OZF_Utility_PVT.debug_message('There is no accounting event for the source. Return to the caller.');
3485: END IF;
3486:
3516:
3517: -- First create accounting event for the reversal event
3518: /*OZF_ACCTNG_EVENTS_PVT.Create_Acctng_Events(
3519: P_Api_Version_Number => 1.0,
3520: P_Init_Msg_List => FND_API.G_FALSE,
3521: P_Commit => FND_API.G_FALSE,
3522: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
3523: x_return_status => x_return_status,
3524: x_msg_count => x_msg_count,
3517: -- First create accounting event for the reversal event
3518: /*OZF_ACCTNG_EVENTS_PVT.Create_Acctng_Events(
3519: P_Api_Version_Number => 1.0,
3520: P_Init_Msg_List => FND_API.G_FALSE,
3521: P_Commit => FND_API.G_FALSE,
3522: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
3523: x_return_status => x_return_status,
3524: x_msg_count => x_msg_count,
3525: x_msg_data => x_msg_data,
3518: /*OZF_ACCTNG_EVENTS_PVT.Create_Acctng_Events(
3519: P_Api_Version_Number => 1.0,
3520: P_Init_Msg_List => FND_API.G_FALSE,
3521: P_Commit => FND_API.G_FALSE,
3522: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
3523: x_return_status => x_return_status,
3524: x_msg_count => x_msg_count,
3525: x_msg_data => x_msg_data,
3526: P_Acctng_Event_Rec => l_acctng_event_rec,
3525: x_msg_data => x_msg_data,
3526: P_Acctng_Event_Rec => l_acctng_event_rec,
3527: X_Accounting_Event_Id => l_new_event_id);
3528:
3529: IF x_return_status = FND_API.g_ret_sts_error THEN
3530: RAISE FND_API.G_EXC_ERROR;
3531: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3533: END IF;
3526: P_Acctng_Event_Rec => l_acctng_event_rec,
3527: X_Accounting_Event_Id => l_new_event_id);
3528:
3529: IF x_return_status = FND_API.g_ret_sts_error THEN
3530: RAISE FND_API.G_EXC_ERROR;
3531: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3533: END IF;
3534:
3527: X_Accounting_Event_Id => l_new_event_id);
3528:
3529: IF x_return_status = FND_API.g_ret_sts_error THEN
3530: RAISE FND_API.G_EXC_ERROR;
3531: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3533: END IF;
3534:
3535:
3528:
3529: IF x_return_status = FND_API.g_ret_sts_error THEN
3530: RAISE FND_API.G_EXC_ERROR;
3531: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3533: END IF;
3534:
3535:
3536: IF OZF_DEBUG_LOW_ON THEN
3556: END IF;
3557:
3558: /*OZF_ae_header_PVT.Create_ae_header(
3559: P_Api_Version_Number => 1.0,
3560: P_Init_Msg_List => FND_API.G_FALSE,
3561: P_Commit => FND_API.G_FALSE,
3562: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
3563: x_return_status => x_return_status,
3564: x_msg_count => x_msg_count,
3557:
3558: /*OZF_ae_header_PVT.Create_ae_header(
3559: P_Api_Version_Number => 1.0,
3560: P_Init_Msg_List => FND_API.G_FALSE,
3561: P_Commit => FND_API.G_FALSE,
3562: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
3563: x_return_status => x_return_status,
3564: x_msg_count => x_msg_count,
3565: x_msg_data => x_msg_data,
3558: /*OZF_ae_header_PVT.Create_ae_header(
3559: P_Api_Version_Number => 1.0,
3560: P_Init_Msg_List => FND_API.G_FALSE,
3561: P_Commit => FND_API.G_FALSE,
3562: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
3563: x_return_status => x_return_status,
3564: x_msg_count => x_msg_count,
3565: x_msg_data => x_msg_data,
3566: P_AE_HEADER_Rec => l_ae_header_rec,
3565: x_msg_data => x_msg_data,
3566: P_AE_HEADER_Rec => l_ae_header_rec,
3567: X_AE_HEADER_ID => l_new_header_id);
3568:
3569: IF x_return_status = FND_API.g_ret_sts_error THEN
3570: RAISE FND_API.G_EXC_ERROR;
3571: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3573: END IF;
3566: P_AE_HEADER_Rec => l_ae_header_rec,
3567: X_AE_HEADER_ID => l_new_header_id);
3568:
3569: IF x_return_status = FND_API.g_ret_sts_error THEN
3570: RAISE FND_API.G_EXC_ERROR;
3571: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3573: END IF;
3574:
3567: X_AE_HEADER_ID => l_new_header_id);
3568:
3569: IF x_return_status = FND_API.g_ret_sts_error THEN
3570: RAISE FND_API.G_EXC_ERROR;
3571: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3573: END IF;
3574:
3575:
3568:
3569: IF x_return_status = FND_API.g_ret_sts_error THEN
3570: RAISE FND_API.G_EXC_ERROR;
3571: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3573: END IF;
3574:
3575:
3576: IF OZF_DEBUG_LOW_ON THEN
3633: CLOSE get_ae_lines_dtl_csr;
3634:
3635: /* OZF_ae_line_PVT.Create_ae_line(
3636: P_Api_Version_Number => 1.0,
3637: P_Init_Msg_List => FND_API.G_FALSE,
3638: P_Commit => FND_API.G_FALSE,
3639: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
3640: x_return_status => x_return_status,
3641: x_msg_count => x_msg_count,
3634:
3635: /* OZF_ae_line_PVT.Create_ae_line(
3636: P_Api_Version_Number => 1.0,
3637: P_Init_Msg_List => FND_API.G_FALSE,
3638: P_Commit => FND_API.G_FALSE,
3639: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
3640: x_return_status => x_return_status,
3641: x_msg_count => x_msg_count,
3642: x_msg_data => x_msg_data,
3635: /* OZF_ae_line_PVT.Create_ae_line(
3636: P_Api_Version_Number => 1.0,
3637: P_Init_Msg_List => FND_API.G_FALSE,
3638: P_Commit => FND_API.G_FALSE,
3639: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
3640: x_return_status => x_return_status,
3641: x_msg_count => x_msg_count,
3642: x_msg_data => x_msg_data,
3643: P_AE_LINE_Tbl => l_ae_line_tbl,
3642: x_msg_data => x_msg_data,
3643: P_AE_LINE_Tbl => l_ae_line_tbl,
3644: X_AE_LINE_ID => l_new_line_id_tbl);
3645:
3646: IF x_return_status = FND_API.g_ret_sts_error THEN
3647: RAISE FND_API.G_EXC_ERROR;
3648: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3650: END IF;
3643: P_AE_LINE_Tbl => l_ae_line_tbl,
3644: X_AE_LINE_ID => l_new_line_id_tbl);
3645:
3646: IF x_return_status = FND_API.g_ret_sts_error THEN
3647: RAISE FND_API.G_EXC_ERROR;
3648: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3650: END IF;
3651:
3644: X_AE_LINE_ID => l_new_line_id_tbl);
3645:
3646: IF x_return_status = FND_API.g_ret_sts_error THEN
3647: RAISE FND_API.G_EXC_ERROR;
3648: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3650: END IF;
3651:
3652:
3645:
3646: IF x_return_status = FND_API.g_ret_sts_error THEN
3647: RAISE FND_API.G_EXC_ERROR;
3648: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3650: END IF;
3651:
3652:
3653: IF OZF_DEBUG_LOW_ON THEN
3675:
3676: -- Delete SLA lines not transferred
3677: /*OZF_AE_LINE_PVT.Delete_Ae_Line(
3678: p_api_version_number => 1.0,
3679: p_init_msg_list => FND_API.G_FALSE,
3680: p_commit => FND_API.G_FALSE,
3681: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3682: x_return_status => x_return_status,
3683: x_msg_count => x_msg_count,
3676: -- Delete SLA lines not transferred
3677: /*OZF_AE_LINE_PVT.Delete_Ae_Line(
3678: p_api_version_number => 1.0,
3679: p_init_msg_list => FND_API.G_FALSE,
3680: p_commit => FND_API.G_FALSE,
3681: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3682: x_return_status => x_return_status,
3683: x_msg_count => x_msg_count,
3684: x_msg_data => x_msg_data,
3677: /*OZF_AE_LINE_PVT.Delete_Ae_Line(
3678: p_api_version_number => 1.0,
3679: p_init_msg_list => FND_API.G_FALSE,
3680: p_commit => FND_API.G_FALSE,
3681: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3682: x_return_status => x_return_status,
3683: x_msg_count => x_msg_count,
3684: x_msg_data => x_msg_data,
3685: p_ae_line_id => l_ae_line_id,
3684: x_msg_data => x_msg_data,
3685: p_ae_line_id => l_ae_line_id,
3686: p_object_version_number => l_ael_object_version_num);
3687:
3688: IF x_return_status = FND_API.g_ret_sts_error THEN
3689: RAISE FND_API.G_EXC_ERROR;
3690: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3692: END IF;
3685: p_ae_line_id => l_ae_line_id,
3686: p_object_version_number => l_ael_object_version_num);
3687:
3688: IF x_return_status = FND_API.g_ret_sts_error THEN
3689: RAISE FND_API.G_EXC_ERROR;
3690: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3692: END IF;
3693:
3686: p_object_version_number => l_ael_object_version_num);
3687:
3688: IF x_return_status = FND_API.g_ret_sts_error THEN
3689: RAISE FND_API.G_EXC_ERROR;
3690: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3692: END IF;
3693:
3694: END LOOP;
3687:
3688: IF x_return_status = FND_API.g_ret_sts_error THEN
3689: RAISE FND_API.G_EXC_ERROR;
3690: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3692: END IF;
3693:
3694: END LOOP;
3695: CLOSE get_ae_lines_csr;
3700:
3701: -- Delete SLA header not transferred
3702: /*OZF_AE_HEADER_PVT.Delete_Ae_Header(
3703: p_api_version_number => 1.0,
3704: p_init_msg_list => FND_API.G_FALSE,
3705: p_commit => FND_API.G_FALSE,
3706: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3707: x_return_status => x_return_status,
3708: x_msg_count => x_msg_count,
3701: -- Delete SLA header not transferred
3702: /*OZF_AE_HEADER_PVT.Delete_Ae_Header(
3703: p_api_version_number => 1.0,
3704: p_init_msg_list => FND_API.G_FALSE,
3705: p_commit => FND_API.G_FALSE,
3706: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3707: x_return_status => x_return_status,
3708: x_msg_count => x_msg_count,
3709: x_msg_data => x_msg_data,
3702: /*OZF_AE_HEADER_PVT.Delete_Ae_Header(
3703: p_api_version_number => 1.0,
3704: p_init_msg_list => FND_API.G_FALSE,
3705: p_commit => FND_API.G_FALSE,
3706: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3707: x_return_status => x_return_status,
3708: x_msg_count => x_msg_count,
3709: x_msg_data => x_msg_data,
3710: p_ae_header_id => l_ae_header_id,
3709: x_msg_data => x_msg_data,
3710: p_ae_header_id => l_ae_header_id,
3711: p_object_version_number => l_aeh_object_version_num);
3712:
3713: IF x_return_status = FND_API.g_ret_sts_error THEN
3714: RAISE FND_API.G_EXC_ERROR;
3715: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3716: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3717: END IF;
3710: p_ae_header_id => l_ae_header_id,
3711: p_object_version_number => l_aeh_object_version_num);
3712:
3713: IF x_return_status = FND_API.g_ret_sts_error THEN
3714: RAISE FND_API.G_EXC_ERROR;
3715: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3716: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3717: END IF;
3718:
3711: p_object_version_number => l_aeh_object_version_num);
3712:
3713: IF x_return_status = FND_API.g_ret_sts_error THEN
3714: RAISE FND_API.G_EXC_ERROR;
3715: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3716: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3717: END IF;
3718:
3719:
3712:
3713: IF x_return_status = FND_API.g_ret_sts_error THEN
3714: RAISE FND_API.G_EXC_ERROR;
3715: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3716: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3717: END IF;
3718:
3719:
3720: IF OZF_DEBUG_LOW_ON THEN
3723:
3724: -- Delete SLA accounting event not transferred
3725: /*OZF_ACCTNG_EVENTS_PVT.Delete_Acctng_Events(
3726: p_api_version_number => 1.0,
3727: p_init_msg_list => FND_API.G_FALSE,
3728: p_commit => FND_API.G_FALSE,
3729: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3730: x_return_status => x_return_status,
3731: x_msg_count => x_msg_count,
3724: -- Delete SLA accounting event not transferred
3725: /*OZF_ACCTNG_EVENTS_PVT.Delete_Acctng_Events(
3726: p_api_version_number => 1.0,
3727: p_init_msg_list => FND_API.G_FALSE,
3728: p_commit => FND_API.G_FALSE,
3729: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3730: x_return_status => x_return_status,
3731: x_msg_count => x_msg_count,
3732: x_msg_data => x_msg_data,
3725: /*OZF_ACCTNG_EVENTS_PVT.Delete_Acctng_Events(
3726: p_api_version_number => 1.0,
3727: p_init_msg_list => FND_API.G_FALSE,
3728: p_commit => FND_API.G_FALSE,
3729: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3730: x_return_status => x_return_status,
3731: x_msg_count => x_msg_count,
3732: x_msg_data => x_msg_data,
3733: p_accounting_event_id => l_accounting_event_id,
3732: x_msg_data => x_msg_data,
3733: p_accounting_event_id => l_accounting_event_id,
3734: p_object_version_number => l_ae_object_version_num);
3735:
3736: IF x_return_status = FND_API.g_ret_sts_error THEN
3737: RAISE FND_API.G_EXC_ERROR;
3738: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3740: END IF;
3733: p_accounting_event_id => l_accounting_event_id,
3734: p_object_version_number => l_ae_object_version_num);
3735:
3736: IF x_return_status = FND_API.g_ret_sts_error THEN
3737: RAISE FND_API.G_EXC_ERROR;
3738: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3740: END IF;
3741:
3734: p_object_version_number => l_ae_object_version_num);
3735:
3736: IF x_return_status = FND_API.g_ret_sts_error THEN
3737: RAISE FND_API.G_EXC_ERROR;
3738: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3740: END IF;
3741:
3742:
3735:
3736: IF x_return_status = FND_API.g_ret_sts_error THEN
3737: RAISE FND_API.G_EXC_ERROR;
3738: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3740: END IF;
3741:
3742:
3743: IF OZF_DEBUG_LOW_ON THEN
3747:
3748: END IF;
3749:
3750: --Standard check of commit
3751: IF FND_API.To_Boolean ( p_commit ) THEN
3752: COMMIT WORK;
3753: END IF;
3754: -- Debug Message
3755: IF OZF_DEBUG_LOW_ON THEN
3759: FND_MSG_PUB.Add;
3760: END IF;
3761: --Standard call to get message count and if count=1, get the message
3762: FND_MSG_PUB.Count_And_Get (
3763: p_encoded => FND_API.G_FALSE,
3764: p_count => x_msg_count,
3765: p_data => x_msg_data
3766: );
3767: EXCEPTION
3764: p_count => x_msg_count,
3765: p_data => x_msg_data
3766: );
3767: EXCEPTION
3768: WHEN FND_API.G_EXC_ERROR THEN
3769: ROLLBACK TO Revert_GL_Entry;
3770: x_return_status := FND_API.G_RET_STS_ERROR;
3771: -- Standard call to get message count and if count=1, get the message
3772: FND_MSG_PUB.Count_And_Get (
3766: );
3767: EXCEPTION
3768: WHEN FND_API.G_EXC_ERROR THEN
3769: ROLLBACK TO Revert_GL_Entry;
3770: x_return_status := FND_API.G_RET_STS_ERROR;
3771: -- Standard call to get message count and if count=1, get the message
3772: FND_MSG_PUB.Count_And_Get (
3773: p_encoded => FND_API.G_FALSE,
3774: p_count => x_msg_count,
3769: ROLLBACK TO Revert_GL_Entry;
3770: x_return_status := FND_API.G_RET_STS_ERROR;
3771: -- Standard call to get message count and if count=1, get the message
3772: FND_MSG_PUB.Count_And_Get (
3773: p_encoded => FND_API.G_FALSE,
3774: p_count => x_msg_count,
3775: p_data => x_msg_data
3776: );
3777: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3773: p_encoded => FND_API.G_FALSE,
3774: p_count => x_msg_count,
3775: p_data => x_msg_data
3776: );
3777: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3778: ROLLBACK TO Revert_GL_Entry;
3779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3780: -- Standard call to get message count and if count=1, get the message
3781: FND_MSG_PUB.Count_And_Get (
3775: p_data => x_msg_data
3776: );
3777: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3778: ROLLBACK TO Revert_GL_Entry;
3779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3780: -- Standard call to get message count and if count=1, get the message
3781: FND_MSG_PUB.Count_And_Get (
3782: p_encoded => FND_API.G_FALSE,
3783: p_count => x_msg_count,
3778: ROLLBACK TO Revert_GL_Entry;
3779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3780: -- Standard call to get message count and if count=1, get the message
3781: FND_MSG_PUB.Count_And_Get (
3782: p_encoded => FND_API.G_FALSE,
3783: p_count => x_msg_count,
3784: p_data => x_msg_data
3785: );
3786: WHEN OTHERS THEN
3784: p_data => x_msg_data
3785: );
3786: WHEN OTHERS THEN
3787: ROLLBACK TO Revert_GL_Entry;
3788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3789: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3790: THEN
3791: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3792: END IF;
3791: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3792: END IF;
3793: -- Standard call to get message count and if count=1, get the message
3794: FND_MSG_PUB.Count_And_Get (
3795: p_encoded => FND_API.G_FALSE,
3796: p_count => x_msg_count,
3797: p_data => x_msg_data
3798: );
3799:
3820: -- removed p_skip_acct_gen_flag.
3821: ---------------------------------------------------------------------
3822: PROCEDURE Post_Accrual_To_GL (
3823: p_api_version IN NUMBER
3824: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3825: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3826: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3827:
3828: ,x_return_status OUT NOCOPY VARCHAR2
3821: ---------------------------------------------------------------------
3822: PROCEDURE Post_Accrual_To_GL (
3823: p_api_version IN NUMBER
3824: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3825: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3826: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3827:
3828: ,x_return_status OUT NOCOPY VARCHAR2
3829: ,x_msg_data OUT NOCOPY VARCHAR2
3822: PROCEDURE Post_Accrual_To_GL (
3823: p_api_version IN NUMBER
3824: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3825: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3826: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3827:
3828: ,x_return_status OUT NOCOPY VARCHAR2
3829: ,x_msg_data OUT NOCOPY VARCHAR2
3830: ,x_msg_count OUT NOCOPY NUMBER
3845: BEGIN
3846: -- Standard begin of API savepoint
3847: SAVEPOINT Post_Accrual_To_GL;
3848: -- Standard call to check for call compatibility.
3849: IF NOT FND_API.Compatible_API_Call (
3850: l_api_version,
3851: p_api_version,
3852: l_api_name,
3853: G_PKG_NAME)
3851: p_api_version,
3852: l_api_name,
3853: G_PKG_NAME)
3854: THEN
3855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3856: END IF;
3857: -- Debug Message
3858: IF OZF_DEBUG_LOW_ON THEN
3859: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3860: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
3861: FND_MSG_PUB.Add;
3862: END IF;
3863: --Initialize message list if p_init_msg_list is TRUE.
3864: IF FND_API.To_Boolean (p_init_msg_list) THEN
3865: FND_MSG_PUB.initialize;
3866: END IF;
3867: -- Initialize API return status to sucess
3868: x_return_status := FND_API.G_RET_STS_SUCCESS;
3864: IF FND_API.To_Boolean (p_init_msg_list) THEN
3865: FND_MSG_PUB.initialize;
3866: END IF;
3867: -- Initialize API return status to sucess
3868: x_return_status := FND_API.G_RET_STS_SUCCESS;
3869:
3870: IF OZF_DEBUG_LOW_ON THEN
3871: OZF_Utility_PVT.debug_message('--------- Post_Accrual_To_GL ----------');
3872: OZF_Utility_PVT.debug_message('utilization_id : '||p_utilization_id);
3891:
3892:
3893: OZF_GL_INTERFACE_PVT.Create_Gl_Entry (
3894: p_api_version => l_api_version
3895: ,p_init_msg_list => FND_API.g_false
3896: ,p_commit => FND_API.g_false
3897: ,p_validation_level => FND_API.g_valid_level_full
3898: ,x_return_status => x_return_status
3899: ,x_msg_data => x_msg_data
3892:
3893: OZF_GL_INTERFACE_PVT.Create_Gl_Entry (
3894: p_api_version => l_api_version
3895: ,p_init_msg_list => FND_API.g_false
3896: ,p_commit => FND_API.g_false
3897: ,p_validation_level => FND_API.g_valid_level_full
3898: ,x_return_status => x_return_status
3899: ,x_msg_data => x_msg_data
3900: ,x_msg_count => x_msg_count
3893: OZF_GL_INTERFACE_PVT.Create_Gl_Entry (
3894: p_api_version => l_api_version
3895: ,p_init_msg_list => FND_API.g_false
3896: ,p_commit => FND_API.g_false
3897: ,p_validation_level => FND_API.g_valid_level_full
3898: ,x_return_status => x_return_status
3899: ,x_msg_data => x_msg_data
3900: ,x_msg_count => x_msg_count
3901: ,p_gl_rec => l_gl_rec
3900: ,x_msg_count => x_msg_count
3901: ,p_gl_rec => l_gl_rec
3902: );
3903:
3904: IF x_return_status = FND_API.g_ret_sts_error THEN
3905: RAISE FND_API.G_EXC_ERROR;
3906: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3908: END IF;
3901: ,p_gl_rec => l_gl_rec
3902: );
3903:
3904: IF x_return_status = FND_API.g_ret_sts_error THEN
3905: RAISE FND_API.G_EXC_ERROR;
3906: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3908: END IF;
3909:
3902: );
3903:
3904: IF x_return_status = FND_API.g_ret_sts_error THEN
3905: RAISE FND_API.G_EXC_ERROR;
3906: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3908: END IF;
3909:
3910: --Standard check of commit
3903:
3904: IF x_return_status = FND_API.g_ret_sts_error THEN
3905: RAISE FND_API.G_EXC_ERROR;
3906: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3908: END IF;
3909:
3910: --Standard check of commit
3911: IF FND_API.To_Boolean ( p_commit ) THEN
3907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3908: END IF;
3909:
3910: --Standard check of commit
3911: IF FND_API.To_Boolean ( p_commit ) THEN
3912: COMMIT WORK;
3913: END IF;
3914: -- Debug Message
3915: IF OZF_DEBUG_LOW_ON THEN
3918: FND_MSG_PUB.Add;
3919: END IF;
3920: --Standard call to get message count and if count=1, get the message
3921: FND_MSG_PUB.Count_And_Get (
3922: p_encoded => FND_API.G_FALSE,
3923: p_count => x_msg_count,
3924: p_data => x_msg_data
3925: );
3926: EXCEPTION
3923: p_count => x_msg_count,
3924: p_data => x_msg_data
3925: );
3926: EXCEPTION
3927: WHEN FND_API.G_EXC_ERROR THEN
3928: ROLLBACK TO Post_Accrual_To_GL;
3929: x_return_status := FND_API.G_RET_STS_ERROR;
3930: -- Standard call to get message count and if count=1, get the message
3931: FND_MSG_PUB.Count_And_Get (
3925: );
3926: EXCEPTION
3927: WHEN FND_API.G_EXC_ERROR THEN
3928: ROLLBACK TO Post_Accrual_To_GL;
3929: x_return_status := FND_API.G_RET_STS_ERROR;
3930: -- Standard call to get message count and if count=1, get the message
3931: FND_MSG_PUB.Count_And_Get (
3932: p_encoded => FND_API.G_FALSE,
3933: p_count => x_msg_count,
3928: ROLLBACK TO Post_Accrual_To_GL;
3929: x_return_status := FND_API.G_RET_STS_ERROR;
3930: -- Standard call to get message count and if count=1, get the message
3931: FND_MSG_PUB.Count_And_Get (
3932: p_encoded => FND_API.G_FALSE,
3933: p_count => x_msg_count,
3934: p_data => x_msg_data
3935: );
3936: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3932: p_encoded => FND_API.G_FALSE,
3933: p_count => x_msg_count,
3934: p_data => x_msg_data
3935: );
3936: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3937: ROLLBACK TO Post_Accrual_To_GL;
3938: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3939: -- Standard call to get message count and if count=1, get the message
3940: FND_MSG_PUB.Count_And_Get (
3934: p_data => x_msg_data
3935: );
3936: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3937: ROLLBACK TO Post_Accrual_To_GL;
3938: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3939: -- Standard call to get message count and if count=1, get the message
3940: FND_MSG_PUB.Count_And_Get (
3941: p_encoded => FND_API.G_FALSE,
3942: p_count => x_msg_count,
3937: ROLLBACK TO Post_Accrual_To_GL;
3938: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3939: -- Standard call to get message count and if count=1, get the message
3940: FND_MSG_PUB.Count_And_Get (
3941: p_encoded => FND_API.G_FALSE,
3942: p_count => x_msg_count,
3943: p_data => x_msg_data
3944: );
3945: WHEN OTHERS THEN
3943: p_data => x_msg_data
3944: );
3945: WHEN OTHERS THEN
3946: ROLLBACK TO Post_Accrual_To_GL;
3947: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3948: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3949: THEN
3950: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3951: END IF;
3950: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3951: END IF;
3952: -- Standard call to get message count and if count=1, get the message
3953: FND_MSG_PUB.Count_And_Get (
3954: p_encoded => FND_API.G_FALSE,
3955: p_count => x_msg_count,
3956: p_data => x_msg_data
3957: );
3958:
3980: -- Removed the Adjustment Type checks
3981: ---------------------------------------------------------------------
3982: PROCEDURE Post_Claim_To_GL (
3983: p_api_version IN NUMBER
3984: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3985: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3986: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3987:
3988: ,x_return_status OUT NOCOPY VARCHAR2
3981: ---------------------------------------------------------------------
3982: PROCEDURE Post_Claim_To_GL (
3983: p_api_version IN NUMBER
3984: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3985: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3986: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3987:
3988: ,x_return_status OUT NOCOPY VARCHAR2
3989: ,x_msg_data OUT NOCOPY VARCHAR2
3982: PROCEDURE Post_Claim_To_GL (
3983: p_api_version IN NUMBER
3984: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3985: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3986: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3987:
3988: ,x_return_status OUT NOCOPY VARCHAR2
3989: ,x_msg_data OUT NOCOPY VARCHAR2
3990: ,x_msg_count OUT NOCOPY NUMBER
4011: BEGIN
4012: -- Standard begin of API savepoint
4013: SAVEPOINT Post_Claim_To_GL;
4014: -- Standard call to check for call compatibility.
4015: IF NOT FND_API.Compatible_API_Call (
4016: l_api_version,
4017: p_api_version,
4018: l_api_name,
4019: G_PKG_NAME)
4017: p_api_version,
4018: l_api_name,
4019: G_PKG_NAME)
4020: THEN
4021: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4022: END IF;
4023: -- Debug Message
4024: IF OZF_DEBUG_LOW_ON THEN
4025: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4026: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
4027: FND_MSG_PUB.Add;
4028: END IF;
4029: --Initialize message list if p_init_msg_list is TRUE.
4030: IF FND_API.To_Boolean (p_init_msg_list) THEN
4031: FND_MSG_PUB.initialize;
4032: END IF;
4033: -- Initialize API return status to sucess
4034: x_return_status := FND_API.G_RET_STS_SUCCESS;
4030: IF FND_API.To_Boolean (p_init_msg_list) THEN
4031: FND_MSG_PUB.initialize;
4032: END IF;
4033: -- Initialize API return status to sucess
4034: x_return_status := FND_API.G_RET_STS_SUCCESS;
4035:
4036: IF OZF_DEBUG_LOW_ON THEN
4037: OZF_Utility_PVT.debug_message('--------- Post_Claim_To_GL ----------');
4038: OZF_Utility_PVT.debug_message('claim_id : '||p_claim_id);
4081: END IF;
4082: */
4083: OZF_GL_INTERFACE_PVT.Create_Gl_Entry (
4084: p_api_version => l_api_version
4085: ,p_init_msg_list => FND_API.g_false
4086: ,p_commit => FND_API.g_false
4087: ,p_validation_level => FND_API.g_valid_level_full
4088: ,x_return_status => x_return_status
4089: ,x_msg_data => x_msg_data
4082: */
4083: OZF_GL_INTERFACE_PVT.Create_Gl_Entry (
4084: p_api_version => l_api_version
4085: ,p_init_msg_list => FND_API.g_false
4086: ,p_commit => FND_API.g_false
4087: ,p_validation_level => FND_API.g_valid_level_full
4088: ,x_return_status => x_return_status
4089: ,x_msg_data => x_msg_data
4090: ,x_msg_count => x_msg_count
4083: OZF_GL_INTERFACE_PVT.Create_Gl_Entry (
4084: p_api_version => l_api_version
4085: ,p_init_msg_list => FND_API.g_false
4086: ,p_commit => FND_API.g_false
4087: ,p_validation_level => FND_API.g_valid_level_full
4088: ,x_return_status => x_return_status
4089: ,x_msg_data => x_msg_data
4090: ,x_msg_count => x_msg_count
4091: ,p_gl_rec => l_gl_rec
4090: ,x_msg_count => x_msg_count
4091: ,p_gl_rec => l_gl_rec
4092: );
4093:
4094: IF x_return_status = FND_API.g_ret_sts_error THEN
4095: RAISE FND_API.G_EXC_ERROR;
4096: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4097: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4098: END IF;
4091: ,p_gl_rec => l_gl_rec
4092: );
4093:
4094: IF x_return_status = FND_API.g_ret_sts_error THEN
4095: RAISE FND_API.G_EXC_ERROR;
4096: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4097: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4098: END IF;
4099:
4092: );
4093:
4094: IF x_return_status = FND_API.g_ret_sts_error THEN
4095: RAISE FND_API.G_EXC_ERROR;
4096: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4097: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4098: END IF;
4099:
4100: --Standard check of commit
4093:
4094: IF x_return_status = FND_API.g_ret_sts_error THEN
4095: RAISE FND_API.G_EXC_ERROR;
4096: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4097: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4098: END IF;
4099:
4100: --Standard check of commit
4101: IF FND_API.To_Boolean ( p_commit ) THEN
4097: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4098: END IF;
4099:
4100: --Standard check of commit
4101: IF FND_API.To_Boolean ( p_commit ) THEN
4102: COMMIT WORK;
4103: END IF;
4104: -- Debug Message
4105: IF OZF_DEBUG_LOW_ON THEN
4108: FND_MSG_PUB.Add;
4109: END IF;
4110: --Standard call to get message count and if count=1, get the message
4111: FND_MSG_PUB.Count_And_Get (
4112: p_encoded => FND_API.G_FALSE,
4113: p_count => x_msg_count,
4114: p_data => x_msg_data
4115: );
4116: EXCEPTION
4113: p_count => x_msg_count,
4114: p_data => x_msg_data
4115: );
4116: EXCEPTION
4117: WHEN FND_API.G_EXC_ERROR THEN
4118: ROLLBACK TO Post_Claim_To_GL;
4119: x_return_status := FND_API.G_RET_STS_ERROR;
4120: -- Standard call to get message count and if count=1, get the message
4121: FND_MSG_PUB.Count_And_Get (
4115: );
4116: EXCEPTION
4117: WHEN FND_API.G_EXC_ERROR THEN
4118: ROLLBACK TO Post_Claim_To_GL;
4119: x_return_status := FND_API.G_RET_STS_ERROR;
4120: -- Standard call to get message count and if count=1, get the message
4121: FND_MSG_PUB.Count_And_Get (
4122: p_encoded => FND_API.G_FALSE,
4123: p_count => x_msg_count,
4118: ROLLBACK TO Post_Claim_To_GL;
4119: x_return_status := FND_API.G_RET_STS_ERROR;
4120: -- Standard call to get message count and if count=1, get the message
4121: FND_MSG_PUB.Count_And_Get (
4122: p_encoded => FND_API.G_FALSE,
4123: p_count => x_msg_count,
4124: p_data => x_msg_data
4125: );
4126: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4122: p_encoded => FND_API.G_FALSE,
4123: p_count => x_msg_count,
4124: p_data => x_msg_data
4125: );
4126: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4127: ROLLBACK TO Post_Claim_To_GL;
4128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4129: -- Standard call to get message count and if count=1, get the message
4130: FND_MSG_PUB.Count_And_Get (
4124: p_data => x_msg_data
4125: );
4126: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4127: ROLLBACK TO Post_Claim_To_GL;
4128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4129: -- Standard call to get message count and if count=1, get the message
4130: FND_MSG_PUB.Count_And_Get (
4131: p_encoded => FND_API.G_FALSE,
4132: p_count => x_msg_count,
4127: ROLLBACK TO Post_Claim_To_GL;
4128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4129: -- Standard call to get message count and if count=1, get the message
4130: FND_MSG_PUB.Count_And_Get (
4131: p_encoded => FND_API.G_FALSE,
4132: p_count => x_msg_count,
4133: p_data => x_msg_data
4134: );
4135: WHEN OTHERS THEN
4133: p_data => x_msg_data
4134: );
4135: WHEN OTHERS THEN
4136: ROLLBACK TO Post_Claim_To_GL;
4137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4138: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4139: THEN
4140: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4141: END IF;
4140: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4141: END IF;
4142: -- Standard call to get message count and if count=1, get the message
4143: FND_MSG_PUB.Count_And_Get (
4144: p_encoded => FND_API.G_FALSE,
4145: p_count => x_msg_count,
4146: p_data => x_msg_data
4147: );
4148: