1557: l_dummy INTEGER;
1558:
1559: BEGIN
1560:
1561: l_cursor_id := DBMS_SQL.OPEN_CURSOR;
1562:
1563: l_sql_stmt := 'SELECT FROM_TABLE, WHERE_CLAUSE, ORDER_BY_CLAUSE ';
1564: l_sql_stmt := l_sql_stmt || ' FROM jtf_objects_b';
1565: l_sql_stmt := l_sql_stmt || ' WHERE OBJECT_CODE = :jtot_object1_code';
1563: l_sql_stmt := 'SELECT FROM_TABLE, WHERE_CLAUSE, ORDER_BY_CLAUSE ';
1564: l_sql_stmt := l_sql_stmt || ' FROM jtf_objects_b';
1565: l_sql_stmt := l_sql_stmt || ' WHERE OBJECT_CODE = :jtot_object1_code';
1566:
1567: DBMS_SQL.PARSE(l_cursor_id, l_sql_stmt, 2);
1568: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':jtot_object1_code', p_jtot_object1_code);
1569:
1570: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 1, l_from_clause, 200);
1571: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 2, l_where_clause, 2000);
1564: l_sql_stmt := l_sql_stmt || ' FROM jtf_objects_b';
1565: l_sql_stmt := l_sql_stmt || ' WHERE OBJECT_CODE = :jtot_object1_code';
1566:
1567: DBMS_SQL.PARSE(l_cursor_id, l_sql_stmt, 2);
1568: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':jtot_object1_code', p_jtot_object1_code);
1569:
1570: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 1, l_from_clause, 200);
1571: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 2, l_where_clause, 2000);
1572: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 3, l_order_by_clause, 200);
1566:
1567: DBMS_SQL.PARSE(l_cursor_id, l_sql_stmt, 2);
1568: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':jtot_object1_code', p_jtot_object1_code);
1569:
1570: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 1, l_from_clause, 200);
1571: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 2, l_where_clause, 2000);
1572: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 3, l_order_by_clause, 200);
1573:
1574: l_dummy := DBMS_SQL.EXECUTE(l_cursor_id);
1567: DBMS_SQL.PARSE(l_cursor_id, l_sql_stmt, 2);
1568: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':jtot_object1_code', p_jtot_object1_code);
1569:
1570: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 1, l_from_clause, 200);
1571: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 2, l_where_clause, 2000);
1572: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 3, l_order_by_clause, 200);
1573:
1574: l_dummy := DBMS_SQL.EXECUTE(l_cursor_id);
1575: IF DBMS_SQL.FETCH_ROWS(l_cursor_id) = 0 THEN
1568: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':jtot_object1_code', p_jtot_object1_code);
1569:
1570: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 1, l_from_clause, 200);
1571: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 2, l_where_clause, 2000);
1572: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 3, l_order_by_clause, 200);
1573:
1574: l_dummy := DBMS_SQL.EXECUTE(l_cursor_id);
1575: IF DBMS_SQL.FETCH_ROWS(l_cursor_id) = 0 THEN
1576: RAISE OKC_API.G_EXCEPTION_ERROR;
1570: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 1, l_from_clause, 200);
1571: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 2, l_where_clause, 2000);
1572: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 3, l_order_by_clause, 200);
1573:
1574: l_dummy := DBMS_SQL.EXECUTE(l_cursor_id);
1575: IF DBMS_SQL.FETCH_ROWS(l_cursor_id) = 0 THEN
1576: RAISE OKC_API.G_EXCEPTION_ERROR;
1577: END IF;
1578:
1571: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 2, l_where_clause, 2000);
1572: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 3, l_order_by_clause, 200);
1573:
1574: l_dummy := DBMS_SQL.EXECUTE(l_cursor_id);
1575: IF DBMS_SQL.FETCH_ROWS(l_cursor_id) = 0 THEN
1576: RAISE OKC_API.G_EXCEPTION_ERROR;
1577: END IF;
1578:
1579: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 1, l_from_clause);
1575: IF DBMS_SQL.FETCH_ROWS(l_cursor_id) = 0 THEN
1576: RAISE OKC_API.G_EXCEPTION_ERROR;
1577: END IF;
1578:
1579: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 1, l_from_clause);
1580: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 2, l_where_clause);
1581: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 3, l_order_by_clause);
1582:
1583: DBMS_SQL.CLOSE_CURSOR(l_cursor_id);
1576: RAISE OKC_API.G_EXCEPTION_ERROR;
1577: END IF;
1578:
1579: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 1, l_from_clause);
1580: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 2, l_where_clause);
1581: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 3, l_order_by_clause);
1582:
1583: DBMS_SQL.CLOSE_CURSOR(l_cursor_id);
1584:
1577: END IF;
1578:
1579: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 1, l_from_clause);
1580: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 2, l_where_clause);
1581: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 3, l_order_by_clause);
1582:
1583: DBMS_SQL.CLOSE_CURSOR(l_cursor_id);
1584:
1585:
1579: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 1, l_from_clause);
1580: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 2, l_where_clause);
1581: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 3, l_order_by_clause);
1582:
1583: DBMS_SQL.CLOSE_CURSOR(l_cursor_id);
1584:
1585:
1586:
1587:
1584:
1585:
1586:
1587:
1588: l_cursor_id := DBMS_SQL.OPEN_CURSOR;
1589:
1590: l_sql_stmt := 'SELECT NAME FROM ' || l_from_clause;
1591: l_sql_stmt := l_sql_stmt || ' WHERE ' || l_where_clause;
1592: l_sql_stmt := l_sql_stmt || ' AND ID1 = :object1_id';
1591: l_sql_stmt := l_sql_stmt || ' WHERE ' || l_where_clause;
1592: l_sql_stmt := l_sql_stmt || ' AND ID1 = :object1_id';
1593: l_sql_stmt := l_sql_stmt || ' ORDER BY ' || l_order_by_clause;
1594:
1595: DBMS_SQL.PARSE(l_cursor_id, l_sql_stmt, 2);
1596: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':object1_id', p_object1_id1);
1597:
1598: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 1, l_party_name, 500);
1599:
1592: l_sql_stmt := l_sql_stmt || ' AND ID1 = :object1_id';
1593: l_sql_stmt := l_sql_stmt || ' ORDER BY ' || l_order_by_clause;
1594:
1595: DBMS_SQL.PARSE(l_cursor_id, l_sql_stmt, 2);
1596: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':object1_id', p_object1_id1);
1597:
1598: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 1, l_party_name, 500);
1599:
1600: l_dummy := DBMS_SQL.EXECUTE(l_cursor_id);
1594:
1595: DBMS_SQL.PARSE(l_cursor_id, l_sql_stmt, 2);
1596: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':object1_id', p_object1_id1);
1597:
1598: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 1, l_party_name, 500);
1599:
1600: l_dummy := DBMS_SQL.EXECUTE(l_cursor_id);
1601: IF DBMS_SQL.FETCH_ROWS(l_cursor_id) = 0 THEN
1602: RAISE OKC_API.G_EXCEPTION_ERROR;
1596: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':object1_id', p_object1_id1);
1597:
1598: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 1, l_party_name, 500);
1599:
1600: l_dummy := DBMS_SQL.EXECUTE(l_cursor_id);
1601: IF DBMS_SQL.FETCH_ROWS(l_cursor_id) = 0 THEN
1602: RAISE OKC_API.G_EXCEPTION_ERROR;
1603: END IF;
1604:
1597:
1598: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 1, l_party_name, 500);
1599:
1600: l_dummy := DBMS_SQL.EXECUTE(l_cursor_id);
1601: IF DBMS_SQL.FETCH_ROWS(l_cursor_id) = 0 THEN
1602: RAISE OKC_API.G_EXCEPTION_ERROR;
1603: END IF;
1604:
1605: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 1, l_party_name);
1601: IF DBMS_SQL.FETCH_ROWS(l_cursor_id) = 0 THEN
1602: RAISE OKC_API.G_EXCEPTION_ERROR;
1603: END IF;
1604:
1605: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 1, l_party_name);
1606: DBMS_SQL.CLOSE_CURSOR(l_cursor_id);
1607:
1608:
1609: RETURN(l_party_name);
1602: RAISE OKC_API.G_EXCEPTION_ERROR;
1603: END IF;
1604:
1605: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 1, l_party_name);
1606: DBMS_SQL.CLOSE_CURSOR(l_cursor_id);
1607:
1608:
1609: RETURN(l_party_name);
1610: EXCEPTION