The following lines contain the word 'select', 'insert', 'update' or 'delete':
Select distinct org.organization_id,
ori_class.org_information1,
decode(ori_class.org_information1,
'FR_SOCIETE', ori_info.org_information15, -- new segment
'FR_ETABLISSEMENT', ori_info.org_information2) -- SIRET
into g_org_id,
g_org_class,
L_payers_id
From hr_organization_information ori_opm,
hr_organization_information ori_class,
hr_organization_information ori_info,
hr_all_organization_units org
Where ori_opm.org_information1 = L_opm_id_chr
And ori_opm.org_information_context = 'FR_DYN_PAYMETH_MAPPING_INFO'
And ori_class.organization_id = ori_opm.organization_id
And ori_class.org_information_context = 'CLASS'
And ori_class.org_information1 in ('FR_SOCIETE', 'FR_ETABLISSEMENT')
And ori_info.organization_id = ori_opm.organization_id
And ori_info.org_information_context in ('FR_COMP_INFO',
'FR_ESTAB_INFO')
And org.organization_id = ori_opm.organization_id
And org.business_group_id = p_bg_id
And P_date_earned between org.date_from
And nvl(org.date_to, hr_general.end_of_time);
select fnd_number.canonical_to_number(hoi.ORG_INFORMATION1)
from hr_organization_information hoi
where hoi.organization_id = p_estab_id
AND hoi.org_information_context = 'FR_ESTAB_INFO';