PACKAGE BODY: APPS.CN_TBLSPC_PKG

Source

1 PACKAGE body cn_tblspc_pkg as
2   /* $Header: cntbspcb.pls 115.5 2003/01/30 03:28:47 achung noship $ */
3 
4 --| ----------------------------------------------------------------------+
5 --|   Function Name :  get_tablespace
6 --| ----------------------------------------------------------------------+
7 FUNCTION get_tablespace RETURN varchar2 IS
8    l_tablespace  varchar2(30);
9    CURSOR l_tblspc_csr IS
10      SELECT tablespace
11        FROM fnd_product_installations
12        WHERE application_id = 283;
13 BEGIN
14    OPEN l_tblspc_csr;
15    FETCH l_tblspc_csr INTO l_tablespace;
16    CLOSE l_tblspc_csr;
17 
18    RETURN l_tablespace;
19 END get_tablespace;
20 
21 --| ----------------------------------------------------------------------+
22 --|   Function Name :  get_index_tablespace
23 --| ----------------------------------------------------------------------+
24 FUNCTION get_index_tablespace RETURN varchar2 IS
25    l_ind_tablespace  varchar2(30);
26    CURSOR l_itblspc_csr IS
27      SELECT index_tablespace
28        FROM fnd_product_installations
29        WHERE application_id = 283;
30 BEGIN
31    OPEN l_itblspc_csr;
32    FETCH l_itblspc_csr INTO l_ind_tablespace;
33    CLOSE l_itblspc_csr;
34 
35    RETURN l_ind_tablespace;
36 END get_index_tablespace;
37 
38 END cn_tblspc_pkg;