478: ||' ) ';
479: --
480: -- Open Cursor for Processing Sql statment.
481: --
482: l_sql_cursor := dbms_sql.open_cursor;
483: --
484: -- Parse SQL statement.
485: --
486: dbms_sql.parse(l_sql_cursor, l_sql_text, dbms_sql.v7);
482: l_sql_cursor := dbms_sql.open_cursor;
483: --
484: -- Parse SQL statement.
485: --
486: dbms_sql.parse(l_sql_cursor, l_sql_text, dbms_sql.v7);
487: --
488: -- Map the local variables to each returned Column
489: --
490: dbms_sql.define_column(l_sql_cursor, 1,l_oci_out,1);
486: dbms_sql.parse(l_sql_cursor, l_sql_text, dbms_sql.v7);
487: --
488: -- Map the local variables to each returned Column
489: --
490: dbms_sql.define_column(l_sql_cursor, 1,l_oci_out,1);
491: --
492: -- Execute the SQL statement.
493: --
494: l_rows_fetched := dbms_sql.execute(l_sql_cursor);
490: dbms_sql.define_column(l_sql_cursor, 1,l_oci_out,1);
491: --
492: -- Execute the SQL statement.
493: --
494: l_rows_fetched := dbms_sql.execute(l_sql_cursor);
495: --
496: if (dbms_sql.fetch_rows(l_sql_cursor) > 0)
497: then
498: fnd_message.set_name('PAY','HR_6048_PO_POS_DEL_POS_CONT');
492: -- Execute the SQL statement.
493: --
494: l_rows_fetched := dbms_sql.execute(l_sql_cursor);
495: --
496: if (dbms_sql.fetch_rows(l_sql_cursor) > 0)
497: then
498: fnd_message.set_name('PAY','HR_6048_PO_POS_DEL_POS_CONT');
499: fnd_message.raise_error;
500: end if;
500: end if;
501: --
502: -- Close cursor used for processing SQL statement.
503: --
504: dbms_sql.close_cursor(l_sql_cursor);
505: end;
506: end if;
507: end if;
508: --