1: PACKAGE BODY xla_cmp_event_type_pkg AS
2: /* $Header: xlacpevt.pkb 120.83 2011/03/22 07:33:55 karamakr ship $ */
3: /*===========================================================================+
4: | Copyright (c) 2001-2002 Oracle Corporation |
5: | Redwood Shores, CA, USA |
5: | Redwood Shores, CA, USA |
6: | All rights reserved. |
7: +============================================================================+
8: | PACKAGE NAME |
9: | xla_cmp_event_type_pkg |
10: | |
11: | DESCRIPTION |
12: | This is a XLA private package, which contains all the logic required |
13: | to generate Event Class or Event Type Function |
1250: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
1251: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
1252:
1253: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
1254: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.XLA_CMP_EVENT_TYPE_PKG';
1255:
1256: g_log_level NUMBER;
1257: g_log_enabled BOOLEAN;
1258:
1272: WHEN xla_exceptions_pkg.application_exception THEN
1273: RAISE;
1274: WHEN OTHERS THEN
1275: xla_exceptions_pkg.raise_message
1276: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.trace');
1277: END trace;
1278:
1279: --+==========================================================================+
1280: --| |
1478: RAISE;
1479: WHEN OTHERS THEN
1480: IF event_type_cur%ISOPEN THEN CLOSE event_type_cur; END IF;
1481: xla_exceptions_pkg.raise_message
1482: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.GetEventClassEventType');
1483: END GetEventClassEventType;
1484:
1485: /*------------------------------------------------------------+
1486: | |
1574: RAISE;
1575: WHEN OTHERS THEN
1576: IF event_type_cur%ISOPEN THEN CLOSE event_type_cur; END IF;
1577: xla_exceptions_pkg.raise_message
1578: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.GetNoAccountEventTypes');
1579: END GetNoAccountEventTypes;
1580:
1581: /*------------------------------------------------------------+
1582: | |
1656: RAISE;
1657: WHEN OTHERS THEN
1658: IF event_type_cur%ISOPEN THEN CLOSE event_type_cur; END IF;
1659: xla_exceptions_pkg.raise_message
1660: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.GetEventType');
1661: END GetEventType;
1662:
1663: /*------------------------------------------------------------+
1664: | |
1718: WHEN xla_exceptions_pkg.application_exception THEN
1719: RETURN NULL;
1720: WHEN OTHERS THEN
1721: xla_exceptions_pkg.raise_message
1722: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.GetEventTypeName ');
1723: END GetEventTypeName;
1724:
1725: /*------------------------------------------------------------+
1726: | |
1774: WHEN xla_exceptions_pkg.application_exception THEN
1775: RETURN NULL;
1776: WHEN OTHERS THEN
1777: xla_exceptions_pkg.raise_message
1778: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.GetEntityName ');
1779: END GetEntityName;
1780:
1781: /*------------------------------------------------------------+
1782: | |
1834: WHEN xla_exceptions_pkg.application_exception THEN
1835: RETURN NULL;
1836: WHEN OTHERS THEN
1837: xla_exceptions_pkg.raise_message
1838: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.GetEventClassName ');
1839: END GetEventClassName;
1840: --
1841: --+==========================================================================+
1842: --| |
1938: WHEN xla_exceptions_pkg.application_exception THEN
1939: RETURN NULL;
1940: WHEN OTHERS THEN
1941: xla_exceptions_pkg.raise_message
1942: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.IsOptionFlagInEventExtract');
1943: END IsOptionFlagInEventExtract;
1944: --
1945: --+==========================================================================+
1946: --| |
2011: p_AcctReversalIdx := NULL;
2012: p_TrxReversalIdx := NULL;
2013: WHEN OTHERS THEN
2014: xla_exceptions_pkg.raise_message
2015: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.GetIndexOfOptionFlags');
2016: END GetIndexOfOptionFlags;
2017:
2018: /*--------------------------------------------------------------------+
2019: | |
2195: RAISE;
2196: WHEN OTHERS THEN
2197: IF source_cur%ISOPEN THEN CLOSE source_cur; END IF;
2198: xla_exceptions_pkg.raise_message
2199: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.GetHeaderAcctgSources ');
2200: END GetHeaderAcctgSources;
2201:
2202: /*--------------------------------------------------------------------+
2203: | |
2348: RAISE;
2349: WHEN OTHERS THEN
2350: IF source_cur%ISOPEN THEN CLOSE source_cur; END IF;
2351: xla_exceptions_pkg.raise_message
2352: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.GetLineAcctgSources ');
2353: END GetLineAcctgSources;
2354:
2355:
2356: /*--------------------------------------------------------------------+
2468: END IF;
2469: RAISE;
2470: WHEN OTHERS THEN
2471: xla_exceptions_pkg.raise_message
2472: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.GetSourcesDefinedInHeader');
2473: END GetSourcesDefinedInHeader;
2474:
2475: /*--------------------------------------------------------------------+
2476: | |
2651: RAISE;
2652: WHEN OTHERS THEN
2653: IF alt_cur%ISOPEN THEN CLOSE alt_cur; END IF;
2654: xla_exceptions_pkg.raise_message
2655: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.GetSourcesDefinedInAcctgLine');
2656: END GetSourcesDefinedInAcctgLine;
2657:
2658: /*--------------------------------------------------------------------+
2659: | |
2837: END IF;
2838: RAISE;
2839: WHEN OTHERS THEN
2840: xla_exceptions_pkg.raise_message
2841: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.CollectHeaderAndLineSources');
2842: END CollectHeaderAndLineSources;
2843:
2844: /*-----------------------------------------------------------------------+
2845: | |
2922: END IF;
2923: RAISE;
2924: WHEN OTHERS THEN
2925: xla_exceptions_pkg.raise_message
2926: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.GenerateHdrDescription');
2927: END GenerateHdrDescription;
2928:
2929: /*-----------------------------------------------------------------------+
2930: | |
3088: END IF;
3089: RAISE;
3090: WHEN OTHERS THEN
3091: xla_exceptions_pkg.raise_message
3092: (p_location => 'XLA_CMP_EVENT_TYPE_PKG. GenerateHdrAcctgSources');
3093: END GenerateHdrAcctgSources;
3094:
3095: /*-----------------------------------------------------------------------+
3096: | |
3217: END IF;
3218: RAISE;
3219: WHEN OTHERS THEN
3220: xla_exceptions_pkg.raise_message
3221: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.GenerateGainLossAcctSources');
3222: END GenerateGainLossAcctSources;
3223:
3224: /*---------------------------------------------------------------+
3225: | |
3339: END IF;
3340: RAISE;
3341: WHEN OTHERS THEN
3342: xla_exceptions_pkg.raise_message
3343: (p_location => 'XLA_CMP_EVENT_TYPE_PKG. GenerateReversalAcctgSources');
3344: END GenerateReversalAcctgSources;
3345:
3346: /*---------------------------------------------------------------+
3347: | |
3450: END IF;
3451: RAISE;
3452: WHEN OTHERS THEN
3453: xla_exceptions_pkg.raise_message
3454: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.GenerateAcctLinetypes ');
3455: END GenerateAcctLinetypes;
3456:
3457:
3458:
3598: END IF;
3599: RAISE;
3600: WHEN OTHERS THEN
3601: xla_exceptions_pkg.raise_message
3602: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.GenerateAccRevBody ');
3603: END GenerateAccRevBody;
3604:
3605:
3606: /*---------------------------------------------------------------+
3966: END IF;
3967: RAISE;
3968: WHEN OTHERS THEN
3969: xla_exceptions_pkg.raise_message
3970: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.GenerateProcedureBody ');
3971: END GenerateProcedureBody;
3972:
3973: /*---------------------------------------------------------------+
3974: | |
4023: END IF;
4024: EXCEPTION
4025: WHEN OTHERS THEN
4026: xla_exceptions_pkg.raise_message
4027: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.PopulateBCObjectNames ');
4028: END PopulateBCObjectNames;
4029:
4030:
4031:
4431: END IF;
4432: RAISE;
4433: WHEN OTHERS THEN
4434: xla_exceptions_pkg.raise_message
4435: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.GenerateOneProcedure');
4436: END GenerateOneProcedure;
4437:
4438: /*---------------------------------------------------------------+
4439: | |
4618: END IF;
4619: RAISE;
4620: WHEN OTHERS THEN
4621: xla_exceptions_pkg.raise_message
4622: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.GenerateProcedure');
4623: END GenerateProcedure;
4624:
4625: /*---------------------------------------------------------------+
4626: | |
5086: END IF;
5087: RAISE;
5088: WHEN OTHERS THEN
5089: xla_exceptions_pkg.raise_message
5090: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.GetEventTypeClassProc ');
5091: END GetEventTypeClassProc;
5092:
5093:
5094: /*---------------------------------------------------------------+
5227: END IF;
5228: RAISE;
5229: WHEN OTHERS THEN
5230: xla_exceptions_pkg.raise_message
5231: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.GetEventTypeOrClassProc ');
5232: END GetEventTypeOrClassProc;
5233:
5234: /*---------------------------------------------------------------+
5235: | |
5394: END IF;
5395: RAISE;
5396: WHEN OTHERS THEN
5397: xla_exceptions_pkg.raise_message
5398: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.GetEventClassAndTypeProcs ');
5399: END GetEventClassAndTypeProcs;
5400:
5401: /*-----------------------------------------------------------------------+
5402: | |
5510: END IF;
5511: RAISE;
5512: WHEN OTHERS THEN
5513: xla_exceptions_pkg.raise_message
5514: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.GenerateEventClassAndType ');
5515: END GenerateEventClassAndType;
5516:
5517: --+==========================================================================+
5518: --| |
5809: END IF;
5810: RAISE;
5811: WHEN OTHERS THEN
5812: xla_exceptions_pkg.raise_message
5813: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.GenerateMainProcedure');
5814: END GenerateMainProcedure;
5815:
5816: /*-----------------------------------------------------------------+
5817: | |
5928: END IF;
5929: RAISE;
5930: WHEN OTHERS THEN
5931: xla_exceptions_pkg.raise_message
5932: (p_location => 'XLA_CMP_EVENT_TYPE_PKG.BuildMainProc');
5933: END BuildMainProc;
5934: --
5935: --=============================================================================
5936: --
5970: IF NOT g_log_enabled THEN
5971: g_log_level := C_LEVEL_LOG_DISABLED;
5972: END IF;
5973: --
5974: END xla_cmp_event_type_pkg; --