1: PACKAGE BODY xla_multiperiod_accounting_pkg AS
2: -- $Header: xlampaac.pkb 120.10.12010000.3 2008/08/18 06:05:21 nmsubram ship $
3: /*===========================================================================+
4: | Copyright (c) 2005 Oracle Corporation |
5: | Redwood Shores, CA, USA |
5: | Redwood Shores, CA, USA |
6: | All rights reserved. |
7: +============================================================================+
8: | PACKAGE NAME |
9: | xla_multiperiod_accounting_pkg |
10: | |
11: | DESCRIPTION |
12: | This package contains the APIs related to the Complete Multiperiod |
13: | Accounting Program. |
37: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
38: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
39:
40: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
41: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_multiperiod_accounting_pkg';
42:
43: g_log_level NUMBER;
44: g_log_enabled BOOLEAN;
45:
119: WHEN xla_exceptions_pkg.application_exception THEN
120: RAISE;
121: WHEN OTHERS THEN
122: xla_exceptions_pkg.raise_message
123: (p_location => 'xla_multiperiod_accounting_pkg.trace');
124: END trace;
125:
126:
127: --=============================================================================
136: WHEN xla_exceptions_pkg.application_exception THEN
137: RAISE;
138: WHEN OTHERS THEN
139: xla_exceptions_pkg.raise_message
140: (p_location => 'xla_multiperiod_accounting_pkg.print_logfile');
141: END print_logfile;
142:
143:
144: --============================================================================
364: xla_exceptions_pkg.raise_message
365: (p_appli_s_name => 'XLA'
366: ,p_msg_name => 'XLA_COMMON_ERROR'
367: ,p_token_1 => 'LOCATION'
368: ,p_value_1 => 'xla_multiperiod_accounting_pkg.complete_journal_entries'
369: ,p_token_2 => 'ERROR'
370: ,p_value_2 => 'Technical problem : Problem in the routine XLA_BALANCES_PKG.Massive_Update');
371: ELSE
372:
492: WHEN OTHERS THEN
493: xla_accounting_err_pkg.build_message
494: (p_appli_s_name => 'XLA'
495: ,p_msg_name => 'XLA_AP_TECHNICAL_ERROR'
496: ,p_token_1 => 'XLA_MULTIPERIOD_ACCOUNTING_PKG.Complete_Journal_Entries'
497: ,p_value_1 => 'SLA'
498: ,p_entity_id => NULL
499: ,p_event_id => NULL);
500:
503: xla_accounting_err_pkg.insert_errors;
504: COMMIT;
505:
506: xla_exceptions_pkg.raise_message
507: (p_location => 'xla_multiperiod_accounting_pkg.complete_journal_entries');
508:
509: END complete_journal_entries; -- end of procedure
510:
511:
612: WHEN OTHERS THEN
613: xla_accounting_err_pkg.build_message
614: (p_appli_s_name => 'XLA'
615: ,p_msg_name => 'XLA_AP_TECHNICAL_ERROR'
616: ,p_token_1 => 'XLA_MULTIPERIOD_ACCOUNTING_PKG.Initialize'
617: ,p_value_1 => 'SLA'
618: ,p_entity_id => NULL
619: ,p_event_id => NULL);
620:
618: ,p_entity_id => NULL
619: ,p_event_id => NULL);
620:
621: xla_exceptions_pkg.raise_message
622: (p_location => 'xla_multiperiod_accounting_pkg.Initialize');
623: END Initialize;
624:
625:
626: --============================================================================
862: ,p_msg_name => 'XLA_MA_HDR_LOCKED');
863:
864: When Others Then
865: xla_exceptions_pkg.raise_message
866: (p_location => 'xla_multiperiod_accounting_pkg.Populate_Journal_Entries');
867: End;
868:
869: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
870: trace(p_msg => '# lines updated = '||SQL%ROWCOUNT,
887: WHEN OTHERS THEN
888: xla_accounting_err_pkg.build_message
889: (p_appli_s_name => 'XLA'
890: ,p_msg_name => 'XLA_AP_TECHNICAL_ERROR'
891: ,p_token_1 => 'XLA_MULTIPERIOD_ACCOUNTING_PKG.Populate_Journal_Entries'
892: ,p_value_1 => 'SLA'
893: ,p_entity_id => NULL
894: ,p_event_id => NULL);
895:
893: ,p_entity_id => NULL
894: ,p_event_id => NULL);
895:
896: xla_exceptions_pkg.raise_message
897: (p_location => 'xla_multiperiod_accounting_pkg.Populate_Journal_Entries');
898:
899: END Populate_Journal_Entries;
900:
901:
954: WHEN OTHERS THEN
955: xla_accounting_err_pkg.build_message
956: (p_appli_s_name => 'XLA'
957: ,p_msg_name => 'XLA_AP_TECHNICAL_ERROR'
958: ,p_token_1 => 'XLA_MULTIPERIOD_ACCOUNTING_PKG.Update_Journal_Entries'
959: ,p_value_1 => 'SLA'
960: ,p_entity_id => NULL
961: ,p_event_id => NULL);
962:
960: ,p_entity_id => NULL
961: ,p_event_id => NULL);
962:
963: xla_exceptions_pkg.raise_message
964: (p_location => 'xla_multiperiod_accounting_pkg.Update_Journal_Entries');
965: END Update_Journal_Entries;
966:
967:
968: --============================================================================
1096: WHEN OTHERS THEN
1097: xla_accounting_err_pkg.build_message
1098: (p_appli_s_name => 'XLA'
1099: ,p_msg_name => 'XLA_AP_TECHNICAL_ERROR'
1100: ,p_token_1 => 'XLA_MULTIPERIOD_ACCOUNTING_PKG.Populate_Sequences'
1101: ,p_value_1 => 'SLA'
1102: ,p_entity_id => NULL
1103: ,p_event_id => NULL);
1104:
1102: ,p_entity_id => NULL
1103: ,p_event_id => NULL);
1104:
1105: xla_exceptions_pkg.raise_message
1106: (p_location => 'xla_multiperiod_accounting_pkg.Populate_Sequences');
1107: END Populate_Sequences;
1108:
1109:
1110:
1181: WHEN OTHERS THEN
1182: xla_accounting_err_pkg.build_message
1183: (p_appli_s_name => 'XLA'
1184: ,p_msg_name => 'XLA_AP_TECHNICAL_ERROR'
1185: ,p_token_1 => 'XLA_MULTIPERIOD_ACCOUNTING_PKG.Transfer_To_GL'
1186: ,p_value_1 => 'SLA'
1187: ,p_entity_id => NULL
1188: ,p_event_id => NULL);
1189:
1187: ,p_entity_id => NULL
1188: ,p_event_id => NULL);
1189:
1190: xla_exceptions_pkg.raise_message
1191: (p_location => 'xla_multiperiod_accounting_pkg.Transfer_To_GL');
1192: END Transfer_To_GL;
1193:
1194:
1195: --=============================================================================
1208: IF NOT g_log_enabled THEN
1209: g_log_level := C_LEVEL_LOG_DISABLED;
1210: END IF;
1211:
1212: END xla_multiperiod_accounting_pkg; -- end of package body