DBA Data[Home] [Help]

APPS.XLA_THIRD_PARTY_MERGE dependencies on XLA_THIRD_PARTY_MERGE

Line 1: PACKAGE BODY XLA_THIRD_PARTY_MERGE AS

1: PACKAGE BODY XLA_THIRD_PARTY_MERGE AS
2: -- $Header: xlamerge.pkb 120.17 2007/03/07 23:00:36 weshen noship $
3: /*===========================================================================+
4: | Copyright (c) 2005 Oracle Corporation |
5: | Redwood Shores, CA, USA |

Line 12: | xla_third_party_merge |

8: | FILENAME |
9: | xlamerge.pkb |
10: | |
11: | PACKAGE NAME |
12: | xla_third_party_merge |
13: | |
14: | DESCRIPTION |
15: | This is a XLA private package, which contains all the APIs required for |
16: | creating Third Party Merge events. |

Line 18: | The public wrapper called xla_third_party_merge_pub, is built based on |

14: | DESCRIPTION |
15: | This is a XLA private package, which contains all the APIs required for |
16: | creating Third Party Merge events. |
17: | |
18: | The public wrapper called xla_third_party_merge_pub, is built based on |
19: | this package. |
20: | |
21: | Note: |
22: | - the APIs may perform ROLLBACK for what changes they have made |

Line 52: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_third_party_merge';

48: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
49: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
50: C_BULK_LIMIT CONSTANT NUMBER := 3000;
51: C_WORK_UNIT CONSTANT NUMBER := 2000;
52: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_third_party_merge';
53:
54: C_CREATED CONSTANT VARCHAR2(8) :='CREATED';
55:
56: g_debug_flag VARCHAR2(1) := NVL( fnd_profile.value('XLA_DEBUG_TRACE')

Line 137: , x_event_ids OUT NOCOPY xla_third_party_merge_pub.t_event_ids

133: -- ----------------------------------------------------------------------------
134: PROCEDURE third_party_merge
135: ( x_errbuf OUT NOCOPY VARCHAR2
136: , x_retcode OUT NOCOPY VARCHAR2
137: , x_event_ids OUT NOCOPY xla_third_party_merge_pub.t_event_ids
138: , x_request_id OUT NOCOPY INTEGER
139: , p_source_application_id IN INTEGER DEFAULT NULL
140: , p_application_id IN INTEGER
141: , p_ledger_id IN INTEGER DEFAULT NULL

Line 197: v_function := 'xla_third_party_merge.third_party_merge';

193:
194: -- --------------------------
195: -- Initialize local variables
196: -- --------------------------
197: v_function := 'xla_third_party_merge.third_party_merge';
198: v_module := C_DEFAULT_MODULE||'.third_party_merge';
199: v_rollback_flag := 'N';
200: v_event_count := 0;
201: v_access_count := 0;

Line 893: trace( p_msg => 'Call xla_third_party_merge.create_accounting()'

889: IF (p_execution_mode = 'SYNC')
890: THEN
891: -- If the execution mode is 'SYNC', call API to create accounting for just
892: -- create third party merge events
893: trace( p_msg => 'Call xla_third_party_merge.create_accounting()'
894: , p_level => C_LEVEL_STATEMENT
895: , p_module => v_module);
896: xla_third_party_merge.create_accounting
897: ( x_errbuf => x_errbuf

Line 896: xla_third_party_merge.create_accounting

892: -- create third party merge events
893: trace( p_msg => 'Call xla_third_party_merge.create_accounting()'
894: , p_level => C_LEVEL_STATEMENT
895: , p_module => v_module);
896: xla_third_party_merge.create_accounting
897: ( x_errbuf => x_errbuf
898: , x_retcode => x_retcode
899: , p_application_id => p_application_id
900: , p_event_id => v_event_id

Line 908: IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_ERROR OR

904: , p_merge_event_set_id => v_merge_event_set_id
905: , p_srs_flag => 'N');
906:
907: -- If the return code is 'E' or 'U', raise AccountingError exception
908: IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_ERROR OR
909: x_retcode = xla_third_party_merge_pub.G_RET_STS_UNEXP_ERROR)
910: THEN
911: RAISE AccountingError;
912: END IF; -- IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_ERROR ...

Line 909: x_retcode = xla_third_party_merge_pub.G_RET_STS_UNEXP_ERROR)

905: , p_srs_flag => 'N');
906:
907: -- If the return code is 'E' or 'U', raise AccountingError exception
908: IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_ERROR OR
909: x_retcode = xla_third_party_merge_pub.G_RET_STS_UNEXP_ERROR)
910: THEN
911: RAISE AccountingError;
912: END IF; -- IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_ERROR ...
913:

Line 912: END IF; -- IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_ERROR ...

908: IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_ERROR OR
909: x_retcode = xla_third_party_merge_pub.G_RET_STS_UNEXP_ERROR)
910: THEN
911: RAISE AccountingError;
912: END IF; -- IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_ERROR ...
913:
914: ELSIF (p_execution_mode = 'ASYNC_REQ')
915: THEN
916: -- If the execution mode is 'ASYNC_REQ', call API to submit the concurrent

Line 938: x_retcode := xla_third_party_merge_pub.G_RET_STS_SUCCESS;

934:
935: END IF; -- IF (v_access_count > 0)
936:
937: -- Set the return code to 'S'
938: x_retcode := xla_third_party_merge_pub.G_RET_STS_SUCCESS;
939:
940: -- Log the out parameters, their returned values and the function exit
941: IF (C_LEVEL_PROCEDURE >= g_log_level)
942: THEN

Line 972: x_retcode := xla_third_party_merge_pub.G_RET_STS_ERROR;

968: , p_token_1 => 'FUNCTION'
969: , p_value_1 => v_function
970: , p_token_2 => 'ERROR'
971: , p_value_2 => v_message);
972: x_retcode := xla_third_party_merge_pub.G_RET_STS_ERROR;
973: -- Log the out parameters, their returned values and the function exit
974: IF (C_LEVEL_PROCEDURE >= g_log_level)
975: THEN
976: trace( p_msg => 'x_retcode = ' || x_retcode

Line 1029: x_retcode := xla_third_party_merge_pub.G_RET_STS_UNEXP_ERROR;

1025: , p_token_1 => 'FUNCTION'
1026: , p_value_1 => v_function
1027: , p_token_2 => 'ERROR'
1028: , p_value_2 => v_message);
1029: x_retcode := xla_third_party_merge_pub.G_RET_STS_UNEXP_ERROR;
1030: -- Log the out parameters, their returned values and the function exit
1031: IF (C_LEVEL_PROCEDURE >= g_log_level)
1032: THEN
1033: trace( p_msg => 'x_retcode = ' || x_retcode

Line 1488: (p_location => 'XLA_THIRD_PARTY_MERGE.get_line_number');

1484: WHEN xla_exceptions_pkg.application_exception THEN
1485: RAISE;
1486: WHEN OTHERS THEN
1487: xla_exceptions_pkg.raise_message
1488: (p_location => 'XLA_THIRD_PARTY_MERGE.get_line_number');
1489: END get_line_number;
1490:
1491: PROCEDURE insert_headers(
1492: p_batch_id IN NUMBER

Line 1500: v_function := 'xla_third_party_merge.insert_headers';

1496: IS
1497: v_function VARCHAR2(240);
1498: v_module VARCHAR2(240);
1499: BEGIN
1500: v_function := 'xla_third_party_merge.insert_headers';
1501: v_module := C_DEFAULT_MODULE||'.insert_headers';
1502: IF (C_LEVEL_PROCEDURE >= g_log_level)
1503: THEN
1504: trace( p_msg => 'BEGIN - ' || v_function

Line 1608: v_function := 'xla_third_party_merge.insert_links';

1604: IS
1605: v_function VARCHAR2(240);
1606: v_module VARCHAR2(240);
1607: BEGIN
1608: v_function := 'xla_third_party_merge.insert_links';
1609: v_module := C_DEFAULT_MODULE||'.insert_links';
1610: IF (C_LEVEL_PROCEDURE >= g_log_level)
1611: THEN
1612: trace( p_msg => 'BEGIN - ' || v_function

Line 1724: v_function := 'xla_third_party_merge.insert_lines';

1720:
1721: v_function VARCHAR2(240);
1722: v_module VARCHAR2(240);
1723: BEGIN
1724: v_function := 'xla_third_party_merge.insert_lines';
1725: v_module := C_DEFAULT_MODULE||'.insert_lines';
1726: IF (C_LEVEL_PROCEDURE >= g_log_level)
1727: THEN
1728: trace( p_msg => 'BEGIN - ' || v_function

Line 2323: v_function := 'xla_third_party_merge.get_accounting_date';

2319: v_gl_date date := null;
2320: v_gl_period_name VARCHAR2(30) := null;
2321: v_entry_status VARCHAR2(1) := 'F';
2322: BEGIN
2323: v_function := 'xla_third_party_merge.get_accounting_date';
2324: v_module := C_DEFAULT_MODULE||'.get_accounting_date';
2325: IF (C_LEVEL_PROCEDURE >= g_log_level)
2326: THEN
2327: trace( p_msg => 'BEGIN - ' || v_function

Line 2436: v_function := 'xla_third_party_merge.create_work_table';

2432: v_last_request_id NUMBER := null;
2433: v_function VARCHAR2(240);
2434: v_module VARCHAR2(240);
2435: begin
2436: v_function := 'xla_third_party_merge.create_work_table';
2437: v_module := C_DEFAULT_MODULE||'.create_work_table';
2438:
2439: -- Log the function entry, the passed parameters and their values
2440: IF (C_LEVEL_PROCEDURE >= g_log_level)

Line 2667: v_function := 'xla_third_party_merge.create_balance_transfer_aes';

2663: v_row_count INTEGER:=0;
2664: v_total_row_count INTEGER:=0;
2665: v_gl_date_flag VARCHAR2(1) :='N';
2666: begin
2667: v_function := 'xla_third_party_merge.create_balance_transfer_aes';
2668: v_module := C_DEFAULT_MODULE||'.create_balance_transfer_aes';
2669:
2670: -- Log the function entry, the passed parameters and their values
2671: IF (C_LEVEL_PROCEDURE >= g_log_level)

Line 3141: v_function := 'xla_third_party_merge.create_reverse_rebooking_aes';

3137: v_row_count INTEGER:=0;
3138: v_total_row_count INTEGER:=0;
3139: v_gl_date_flag VARCHAR2(1) :='N';
3140: begin
3141: v_function := 'xla_third_party_merge.create_reverse_rebooking_aes';
3142: v_module := C_DEFAULT_MODULE||'.create_reverse_rebooking_aes';
3143:
3144: -- Log the function entry, the passed parameters and their values
3145: IF (C_LEVEL_PROCEDURE >= g_log_level)

Line 3602: v_function := 'xla_third_party_merge.create_journal_entries';

3598: v_array_merge_option t_varchar30_array;
3599: v_array_submit_transfer t_varchar1_array;
3600: l_count NUMBER :=0;
3601: begin
3602: v_function := 'xla_third_party_merge.create_journal_entries';
3603: v_module := C_DEFAULT_MODULE||'.create_journal_entries';
3604:
3605: -- Log the function entry, the passed parameters and their values
3606: IF (C_LEVEL_PROCEDURE >= g_log_level)

Line 3849: v_function := 'xla_third_party_merge.update_journal_entries';

3845:
3846: v_aeh_desc VARCHAR2(1996);
3847:
3848: begin
3849: v_function := 'xla_third_party_merge.update_journal_entries';
3850: v_module := C_DEFAULT_MODULE||'.update_journal_entries';
3851:
3852: -- Log the function entry, the passed parameters and their values
3853: IF (C_LEVEL_PROCEDURE >= g_log_level)

Line 4224: v_function := 'xla_third_party_merge.populate_ccid_to_gt';

4220: from xla_ae_lines_gt
4221: where code_combination_id is null;
4222: v_temp NUMBER;
4223: begin
4224: v_function := 'xla_third_party_merge.populate_ccid_to_gt';
4225: v_module := C_DEFAULT_MODULE||'.populate_ccid_to_gt';
4226:
4227: -- Log the function entry, the passed parameters and their values
4228: IF (C_LEVEL_PROCEDURE >= g_log_level)

Line 4358: v_function := 'xla_third_party_merge.process_accounting_mapping';

4354: from xla_ae_lines_gt
4355: where code_combination_id is null;
4356: v_temp NUMBER;
4357: begin
4358: v_function := 'xla_third_party_merge.process_accounting_mapping';
4359: v_module := C_DEFAULT_MODULE||'.process_accounting_mapping';
4360:
4361: -- Log the function entry, the passed parameters and their values
4362: IF (C_LEVEL_PROCEDURE >= g_log_level)

Line 4572: v_function := 'xla_third_party_merge.populate_gt_for_mapping';

4568: v_row_count NUMBER;
4569:
4570: BEGIN
4571:
4572: v_function := 'xla_third_party_merge.populate_gt_for_mapping';
4573: v_module := C_DEFAULT_MODULE||'.populate_gt_for_mapping';
4574:
4575: -- Log the function entry, the passed parameters and their values
4576: IF (C_LEVEL_PROCEDURE >= g_log_level)

Line 4911: v_function := 'xla_third_party_merge.process_incomplete_acct_map';

4907: from xla_ae_lines_gt
4908: where code_combination_id is null;
4909: v_row_count NUMBER;
4910: begin
4911: v_function := 'xla_third_party_merge.process_incomplete_acct_map';
4912: v_module := C_DEFAULT_MODULE||'.process_incomplete_acct_map';
4913:
4914: -- Log the function entry, the passed parameters and their values
4915: IF (C_LEVEL_PROCEDURE >= g_log_level)

Line 5002: v_function := 'xla_third_party_merge.generate_headers';

4998: v_function VARCHAR2(240);
4999: v_module VARCHAR2(240);
5000: v_query_str VARCHAR2(2000);
5001: begin
5002: v_function := 'xla_third_party_merge.generate_headers';
5003: v_module := C_DEFAULT_MODULE||'.generate_headers';
5004:
5005: -- Log the function entry, the passed parameters and their values
5006: IF (C_LEVEL_PROCEDURE >= g_log_level)

Line 5283: v_function := 'xla_third_party_merge.create_accounting';

5279: BEGIN
5280: -- --------------------------
5281: -- Initialize local variables
5282: -- --------------------------
5283: v_function := 'xla_third_party_merge.create_accounting';
5284: v_module := C_DEFAULT_MODULE||'.create_accounting';
5285: v_event_merge_option := 'NONE';
5286: v_processed_event_count := 0;
5287:

Line 5765: x_retcode := xla_third_party_merge_pub.G_RET_STS_ERROR;

5761: trace( p_msg => v_message
5762: , p_level => C_LEVEL_ERROR
5763: , p_module => v_module);
5764: -- Set return code to 'E'
5765: x_retcode := xla_third_party_merge_pub.G_RET_STS_ERROR;
5766: ELSE
5767: x_retcode := xla_third_party_merge_pub.G_RET_STS_SUCCESS;
5768: trace( p_msg => 'RETURN SUCCESS'
5769: , p_level => C_LEVEL_ERROR

Line 5767: x_retcode := xla_third_party_merge_pub.G_RET_STS_SUCCESS;

5763: , p_module => v_module);
5764: -- Set return code to 'E'
5765: x_retcode := xla_third_party_merge_pub.G_RET_STS_ERROR;
5766: ELSE
5767: x_retcode := xla_third_party_merge_pub.G_RET_STS_SUCCESS;
5768: trace( p_msg => 'RETURN SUCCESS'
5769: , p_level => C_LEVEL_ERROR
5770: , p_module => v_module);
5771:

Line 5781: IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_SUCCESS)

5777: trace( p_msg => 'x_retcode = ' || x_retcode
5778: || ', x_errbuf = ' || x_errbuf
5779: , p_level => C_LEVEL_PROCEDURE
5780: , p_module => v_module);
5781: IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_SUCCESS)
5782: THEN
5783: trace( p_msg => 'END - ' || v_function
5784: , p_level => C_LEVEL_PROCEDURE
5785: , p_module => v_module);

Line 5790: END IF; -- IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_SUCCESS)

5786: ELSE
5787: trace( p_msg => 'EXIT with ERROR - ' || v_function
5788: , p_level => C_LEVEL_PROCEDURE
5789: , p_module => v_module);
5790: END IF; -- IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_SUCCESS)
5791:
5792: END IF; -- IF (C_LEVEL_PROCEDURE >= g_log_level)
5793:
5794: EXCEPTION

Line 5807: x_retcode := xla_third_party_merge_pub.G_RET_STS_ERROR;

5803: , p_level => C_LEVEL_PROCEDURE
5804: , p_module => v_module);
5805: END IF; -- IF (C_LEVEL_PROCEDURE >= g_log_level)
5806: x_errbuf := 'No accounting date can be found';
5807: x_retcode := xla_third_party_merge_pub.G_RET_STS_ERROR;
5808: WHEN ValidationError THEN
5809: -- Log the error message
5810: trace( p_msg => v_message
5811: , p_level => C_LEVEL_ERROR

Line 5821: x_retcode := xla_third_party_merge_pub.G_RET_STS_ERROR;

5817: , p_token_1 => 'FUNCTION'
5818: , p_value_1 => v_function
5819: , p_token_2 => 'ERROR'
5820: , p_value_2 => v_message);
5821: x_retcode := xla_third_party_merge_pub.G_RET_STS_ERROR;
5822: -- Log the out parameters, their returned values and function exit
5823: IF (C_LEVEL_PROCEDURE >= g_log_level)
5824: THEN
5825: trace( p_msg => 'x_retcode = ' || x_retcode

Line 5852: x_retcode := xla_third_party_merge_pub.G_RET_STS_WARN;

5848: -- Set the return code to 'W' if any event is processed and it doesn't have
5849: -- merge event set; else, set it to 'U'
5850: IF (p_merge_event_set_id IS NULL AND v_processed_event_count > 0)
5851: THEN
5852: x_retcode := xla_third_party_merge_pub.G_RET_STS_WARN;
5853: ELSE
5854: x_retcode := xla_third_party_merge_pub.G_RET_STS_UNEXP_ERROR;
5855: END IF; -- IF (p_merge_event_set_id IS NULL AND v_processed_event_count > 0)
5856: -- Log the out parameters, their returned values and function exit

Line 5854: x_retcode := xla_third_party_merge_pub.G_RET_STS_UNEXP_ERROR;

5850: IF (p_merge_event_set_id IS NULL AND v_processed_event_count > 0)
5851: THEN
5852: x_retcode := xla_third_party_merge_pub.G_RET_STS_WARN;
5853: ELSE
5854: x_retcode := xla_third_party_merge_pub.G_RET_STS_UNEXP_ERROR;
5855: END IF; -- IF (p_merge_event_set_id IS NULL AND v_processed_event_count > 0)
5856: -- Log the out parameters, their returned values and function exit
5857: IF (C_LEVEL_PROCEDURE >= g_log_level)
5858: THEN

Line 5863: IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_UNEXP_ERROR)

5859: trace( p_msg => 'x_retcode = ' || x_retcode
5860: || ', x_errbuf = ' || x_errbuf
5861: , p_level => C_LEVEL_PROCEDURE
5862: , p_module => v_module);
5863: IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_UNEXP_ERROR)
5864: THEN
5865: trace( p_msg => 'EXIT with ERROR - ' || v_function
5866: , p_level => C_LEVEL_PROCEDURE
5867: , p_module => v_module);

Line 5992: (p_location => 'xla_third_party_merge.delete_je');

5988: WHEN xla_exceptions_pkg.application_exception THEN
5989: RAISE;
5990: WHEN OTHERS THEN
5991: xla_exceptions_pkg.raise_message
5992: (p_location => 'xla_third_party_merge.delete_je');
5993: END delete_je;
5994:
5995:
5996:

Line 6010: END xla_third_party_merge;

6006: THEN
6007: g_log_level := C_LEVEL_LOG_DISABLED;
6008: END IF;
6009:
6010: END xla_third_party_merge;