[Home] [Help]
1: PACKAGE BODY AHL_FLEET_UTIL_HISTORY_PVT AS
2: /* $Header: AHLVFUHB.pls 120.0.12020000.2 2012/12/10 13:37:52 shnatu noship $ */
3:
4: ---------------------------- FND Logging Constants -----------------------------
5: G_DEBUG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
19: g_err_code NUMBER;
20: -- added to debug concurrent worker pgms failure.
21: G_DEBUG_LINE_NUM NUMBER;
22: G_APPLN_USAGE VARCHAR2(30) :=ltrim(rtrim(FND_PROFILE.VALUE('AHL_APPLN_USAGE')));
23: G_PKG_NAME VARCHAR2(30) :='AHL_FLEET_UTIL_HISTORY_PVT';
24:
25:
26: -------------------------------------------------------------------------------
27: -- Define local record structures used by populate_fleet_utilization Procedure.
79: -- Start of Procedure populate_utilization_history --
80: PROCEDURE refresh_utilization_table
81: AS
82:
83: l_debug_module VARCHAR2(1000) := 'ahl.plsql.AHL_FLEET_UTIL_HISTORY_PVT.refresh_utilization_table';
84:
85: BEGIN
86:
87: DELETE FROM AHL_FLEET_UTILIZATION;
234: WHERE fleet_header_id = p_fleet_header_id;*/
235: -- Variables to be used
236:
237: l_api_name CONSTANT VARCHAR2(30) := 'populate_utilization_history';
238: l_debug_module VARCHAR2(1000) := 'ahl.plsql.AHL_FLEET_UTIL_HISTORY_PVT.populate_utilization_history';
239: l_api_version CONSTANT NUMBER := 1.0;
240: l_fleet_header_id NUMBER;
241: l_fleet_op_org_id NUMBER;
242: l_fleet_name VARCHAR2(80);
788: g_err_code := SQLCODE;
789: fnd_log.string (G_DEBUG_STMT, l_debug_module, 'Error in procedure populate_fleet_utilization procedure');
790: fnd_log.string (G_DEBUG_STMT, l_debug_module, 'error code is '|| g_err_code);
791: fnd_log.string (G_DEBUG_STMT, l_debug_module, 'error message is '|| g_err_msg);
792: fnd_file.put_line(fnd_file.log, 'AHL_FLEET_UTIL_HISTORY_PVT.populate_fleet_utilization Threw unexpected error with error code - '
793: || g_err_code || ' and error message as - ' || g_err_msg || ' and errbuf - ' || errbuf);
794: END IF;
795:
796: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
806: g_err_code := SQLCODE;
807: fnd_log.string (G_DEBUG_STMT, l_debug_module, 'Error in procedure populate_fleet_utilization procedure');
808: fnd_log.string (G_DEBUG_STMT, l_debug_module, 'error code is '|| g_err_code);
809: fnd_log.string (G_DEBUG_STMT, l_debug_module, 'error message is '|| g_err_msg);
810: fnd_file.put_line(fnd_file.log, 'AHL_FLEET_UTIL_HISTORY_PVT.populate_fleet_utilization Threw unexpected error with error code - '
811: || g_err_code || ' and error message as - ' || g_err_msg || ' and errbuf - ' || errbuf);
812: END IF;
813:
814: WHEN OTHERS
824: g_err_code := SQLCODE;
825: fnd_log.string (G_DEBUG_STMT, l_debug_module, 'Error in procedure populate_fleet_utilization procedure');
826: fnd_log.string (G_DEBUG_STMT, l_debug_module, 'error code is '|| g_err_code);
827: fnd_log.string (G_DEBUG_STMT, l_debug_module, 'error message is '|| g_err_msg);
828: fnd_file.put_line(fnd_file.log, 'AHL_FLEET_UTIL_HISTORY_PVT.populate_fleet_utilization Threw unexpected error with error code - '
829: || g_err_code || ' and error message as - ' || g_err_msg || ' and errbuf - ' || errbuf);
830: END IF;
831:
832: END populate_fleet_utilization;
847: p_sorties_counter_uom_code IN VARCHAR,
848: p_forecast_details_tbl OUT NOCOPY forecast_details_tbl_type
849: )
850: AS
851: l_debug_module VARCHAR2(1000) := 'ahl.plsql.AHL_FLEET_UTIL_HISTORY_PVT.Get_Forecast_Records';
852: l_flt_start_date DATE;
853: l_flt_end_date DATE;
854: l_index NUMBER := 1;
855: l_run_no NUMBER := 1;
1051: -- profile values.
1052: FUNCTION Get_Forecasting_Window_Date
1053: RETURN DATE
1054: IS
1055: l_debug_module VARCHAR2(1000) := 'ahl.plsql.AHL_FLEET_UTIL_HISTORY_PVT.Get_Forecasting_Window_Date';
1056: l_date_uom VARCHAR2(30);
1057: l_value NUMBER;
1058: l_last_day_of_window DATE;
1059: BEGIN
1099: RETURN l_last_day_of_window;
1100: END Get_Forecasting_Window_Date;
1101:
1102:
1103: END AHL_FLEET_UTIL_HISTORY_PVT;
1104: