[Home] [Help]
1: PACKAGE BODY gl_fusion_transfer_pkg AS
2: -- $Header: glufutrb.pls 120.6 2011/08/13 00:19:25 djogg noship $
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: | gl_fusion_transfer_pkg |
10: | |
11: | DESCRIPTION |
12: | Package to transfer data to fusion. |
13: | |
150: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
151:
152: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
153: C_DEFAULT_MODULE CONSTANT VARCHAR2(240)
154: := 'gl.plsql.gl_fusion_transfer_pkg';
155:
156: g_log_level NUMBER;
157: g_log_enabled BOOLEAN;
158:
314:
315: --
316: -- Get the system id
317: --
318: gl_fusion_transfer_pkg.get_system_id;
319: g_system_id_str := to_char(nvl(g_system_id, -1));
320:
321: --
322: -- Do the transfer
320:
321: --
322: -- Do the transfer
323: --
324: gl_fusion_transfer_pkg.do_transfer
325: (p_errbuf => l_errbuf,
326: p_retcode => P_BI_RETCODE,
327: p_from_ledger_shortname => P_BI_FROM_LEDGER_SHORTNAME,
328: p_from_ledger_id => P_BI_FROM_LEDGER_ID,
460:
461: ----------------------------------------------------------------------------
462: -- Check access (data_access_set)
463: ----------------------------------------------------------------------------
464: gl_fusion_transfer_pkg.check_access;
465:
466: ----------------------------------------------------------------------------
467: -- Get mapping and ledger information
468: ----------------------------------------------------------------------------
465:
466: ----------------------------------------------------------------------------
467: -- Get mapping and ledger information
468: ----------------------------------------------------------------------------
469: gl_fusion_transfer_pkg.get_mapping_info;
470:
471: ----------------------------------------------------------------------------
472: -- Get system information. Also check that this system is allowed to
473: -- populate that from ledger
471: ----------------------------------------------------------------------------
472: -- Get system information. Also check that this system is allowed to
473: -- populate that from ledger
474: ----------------------------------------------------------------------------
475: gl_fusion_transfer_pkg.get_system_info;
476:
477: ----------------------------------------------------------------------------
478: -- For incremental mode, get the range of ids to process
479: ----------------------------------------------------------------------------
477: ----------------------------------------------------------------------------
478: -- For incremental mode, get the range of ids to process
479: ----------------------------------------------------------------------------
480: IF (g_transfer_mode = C_INCREMENTAL) THEN
481: gl_fusion_transfer_pkg.get_delta_id_range;
482: END IF;
483:
484: ----------------------------------------------------------------------------
485: -- Insert the rows to be transferred into the interface table
483:
484: ----------------------------------------------------------------------------
485: -- Insert the rows to be transferred into the interface table
486: ----------------------------------------------------------------------------
487: gl_fusion_transfer_pkg.insert_interface_rows;
488:
489: ----------------------------------------------------------------------------
490: -- If no data was found, then stop here
491: ----------------------------------------------------------------------------
491: ----------------------------------------------------------------------------
492: IF (g_interface_row_count = 0) THEN
493: gl_message.write_log('GLFUXFR000');
494:
495: gl_fusion_transfer_pkg.insert_tracking_data('NO_DATA');
496:
497: IF (g_transfer_mode = C_INCREMENTAL) THEN
498: p_retcode := 0;
499: ELSE
507: ----------------------------------------------------------------------------
508: -- Do the account mappings
509: ----------------------------------------------------------------------------
510: IF (g_coa_mapping_id IS NOT NULL) THEN
511: gl_fusion_transfer_pkg.do_ccid_mapping;
512: END IF;
513:
514: ----------------------------------------------------------------------------
515: -- Check that all the bsvs used will be accepted by fusion.
514: ----------------------------------------------------------------------------
515: -- Check that all the bsvs used will be accepted by fusion.
516: ----------------------------------------------------------------------------
517: IF (g_bsv_assignment_type <> 'A') THEN
518: gl_fusion_transfer_pkg.check_bsv_access;
519: END IF;
520:
521: ----------------------------------------------------------------------------
522: -- Insert the tracking data for fusion. Record that the first period
522: -- Insert the tracking data for fusion. Record that the first period
523: -- changed if necessary.
524: ----------------------------------------------------------------------------
525: IF (g_first_period_changed) THEN
526: gl_fusion_transfer_pkg.insert_tracking_data('FIRST_PERIOD_CHANGED');
527: ELSE
528: gl_fusion_transfer_pkg.insert_tracking_data('SUCCESS');
529: END IF;
530:
524: ----------------------------------------------------------------------------
525: IF (g_first_period_changed) THEN
526: gl_fusion_transfer_pkg.insert_tracking_data('FIRST_PERIOD_CHANGED');
527: ELSE
528: gl_fusion_transfer_pkg.insert_tracking_data('SUCCESS');
529: END IF;
530:
531: ----------------------------------------------------------------------------
532: -- Update transfer tables as necessary, to track the new max delta run
531: ----------------------------------------------------------------------------
532: -- Update transfer tables as necessary, to track the new max delta run
533: -- id and the full transfer done flag
534: ----------------------------------------------------------------------------
535: gl_fusion_transfer_pkg.update_transfer_tables;
536:
537: ----------------------------------------------------------------------------
538: -- Set the return status
539: ----------------------------------------------------------------------------
596:
597: --
598: -- Get system id
599: --
600: gl_fusion_transfer_pkg.get_system_id;
601:
602: ----------------------------------------------------------------------------
603: -- Delete processed data
604: ----------------------------------------------------------------------------
1282: OR nvl(dat.accounted_cr, 0) <> 0 ';
1283:
1284: IF (g_debug_mode) THEN
1285: print_logfile('SQL Statement to insert interface rows: ');
1286: gl_fusion_transfer_pkg.print_sql_logfile(l_sqlbuf);
1287: END IF;
1288:
1289: ---
1290: --- Execute it
1371: AND int.status = ''MAP'' ';
1372:
1373: IF (g_debug_mode) THEN
1374: print_logfile('SQL Statement to insert into gl_accounts_map_int_gt: ');
1375: gl_fusion_transfer_pkg.print_sql_logfile(l_sqlbuf);
1376: END IF;
1377:
1378: EXECUTE IMMEDIATE l_sqlbuf USING g_coa_mapping_id, g_request_id;
1379:
1401: EXCEPTION
1402: WHEN GL_ACCOUNTS_MAP_GRP.GL_INVALID_MAPPING_RULES THEN
1403: gl_message.write_log('GLFUXFR002', 1,
1404: 'COA_MAPPING_NAME', g_coa_mapping_name);
1405: gl_fusion_transfer_pkg.insert_tracking_data('COA_MAP_INVALID_RULES');
1406: failure_exit(l_log_module);
1407: RAISE warning_exception;
1408: WHEN GL_ACCOUNTS_MAP_GRP.GL_DISABLED_MAPPING THEN
1409: gl_message.write_log('GLFUXFR003', 1,
1407: RAISE warning_exception;
1408: WHEN GL_ACCOUNTS_MAP_GRP.GL_DISABLED_MAPPING THEN
1409: gl_message.write_log('GLFUXFR003', 1,
1410: 'COA_MAPPING_NAME', g_coa_mapping_name);
1411: gl_fusion_transfer_pkg.insert_tracking_data('COA_MAP_OUT_OF_DATE');
1412: failure_exit(l_log_module);
1413: RAISE warning_exception;
1414: WHEN OTHERS THEN
1415: gl_message.write_log('GLFUXFR004', 1,
1413: RAISE warning_exception;
1414: WHEN OTHERS THEN
1415: gl_message.write_log('GLFUXFR004', 1,
1416: 'COA_MAPPING_NAME', g_coa_mapping_name);
1417: gl_fusion_transfer_pkg.insert_tracking_data('COA_MAP_UNEXPECTED_ERROR');
1418: failure_exit(l_log_module);
1419: RAISE warning_exception;
1420: END;
1421:
1435: WHERE error_code IS NOT NULL);
1436:
1437: gl_message.write_log('GLFUXFR005', 1,
1438: 'COA_MAPPING_NAME', g_coa_mapping_name);
1439: gl_fusion_transfer_pkg.insert_tracking_data('COA_MAP_UNMAPPED');
1440: success_exit(l_log_module);
1441: RAISE warning_exception;
1442: EXCEPTION
1443: WHEN NO_DATA_FOUND THEN
1472: AND map.coa_mapping_id = :coa_map_id ';
1473:
1474: IF (g_debug_mode) THEN
1475: print_logfile('SQL Statement to insert into gl_xfr_ccid_mappings');
1476: gl_fusion_transfer_pkg.print_sql_logfile(l_sqlbuf);
1477: END IF;
1478:
1479: EXECUTE IMMEDIATE l_sqlbuf
1480: USING g_lgr_mapping_id, g_user_id, g_user_id, g_login_id,
1533: AND int.status = ''MAP'' ';
1534:
1535: IF (g_debug_mode) THEN
1536: print_logfile('SQL Statement to update '|| g_interface_table_name);
1537: gl_fusion_transfer_pkg.print_sql_logfile(l_sqlbuf);
1538: END IF;
1539:
1540: EXECUTE IMMEDIATE l_sqlbuf USING g_coa_mapping_id, g_request_id;
1541:
1566: l_log_module := C_DEFAULT_MODULE||'.insert_tracking_data';
1567: enter_routine(l_log_module);
1568:
1569: IF (g_system_id IS NULL) THEN
1570: gl_fusion_transfer_pkg.get_system_id;
1571: g_system_id := nvl(g_system_id, -1);
1572: END IF;
1573:
1574: INSERT INTO gl_xfr_tracking
1705:
1706: ---
1707: --- Get from ledger information
1708: ---
1709: gl_fusion_transfer_pkg.get_ledger_info(
1710: p_ledger_shortname => g_from_ledger_shortname,
1711: p_ledger_id => g_from_ledger_id,
1712: p_ledger_name => g_from_ledger_name,
1713: p_coa_id => g_from_coa_id,
1816: WHEN NO_DATA_FOUND THEN
1817: gl_message.write_log('GLFUXFR008', 2,
1818: 'GENERAL_LEDGER_PERIOD_NAME', g_from_period,
1819: 'LEDGER_NAME', g_from_ledger_name);
1820: gl_fusion_transfer_pkg.insert_tracking_data('BAD_PERIOD');
1821: failure_exit(l_log_module);
1822: RAISE warning_exception;
1823: END;
1824: END IF;
1826:
1827: ---
1828: --- Get from coa information
1829: ---
1830: gl_fusion_transfer_pkg.get_coa_info(
1831: p_coa_id => g_from_coa_id,
1832: p_segs => g_from_segs,
1833: p_delim => g_from_delim);
1834:
1834:
1835: ---
1836: --- Get to coa information
1837: ---
1838: gl_fusion_transfer_pkg.get_coa_info(
1839: p_coa_id => g_to_coa_id,
1840: p_segs => g_to_segs,
1841: p_delim => g_to_delim);
1842:
2011:
2012: ---
2013: --- Get system id
2014: ---
2015: gl_fusion_transfer_pkg.get_system_id;
2016:
2017: IF (g_system_id IS NULL) THEN
2018: gl_message.write_log('GLFUXFR007', 0);
2019: failure_exit(l_log_module);
2036: END;
2037:
2038: IF (g_je_source_key IS NULL) THEN
2039: gl_message.write_log('GLFUXFR010', 0);
2040: gl_fusion_transfer_pkg.insert_tracking_data('SYSTEM_MISSING');
2041: failure_exit(l_log_module);
2042: RAISE warning_exception;
2043: END IF;
2044:
2063: IF (g_bsv_assignment_type IS NULL) THEN
2064: gl_message.write_log('GLFUXFR011', 1,
2065: 'LEDGER_NAME', g_to_ledger_name);
2066: failure_exit(l_log_module);
2067: gl_fusion_transfer_pkg.insert_tracking_data('LEDGER_REJECTED');
2068: RAISE warning_exception;
2069: END IF;
2070:
2071: print_variable('g_bsv_assignment_type', g_bsv_assignment_type, l_log_module);
2224: AND map.rowid IS NULL';
2225:
2226: IF (g_debug_mode) THEN
2227: print_logfile('SQL Statement to update '|| g_interface_table_name);
2228: gl_fusion_transfer_pkg.print_sql_logfile(l_sqlbuf);
2229: END IF;
2230:
2231: EXECUTE IMMEDIATE l_sqlbuf USING g_system_id, g_group_id,
2232: g_system_map_id, g_to_ledger_id;
2242: ---
2243: IF (l_row_count > 0) THEN
2244: gl_message.write_log('GLFUXFR012', 0);
2245: failure_exit(l_log_module);
2246: gl_fusion_transfer_pkg.insert_tracking_data('BSVS_REJECTED');
2247: RAISE warning_exception;
2248: END IF;
2249:
2250: success_exit(l_log_module);
2291: IF NOT g_log_enabled THEN
2292: g_log_level := C_LEVEL_LOG_DISABLED;
2293: END IF;
2294:
2295: END gl_fusion_transfer_pkg;