The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT pv_pg_enrl_change_rules_s.NEXTVAL
FROM dual;
SELECT 1
FROM PV_PG_ENRL_CHANGE_RULES
WHERE enrl_change_rule_id = l_id;
SELECT 1
FROM PV_PG_ENRL_CHANGE_RULES
WHERE change_from_program_id = from_id
AND change_to_program_id = to_id
AND NVL(effective_to_date,sysdate) >= SYSDATE
AND change_direction_code = 'UPGRADE';
SELECT 1
FROM PV_PG_ENRL_CHANGE_RULES
WHERE change_from_program_id = from_id
AND change_to_program_id = to_id
AND NVL(effective_to_date,sysdate) >= SYSDATE
AND change_direction_code = p_direction_code;
l_pec_rules_rec.last_update_date := SYSDATE;
l_pec_rules_rec.last_updated_by := FND_GLOBAL.user_id;
l_pec_rules_rec.last_update_login := FND_GLOBAL.conc_login_id;
Pv_Pec_Rules_Pkg.Insert_Row(
px_enrl_change_rule_id => l_pec_rules_rec.enrl_change_rule_id,
px_object_version_number => l_object_version_number,
p_change_from_program_id => l_pec_rules_rec.change_from_program_id,
p_change_to_program_id => l_pec_rules_rec.change_to_program_id,
p_change_direction_code => l_pec_rules_rec.change_direction_code,
p_effective_from_date => l_pec_rules_rec.effective_from_date,
p_effective_to_date => l_pec_rules_rec.effective_to_date,
p_active_flag => l_pec_rules_rec.active_flag,
p_created_by => FND_GLOBAL.USER_ID,
p_creation_date => SYSDATE,
p_last_updated_by => FND_GLOBAL.USER_ID,
p_last_update_date => SYSDATE,
p_last_update_login => FND_GLOBAL.conc_login_id
);
-- Invoke table handler(Pv_Pec_Rules_Pkg.Insert_Row) to insert a second row with reverse Direction Code
l_change_direction_code := 'DOWNGRADE';
Pv_Pec_Rules_Pkg.Insert_Row(
px_enrl_change_rule_id => l_pec_rules_rec.enrl_change_rule_id ,
px_object_version_number => l_object_version_number,
p_change_from_program_id => l_enrl_change_from_id_rev,
p_change_to_program_id => l_enrl_change_to_id_rev,
p_change_direction_code => l_change_direction_code,
p_effective_from_date => l_pec_rules_rec.effective_from_date,
p_effective_to_date => l_pec_rules_rec.effective_to_date,
p_active_flag => l_pec_rules_rec.active_flag,
p_created_by => FND_GLOBAL.USER_ID,
p_creation_date => SYSDATE,
p_last_updated_by => FND_GLOBAL.USER_ID,
p_last_update_date => SYSDATE,
p_last_update_login => FND_GLOBAL.conc_login_id
);
PROCEDURE Update_Pec_Rules(
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_pec_rules_rec IN pec_rules_rec_type,
x_object_version_number OUT NOCOPY NUMBER
)
IS
CURSOR c_get_pec_rules(enrl_change_rule_id NUMBER) IS
SELECT *
FROM PV_PG_ENRL_CHANGE_RULES
WHERE enrl_change_rule_id = p_pec_rules_rec.enrl_change_rule_id;
SELECT *
FROM PV_PG_ENRL_CHANGE_RULES
WHERE change_from_program_id = l_enrl_change_from_id_rev
AND change_to_program_id = l_enrl_change_to_id_rev
AND effective_to_date is null
AND change_direction_code='DOWNGRADE';
L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Pec_Rules';
SAVEPOINT update_pec_rules_pvt;
PVX_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
PVX_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
p_token_name => 'INFO',
p_token_value => 'Pec_Rules') ;
p_token_value => 'Last_Update_Date') ;
p_validation_mode => JTF_PLSQL_API.g_update,
p_pec_rules_rec => p_pec_rules_rec,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
Pv_Pec_Rules_Pkg.Update_Row(
p_enrl_change_rule_id => p_pec_rules_rec.enrl_change_rule_id,
px_object_version_number => l_object_version_number,
p_change_from_program_id => p_pec_rules_rec.change_from_program_id,
p_change_to_program_id => p_pec_rules_rec.change_to_program_id,
p_change_direction_code => p_pec_rules_rec.change_direction_code,
p_effective_from_date => p_pec_rules_rec.effective_from_date,
p_effective_to_date => p_pec_rules_rec.effective_to_date,
p_active_flag => p_pec_rules_rec.active_flag,
p_last_updated_by => FND_GLOBAL.USER_ID,
p_last_update_date => SYSDATE,
p_last_update_login => FND_GLOBAL.conc_login_id );
Pv_Pec_Rules_Pkg.Update_Row(
p_enrl_change_rule_id => downg.enrl_change_rule_id,
px_object_version_number => downg.object_version_number,
p_change_from_program_id => downg.change_from_program_id,
p_change_to_program_id => downg.change_to_program_id,
p_change_direction_code => downg.change_direction_code,
p_effective_from_date => downg.effective_from_date,
p_effective_to_date => downg.effective_to_date,
p_active_flag => p_pec_rules_rec.active_flag,
p_last_updated_by => FND_GLOBAL.USER_ID,
p_last_update_date => SYSDATE,
p_last_update_login => FND_GLOBAL.conc_login_id);
ROLLBACK TO UPDATE_Pec_Rules_PVT;
ROLLBACK TO UPDATE_Pec_Rules_PVT;
ROLLBACK TO UPDATE_Pec_Rules_PVT;
End Update_Pec_Rules;
PROCEDURE Delete_Pec_Rules(
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_enrl_change_rule_id IN NUMBER,
p_object_version_number IN NUMBER
)
IS
CURSOR c_get_pec_rec IS
SELECT *
FROM PV_PG_ENRL_CHANGE_RULES
WHERE enrl_change_rule_id = p_enrl_change_rule_id;
SELECT *
FROM PV_PG_ENRL_CHANGE_RULES
WHERE change_from_program_id = l_enrl_change_from_id_rev
AND change_to_program_id = l_enrl_change_to_id_rev
AND effective_to_date is null
AND change_direction_code='DOWNGRADE';
L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_Pec_Rules';
SAVEPOINT delete_pec_rules_pvt;
PVX_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler');
PVX_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
PVX_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
p_token_name => 'INFO',
p_token_value => 'Pec_Rules') ;
-- Make the record end dated when it is deleted.
-- Invoke table handler(Pv_Pec_Rules_Pkg.Update_Row)
Pv_Pec_Rules_Pkg.Update_Row(
p_enrl_change_rule_id => p_enrl_change_rule_id,
px_object_version_number => l_object_version_number,
p_change_from_program_id => l_ref_pec_rules_rec.change_from_program_id,
p_change_to_program_id => l_ref_pec_rules_rec.change_to_program_id,
p_change_direction_code => l_ref_pec_rules_rec.change_direction_code,
p_effective_from_date => l_ref_pec_rules_rec.effective_from_date,
p_effective_to_date => SYSDATE,
p_active_flag => l_ref_pec_rules_rec.active_flag,
p_last_updated_by => FND_GLOBAL.USER_ID,
p_last_update_date => SYSDATE,
p_last_update_login => FND_GLOBAL.conc_login_id);
-- Invoke table handler(Pv_Pec_Rules_Pkg.Update_Row)
IF l_ref_pec_rules_rec.change_direction_code='UPGRADE' THEN
from_id_rev := l_ref_pec_rules_rec.change_to_program_id;
PVX_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select DOWNGRADE rule');
--PVX_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
--p_token_name => 'INFO',
--p_token_value => 'Pec_Rules') ;
Pv_Pec_Rules_Pkg.Update_Row(
p_enrl_change_rule_id => downg.enrl_change_rule_id,
px_object_version_number => downg.object_version_number,
p_change_from_program_id => downg.change_from_program_id,
p_change_to_program_id => downg.change_to_program_id,
p_change_direction_code => downg.change_direction_code,
p_effective_from_date => downg.effective_from_date,
p_effective_to_date => SYSDATE,
p_active_flag => downg.active_flag,
p_last_updated_by => FND_GLOBAL.USER_ID,
p_last_update_date => SYSDATE,
p_last_update_login => FND_GLOBAL.conc_login_id);
ROLLBACK TO DELETE_Pec_Rules_PVT;
ROLLBACK TO DELETE_Pec_Rules_PVT;
ROLLBACK TO DELETE_Pec_Rules_PVT;
End Delete_Pec_Rules;
SELECT *
FROM pv_pg_enrl_change_rules
WHERE enrl_change_rule_id = p_pec_rules_rec.enrl_change_rule_id;
IF p_pec_rules_rec.last_updated_by IS NULL THEN
x_complete_rec.last_updated_by := l_pec_rules_rec.last_updated_by;
IF p_pec_rules_rec.last_update_date IS NULL THEN
x_complete_rec.last_update_date := l_pec_rules_rec.last_update_date;
IF p_pec_rules_rec.last_update_login IS NULL THEN
x_complete_rec.last_update_login := l_pec_rules_rec.last_update_login;