[Home] [Help]
1: PACKAGE BODY edw_collection_util AS
2: /* $Header: EDWSRCTB.pls 120.0 2005/06/01 15:01:47 appldev noship $ */
3: version CONSTANT CHAR (80)
4: := '$Header: EDWSRCTB.pls 120.0 2005/06/01 15:01:47 appldev noship $';
5: g_source_link fnd_profile_option_values.profile_option_value%TYPE;
272: );
273: END IF;
274: END IF; -- source_same_as_target
275:
276: edw_collection_util.get_push_globals (
277: p_staging_table_name=> p_object_name
278: );
279:
280: -- call auto dangling recovery for dimensions
412: cv curtyp;
413: l_status BOOLEAN;
414: BEGIN
415: put_debug_msg (
416: '********** Running EDW_COLLECTION_UTIL.get_object_type'
417: );
418: put_debug_msg ( 'Checking EDW object '
419: || p_object
420: || ' type.');
439: END IF;
440:
441: put_debug_msg ( 'EDW Object type is: '
442: || l_object_type);
443: put_debug_msg ('********** End EDW_COLLECTION_UTIL.get_object_type');
444: RETURN l_status;
445: EXCEPTION
446: WHEN NO_DATA_FOUND
447: THEN
535: IS
536: l_rows_inserted INTEGER := 0;
537: l_sucessful BOOLEAN := TRUE;
538: BEGIN
539: put_debug_msg ('********** Starting EDW_COLLECTION_UTIL.wrapup');
540: if p_sucessful then
541: edw_log.put_line ('Wrapup called with SUCCESS',FND_LOG.LEVEL_STATEMENT);
542: else
543: edw_log.put_line ('Wrapup called with ERROR and message is '||p_exception_msg,FND_LOG.LEVEL_ERROR);
635: edw_log.put_line (
636: 'Getting the current push date in warehouse time from warehouse',FND_LOG.LEVEL_PROCEDURE
637: );
638: edw_log.put_line (' ',FND_LOG.LEVEL_PROCEDURE);
639: edw_collection_util.set_push_end_dates;
640:
641: -- ---------------------------------------------------------------------------
642: -- Insert a row in collection log table for this collection run
643: -- ---------------------------------------------------------------------------
642: -- Insert a row in collection log table for this collection run
643: -- ---------------------------------------------------------------------------
644:
645:
646: edw_collection_util.staging_log (
647: p_exception_message=> NULL,
648: p_status=> 'SUCCESS',
649: p_no_of_records=> l_rows_inserted,
650: p_period_start=> p_period_start,
665: -- with a status of ERROR
666: -- ---------------------------------------------------------------------------
667: edw_log.put_line ('Exception Handling: Following error encountered',FND_LOG.LEVEL_ERROR);
668: edw_log.put_line (p_exception_msg,FND_LOG.LEVEL_ERROR);
669: edw_collection_util.staging_log (
670: p_exception_message=> p_exception_msg,
671: p_status=> 'ERROR',
672: p_no_of_records=> 0,
673: p_period_start=> p_period_start,
700: THEN
701: null;
702: END IF;
703:
704: put_debug_msg ('********** End EDW_COLLECTION_UTIL.wrapup');
705: EXCEPTION
706: WHEN g_push_remote_failure
707: THEN
708: edw_log.put_line ( 'error '
725: IS
726: l_lang VARCHAR2 (240);
727: BEGIN
728: put_debug_msg (
729: '********** Starting EDW_COLLECTION_UTIL.get_wh_language'
730: );
731:
732: SELECT edw_language_code
733: INTO l_lang
732: SELECT edw_language_code
733: INTO l_lang
734: FROM edw_local_system_parameters;
735:
736: put_debug_msg ('********** End EDW_COLLECTION_UTIL.get_wh_language');
737: RETURN l_lang;
738: EXCEPTION
739: WHEN OTHERS
740: THEN
1714:
1715: IF tab_stglist.COUNT > 0
1716: THEN
1717: put_debug_msg (
1718: 'Calling edw_collection_util.clean_up to drop temporary tables:'
1719: );
1720: l_suffix_length := LENGTH (suffix);
1721:
1722: FOR i IN tab_stglist.FIRST .. tab_stglist.LAST
2306: ROLLBACK;
2307: g_errbuf := SQLERRM;
2308: g_retcode := SQLCODE;
2309: edw_log.put_line (
2310: 'EDW_COLLECTION_UTIL.push_to_target error while pushing to target',FND_LOG.LEVEL_ERROR
2311: );
2312: edw_log.put_line ( g_retcode
2313: || ' : '
2314: || g_errbuf,FND_LOG.LEVEL_ERROR);
2413: || p_rbs;
2414: EXECUTE IMMEDIATE l_stmt;
2415: END IF;
2416: END set_transaction_rbs;
2417: END edw_collection_util;
2418: