[Home] [Help]
1: PACKAGE BODY "EAM_FORECAST_PVT" AS
2: /* $Header: EAMVFORB.pls 120.19.12000000.2 2007/04/20 04:52:49 bsurnida ship $ */
3: G_PKG_NAME CONSTANT VARCHAR2(30) := 'EAM_FOREACST_PVT';
4: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: G_FILE_NAME CONSTANT VARCHAR2(30) := 'EAMVFORB.pls';
6: -- TODO: Propagate OA required parameters back to the top level
7: -- extract_forecast ....eg api_version, status...is this required?
8:
451: /* This is a private PROCEDURE that extracts a historical forecast */
452:
453: PROCEDURE debug(l_msg IN VARCHAR2, l_level IN NUMBER := 1)IS
454: l_n NUMBER;
455: l_log_level CONSTANT NUMBER := fnd_log.g_current_runtime_level;
456: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= l_log_level ;
457: l_sLog CONSTANT BOOLEAN := l_uLog AND fnd_log.level_statement >= l_log_level;
458:
459: BEGIN
452:
453: PROCEDURE debug(l_msg IN VARCHAR2, l_level IN NUMBER := 1)IS
454: l_n NUMBER;
455: l_log_level CONSTANT NUMBER := fnd_log.g_current_runtime_level;
456: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= l_log_level ;
457: l_sLog CONSTANT BOOLEAN := l_uLog AND fnd_log.level_statement >= l_log_level;
458:
459: BEGIN
460: IF(l_level >= 1)
453: PROCEDURE debug(l_msg IN VARCHAR2, l_level IN NUMBER := 1)IS
454: l_n NUMBER;
455: l_log_level CONSTANT NUMBER := fnd_log.g_current_runtime_level;
456: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= l_log_level ;
457: l_sLog CONSTANT BOOLEAN := l_uLog AND fnd_log.level_statement >= l_log_level;
458:
459: BEGIN
460: IF(l_level >= 1)
461: THEN
459: BEGIN
460: IF(l_level >= 1)
461: THEN
462: IF( l_sLog ) THEN
463: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
464: 'eam.plsql.EAM_FORECAST_PVT.extract_forecast',l_msg);
465: -- dbms_OUTPUT.put_line('DEBUG:: ' || l_msg);
466: l_n := 1;
467: END IF;
2839:
2840: l_api_name CONSTANT VARCHAR2(30) := 'convert_work_orders';
2841:
2842: l_module varchar2(200) ;
2843: l_log_level CONSTANT NUMBER := fnd_log.g_current_runtime_level;
2844: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= l_log_level ;
2845: l_sLog CONSTANT BOOLEAN := l_uLog AND fnd_log.level_statement >= l_log_level;
2846:
2847: -- This cursor returns all necessary fields to call the WO API.modified for ib
2840: l_api_name CONSTANT VARCHAR2(30) := 'convert_work_orders';
2841:
2842: l_module varchar2(200) ;
2843: l_log_level CONSTANT NUMBER := fnd_log.g_current_runtime_level;
2844: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= l_log_level ;
2845: l_sLog CONSTANT BOOLEAN := l_uLog AND fnd_log.level_statement >= l_log_level;
2846:
2847: -- This cursor returns all necessary fields to call the WO API.modified for ib
2848: -- Query changed for performance reasons.
2841:
2842: l_module varchar2(200) ;
2843: l_log_level CONSTANT NUMBER := fnd_log.g_current_runtime_level;
2844: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= l_log_level ;
2845: l_sLog CONSTANT BOOLEAN := l_uLog AND fnd_log.level_statement >= l_log_level;
2846:
2847: -- This cursor returns all necessary fields to call the WO API.modified for ib
2848: -- Query changed for performance reasons.
2849: CURSOR c1 IS
3034: EAM_ERROR_MESSAGE_PVT.Get_Message(l_message_text, l_entity_index, l_entity_id, l_message_type);
3035: debug('Return status:' || p_return_status);
3036: debug('Error message:' || SUBSTRB(l_message_text,1,200));
3037: IF( l_slog ) THEN
3038: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,'Return status:' || p_return_status);
3039: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,'Error message:' || SUBSTRB(l_message_text,1,200));
3040: END IF;
3041: END convert_work_orders;
3042:
3035: debug('Return status:' || p_return_status);
3036: debug('Error message:' || SUBSTRB(l_message_text,1,200));
3037: IF( l_slog ) THEN
3038: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,'Return status:' || p_return_status);
3039: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,'Error message:' || SUBSTRB(l_message_text,1,200));
3040: END IF;
3041: END convert_work_orders;
3042:
3043: