PACKAGE BODY: APPS.OKC_TIME_UTIL_PUB

Source

1 PACKAGE BODY OKC_TIME_UTIL_PUB AS
2 /* $Header: OKCPTULB.pls 120.0 2005/05/25 19:31:23 appldev noship $ */
3 	l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
4 ----------------------------------------------------------------------------
5 -- The following procedure derives the most suitable period and duration based
6 -- on a start and end date.
7 ----------------------------------------------------------------------------
8   PROCEDURE get_duration(
9     p_start_date in date,
10     p_end_date in date,
11     x_duration out nocopy number,
12     x_timeunit out nocopy varchar2,
13     x_return_status out nocopy varchar2) is
14   begin
15     OKC_TIME_UTIL_PVT.get_duration(
16       p_start_date,
17       p_end_date,
18       x_duration,
19       x_timeunit,
20       x_return_status);
21   END get_duration;
22 
23 ----------------------------------------------------------------------------
24 -- The following function returns the end date based on a start,duration and
25 -- period.
26 ----------------------------------------------------------------------------
27   FUNCTION get_enddate(
28     p_start_date in date,
29     p_timeunit varchar2,
30     p_duration number)
31   return date is
32   l_date date;
33   begin
34     l_date := OKC_TIME_UTIL_PVT.get_enddate(
35               p_start_date,
36               p_timeunit ,
37               p_duration );
38     return l_date;
39   END get_enddate;
40 
41   function get_app_id
42   return NUMBER
43   IS
44   l_num   number;
45   BEGIN
46     l_num := OKC_TIME_UTIL_PVT.get_app_id;
47     return l_num;
48   END;
49 
50 -- /striping/
51   function get_app_id(rule_code in varchar2)
52   return NUMBER
53   IS
54   l_num   number;
55   BEGIN
56    l_num := OKC_TIME_UTIL_PVT.get_app_id(rule_code);
57    return l_num;
58   END;
59 
60   function get_rule_df_name
61   return varchar2
62   IS
63    l_return_string  varchar2(400);
64   BEGIN
65    l_return_string := OKC_TIME_UTIL_PVT.get_rule_df_name;
66    return l_return_string;
67   END;
68 
69 -- /striping/
70   function get_rule_df_name(rule_code in varchar2)
71   return varchar2
72   IS
73    l_return_string  varchar2(400);
74   BEGIN
75    l_return_string := OKC_TIME_UTIL_PVT.get_rule_df_name(rule_code);
76    return l_return_string;
77   END;
78 
79   function get_rule_defs_using_vs(
80     p_app_id IN NUMBER,
81     p_dff_name IN VARCHAR2,
82     p_fvs_name IN VARCHAR2)
83   return varchar2
84   IS
85     l_return_string  varchar2(400);
86   BEGIN
87    l_return_string := OKC_TIME_UTIL_PVT.get_rule_defs_using_vs(
88     p_app_id ,
89     p_dff_name ,
90     p_fvs_name );
91    return l_return_string;
92   end;
93 
94   PROCEDURE get_dff_column_values (
95     p_app_id      IN NUMBER,
96     p_dff_name    IN VARCHAR2,
97     p_rdf_code    IN VARCHAR2,
98     p_fvs_name    IN VARCHAR2,
99     p_rule_id     IN NUMBER,
100     p_col_vals    OUT NOCOPY t_col_vals,
101     p_no_of_cols  OUT NOCOPY NUMBER
102   )
103   IS
104   BEGIN
105     OKC_TIME_UTIL_PVT.get_dff_column_values (
106       p_app_id,
107       p_dff_name,
108       p_rdf_code,
109       p_fvs_name,
110       p_rule_id,
111       p_col_vals,
112       p_no_of_cols);
113   end;
114 
115   function get_tve_ids (
116     p_app_id IN NUMBER,
117     p_dff_name IN VARCHAR2,
118     p_rdf_code IN VARCHAR2,
119     p_fvs_name IN VARCHAR2,
120     p_rule_id IN NUMBER)
121   return varchar2
122   is
123     l_return_string  varchar2(400);
124   begin
125    l_return_string := OKC_TIME_UTIL_PVT.get_tve_ids(
126     p_app_id ,
127     p_dff_name,
128     p_rdf_code,
129     p_fvs_name,
130     p_rule_id);
131     return l_return_string;
132   end;
133 
134 END OKC_TIME_UTIL_PUB;