[Home] [Help]
PACKAGE BODY: APPS.FPA_GLOBAL_PVT
Source
1 PACKAGE BODY fpa_global_pvt AS
2 /* $Header: FPAVGLBB.pls 120.1 2005/08/18 11:49:19 appldev noship $ */
3
4 --fpa_aw := aw_space_name;
5
6 function aw_space_name return varchar2
7 is
8
9 l_aw_space_name varchar2(30);
10
11 begin
12
13 SELECT application_short_name || '.fpapjp'
14 into l_aw_space_name
15 from FND_APPLICATION
16 WHERE application_id = 440;
17
18 return l_aw_space_name;
19
20 end aw_space_name;
21
22 FUNCTION is_aw_attached RETURN BOOLEAN
23 IS
24
25 is_attached BOOLEAN;
26 my_clob CLOB;
27 buflen BINARY_INTEGER := 4;
28 offset BINARY_INTEGER := 1;
29 text_buffer VARCHAR2(200);
30 position NUMBER;
31 l_aw_space_name VARCHAR2(30);
32
33 BEGIN
34 IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
35 fnd_log.string
36 (
37 FND_LOG.LEVEL_PROCEDURE,
38 'fpa.sql.fpa_global_pvt.is_aw_attached.begin',
39 'Entering fpa_global_pvt.is_aw_attached'
40 );
41 END IF;
42
43 l_aw_space_name := aw_space_name;
44
45 my_clob := dbms_aw.interp('show aw(attached ''' || l_aw_space_name || ''')');
46
47 dbms_lob.read(my_clob, buflen, offSet, text_buffer);
48
49 position := instr(text_buffer, 'yes', 1);
50 is_attached := position <> 0;
51
52 IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
53 fnd_log.string
54 (
55 FND_LOG.LEVEL_STATEMENT,
56 'fpa.sql.fpa_global_pvt.is_aw_attached.begin',
57 'Is AW attached: ' || text_buffer
58 );
59 END IF;
60
61 IF (is_attached)
62 THEN
63 RETURN TRUE;
64 ELSE
65 RETURN FALSE;
66 END IF;
67 IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
68 fnd_log.string
69 (
70 FND_LOG.LEVEL_PROCEDURE,
71 'fpa.sql.fpa_global_pvt.is_aw_attached.end',
72 'Exiting fpa_global_pvt.is_aw_attached'
73 );
74 END IF;
75 END;
76
77 END fpa_global_pvt;