The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT p.project_id project_id,
p.name project_name,
p.segment1 project_number,
o.name project_organization
FROM pa_projects_all p,
hr_all_organization_units o
WHERE p.project_id = p_project_id
AND p.carrying_out_organization_id = o.organization_id;
SELECT budget_type
FROM pa_budget_types
WHERE budget_type_code = p_budget_type_code;
SELECT pa_workflow_itemkey_s.nextval
INTO l_itemkey
FROM dual;
PA_WORKFLOW_UTILS.Insert_WF_Processes
(p_wf_type_code => 'BUDGET_INTEGRATION'
,p_item_type => l_wf_item_type
,p_item_key => l_itemkey
,p_entity_key1 => to_char(p_project_id)
,p_entity_key2 => to_char(p_draft_version_id)
,p_description => NULL
,p_err_code => l_err_code
,p_err_stage => l_err_stage
,p_err_stack => l_err_stack
);
SELECT b.budget_version_id
FROM PA_BUDGETARY_CONTROL_OPTIONS bc,
PA_BUDGET_VERSIONS b
WHERE bc.project_id = b.project_id
AND bc.external_budget_code = 'CC'
AND bc.budget_type_code = b.budget_type_code
AND b.project_id = l_project_id
AND b.budget_status_code = 'S';
END IF; --NOT FIRED, Budget Approval WF; Update WF Status Code
UPDATE pa_budget_versions
SET budget_status_code = 'W', WF_status_code = NULL
WHERE budget_version_id = p_draft_version_id;
UPDATE pa_budget_versions
SET budget_status_code = 'W', WF_status_code = 'REJECTED'
WHERE budget_version_id = p_draft_version_id;