[Home] [Help]
1: PACKAGE BODY IEX_FILTER_PUB AS
2: /* $Header: iexpfilb.pls 120.13 2010/07/28 16:34:35 barathsr ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'IEX_FILTER_PUB';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'iexpfilb.pls';
1: PACKAGE BODY IEX_FILTER_PUB AS
2: /* $Header: iexpfilb.pls 120.13 2010/07/28 16:34:35 barathsr ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'IEX_FILTER_PUB';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'iexpfilb.pls';
6: G_Batch_Size NUMBER := to_number(nvl(fnd_profile.value('IEX_BATCH_SIZE'), '1000'));
7: PG_DEBUG NUMBER;
8:
87: ,p_query_obj_id in varchar2 --Added for Bug 8933776 16-Dec-2009 barathsr
88: ,p_limit_rows in number default null --Added for Bug 8933776 16-Dec-2009 barathsr
89: ,p_object_type IN VARCHAR2
90: ,p_last_object_scored in out nocopy number
91: ,x_end_of_universe out nocopy boolean) return IEX_FILTER_PUB.UNIVERSE_IDS
92:
93: IS
94: l_select_column varchar2(30); -- select column for universeQuery
95: l_entity_name varchar2(30); -- entity for universeQuery
97: Type refCur is Ref Cursor;
98: --object_cur refCur;
99: vPLSQL varchar2(2000);
100: Universe_cur refCur;
101: l_universe_ids IEX_FILTER_PUB.UNIVERSE_IDS;
102: i number := 0;
103: l_last_object_scored number;
104: l_api_name varchar2(20);
105:
201:
202: exception
203:
204: When No_Data_Found then
205: IEX_DEBUG_PUB.logMessage('IEX_FILTER_PUB: buildUniverse: ' || sqlerrm ||' ' || sqlcode);
206: return l_universe_ids;
207: When others Then
208: IEX_DEBUG_PUB.logMessage('IEX_FILTER_PUB: buildUniverse: ' || sqlerrm ||' ' || sqlcode);
209: return l_universe_ids;
204: When No_Data_Found then
205: IEX_DEBUG_PUB.logMessage('IEX_FILTER_PUB: buildUniverse: ' || sqlerrm ||' ' || sqlcode);
206: return l_universe_ids;
207: When others Then
208: IEX_DEBUG_PUB.logMessage('IEX_FILTER_PUB: buildUniverse: ' || sqlerrm ||' ' || sqlcode);
209: return l_universe_ids;
210: end buildUniverse;
211:
212: Procedure Validate_FILTER(P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
209: return l_universe_ids;
210: end buildUniverse;
211:
212: Procedure Validate_FILTER(P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
213: P_FILTER_rec IN IEX_FILTER_PUB.FILTER_REC_TYPE,
214: X_Dup_Status OUT NOCOPY VARCHAR2,
215: X_Return_Status OUT NOCOPY VARCHAR2,
216: X_Msg_Count OUT NOCOPY NUMBER,
217: X_Msg_Data OUT NOCOPY VARCHAR2)
216: X_Msg_Count OUT NOCOPY NUMBER,
217: X_Msg_Data OUT NOCOPY VARCHAR2)
218:
219: IS
220: l_filter_rec IEX_FILTER_PUB.FILTER_REC_TYPE;
221: l_table_name varchar2(50);
222: l_col_name varchar2(25);
223: l_return_Status varchar2(1);
224: L_API_NAME varchar2(25);
400: Procedure Create_OBJECT_FILTER
401: (p_api_version IN NUMBER := 1.0,
402: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
403: p_commit IN VARCHAR2 := FND_API.G_FALSE,
404: P_FILTER_REC IN IEX_FILTER_PUB.FILTER_REC_TYPE := G_MISS_FILTER_REC,
405: x_dup_status OUT NOCOPY VARCHAR2,
406: x_return_status OUT NOCOPY VARCHAR2,
407: x_msg_count OUT NOCOPY NUMBER,
408: x_msg_data OUT NOCOPY VARCHAR2,
414: l_return_status VARCHAR2(1);
415: l_msg_count NUMBER;
416: l_msg_data VARCHAR2(32767);
417: l_rowid Varchar2(50);
418: l_FILTER_REC IEX_FILTER_PUB.FILTER_REC_TYPE ;
419: l_object_filter_id NUMBER ;
420:
421:
422: BEGIN
544: Procedure Update_OBJECT_FILTER
545: (p_api_version IN NUMBER := 1.0,
546: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
547: p_commit IN VARCHAR2 := FND_API.G_FALSE,
548: P_FILTER_REC IN IEX_FILTER_PUB.FILTER_REC_TYPE := G_MISS_FILTER_REC,
549: x_dup_status OUT NOCOPY VARCHAR2,
550: x_return_status OUT NOCOPY VARCHAR2,
551: x_msg_count OUT NOCOPY NUMBER,
552: x_msg_data OUT NOCOPY VARCHAR2)
556: l_return_status VARCHAR2(1);
557: l_msg_count NUMBER;
558: l_msg_data VARCHAR2(32767);
559: l_rowid Varchar2(50);
560: l_FILTER_REC IEX_FILTER_PUB.FILTER_REC_TYPE ;
561: l_filter_ref_rec IEX_FILTER_PUB.FILTER_REC_TYPE;
562: l_name_cnt NUMBER;
563:
564:
557: l_msg_count NUMBER;
558: l_msg_data VARCHAR2(32767);
559: l_rowid Varchar2(50);
560: l_FILTER_REC IEX_FILTER_PUB.FILTER_REC_TYPE ;
561: l_filter_ref_rec IEX_FILTER_PUB.FILTER_REC_TYPE;
562: l_name_cnt NUMBER;
563:
564:
565: CURSOR C_CHK_FILTER_NAME (IN_OBJECT_FILTER_ID NUMBER, IN_NAME VARCHAR) IS
913: BEGIN
914:
915: PG_DEBUG := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
916:
917: END IEX_FILTER_PUB;