DBA Data[Home] [Help]

APPS.IGS_PE_DUP_PERSON dependencies on DBMS_SQL

Line 135: l_ext_cursor := DBMS_SQL.OPEN_CURSOR;

131: -- Run the select clause to find out the duplicate records if the select statement is not null using Dynamic SQL.
132: lv_Do_Partial := 'Y';
133: IF l_Select_Clause IS NOT NULL AND l_Select_Clause <> 'PARTIAL_MATCH' THEN
134: BEGIN
135: l_ext_cursor := DBMS_SQL.OPEN_CURSOR;
136: fnd_dsql.set_cursor(l_ext_cursor);
137:
138: DBMS_SQL.PARSE (l_ext_cursor, l_Select_Clause, DBMS_SQL.V7);
139: fnd_dsql.do_binds;

Line 138: DBMS_SQL.PARSE (l_ext_cursor, l_Select_Clause, DBMS_SQL.V7);

134: BEGIN
135: l_ext_cursor := DBMS_SQL.OPEN_CURSOR;
136: fnd_dsql.set_cursor(l_ext_cursor);
137:
138: DBMS_SQL.PARSE (l_ext_cursor, l_Select_Clause, DBMS_SQL.V7);
139: fnd_dsql.do_binds;
140:
141: dbms_sql.define_column(l_ext_cursor, 1, l_person_id);
142:

Line 141: dbms_sql.define_column(l_ext_cursor, 1, l_person_id);

137:
138: DBMS_SQL.PARSE (l_ext_cursor, l_Select_Clause, DBMS_SQL.V7);
139: fnd_dsql.do_binds;
140:
141: dbms_sql.define_column(l_ext_cursor, 1, l_person_id);
142:
143: lnRows := DBMS_SQL.EXECUTE (l_ext_cursor);
144:
145: LOOP

Line 143: lnRows := DBMS_SQL.EXECUTE (l_ext_cursor);

139: fnd_dsql.do_binds;
140:
141: dbms_sql.define_column(l_ext_cursor, 1, l_person_id);
142:
143: lnRows := DBMS_SQL.EXECUTE (l_ext_cursor);
144:
145: LOOP
146: -- fetch a row
147: IF dbms_sql.fetch_rows(l_ext_cursor) > 0 THEN

Line 147: IF dbms_sql.fetch_rows(l_ext_cursor) > 0 THEN

143: lnRows := DBMS_SQL.EXECUTE (l_ext_cursor);
144:
145: LOOP
146: -- fetch a row
147: IF dbms_sql.fetch_rows(l_ext_cursor) > 0 THEN
148: -- fetch columns from the row and prepare the where clause to pass to the form.
149: dbms_sql.column_value(l_ext_cursor, 1, l_person_id);
150: l_where_clause := l_where_clause || l_person_id || ',';
151: l_match_found := TRUE;

Line 149: dbms_sql.column_value(l_ext_cursor, 1, l_person_id);

145: LOOP
146: -- fetch a row
147: IF dbms_sql.fetch_rows(l_ext_cursor) > 0 THEN
148: -- fetch columns from the row and prepare the where clause to pass to the form.
149: dbms_sql.column_value(l_ext_cursor, 1, l_person_id);
150: l_where_clause := l_where_clause || l_person_id || ',';
151: l_match_found := TRUE;
152: ELSE
153: EXIT;

Line 171: DBMS_SQL.CLOSE_CURSOR (l_ext_cursor);

167: l_where_clause := ' person_id IN ( ';
168: l_match_found := FALSE;
169: END IF;
170:
171: DBMS_SQL.CLOSE_CURSOR (l_ext_cursor);
172:
173: EXCEPTION
174: WHEN OTHERS THEN
175: IF DBMS_SQL.IS_OPEN(l_Ext_Cursor) THEN

Line 175: IF DBMS_SQL.IS_OPEN(l_Ext_Cursor) THEN

171: DBMS_SQL.CLOSE_CURSOR (l_ext_cursor);
172:
173: EXCEPTION
174: WHEN OTHERS THEN
175: IF DBMS_SQL.IS_OPEN(l_Ext_Cursor) THEN
176: DBMS_SQL.CLOSE_CURSOR(l_Ext_Cursor);
177: END IF;
178: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP');
179: FND_MESSAGE.SET_TOKEN('NAME','igs_pe_dup_person.find_duplicates'||'-'||SQLERRM);

Line 176: DBMS_SQL.CLOSE_CURSOR(l_Ext_Cursor);

172:
173: EXCEPTION
174: WHEN OTHERS THEN
175: IF DBMS_SQL.IS_OPEN(l_Ext_Cursor) THEN
176: DBMS_SQL.CLOSE_CURSOR(l_Ext_Cursor);
177: END IF;
178: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP');
179: FND_MESSAGE.SET_TOKEN('NAME','igs_pe_dup_person.find_duplicates'||'-'||SQLERRM);
180: APP_EXCEPTION.RAISE_EXCEPTION;

Line 207: l_Ext_Cursor := DBMS_SQL.OPEN_CURSOR;

203:
204: -- Run the select statement using dynamic SQL to find the partial duplicate records.
205: IF l_Select_Clause IS NOT NULL THEN
206: BEGIN
207: l_Ext_Cursor := DBMS_SQL.OPEN_CURSOR;
208: fnd_dsql.set_cursor(l_ext_cursor);
209:
210: DBMS_SQL.PARSE (l_Ext_Cursor, l_Select_Clause, DBMS_SQL.V7);
211: fnd_dsql.do_binds;

Line 210: DBMS_SQL.PARSE (l_Ext_Cursor, l_Select_Clause, DBMS_SQL.V7);

206: BEGIN
207: l_Ext_Cursor := DBMS_SQL.OPEN_CURSOR;
208: fnd_dsql.set_cursor(l_ext_cursor);
209:
210: DBMS_SQL.PARSE (l_Ext_Cursor, l_Select_Clause, DBMS_SQL.V7);
211: fnd_dsql.do_binds;
212:
213: dbms_sql.define_column(l_ext_cursor, 1, l_person_id);
214:

Line 213: dbms_sql.define_column(l_ext_cursor, 1, l_person_id);

209:
210: DBMS_SQL.PARSE (l_Ext_Cursor, l_Select_Clause, DBMS_SQL.V7);
211: fnd_dsql.do_binds;
212:
213: dbms_sql.define_column(l_ext_cursor, 1, l_person_id);
214:
215: lnRows := DBMS_SQL.EXECUTE (l_Ext_Cursor);
216:
217: LOOP

Line 215: lnRows := DBMS_SQL.EXECUTE (l_Ext_Cursor);

211: fnd_dsql.do_binds;
212:
213: dbms_sql.define_column(l_ext_cursor, 1, l_person_id);
214:
215: lnRows := DBMS_SQL.EXECUTE (l_Ext_Cursor);
216:
217: LOOP
218: -- fetch a row
219: IF dbms_sql.fetch_rows(l_ext_cursor) > 0 THEN

Line 219: IF dbms_sql.fetch_rows(l_ext_cursor) > 0 THEN

215: lnRows := DBMS_SQL.EXECUTE (l_Ext_Cursor);
216:
217: LOOP
218: -- fetch a row
219: IF dbms_sql.fetch_rows(l_ext_cursor) > 0 THEN
220:
221: -- fetch columns from the row and concatenate to for the where clause to be returned to the form
222: dbms_sql.column_value(l_ext_cursor, 1, l_person_id);
223: l_where_clause := l_where_clause || l_person_id || ',';

Line 222: dbms_sql.column_value(l_ext_cursor, 1, l_person_id);

218: -- fetch a row
219: IF dbms_sql.fetch_rows(l_ext_cursor) > 0 THEN
220:
221: -- fetch columns from the row and concatenate to for the where clause to be returned to the form
222: dbms_sql.column_value(l_ext_cursor, 1, l_person_id);
223: l_where_clause := l_where_clause || l_person_id || ',';
224: l_match_found := TRUE;
225: ELSE
226: EXIT;

Line 243: DBMS_SQL.CLOSE_CURSOR (l_Ext_Cursor);

239: x_exact_partial := NULL;
240: x_dup_found := 'N';
241: END IF;
242:
243: DBMS_SQL.CLOSE_CURSOR (l_Ext_Cursor);
244:
245: EXCEPTION
246: WHEN OTHERS THEN
247: IF DBMS_SQL.IS_OPEN(l_Ext_Cursor) THEN

Line 247: IF DBMS_SQL.IS_OPEN(l_Ext_Cursor) THEN

243: DBMS_SQL.CLOSE_CURSOR (l_Ext_Cursor);
244:
245: EXCEPTION
246: WHEN OTHERS THEN
247: IF DBMS_SQL.IS_OPEN(l_Ext_Cursor) THEN
248: DBMS_SQL.CLOSE_CURSOR(l_Ext_Cursor);
249: END IF;
250: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP');
251: FND_MESSAGE.SET_TOKEN('NAME','igs_pe_dup_person.find_duplicates'||'-'||SQLERRM);

Line 248: DBMS_SQL.CLOSE_CURSOR(l_Ext_Cursor);

244:
245: EXCEPTION
246: WHEN OTHERS THEN
247: IF DBMS_SQL.IS_OPEN(l_Ext_Cursor) THEN
248: DBMS_SQL.CLOSE_CURSOR(l_Ext_Cursor);
249: END IF;
250: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP');
251: FND_MESSAGE.SET_TOKEN('NAME','igs_pe_dup_person.find_duplicates'||'-'||SQLERRM);
252: APP_EXCEPTION.RAISE_EXCEPTION;