PACKAGE BODY: APPS.BIS_COMPONENTS_PVT

Source

1 PACKAGE BODY BIS_COMPONENTS_PVT AS
2 /* $Header: BISCOMPB.pls 115.1 2003/10/29 06:57:51 nbarik noship $ */
3 -- dbdrv: sql ~PROD ~PATH ~FILE none none none package &phase=plb \
4 -- dbdrv: checkfile:~PROD:~PATH:~FILE
5   --nbarik - 10/28/03 - Bug Fix 3212861 - Added p_function_id
6   PROCEDURE set_reference_path(
7     p_function_name   IN VARCHAR2
8    ,p_function_id     IN NUMBER
9    ,p_page_id         IN NUMBER
10    ,x_plug_id         OUT NOCOPY NUMBER
11    ,x_reference_path  OUT NOCOPY VARCHAR2
12   )
13   IS
14     l_function_id     NUMBER;
15     l_plug_id         NUMBER;
16     l_reference_path  VARCHAR2(2000);
17     /*
18     CURSOR c_function_id IS
19       SELECT function_id FROM fnd_form_functions
20       WHERE function_name = p_function_name;
21     */
22     CURSOR c_plug_id IS
23       SELECT plug_id FROM icx_portlet_customizations
24       WHERE reference_path = l_reference_path;
25 
26   BEGIN
27     --nbarik - 10/28/03 - Bug Fix 3212861 - Added p_function_id
28     /*
29     OPEN c_function_id;
30     FETCH c_function_id INTO l_function_id;
31     CLOSE c_function_id;
32     */
33     l_function_id := p_function_id;
34     IF l_function_id IS NULL OR p_page_id IS NULL THEN
35       RETURN;
36     END IF;
37 
38     l_reference_path := l_function_id || '_' || p_function_name || '_' || p_page_id;
39 
40     OPEN c_plug_id;
41     FETCH c_plug_id INTO l_plug_id;
42     CLOSE c_plug_id;
43 
44     IF l_plug_id IS NULL THEN
45       SELECT icx_page_plugs_s.nextval INTO l_plug_id
46       FROM sys.dual;
47 
48       INSERT INTO icx_portlet_customizations (reference_path, plug_id, user_id, caching_key)
49       VALUES (l_reference_path, l_plug_id, -1, '0');
50     END IF;
51 
52     x_plug_id := l_plug_id;
53     x_reference_path := l_reference_path;
54 
55   EXCEPTION
56     WHEN others THEN
57       /*
58       IF c_function_id%ISOPEN THEN
59         CLOSE c_function_id;
60       END IF;
61       */
62       IF c_plug_id%ISOPEN THEN
63         CLOSE c_plug_id;
64       END IF;
65   END set_reference_path;
66 
67 END BIS_COMPONENTS_PVT;