The following lines contain the word 'select', 'insert', 'update' or 'delete':
CURSOR c_cgi_switch IS SELECT CGI_SWITCH_ID
FROM IEX_CGI_SWITCHES
WHERE QUERY_STRING_ID =l_cgi_switch_rec.QUERY_STRING_ID
AND SWITCH_CODE = l_cgi_switch_rec.SWITCH_CODE;
CURSOR c_switch_data IS SELECT IEX_SWITCH_DATA_S.NEXTVAL
FROM SYS.DUAL;
l_cgi_switch_rec.last_update_date := sysdate;
l_cgi_switch_rec.last_updated_by := g_user_id;
l_cgi_switch_rec.last_update_login := g_login_id;
l_switch_data_rec.last_update_date := sysdate;
l_switch_data_rec.last_updated_by := g_user_id;
l_switch_data_rec.last_update_login := g_login_id;
CURSOR c_cgi_switch_seq IS SELECT IEX_CGI_SWITCHES_S.NEXTVAL
FROM SYS.DUAL;
PROCEDURE Update_WebSwitch(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
p_commit IN VARCHAR2,
p_validation_level IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_cgi_switch_rec IN cgi_switch_rec_type,
p_switch_data_rec IN switch_data_rec_type
)
AS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30) := 'Update_WebSwitch';
SAVEPOINT Update_WebSwitch_PVT;
l_cgi_switch_rec.last_update_date := sysdate;
l_cgi_switch_rec.last_updated_by := g_user_id;
l_cgi_switch_rec.last_update_login := g_login_id;
l_switch_data_rec.last_update_date := sysdate;
l_switch_data_rec.last_updated_by := g_user_id;
l_switch_data_rec.last_update_login := g_login_id;
IEX_WEBSWITCH_PKG.Update_WebSwitch(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
p_commit => p_commit,
p_validation_level => p_validation_level,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_cgi_switch_rec => l_cgi_switch_rec,
p_switch_data_rec => l_switch_data_rec
);
ROLLBACK TO Update_WebSwitch_PVT;
ROLLBACK TO Update_WebSwitch_PVT;
ROLLBACK TO Update_WebSwitch_PVT;