PACKAGE BODY: APPS.HRI_OLTP_BEN_PTL_PARAM

Source

1 PACKAGE BODY HRI_OLTP_BEN_PTL_PARAM AS
2 /* $Header: hriopprmben.pkb 120.0 2005/09/21 01:27:20 anmajumd noship $ */
3 --
4 PROCEDURE PRINT_TABLE_PARAMETERS (
5      p_page_parameter_tbl IN              bis_pmv_page_parameter_tbl )
6 IS
7    --
8    --
9 BEGIN
10    --
11    hr_utility.trace_on(null, 'DBIBEN');
12    hr_utility.set_location('--------------------------------------', 9999);
13    --
14    IF (p_page_parameter_tbl.COUNT > 0)
15    THEN
16       --
17       FOR i IN p_page_parameter_tbl.FIRST .. p_page_parameter_tbl.LAST
18       LOOP
19          --
20          hr_utility.set_location('----', 9999);
21          hr_utility.set_location('ACE parameter_name = ' || p_page_parameter_tbl (i).parameter_name, 9999);
22          hr_utility.set_location('ACE parameter_value = ' || p_page_parameter_tbl (i).parameter_value, 9999);
23          hr_utility.set_location('ACE parameter_id = ' || p_page_parameter_tbl (i).parameter_id, 9999);
24          --
25       END LOOP;
26       --
27    END IF;
28    --
29    hr_utility.trace_off;
30    --
31 END PRINT_TABLE_PARAMETERS;
32 --
33 --
34 -- ----------------------------------------------------------------------------
35 -- |-----------------------< GET_PGM_DIMENSION >------------------------------|
36 -- ----------------------------------------------------------------------------
37 --
38 -- This function will return PGM_ID for default program. This ID will be used
39 -- to default the Program Dimension on all of the four standalone reports.
40 --
41 FUNCTION GET_PGM_DIMENSION RETURN VARCHAR2
42 IS
43    --
44    l_pgm_id             NUMBER;
45    l_param              VARCHAR2(2000);
46    --
47    CURSOR c_pgm
48    IS
49       SELECT ID
50         FROM (SELECT   ID
51                   FROM hri_cl_co_pgm_v
52                  WHERE SYSDATE BETWEEN start_date AND end_date
53               ORDER BY VALUE)
54        WHERE ROWNUM < 2;
55    --
56 BEGIN
57    --
58    open c_pgm;
59       --
60       fetch c_pgm into l_pgm_id;
61       --
62       if c_pgm%found
63       then
64         --
65         l_param :=  l_pgm_id;
66         --
67       else
68         --
69         l_param := NULL;
70         --
71       end if;
72       --
73    close c_pgm;
74    --
75    RETURN l_param;
76    --
77 END GET_PGM_DIMENSION;
78 --
79 -- ----------------------------------------------------------------------------
80 -- |-------------------< GET_OES_DASHBOARD_PARAMS >---------------------------|
81 -- ----------------------------------------------------------------------------
82 --
83 -- The function will return string containing all default parameters for parameter
84 -- portlet of Open Enrollment Status dashboard.
85 --
86 FUNCTION GET_OES_DASHBOARD_PARAMS
87    RETURN VARCHAR2
88 IS
89    --
90    l_pgm_id             NUMBER;
91    l_param              VARCHAR2(2000);
92    --
93    CURSOR c_pgm
94    IS
95       SELECT ID
96         FROM (SELECT   ID
97                   FROM hri_cl_co_pgm_v
98                  WHERE SYSDATE BETWEEN start_date AND end_date
99               ORDER BY VALUE)
100        WHERE ROWNUM < 2;
101    --
102 BEGIN
103    --
104    open c_pgm;
105       --
106       fetch c_pgm into l_pgm_id;
107       --
108       if c_pgm%found
109       then
110         --
111         l_param := '&HRI_PGM_DIM_CN=' || l_pgm_id;
112         --
113       else
114         --
115         l_param := NULL;
116         --
117       end if;
118       --
119    close c_pgm;
120    --
121    RETURN l_param;
122    --
123 END GET_OES_DASHBOARD_PARAMS;
124 --
125 END HRI_OLTP_BEN_PTL_PARAM;