112: END IF;
113:
114: l_sql_stmt := 'SELECT PARTY_ID FROM '|| l_sql_stmt;
115:
116: v_cursorID := DBMS_SQL.OPEN_CURSOR;
117: dbms_output.put_line(l_sql_stmt);
118: DBMS_SQL.PARSE(v_cursorID,l_sql_stmt,dbms_sql.native);
119: DBMS_SQL.DEFINE_COLUMN(v_cursorID,1,v_party_id,100);
120: v_dummy := DBMS_SQL.EXECUTE(v_cursorID);
114: l_sql_stmt := 'SELECT PARTY_ID FROM '|| l_sql_stmt;
115:
116: v_cursorID := DBMS_SQL.OPEN_CURSOR;
117: dbms_output.put_line(l_sql_stmt);
118: DBMS_SQL.PARSE(v_cursorID,l_sql_stmt,dbms_sql.native);
119: DBMS_SQL.DEFINE_COLUMN(v_cursorID,1,v_party_id,100);
120: v_dummy := DBMS_SQL.EXECUTE(v_cursorID);
121: IF DBMS_SQL.FETCH_ROWS(v_cursorID)= 0 THEN
122: RETURN '-1';
115:
116: v_cursorID := DBMS_SQL.OPEN_CURSOR;
117: dbms_output.put_line(l_sql_stmt);
118: DBMS_SQL.PARSE(v_cursorID,l_sql_stmt,dbms_sql.native);
119: DBMS_SQL.DEFINE_COLUMN(v_cursorID,1,v_party_id,100);
120: v_dummy := DBMS_SQL.EXECUTE(v_cursorID);
121: IF DBMS_SQL.FETCH_ROWS(v_cursorID)= 0 THEN
122: RETURN '-1';
123: END IF;
116: v_cursorID := DBMS_SQL.OPEN_CURSOR;
117: dbms_output.put_line(l_sql_stmt);
118: DBMS_SQL.PARSE(v_cursorID,l_sql_stmt,dbms_sql.native);
119: DBMS_SQL.DEFINE_COLUMN(v_cursorID,1,v_party_id,100);
120: v_dummy := DBMS_SQL.EXECUTE(v_cursorID);
121: IF DBMS_SQL.FETCH_ROWS(v_cursorID)= 0 THEN
122: RETURN '-1';
123: END IF;
124: DBMS_SQL.COLUMN_VALUE(v_cursorID,1,v_party_id);
117: dbms_output.put_line(l_sql_stmt);
118: DBMS_SQL.PARSE(v_cursorID,l_sql_stmt,dbms_sql.native);
119: DBMS_SQL.DEFINE_COLUMN(v_cursorID,1,v_party_id,100);
120: v_dummy := DBMS_SQL.EXECUTE(v_cursorID);
121: IF DBMS_SQL.FETCH_ROWS(v_cursorID)= 0 THEN
122: RETURN '-1';
123: END IF;
124: DBMS_SQL.COLUMN_VALUE(v_cursorID,1,v_party_id);
125: DBMS_SQL.CLOSE_CURSOR(v_cursorID);
120: v_dummy := DBMS_SQL.EXECUTE(v_cursorID);
121: IF DBMS_SQL.FETCH_ROWS(v_cursorID)= 0 THEN
122: RETURN '-1';
123: END IF;
124: DBMS_SQL.COLUMN_VALUE(v_cursorID,1,v_party_id);
125: DBMS_SQL.CLOSE_CURSOR(v_cursorID);
126:
127: return v_party_id;
128:
121: IF DBMS_SQL.FETCH_ROWS(v_cursorID)= 0 THEN
122: RETURN '-1';
123: END IF;
124: DBMS_SQL.COLUMN_VALUE(v_cursorID,1,v_party_id);
125: DBMS_SQL.CLOSE_CURSOR(v_cursorID);
126:
127: return v_party_id;
128:
129: EXCEPTION