806: END IF;
807:
808: l_sql_stmt := 'SELECT PARTY_ID FROM '|| l_sql_stmt;
809:
810: v_cursorID := DBMS_SQL.OPEN_CURSOR;
811: -- dbms_output.put_line(l_sql_stmt);
812: DBMS_SQL.PARSE(v_cursorID,l_sql_stmt,dbms_sql.native);
813: DBMS_SQL.DEFINE_COLUMN(v_cursorID,1,v_party_id,100);
814: v_dummy := DBMS_SQL.EXECUTE(v_cursorID);
808: l_sql_stmt := 'SELECT PARTY_ID FROM '|| l_sql_stmt;
809:
810: v_cursorID := DBMS_SQL.OPEN_CURSOR;
811: -- dbms_output.put_line(l_sql_stmt);
812: DBMS_SQL.PARSE(v_cursorID,l_sql_stmt,dbms_sql.native);
813: DBMS_SQL.DEFINE_COLUMN(v_cursorID,1,v_party_id,100);
814: v_dummy := DBMS_SQL.EXECUTE(v_cursorID);
815: IF DBMS_SQL.FETCH_ROWS(v_cursorID)= 0 THEN
816: RETURN '-1';
809:
810: v_cursorID := DBMS_SQL.OPEN_CURSOR;
811: -- dbms_output.put_line(l_sql_stmt);
812: DBMS_SQL.PARSE(v_cursorID,l_sql_stmt,dbms_sql.native);
813: DBMS_SQL.DEFINE_COLUMN(v_cursorID,1,v_party_id,100);
814: v_dummy := DBMS_SQL.EXECUTE(v_cursorID);
815: IF DBMS_SQL.FETCH_ROWS(v_cursorID)= 0 THEN
816: RETURN '-1';
817: END IF;
810: v_cursorID := DBMS_SQL.OPEN_CURSOR;
811: -- dbms_output.put_line(l_sql_stmt);
812: DBMS_SQL.PARSE(v_cursorID,l_sql_stmt,dbms_sql.native);
813: DBMS_SQL.DEFINE_COLUMN(v_cursorID,1,v_party_id,100);
814: v_dummy := DBMS_SQL.EXECUTE(v_cursorID);
815: IF DBMS_SQL.FETCH_ROWS(v_cursorID)= 0 THEN
816: RETURN '-1';
817: END IF;
818: DBMS_SQL.COLUMN_VALUE(v_cursorID,1,v_party_id);
811: -- dbms_output.put_line(l_sql_stmt);
812: DBMS_SQL.PARSE(v_cursorID,l_sql_stmt,dbms_sql.native);
813: DBMS_SQL.DEFINE_COLUMN(v_cursorID,1,v_party_id,100);
814: v_dummy := DBMS_SQL.EXECUTE(v_cursorID);
815: IF DBMS_SQL.FETCH_ROWS(v_cursorID)= 0 THEN
816: RETURN '-1';
817: END IF;
818: DBMS_SQL.COLUMN_VALUE(v_cursorID,1,v_party_id);
819: DBMS_SQL.CLOSE_CURSOR(v_cursorID);
814: v_dummy := DBMS_SQL.EXECUTE(v_cursorID);
815: IF DBMS_SQL.FETCH_ROWS(v_cursorID)= 0 THEN
816: RETURN '-1';
817: END IF;
818: DBMS_SQL.COLUMN_VALUE(v_cursorID,1,v_party_id);
819: DBMS_SQL.CLOSE_CURSOR(v_cursorID);
820:
821: return v_party_id;
822:
815: IF DBMS_SQL.FETCH_ROWS(v_cursorID)= 0 THEN
816: RETURN '-1';
817: END IF;
818: DBMS_SQL.COLUMN_VALUE(v_cursorID,1,v_party_id);
819: DBMS_SQL.CLOSE_CURSOR(v_cursorID);
820:
821: return v_party_id;
822:
823: EXCEPTION