The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT PV_PROGRAM_BENEFITS_S.NEXTVAL
FROM dual;
SELECT 'X'
FROM PV_PROGRAM_BENEFITS
WHERE PROGRAM_BENEFITS_ID = l_id;
l_prgm_benefits_rec.last_update_date := SYSDATE;
l_prgm_benefits_rec.last_updated_by := FND_GLOBAL.user_id;
l_prgm_benefits_rec.last_update_login := FND_GLOBAL.conc_login_id;
PV_PRGM_BENEFITS_PKG.Insert_Row(
px_program_benefits_id => l_prgm_benefits_rec.program_benefits_id
,p_program_id => l_prgm_benefits_rec.program_id
,p_benefit_code => l_prgm_benefits_rec.benefit_code
,p_benefit_id => l_prgm_benefits_rec.benefit_id
,p_benefit_type_code => l_prgm_benefits_rec.benefit_type_code
,p_delete_flag => l_prgm_benefits_rec.delete_flag
,p_last_update_login => l_prgm_benefits_rec.last_update_login
,p_object_version_number => l_object_version_number
,p_last_update_date => l_prgm_benefits_rec.last_update_date
,p_last_updated_by => l_prgm_benefits_rec.last_updated_by
,p_created_by => l_prgm_benefits_rec.created_by
,p_creation_date => l_prgm_benefits_rec.creation_date
);
PROCEDURE Update_Prgm_Benefits(
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_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
,p_prgm_benefits_rec IN prgm_benefits_rec_type
)
IS
CURSOR c_get_prgm_benefits(cv_program_benefits_id NUMBER) IS
SELECT *
FROM PV_PROGRAM_BENEFITS
WHERE PROGRAM_BENEFITS_ID = cv_program_benefits_id;
l_api_name CONSTANT VARCHAR2(30) := 'Update_Prgm_Benefits';
SAVEPOINT UPDATE_Prgm_Benefits_PVT;
FND_MESSAGE.set_token('MODE','Update');
,p_validation_mode => JTF_PLSQL_API.g_update
,p_prgm_benefits_rec => p_prgm_benefits_rec
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
);
Pvx_Utility_Pvt.debug_message('Private API: '||l_full_name||' - Calling update table handler');
PV_PRGM_BENEFITS_PKG.Update_Row(
p_program_benefits_id => l_tar_prgm_benefits_rec.program_benefits_id
,p_program_id => l_tar_prgm_benefits_rec.program_id
,p_benefit_code => l_tar_prgm_benefits_rec.benefit_code
,p_benefit_id => l_tar_prgm_benefits_rec.benefit_id
,p_benefit_type_code => l_tar_prgm_benefits_rec.benefit_type_code
,p_delete_flag => l_tar_prgm_benefits_rec.delete_flag
,p_last_update_login => FND_GLOBAL.conc_login_id
,p_object_version_number => l_tar_prgm_benefits_rec.object_version_number
,p_last_update_date => SYSDATE
,p_last_updated_by => FND_GLOBAL.user_id
);
ROLLBACK TO UPDATE_Prgm_Benefits_PVT;
ROLLBACK TO UPDATE_Prgm_Benefits_PVT;
ROLLBACK TO UPDATE_Prgm_Benefits_PVT;
End Update_Prgm_Benefits;
PROCEDURE Delete_Prgm_Benefits(
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_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
,p_program_benefits_id IN NUMBER
,p_object_version_number IN NUMBER
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Prgm_Benefits';
SAVEPOINT DELETE_Prgm_Benefits_PVT;
PVX_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler...');
PV_PRGM_BENEFITS_PKG.Delete_Row(
p_program_benefits_id => p_program_benefits_id
,p_object_version_number => p_object_version_number
);
ROLLBACK TO DELETE_Prgm_Benefits_PVT;
ROLLBACK TO DELETE_Prgm_Benefits_PVT;
ROLLBACK TO DELETE_Prgm_Benefits_PVT;
END Delete_Prgm_Benefits;
SELECT program_benefits_id
FROM PV_PROGRAM_BENEFITS
WHERE program_benefits_id = px_program_benefits_id
AND object_version_number = p_object_version
FOR UPDATE NOWAIT;
IF p_prgm_benefits_rec.delete_flag = FND_API.g_miss_char
OR p_prgm_benefits_rec.delete_flag IS NULL THEN
FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
FND_MESSAGE.set_token('COLUMN','DELETE_FLAG');
IF p_prgm_benefits_rec.last_update_login = FND_API.g_miss_num
OR p_prgm_benefits_rec.last_update_login IS NULL THEN
FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
FND_MESSAGE.set_token('COLUMN','LAST_UPDATE_LOGIN');
IF p_prgm_benefits_rec.last_update_date = FND_API.g_miss_date
OR p_prgm_benefits_rec.last_update_date IS NULL THEN
FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
FND_MESSAGE.set_token('COLUMN','LAST_UPDATE_DATE');
IF p_prgm_benefits_rec.last_updated_by = FND_API.g_miss_num
OR p_prgm_benefits_rec.last_updated_by IS NULL THEN
FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
FND_MESSAGE.set_token('COLUMN','LAST_UPDATED_BY');
IF p_prgm_benefits_rec.delete_flag = FND_API.g_miss_char
OR p_prgm_benefits_rec.delete_flag IS NULL THEN
FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
FND_MESSAGE.set_token('COLUMN','DELETE_FLAG');
SELECT *
FROM pv_program_benefits
WHERE program_benefits_id = p_prgm_benefits_rec.program_benefits_id;
IF p_prgm_benefits_rec.delete_flag IS NULL THEN
x_complete_rec.delete_flag := l_prgm_benefits_rec.delete_flag;
IF p_prgm_benefits_rec.last_update_login IS NULL THEN
x_complete_rec.last_update_login := l_prgm_benefits_rec.last_update_login;
IF p_prgm_benefits_rec.last_update_date IS NULL THEN
x_complete_rec.last_update_date := l_prgm_benefits_rec.last_update_date;
IF p_prgm_benefits_rec.last_updated_by IS NULL THEN
x_complete_rec.last_updated_by := l_prgm_benefits_rec.last_updated_by;
,p_validation_mode IN VARCHAR2 := JTF_PLSQL_API.G_UPDATE
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Validate_Prgm_Benefits';