[Home] [Help]
29:
30: -- Table type for storing material for each UE
31: TYPE util_forecasts_tbl_type
32: IS
33: TABLE OF AHL_FLEET_UTILIZATION%rowtype INDEX BY BINARY_INTEGER;
34:
35: -- Record type for storing forecasted utilization data
36: --util_forecasts_rec_type AHL_FLEET_UTILIZATION%rowtype;
37: util_forecasts_table util_forecasts_tbl_type;
32: IS
33: TABLE OF AHL_FLEET_UTILIZATION%rowtype INDEX BY BINARY_INTEGER;
34:
35: -- Record type for storing forecasted utilization data
36: --util_forecasts_rec_type AHL_FLEET_UTILIZATION%rowtype;
37: util_forecasts_table util_forecasts_tbl_type;
38:
39:
40: -- To hold the forecast details.
72: /*
73: --
74: Procedure Name: refresh_utilization_table
75: Type: Public
76: Function: This procedure is called by populate_fleet_utilization procedure to refresh the AHL_FLEET_UTILIZATION table completely.
77: --
78: */
79: -- Start of Procedure populate_utilization_history --
80: PROCEDURE refresh_utilization_table
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;
88: --COMMIT;
89: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL)
90: THEN
91: FND_LOG.STRING(G_DEBUG_STMT, l_debug_module, 'AHL_FLEET_UTILIZATION table refreshed and committed.');
87: DELETE FROM AHL_FLEET_UTILIZATION;
88: --COMMIT;
89: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL)
90: THEN
91: FND_LOG.STRING(G_DEBUG_STMT, l_debug_module, 'AHL_FLEET_UTILIZATION table refreshed and committed.');
92: END IF;
93:
94: END refresh_utilization_table;
95:
291: IF FND_API.TO_BOOLEAN(p_commit) THEN
292: COMMIT;
293: END IF;*/
294:
295: -- Complete refresh of AHL_FLEET_UTILIZATION table
296: refresh_utilization_table();
297:
298: l_sim_plan_id := p_sim_plan_id;
299:
505: fnd_log.string (G_DEBUG_STMT, l_debug_module, ' calculated daily usage for the fleet = ' || l_daily_usage_val);
506: END IF;
507:
508: -- Insert a record to table for usage UOM for current period
509: util_forecasts_table(l_record_num).FLEET_UTILIZATION_ID := AHL_FLEET_UTILIZATION_S.nextval;
510: util_forecasts_table(l_record_num).object_version_number := 1;
511: util_forecasts_table(l_record_num).FLEET_HEADER_ID := l_fleet_header_id;
512: util_forecasts_table(l_record_num).NAME := l_fleet_name;
513: util_forecasts_table(l_record_num).OPERATING_ORG_ID := l_fleet_op_org_id;
584: IF(l_forecast_details_tbl.count > 0) THEN
585: l_run_no := 1;
586: WHILE l_run_no IS NOT NULL
587: LOOP
588: util_forecasts_table(l_record_num).FLEET_UTILIZATION_ID := AHL_FLEET_UTILIZATION_S.nextval;
589: util_forecasts_table(l_record_num).object_version_number := 1;
590: util_forecasts_table(l_record_num).FLEET_HEADER_ID := l_fleet_header_id;
591: util_forecasts_table(l_record_num).NAME := l_fleet_name;
592: util_forecasts_table(l_record_num).OPERATING_ORG_ID := l_fleet_op_org_id;
658:
659: G_DEBUG_LINE_NUM := 160;
660: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL)
661: THEN
662: fnd_log.string (G_DEBUG_STMT, l_debug_module, ' utilization calculation over for all fleets. insertion of data into AHL_FLEET_UTILIZATION begins');
663: END IF;
664:
665: -- Isert bulk data into DB table
666: FORALL x IN util_forecasts_table.FIRST..util_forecasts_table.LAST
664:
665: -- Isert bulk data into DB table
666: FORALL x IN util_forecasts_table.FIRST..util_forecasts_table.LAST
667: INSERT
668: INTO AHL_FLEET_UTILIZATION
669: (
670: FLEET_UTILIZATION_ID,
671: OBJECT_VERSION_NUMBER,
672: FLEET_HEADER_ID,
746:
747: G_DEBUG_LINE_NUM := 170;
748: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL)
749: THEN
750: fnd_log.string (G_DEBUG_STMT, l_debug_module, ' insertion of data into AHL_FLEET_UTILIZATION ends');
751: END IF;
752:
753: IF (util_forecasts_table IS NOT NULL AND util_forecasts_table.COUNT > 0)
754: THEN