drop function if exists staging2.fn_IHTHLS_HLS_block;
CREATE OR REPLACE FUNCTION staging2.fn_IHTHLS_HLS_block(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 __make text;
   declare __model text;
   
   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 err_state   text;
   declare err_msg     text;
   declare err_detail  text;
   declare err_hint    text;
   declare err_context text;   
   declare err_query int;
   declare err_block text;    
  
 begin

/************************************************************ 
Function Name:fn_IHTHLS_HLS_block
Function Desc: This function populates data into staging 2 block
File Format: IHTHLS
Sheet Format: IHTHLS_HLS
Creation Date: March 25 2021
Updation Date:
Author: compegence team
Function Call: select staging2.fn_IHTHLS_HLS_block(p_client_id,p_function_id, p_file_mnemonic,
p_file_sheet_mnemonic, p_file_syspk)
Function call ex: select staging2.fn_IHTHLS_HLS_block(1,2,'IHTHLS','IHTHLS_HLS',456)
***************************************************************/


SET search_path TO  staging2;

/* to process multiple files - re-runnability*/

truncate table  staging2.IHTHLS_HLS_H1_Int;
truncate table  staging2.IHTHLS_HLS_H1_block;
truncate table staging2.IHTHLS_HLS_Weight_Tyre_Int;
truncate table staging2.IHTHLS_HLS_Weight_Block;
truncate table staging2.IHTHLS_HLS_Wheel_Block;
truncate table staging2.IHTHLS_HLS_Numeric_Int;
truncate table staging2.IHTHLS_HLS_Numeric_Block;
truncate table staging2.IHTHLS_HLS_Tyre_Details_Block;
truncate table staging2.IHTHLS_HLS_Footer_Block;
truncate table staging2.stg_specific_table_IHTHLS_HLS;
truncate table staging2.stg_process_table_IHTHLS_HLS;


execute 'delete from fw_core.fw_jobctl_file_sheet_block_run_schedule where file_syspk='||p_file_syspk||' and file_sheet_mnemonic='''||p_file_sheet_mnemonic||'''';


execute 'update transactional.source_config a
set row_number_start=null,
row_previous_number=null,
row_read_end=null,
run_time=null
where   a.file_mnemonic='''||p_file_mnemonic||''' and a.file_sheet_mnemonic='''||p_file_sheet_mnemonic||'''';

/* transfer data from generic to specific for IHTHLS */
execute 'insert into  staging2.stg_specific_table_IHTHLS_HLS 
select * from staging1.staging_generic_table a
where   a.file_mnemonic='''||p_file_mnemonic||''' and a.file_sheet_mnemonic='''||p_file_sheet_mnemonic||'''
and a.file_syspk='||p_file_syspk||'';

select count(*) into err_query from staging2.stg_specific_table_IHTHLS_HLS;

if err_query=0 then
err_context := 'data not present';
	raise exception using 
	      message = 'No Data for IHTHLS ',
          detail = 'No data in table stg_specific_table_IHTHLS_HLS',  
          errcode = '42704', 
          hint = 'check sheet mnemonic in generic table, if it is null update it';
end if;	

/* trimming data */
update staging2.stg_specific_table_IHTHLS_HLS 
set column15='Objective' where lower(column15) like 'objective%';

update staging2.stg_specific_table_IHTHLS_HLS 
set column15='Acceptance criteria' where lower(column15) like 'acceptance criteria%';


update transactional.source_config set F1_source=F1_modified ;


/* keyword match in config table*/
execute 'update transactional.source_config a  
set row_number_start=(select min(b.row_number)
from staging2.stg_specific_table_IHTHLS_HLS  b
where upper(F1_modified)=upper(column3)
and b.is_rownumber_fetched is null)
where a.row_number_start is null
and a.file_mnemonic='''||p_file_mnemonic||''' and a.file_sheet_mnemonic='''||p_file_sheet_mnemonic||'''';

/* reverese update in process table for match*/
execute 'update staging2.stg_specific_table_IHTHLS_HLS  a  
set is_rownumber_fetched=1
from transactional.source_config  b
where upper(F1_modified)=upper(column3)
and b.row_number_start=a.row_number
and is_rownumber_fetched is null
and a.file_mnemonic='''||p_file_mnemonic||''' and a.file_sheet_mnemonic='''||p_file_sheet_mnemonic||'''';

execute 'update transactional.source_config a set row_previous_number=row_number_start-1
where a.file_mnemonic='''||p_file_mnemonic||''' and a.file_sheet_mnemonic='''||p_file_sheet_mnemonic||'''';

/*  update config files for row numbers start, end */
execute 'update transactional.source_config a
set row_read_end= (select b.row_number_start
from transactional.source_config b 
where b.syspk=a.syspk+1 and file_mnemonic='''||p_file_mnemonic||''' and file_sheet_mnemonic='''||p_file_sheet_mnemonic||''' ) 
where a.file_mnemonic='''||p_file_mnemonic||''' and a.file_sheet_mnemonic='''||p_file_sheet_mnemonic||'''';

/* config file last field update as null otherwise it picks up next format row number*/
execute 'update transactional.source_config a 
set row_read_end = null ,run_time=current_timestamp
where f1_modified =''Prepared by'' 
and a.file_mnemonic='''||p_file_mnemonic||''' and a.file_sheet_mnemonic='''||p_file_sheet_mnemonic||'''';

/* tagging block_row_numbers*/
execute 'insert into staging2.stg_process_table_IHTHLS_HLS
select a.* , RANK () OVER ( ORDER BY row_number) as block_row_number,b.block_tag as block_tag
from  staging2.stg_specific_table_IHTHLS_HLS  a
join transactional.source_config b 
on a.row_number >=row_number_start 
and (a.row_number< row_read_end or row_read_end is null)
and f1_modified=''Test Request no.''
and  b.file_mnemonic='''||p_file_mnemonic||''' and b.file_sheet_mnemonic='''||p_file_sheet_mnemonic||'''';

execute 'insert into staging2.stg_process_table_IHTHLS_HLS
select a.* , RANK () OVER ( ORDER BY row_number) as block_row_number,b.block_tag as block_tag
from  staging2.stg_specific_table_IHTHLS_HLS  a
join transactional.source_config b 
on a.row_number >=row_number_start 
and (a.row_number< row_read_end or row_read_end is null)
and f1_modified=''Weight Reaction''
and  b.file_mnemonic='''||p_file_mnemonic||''' and b.file_sheet_mnemonic='''||p_file_sheet_mnemonic||'''';

execute 'insert into staging2.stg_process_table_IHTHLS_HLS
select a.* , RANK () OVER ( ORDER BY row_number) as block_row_number,b.block_tag as block_tag
from  staging2.stg_specific_table_IHTHLS_HLS  a
join transactional.source_config b 
on a.row_number >=row_number_start 
and (a.row_number< row_read_end or row_read_end is null)
and f1_modified=''Numerical data''
and  b.file_mnemonic='''||p_file_mnemonic||''' and b.file_sheet_mnemonic='''||p_file_sheet_mnemonic||'''';


execute 'insert into staging2.stg_process_table_IHTHLS_HLS
select a.* , RANK () OVER ( ORDER BY row_number) as block_row_number,b.block_tag as block_tag
from  staging2.stg_specific_table_IHTHLS_HLS  a
join transactional.source_config b 
on a.row_number >=row_number_start 
and (a.row_number< row_read_end or row_read_end is null)
and f1_modified=''Prepared By''
and  b.file_mnemonic='''||p_file_mnemonic||''' and b.file_sheet_mnemonic='''||p_file_sheet_mnemonic||'''';

/*selecting tractor model*/
select column6 into __model from staging2.stg_process_table_IHTHLS_HLS a
where  block_tag='IHTHLS_HLS_H1' and trim(column3)='Tractor Model';

/*block starts - IHTHLS_HLS_H1_BLOCK */

perform fw_core.fn_jobctl_block_begin(__client_id,__function_id,__file_syspk,
'IHTHLS_HLS_H1_BLOCK',__file_mnemonic,__file_sheet_mnemonic,1);
err_block:='IHTHLS_HLS_H1_BLOCK';

insert into staging2.IHTHLS_HLS_H1_INT (c1,c2)
select a.column3,column6 from  staging2.stg_process_table_IHTHLS_HLS a where block_tag='IHTHLS_HLS_H1';

insert into staging2.IHTHLS_HLS_H1_INT (c1,c2)
select a.column9,column12 from  staging2.stg_process_table_IHTHLS_HLS a where block_tag='IHTHLS_HLS_H1';

insert into staging2.IHTHLS_HLS_H1_INT (c1,c2)
select 'Objective',column15
from  staging2.stg_process_table_IHTHLS_HLS a 
where block_tag='IHTHLS_HLS_H1'
and row_number=
(
select row_number+1 from 
staging2.stg_process_table_IHTHLS_HLS a 
where column15='Objective'
and block_tag='IHTHLS_HLS_H1'
);

insert into staging2.IHTHLS_HLS_H1_INT (c1,c2)
select 'Acceptance criteria',column15
from  staging2.stg_process_table_IHTHLS_HLS a 
where block_tag='IHTHLS_HLS_H1'
and row_number=
(
select row_number+1 from 
staging2.stg_process_table_IHTHLS_HLS a 
where column15='Acceptance criteria'
and block_tag='IHTHLS_HLS_H1'
);



insert into staging2.IHTHLS_HLS_H1_INT (c1,c2)
select split_part(column3,':',1),split_part(column3,':',2) 
from staging2.stg_process_table_IHTHLS_HLS
where block_tag='IHTHLS_HLS_Numeric' and block_row_number=6;

insert into staging2.IHTHLS_HLS_H1_INT (c1,c2)
select 'Test Purpose',column10
from  staging2.stg_process_table_IHTHLS_HLS a 
where block_tag='IHTHLS_HLS_Weight_Tyre' and column3='Test Purpose';


update staging2.IHTHLS_HLS_H1_Int set model=__model;
execute 'update  staging2.IHTHLS_HLS_H1_Int set
client_id='||p_client_id||',
function_id='||p_function_id||',
file_syspk='||p_file_syspk||',
file_mnemonic='''||p_file_mnemonic||''',
file_sheet_mnemonic='''||p_file_sheet_mnemonic||'''';

insert into staging2.IHTHLS_HLS_H1_Block
(
dummy_f,
Test_Request_no,
Sample_Receipt_Date,
Test_report_No,
Tractor_Model,
Generation,
Customer_Name, 
Test_Engineer,
Test_Report_Date,
No_of_Sample,
Test_Start_Date,
Test_End_Date,
Tractor_Sr_No,
Test_Standard_Refer,
Test_Location,
Operator_Name,
Project_Group,
Objective,
Acceptance_Criteria,
Remarks,
Test_Purpose
)
SELECT *
FROM   crosstab(
       'SELECT  unnest(''{c2}''::text[]) AS col
             , row_number() OVER ()
             , unnest(ARRAY[c2::text]) AS val
        FROM  staging2.IHTHLS_HLS_H1_INT
        ORDER  BY generate_series(1,15),2'
   ) t (col text,a_1 text,a_2 text,a_3 text,a_4 text,a_5 text,a_6 text,a_7 text,a_8 text,
   a_9 text,a_10 text,a_11 text,a_12 text,a_13 text,a_14 text,a_15 text,a_16 text,a_17 text,
  a_18 text,a_19 text,a_20 text);


delete from staging2.IHTHLS_HLS_H1_Block where dummy_f is null ; 
update staging2.IHTHLS_HLS_H1_Block set model=__model;
execute 'update  staging2.IHTHLS_HLS_H1_Block set
client_id='||p_client_id||',
function_id='||p_function_id||',
file_syspk='||p_file_syspk||',
file_mnemonic='''||p_file_mnemonic||''',
file_sheet_mnemonic='''||p_file_sheet_mnemonic||'''';

perform fw_core.fn_jobctl_block_end(__file_syspk,'IHTHLS_HLS_H1_Block'); 


insert into staging2.IHTHLS_HLS_Weight_Tyre_Int
(
column3,column6,column10,column13,column15,column17,column19,
column20,block_row_number
)
select 
column3,column6,column10,column13,column15,column17,column19,
column20,block_row_number
from  staging2.stg_process_table_IHTHLS_HLS a
where block_tag='IHTHLS_HLS_Weight_Tyre'
order by block_row_number;

update staging2.IHTHLS_HLS_Weight_Tyre_Int set model=__model;
execute 'update  staging2.IHTHLS_HLS_Weight_Tyre_Int set
client_id='||p_client_id||',
function_id='||p_function_id||',
file_syspk='||p_file_syspk||',
file_mnemonic='''||p_file_mnemonic||''',
file_sheet_mnemonic='''||p_file_sheet_mnemonic||'''';


/*block starts - IHTHLS_HLS_Weight_Block */

perform fw_core.fn_jobctl_block_begin(__client_id,__function_id,__file_syspk,
'IHTHLS_HLS_Weight_Block',__file_mnemonic,__file_sheet_mnemonic,2);
 err_block:='IHTHLS_HLS_Weight_Block';
insert into  staging2.IHTHLS_HLS_Weight_Block
(
dummy_f,
Weight_Reaction,
Total_Weight_kg,
Front_Reaction_kg,
Rear_Reaction_kg,
Left_Reaction_FL_RL_kg,
Right_reaction_FR_RR_kg,
Front_Left_Reaction_kg,
Front_Right_Reaction_kg,
Rear_Left_Reaction_kg,
Rear_Right_Reaction_kg,
Distance_of_lifting_point_from_rear_axle_mm_d1
)
SELECT *
FROM   crosstab(
       'SELECT  unnest(''{column6}''::text[]) AS col
             , row_number() OVER ()
             , unnest(ARRAY[column6::text]) AS val
        FROM  staging2.IHTHLS_HLS_Weight_Tyre_Int
        ORDER  BY generate_series(1,15),block_row_number,2'
   ) t (col text,a_1 text,a_2 text,a_3 text,a_4 text,a_5 text,a_6 text,a_7 text,a_8 text,a_9 text,
  a_10 text,a_11 text);

delete from staging2.IHTHLS_HLS_Weight_Block where dummy_f is null ; 
update  staging2.IHTHLS_HLS_Weight_Block set model=__model;
execute 'update   staging2.IHTHLS_HLS_Weight_Block set
client_id='||p_client_id||',
function_id='||p_function_id||',
file_syspk='||p_file_syspk||',
file_mnemonic='''||p_file_mnemonic||''',
file_sheet_mnemonic='''||p_file_sheet_mnemonic||'''';

perform fw_core.fn_jobctl_block_end(__file_syspk,'IHTHLS_HLS_Weight_Block'); 

/*block starts - IHTHLS_HLS_Tyre_Details_Block */

perform fw_core.fn_jobctl_block_begin(__client_id,__function_id,__file_syspk,
'IHTHLS_HLS_Tyre_Details_Block',__file_mnemonic,__file_sheet_mnemonic,3);
err_block:='IHTHLS_HLS_Tyre_Details_Block';
insert into staging2.IHTHLS_HLS_Tyre_Details_Block
(
dummy_f,
Tyre_Details,
Tyre_Make,
Tyre_size,
Ply_Rating,
Load_Carrying_Capacity,
Pressure_kg_cm2,	
Dynamic_rolling_radius,		
Static_rolling_radius,
Wheel_rim_Make_size
)
SELECT *
FROM   crosstab(
       'SELECT  unnest(''{column15,column19}''::text[]) AS col
             , row_number() OVER ()
             , unnest(ARRAY[column15::text,column19::text]) AS val
        FROM  staging2.IHTHLS_HLS_Weight_Tyre_Int where block_row_number between 3 and 11
        ORDER  BY generate_series(1,15),2'
   ) t (col text,a_1 text,a_2 text,a_3 text,a_4 text,a_5 text,a_6 text,a_7 text,a_8 text,a_9 text);

delete from staging2.IHTHLS_HLS_Tyre_Details_Block where dummy_f is null ; 
update staging2.IHTHLS_HLS_Tyre_Details_Block set model=__model;
execute 'update  staging2.IHTHLS_HLS_Tyre_Details_Block set
client_id='||p_client_id||',
function_id='||p_function_id||',
file_syspk='||p_file_syspk||',
file_mnemonic='''||p_file_mnemonic||''',
file_sheet_mnemonic='''||p_file_sheet_mnemonic||'''';

perform fw_core.fn_jobctl_block_end(__file_syspk,'IHTHLS_HLS_Tyre_Details_Block'); 


/*block starts - IHTHLS_HLS_Wheel_Block */

perform fw_core.fn_jobctl_block_begin(__client_id,__function_id,__file_syspk,
'IHTHLS_HLS_Wheel_Block',__file_mnemonic,__file_sheet_mnemonic,4);
err_block:='IHTHLS_HLS_Wheel_Block';
insert  into  staging2.IHTHLS_HLS_Wheel_Block(dummy_f) values ('dummy');

update  staging2.IHTHLS_HLS_Wheel_Block
set Wheel_Base=(select column13 from
staging2.IHTHLS_HLS_Weight_Tyre_Int 
where  block_row_number=1 and column10='Wheel Base in mm')
where dummy_f='dummy';

update  staging2.IHTHLS_HLS_Wheel_Block
set Rear_Track_Width=(select column20 from
staging2.IHTHLS_HLS_Weight_Tyre_Int
where  block_row_number=1 and column17='Rear Track Width in mm')
where dummy_f='dummy';


update  staging2.IHTHLS_HLS_Wheel_Block set model=__model;
execute 'update  staging2.IHTHLS_HLS_Wheel_Block set
client_id='||p_client_id||',
function_id='||p_function_id||',
file_syspk='||p_file_syspk||',
file_mnemonic='''||p_file_mnemonic||''',
file_sheet_mnemonic='''||p_file_sheet_mnemonic||'''';

perform fw_core.fn_jobctl_block_end(__file_syspk,'IHTHLS_HLS_Wheel_Block'); 


/* insert  IHTHLS_HLS_Numeric_Int*/

insert into  staging2.IHTHLS_HLS_Numeric_Int
(
column3,column4,column5,column6,column7,
column8,block_row_number
)
select 
column3,column4,column5,column6,column7,
column8,block_row_number
from  staging2.stg_process_table_IHTHLS_HLS a
where block_tag='IHTHLS_HLS_Numeric'
order by block_row_number;


update  staging2.IHTHLS_HLS_Numeric_Int set model=__model;
execute 'update   staging2.IHTHLS_HLS_Numeric_Int  set
client_id='||p_client_id||',
function_id='||p_function_id||',
file_syspk='||p_file_syspk||',
file_mnemonic='''||p_file_mnemonic||''',
file_sheet_mnemonic='''||p_file_sheet_mnemonic||'''';

update staging2.IHTHLS_HLS_Numeric_Int set trx_record =0 where block_row_number in (1,6);


/*block starts - IHTHLS_HLS_Numeric_Block */

perform fw_core.fn_jobctl_block_begin(__client_id,__function_id,__file_syspk,
'IHTHLS_HLS_Numeric_Block',__file_mnemonic,__file_sheet_mnemonic,5);
err_block:='IHTHLS_HLS_Numeric_Block';
insert into staging2.IHTHLS_HLS_Numeric_Block
(
dummy_f,
TPL_load,
Engine_RPM,
Lifting_time_Sec,
Lowering_time_Sec 
)
SELECT *
FROM   crosstab(
       'SELECT  unnest(''{column5,column6,column8}''::text[]) AS col
             , row_number() OVER ()
             , unnest(ARRAY[column5::text,column6::text,column8::text]) AS val
        FROM  staging2.IHTHLS_HLS_Numeric_Int
        ORDER  BY generate_series(1,15),2'
   ) t (col text,a_1 text,a_2 text,a_3 text,a_4 text);
  
  update  staging2.IHTHLS_hls_numeric_block a
 set TPL_load= b.first_value from (SELECT
block_row_number,TPL_load, value_partition, first_value(TPL_load) over (partition by value_partition order by block_row_number)
FROM (
SELECT
block_row_number,
TPL_load,
sum(case when TPL_load is null then 0 else 1 end) over (order by block_row_number) as value_partition
 FROM  staging2.IHTHLS_hls_numeric_block 
ORDER BY block_row_number ASC
) as q) b;

delete from staging2.IHTHLS_HLS_Numeric_Block where dummy_f is null;
update  staging2.IHTHLS_HLS_Numeric_Block set model=__model;
execute 'update   staging2.IHTHLS_HLS_Numeric_Block set
client_id='||p_client_id||',
function_id='||p_function_id||',
file_syspk='||p_file_syspk||',
file_mnemonic='''||p_file_mnemonic||''',
file_sheet_mnemonic='''||p_file_sheet_mnemonic||'''';

perform fw_core.fn_jobctl_block_end(__file_syspk,'IHTHLS_HLS_Numeric_Block'); 

/*block starts - IHTHLS_HLS_Footer_block */

perform fw_core.fn_jobctl_block_begin(__client_id,__function_id,__file_syspk,
'IHTHLS_HLS_Footer_block',__file_mnemonic,__file_sheet_mnemonic,6);
err_block:='IHTHLS_HLS_Footer_block';
insert into staging2.IHTHLS_HLS_Footer_block(dummy_f) values ('dummy');

update staging2.IHTHLS_HLS_Footer_block a
set prepared_by=( select column7 from staging2.stg_process_table_IHTHLS_HLS b 
where b.block_tag='IHTHLS_HLS_Footer'
and lower(column3)='prepared by' )
where dummy_F='dummy';

update staging2.IHTHLS_HLS_Footer_block a
set reviewed_by=( select column7 from staging2.stg_process_table_IHTHLS_HLS b 
where b.block_tag='IHTHLS_HLS_Footer'
and lower(column3)='reviewed by' )
where dummy_F='dummy';

update staging2.IHTHLS_HLS_Footer_block a
set approved_by=( select column7 from staging2.stg_process_table_IHTHLS_HLS b 
where  b.block_tag='IHTHLS_HLS_Footer'
and lower(column3)='approved by' )
where dummy_F='dummy';

update staging2.IHTHLS_HLS_Footer_block a
set comments=( select column3 from staging2.stg_process_table_IHTHLS_HLS b 
where b.block_tag='IHTHLS_HLS_Footer'
and block_row_number=5 )
where dummy_F='dummy';

update staging2.IHTHLS_HLS_Footer_block a
set rev1=( select column3 from staging2.stg_process_table_IHTHLS_HLS b 
where b.block_tag='IHTHLS_HLS_Footer'
and block_row_number=6 )
where dummy_F='dummy';


update staging2.IHTHLS_HLS_Footer_block a
set rev2=( select column9 from staging2.stg_process_table_IHTHLS_HLS b 
where  b.block_tag='IHTHLS_HLS_Footer'
and block_row_number=6 )
where dummy_F='dummy';

update staging2.IHTHLS_HLS_Footer_block a
set rev3=( select column18 from staging2.stg_process_table_IHTHLS_HLS b 
where  b.block_tag='IHTHLS_HLS_Footer'
and block_row_number=6 )
where dummy_F='dummy';

update staging2.IHTHLS_HLS_Footer_block a
set replaces=( select column19 from staging2.stg_process_table_IHTHLS_HLS b 
where b.block_tag='IHTHLS_HLS_Footer'
and block_row_number=1)
where dummy_F='dummy';

update staging2.IHTHLS_HLS_Footer_block a
set revision_no=( select column19 from staging2.stg_process_table_IHTHLS_HLS b 
where b.block_tag='IHTHLS_HLS_Footer'
and block_row_number=3)
where dummy_F='dummy';

update staging2.IHTHLS_HLS_Footer_block a
set prepared_date=( select column16 from staging2.stg_process_table_IHTHLS_HLS b 
where  b.block_tag='IHTHLS_HLS_Footer'
and block_row_number=1)
where dummy_F='dummy';

update staging2.IHTHLS_HLS_Footer_block a
set reviewed_date=( select column16 from staging2.stg_process_table_IHTHLS_HLS b 
where  b.block_tag='IHTHLS_HLS_Footer'
and block_row_number=2)
where dummy_F='dummy';

update staging2.IHTHLS_HLS_Footer_block a
set approved_date=( select column16 from staging2.stg_process_table_IHTHLS_HLS b 
where  b.block_tag='IHTHLS_HLS_Footer'
and block_row_number=3)
where dummy_F='dummy';

update  staging2.IHTHLS_HLS_Footer_block set model=__model;
execute 'update   staging2.IHTHLS_HLS_Footer_block set
client_id='||p_client_id||',
function_id='||p_function_id||',
file_syspk='||p_file_syspk||',
file_mnemonic='''||p_file_mnemonic||''',
file_sheet_mnemonic='''||p_file_sheet_mnemonic||'''';

perform fw_core.fn_jobctl_block_end(__file_syspk,'IHTHLS_HLS_Footer_block'); 
perform  fw_core.fn_insert_db_error ( __client_id, __function_id, 1001, 'Compegence', __file_syspk ,__file_mnemonic,__file_sheet_mnemonic ,null,'stg2', 'fn_IHTHLS_HLS_block', err_state, err_msg, err_detail, err_hint, err_context,'success');

end
$function$
;

