PACKAGE BODY: APPS.HRI_OLTP_PMV_LABEL

Source

1 PACKAGE BODY hri_oltp_pmv_label AS
2 /* $Header: hriopdlv.pkb 120.2 2005/09/20 05:41:03 cbridge noship $ */
3 
4 /* Table of dimension short name lookups */
5 TYPE g_dim_short_name_tab_type IS TABLE OF VARCHAR2(80) INDEX BY VARCHAR2(30);
6 g_dim_short_name_tab  g_dim_short_name_tab_type;
7 
8 g_not_used_msg   VARCHAR2(240);
9 
10 PROCEDURE initialize_globals IS
11 
12 BEGIN
13 
14   g_dim_short_name_tab('HRI_PERF_BAND') := 'HRI_PRFRMNC+HRI_PRFMNC_RTNG_X';
15   g_dim_short_name_tab('HRI_LOW_BAND')  := 'HRI_LOW+HRI_LOW_BAND_EMP';
16   g_dim_short_name_tab('HRI_LOP_BAND')  := 'HRI_LOW+HRI_LOW_BAND_CWK';
17   g_dim_short_name_tab('ABS_DRTN')  := 'HRI_ABSNC_M+HRI_ABSNC_M_DRTN_UOM';
18   g_not_used_msg := hri_oltp_view_message.get_not_used_msg;
19 
20 END initialize_globals;
21 
22 /* Returns the label for the dimension level value */
23 FUNCTION get_label(p_dim_lvl_name  VARCHAR2,
24                    p_dim_lvl_pk    VARCHAR2,
25                    p_name_type     VARCHAR2)
26        RETURN VARCHAR2 IS
27 
28   l_dimension_name VARCHAR2(100);
29   l_return_label   VARCHAR2(240);
30   l_dim_lvl_pk     VARCHAR2(100);
31 
32 BEGIN
33 
34   BEGIN
35     l_dimension_name := g_dim_short_name_tab(p_dim_lvl_name);
36   EXCEPTION WHEN OTHERS THEN
37     l_dimension_name := p_dim_lvl_name;
38   END;
39 
40 
41   l_dim_lvl_pk := p_dim_lvl_pk;
42 
43   IF p_dim_lvl_name = 'ABS_DRTN' THEN
44        l_dim_lvl_pk := hri_bpl_utilization.get_abs_durtn_profile_vl;
45   END IF;
46 
47 /* Return the value from the base layer function */
48   l_return_label:= NVL(hri_bpl_dim_lvl.get_value_label
49                          (p_dim_lvl_name => l_dimension_name,
50                           p_dim_lvl_pk => l_dim_lvl_pk,
51                           p_name_type => p_name_type),
52                       g_not_used_msg);
53 
54   RETURN l_return_label;
55 
56 EXCEPTION WHEN OTHERS THEN
57 
58 /* Exception most likely to be caused by no data found in metadata */
59 /* Return the metadata table key */
60   RETURN p_dim_lvl_name;
61 
62 END get_label;
63 
64 /* Initialization */
65 BEGIN
66 
67   initialize_globals;
68 
69 END hri_oltp_pmv_label;