DBA Data[Home] [Help]

PACKAGE BODY: APPS.HR_JAVA_CONV_UTIL_SS

Source


1 PACKAGE BODY hr_java_conv_util_ss AS
2 /* $Header: hrjcutls.pkb 115.6 2002/03/14 03:49:47 pkm ship     $*/
3 
4   -- Package scope global variables.
5 
6   /*
7   ||===========================================================================
8   || FUNCTION: get_boolean
9   ||---------------------------------------------------------------------------
10   ||
11   || Description:
12   ||     Returns boolean equivalent of the passed number.
13   ||
14   || Access Status:
15   ||     Public.
16   ||
17   ||===========================================================================
18   */
19   FUNCTION get_boolean (
20     p_number IN NUMBER DEFAULT NULL
21   )
22   RETURN BOOLEAN
23   IS
24 
25     -- Local variables.
26     lb_temp BOOLEAN;
27 
28   BEGIN
29 
30     IF p_number IS NULL
31     THEN
32       lb_temp := NULL;
33     ELSIF p_number = 1
34     THEN
35       lb_temp := TRUE;
36     ELSE
37       lb_temp := FALSE;
38     END IF;
39 
40     RETURN (lb_temp);
41 
42   EXCEPTION
43     WHEN OTHERS THEN
44       NULL;  -- Raise error here relevant to the new tech stack.
45 
46   END get_boolean;
47 
48 
49   /*
50   ||===========================================================================
51   || FUNCTION: get_number
52   ||---------------------------------------------------------------------------
53   ||
54   || Description:
55   ||     Returns number equivalent of the passed boolean.
56   ||
57   || Access Status:
58   ||     Public.
59   ||
60   ||===========================================================================
61   */
62   FUNCTION get_number (
63     p_boolean IN BOOLEAN DEFAULT NULL
64   )
65   RETURN NUMBER
66   IS
67 
68     -- Local variables.
69     ln_temp NUMBER;
70 
71   BEGIN
72 
73     IF p_boolean IS NULL
74     THEN
75       ln_temp := NULL;
76     ELSIF p_boolean = TRUE
77     THEN
78       ln_temp := 1;
79     ELSE
80       ln_temp := 0;
81     END IF;
82 
83     RETURN (ln_temp);
84 
85   EXCEPTION
86     WHEN OTHERS THEN
87       NULL;  -- Raise error here relevant to the new tech stack.
88 
89   END get_number;
90 
91 
92 /*
93   ||===========================================================================
94   || FUNCTION: get_formatted_error_message
95   ||---------------------------------------------------------------------------
96   ||
97   || Description:
98   ||    Returns error message to be returned to the jave modules.
99   ||    p_error_message is an exisiting formatted error message
100   ||    p_single_error_message is the new message to be formatted and appended to
101   ||    to p_error_message.
102   ||
103   || Access Status:
104   ||     Public.
105   ||
106   ||===========================================================================
107   */
108   FUNCTION get_formatted_error_message (
109     p_error_message  IN VARCHAR2 DEFAULT null,
110     p_attr_name      IN VARCHAR2 DEFAULT null,
111     p_app_short_name IN VARCHAR2 DEFAULT null,
112     p_message_name   IN VARCHAR2 DEFAULT null,
113     p_single_error_message IN VARCHAR2 DEFAULT null
114   )
115   RETURN LONG
116   IS
117 
118     -- Local variables.
119     l_formatted_error_message LONG;
120 
121   BEGIN
122 
123     IF (p_single_error_message IS NOT NULL) THEN
124      l_formatted_error_message :=
125                               nvl(p_error_message,'') || '!' || '|' ||
126                               nvl(p_attr_name,'Page') || '|' ||
127                               nvl(p_app_short_name, 'ERR') || '|' ||
128                               nvl(p_message_name, p_single_error_message) || '|' || '!';
129     ELSE
130      -- there are cases where error is not trapped by hr_utility.get_message,
131      -- but by hr_message.get_message_text
132      IF (hr_utility.get_message IS NOT NULL) THEN
133         l_formatted_error_message :=
134                               nvl(p_error_message,'') || '!' || '|' ||
135                               nvl(p_attr_name,'Page') || '|' ||
136                               nvl(p_app_short_name, 'ERR') || '|' ||
137                               nvl(p_message_name,
138                               'ORA' || hr_utility.hr_error_number || ' '||
139                               hr_utility.get_message)  || '|' || '!';
140      ELSE
141         l_formatted_error_message :=
142                               nvl(p_error_message,'') || '!' || '|' ||
143                               nvl(p_attr_name,'Page') || '|' ||
144                               nvl(p_app_short_name, 'ERR') || '|' ||
145                               nvl(p_message_name, hr_message.get_message_text) || '|' || '!';
146      END IF;
147     END IF;
148 
149     RETURN (l_formatted_error_message);
150 
151   EXCEPTION
152     WHEN OTHERS THEN
153       NULL;  -- Raise error here relevant to the new tech stack.
154 
155   END get_formatted_error_message;
156 
157 
158 END hr_java_conv_util_ss;