The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Update_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_id IN NUMBER,
p_profile_name IN VARCHAR2,
p_profile_type IN VARCHAR2,
p_profile_desc IN VARCHAR2,
p_active_flag IN VARCHAR2,
p_profile_attrib_tbl IN JTF_PERZ_PROFILE_PUB.PROFILE_ATTRIB_TBL_TYPE
:= JTF_PERZ_PROFILE_PUB.G_MISS_PROFILE_ATTRIB_TBL,
x_profile_id OUT NOCOPY /* file.sql.39 change */ NUMBER,
x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
)IS
l_api_version_number NUMBER := p_api_version_number;
l_api_name CONSTANT VARCHAR2(30) := 'Update Profile';
SAVEPOINT UPDATE_JTF_PERZ_PROFILE_PUB;
JTF_PERZ_PROFILE_PVT.Update_Profile
( p_api_version_number,
p_init_msg_list,
p_commit,
p_profile_id,
p_profile_name,
p_profile_type,
p_profile_desc,
p_active_flag,
p_profile_attrib_tbl,
x_profile_id,
l_return_status,
x_msg_count,
x_msg_data
);
ROLLBACK TO UPDATE_JTF_PERZ_PROFILE_PUB;
ROLLBACK TO UPDATE_JTF_PERZ_PROFILE_PUB;
ROLLBACK TO UPDATE_JTF_PERZ_PROFILE_PUB;
END Update_Profile;