The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT AMS_IBA_PS_STRATS_B_s.NEXTVAL
FROM dual;
SELECT 1
FROM AMS_IBA_PS_STRATS_B
WHERE STRATEGY_ID = l_id;
AMS_IBA_PS_STRATS_B_PKG.Insert_Row(
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,
px_object_version_number => l_object_version_number,
px_strategy_id => l_strategy_id,
p_max_returned => p_ps_strats_rec.max_returned,
p_strategy_type => p_ps_strats_rec.strategy_type,
p_content_type => p_ps_strats_rec.content_type,
p_strategy_ref_code => p_ps_strats_rec.strategy_ref_code,
p_selector_class => p_ps_strats_rec.selector_class,
p_strategy_name => p_ps_strats_rec.strategy_name,
p_strategy_description => p_ps_strats_rec.strategy_description);
PROCEDURE Update_Ps_Strats(
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_ps_strats_rec IN ps_strats_rec_type,
x_object_version_number OUT NOCOPY NUMBER
)
IS
--/*
--CURSOR c_get_ps_strats(created_by NUMBER) IS
CURSOR c_get_ps_strats(p_strategy_id NUMBER) IS
SELECT object_version_number
FROM AMS_IBA_PS_STRATS_B
WHERE strategy_id = p_strategy_id;
L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Ps_Strats';
SAVEPOINT UPDATE_Ps_Strats_PVT;
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 => 'Ps_Strats') ;
p_token_value => 'Last_Update_Date') ;
AMS_IBA_PS_STRATS_B_PKG.Update_Row(
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,
p_object_version_number => p_ps_strats_rec.object_version_number,
p_strategy_id => p_ps_strats_rec.strategy_id,
p_max_returned => p_ps_strats_rec.max_returned,
p_strategy_type => p_ps_strats_rec.strategy_type,
p_content_type => p_ps_strats_rec.content_type,
p_strategy_ref_code => p_ps_strats_rec.strategy_ref_code,
p_selector_class => p_ps_strats_rec.selector_class,
p_strategy_name => p_ps_strats_rec.strategy_name,
p_strategy_description => p_ps_strats_rec.strategy_description);
ROLLBACK TO UPDATE_Ps_Strats_PVT;
ROLLBACK TO UPDATE_Ps_Strats_PVT;
ROLLBACK TO UPDATE_Ps_Strats_PVT;
End Update_Ps_Strats;
PROCEDURE Update_Ps_Strats_Seg(
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_ps_strats_rec IN ps_strats_rec_type,
x_object_version_number OUT NOCOPY NUMBER,
p_strat_type IN VARCHAR2
)
IS
BEGIN
-- Standard Start of API savepoint
--SAVEPOINT UPDATE_Ps_Strats_Seg_PVT;
UPDATE ams_iba_ps_strats_b
SET
max_returned = p_ps_strats_rec.max_returned
WHERE strategy_type = 'PRODUCT_RELATIONSHIP';
UPDATE ams_iba_ps_strats_b
SET
max_returned = p_ps_strats_rec.max_returned
WHERE strategy_type = 'INFERRED_OP';
END Update_Ps_Strats_Seg;
PROCEDURE Delete_Ps_Strats(
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_strategy_id IN NUMBER,
p_object_version_number IN NUMBER
)
IS
L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_Ps_Strats';
SAVEPOINT DELETE_Ps_Strats_PVT;
AMS_UTILITY_PVT.debug_message('Private API: Calling delete table handler');
AMS_IBA_PS_STRATS_B_PKG.Delete_Row(
p_STRATEGY_ID => p_STRATEGY_ID);
ROLLBACK TO DELETE_Ps_Strats_PVT;
ROLLBACK TO DELETE_Ps_Strats_PVT;
ROLLBACK TO DELETE_Ps_Strats_PVT;
End Delete_Ps_Strats;
SELECT STRATEGY_ID
FROM AMS_IBA_PS_STRATS_B
WHERE STRATEGY_ID = p_STRATEGY_ID
AND object_version_number = p_object_version
FOR UPDATE NOWAIT;
IF p_ps_strats_rec.last_updated_by = FND_API.g_miss_num OR p_ps_strats_rec.last_updated_by IS NULL THEN
AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_strats_NO_last_updated_by');
IF p_ps_strats_rec.last_update_date = FND_API.g_miss_date OR p_ps_strats_rec.last_update_date IS NULL THEN
AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_strats_NO_last_update_date');
IF p_ps_strats_rec.last_updated_by IS NULL THEN
AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_strats_NO_last_updated_by');
IF p_ps_strats_rec.last_update_date IS NULL THEN
AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ps_strats_NO_last_update_date');
SELECT *
FROM ams_iba_ps_strats_b
WHERE strategy_id = p_ps_strats_rec.strategy_id;
IF p_ps_strats_rec.last_updated_by = FND_API.g_miss_num THEN
x_complete_rec.last_updated_by := l_ps_strats_rec.last_updated_by;
IF p_ps_strats_rec.last_update_date = FND_API.g_miss_date THEN
x_complete_rec.last_update_date := l_ps_strats_rec.last_update_date;
IF p_ps_strats_rec.last_update_login = FND_API.g_miss_num THEN
x_complete_rec.last_update_login := l_ps_strats_rec.last_update_login;
IF p_ps_strats_rec.selector_class = FND_API.g_miss_char THEN
x_complete_rec.selector_class := l_ps_strats_rec.selector_class;
p_validation_mode => JTF_PLSQL_API.g_update,
x_return_status => x_return_status
);