[Home] [Help]
PACKAGE BODY: APPS.PQH_ROUTING_LIST_MEMBERS_API
Source
1 Package Body PQH_ROUTING_LIST_MEMBERS_api as
2 /* $Header: pqrlmapi.pkb 115.5 2002/12/06 18:08:08 rpasapul noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' PQH_ROUTING_LIST_MEMBERS_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |------------------------< create_routing_list_member >----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_routing_list_member
13 (p_validate in boolean default false
14 ,p_role_id in number default null
15 ,p_routing_list_id in number default null
16 ,p_routing_list_member_id out nocopy number
17 ,p_seq_no in number default null
18 ,p_approver_flag in varchar2 default null
19 ,p_enable_flag in varchar2 default 'Y'
20 ,p_object_version_number out nocopy number
21 ,p_user_id in number default null
22 ,p_effective_date in date
23 ) is
24 --
25 -- Declare cursors and local variables
26 --
27 l_routing_list_member_id pqh_routing_list_members.routing_list_member_id%TYPE;
28 l_proc varchar2(72) := g_package||'create_routing_list_member';
29 l_object_version_number pqh_routing_list_members.object_version_number%TYPE;
30 --
31 begin
32 --
33 hr_utility.set_location('Entering:'|| l_proc, 10);
34 --
35 -- Issue a savepoint if operating in validation only mode
36 --
37 savepoint create_routing_list_member;
38 --
39 hr_utility.set_location(l_proc, 20);
40 --
41 -- Process Logic
42 --
43 begin
44 --
45 -- Start of API User Hook for the before hook of create_routing_list_member
46 --
47 PQH_ROUTING_LIST_MEMBERS_bk1.create_routing_list_member_b
48 (
49 p_role_id => p_role_id
50 ,p_routing_list_id => p_routing_list_id
51 ,p_seq_no => p_seq_no
52 ,p_approver_flag => p_approver_flag
53 ,p_enable_flag => p_enable_flag
54 ,p_user_id => p_user_id
55 ,p_effective_date => trunc(p_effective_date)
56 );
57 exception
58 when hr_api.cannot_find_prog_unit then
59 hr_api.cannot_find_prog_unit_error
60 (
61 p_module_name => 'CREATE_ROUTING_LIST_MEMBER'
62 ,p_hook_type => 'BP'
63 );
64 --
65 -- End of API User Hook for the before hook of create_routing_list_member
66 --
67 end;
68 --
69 pqh_rlm_ins.ins
70 (
71 p_routing_list_member_id => l_routing_list_member_id
72 ,p_role_id => p_role_id
73 ,p_routing_list_id => p_routing_list_id
74 ,p_seq_no => p_seq_no
75 ,p_approver_flag => p_approver_flag
76 ,p_enable_flag => p_enable_flag
77 ,p_object_version_number => l_object_version_number
78 ,p_user_id => p_user_id
79 ,p_effective_date => trunc(p_effective_date)
80 );
81 --
82 begin
83 --
84 -- Start of API User Hook for the after hook of create_routing_list_member
85 --
86 PQH_ROUTING_LIST_MEMBERS_bk1.create_routing_list_member_a
87 (
88 p_role_id => p_role_id
89 ,p_routing_list_id => p_routing_list_id
90 ,p_routing_list_member_id => l_routing_list_member_id
91 ,p_seq_no => p_seq_no
92 ,p_approver_flag => p_approver_flag
93 ,p_enable_flag => p_enable_flag
94 ,p_object_version_number => l_object_version_number
95 ,p_user_id => p_user_id
96 ,p_effective_date => trunc(p_effective_date)
97 );
98 exception
99 when hr_api.cannot_find_prog_unit then
100 hr_api.cannot_find_prog_unit_error
101 (p_module_name => 'CREATE_ROUTING_LIST_MEMBER'
102 ,p_hook_type => 'AP'
103 );
104 --
105 -- End of API User Hook for the after hook of create_routing_list_member
106 --
107 end;
108 --
109 hr_utility.set_location(l_proc, 60);
110 --
111 -- When in validation only mode raise the Validate_Enabled exception
112 --
113 if p_validate then
114 raise hr_api.validate_enabled;
115 end if;
116 --
117 -- Set all output arguments
118 --
119 p_routing_list_member_id := l_routing_list_member_id;
120 p_object_version_number := l_object_version_number;
121 --
122 hr_utility.set_location(' Leaving:'||l_proc, 70);
123 --
124 exception
125 --
126 when hr_api.validate_enabled then
127 --
128 -- As the Validate_Enabled exception has been raised
129 -- we must rollback to the savepoint
130 --
131 ROLLBACK TO create_routing_list_member;
132 --
133 -- Only set output warning arguments
134 -- (Any key or derived arguments must be set to null
135 -- when validation only mode is being used.)
136 --
137 p_routing_list_member_id := null;
138 p_object_version_number := null;
139 hr_utility.set_location(' Leaving:'||l_proc, 80);
140 --
141 when others then
142 p_routing_list_member_id := null;
143 p_object_version_number := null;
144 --
145 -- A validation or unexpected error has occured
146 --
147 ROLLBACK TO create_routing_list_member;
148 raise;
149 --
150 end create_routing_list_member;
151 -- ----------------------------------------------------------------------------
152 -- |------------------------< update_routing_list_member >--- ------------------|
153 -- ----------------------------------------------------------------------------
154 --
155 procedure update_routing_list_member
156 (p_validate in boolean default false
157 ,p_role_id in number default hr_api.g_number
158 ,p_routing_list_id in number default hr_api.g_number
159 ,p_routing_list_member_id in number
160 ,p_seq_no in number default hr_api.g_number
161 ,p_approver_flag in varchar2 default hr_api.g_varchar2
162 ,p_enable_flag in varchar2 default hr_api.g_varchar2
163 ,p_object_version_number in out nocopy number
164 ,p_user_id in number default hr_api.g_number
165 ,p_effective_date in date
166 ) is
167 --
168 -- Declare cursors and local variables
169 --
170 l_proc varchar2(72) := g_package||'update_routing_list_member';
171 l_object_version_number pqh_routing_list_members.object_version_number%TYPE;
172 --
173 begin
174 --
175 hr_utility.set_location('Entering:'|| l_proc, 10);
176 --
177 -- Issue a savepoint if operating in validation only mode
178 --
179 savepoint update_routing_list_member;
180 --
181 hr_utility.set_location(l_proc, 20);
182 --
183 -- Process Logic
184 --
185 l_object_version_number := p_object_version_number;
186 --
187 begin
188 --
189 -- Start of API User Hook for the before hook of update_routing_list_member
190 --
191 PQH_ROUTING_LIST_MEMBERS_bk2.update_routing_list_member_b
192 (
193 p_role_id => p_role_id
194 ,p_routing_list_id => p_routing_list_id
195 ,p_routing_list_member_id => p_routing_list_member_id
196 ,p_seq_no => p_seq_no
197 ,p_approver_flag => p_approver_flag
198 ,p_enable_flag => p_enable_flag
199 ,p_object_version_number => p_object_version_number
200 ,p_user_id => p_user_id
201 ,p_effective_date => trunc(p_effective_date)
202 );
203 exception
204 when hr_api.cannot_find_prog_unit then
205 hr_api.cannot_find_prog_unit_error
206 (p_module_name => 'UPDATE_ROUTING_LIST_MEMBER'
207 ,p_hook_type => 'BP'
208 );
209 --
210 -- End of API User Hook for the before hook of update_routing_list_member
211 --
212 end;
213 --
214 pqh_rlm_upd.upd
215 (
216 p_routing_list_member_id => p_routing_list_member_id
217 ,p_role_id => p_role_id
218 ,p_routing_list_id => p_routing_list_id
219 ,p_seq_no => p_seq_no
220 ,p_approver_flag => p_approver_flag
221 ,p_enable_flag => p_enable_flag
222 ,p_object_version_number => l_object_version_number
223 ,p_user_id => p_user_id
224 ,p_effective_date => trunc(p_effective_date)
225 );
226 --
227 begin
228 --
229 -- Start of API User Hook for the after hook of update_routing_list_member
230 --
231 PQH_ROUTING_LIST_MEMBERS_bk2.update_routing_list_member_a
232 (
233 p_role_id => p_role_id
234 ,p_routing_list_id => p_routing_list_id
235 ,p_routing_list_member_id => p_routing_list_member_id
236 ,p_seq_no => p_seq_no
237 ,p_approver_flag => p_approver_flag
238 ,p_enable_flag => p_enable_flag
239 ,p_object_version_number => l_object_version_number
240 ,p_user_id => p_user_id
241 ,p_effective_date => trunc(p_effective_date)
242 );
243 exception
244 when hr_api.cannot_find_prog_unit then
245 hr_api.cannot_find_prog_unit_error
246 (p_module_name => 'UPDATE_ROUTING_LIST_MEMBER'
247 ,p_hook_type => 'AP'
248 );
249 --
250 -- End of API User Hook for the after hook of update_routing_list_member
251 --
252 end;
253 --
254 hr_utility.set_location(l_proc, 60);
255 --
256 -- When in validation only mode raise the Validate_Enabled exception
257 --
258 if p_validate then
259 raise hr_api.validate_enabled;
260 end if;
261 --
262 -- Set all output arguments
263 --
264 p_object_version_number := l_object_version_number;
265 --
266 hr_utility.set_location(' Leaving:'||l_proc, 70);
267 --
268 exception
269 --
270 when hr_api.validate_enabled then
271 --
272 -- As the Validate_Enabled exception has been raised
273 -- we must rollback to the savepoint
274 --
275 ROLLBACK TO update_routing_list_member;
276 --
277 -- Only set output warning arguments
278 -- (Any key or derived arguments must be set to null
279 -- when validation only mode is being used.)
280 --
281 hr_utility.set_location(' Leaving:'||l_proc, 80);
282 --
283 when others then
284 p_object_version_number := l_object_version_number;
285 --
286 -- A validation or unexpected error has occured
287 --
288 ROLLBACK TO update_routing_list_member;
289 raise;
290 --
291 end update_routing_list_member;
292 -- ----------------------------------------------------------------------------
293 -- |------------------------< delete_routing_list_member >----------------------|
294 -- ----------------------------------------------------------------------------
295 --
296 procedure delete_routing_list_member
297 (p_validate in boolean default false
298 ,p_routing_list_member_id in number
299 ,p_object_version_number in out nocopy number
300 ,p_effective_date in date
301 ) is
302 --
303 -- Declare cursors and local variables
304 --
305 l_proc varchar2(72) := g_package||'delete_routing_list_member';
306 l_object_version_number pqh_routing_list_members.object_version_number%TYPE;
307 --
308 begin
309 --
310 hr_utility.set_location('Entering:'|| l_proc, 10);
311 --
312 -- Issue a savepoint if operating in validation only mode
313 --
314 savepoint delete_routing_list_member;
315 --
316 hr_utility.set_location(l_proc, 20);
317 --
318 -- Process Logic
319 --
320 l_object_version_number := p_object_version_number;
321 --
322 --
323 begin
324 --
325 -- Start of API User Hook for the before hook of delete_routing_list_member
326 --
327 PQH_ROUTING_LIST_MEMBERS_bk3.delete_routing_list_member_b
328 (
329 p_routing_list_member_id => p_routing_list_member_id
330 ,p_object_version_number => p_object_version_number
331 ,p_effective_date => trunc(p_effective_date)
332 );
333 exception
334 when hr_api.cannot_find_prog_unit then
335 hr_api.cannot_find_prog_unit_error
336 (p_module_name => 'DELETE_ROUTING_LIST_MEMBER'
337 ,p_hook_type => 'BP'
338 );
339 --
340 -- End of API User Hook for the before hook of delete_routing_list_member
341 --
342 end;
343 --
344 pqh_rlm_del.del
345 (
346 p_routing_list_member_id => p_routing_list_member_id
347 ,p_object_version_number => l_object_version_number
348 ,p_effective_date => p_effective_date
349 );
350 --
351 begin
352 --
353 -- Start of API User Hook for the after hook of delete_routing_list_member
354 --
355 PQH_ROUTING_LIST_MEMBERS_bk3.delete_routing_list_member_a
356 (
357 p_routing_list_member_id => p_routing_list_member_id
358 ,p_object_version_number => l_object_version_number
359 ,p_effective_date => trunc(p_effective_date)
360 );
361 exception
362 when hr_api.cannot_find_prog_unit then
363 hr_api.cannot_find_prog_unit_error
364 (p_module_name => 'DELETE_ROUTING_LIST_MEMBER'
365 ,p_hook_type => 'AP'
366 );
367 --
368 -- End of API User Hook for the after hook of delete_routing_list_member
369 --
370 end;
371 --
372 hr_utility.set_location(l_proc, 60);
373 --
374 -- When in validation only mode raise the Validate_Enabled exception
375 --
376 if p_validate then
377 raise hr_api.validate_enabled;
378 end if;
379 --
380 hr_utility.set_location(' Leaving:'||l_proc, 70);
381 --
382 exception
383 --
384 when hr_api.validate_enabled then
385 --
386 -- As the Validate_Enabled exception has been raised
387 -- we must rollback to the savepoint
388 --
389 ROLLBACK TO delete_routing_list_member;
390 --
391 -- Only set output warning arguments
392 -- (Any key or derived arguments must be set to null
393 -- when validation only mode is being used.)
394 --
395 --
396 when others then
397 --
398 -- A validation or unexpected error has occured
399 --
400 ROLLBACK TO delete_routing_list_member;
401 raise;
402 --
403 end delete_routing_list_member;
404 --
405 -- ----------------------------------------------------------------------------
406 -- |-------------------------------< lck >------------------------------------|
407 -- ----------------------------------------------------------------------------
408 --
409 procedure lck
410 (
411 p_routing_list_member_id in number
412 ,p_object_version_number in number
413 ) is
414 --
415 --
416 -- Declare cursors and local variables
417 --
418 l_proc varchar2(72) := g_package||'lck';
419 --
420 begin
421 --
422 hr_utility.set_location('Entering:'|| l_proc, 10);
423 --
424 pqh_rlm_shd.lck
425 (
426 p_routing_list_member_id => p_routing_list_member_id
427 ,p_object_version_number => p_object_version_number
428 );
429 --
430 hr_utility.set_location(' Leaving:'||l_proc, 70);
431 --
432 end lck;
433 --
434 end PQH_ROUTING_LIST_MEMBERS_api;