413:
414: -- fix for performance bug # 4956628
415: -- SQL ID : 14841989 from SQL Repository
416: -- mofified the below cusror to change
417: -- the table jtf_objects_vl to jtf_objects_b from FROM clause.
418:
419: CURSOR c_resource_category IS
420: SELECT jo.object_code
421: FROM jtf_objects_b jo,
417: -- the table jtf_objects_vl to jtf_objects_b from FROM clause.
418:
419: CURSOR c_resource_category IS
420: SELECT jo.object_code
421: FROM jtf_objects_b jo,
422: jtf_object_usages jou
423: WHERE jo.object_code = jou.object_code
424: AND jou.object_user_code = 'RESOURCE_CATEGORIES'
425: AND upper(jo.object_code) = upper(p_category)
1437: END validate_sales_credit_type;
1438:
1439:
1440: PROCEDURE check_object_existence
1441: (P_OBJECT_CODE IN JTF_OBJECTS_B.OBJECT_CODE%TYPE,
1442: P_SELECT_ID IN VARCHAR2,
1443: P_OBJECT_USER_CODE IN VARCHAR2,
1444: X_FOUND OUT NOCOPY BOOLEAN ,
1445: X_RETURN_STATUS OUT NOCOPY VARCHAR2
1444: X_FOUND OUT NOCOPY BOOLEAN ,
1445: X_RETURN_STATUS OUT NOCOPY VARCHAR2
1446: ) AS
1447:
1448: CURSOR object_dtls_cur(l_object_code JTF_OBJECTS_B.OBJECT_CODE%TYPE,
1449: l_object_user_code JTF_OBJECT_USAGES.OBJECT_USER_CODE%TYPE)
1450: IS
1451: SELECT a.select_id
1452: ,a.from_table
1450: IS
1451: SELECT a.select_id
1452: ,a.from_table
1453: ,a.where_clause
1454: FROM jtf_objects_B a,
1455: jtf_object_usages b
1456: WHERE b.OBJECT_USER_CODE = l_object_user_code
1457: AND b.object_code = a.object_code
1458: and A.object_code = l_object_code;
1474: WHERE resource_id = c_resource_id;
1475:
1476: l_temp varchar2(1);
1477:
1478: l_object_code JTF_OBJECTS_B.OBJECT_CODE%TYPE;
1479: l_select_id number;
1480:
1481: ll_object_user_code JTF_OBJECT_USAGES.OBJECT_USER_CODE%type;
1482: l_select_clause VARCHAR2(4000);
1504: THEN
1505: if object_code_cur%ISOPEN THEN
1506: close object_code_cur;
1507: end if;
1508: --open the cursor to get the related values from jtf_objects_b
1509: open object_dtls_cur(l_object_code, ll_object_user_code);
1510: fetch object_dtls_cur INTO object_dtls_rec;
1511: IF(object_dtls_cur%FOUND)
1512: THEN
1533: CLOSE c_res_existence;
1534: return;
1535: END IF;
1536: else
1537: --create the sql staement based on the values fetched from jtf_objects_b
1538: IF object_dtls_rec.where_clause IS NOT NULL
1539: THEN
1540: /* BINDVAR_SCAN_IGNORE [1] */
1541: l_select_clause := 'SELECT '|| object_dtls_rec.select_id ||' '
1626: END check_object_existence;
1627:
1628:
1629: PROCEDURE check_object_existence_migr
1630: (P_OBJECT_CODE IN JTF_OBJECTS_B.OBJECT_CODE%TYPE,
1631: P_SELECT_ID IN VARCHAR2,
1632: P_OBJECT_USER_CODE IN VARCHAR2,
1633: P_RS_ID_PUB_FLAG IN VARCHAR2,
1634: X_FOUND OUT NOCOPY BOOLEAN,
1634: X_FOUND OUT NOCOPY BOOLEAN,
1635: X_RETURN_STATUS OUT NOCOPY VARCHAR2
1636: ) AS
1637:
1638: CURSOR object_dtls_cur(l_object_code JTF_OBJECTS_B.OBJECT_CODE%TYPE,
1639: l_object_user_code JTF_OBJECT_USAGES.OBJECT_USER_CODE%TYPE)
1640: IS
1641: SELECT a.select_id
1642: ,a.from_table
1640: IS
1641: SELECT a.select_id
1642: ,a.from_table
1643: ,a.where_clause
1644: FROM jtf_objects_B a,
1645: jtf_object_usages b
1646: WHERE b.OBJECT_USER_CODE = l_object_user_code
1647: AND b.object_code = a.object_code
1648: and A.object_code = l_object_code;
1671: where per.party_id = hz.party_id);
1672:
1673: object_code_rec object_code_cur%rowtype;
1674:
1675: l_object_code JTF_OBJECTS_B.OBJECT_CODE%TYPE;
1676: l_select_id number;
1677:
1678: ll_object_user_code JTF_OBJECT_USAGES.OBJECT_USER_CODE%type;
1679: l_select_clause VARCHAR2(4000);
1704: THEN
1705: if object_code_cur%ISOPEN then
1706: close object_code_cur;
1707: end if;
1708: --open the cursor to get the related values from jtf_objects_b
1709: open object_dtls_cur(l_object_code, ll_object_user_code);
1710: fetch object_dtls_cur INTO object_dtls_rec;
1711: IF(object_dtls_cur%FOUND)
1712: THEN
1714: close object_dtls_cur;
1715: end if;
1716: x_return_status := fnd_api.g_ret_sts_success;
1717:
1718: --create the sql staement based on the values fetched from jtf_objects_b
1719:
1720: IF (P_OBJECT_CODE <> 'EMPLOYEE' and P_OBJECT_CODE <> 'PARTY') THEN
1721: IF object_dtls_rec.where_clause IS NOT NULL
1722: THEN