The following lines contain the word 'select', 'insert', 'update' or 'delete':
get_bo_and_insert(p_party_id,
l_report_id
);
SELECT pos_supp_gen_xml_rpt_s.nextval
INTO g_curr_supp_xml_rpt_id
FROM dual;
PROCEDURE get_bo_and_insert(p_party_id IN pos_tbl_number,
p_report_id IN NUMBER ) IS
l_user_id NUMBER := fnd_global.user_id;
l_last_update_login NUMBER := fnd_global.login_id;
INSERT INTO POS_SUPP_GENERATE_XML_RPT
(report_id,
party_id,
xmlcontent,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login)
VALUES
(p_report_id,
p_party_id(i),
xmltype(l_pos_supplier_bo),
l_user_id,
SYSDATE,
l_user_id,
SYSDATE,
l_last_update_login);
END get_bo_and_insert;