The following lines contain the word 'select', 'insert', 'update' or 'delete':
CURSOR auth_id_s IS SELECT JTF_XML_INV_AUTHS_S.NEXTVAL FROM sys.dual;
insert into JTF_XML_INV_AUTHS (
AUTH_ID,
URL,
AUTH_NAME,
AUTH_TYPE,
AUTH_INFO,
END_DATE,
SECURITY_GROUP_ID,
OBJECT_VERSION_NUMBER,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) values (
l_auth_id,
p_URL,
p_AUTH_NAME,
p_AUTH_TYPE,
p_AUTH_INFO,
NULL,
NULL,
1,
SYSDATE,
G_USER_ID,
SYSDATE,
G_USER_ID,
G_LOGIN_ID
);
SELECT OBJECT_VERSION_NUMBER INTO l_object_version
FROM JTF_XML_INV_AUTHS
WHERE AUTH_ID = p_AUTH_ID;
-- SELECT * INTO l_ip_row FROM JTF_XML_INV_PARAMS
-- WHERE PARAM_ID = p_PARAM_ID;
update JTF_XML_INV_AUTHS set
END_DATE = SYSDATE,
OBJECT_VERSION_NUMBER = l_object_version,
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATED_BY = G_USER_ID,
LAST_UPDATE_LOGIN = G_LOGIN_ID
where AUTH_ID = p_AUTH_ID;
SELECT OBJECT_VERSION_NUMBER into x_OBJ_VER_NUMBER
FROM JTF_XML_INV_AUTHS
WHERE AUTH_ID = p_AUTH_ID;
PROCEDURE UPDATE_AUTH (
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_AUTH_ID IN NUMBER,
p_OBJ_VER_NUMBER IN OUT NUMBER,
p_URL IN VARCHAR2,
p_AUTH_NAME IN VARCHAR2,
p_AUTH_TYPE IN VARCHAR2,
p_AUTH_INFO IN VARCHAR2,
x_return_status OUT VARCHAR2,
x_msg_count OUT NUMBER,
x_msg_data OUT VARCHAR2
) AS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_AUTH';
SAVEPOINT UPDATE_AUTH;
SELECT OBJECT_VERSION_NUMBER INTO l_object_version
FROM JTF_XML_INV_AUTHS
WHERE AUTH_ID = p_AUTH_ID;
-- SELECT * INTO l_ip_row FROM JTF_XML_INV_PARAMS
-- WHERE PARAM_ID = p_PARAM_ID;
update JTF_XML_INV_AUTHS set
URL = p_URL,
AUTH_NAME = p_AUTH_NAME,
AUTH_TYPE = p_AUTH_TYPE,
AUTH_INFO = p_AUTH_INFO,
OBJECT_VERSION_NUMBER = l_object_version,
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATED_BY = G_USER_ID,
LAST_UPDATE_LOGIN = G_LOGIN_ID
where AUTH_ID = p_AUTH_ID;
ROLLBACK TO UPDATE_AUTH;
ROLLBACK TO UPDATE_AUTH;
ROLLBACK TO UPDATE_AUTH;
END UPDATE_AUTH;
-- SELECT * INTO l_ip_row FROM JTF_XML_INV_PARAMS
-- WHERE PARAM_ID = p_PARAM_ID;
update JTF_XML_INV_AUTHS set
END_DATE = SYSDATE,
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATED_BY = G_USER_ID,
LAST_UPDATE_LOGIN = G_LOGIN_ID
where URL = p_URL and END_DATE is NULL;
procedure UPDATE_URL (
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_URL IN VARCHAR2,
p_NEW_URL IN VARCHAR2,
x_return_status OUT VARCHAR2,
x_msg_count OUT NUMBER,
x_msg_data OUT VARCHAR2
) AS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_URL';
SAVEPOINT UPDATE_URL;
-- SELECT * INTO l_ip_row FROM JTF_XML_INV_PARAMS
-- WHERE PARAM_ID = p_PARAM_ID;
update JTF_XML_INV_AUTHS set
URL = p_NEW_URL,
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATED_BY = G_USER_ID,
LAST_UPDATE_LOGIN = G_LOGIN_ID
where URL = p_URL and END_DATE is NULL;
ROLLBACK TO UPDATE_URL;
ROLLBACK TO UPDATE_URL;
ROLLBACK TO UPDATE_URL;
END UPDATE_URL;