172: fnd_message.set_name('PER','AME_400625_PROHIBITED_PKG');
173: fnd_message.set_token('PACKAGE','DBMS_OUTPUT');
174: return fnd_message.get;
175: end if;
176: if instr(lower(temp_query_string),'dbms_sql.',1,1) > 0 then
177: fnd_message.set_name('PER','AME_400625_PROHIBITED_PKG');
178: fnd_message.set_token('PACKAGE','DBMS_SQL');
179: return fnd_message.get;
180: end if;
174: return fnd_message.get;
175: end if;
176: if instr(lower(temp_query_string),'dbms_sql.',1,1) > 0 then
177: fnd_message.set_name('PER','AME_400625_PROHIBITED_PKG');
178: fnd_message.set_token('PACKAGE','DBMS_SQL');
179: return fnd_message.get;
180: end if;
181: if instr(lower(temp_query_string),'ht'||'f.',1,1) > 0 then
182: fnd_message.set_name('PER','AME_400625_PROHIBITED_PKG');
231: end if;
232: return fnd_message.get;
233: end;
234: end if;
235: query_cursor := dbms_sql.open_cursor;
236:
237: dbms_sql.parse
238: (query_cursor
239: ,p_query_string
233: end;
234: end if;
235: query_cursor := dbms_sql.open_cursor;
236:
237: dbms_sql.parse
238: (query_cursor
239: ,p_query_string
240: ,dbms_sql.native
241: );
236:
237: dbms_sql.parse
238: (query_cursor
239: ,p_query_string
240: ,dbms_sql.native
241: );
242:
243: if p_columns is null then
244: dbms_sql.close_cursor(query_cursor);
240: ,dbms_sql.native
241: );
242:
243: if p_columns is null then
244: dbms_sql.close_cursor(query_cursor);
245: return 'Y';
246: else
247: begin
248: dbms_sql.define_column(query_cursor,p_columns,columna,100);
244: dbms_sql.close_cursor(query_cursor);
245: return 'Y';
246: else
247: begin
248: dbms_sql.define_column(query_cursor,p_columns,columna,100);
249: begin
250: dbms_sql.define_column(query_cursor,p_columns + 1,columnb,100);
251: dbms_sql.close_cursor(query_cursor);
252: if p_columns > 1 then
246: else
247: begin
248: dbms_sql.define_column(query_cursor,p_columns,columna,100);
249: begin
250: dbms_sql.define_column(query_cursor,p_columns + 1,columnb,100);
251: dbms_sql.close_cursor(query_cursor);
252: if p_columns > 1 then
253: fnd_message.set_name('PER','AME_400626_INVALID_NUM_COLS');
254: fnd_message.set_token('NUMCOLS',p_columns);
247: begin
248: dbms_sql.define_column(query_cursor,p_columns,columna,100);
249: begin
250: dbms_sql.define_column(query_cursor,p_columns + 1,columnb,100);
251: dbms_sql.close_cursor(query_cursor);
252: if p_columns > 1 then
253: fnd_message.set_name('PER','AME_400626_INVALID_NUM_COLS');
254: fnd_message.set_token('NUMCOLS',p_columns);
255: else
257: end if;
258: return fnd_message.get;
259: exception
260: when others then
261: dbms_sql.close_cursor(query_cursor);
262: return 'Y';
263: end;
264: exception
265: when others then
262: return 'Y';
263: end;
264: exception
265: when others then
266: dbms_sql.close_cursor(query_cursor);
267: if p_columns > 1 then
268: fnd_message.set_name('PER','AME_400626_INVALID_NUM_COLS');
269: fnd_message.set_token('NUMCOLS',p_columns);
270: else
275: end if;
276: exception
277:
278: when others then
279: dbms_sql.close_cursor(query_cursor);
280: fnd_message.set_name('PER','AME_400627_QUERY_SQL_INVALID');
281: error_string := sqlerrm;
282: if instrb(error_string,':',1,1) > 0 then
283: error_string := substrb(error_string,instrb(error_string,':',1,1) + 2);
336: l_parameter_one,
337: l_parameter_two;
338: close getActionDescQueryAndParam;
339: begin
340: query_cursor := dbms_sql.open_cursor;
341: dbms_sql.parse
342: (query_cursor
343: ,l_query_string
344: ,dbms_sql.native
337: l_parameter_two;
338: close getActionDescQueryAndParam;
339: begin
340: query_cursor := dbms_sql.open_cursor;
341: dbms_sql.parse
342: (query_cursor
343: ,l_query_string
344: ,dbms_sql.native
345: );
340: query_cursor := dbms_sql.open_cursor;
341: dbms_sql.parse
342: (query_cursor
343: ,l_query_string
344: ,dbms_sql.native
345: );
346: if instrb(l_query_string,':parameterOne') > 0 then
347: dbms_sql.bind_variable
348: (query_cursor
343: ,l_query_string
344: ,dbms_sql.native
345: );
346: if instrb(l_query_string,':parameterOne') > 0 then
347: dbms_sql.bind_variable
348: (query_cursor
349: ,':parameterOne'
350: ,l_parameter_one
351: ,320);
350: ,l_parameter_one
351: ,320);
352: end if;
353: if instrb(l_query_string,':parameterTwo') > 0 then
354: dbms_sql.bind_variable
355: (query_cursor
356: ,':parameterTwo'
357: ,l_parameter_two
358: ,320);
356: ,':parameterTwo'
357: ,l_parameter_two
358: ,320);
359: end if;
360: dbms_sql.define_column(query_cursor,1,action_description,500);
361: l_result := dbms_sql.execute(query_cursor);
362: if dbms_sql.fetch_rows(query_cursor) > 0 then
363: dbms_sql.column_value(query_cursor,1,action_description);
364: end if;
357: ,l_parameter_two
358: ,320);
359: end if;
360: dbms_sql.define_column(query_cursor,1,action_description,500);
361: l_result := dbms_sql.execute(query_cursor);
362: if dbms_sql.fetch_rows(query_cursor) > 0 then
363: dbms_sql.column_value(query_cursor,1,action_description);
364: end if;
365: dbms_sql.close_cursor(query_cursor);
358: ,320);
359: end if;
360: dbms_sql.define_column(query_cursor,1,action_description,500);
361: l_result := dbms_sql.execute(query_cursor);
362: if dbms_sql.fetch_rows(query_cursor) > 0 then
363: dbms_sql.column_value(query_cursor,1,action_description);
364: end if;
365: dbms_sql.close_cursor(query_cursor);
366: return action_description;
359: end if;
360: dbms_sql.define_column(query_cursor,1,action_description,500);
361: l_result := dbms_sql.execute(query_cursor);
362: if dbms_sql.fetch_rows(query_cursor) > 0 then
363: dbms_sql.column_value(query_cursor,1,action_description);
364: end if;
365: dbms_sql.close_cursor(query_cursor);
366: return action_description;
367: exception
361: l_result := dbms_sql.execute(query_cursor);
362: if dbms_sql.fetch_rows(query_cursor) > 0 then
363: dbms_sql.column_value(query_cursor,1,action_description);
364: end if;
365: dbms_sql.close_cursor(query_cursor);
366: return action_description;
367: exception
368: when others then
369: fnd_message.set_name('PER','AME_400636_INV_DYN_ACT_DESC');