The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT contract_number, contract_number_modifier
INTO l_k_number, l_k_number_modifier
FROM okc_k_headers_b
WHERE id = p_contract_id;
SELECT po.segment1
INTO l_po_number
FROM po_headers_all po
WHERE po.po_header_id =
( SELECT object1_id1
FROM okc_k_rel_objs rel
WHERE rel.chr_id = p_contract_id -- for the current contract
AND rel.cle_id IS NULL -- related obj pertains to header
AND rel.rty_code = g_crj_rty_code -- for PO creation
AND rel.jtot_object1_code = g_crj_chr_jtot_object_code -- correct jtot object
);
SELECT contract_number_modifier
INTO l_k_number_modifier
FROM okc_k_headers_b
WHERE id = p_contract_id;