The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE select_profile (p_api_version_number IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_profile_name IN VARCHAR2,
x_profile_value OUT NOCOPY VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) is
l_api_name VARCHAR2(255):='select_profile';
SAVEPOINT select_profile_PVT;
ROLLBACK TO select_profile_PVT;
ROLLBACK TO select_profile_PVT;
ROLLBACK TO select_profile_PVT;
END select_profile;
PROCEDURE update_profile (p_api_version_number IN NUMBER,
p_init_msg_list IN VARCHAR2,
p_commit IN VARCHAR2,
p_profile_name IN VARCHAR2,
p_profile_value IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) is
l_api_name VARCHAR2(255):='update_profile';
PROFILE_NOT_UPDATED EXCEPTION;
SAVEPOINT update_profile_PVT;
select count(*) into l_count from hz_parties where party_number=p_profile_value;
select party_id into l_party_id from hz_parties where party_number=p_profile_value;
raise PROFILE_NOT_UPDATED;
/* select party_type into l_party_type from hz_parties where party_number=p_profile_value;
raise PROFILE_NOT_UPDATED;
select count(*) into l_count from jtf_rs_resource_extns where resource_number=p_profile_value;
select resource_id into l_resource_id from jtf_rs_resource_extns where resource_number=p_profile_value;
raise PROFILE_NOT_UPDATED;
raise PROFILE_NOT_UPDATED;
raise PROFILE_NOT_UPDATED;
ROLLBACK TO update_profile_PVT;
ROLLBACK TO update_profile_PVT;
WHEN PROFILE_NOT_UPDATED THEN
ROLLBACK TO update_profile_PVT;
FND_MESSAGE.SET_NAME('IEM', 'IEM_ADMIN_INTENT_N_NOT_UPDATED');
ROLLBACK TO update_profile_PVT;
ROLLBACK TO update_profile_PVT;
ROLLBACK TO update_profile_PVT;
END update_profile;
PROCEDURE update_profile_wrap (p_api_version_number IN NUMBER,
p_init_msg_list IN VARCHAR2,
p_commit IN VARCHAR2,
p_profile_name_tbl IN jtf_varchar2_Table_100,
p_profile_value_tbl IN jtf_varchar2_Table_100,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) is
l_api_name VARCHAR2(255):='update_profile_wrap';
PROFILE_NOT_UPDATED EXCEPTION;
SAVEPOINT update_profile_PVT;
iem_parameters_pvt.update_profile (p_api_version_number => l_api_version_number,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
p_profile_name => p_profile_name_tbl(i),
p_profile_value => p_profile_value_tbl(i),
x_return_status=> l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data);
raise PROFILE_NOT_UPDATED;
WHEN PROFILE_NOT_UPDATED THEN
ROLLBACK TO update_profile_PVT;
ROLLBACK TO update_profile_PVT;
ROLLBACK TO update_profile_PVT;
ROLLBACK TO update_profile_PVT;
END update_profile_wrap;