APPS.PA_PURGE_PUB dependencies on DBMS_SQL

Line 511: source_cursor := dbms_sql.open_cursor;

507: sql_command := 'SELECT 1 from dual where exists(SELECT NAME FROM PJI_SYSTEM_PARAMETERS)' ;
508:
509: BEGIN
510:
511: source_cursor := dbms_sql.open_cursor;
512: dbms_sql.parse(source_cursor,sql_command,dbms_sql.native);
513: rowexists := dbms_sql.execute(source_cursor);
514:
515: -- Bug 5201806 : Start

Line 512: dbms_sql.parse(source_cursor,sql_command,dbms_sql.native);

508:
509: BEGIN
510:
511: source_cursor := dbms_sql.open_cursor;
512: dbms_sql.parse(source_cursor,sql_command,dbms_sql.native);
513: rowexists := dbms_sql.execute(source_cursor);
514:
515: -- Bug 5201806 : Start
516: l_rows_returned := DBMS_SQL.FETCH_ROWS(source_cursor);

Line 513: rowexists := dbms_sql.execute(source_cursor);

509: BEGIN
510:
511: source_cursor := dbms_sql.open_cursor;
512: dbms_sql.parse(source_cursor,sql_command,dbms_sql.native);
513: rowexists := dbms_sql.execute(source_cursor);
514:
515: -- Bug 5201806 : Start
516: l_rows_returned := DBMS_SQL.FETCH_ROWS(source_cursor);
517: IF nvl(l_rows_returned,0) > 0 THEN

Line 516: l_rows_returned := DBMS_SQL.FETCH_ROWS(source_cursor);

512: dbms_sql.parse(source_cursor,sql_command,dbms_sql.native);
513: rowexists := dbms_sql.execute(source_cursor);
514:
515: -- Bug 5201806 : Start
516: l_rows_returned := DBMS_SQL.FETCH_ROWS(source_cursor);
517: IF nvl(l_rows_returned,0) > 0 THEN
518: rowexists := 1 ; -- Assigning 1 to indicate that rowexists
519: ELSE
520: rowexists := 0 ; -- No rows returned by cursor

Line 524: dbms_sql.close_cursor(source_cursor);

520: rowexists := 0 ; -- No rows returned by cursor
521: END IF;
522: -- Bug 5201806 : End
523:
524: dbms_sql.close_cursor(source_cursor);
525: EXCEPTION
526:
527: WHEN OTHERS THEN
528: IF dbms_sql.is_open(source_cursor) THEN

Line 528: IF dbms_sql.is_open(source_cursor) THEN

524: dbms_sql.close_cursor(source_cursor);
525: EXCEPTION
526:
527: WHEN OTHERS THEN
528: IF dbms_sql.is_open(source_cursor) THEN
529: dbms_sql.close_cursor(source_cursor);
530: END IF;
531: rowexists := 0;
532: END;

Line 529: dbms_sql.close_cursor(source_cursor);

525: EXCEPTION
526:
527: WHEN OTHERS THEN
528: IF dbms_sql.is_open(source_cursor) THEN
529: dbms_sql.close_cursor(source_cursor);
530: END IF;
531: rowexists := 0;
532: END;
533: