The following lines contain the word 'select', 'insert', 'update' or 'delete':
l_select_column varchar2(30); -- select column for universeQuery
vstr1 := 'SELECT ';
'Select select_column, entity_name ' ||
' From IEX_OBJECT_FILTERS ' ||
' Where object_id = :p_object_id AND ' ||
' Object_Filter_Type = :p_object_Type '
into l_select_column , l_entity_name
using p_object_id, p_object_Type;
vPLSQL:= vstr1 || l_select_column ||
vstr2 || l_entity_name ||
vstr3 || l_select_column || vstr4 ||
' AND ' || l_select_column || ' > :1 ' || --l_last_object_scored || --Added bind variable for bug#7166924 by schekuri on 25-Aug-2008
' ORDER BY ' || l_select_column;
IEX_UTILITIES.VALIDATE_ANY_VARCHAR(P_COL_VALUE => p_filter_rec.SELECT_COLUMN,
P_COL_NAME => 'COLUMN_NAME',
P_TABLE_NAME => 'ALL_TAB_COLUMNS',
X_Return_Status => l_return_status,
X_Msg_Count => x_msg_count,
X_Msg_Data => x_msg_data,
p_init_msg_list => fnd_api.g_false);
Select IEX_OBJECT_FILTERS_S.nextval into x_filter_id
From Dual;
iex_dunning_pvt.WriteLog('iexpfilb:CreateFilter:insert row');
IEX_OBJECT_FILTERS_PKG.insert_row(
x_rowid => l_rowid
,p_object_filter_id => x_filter_id
,p_object_filter_type => l_FILTER_REC.object_filter_type
,p_object_filter_name => l_FILTER_REC.object_filter_name
,p_object_id => l_FILTER_REC.object_id
,p_select_column => l_FILTER_REC.select_column
,p_entity_name => l_FILTER_REC.entity_name
,p_active_flag => l_filter_rec.active_flag
,p_object_version_number => 1
,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.USER_ID);
Procedure Update_OBJECT_FILTER
(p_api_version IN NUMBER := 1.0,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
P_FILTER_REC IN IEX_FILTER_PUB.FILTER_REC_TYPE := G_MISS_FILTER_REC,
x_dup_status OUT NOCOPY VARCHAR2,
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) := 'UPdate_Object_Filter';
SELECT COUNT(OBJECT_FILTER_NAME)
FROM IEX_OBJECT_FILTERS
WHERE OBJECT_FILTER_ID <> IN_OBJECT_FILTER_ID
AND OBJECT_FILTER_NAME = IN_NAME;
SELECT ROWID
,OBJECT_FILTER_ID
,OBJECT_FILTER_TYPE
,OBJECT_FILTER_NAME
,OBJECT_ID
,SELECT_COLUMN
,ENTITY_NAME
,ACTIVE_FLAG
,OBJECT_VERSION_NUMBER
,CREATION_DATE
,CREATED_BY
,LAST_UPDATE_DATE
,LAST_UPDATED_BY
,LAST_UPDATE_LOGIN
from iex_object_filters
where object_filter_id = in_filter_id
FOR UPDATE NOWAIT;
SAVEPOINT UPDATE_OBJECT_FILTER_PVT;
iex_dunning_pvt.WriteLog('iexpfilb:UpdateFilter:start');
iex_dunning_pvt.WriteLog('iexpfilb:UpdateFilter:validation:chk_dup_filter_name');
iex_dunning_pvt.WriteLog('iexpfilb:UpdateFilter:dup object_filter_name');
,l_filter_ref_rec.SELECT_COLUMN
,l_filter_ref_rec.ENTITY_NAME
,l_filter_ref_rec.ACTIVE_FLAG
,l_filter_ref_rec.OBJECT_VERSION_NUMBER
,l_filter_ref_rec.CREATION_DATE
,l_filter_ref_rec.CREATED_BY
,l_filter_ref_rec.LAST_UPDATE_DATE
,l_filter_ref_rec.LAST_UPDATED_BY
,l_filter_ref_rec.LAST_UPDATE_LOGIN;
FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
IF (l_filter_ref_rec.last_update_date is NULL or
l_filter_ref_rec.last_update_date = FND_API.G_MISS_Date)
THEN
IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
THEN
FND_MESSAGE.Set_Name('IEX', 'API_MISSING_ID');
FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
IF ((l_filter_rec.SELECT_COLUMN = FND_API.G_MISS_CHAR) OR
(l_filter_rec.SELECT_COLUMN = NULL)) THEN
l_filter_rec.SELECT_COLUMN := l_filter_ref_rec.SELECT_COLUMN;
iex_dunning_pvt.WriteLog('iexpfilb:UpdateFilter:update row');
IEX_OBJECT_FILTERS_PKG.update_row(
x_rowid => l_rowid
,p_object_filter_id => l_filter_rec.object_filter_id
,p_object_filter_type => l_FILTER_REC.object_filter_type
,p_object_filter_name => l_FILTER_REC.object_filter_name
,p_object_id => l_FILTER_REC.object_id
,p_select_column => l_FILTER_REC.select_column
,p_entity_name => l_FILTER_REC.entity_name
,p_active_flag => l_filter_rec.active_flag
,p_object_version_number => 1
,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.USER_ID);
iex_dunning_pvt.WriteLog('iexpfilb:UpdateFilter:end');
ROLLBACK TO UPDATE_OBJECT_FILTER_PVT;
iex_dunning_pvt.WriteLog('iexpfilb:UpdateFilter:EXC ERROR');
iex_dunning_pvt.WriteLog('iexpfilb:UpdateFilter:err='||SQLERRM);
ROLLBACK TO UPDATE_OBJECT_FILTER_PVT;
iex_dunning_pvt.WriteLog('iexpfilb:UpdateFilter:UNEXC ERROR');
iex_dunning_pvt.WriteLog('iexpfilb:UpdateFilter:err='||SQLERRM);
ROLLBACK TO UPDATE_OBJECT_FILTER_PVT;
iex_dunning_pvt.WriteLog('iexpfilb:UpdateFilter:OTHER ERROR');
iex_dunning_pvt.WriteLog('iexpfilb:UpdateFilter:err='||SQLERRM);
END UPDATE_OBJECT_FILTER;
Procedure Delete_OBJECT_FILTER
(p_api_version IN NUMBER := 1.0,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
P_OBJECT_FILTER_ID IN NUMBER,
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) := 'Delete_Object_Filter';
SELECT rowid
FROM IEX_OBJECT_FILTERS
WHERE OBJECT_FILTER_ID = IN_FILTER_ID;
SAVEPOINT DELETE_OBJECT_FILTER_PVT;
iex_dunning_pvt.WriteLog('iexpfilb:DeleteFilter:Start');
FND_MESSAGE.Set_Name('IEX', 'API_MISSING_UPDATE_TARGET');
iex_dunning_pvt.WriteLog('iexpfilb:DeleteFilter:Delete Row');
IEX_object_filters_PKG.Delete_Row(
x_rowid => l_rowid);
iex_dunning_pvt.WriteLog('iexpfilb:DeleteFilter:End');
ROLLBACK TO DELETE_OBJECT_FILTER_PVT;
iex_dunning_pvt.WriteLog('iexpfilb:DeleteFilter:EXP ERROR');
iex_dunning_pvt.WriteLog('iexpfilb:DeleteFilter:err='||SQLERRM);
ROLLBACK TO DELETE_OBJECT_FILTER_PVT;
iex_dunning_pvt.WriteLog('iexpfilb:DeleteFilter:UNEXP ERROR');
iex_dunning_pvt.WriteLog('iexpfilb:DeleteFilter:err='||SQLERRM);
ROLLBACK TO DELETE_OBJECT_FILTER_PVT;
iex_dunning_pvt.WriteLog('iexpfilb:DeleteFilter:OTHER ERROR');
iex_dunning_pvt.WriteLog('iexpfilb:DeleteFilter:err='||SQLERRM);
END DELETE_OBJECT_FILTER;