DBA Data[Home] [Help]

APPS.XLA_ACCOUNTING_PKG dependencies on XLA_ACCOUNTING_PKG

Line 1: PACKAGE BODY XLA_ACCOUNTING_PKG AS

1: PACKAGE BODY XLA_ACCOUNTING_PKG AS
2: /* $Header: xlaapeng.pkb 120.187.12020000.3 2012/08/09 08:35:18 sragadde ship $ */
3: /*===========================================================================+
4: | Copyright (c) 2001-2002 Oracle Corporation |
5: | Redwood Shores, CA, USA |

Line 9: | xla_accounting_pkg |

5: | Redwood Shores, CA, USA |
6: | ALL rights reserved. |
7: +============================================================================+
8: | PACKAGE NAME |
9: | xla_accounting_pkg |
10: | |
11: | DESCRIPTION |
12: | Package body for the Accounting Program. |
13: | |

Line 539: g_ledger_ids xla_accounting_pkg.t_array_number;

535: g_queue_table_name VARCHAR2(80);
536: g_xla_schema_name VARCHAR2(30);
537: g_queue_name VARCHAR2(30);
538: g_comp_queue_name VARCHAR2(30);
539: g_ledger_ids xla_accounting_pkg.t_array_number;
540: g_process_count PLS_INTEGER;
541: g_ep_request_ids xla_accounting_pkg.t_array_number;
542: g_ep_reqid PLS_INTEGER;
543: g_unit_size PLS_INTEGER;

Line 541: g_ep_request_ids xla_accounting_pkg.t_array_number;

537: g_queue_name VARCHAR2(30);
538: g_comp_queue_name VARCHAR2(30);
539: g_ledger_ids xla_accounting_pkg.t_array_number;
540: g_process_count PLS_INTEGER;
541: g_ep_request_ids xla_accounting_pkg.t_array_number;
542: g_ep_reqid PLS_INTEGER;
543: g_unit_size PLS_INTEGER;
544: g_error_limit PLS_INTEGER;
545: g_seq_enabled_flag VARCHAR2(1);

Line 711: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_accounting_pkg';

707: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
708: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
709:
710: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
711: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_accounting_pkg';
712:
713: g_log_level NUMBER;
714: g_log_enabled BOOLEAN;
715:

Line 751: (p_location => 'xla_accounting_pkg.trace');

747: WHEN xla_exceptions_pkg.application_exception THEN
748: RAISE;
749: WHEN OTHERS THEN
750: xla_exceptions_pkg.raise_message
751: (p_location => 'xla_accounting_pkg.trace');
752: END trace;
753:
754: --=============================================================================
755: -- ******* Print Log File **********

Line 767: (p_location => 'xla_accounting_pkg.print_logfile');

763: WHEN xla_exceptions_pkg.application_exception THEN
764: RAISE;
765: WHEN OTHERS THEN
766: xla_exceptions_pkg.raise_message
767: (p_location => 'xla_accounting_pkg.print_logfile');
768: END print_logfile;
769:
770:
771: --=============================================================================

Line 952: ,p_value_1 => 'xla_accounting_pkg.accounting_program_batch'

948: xla_exceptions_pkg.raise_message
949: (p_appli_s_name => 'XLA'
950: ,p_msg_name => 'XLA_COMMON_ERROR'
951: ,p_token_1 => 'LOCATION'
952: ,p_value_1 => 'xla_accounting_pkg.accounting_program_batch'
953: ,p_token_2 => 'ERROR'
954: ,p_value_2 => 'Source application and event application both cannot be NULL');
955: END IF;
956:

Line 2488: (p_location => 'xla_accounting_pkg.event_application_manager');

2484: ,p_value_1 => 'SLA'
2485: ,p_entity_id => NULL
2486: ,p_event_id => NULL);
2487: xla_exceptions_pkg.raise_message
2488: (p_location => 'xla_accounting_pkg.event_application_manager');
2489: END event_application_manager; -- end of procedure
2490:
2491:
2492: --=============================================================================

Line 3569: xla_accounting_pkg.accounting_program_events

3565:
3566:
3567:
3568:
3569: xla_accounting_pkg.accounting_program_events
3570: (p_application_id => p_application_id
3571: ,p_accounting_mode => CASE WHEN p_accounting_flag = 'N'
3572: THEN 'NONE'
3573: WHEN p_accounting_mode = 'D'

Line 3595: (p_location => 'xla_accounting_pkg.accounting_program_document');

3591: WHEN xla_exceptions_pkg.application_exception THEN
3592: RAISE;
3593: WHEN OTHERS THEN
3594: xla_exceptions_pkg.raise_message
3595: (p_location => 'xla_accounting_pkg.accounting_program_document');
3596: END accounting_program_document; -- end of procedure
3597:
3598:
3599: --=============================================================================

Line 3699: ,p_value_2 => 'xla_accounting_pkg.batch_accounting');

3695: ,p_token_1 => 'ERROR'
3696: ,p_value_1 => 'ERROR: Subledger Accounting Options are not defined for this ledger and application.'||
3697: 'Please run Update Subledger Accounting Options program for your application.'
3698: ,p_token_2 => 'LOCATION'
3699: ,p_value_2 => 'xla_accounting_pkg.batch_accounting');
3700: END;
3701:
3702: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
3703: trace

Line 4016: (p_location => 'xla_accounting_pkg.batch_accounting');

4012: ,p_value_1 => 'SLA'
4013: ,p_entity_id => NULL
4014: ,p_event_id => NULL);
4015: xla_exceptions_pkg.raise_message
4016: (p_location => 'xla_accounting_pkg.batch_accounting');
4017: END batch_accounting; -- end of procedure
4018:
4019:
4020: --=============================================================================

Line 4090: (p_location => 'xla_accounting_pkg.pre_accounting');

4086: ,p_value_1 => 'SLA'
4087: ,p_entity_id => NULL
4088: ,p_event_id => NULL);
4089: xla_exceptions_pkg.raise_message
4090: (p_location => 'xla_accounting_pkg.pre_accounting');
4091: END pre_accounting; -- end of procedure
4092:
4093:
4094: --=============================================================================

Line 4325: (p_location => 'xla_accounting_pkg.delete_request_je');

4321: WHEN xla_exceptions_pkg.application_exception THEN
4322: RAISE;
4323: WHEN OTHERS THEN
4324: xla_exceptions_pkg.raise_message
4325: (p_location => 'xla_accounting_pkg.delete_request_je');
4326: END delete_request_je;
4327:
4328:
4329: --=============================================================================

Line 4546: (p_location => 'xla_accounting_pkg.post_accounting');

4542: ,p_value_1 => 'SLA'
4543: ,p_entity_id => NULL
4544: ,p_event_id => NULL);
4545: xla_exceptions_pkg.raise_message
4546: (p_location => 'xla_accounting_pkg.post_accounting');
4547: END post_accounting;
4548:
4549:
4550: --=============================================================================

Line 4877: ,p_value_2 => 'xla_accounting_pkg.enqueue_messages');

4873: Please run Update Subledger Accounting Options program for your
4874: application '||'ledger_id = '||g_ledger_id||
4875: ' application_id = '|| g_application_id
4876: ,p_token_2 => 'LOCATION'
4877: ,p_value_2 => 'xla_accounting_pkg.enqueue_messages');
4878: END IF;
4879: WHEN normal_termination THEN
4880: IF csr_entity%ISOPEN THEN
4881: CLOSE csr_entity;

Line 4894: (p_location => 'xla_accounting_pkg.enqueue_messages');

4890: IF csr_entity%ISOPEN THEN
4891: CLOSE csr_entity;
4892: END IF;
4893: xla_exceptions_pkg.raise_message
4894: (p_location => 'xla_accounting_pkg.enqueue_messages');
4895: END enqueue_messages; -- end of procedure
4896:
4897: --=============================================================================
4898: --

Line 5033: (p_location => 'xla_accounting_pkg.dequeue_completion_messages');

5029: ,p_level => C_LEVEL_EXCEPTION
5030: ,p_module => l_log_module);
5031: END IF;
5032: xla_exceptions_pkg.raise_message
5033: (p_location => 'xla_accounting_pkg.dequeue_completion_messages');
5034: END dequeue_completion_messages; -- end of procedure
5035:
5036:
5037:

Line 5323: (p_location => 'xla_accounting_pkg.process_events');

5319: ,p_level => C_LEVEL_EXCEPTION
5320: ,p_module => l_log_module);
5321: END IF;
5322: xla_exceptions_pkg.raise_message
5323: (p_location => 'xla_accounting_pkg.process_events');
5324: END process_events; -- end of procedure
5325:
5326:
5327:

Line 5335: l_ep_request_ids xla_accounting_pkg.t_array_number;

5331: --
5332: --=============================================================================
5333: PROCEDURE spawn_child_processes IS
5334: PRAGMA AUTONOMOUS_TRANSACTION;
5335: l_ep_request_ids xla_accounting_pkg.t_array_number;
5336: l_log_module VARCHAR2(240);
5337: BEGIN
5338: IF g_log_enabled THEN
5339: l_log_module := C_DEFAULT_MODULE||'.spawn_child_processes';

Line 5394: ,p_value_1 => 'xla_accounting_pkg.spawn_child_processes'

5390: xla_exceptions_pkg.raise_message
5391: (p_appli_s_name => 'XLA'
5392: ,p_msg_name => 'XLA_COMMON_ERROR'
5393: ,p_token_1 => 'LOCATION'
5394: ,p_value_1 => 'xla_accounting_pkg.spawn_child_processes'
5395: ,p_token_2 => 'ERROR'
5396: ,p_value_2 => 'Technical Error : Unable to submit child requests.');
5397:
5398: END IF;

Line 5433: (p_location => 'xla_accounting_pkg.spawn_child_processes');

5429: WHEN xla_exceptions_pkg.application_exception THEN
5430: RAISE;
5431: WHEN OTHERS THEN
5432: xla_exceptions_pkg.raise_message
5433: (p_location => 'xla_accounting_pkg.spawn_child_processes');
5434: END spawn_child_processes; -- end of procedure
5435:
5436:
5437: --=============================================================================

Line 5524: (p_location => 'xla_accounting_pkg.wait_for_requests');

5520: WHEN xla_exceptions_pkg.application_exception THEN
5521: RAISE;
5522: WHEN OTHERS THEN
5523: xla_exceptions_pkg.raise_message
5524: (p_location => 'xla_accounting_pkg.wait_for_requests');
5525: END wait_for_requests; -- end of procedure
5526:
5527: --FSAH-PSFT FP
5528: --=============================================================================

Line 5605: (p_location => 'xla_accounting_pkg.wait_for_combo_edit_req');

5601: WHEN xla_exceptions_pkg.application_exception THEN
5602: RAISE;
5603: WHEN OTHERS THEN
5604: xla_exceptions_pkg.raise_message
5605: (p_location => 'xla_accounting_pkg.wait_for_combo_edit_req');
5606: END wait_for_combo_edit_req; -- end of procedure
5607: --FSAH-PSFT FP
5608:
5609:

Line 5771: (p_location => 'xla_accounting_pkg.AAD_dbase_invalid');

5767: ,p_level => C_LEVEL_EXCEPTION
5768: ,p_module => l_log_module);
5769: END IF;
5770: xla_exceptions_pkg.raise_message
5771: (p_location => 'xla_accounting_pkg.AAD_dbase_invalid');
5772:
5773: END AAD_dbase_invalid;
5774:
5775: --=============================================================================

Line 5982: (p_location => 'xla_accounting_pkg.ValidateAAD');

5978: ,p_level => C_LEVEL_EXCEPTION
5979: ,p_module => l_log_module);
5980: END IF;
5981: xla_exceptions_pkg.raise_message
5982: (p_location => 'xla_accounting_pkg.ValidateAAD');
5983: END ValidateAAD;
5984:
5985:
5986: --=============================================================================

Line 6094: (p_location => 'xla_accounting_pkg.ValidateAAD');

6090: END LOOP; -- l_array_ledgers
6091:
6092: IF l_count > 0 THEN
6093: xla_exceptions_pkg.raise_message
6094: (p_location => 'xla_accounting_pkg.ValidateAAD');
6095: END IF;
6096:
6097: IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
6098: trace

Line 6109: (p_location => 'xla_accounting_pkg.ValidateAAD');

6105: WHEN xla_exceptions_pkg.application_exception THEN
6106: RAISE;
6107: WHEN OTHERS THEN
6108: xla_exceptions_pkg.raise_message
6109: (p_location => 'xla_accounting_pkg.ValidateAAD');
6110: END ValidateAAD;
6111:
6112: --=============================================================================
6113: --

Line 6136: l_array_events xla_accounting_pkg.t_array_number;

6132: l_sqlerrm VARCHAR2(2000);
6133: l_log_module VARCHAR2(240);
6134: l_transfer_mode VARCHAR2(30);
6135:
6136: l_array_events xla_accounting_pkg.t_array_number;
6137:
6138: -------------------------------------------------------
6139: -- 4597150
6140: -------------------------------------------------------

Line 6275: ,p_value_1 => 'xla_accounting_pkg.unit_processor'

6271: xla_exceptions_pkg.raise_message
6272: (p_appli_s_name => 'XLA'
6273: ,p_msg_name => 'XLA_COMMON_ERROR'
6274: ,p_token_1 => 'LOCATION'
6275: ,p_value_1 => 'xla_accounting_pkg.unit_processor'
6276: ,p_token_2 => 'ERROR'
6277: ,p_value_2 => 'Technical Error : The parent request for this request is not running.');
6278: END IF;
6279:

Line 6333: ,p_value_1 => 'xla_accounting_pkg.unit_processor'

6329: xla_exceptions_pkg.raise_message
6330: (p_appli_s_name => 'XLA'
6331: ,p_msg_name => 'XLA_COMMON_ERROR'
6332: ,p_token_1 => 'LOCATION'
6333: ,p_value_1 => 'xla_accounting_pkg.unit_processor'
6334: ,p_token_2 => 'ERROR'
6335: ,p_value_2 => 'Technical Error : The parent request for this request is not running.');
6336: END IF;
6337: END;

Line 6492: USING xla_accounting_pkg.g_message.entity_ids

6488: END IF;
6489: END IF;
6490:
6491: OPEN lock_events_cur for l_lock_events_str
6492: USING xla_accounting_pkg.g_message.entity_ids
6493: ,g_application_id
6494: ,g_end_date
6495: ,g_accounting_mode;
6496: LOOP

Line 6717: ,p_value_1 => 'xla_accounting_pkg.pre_accounting'

6713: xla_exceptions_pkg.raise_message
6714: (p_appli_s_name => 'XLA'
6715: ,p_msg_name => 'XLA_COMMON_ERROR'
6716: ,p_token_1 => 'LOCATION'
6717: ,p_value_1 => 'xla_accounting_pkg.pre_accounting'
6718: ,p_token_2 => 'ERROR'
6719: ,p_value_2 => 'Technical Error : The parent request for this request is not running.');
6720: END IF;
6721:

Line 6845: (p_location => 'xla_accounting_pkg.unit_processor');

6841: ,l_msg_prop
6842: ,g_message
6843: ,l_msgid);
6844: xla_exceptions_pkg.raise_message
6845: (p_location => 'xla_accounting_pkg.unit_processor');
6846: END unit_processor; -- end of function
6847:
6848:
6849:

Line 6900: ,p_value_1 => 'xla_accounting_pkg.is_parent_running'

6896: xla_exceptions_pkg.raise_message
6897: (p_appli_s_name => 'XLA'
6898: ,p_msg_name => 'XLA_COMMON_ERROR'
6899: ,p_token_1 => 'LOCATION'
6900: ,p_value_1 => 'xla_accounting_pkg.is_parent_running'
6901: ,p_token_2 => 'ERROR'
6902: ,p_value_2 => 'Technical problem : FND_CONCURRENT.GET_REQUEST_STATUS returned FALSE '||
6903: 'while executing for request id '||g_parent_request_id);
6904: END IF;

Line 6932: (p_location => 'xla_accounting_pkg.is_parent_running');

6928: WHEN xla_exceptions_pkg.application_exception THEN
6929: RAISE;
6930: WHEN OTHERS THEN
6931: xla_exceptions_pkg.raise_message
6932: (p_location => 'xla_accounting_pkg.is_parent_running');
6933: END is_parent_running; -- end of procedure
6934:
6935: --=============================================================================
6936: --

Line 7004: ,p_value_1 => 'xla_accounting_pkg.is_any_child_running'

7000: xla_exceptions_pkg.raise_message
7001: (p_appli_s_name => 'XLA'
7002: ,p_msg_name => 'XLA_COMMON_ERROR'
7003: ,p_token_1 => 'LOCATION'
7004: ,p_value_1 => 'xla_accounting_pkg.is_any_child_running'
7005: ,p_token_2 => 'ERROR'
7006: ,p_value_2 => 'Technical problem : FND_CONCURRENT.GET_REQUEST_STATUS returned FALSE '||
7007: 'while executing for request id '||g_ep_request_ids(i));
7008: END IF;

Line 7053: (p_location => 'xla_accounting_pkg.is_any_child_running');

7049: WHEN xla_exceptions_pkg.application_exception THEN
7050: RAISE;
7051: WHEN OTHERS THEN
7052: xla_exceptions_pkg.raise_message
7053: (p_location => 'xla_accounting_pkg.is_any_child_running');
7054: END is_any_child_running; -- end of procedure
7055:
7056:
7057:

Line 7195: ,p_value_1 => 'xla_accounting_pkg.sequencing_batch_init'

7191: xla_exceptions_pkg.raise_message
7192: (p_appli_s_name => 'XLA'
7193: ,p_msg_name => 'XLA_COMMON_ERROR'
7194: ,p_token_1 => 'LOCATION'
7195: ,p_value_1 => 'xla_accounting_pkg.sequencing_batch_init'
7196: ,p_token_2 => 'ERROR'
7197: ,p_value_2 => 'Technical problem : Problem encountered in sequencing BATCH_INIT.'||
7198: xla_environment_pkg.g_chr_newline||
7199: l_sqlerrm);

Line 7217: (p_location => 'xla_accounting_pkg.sequencing_batch_init');

7213: WHEN xla_exceptions_pkg.application_exception THEN
7214: RAISE;
7215: WHEN OTHERS THEN
7216: xla_exceptions_pkg.raise_message
7217: (p_location => 'xla_accounting_pkg.sequencing_batch_init');
7218: END sequencing_batch_init; -- end of procedure
7219:
7220:
7221: --=============================================================================

Line 7543: (p_location => 'xla_accounting_pkg.events_processor');

7539: WHEN xla_exceptions_pkg.application_exception THEN
7540: RAISE;
7541: WHEN OTHERS THEN
7542: xla_exceptions_pkg.raise_message
7543: (p_location => 'xla_accounting_pkg.events_processor');
7544: END events_processor; -- end of procedure
7545:
7546: --=============================================================================
7547: --

Line 7746: (p_location => 'xla_accounting_pkg.delete_batch_je');

7742: WHEN xla_exceptions_pkg.application_exception THEN
7743: RAISE;
7744: WHEN OTHERS THEN
7745: xla_exceptions_pkg.raise_message
7746: (p_location => 'xla_accounting_pkg.delete_batch_je');
7747: END delete_batch_je;
7748:
7749:
7750: --=============================================================================

Line 7885: ,p_value_1 => 'xla_accounting_pkg.complete_entries'

7881: xla_exceptions_pkg.raise_message
7882: (p_appli_s_name => 'XLA'
7883: ,p_msg_name => 'XLA_COMMON_ERROR'
7884: ,p_token_1 => 'LOCATION'
7885: ,p_value_1 => 'xla_accounting_pkg.complete_entries'
7886: ,p_token_2 => 'ERROR'
7887: ,p_value_2 => 'Technical problem : Problem encountered in sequencing POPULATE_ACCT_SEQ_INFO.'||
7888: xla_environment_pkg.g_chr_newline||
7889: l_sqlerrm);

Line 7989: ,p_value_1 => 'xla_accounting_pkg.complete_entries'

7985: xla_exceptions_pkg.raise_message
7986: (p_appli_s_name => 'XLA'
7987: ,p_msg_name => 'XLA_COMMON_ERROR'
7988: ,p_token_1 => 'LOCATION'
7989: ,p_value_1 => 'xla_accounting_pkg.complete_entries'
7990: ,p_token_2 => 'ERROR'
7991: ,p_value_2 => 'Technical problem : Problem encountered in sequencing GET_SEQUENCE_NUMBER.'||
7992: xla_environment_pkg.g_chr_newline||
7993: l_sqlerrm);

Line 8158: (p_location => 'xla_accounting_pkg.complete_entries');

8154: WHEN xla_exceptions_pkg.application_exception THEN
8155: RAISE;
8156: WHEN OTHERS THEN
8157: xla_exceptions_pkg.raise_message
8158: (p_location => 'xla_accounting_pkg.complete_entries');
8159: END complete_entries; -- end of procedure
8160:
8161:
8162: --------------------------------------------------------------------------------

Line 8328: wf_core.CONTEXT('xla_accounting_pkg','raise_accounting_event',x_progress);

8324: END IF;
8325:
8326: EXCEPTION
8327: WHEN others THEN
8328: wf_core.CONTEXT('xla_accounting_pkg','raise_accounting_event',x_progress);
8329: RAISE;
8330:
8331: END raise_accounting_event;
8332:

Line 8403: wf_core.CONTEXT('xla_accounting_pkg','raise_unit_event',x_progress);

8399: END IF;
8400:
8401: EXCEPTION
8402: WHEN others THEN
8403: wf_core.CONTEXT('xla_accounting_pkg','raise_unit_event',x_progress);
8404: RAISE;
8405:
8406: END raise_unit_event;
8407:

Line 8730: ,p_value_1 => 'xla_accounting_pkg.handle_accounting_hook'

8726: xla_exceptions_pkg.raise_message
8727: (p_appli_s_name => 'XLA'
8728: ,p_msg_name => 'XLA_COMMON_ERROR'
8729: ,p_token_1 => 'LOCATION'
8730: ,p_value_1 => 'xla_accounting_pkg.handle_accounting_hook'
8731: ,p_token_2 => 'ERROR'
8732: ,p_value_2 => 'Technical problem : Exception encounterd while raising '||
8733: 'busniess event for '||p_event_name||
8734: xla_environment_pkg.g_chr_newline||l_sqlerrm);

Line 8824: END xla_accounting_pkg;

8820: END IF;
8821:
8822: g_conc_hold := fnd_profile.value('CONC_HOLD');
8823:
8824: END xla_accounting_pkg;