DBA Data[Home] [Help]

PACKAGE BODY: APPS.BIS_PMF_GET_DIMLEVELS_PUB

Source


1 PACKAGE  BODY BIS_PMF_GET_DIMLEVELS_PUB AS
2 /* $Header: BISPGDLB.pls 115.10 2003/04/02 11:28:32 smuruges ship $ */
3 /*
4 REM dbdrv: sql ~PROD ~PATH ~FILE none none none package &phase=plb \
5 REM dbdrv: checkfile:~PROD:~PATH:~FILE
6 REM +=======================================================================+
7 REM |    Copyright (c) 1998 Oracle Corporation, Redwood Shores, CA, USA     |
8 REM |                         All rights reserved.                          |
9 REM +=======================================================================+
10 REM | FILENAME                                                              |
11 REM |     BISVGDLS.pls                                                      |
12 REM |                                                                       |
13 REM | DESCRIPTION                                                           |
14 REM |     Public  API for getting the Select String for DimensionLevelValues|
15 REM |     This API will get the Select String from either EDW or BIS        |
16 REM |     depending on the profile option BIS_SOURCE                        |
17 REM |                                                                       |
18 REM | HISTORY                                                               |
19 REM | December-2000 amkulkar Creation                                       |
20 REM +=======================================================================+
21 */
22 --
23 PROCEDURE GET_DIMLEVEL_SELECT_STRING
24 (
25  p_DimLevelShortName         IN     VARCHAR2
26 ,p_bis_source                IN     VARCHAR2
27 ,x_Select_String             OUT NOCOPY    VARCHAR2
28 ,x_table_name                OUT NOCOPY    VARCHAR2
29 ,x_id_name                   OUT NOCOPY    VARCHAR2
30 ,x_value_name                OUT NOCOPY    VARCHAR2
31 ,x_return_status             OUT NOCOPY    VARCHAR2
32 ,x_msg_count                 OUT NOCOPY    NUMBER
33 ,x_msg_data                  OUT NOCOPY    VARCHAR2
34 )
35 IS
36    l_time_level             VARCHAR2(2000);
37 BEGIN
38   FND_MSG_PUB.initialize;
39   BIS_PMF_GET_DIMLEVELS_PVT.GET_DIMLEVEL_SELECT_STRING(
40           p_DimLevelName  => p_DimLevelShortName
41          ,p_bis_source    => p_bis_source
42          ,x_Select_String => x_Select_String
43          ,x_table_name    => x_table_name
44          ,x_id_name       => x_id_name
45          ,x_value_name    => x_value_name
46          ,x_time_level    => l_time_level
47          ,x_return_Status => x_return_Status
48          ,x_msg_count     => x_msg_count
49          ,x_msg_data      => x_msg_data
50         );
51 END GET_DIMLEVEL_SELECT_STRING;
52 --
53 PROCEDURE GET_SORTED_SELECT_STRING
54 (
55  p_DimLevelShortName         IN     VARCHAR2
56 ,p_bis_source                IN     VARCHAR2
57 ,x_Select_String             OUT NOCOPY    VARCHAR2
58 ,x_table_name                OUT NOCOPY    VARCHAR2
59 ,x_id_name                   OUT NOCOPY    VARCHAR2
60 ,x_value_name                OUT NOCOPY    VARCHAR2
61 ,x_return_status             OUT NOCOPY    VARCHAR2
62 ,x_msg_count                 OUT NOCOPY    NUMBER
63 ,x_msg_data                  OUT NOCOPY    VARCHAR2
64 )
65 IS
66    l_time_level      varchar2(2000);
67    l_order_by        varchar2(32000);
68 BEGIN
69   FND_MSG_PUB.initialize;
70   BIS_PMF_GET_DIMLEVELS_PVT.GET_DIMLEVEL_SELECT_STRING(
71           p_DimLevelName  => p_DimLevelShortName
72          ,p_bis_source    => p_bis_source
73          ,x_Select_String => x_Select_String
74          ,x_table_name    => x_table_name
75          ,x_id_name       => x_id_name
76          ,x_value_name    => x_value_name
77          ,x_time_level    => l_time_level
78          ,x_return_Status => x_return_Status
79          ,x_msg_count     => x_msg_count
80          ,x_msg_data      => x_msg_data
81         );
82    IF ((ltrim(rtrim(l_time_level))) = 'Y')
83    THEN
84       l_order_by := ' ORDER BY START_DATE';
85    ELSE
86       l_order_by := ' ORDER BY ' || x_id_name;
87    END IF;
88    x_select_string := x_select_string || l_order_by;
89 
90 END GET_SORTED_SELECT_STRING;
91 END BIS_PMF_GET_DIMLEVELS_PUB;