The following lines contain the word 'select', 'insert', 'update' or 'delete':
p_procedure_name => 'UPDATE_APPROVAL_STATUS',
p_error_text => Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240)
);
PROCEDURE update_approval_status(
p_change_id IN NUMBER,
p_base_change_mgmt_type_code IN VARCHAR2 ,
p_new_approval_status_cde IN NUMBER ,
p_workflow_status_code IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2)
IS
l_return_status VARCHAR2(1);
|| ' AMW_CM_EVENT_LISTNER_PKG.UPDATE_APPROVAL_STATUS'
|| ' ( p_change_id => :a '
|| ' ,p_base_change_mgmt_type_code => :b '
|| ' ,p_new_approval_status_code => :c '
|| ' ,p_workflow_status_code => :d '
|| ' ,x_return_status => :e '
|| ' ,x_msg_count =>:f '
|| ' ,x_msg_data => :g '
|| ' ); '
p_procedure_name => 'UPDATE_APPROVAL_STATUS',
p_error_text => Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240)
);
END update_approval_status;