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;