PACKAGE BODY: APPS.FPA_GLOBAL_PVT

Source

1 PACKAGE BODY fpa_global_pvt AS
2 /* $Header: FPAVGLBB.pls 120.2 2011/08/03 22:13:10 skkoppul ship $ */
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;