--select transactional.fn_dboecd_test_trx();

drop function if exists staging2.fn_dboecd_test_trx;
CREATE OR REPLACE FUNCTION staging2.fn_dboecd_test_trx(p_client_id int,p_function_id int, p_file_mnemonic text,
p_file_sheet_mnemonic text, p_file_syspk int)
 RETURNS void
 LANGUAGE plpgsql
AS $function$
   declare __test_instance_id int;
   declare __test_instance_tractor_id int;
   declare __client_id int :=p_client_id;
   declare __function_id int :=p_function_id;
   declare __file_mnemonic text  :=p_file_mnemonic;
   declare __file_sheet_mnemonic text :=p_file_sheet_mnemonic;
   declare __file_syspk int :=p_file_syspk;
   declare __make text;
   declare __model text;
   declare err_state   text;
   declare err_msg     text;
   declare err_detail  text;
   declare err_hint    text;
   declare err_context text;   
   declare _error int;   
 begin
	 
/*********************************************************** 
Function Name:fn_dboecd_test_trx
Function Desc: This function populates data into trx block
File Format: DBOECD
Sheet Format: DBOECD_TEST
Creation Date: March 27 2021
Updation Date:
Author: compegence team
Function Call: select staging2.fn_dboecd_test_trx()
***************************************************************/
SET search_path TO staging2;

insert into transactional.test_instance
(
client_id,
function_id,
file_syspk,
tractor_make,
tractor_model,
job_order_no,
sample_receipt_date,
test_report_no,
generation,
customer_name,
test_engineer,
test_report_date,
no_of_sample,
test_start_date,
test_end_date,
tractor_sr_no,
test_standard_ref,
test_location_name,
test_operator,
project_group,
acceptance_criteria,
objective_of_test,
file_mnemonic,
file_sheet_mnemonic,
date_of_test
)
select 
client_id,
function_id,
file_syspk,
make,
model,
test_request_no,
date '1899-12-30' + sample_receipt_date::int * interval '1' day as sample_receipt_date ,
test_report_no,
generation,
customer_name,
test_engineer,
date '1899-12-30' + test_report_date::int * interval '1' day as test_report_date ,
no_of_sample,
date '1899-12-30' + test_start_date::int* interval '1' day as test_start_date ,
date '1899-12-30' + test_end_date::int* interval '1' day as test_end_date ,
tractor_sr_no,
test_standard_refer,
test_location,
operator_name,
project_group,
objective,
acceptance_criteria,
file_mnemonic,
file_sheet_mnemonic,
current_date
from  
staging2.dboecd_test_h1_block;

update transactional.test_instance a
set test_condition=b.c2
from staging2.dboecd_test_test_condition_block b
where a.file_syspk=b.file_syspk;

update transactional.test_instance a
set remarks = b.remark
from staging2.dboecd_test_drawbar_performance_fuel_consumption_block b
where a.file_syspk=b.file_syspk;

select file_syspk into __file_syspk from staging2.dboecd_test_h1_block;
select syspk into __test_instance_id from transactional.test_instance where file_syspk =__file_syspk;



insert into transactional.test_instance_engine_info
(client_id,
function_id,
file_syspk,
tractor_model,
tractor_make,
low_idle_declared,
low_idle_observed,
high_idle_declared,
high_idle_observed,
file_mnemonic,
file_sheet_mnemonic
)
select client_id,
function_id,
file_syspk,
make,model,
low_idle_declared,
low_idle_observed::int,
high_idle_declared,
high_idle_observed::int,
file_mnemonic,
file_sheet_mnemonic
from staging2.DBOECD_test_engine_RPM_RPM_block;


update transactional.test_instance_engine_info a
set rated_rpm=b.rated_speed::int ,engine_to_pto_ratio_540_pto=b.engine_to_pto_ratio::numeric::int,engine_power_hp = b.engine_power_hp::int,
pto_power_hp = b.pto_power_hp::numeric 
from
staging2.dboecd_test_engine_rpm_engine_to_pto_block b
where a.file_syspk=b.file_syspk;

update  transactional.test_instance_engine_info a
set engine_cylinder_stroke_mm=b.stroke::int,engine_cylinder_bore_mm=b.bore::numeric,engine_cylinder_no=b.number::int,engine_cylinder_capacity_ltr=b.capacity::int
from staging2.dboecd_test_tractor_specifications_cylinders_block b
where b.file_syspk=b.file_syspk;


update  transactional.test_instance_engine_info a
set engine_type=b."type" ,engine_serial_no=b.serial_no,engine_make=b.make_in_block ,engine_model = b.model_in_block ,rated_rpm=b.rated_speed::int
from staging2.dboecd_test_tractor_specifications_engine_details_block b
where b.file_syspk=b.file_syspk;


insert into transactional.test_instance_tractor_info
(
client_id,
function_id,
file_syspk,
tractor_make,
tractor_model,
wheel_base_mm,
tractor_engine_hp,
pto_power_hp,
file_mnemonic,
file_sheet_mnemonic 
)
select 
client_id,
function_id,
file_syspk,
make,
model,
wheel_base_mm::int,
engine_power_hp::int,
pto_power_hp::numeric,
file_mnemonic,
file_sheet_mnemonic
from staging2.dboecd_test_engine_rpm_engine_to_pto_block;

update transactional.test_instance_tractor_info a
set
steering_type=b.steering_type,
transmission_type=clutch_type,
transmission_disc_diam=diameter_of_disc_mm
from staging2.dboecd_test_transmission_clutch_block b
where a.file_syspk=b.file_syspk;


insert into  transactional.test_instance_drawbar_info
(
client_id,
function_id,
file_syspk,
tractor_make,
tractor_model,
drawbar_type,
required_pull_in_kg,
actual_pull_in_kg,
required_power_in_hp,
actual_power_in_hp,
calculated_hitch_height_mm,
actual_hitch_height_mm,
file_mnemonic,
file_sheet_mnemonic 
)

select 
client_id,
function_id,
file_syspk,
make,
model,
pull_type,
required_pull_in_kg::numeric ,
actual_pull_in_kg::numeric ,
required_power_in_hp::numeric,
actual_power_in_hp::numeric ,
calculated_hitch_height_mm::numeric,
actual_hitch_height_mm::numeric,
file_mnemonic,
file_sheet_mnemonic
from
 staging2.dboecd_test_engine_rpm_required_pull_block;

update transactional.test_instance_drawbar_info a
set weight_front_kg = front::int ,
weight_rear_kg = rear::int ,
weight_total_kg = total::int 
from  staging2.dboecd_test_engine_rpm_weight_block b
where b.weight_kg='Unballast'
and a.drawbar_type='UB'
and a.file_syspk=b.file_syspk;


update transactional.test_instance_drawbar_info a
set weight_front_kg = front::int ,
weight_rear_kg = rear::int ,
weight_total_kg = total::int 
from  staging2.dboecd_test_engine_rpm_weight_block b
where b.weight_kg='Ballast'
and a.drawbar_type='B'
and a.file_syspk=b.file_syspk;

update transactional.test_instance_drawbar_info a
set test_condition=b.test_condition,
drawbar_type_info=b.type,
height_above_ground_max_mm=b.height_above_ground_max_mm::numeric,
height_above_ground_min_mm=b.height_above_ground_min_mm::numeric,
position_related_to_pto=b.position_related_to_pto,
wheel_base=b.wheel_base
from staging2.dboecd_test_transmission_drawbar_block b
where a.drawbar_type=b.test_condition
and a.file_syspk=b.file_syspk;

update transactional.test_instance_drawbar_info  set drawbar_type_name='Un-Ballasted' where drawbar_type='UB';
update transactional.test_instance_drawbar_info  set drawbar_type_name='Ballasted' where drawbar_type='B';

insert into transactional.test_instance_tyre_info
(
client_id,
function_id,
file_syspk,
tractor_make,
tractor_model,	
tyre_type,	
tyre_make,	
tyre_size,	
tyre_ply_rating,	
tyre_load_carrying_capacity,	
tyre_pressure_kg_per_cm2,	
tyre_number_of_lug,	
tyre_number_of_no_load_lug_30m,	
tyre_lug_height,	
tyre_dynamic_rolling_radius_mm,	
tyre_wheel_rim_make_and_size,
file_mnemonic,
file_sheet_mnemonic 
)
select   
client_id,
function_id,
file_syspk,
make,
model,
dummy_f,
tyre_make,
size,
ply_rating::int,
load_carrying_capacity_in_kg,
pressure_kg_cm2::numeric,
number_of_lug::int,
number_of_no_load_lug_30m::int,
lug_height::numeric,
dynamic_rolling_radius_mm::numeric,
wheel_rim_make_size,
file_mnemonic,
file_sheet_mnemonic
  from staging2.DBOECD_test_engine_RPM_tyre_details_block ;
  
 insert into transactional.drawbar_perf_results_summary
 ( 
 client_id,
function_id,
file_syspk,
tractor_make,
tractor_model,
gear_number_and_range,
travel_speed_km_per_hr,
drawbar_power_kw,
drawbar_power_hp,
drawbar_pull_kgf,
drawbar_pull_kn,
engine_speed_min_1,
fan_speed_min_1,
wheel_slip_pct_front,
no_of_load_lugs_front,
wheel_slip_pct_rear,
fuel_consumption_l_per_h,
fuel_consumption_kg_per_kwh,
fuel_consumption_g_per_kwh,
fuel_consumption_kwh_per_l,
temp_engine_oil_c,
temp_trans_oil_c,
temp_coolant_c,
temp_fuel_in_c,
temp_fuel_out_c,
atm_conditions_rh_pct,
atm_conditions_temp_c,
atm_conditions_pressure_kpa,
file_mnemonic,
file_sheet_mnemonic 
)
  select 
  client_id,
function_id,
file_syspk,
make,
model,
  c1,
  c2::numeric,
c3::numeric,
c4::numeric,
c5::int,
c6::numeric,
c7::int,
c8::int,
c9::numeric,
c10::numeric,
c11::numeric,
c12::numeric,
c13::numeric,
c14::numeric,
c15::numeric,
c16::int,
c17::int,
c18::int,
c19::int,
c20::int,
c21::numeric,
c22::numeric,
c23::numeric,
file_mnemonic,
file_sheet_mnemonic
 from staging2.dboecd_test_drawbar_performance_selected_summary_block;

insert into transactional.drawbar_perf_oecd_results
 ( 
 client_id,
function_id,
file_syspk,
tractor_make,
tractor_model,
srl_no,
test_condition ,
gear_number_and_range,
travel_speed_km_per_hr,
drawbar_power_kw,
drawbar_power_hp,
drawbar_pull_kgf,
drawbar_pull_kn,
engine_speed_min_1,
fan_speed_min_1,
wheel_slip_pct_front,
no_of_load_lugs_front,
wheel_slip_pct_rear,
fuel_consumption_l_per_h,
fuel_consumption_kg_per_kwh,
fuel_consumption_g_per_kwh,
fuel_consumption_kwh_per_l,
temp_engine_oil_c,
temp_trans_oil_c,
temp_coolant_c,
temp_fuel_in_c,
temp_fuel_out_c,
atm_conditions_rh_pct,
atm_conditions_temp_c,
atm_conditions_pressure_kpa,
file_mnemonic,
file_sheet_mnemonic 
)
  select 
  client_id,
function_id,
file_syspk,
make,
model,
c1_1,
  c2_1,
  c1,
  c2::numeric,
c3::numeric,
c4::numeric,
c5::int,
c6::numeric,
c7::int,
c8::int,
c9::numeric,
c10::numeric,
c11::numeric,
c12::numeric,
c13::numeric,
c14::numeric,
c15::numeric,
c16::int,
c17::int,
c18::int,
c19::int,
c20::int,
c21::numeric,
c22::numeric,
c23::numeric,
file_mnemonic,
file_sheet_mnemonic
from staging2.dboecd_test_drawbar_performance_fuel_consumption_block;


insert into transactional.drawbar_perf_results
 ( client_id,
function_id,
file_syspk,
tractor_make,
tractor_model,
gear_number_and_range,
travel_speed_km_per_hr,
drawbar_power_kw,
drawbar_power_hp,
drawbar_pull_kgf,
drawbar_pull_kn,
engine_speed_min_1,
fan_speed_min_1,
wheel_slip_pct_front,
no_of_load_lugs_front,
wheel_slip_pct_rear,
fuel_consumption_l_per_h,
fuel_consumption_kg_per_kwh,
fuel_consumption_g_per_kwh,
fuel_consumption_kwh_per_l,
temp_engine_oil_c,
temp_trans_oil_c,
temp_coolant_c,
temp_fuel_in_c,
temp_fuel_out_c,
atm_conditions_rh_pct,
atm_conditions_temp_c,
atm_conditions_pressure_kpa,
file_mnemonic,
file_sheet_mnemonic 
)
  select 
  client_id,
function_id,
file_syspk,
make,
model,
  c1,
  c2::numeric,
c3::numeric,
c4::numeric,
c5::int,
c6::numeric,
c7::int,
c8::int,
c9::numeric,
c10::numeric,
c11::numeric,
c12::numeric,
c13::numeric,
c14::numeric,
c15::numeric,
c16::int,
c17::int,
c18::int,
c19::int,
c20::int,
c21::numeric,
c22::numeric,
c23::numeric,
file_mnemonic,
file_sheet_mnemonic
 from staging2.dboecd_test_drawbar_performance_gear_performance_block;


 insert into transactional.test_instance_equipment_info
 (client_id,
function_id,
file_syspk,
tractor_make,
tractor_model,
srl_no,
instrument_name,
instrument_serial_no,
calibration_due_date,
file_mnemonic,
file_sheet_mnemonic )
select  
  client_id,
function_id,
file_syspk,
make,
model,
  s_no::int,
  instruments,
  instruments_no,
  date '1899-12-30' + cali_due_date::int * interval '1' day as cali_due_date,
  file_mnemonic,
file_sheet_mnemonic
  from staging2.DBOECD_test_test_equipment_used_block;

insert into transactional.test_instance_measurement_uncertainty
(
client_id,
function_id,
file_syspk,
tractor_make,
tractor_model,
load_cell,
rpm_meter,
speed,
fuel_flow_meter,
file_mnemonic,
file_sheet_mnemonic
)
select 
client_id,
function_id,
file_syspk,
make,
model,
load_cell,
rpm_meter,
speed,
fuel_flow_meter,
file_mnemonic,
file_sheet_mnemonic
from
staging2.dboecd_test_measurement_uncertainty_block;

insert into transactional.test_instance_tractor_info_misc
(
client_id,
function_id,
file_syspk,
tractor_make,
tractor_model,
capacity_of_fuel_tank_ltr,
make_type_and_model_of_injection_pump,
manufacturers_production_setting,
make_type_and_model_of_injectors,
make_type_and_model_of_magneto_coil_and_distributor,
make_type_and_model_of_carburetor,
ignition_or_injection_timing,
file_mnemonic,
file_sheet_mnemonic
)
select
  client_id,
function_id,
file_syspk,
make,
model,
regexp_replace(capacity_of_fuel_tank_lit,'[^0-9]', '', 'g')::int,
make_type_and_model_of_injection_pump,
manufacturer_production_setting,
make_type_and_model_of_injectors,
make_type_and_model_of_magneto_coil_and_distributor,
make_type_and_model_of_carburetor,
ignition_or_injection_timing_manual_or_automatic,
file_mnemonic,
file_sheet_mnemonic
from 
staging2.dboecd_test_tractor_specifications_fuel_and_injection_block;


update transactional.test_instance_tractor_info_misc a
set aircleaner_make_model=b.make_and_model
from  staging2.dboecd_test_tractor_specifications_cleaner_block b
where b.cleaner_type='Air cleaner'
and a.file_syspk=b.file_syspk;


update transactional.test_instance_tractor_info_misc a
set aircleaner_type=b.type 
from  staging2.dboecd_test_tractor_specifications_cleaner_block b
where cleaner_type='Air cleaner'
and a.file_syspk=b.file_syspk;


update transactional.test_instance_tractor_info_misc a
set precleaner_make_model=b.make_and_model 
from  staging2.dboecd_test_tractor_specifications_cleaner_block b
where cleaner_type='Precleaner (if fitted)'
and a.file_syspk=b.file_syspk;

update transactional.test_instance_tractor_info_misc a
set precleaner_type=b.type 
from  staging2.dboecd_test_tractor_specifications_cleaner_block b
where cleaner_type='Precleaner (if fitted)'
and a.file_syspk=b.file_syspk;


update staging2.dboecd_test_transmission_speed_chart_block a
set tyre_condition=b.descr
from staging2.dboecd_test_transmission_speed_chart_desc_block b
where a.file_syspk=b.file_syspk;


insert into  transactional.test_instance_gear_speed_chart
(
client_id,
function_id,
file_syspk,
tractor_make,
tractor_model,
forward_reverse,
gear,
speed_kmph,
tyre_condition,
file_mnemonic,
file_sheet_mnemonic
)
select 
  client_id,
function_id,
file_syspk,
make,
model,
  'forward',
  gear,
  cast(coalesce(nullif(forward,''),'0') as numeric),
  tyre_condition,
  file_mnemonic,
file_sheet_mnemonic
  from 
 staging2.dboecd_test_transmission_speed_chart_block;
 
 
 insert into  transactional.test_instance_gear_speed_chart
(
client_id,
function_id,
file_syspk,
tractor_make,
tractor_model,
forward_reverse,
gear,
speed_kmph,
tyre_condition,
file_mnemonic,
file_sheet_mnemonic
)
select 
  client_id,
function_id,
file_syspk,
make,
model,
  'reverse',
  gear,
  cast(coalesce(nullif(reverse,''),'0') as numeric),
  tyre_condition,
  file_mnemonic,
file_sheet_mnemonic
  from 
 staging2.dboecd_test_transmission_speed_chart_block;



insert into transactional.Test_instance_wheels_info
(client_id,
function_id,
file_syspk,
tractor_make,
tractor_model,
steered_driving_wheel,
location_of_driving_wheel,
make_of_tyres,
wheel_types,
wheel_size,
maximum_permissible_load_kg,
ply_rating,
track_width_max_mm,
track_width_min_mm,
inflation_pressure_kg_per_cm2,
file_mnemonic,
file_sheet_mnemonic
)
select 
client_id,
function_id,
file_syspk,
make,
model,
dummy_f,
location_of_driving_wheel,
make_of_tyres,
types,
size,
maximum_permissible_load_kg::int,
ply_rating::int,
track_width_max_mm::int,
track_width_min_mm::int,
inflation_pressure_kg_cm2::numeric,
file_mnemonic,
file_sheet_mnemonic
from  staging2.dboecd_test_transmission_wheels_block;


insert into transactional.Test_instance_fuel_lubricant_info
(
client_id,
function_id,
file_syspk,
tractor_make,
tractor_model,
trade_name,
fuel_lubricant_type,
octane_per_cetane_number,
viscocity,
density_at_15c,
file_mnemonic,
file_sheet_mnemonic
)
select 
  client_id,
function_id,
file_syspk,
make,
model,
  trade_name,
  type,
  octane_cetane_number::numeric,
  viscosity,
density_at_15c,
file_mnemonic,
file_sheet_mnemonic
from 
 staging2.dboecd_test_transmission_fuel_lubricant_block  ;
 

insert into transactional.drawbar_perf_observations 
(
client_id,
function_id,
file_syspk,
tractor_make,
tractor_model,
test_parameter ,
acceptance_criteria ,
observation ,
remarks,
file_mnemonic,
file_sheet_mnemonic
)
select 
  client_id,
function_id,
file_syspk,
make,
model,
  parameter,
  acceptance_criteria ,
  observations,
  remarks,
  file_mnemonic,
file_sheet_mnemonic
from staging2.dboecd_test_remarks_block;

update transactional.test_instance a
set 
report_prepared_by=b.prepared_by,
--report_reviewed_by=b.reviewed_by,
report_approved_by=b.approved_by,
report_template_replaces=b.replaces,
report_template_rev_no=b.revision_no,
report_template_rev_Date=b.rev3,
report_template_no=b.rev1,
report_title=b.comments
from staging2.dboecd_test_remarks_footer_block b
where a.file_syspk=b.file_syspk;



update transactional.test_instance_engine_info
set test_instance_id=__test_instance_id
where file_syspk=__file_syspk;


update transactional.test_instance_tractor_info
set test_instance_id=__test_instance_id
where file_syspk=__file_syspk;


update transactional.test_instance_drawbar_info
set test_instance_id=__test_instance_id
where file_syspk=__file_syspk;

update transactional.test_instance_tyre_info
set test_instance_id=__test_instance_id
where file_syspk=__file_syspk;

update transactional.drawbar_perf_results_summary
set test_instance_id=__test_instance_id
where file_syspk=__file_syspk;

update transactional.drawbar_perf_results
set test_instance_id=__test_instance_id
where file_syspk=__file_syspk;

update transactional.drawbar_perf_observations
set test_instance_id=__test_instance_id
where file_syspk=__file_syspk;

update transactional.drawbar_perf_oecd_results
set test_instance_id=__test_instance_id
where file_syspk=__file_syspk;


update transactional.test_instance_equipment_info
set test_instance_id=__test_instance_id
where file_syspk=__file_syspk;

update transactional.test_instance_measurement_uncertainty
set test_instance_id=__test_instance_id
where file_syspk=__file_syspk;

update transactional.test_instance_tractor_info_misc
set test_instance_id=__test_instance_id
where file_syspk=__file_syspk;

update transactional.test_instance_gear_speed_chart
set test_instance_id=__test_instance_id
where file_syspk=__file_syspk;

update transactional.Test_instance_wheels_info
set test_instance_id=__test_instance_id
where file_syspk=__file_syspk;

update transactional.Test_instance_fuel_lubricant_info
set test_instance_id=__test_instance_id
where file_syspk=__file_syspk;


select syspk into __test_instance_tractor_id from transactional.test_instance_tractor_info where file_syspk =__file_syspk;

update transactional.drawbar_perf_observations
set test_instance_tractor_id=__test_instance_tractor_id
where file_syspk=__file_syspk;

update transactional.drawbar_perf_results_summary
set test_instance_tractor_id=__test_instance_tractor_id
where file_syspk=__file_syspk;

update transactional.drawbar_perf_oecd_results
set test_instance_tractor_id=__test_instance_tractor_id
where file_syspk=__file_syspk;


update transactional.drawbar_perf_results
set test_instance_tractor_id=__test_instance_tractor_id
where file_syspk=__file_syspk;



update transactional.test_instance_engine_info
set test_instance_tractor_id=__test_instance_tractor_id
where file_syspk=__file_syspk;


update transactional.test_instance_drawbar_info
set test_instance_tractor_id=__test_instance_tractor_id
where file_syspk=__file_syspk;

update transactional.test_instance_tyre_info
set test_instance_tractor_id=__test_instance_tractor_id
where file_syspk=__file_syspk;


update transactional.test_instance_equipment_info
set test_instance_tractor_id=__test_instance_tractor_id
where file_syspk=__file_syspk;

update transactional.test_instance_measurement_uncertainty
set test_instance_tractor_id=__test_instance_tractor_id
where file_syspk=__file_syspk;

update transactional.test_instance_tractor_info_misc
set test_instance_tractor_id=__test_instance_tractor_id
where file_syspk=__file_syspk;

update transactional.test_instance_gear_speed_chart
set test_instance_tractor_id=__test_instance_tractor_id
where file_syspk=__file_syspk;

update transactional.Test_instance_wheels_info
set test_instance_tractor_id=__test_instance_tractor_id
where file_syspk=__file_syspk;

update transactional.Test_instance_fuel_lubricant_info
set test_instance_tractor_id=__test_instance_tractor_id
where file_syspk=__file_syspk;

perform  fw_core.fn_insert_db_error ( __client_id, __function_id, 1001, 'Compegence', __file_syspk ,__file_mnemonic,__file_sheet_mnemonic ,null,'trx', 'fn_dboecd_test_trx', err_state, err_msg, err_detail, err_hint, err_context,'success');

end
$function$
;