The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT AMS_IBA_PS_RULEGRPS_B_s.NEXTVAL
FROM dual;
SELECT 1
FROM AMS_IBA_PS_RULEGRPS_B
WHERE RULEGROUP_ID = l_id;
select count(1) into l_no from AMS_IBA_PS_RULEGRPS_B ps_rulegrp
where (ps_rulegrp.posting_id = p_rule_group_rec.posting_id
AND ps_rulegrp.exec_priority = p_rule_group_rec.exec_priority);
Select content_type into l_content_type from ams_iba_ps_postings_b
where posting_id = p_rule_group_rec.posting_id;
elsif p_rule_group_rec.strategy_type = 'MANUAL_SELECTION' then
l_ps_rules_rec.strategy_id := 7;
elsif p_rule_group_rec.strategy_type = 'MANUAL_SELECTION' then
l_ps_rules_rec.strategy_id := 9;
elsif p_rule_group_rec.strategy_type = 'MANUAL_SELECTION' then
l_ps_rules_rec.strategy_id := 8;
AMS_IBA_PS_RULEGRPS_B_PKG.Insert_Row(
px_rulegroup_id => l_rulegroup_id,
p_posting_id => p_rule_group_rec.posting_id,
p_strategy_type => p_rule_group_rec.strategy_type,
p_exec_priority => p_rule_group_rec.exec_priority,
p_last_update_date => SYSDATE,
p_last_update_login => FND_GLOBAL.CONC_LOGIN_ID,
p_created_by => FND_GLOBAL.USER_ID,
p_creation_date => SYSDATE,
p_last_updated_by => FND_GLOBAL.USER_ID,
px_object_version_number => l_object_version_number,
p_rule_name => p_rule_group_rec.rule_name,
p_rule_description => p_rule_group_rec.rule_description);
Select content_type into l_content_type from ams_iba_ps_postings_b
where posting_id = p_rule_group_rec.posting_id;
elsif p_rule_group_rec.strategy_type = 'MANUAL_SELECTION' then
l_ps_rules_rec.strategy_id := 7;
elsif p_rule_group_rec.strategy_type = 'MANUAL_SELECTION' then
l_ps_rules_rec.strategy_id := 9;
elsif p_rule_group_rec.strategy_type = 'MANUAL_SELECTION' then
l_ps_rules_rec.strategy_id := 8;
PROCEDURE Update_Rule_Group(
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_rule_group_rec IN rule_group_rec_type,
x_object_version_number OUT NOCOPY NUMBER
)
IS
L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Rule_Group';
SELECT object_version_number
FROM AMS_IBA_PS_RULEGRPS_B
WHERE rulegroup_id = rg_id;
SELECT strategy_type
FROM AMS_IBA_PS_RULEGRPS_B
WHERE rulegroup_id = rg_id;
SAVEPOINT UPDATE_Rule_Group_PVT;
select count(1) into l_no from AMS_IBA_PS_RULEGRPS_B ps_rulegrp
where
(ps_rulegrp.posting_id = p_rule_group_rec.posting_id
AND ps_rulegrp.rulegroup_id <> p_rule_group_rec.rulegroup_id
AND ps_rulegrp.exec_priority = p_rule_group_rec.exec_priority);
AMS_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
AMS_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
p_token_name => 'INFO',
p_token_value => 'Rulegroup') ;
AMS_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
p_token_name => 'INFO',
p_token_value => 'Rulegroup') ;
UPDATE AMS_IBA_PS_RULES SET
bus_priority_code = null,
bus_priority_disp_order = null
WHERE rulegroup_id = p_rule_group_rec.rulegroup_id;
DELETE FROM AMS_IBA_PS_RL_ST_PARAMS
WHERE rulegroup_id = p_rule_group_rec.rulegroup_id;
DELETE FROM AMS_IBA_PS_RL_ST_FLTRS
WHERE rulegroup_id = l_rulegroup_id;
AMS_UTILITY_PVT.debug_message('Trying to update B and TL tables for rulegrp and rules');
Update AMS_IBA_PS_RULEGRPS_B
SET
strategy_type = DECODE( p_rule_group_rec.strategy_type, FND_API.g_miss_char, strategy_type, p_rule_group_rec.strategy_type),
exec_priority = DECODE( p_rule_group_rec.exec_priority, FND_API.g_miss_num, exec_priority, p_rule_group_rec.exec_priority),
last_updated_by = FND_GLOBAL.user_id,
last_update_date = SYSDATE,
last_update_login = FND_GLOBAL.conc_login_id,
object_version_number = p_rule_group_rec.object_version_number+1
WHERE RULEGROUP_ID = p_rule_group_rec.rulegroup_id
AND object_version_number = p_rule_group_rec.object_version_number;
Update AMS_IBA_PS_RULES
SET
last_updated_by = FND_GLOBAL.user_id,
last_update_date = SYSDATE,
last_update_login = FND_GLOBAL.conc_login_id,
object_version_number = p_rule_group_rec.object_version_number+1,
exec_priority = DECODE(p_rule_group_rec.exec_priority,FND_API.g_miss_num,exec_priority,p_rule_group_rec.exec_priority)
--strategy_id = DECODE( p_rule_group_rec.strategy_id, FND_API.g_miss_num,strategy_id, p_rule_group_rec.strategy_id),
--bus_priority_code = DECODE( p_rule_group_rec.bus_priority_code, FND_API.g_miss_char, bus_priority_code, p_rule_group_rec.bus_priority_code),
--bus_priority_disp_order = DECODE(p_rule_group_rec.bus_priority_disp_order, FND_API.g_miss_char, bus_priority_disp_order, p_rule_group_rec.bus_priority_disp_order),
WHERE RULEGROUP_ID = p_rule_group_rec.RULEGROUP_ID;
AMS_UTILITY_PVT.debug_message('Private API: Updated B');
UPDATE AMS_IBA_PS_RULEGRPS_TL
SET
rulegroup_name = decode( p_rule_group_rec.rule_name, FND_API.G_MISS_CHAR, rulegroup_name, p_rule_group_rec.rule_name),
rulegroup_description = decode( p_rule_group_rec.rule_description, FND_API.G_MISS_CHAR, rulegroup_description, p_rule_group_rec.rule_description),
last_update_date = SYSDATE,
last_updated_by = FND_GLOBAL.user_id,
last_update_login = FND_GLOBAL.conc_login_id,
source_lang = USERENV('LANG')
WHERE rulegroup_id = p_rule_group_rec.rulegroup_id
AND USERENV('LANG') IN (language, source_lang);
AMS_UTILITY_PVT.debug_message('Private API: Updated TL');
ROLLBACK TO UPDATE_Rule_Group_PVT;
ROLLBACK TO UPDATE_Rule_Group_PVT;
ROLLBACK TO UPDATE_Rule_Group_PVT;
End Update_Rule_Group;
PROCEDURE Delete_Rule_Group(
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_rulegroup_id IN NUMBER,
p_object_version_number IN NUMBER
)
IS
L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_Rule_Group';
SAVEPOINT DELETE_Rule_Group_PVT;
AMS_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler');
AMS_IBA_PS_RULEGRPS_B_PKG.Delete_Row(
p_RULEGROUP_ID => p_RULEGROUP_ID);
ROLLBACK TO DELETE_Rule_Group_PVT;
ROLLBACK TO DELETE_Rule_Group_PVT;
ROLLBACK TO DELETE_Rule_Group_PVT;
End Delete_Rule_Group;
SELECT RULEGROUP_ID
FROM AMS_IBA_PS_RULEGRPS_B
WHERE RULEGROUP_ID = p_RULEGROUP_ID
AND object_version_number = p_object_version
FOR UPDATE NOWAIT;
SELECT *
FROM ams_iba_ps_rulegrps_b
WHERE rulegroup_id = p_rule_group_rec.rulegroup_id;
IF p_rule_group_rec.last_update_date = FND_API.g_miss_date THEN
x_complete_rec.last_update_date := l_rule_group_rec.last_update_date;
IF p_rule_group_rec.last_update_login = FND_API.g_miss_num THEN
x_complete_rec.last_update_login := l_rule_group_rec.last_update_login;
IF p_rule_group_rec.last_updated_by = FND_API.g_miss_num THEN
x_complete_rec.last_updated_by := l_rule_group_rec.last_updated_by;
p_validation_mode => JTF_PLSQL_API.g_update,
x_return_status => x_return_status
);