[Home] [Help]
PACKAGE BODY: APPS.PQH_DE_LEVEL_CODES_API
Source
1 Package Body PQH_DE_LEVEL_CODES_API as
2 /* $Header: pqlcdapi.pkb 115.1 2002/12/03 00:07:42 rpasapul noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := 'PQH_DE_LEVEL_CODES_API.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |--------------------------< Insert_LEVEL_CODES >--------------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure Insert_LEVEL_CODES
13 (p_validate in boolean default false
14 ,p_effective_date in date
15 ,p_level_number_id in number
16 ,p_level_code in varchar2
17 ,p_description in varchar2
18 ,p_gradual_value_number in number
19 ,p_level_code_id out nocopy number
20 ,p_object_version_number out nocopy number
21 )
22 is
23 --
24 -- Declare cursors and local variables
25 --
26
27 l_proc varchar2(72) := g_package||'Insert_LEVEL_CODES';
28 l_object_Version_Number PQH_DE_LEVEL_CODES.OBJECT_VERSION_NUMBER%TYPE;
29 L_Effective_Date Date;
30 l_level_code_id PQH_DE_LEVEL_CODES.LEVEL_CODE_ID%TYPE;
31
32 begin
33 hr_utility.set_location('Entering:'|| l_proc, 10);
34 --
35 -- Issue a savepoint
36 --
37 savepoint Insert_LEVEL_CODES;
38 --
39 -- Truncate the time portion from all IN date parameters
40 --
41 l_effective_date := Trunc(p_effective_Date);
42 --
43 -- Call Before Process User Hook
44 --
45 begin
46 PQH_DE_LEVEL_CODES_BK1.Insert_LEVEL_CODES_b
47 (p_effective_date => L_Effective_Date
48 ,p_level_number_id => p_level_number_id
49 ,p_level_code => p_level_code
50 ,p_description => p_description
51 ,p_gradual_value_number => p_gradual_value_number
52 );
53
54 exception
55 when hr_api.cannot_find_prog_unit then
56 hr_api.cannot_find_prog_unit_error
57 (p_module_name => 'CREATE_LEVEL_CODES'
58 ,p_hook_type => 'BP'
59 );
60 end;
61 --
62 -- Validation in addition to Row Handlers
63 --
64 --
65 -- Process Logic
66 pqh_lcd_ins.ins
67 (p_level_number_id => p_level_number_id
68 ,p_level_code => p_level_code
69 ,p_description => p_description
70 ,p_gradual_value_number => p_gradual_value_number
71 ,p_level_code_id => l_level_code_id
72 ,p_object_version_number => l_object_version_number
73 );
74
75 --
76 -- Call After Process User Hook
77 --
78 begin
79
80
81 PQH_DE_LEVEL_CODES_BK1.Insert_LEVEL_CODES_a
82 (p_effective_date => L_Effective_Date
83 ,p_level_number_id => p_level_number_id
84 ,p_level_code => p_level_code
85 ,p_description => p_description
86 ,p_gradual_value_number => p_gradual_value_number
87 ,p_level_code_id => p_level_code_id
88 ,p_object_version_number => p_object_version_number
89 );
93 when hr_api.cannot_find_prog_unit then
90
91
92 exception
94 hr_api.cannot_find_prog_unit_error
95 (p_module_name => 'INSERT_LEVEL_CODES'
96 ,p_hook_type => 'AP'
97 );
98 end;
99 --
100 -- When in validation only mode raise the Validate_Enabled exception
101 --
102 if p_validate then
103 raise hr_api.validate_enabled;
104 end if;
105 --
106 -- Set all output arguments
107 --
108 P_LEVEL_CODE_ID := l_LEVEL_CODE_ID;
109 p_object_version_number := l_object_version_number;
110
111 --
112 hr_utility.set_location(' Leaving:'||l_proc, 70);
113 exception
114 when hr_api.validate_enabled then
115 --
116 -- As the Validate_Enabled exception has been raised
117 -- we must rollback to the savepoint
118 --
119 rollback to Insert_LEVEL_CODES;
120 --
121 -- Only set output warning arguments
122 -- (Any key or derived arguments must be set to null
123 -- when validation only mode is being used.)
124 --
125 p_LEVEL_CODE_ID := null;
126 p_object_version_number := null;
127 hr_utility.set_location(' Leaving:'||l_proc, 80);
128
129 when others then
130 p_LEVEL_CODE_ID := null;
131 p_object_version_number := null;
132 --
133 -- A validation or unexpected error has occured
134 --
135 rollback to Insert_LEVEL_CODES;
136 hr_utility.set_location(' Leaving:'||l_proc, 90);
137 raise;
138 end Insert_LEVEL_CODES;
139
140 --
141 -- ----------------------------------------------------------------------------
142 -- |--------------------------< Update_LEVEL_CODES >--------------------------|
143 -- ----------------------------------------------------------------------------
144
145 procedure Update_LEVEL_CODES
146 (p_validate in boolean default false
147 ,p_effective_date in date
148 ,p_level_code_id in number
149 ,p_object_version_number in out nocopy number
150 ,p_level_number_id in number default hr_api.g_number
151 ,p_level_code in varchar2 default hr_api.g_varchar2
152 ,p_description in varchar2 default hr_api.g_varchar2
153 ,p_gradual_value_number in number default hr_api.g_number
154 ) Is
155
156 l_proc varchar2(72) := g_package||'Update_LEVEL_CODES';
157 l_object_Version_Number PQH_DE_LEVEL_CODES.OBJECT_VERSION_NUMBER%TYPE := P_Object_version_Number;
158 L_Effective_Date Date;
159
160 Begin
161 hr_utility.set_location('Entering:'|| l_proc, 10);
162 --
163 -- Issue a savepoint
164 --
165 savepoint Update_OPERATIONS;
166 --
167 -- Truncate the time portion from all IN date parameters
168 --
169 l_effective_date := Trunc(p_effective_Date);
170 --
171 -- Call Before Process User Hook
172 --
173 begin
174
175
176 PQH_DE_LEVEL_CODES_BK2.Update_LEVEL_CODES_b
177 (p_effective_date => L_Effective_Date
178 ,p_level_number_id => p_level_number_id
179 ,p_level_code => p_level_code
180 ,p_description => p_description
181 ,p_gradual_value_number => p_gradual_value_number
182 ,p_level_code_id => p_level_code_id
183 ,p_object_version_number => p_object_version_number
184 );
185
186
187 exception
188 when hr_api.cannot_find_prog_unit then
189 hr_api.cannot_find_prog_unit_error
190 (p_module_name => 'UPDATE_LEVEL_CODES'
191 ,p_hook_type => 'BP'
192 );
193 end;
194
195
196 pqh_lcd_upd.upd
197 (p_level_number_id => p_level_number_id
198 ,p_level_code => p_level_code
199 ,p_description => p_description
200 ,p_gradual_value_number => p_gradual_value_number
201 ,p_level_code_id => p_level_code_id
202 ,p_object_version_number => l_object_version_number
203 );
204
205 --
206 --
207 -- Call After Process User Hook
208 --
209 begin
210
211
212 PQH_DE_LEVEL_CODES_BK2.Update_LEVEL_CODES_a
213 (p_effective_date => L_Effective_Date
214 ,p_level_number_id => p_level_number_id
215 ,p_level_code => p_level_code
216 ,p_description => p_description
217 ,p_gradual_value_number => p_gradual_value_number
218 ,p_level_code_id => p_level_code_id
219 ,p_object_version_number => p_object_version_number
220 );
221
222 exception
223 when hr_api.cannot_find_prog_unit then
224 hr_api.cannot_find_prog_unit_error
225 (p_module_name => 'UPDATE_LEVEL_CODES'
226 ,p_hook_type => 'AP'
227 );
228 end;
229 --
230 -- When in validation only mode raise the Validate_Enabled exception
231 --
232 if p_validate then
233 raise hr_api.validate_enabled;
234 end if;
235 --
236 -- Set all output arguments
237 --
238
239 p_object_version_number := l_object_version_number;
240
241 --
242 hr_utility.set_location(' Leaving:'||l_proc, 70);
243 exception
244 when hr_api.validate_enabled then
245 --
246 -- As the Validate_Enabled exception has been raised
247 -- we must rollback to the savepoint
248 --
249 rollback to Update_LEVEL_CODES;
250 --
251 -- Only set output warning arguments
252 -- (Any key or derived arguments must be set to null
253 -- when validation only mode is being used.)
254 --
255 hr_utility.set_location(' Leaving:'||l_proc, 80);
256
257 when others then
258 p_object_version_number := l_object_version_number;
259 --
260 -- A validation or unexpected error has occured
261 --
262 rollback to Update_LEVEL_CODES;
263 hr_utility.set_location(' Leaving:'||l_proc, 90);
264 raise;
265 end Update_LEVEL_CODES;
266
267 --
268 -- ----------------------------------------------------------------------------
269 -- |-------------------< delete_LEVEL_CODES>------------------------------|
270 -- ----------------------------------------------------------------------------
271 procedure delete_LEVEL_CODES
272 (p_validate in boolean default false
273 ,p_level_code_ID In Number
274 ,p_object_version_number In number) Is --
275
276 -- Declare cursors and local variables
277 --
278 l_proc varchar2(72) := g_package||'delete_LEVEL_CODES';
279 --
280 begin
281 hr_utility.set_location('Entering:'|| l_proc, 10);
282 --
283 -- Issue a savepoint
284 --
285 savepoint delete_LEVEL_CODES;
286 --
287 -- Call Before Process User Hook
288 --
289 begin
290 PQH_DE_LEVEL_CODES_BK3.Delete_LEVEL_CODES_b
291 (p_LEVEL_CODE_Id => p_LEVEL_CODE_Id
292 ,p_object_version_number => p_object_version_number);
293 exception
294 when hr_api.cannot_find_prog_unit then
295 hr_api.cannot_find_prog_unit_error
296 (p_module_name => 'DELETE_LEVEL_CODES'
297 ,p_hook_type => 'BP');
298 end;
299 --
300 -- Process Logic
301 --
302 pqh_lcd_del.del
303 (p_LEVEL_CODE_id => p_LEVEL_CODE_Id
304 ,p_object_version_number => p_object_version_number
305 );
306 --
307 -- Call After Process User Hook
308 --
309 begin
310
311 PQH_DE_LEVEL_CODES_BK3.Delete_LEVEL_CODES_a
312 (p_LEVEL_CODE_Id => p_LEVEL_CODE_Id
313 ,p_object_version_number => p_object_version_number);
314
315 exception
316 when hr_api.cannot_find_prog_unit then
317 hr_api.cannot_find_prog_unit_error
318 (p_module_name => 'DELETE_LEVEL_CODES'
319 ,p_hook_type => 'AP');
320 end;
321 --
322 -- When in validation only mode raise the Validate_Enabled exception
323 --
324 if p_validate then
325 raise hr_api.validate_enabled;
326 end if;
327 --
328 -- Set all output arguments
329 --
330 hr_utility.set_location(' Leaving:'||l_proc, 70);
331 exception
332 when hr_api.validate_enabled then
333 --
334 -- As the Validate_Enabled exception has been raised
335 -- we must rollback to the savepoint
336 --
337 rollback to delete_LEVEL_CODES;
338 --
339 -- Only set output warning arguments
340 -- (Any key or derived arguments must be set to null
341 -- when validation only mode is being used.)
342 --
343 hr_utility.set_location(' Leaving:'||l_proc, 80);
344 when others then
345 --
346 -- A validation or unexpected error has occured
347 --
348 rollback to delete_LEVEL_CODES;
349 hr_utility.set_location(' Leaving:'||l_proc, 90);
350 raise;
351 end delete_LEVEL_CODES;
352
353 end PQH_DE_LEVEL_CODES_API;