391:
392: Begin
393: --
394: if (g_print_debug) then
395: arp_util_tax.debug('fa_rx_reports_pkg.validate_plsql_block(+)');
396: end if;
397: --
398: IF p_plsql IS not null THEN
399: if (g_print_debug) then
396: end if;
397: --
398: IF p_plsql IS not null THEN
399: if (g_print_debug) then
400: arp_util_tax.debug(p_plsql);
401: end if;
402:
403: BEGIN
404: plsql_block := 'BEGIN :dummy := ' || p_plsql ||'(0); end;';
406:
407: EXCEPTION
408: WHEN OTHERS THEN
409: if (g_print_debug) then
410: arp_util_tax.debug('Invalid Where Clause API/Purge API.');
411: end if;
412:
413: return FALSE;
414: END;
414: END;
415: end if;
416:
417: if (g_print_debug) then
418: arp_util_tax.debug('fa_rx_reports_pkg.validate_plsql_block(-)');
419: end if;
420:
421: return TRUE;
422: End;