The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE save_update_wo_mod(
p_po_header_id IN NUMBER,
p_attr_grp_id IN NUMBER,
p_umb_prog_name IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2 )
IS
d_position NUMBER;
d_api_name CONSTANT VARCHAR2(30) := 'update_wo_mod';
UPDATE PO_HEADERS_ALL
SET CLM_COTR_OFFICE = (SELECT N_EXT_ATTR1 FROM po_headers_all_ext_b WHERE po_header_id = p_po_header_id AND ATTR_GROUP_ID= p_attr_grp_id and C_EXT_ATTR1 ='COTR_OFFICE' and DRAFT_ID = -1),
CLM_COTR_CONTACT =(SELECT N_EXT_ATTR3 FROM po_headers_all_ext_b WHERE po_header_id = p_po_header_id AND ATTR_GROUP_ID= p_attr_grp_id and C_EXT_ATTR1 ='COTR_OFFICE' and DRAFT_ID = -1),
UMBRELLA_PROGRAM_ID = (SELECT UMBRELLA_PROGRAM_ID FROM PON_UMBRELLA_PROGRAMS WHERE UMBRELLA_PROGRAM_NAME = p_umb_prog_name)
WHERE PO_HEADER_ID = p_po_header_id ;
UPDATE po_drafts SET revision_num = -1 WHERE document_id = p_po_header_id AND STATUS IN ('DRAFT','IN PROCESS','REJECTED','PRE-APPROVED','SUPPLIER SIGN') AND draft_type = 'MOD';
PO_LOG.stmt(d_module,d_position ,'Updated po_headers_all and po_drafts');
PO_LOG.stmt(d_module,d_position ,'number of rows update ',SQL%ROWCOUNT);
END save_update_wo_mod;