The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE update_resource
(P_API_VERSION IN NUMBER,
P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
P_RESOURCE_ID IN JTF_RS_RESOURCE_EXTNS.RESOURCE_ID%TYPE,
P_LOCATION IN MDSYS.SDO_GEOMETRY ,
P_OBJECT_VERSION_NUM IN OUT NOCOPY JTF_RS_RESOURCE_EXTNS.OBJECT_VERSION_NUMBER%TYPE,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2
)
IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_RESOURCE';
select resource_id,
object_version_number
from jtf_rs_resource_extns
where resource_id = p_resource_id;
SAVEPOINT update_sp;
update jtf_rs_resource_extns
set location = p_location,
object_version_number = object_version_number + 1
where resource_id = p_resource_id;
ROLLBACK TO update_sp;
ROLLBACK TO update_sp;
ROLLBACK TO update_sp;