3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_GL_INTERFACE_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfvglib.pls';
6:
7: OZF_DEBUG_HIGH_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
8: OZF_DEBUG_LOW_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
9: G_CLAIM_ID NUMBER;
10:
11: ---------------------------------------------------------------------
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_GL_INTERFACE_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfvglib.pls';
6:
7: OZF_DEBUG_HIGH_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
8: OZF_DEBUG_LOW_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
9: G_CLAIM_ID NUMBER;
10:
11: ---------------------------------------------------------------------
12: --Bugfix 7431334 - Pushed get_org_id function at top for forward declaration as
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;
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;
249:
459: end if; -- end amount is not null
460:
461: EXCEPTION
462: WHEN OTHERS THEN
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;
461: EXCEPTION
462: WHEN OTHERS THEN
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
484: -- Debug Message
485: IF OZF_DEBUG_LOW_ON THEN
486: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
487: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
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,
487: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
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: );
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,
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,
513: p_data => x_msg_data
514: );
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;
522: -- Standard call to get message count and if count=1, get the message
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;
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,
519: THEN
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: );
566: x_ae_category := 'Fixed Budgets';
567: ELSIF l_type = 'FULLY_ACCRUED' THEN
568: x_ae_category := 'Accrual Budgets';
569: ELSE
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;
568: x_ae_category := 'Accrual Budgets';
569: ELSE
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
588: x_ae_category := 'Deductions';
589: END IF;
590:
591: ELSE
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;
590:
591: ELSE
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
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
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;
598: EXCEPTION
599: WHEN OTHERS 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: */
660: ELSIF p_event_type_code = 'SETTLE_BY_ACCOUNTING_ONLY' THEN
661: return 17;
662: -- R12.1 Changes End
663: ELSE
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;
662: -- R12.1 Changes End
663: ELSE
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;
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;
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: */
786: END IF;
787: */
788: -- R12 changes end
789: ELSE
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;
788: -- R12 changes end
789: ELSE
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;
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;
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:
910: RETURN null;
911:
912: EXCEPTION
913: WHEN OTHERS THEN
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;
912: EXCEPTION
913: WHEN OTHERS THEN
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: */
1161: ELSIF p_gl_rec.event_type_code = 'INVOICE_DISCOUNT' THEN --ninarasi fix for bug 14144628
1162: x_actg_tbl(1).CODE_COMBINATION_ID := l_dr_cc_id_tbl(1).code_combination_id;
1163: x_actg_tbl(1).ACCOUNT_TYPE := 'EXPENSE ACCOUNT';
1164: ELSE
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;
1163: x_actg_tbl(1).ACCOUNT_TYPE := 'EXPENSE ACCOUNT';
1164: ELSE
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:
1204:
1205: END IF;
1206: -- if source table is different
1207: ELSE
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;
1206: -- if source table is different
1207: ELSE
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:
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');
1224: FND_MSG_PUB.add;
1225: END IF;
1226: 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');
1224: FND_MSG_PUB.add;
1225: END IF;
1226: x_return_status := FND_API.g_ret_sts_unexp_error;
1227: END;
1228:
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;
1430: END IF;
1431: x_return_status := FND_API.g_ret_sts_unexp_error;
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;
1430: END IF;
1431: x_return_status := FND_API.g_ret_sts_unexp_error;
1432: END Construct_Acctng_Event_Rec;
1433: */
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;
1519: END IF;
1520: x_return_status := FND_API.g_ret_sts_unexp_error;
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;
1519: END IF;
1520: x_return_status := FND_API.g_ret_sts_unexp_error;
1521: END Construct_Header_Rec;
1522: */
1592: FETCH get_fxgl_loss_ccid_csr INTO l_fxgl_loss_ccid;
1593: CLOSE get_fxgl_loss_ccid_csr;
1594:
1595: IF l_fxgl_gain_ccid is null THEN
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;
1594:
1595: IF l_fxgl_gain_ccid is null THEN
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;
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;
1764: END IF;
1765: x_return_status := FND_API.g_ret_sts_unexp_error;
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;
1764: END IF;
1765: x_return_status := FND_API.g_ret_sts_unexp_error;
1766: END Construct_Line_Rec;
1767: */
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;
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;
1810:
1863: -- Debug Message
1864: IF OZF_DEBUG_LOW_ON THEN
1865: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1866: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
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,
1866: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
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
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: );
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,
1890: p_data => x_msg_data
1891: );
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;
1898: -- Standard call to get message count and if count=1, get the message
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;
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,
1895: THEN
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: );
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;
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;
2008:
2158: -- Debug Message
2159: IF OZF_DEBUG_LOW_ON THEN
2160: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2161: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
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,
2161: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
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: );
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,
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,
2194: p_data => x_msg_data
2195: );
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;
2203: -- Standard call to get message count and if count=1, get the message
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;
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,
2200: THEN
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: );
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;
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;
2363:
2597: -- Debug Message
2598: IF OZF_DEBUG_LOW_ON THEN
2599: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2600: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
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,
2600: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
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: );
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,
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,
2634: p_data => x_msg_data
2635: );
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;
2643: -- Standard call to get message count and if count=1, get the message
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;
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,
2640: THEN
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: );
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;
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;
2744:
2763: IF OZF_DEBUG_HIGH_ON THEN
2764: FND_MESSAGE.set_name('OZF', 'OZF_ACCT_GL_ENTRY_EXIST');
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;
2787:
2788:
2789: IF l_post_to_gl = 'X' THEN --ninarasi fix for bug 13793109
2790: OZF_Utility_PVT.debug_message('Inside null : '||l_post_to_gl);
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;
2789: IF l_post_to_gl = 'X' THEN --ninarasi fix for bug 13793109
2790: OZF_Utility_PVT.debug_message('Inside null : '||l_post_to_gl);
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;
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;
2938: RAISE FND_API.G_EXC_ERROR;
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;
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;
3024: -- Debug Message
3025: IF OZF_DEBUG_LOW_ON THEN
3026: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3027: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
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,
3027: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
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: );
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,
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,
3053: p_data => x_msg_data
3054: );
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;
3062: -- Standard call to get message count and if count=1, get the message
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;
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,
3059: THEN
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: );
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;
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;
3142:
3145: CLOSE check_acct_status_csr;
3146:
3147: -- raise error if the event status code is already accounted
3148: IF l_event_status_code = 'ACCOUNTED' THEN
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;
3147: -- raise error if the event status code is already accounted
3148: IF l_event_status_code = 'ACCOUNTED' THEN
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:
3235: -- Debug Message
3236: IF OZF_DEBUG_LOW_ON THEN
3237: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3238: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
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,
3238: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
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: );
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,
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,
3264: p_data => x_msg_data
3265: );
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;
3273: -- Standard call to get message count and if count=1, get the message
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;
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,
3270: THEN
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: );
3450:
3451: IF OZF_DEBUG_LOW_ON THEN
3452: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3453: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
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
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
3463: x_return_status := FND_API.G_RET_STS_SUCCESS;
3754: -- Debug Message
3755: IF OZF_DEBUG_LOW_ON THEN
3756: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3757: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
3758: FND_MSG_PUB.Add;
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 (
3755: IF OZF_DEBUG_LOW_ON THEN
3756: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3757: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
3758: FND_MSG_PUB.Add;
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,
3758: FND_MSG_PUB.Add;
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: );
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,
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,
3784: p_data => x_msg_data
3785: );
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;
3793: -- Standard call to get message count and if count=1, get the message
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;
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,
3790: THEN
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: );
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;
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;
3869:
3914: -- Debug Message
3915: IF OZF_DEBUG_LOW_ON THEN
3916: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3917: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
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,
3917: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
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: );
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,
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,
3943: p_data => x_msg_data
3944: );
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;
3952: -- Standard call to get message count and if count=1, get the message
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;
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,
3949: THEN
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: );
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;
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;
4035:
4104: -- Debug Message
4105: IF OZF_DEBUG_LOW_ON THEN
4106: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4107: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
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,
4107: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
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: );
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,
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,
4133: p_data => x_msg_data
4134: );
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;
4142: -- Standard call to get message count and if count=1, get the message
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;
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,
4139: THEN
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: );