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.25.12020000.6 2013/05/07 10:34:55 vkanteti ship $
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 54: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_third_party_merge';

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

Line 139: , x_event_ids OUT NOCOPY xla_third_party_merge_pub.t_event_ids

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

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

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

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

899: IF (p_execution_mode = 'SYNC')
900: THEN
901: -- If the execution mode is 'SYNC', call API to create accounting for just
902: -- create third party merge events
903: trace( p_msg => 'Call xla_third_party_merge.create_accounting()'
904: , p_level => C_LEVEL_STATEMENT
905: , p_module => v_module);
906: xla_third_party_merge.create_accounting
907: ( x_errbuf => x_errbuf

Line 906: xla_third_party_merge.create_accounting

902: -- create third party merge events
903: trace( p_msg => 'Call xla_third_party_merge.create_accounting()'
904: , p_level => C_LEVEL_STATEMENT
905: , p_module => v_module);
906: xla_third_party_merge.create_accounting
907: ( x_errbuf => x_errbuf
908: , x_retcode => x_retcode
909: , p_application_id => p_application_id
910: , p_event_id => v_event_id

Line 918: IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_ERROR OR

914: , p_merge_event_set_id => v_merge_event_set_id
915: , p_srs_flag => 'N');
916:
917: -- If the return code is 'E' or 'U', raise AccountingError exception
918: IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_ERROR OR
919: x_retcode = xla_third_party_merge_pub.G_RET_STS_UNEXP_ERROR)
920: THEN
921: RAISE AccountingError;
922: END IF; -- IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_ERROR ...

Line 919: x_retcode = xla_third_party_merge_pub.G_RET_STS_UNEXP_ERROR)

915: , p_srs_flag => 'N');
916:
917: -- If the return code is 'E' or 'U', raise AccountingError exception
918: IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_ERROR OR
919: x_retcode = xla_third_party_merge_pub.G_RET_STS_UNEXP_ERROR)
920: THEN
921: RAISE AccountingError;
922: END IF; -- IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_ERROR ...
923:

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

918: IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_ERROR OR
919: x_retcode = xla_third_party_merge_pub.G_RET_STS_UNEXP_ERROR)
920: THEN
921: RAISE AccountingError;
922: END IF; -- IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_ERROR ...
923:
924: ELSIF (p_execution_mode = 'ASYNC_REQ')
925: THEN
926: -- If the execution mode is 'ASYNC_REQ', call API to submit the concurrent

Line 948: x_retcode := xla_third_party_merge_pub.G_RET_STS_SUCCESS;

944:
945: END IF; -- IF (v_access_count > 0)
946:
947: -- Set the return code to 'S'
948: x_retcode := xla_third_party_merge_pub.G_RET_STS_SUCCESS;
949:
950: -- Log the out parameters, their returned values and the function exit
951: IF (C_LEVEL_PROCEDURE >= g_log_level)
952: THEN

Line 982: x_retcode := xla_third_party_merge_pub.G_RET_STS_ERROR;

978: , p_token_1 => 'FUNCTION'
979: , p_value_1 => v_function
980: , p_token_2 => 'ERROR'
981: , p_value_2 => v_message);
982: x_retcode := xla_third_party_merge_pub.G_RET_STS_ERROR;
983: -- Log the out parameters, their returned values and the function exit
984: IF (C_LEVEL_PROCEDURE >= g_log_level)
985: THEN
986: trace( p_msg => 'x_retcode = ' || x_retcode

Line 1039: x_retcode := xla_third_party_merge_pub.G_RET_STS_UNEXP_ERROR;

1035: , p_token_1 => 'FUNCTION'
1036: , p_value_1 => v_function
1037: , p_token_2 => 'ERROR'
1038: , p_value_2 => v_message);
1039: x_retcode := xla_third_party_merge_pub.G_RET_STS_UNEXP_ERROR;
1040: -- Log the out parameters, their returned values and the function exit
1041: IF (C_LEVEL_PROCEDURE >= g_log_level)
1042: THEN
1043: trace( p_msg => 'x_retcode = ' || x_retcode

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

1498: WHEN xla_exceptions_pkg.application_exception THEN
1499: RAISE;
1500: WHEN OTHERS THEN
1501: xla_exceptions_pkg.raise_message
1502: (p_location => 'XLA_THIRD_PARTY_MERGE.get_line_number');
1503: END get_line_number;
1504:
1505: PROCEDURE insert_headers(
1506: p_batch_id IN NUMBER

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

1510: IS
1511: v_function VARCHAR2(240);
1512: v_module VARCHAR2(240);
1513: BEGIN
1514: v_function := 'xla_third_party_merge.insert_headers';
1515: v_module := C_DEFAULT_MODULE||'.insert_headers';
1516: IF (C_LEVEL_PROCEDURE >= g_log_level)
1517: THEN
1518: trace( p_msg => 'BEGIN - ' || v_function

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

1618: IS
1619: v_function VARCHAR2(240);
1620: v_module VARCHAR2(240);
1621: BEGIN
1622: v_function := 'xla_third_party_merge.insert_links';
1623: v_module := C_DEFAULT_MODULE||'.insert_links';
1624: IF (C_LEVEL_PROCEDURE >= g_log_level)
1625: THEN
1626: trace( p_msg => 'BEGIN - ' || v_function

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

1734:
1735: v_function VARCHAR2(240);
1736: v_module VARCHAR2(240);
1737: BEGIN
1738: v_function := 'xla_third_party_merge.insert_lines';
1739: v_module := C_DEFAULT_MODULE||'.insert_lines';
1740: IF (C_LEVEL_PROCEDURE >= g_log_level)
1741: THEN
1742: trace( p_msg => 'BEGIN - ' || v_function

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

2333: v_gl_date date := null;
2334: v_gl_period_name VARCHAR2(30) := null;
2335: v_entry_status VARCHAR2(1) := 'F';
2336: BEGIN
2337: v_function := 'xla_third_party_merge.get_accounting_date';
2338: v_module := C_DEFAULT_MODULE||'.get_accounting_date';
2339: IF (C_LEVEL_PROCEDURE >= g_log_level)
2340: THEN
2341: trace( p_msg => 'BEGIN - ' || v_function

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

2450: v_last_request_id NUMBER := null;
2451: v_function VARCHAR2(240);
2452: v_module VARCHAR2(240);
2453: begin
2454: v_function := 'xla_third_party_merge.create_work_table';
2455: v_module := C_DEFAULT_MODULE||'.create_work_table';
2456:
2457: -- Log the function entry, the passed parameters and their values
2458: IF (C_LEVEL_PROCEDURE >= g_log_level)

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

2681: v_row_count INTEGER:=0;
2682: v_total_row_count INTEGER:=0;
2683: v_gl_date_flag VARCHAR2(1) :='N';
2684: begin
2685: v_function := 'xla_third_party_merge.create_balance_transfer_aes';
2686: v_module := C_DEFAULT_MODULE||'.create_balance_transfer_aes';
2687:
2688: -- Log the function entry, the passed parameters and their values
2689: IF (C_LEVEL_PROCEDURE >= g_log_level)

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

3155: v_row_count INTEGER:=0;
3156: v_total_row_count INTEGER:=0;
3157: v_gl_date_flag VARCHAR2(1) :='N';
3158: begin
3159: v_function := 'xla_third_party_merge.create_reverse_rebooking_aes';
3160: v_module := C_DEFAULT_MODULE||'.create_reverse_rebooking_aes';
3161:
3162: -- Log the function entry, the passed parameters and their values
3163: IF (C_LEVEL_PROCEDURE >= g_log_level)

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

3616: v_array_merge_option t_varchar30_array;
3617: v_array_submit_transfer t_varchar1_array;
3618: l_count NUMBER :=0;
3619: begin
3620: v_function := 'xla_third_party_merge.create_journal_entries';
3621: v_module := C_DEFAULT_MODULE||'.create_journal_entries';
3622:
3623: -- Log the function entry, the passed parameters and their values
3624: IF (C_LEVEL_PROCEDURE >= g_log_level)

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

3890:
3891: v_aeh_desc VARCHAR2(1996);
3892:
3893: begin
3894: v_function := 'xla_third_party_merge.update_journal_entries';
3895: v_module := C_DEFAULT_MODULE||'.update_journal_entries';
3896:
3897: -- Log the function entry, the passed parameters and their values
3898: IF (C_LEVEL_PROCEDURE >= g_log_level)

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

4265: from xla_ae_lines_gt
4266: where code_combination_id is null;
4267: v_temp NUMBER;
4268: begin
4269: v_function := 'xla_third_party_merge.populate_ccid_to_gt';
4270: v_module := C_DEFAULT_MODULE||'.populate_ccid_to_gt';
4271:
4272: -- Log the function entry, the passed parameters and their values
4273: IF (C_LEVEL_PROCEDURE >= g_log_level)

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

4399: from xla_ae_lines_gt
4400: where code_combination_id is null;
4401: v_temp NUMBER;
4402: begin
4403: v_function := 'xla_third_party_merge.process_accounting_mapping';
4404: v_module := C_DEFAULT_MODULE||'.process_accounting_mapping';
4405:
4406: -- Log the function entry, the passed parameters and their values
4407: IF (C_LEVEL_PROCEDURE >= g_log_level)

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

4613: v_row_count NUMBER;
4614:
4615: BEGIN
4616:
4617: v_function := 'xla_third_party_merge.populate_gt_for_mapping';
4618: v_module := C_DEFAULT_MODULE||'.populate_gt_for_mapping';
4619:
4620: -- Log the function entry, the passed parameters and their values
4621: IF (C_LEVEL_PROCEDURE >= g_log_level)

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

4952: from xla_ae_lines_gt
4953: where code_combination_id is null;
4954: v_row_count NUMBER;
4955: begin
4956: v_function := 'xla_third_party_merge.process_incomplete_acct_map';
4957: v_module := C_DEFAULT_MODULE||'.process_incomplete_acct_map';
4958:
4959: -- Log the function entry, the passed parameters and their values
4960: IF (C_LEVEL_PROCEDURE >= g_log_level)

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

5043: v_function VARCHAR2(240);
5044: v_module VARCHAR2(240);
5045: v_query_str VARCHAR2(2000);
5046: begin
5047: v_function := 'xla_third_party_merge.generate_headers';
5048: v_module := C_DEFAULT_MODULE||'.generate_headers';
5049:
5050: -- Log the function entry, the passed parameters and their values
5051: IF (C_LEVEL_PROCEDURE >= g_log_level)

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

5342: BEGIN
5343: -- --------------------------
5344: -- Initialize local variables
5345: -- --------------------------
5346: v_function := 'xla_third_party_merge.create_accounting';
5347: v_module := C_DEFAULT_MODULE||'.create_accounting';
5348: v_event_merge_option := 'NONE';
5349: v_processed_event_count := 0;
5350:

Line 6000: /*x_retcode := xla_third_party_merge_pub.G_RET_STS_ERROR;

5996: printed in the log file saying that there are no third party
5997: events to be processed */
5998:
5999:
6000: /*x_retcode := xla_third_party_merge_pub.G_RET_STS_ERROR;
6001: ELSE*/
6002:
6003: x_retcode := xla_third_party_merge_pub.G_RET_STS_SUCCESS;
6004:

Line 6003: x_retcode := xla_third_party_merge_pub.G_RET_STS_SUCCESS;

5999:
6000: /*x_retcode := xla_third_party_merge_pub.G_RET_STS_ERROR;
6001: ELSE*/
6002:
6003: x_retcode := xla_third_party_merge_pub.G_RET_STS_SUCCESS;
6004:
6005: trace( p_msg => 'RETURN SUCCESS'
6006: , p_level => C_LEVEL_ERROR
6007: , p_module => v_module);

Line 6018: IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_SUCCESS)

6014: trace( p_msg => 'x_retcode = ' || x_retcode
6015: || ', x_errbuf = ' || x_errbuf
6016: , p_level => C_LEVEL_PROCEDURE
6017: , p_module => v_module);
6018: IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_SUCCESS)
6019: THEN
6020: trace( p_msg => 'END - ' || v_function
6021: , p_level => C_LEVEL_PROCEDURE
6022: , p_module => v_module);

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

6024: --ELSE
6025: --trace( p_msg => 'EXIT with ERROR - ' || v_function
6026: --, p_level => C_LEVEL_PROCEDURE
6027: --, p_module => v_module);
6028: END IF; -- IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_SUCCESS)
6029:
6030: END IF; -- IF (C_LEVEL_PROCEDURE >= g_log_level)
6031:
6032: EXCEPTION

Line 6045: x_retcode := xla_third_party_merge_pub.G_RET_STS_ERROR;

6041: , p_level => C_LEVEL_PROCEDURE
6042: , p_module => v_module);
6043: END IF; -- IF (C_LEVEL_PROCEDURE >= g_log_level)
6044: x_errbuf := 'No accounting date can be found';
6045: x_retcode := xla_third_party_merge_pub.G_RET_STS_ERROR;
6046: WHEN ValidationError THEN
6047: -- Log the error message
6048: trace( p_msg => v_message
6049: , p_level => C_LEVEL_ERROR

Line 6059: x_retcode := xla_third_party_merge_pub.G_RET_STS_ERROR;

6055: , p_token_1 => 'FUNCTION'
6056: , p_value_1 => v_function
6057: , p_token_2 => 'ERROR'
6058: , p_value_2 => v_message);
6059: x_retcode := xla_third_party_merge_pub.G_RET_STS_ERROR;
6060: -- Log the out parameters, their returned values and function exit
6061: IF (C_LEVEL_PROCEDURE >= g_log_level)
6062: THEN
6063: trace( p_msg => 'x_retcode = ' || x_retcode

Line 6090: x_retcode := xla_third_party_merge_pub.G_RET_STS_WARN;

6086: -- Set the return code to 'W' if any event is processed and it doesn't have
6087: -- merge event set; else, set it to 'U'
6088: IF (p_merge_event_set_id IS NULL AND v_processed_event_count > 0)
6089: THEN
6090: x_retcode := xla_third_party_merge_pub.G_RET_STS_WARN;
6091: ELSE
6092: x_retcode := xla_third_party_merge_pub.G_RET_STS_UNEXP_ERROR;
6093: END IF; -- IF (p_merge_event_set_id IS NULL AND v_processed_event_count > 0)
6094: -- Log the out parameters, their returned values and function exit

Line 6092: x_retcode := xla_third_party_merge_pub.G_RET_STS_UNEXP_ERROR;

6088: IF (p_merge_event_set_id IS NULL AND v_processed_event_count > 0)
6089: THEN
6090: x_retcode := xla_third_party_merge_pub.G_RET_STS_WARN;
6091: ELSE
6092: x_retcode := xla_third_party_merge_pub.G_RET_STS_UNEXP_ERROR;
6093: END IF; -- IF (p_merge_event_set_id IS NULL AND v_processed_event_count > 0)
6094: -- Log the out parameters, their returned values and function exit
6095: IF (C_LEVEL_PROCEDURE >= g_log_level)
6096: THEN

Line 6101: IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_UNEXP_ERROR)

6097: trace( p_msg => 'x_retcode = ' || x_retcode
6098: || ', x_errbuf = ' || x_errbuf
6099: , p_level => C_LEVEL_PROCEDURE
6100: , p_module => v_module);
6101: IF (x_retcode = xla_third_party_merge_pub.G_RET_STS_UNEXP_ERROR)
6102: THEN
6103: trace( p_msg => 'EXIT with ERROR - ' || v_function
6104: , p_level => C_LEVEL_PROCEDURE
6105: , p_module => v_module);

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

6226: WHEN xla_exceptions_pkg.application_exception THEN
6227: RAISE;
6228: WHEN OTHERS THEN
6229: xla_exceptions_pkg.raise_message
6230: (p_location => 'xla_third_party_merge.delete_je');
6231: END delete_je;
6232:
6233:
6234:

Line 6248: END xla_third_party_merge;

6244: THEN
6245: g_log_level := C_LEVEL_LOG_DISABLED;
6246: END IF;
6247:
6248: END xla_third_party_merge;