1: PACKAGE BODY xla_cmp_acct_line_type_pkg AS
2: /* $Header: xlacpalt.pkb 120.73 2011/10/13 15:42:55 vgopiset 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_acct_line_type_pkg |
10: | |
11: | DESCRIPTION |
12: | This is a XLA private package, which contains all the logic required |
13: | to generate Accounting line type procedures from AMB specifcations |
841: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
842: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
843:
844: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
845: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_cmp_acct_line_type_pkg';
846:
847: g_log_level NUMBER;
848: g_log_enabled BOOLEAN;
849:
867: WHEN xla_exceptions_pkg.application_exception THEN
868: RAISE;
869: WHEN OTHERS THEN
870: xla_exceptions_pkg.raise_message
871: (p_location => 'xla_cmp_acct_line_type_pkg.trace');
872: END trace;
873:
874: /*---------------------------------------------------------------+
875: | |
947: WHEN xla_exceptions_pkg.application_exception THEN
948: RETURN NULL;
949: WHEN OTHERS THEN
950: xla_exceptions_pkg.raise_message
951: (p_location => 'xla_cmp_acct_line_type_pkg.GetALTOption');
952: END GetALTOption;
953:
954: /*---------------------------------------------------------------+
955: | |
1004: WHEN xla_exceptions_pkg.application_exception THEN
1005: RETURN NULL;
1006: WHEN OTHERS THEN
1007: xla_exceptions_pkg.raise_message
1008: (p_location => 'xla_cmp_acct_line_type_pkg.GetAcctClassCode');
1009: END GetAcctClassCode;
1010:
1011: /*---------------------------------------------------------------+
1012: | |
1063: WHEN xla_exceptions_pkg.application_exception THEN
1064: RETURN NULL;
1065: WHEN OTHERS THEN
1066: xla_exceptions_pkg.raise_message
1067: (p_location => 'xla_cmp_acct_line_type_pkg.GetRoundingClassCode');
1068: END GetRoundingClassCode;
1069:
1070: /*-----------------------------------------------------------------+
1071: | |
1325: RETURN NULL;
1326: WHEN OTHERS THEN
1327: IF source_cur%ISOPEN THEN CLOSE source_cur; END IF;
1328: xla_exceptions_pkg.raise_message
1329: (p_location => 'xla_cmp_acct_line_type_pkg.GetAccountingSources');
1330: END GetAccountingSources;
1331:
1332: /*-----------------------------------------------------------------+
1333: | |
1401: WHEN xla_exceptions_pkg.application_exception THEN
1402: RETURN NULL;
1403: WHEN OTHERS THEN
1404: xla_exceptions_pkg.raise_message
1405: (p_location => 'xla_cmp_acct_line_type_pkg.GetCallAnalyticCriteria');
1406: END GetCallAnalyticCriteria;
1407:
1408: /*---------------------------------------------------------------+
1409: | |
1467: WHEN xla_exceptions_pkg.application_exception THEN
1468: RETURN NULL;
1469: WHEN OTHERS THEN
1470: xla_exceptions_pkg.raise_message
1471: (p_location => 'xla_cmp_acct_line_type_pkg.GetOverrideSegFlag');
1472: END GetOverrideSegFlag;
1473:
1474:
1475: /*---------------------------------------------------------+
1626: WHEN xla_exceptions_pkg.application_exception THEN
1627: RETURN NULL;
1628: WHEN OTHERS THEN
1629: xla_exceptions_pkg.raise_message
1630: (p_location => 'xla_cmp_acct_line_type_pkg.GenerateCallDescription');
1631: END GenerateCallDescription;
1632:
1633:
1634: /*---------------------------------------------------------+
2042: WHEN xla_exceptions_pkg.application_exception THEN
2043: RETURN NULL;
2044: WHEN OTHERS THEN
2045: xla_exceptions_pkg.raise_message
2046: (p_location => 'xla_cmp_acct_line_type_pkg.GenerateADRCalls');
2047: END GenerateADRCalls;
2048:
2049:
2050:
2234: RETURN NULL;
2235: WHEN OTHERS THEN
2236: IF adr_cur%ISOPEN THEN CLOSE adr_cur; END IF;
2237: xla_exceptions_pkg.raise_message
2238: (p_location => 'xla_cmp_acct_line_type_pkg.GenerateCallADR');
2239: END GenerateCallADR;
2240:
2241: /*---------------------------------------------------------+
2242: | |
2292: WHEN xla_exceptions_pkg.application_exception THEN
2293: RETURN NULL;
2294: WHEN OTHERS THEN
2295: xla_exceptions_pkg.raise_message
2296: (p_location => 'xla_cmp_acct_line_type_pkg.GetEncumbranceTypeId');
2297: END GetEncumbranceTypeId;
2298:
2299:
2300:
2418: END IF;
2419: RETURN NULL;
2420: WHEN OTHERS THEN
2421: xla_exceptions_pkg.raise_message
2422: (p_location => 'xla_cmp_acct_line_type_pkg.GenerateCallMpaJLT');
2423: END GenerateCallMpaJLT;
2424:
2425:
2426:
2498: END IF;
2499: RETURN NULL;
2500: WHEN OTHERS THEN
2501: xla_exceptions_pkg.raise_message
2502: (p_location => 'xla_cmp_acct_line_type_pkg.GetAcctAttrSourceIdx');
2503: END GetAcctAttrSourceIdx;
2504:
2505:
2506:
2751: WHEN OTHERS THEN
2752: IF c_mpa_jlt%ISOPEN THEN CLOSE c_mpa_jlt; END IF;
2753: p_IsCompiled := FALSE;
2754: xla_exceptions_pkg.raise_message
2755: (p_location => 'xla_cmp_acct_line_type_pkg.GenerateMpaBody');
2756:
2757: END GenerateMpaBody;
2758:
2759: /*---------------------------------------------------------+
2881: WHEN xla_exceptions_pkg.application_exception THEN
2882: RETURN NULL;
2883: WHEN OTHERS THEN
2884: xla_exceptions_pkg.raise_message
2885: (p_location => 'xla_cmp_acct_line_type_pkg.GetAccRevMPABody');
2886: END GetAccRevMPABody;
2887:
2888:
2889: /*---------------------------------------------------------+
3191: WHEN xla_exceptions_pkg.application_exception THEN
3192: RETURN NULL;
3193: WHEN OTHERS THEN
3194: xla_exceptions_pkg.raise_message
3195: (p_location => 'xla_cmp_acct_line_type_pkg.GetALTBody');
3196: END GetALTBody;
3197:
3198:
3199: /*---------------------------------------------------------+
3408: RETURN NULL;
3409: WHEN OTHERS THEN
3410: p_IsCompiled := FALSE;
3411: xla_exceptions_pkg.raise_message
3412: (p_location => 'xla_cmp_acct_line_type_pkg.GetAcctLineTypeBody');
3413: END GetAcctLineTypeBody;
3414:
3415:
3416:
3667: xla_exceptions_pkg.raise_message
3668: ('XLA'
3669: ,'XLA_CMP_COMPILER_ERROR'
3670: ,'PROCEDURE'
3671: ,'xla_cmp_acct_line_type_pkg.GenerateDefAcctLineType'
3672: ,'ERROR'
3673: , sqlerrm
3674: );
3675:
3678: RETURN NULL;
3679: WHEN OTHERS THEN
3680: p_IsCompiled := FALSE;
3681: xla_exceptions_pkg.raise_message
3682: (p_location => 'xla_cmp_acct_line_type_pkg.GenerateDefAcctLineType');
3683: END GenerateDefAcctLineType;
3684:
3685:
3686: /*---------------------------------------------------------+
3873: RETURN xla_cmp_string_pkg.g_null_varchar2s;
3874: WHEN OTHERS THEN
3875: p_IsCompiled := FALSE;
3876: xla_exceptions_pkg.raise_message
3877: (p_location => 'xla_cmp_acct_line_type_pkg.GenerateOneAcctLineType');
3878: END GenerateOneAcctLineType;
3879:
3880: /*---------------------------------------------------------+
3881: | |
4209: WHEN OTHERS THEN
4210: p_IsCompiled := FALSE;
4211: IF alt_cur%ISOPEN THEN CLOSE alt_cur; END IF;
4212: xla_exceptions_pkg.raise_message
4213: (p_location => 'xla_cmp_acct_line_type_pkg.GenerateAcctLineTypeProcs');
4214: END GenerateAcctLineTypeProcs;
4215:
4216:
4217: /*------------------------------------------------------------+
4295: END IF;
4296: RETURN FALSE;
4297: WHEN OTHERS THEN
4298: xla_exceptions_pkg.raise_message
4299: (p_location => 'xla_cmp_acct_line_type_pkg.GenerateAcctLineType');
4300: END GenerateAcctLineType;
4301: --
4302: --=============================================================================
4303: --
4337: IF NOT g_log_enabled THEN
4338: g_log_level := C_LEVEL_LOG_DISABLED;
4339: END IF;
4340:
4341: END xla_cmp_acct_line_type_pkg; --