DBA Data[Home] [Help]

PACKAGE BODY: APPS.PQH_PROCESS_LOG_API

Source


1 Package Body pqh_process_log_api as
2 /* $Header: pqplgapi.pkb 115.5 2002/12/06 18:06:42 rpasapul ship $ */
3 --
4 -- Package Variables
5 --
6 g_package  varchar2(33) := '  pqh_process_log_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |------------------------< create_process_log >----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_process_log
13   (p_validate                       in  boolean   default false
14   ,p_process_log_id                 out nocopy number
15   ,p_module_cd                      in  varchar2  default null
16   ,p_txn_id                         in  number    default null
17   ,p_master_process_log_id          in  number    default null
18   ,p_message_text                   in  varchar2  default null
19   ,p_message_type_cd                in  varchar2  default null
20   ,p_batch_status                   in  varchar2  default null
21   ,p_batch_start_date               in  date      default null
22   ,p_batch_end_date                 in  date      default null
23   ,p_txn_table_route_id             in  number    default null
24   ,p_log_context                    in  varchar2  default null
25   ,p_information_category           in  varchar2  default null
26   ,p_information1                   in  varchar2  default null
27   ,p_information2                   in  varchar2  default null
28   ,p_information3                   in  varchar2  default null
29   ,p_information4                   in  varchar2  default null
30   ,p_information5                   in  varchar2  default null
31   ,p_information6                   in  varchar2  default null
32   ,p_information7                   in  varchar2  default null
33   ,p_information8                   in  varchar2  default null
34   ,p_information9                   in  varchar2  default null
35   ,p_information10                  in  varchar2  default null
36   ,p_information11                  in  varchar2  default null
37   ,p_information12                  in  varchar2  default null
38   ,p_information13                  in  varchar2  default null
39   ,p_information14                  in  varchar2  default null
40   ,p_information15                  in  varchar2  default null
41   ,p_information16                  in  varchar2  default null
42   ,p_information17                  in  varchar2  default null
43   ,p_information18                  in  varchar2  default null
44   ,p_information19                  in  varchar2  default null
45   ,p_information20                  in  varchar2  default null
46   ,p_information21                  in  varchar2  default null
47   ,p_information22                  in  varchar2  default null
48   ,p_information23                  in  varchar2  default null
49   ,p_information24                  in  varchar2  default null
50   ,p_information25                  in  varchar2  default null
51   ,p_information26                  in  varchar2  default null
52   ,p_information27                  in  varchar2  default null
53   ,p_information28                  in  varchar2  default null
54   ,p_information29                  in  varchar2  default null
55   ,p_information30                  in  varchar2  default null
56   ,p_object_version_number          out nocopy number
57   ,p_effective_date                 in  date
58   ) is
59   --
60   -- Declare cursors and local variables
61   --
62   l_process_log_id pqh_process_log.process_log_id%TYPE;
63   l_proc varchar2(72) := g_package||'create_process_log';
64   l_object_version_number pqh_process_log.object_version_number%TYPE;
65   --
66 begin
67   --
68   hr_utility.set_location('Entering:'|| l_proc, 10);
69   --
70   -- Issue a savepoint if operating in validation only mode
71   --
72   savepoint create_process_log;
73   --
74   hr_utility.set_location(l_proc, 20);
75   --
76   -- Process Logic
77   --
78   begin
79     --
80     -- Start of API User Hook for the before hook of create_process_log
81     --
82     pqh_process_log_bk1.create_process_log_b
83       (
84        p_module_cd                      =>  p_module_cd
85       ,p_txn_id                         =>  p_txn_id
86       ,p_master_process_log_id          =>  p_master_process_log_id
87       ,p_message_text                   =>  p_message_text
88       ,p_message_type_cd                =>  p_message_type_cd
89       ,p_batch_status                   =>  p_batch_status
90       ,p_batch_start_date               =>  p_batch_start_date
91       ,p_batch_end_date                 =>  p_batch_end_date
92       ,p_txn_table_route_id             =>  p_txn_table_route_id
93       ,p_log_context                    =>  p_log_context
94       ,p_information_category           =>  p_information_category
95       ,p_information1                   =>  p_information1
96       ,p_information2                   =>  p_information2
97       ,p_information3                   =>  p_information3
98       ,p_information4                   =>  p_information4
99       ,p_information5                   =>  p_information5
100       ,p_information6                   =>  p_information6
101       ,p_information7                   =>  p_information7
102       ,p_information8                   =>  p_information8
103       ,p_information9                   =>  p_information9
104       ,p_information10                  =>  p_information10
105       ,p_information11                  =>  p_information11
106       ,p_information12                  =>  p_information12
107       ,p_information13                  =>  p_information13
108       ,p_information14                  =>  p_information14
109       ,p_information15                  =>  p_information15
110       ,p_information16                  =>  p_information16
111       ,p_information17                  =>  p_information17
112       ,p_information18                  =>  p_information18
113       ,p_information19                  =>  p_information19
114       ,p_information20                  =>  p_information20
115       ,p_information21                  =>  p_information21
116       ,p_information22                  =>  p_information22
117       ,p_information23                  =>  p_information23
118       ,p_information24                  =>  p_information24
119       ,p_information25                  =>  p_information25
120       ,p_information26                  =>  p_information26
121       ,p_information27                  =>  p_information27
122       ,p_information28                  =>  p_information28
123       ,p_information29                  =>  p_information29
124       ,p_information30                  =>  p_information30
125       ,p_effective_date               => trunc(p_effective_date)
126       );
127   exception
128     when hr_api.cannot_find_prog_unit then
129       hr_api.cannot_find_prog_unit_error
130         (
131          p_module_name => 'CREATE_PROCESS_LOG'
132         ,p_hook_type   => 'BP'
133         );
134     --
135     -- End of API User Hook for the before hook of create_process_log
136     --
137   end;
138   --
139   pqh_plg_ins.ins
140     (
141      p_process_log_id                => l_process_log_id
142     ,p_module_cd                     => p_module_cd
143     ,p_txn_id                        => p_txn_id
144     ,p_master_process_log_id         => p_master_process_log_id
145     ,p_message_text                  => p_message_text
146     ,p_message_type_cd               => p_message_type_cd
147     ,p_batch_status                  => p_batch_status
148     ,p_batch_start_date              => p_batch_start_date
149     ,p_batch_end_date                => p_batch_end_date
150     ,p_txn_table_route_id            => p_txn_table_route_id
151     ,p_log_context                   => p_log_context
152     ,p_information_category          => p_information_category
153     ,p_information1                  => p_information1
154     ,p_information2                  => p_information2
155     ,p_information3                  => p_information3
156     ,p_information4                  => p_information4
157     ,p_information5                  => p_information5
158     ,p_information6                  => p_information6
159     ,p_information7                  => p_information7
160     ,p_information8                  => p_information8
161     ,p_information9                  => p_information9
162     ,p_information10                 => p_information10
163     ,p_information11                 => p_information11
164     ,p_information12                 => p_information12
165     ,p_information13                 => p_information13
166     ,p_information14                 => p_information14
167     ,p_information15                 => p_information15
168     ,p_information16                 => p_information16
169     ,p_information17                 => p_information17
170     ,p_information18                 => p_information18
171     ,p_information19                 => p_information19
172     ,p_information20                 => p_information20
173     ,p_information21                 => p_information21
174     ,p_information22                 => p_information22
175     ,p_information23                 => p_information23
176     ,p_information24                 => p_information24
177     ,p_information25                 => p_information25
178     ,p_information26                 => p_information26
179     ,p_information27                 => p_information27
180     ,p_information28                 => p_information28
181     ,p_information29                 => p_information29
182     ,p_information30                 => p_information30
183     ,p_object_version_number         => l_object_version_number
184     ,p_effective_date                => trunc(p_effective_date)
185     );
186   --
187   begin
188     --
189     -- Start of API User Hook for the after hook of create_process_log
190     --
191     pqh_process_log_bk1.create_process_log_a
192       (
193        p_process_log_id                 =>  l_process_log_id
194       ,p_module_cd                      =>  p_module_cd
195       ,p_txn_id                         =>  p_txn_id
196       ,p_master_process_log_id          =>  p_master_process_log_id
197       ,p_message_text                   =>  p_message_text
198       ,p_message_type_cd                =>  p_message_type_cd
199       ,p_batch_status                   =>  p_batch_status
200       ,p_batch_start_date               =>  p_batch_start_date
201       ,p_batch_end_date                 =>  p_batch_end_date
202       ,p_txn_table_route_id             =>  p_txn_table_route_id
203       ,p_log_context                    =>  p_log_context
204       ,p_information_category           =>  p_information_category
205       ,p_information1                   =>  p_information1
206       ,p_information2                   =>  p_information2
207       ,p_information3                   =>  p_information3
208       ,p_information4                   =>  p_information4
209       ,p_information5                   =>  p_information5
210       ,p_information6                   =>  p_information6
211       ,p_information7                   =>  p_information7
212       ,p_information8                   =>  p_information8
213       ,p_information9                   =>  p_information9
214       ,p_information10                  =>  p_information10
215       ,p_information11                  =>  p_information11
216       ,p_information12                  =>  p_information12
217       ,p_information13                  =>  p_information13
218       ,p_information14                  =>  p_information14
219       ,p_information15                  =>  p_information15
220       ,p_information16                  =>  p_information16
221       ,p_information17                  =>  p_information17
222       ,p_information18                  =>  p_information18
223       ,p_information19                  =>  p_information19
224       ,p_information20                  =>  p_information20
225       ,p_information21                  =>  p_information21
226       ,p_information22                  =>  p_information22
227       ,p_information23                  =>  p_information23
228       ,p_information24                  =>  p_information24
229       ,p_information25                  =>  p_information25
230       ,p_information26                  =>  p_information26
231       ,p_information27                  =>  p_information27
232       ,p_information28                  =>  p_information28
233       ,p_information29                  =>  p_information29
234       ,p_information30                  =>  p_information30
235       ,p_object_version_number          =>  l_object_version_number
236       ,p_effective_date                 => trunc(p_effective_date)
237       );
238   exception
239     when hr_api.cannot_find_prog_unit then
240       hr_api.cannot_find_prog_unit_error
241         (p_module_name => 'CREATE_PROCESS_LOG'
242         ,p_hook_type   => 'AP'
243         );
244     --
245     -- End of API User Hook for the after hook of create_process_log
246     --
247   end;
248   --
249   hr_utility.set_location(l_proc, 60);
250   --
251   -- When in validation only mode raise the Validate_Enabled exception
252   --
253   if p_validate then
254     raise hr_api.validate_enabled;
255   end if;
256   --
257   -- Set all output arguments
258   --
259   p_process_log_id := l_process_log_id;
260   p_object_version_number := l_object_version_number;
261   --
262   hr_utility.set_location(' Leaving:'||l_proc, 70);
263   --
264 exception
265   --
266   when hr_api.validate_enabled then
267     --
268     -- As the Validate_Enabled exception has been raised
269     -- we must rollback to the savepoint
270     --
271     ROLLBACK TO create_process_log;
272     --
273     -- Only set output warning arguments
274     -- (Any key or derived arguments must be set to null
275     -- when validation only mode is being used.)
276     --
277     p_process_log_id := null;
278     p_object_version_number  := null;
279     hr_utility.set_location(' Leaving:'||l_proc, 80);
280     --
281   when others then
282       p_process_log_id := null;
283     p_object_version_number  := null;
284     --
285     -- A validation or unexpected error has occured
286     --
287     ROLLBACK TO create_process_log;
288     raise;
289     --
290 end create_process_log;
291 -- ----------------------------------------------------------------------------
292 -- |------------------------< update_process_log >--- ------------------|
293 -- ----------------------------------------------------------------------------
294 --
295 procedure update_process_log
296   (p_validate                       in  boolean   default false
297   ,p_process_log_id                 in  number
298   ,p_module_cd                      in  varchar2  default hr_api.g_varchar2
299   ,p_txn_id                         in  number    default hr_api.g_number
300   ,p_master_process_log_id          in  number    default hr_api.g_number
301   ,p_message_text                   in  varchar2  default hr_api.g_varchar2
302   ,p_message_type_cd                in  varchar2  default hr_api.g_varchar2
303   ,p_batch_status                   in  varchar2  default hr_api.g_varchar2
304   ,p_batch_start_date               in  date      default hr_api.g_date
305   ,p_batch_end_date                 in  date      default hr_api.g_date
306   ,p_txn_table_route_id             in  number    default hr_api.g_number
307   ,p_log_context                    in  varchar2  default hr_api.g_varchar2
308   ,p_information_category           in  varchar2  default hr_api.g_varchar2
309   ,p_information1                   in  varchar2  default hr_api.g_varchar2
310   ,p_information2                   in  varchar2  default hr_api.g_varchar2
311   ,p_information3                   in  varchar2  default hr_api.g_varchar2
312   ,p_information4                   in  varchar2  default hr_api.g_varchar2
313   ,p_information5                   in  varchar2  default hr_api.g_varchar2
314   ,p_information6                   in  varchar2  default hr_api.g_varchar2
315   ,p_information7                   in  varchar2  default hr_api.g_varchar2
316   ,p_information8                   in  varchar2  default hr_api.g_varchar2
317   ,p_information9                   in  varchar2  default hr_api.g_varchar2
318   ,p_information10                  in  varchar2  default hr_api.g_varchar2
319   ,p_information11                  in  varchar2  default hr_api.g_varchar2
320   ,p_information12                  in  varchar2  default hr_api.g_varchar2
321   ,p_information13                  in  varchar2  default hr_api.g_varchar2
322   ,p_information14                  in  varchar2  default hr_api.g_varchar2
323   ,p_information15                  in  varchar2  default hr_api.g_varchar2
324   ,p_information16                  in  varchar2  default hr_api.g_varchar2
325   ,p_information17                  in  varchar2  default hr_api.g_varchar2
326   ,p_information18                  in  varchar2  default hr_api.g_varchar2
327   ,p_information19                  in  varchar2  default hr_api.g_varchar2
328   ,p_information20                  in  varchar2  default hr_api.g_varchar2
329   ,p_information21                  in  varchar2  default hr_api.g_varchar2
330   ,p_information22                  in  varchar2  default hr_api.g_varchar2
331   ,p_information23                  in  varchar2  default hr_api.g_varchar2
332   ,p_information24                  in  varchar2  default hr_api.g_varchar2
333   ,p_information25                  in  varchar2  default hr_api.g_varchar2
334   ,p_information26                  in  varchar2  default hr_api.g_varchar2
335   ,p_information27                  in  varchar2  default hr_api.g_varchar2
336   ,p_information28                  in  varchar2  default hr_api.g_varchar2
337   ,p_information29                  in  varchar2  default hr_api.g_varchar2
338   ,p_information30                  in  varchar2  default hr_api.g_varchar2
339   ,p_object_version_number          in out nocopy number
340   ,p_effective_date                 in  date
341   ) is
342   --
343   -- Declare cursors and local variables
344   --
345   l_proc varchar2(72) := g_package||'update_process_log';
346   l_object_version_number pqh_process_log.object_version_number%TYPE;
347   --
348 begin
349   --
350   hr_utility.set_location('Entering:'|| l_proc, 10);
351   --
352   -- Issue a savepoint if operating in validation only mode
353   --
354   savepoint update_process_log;
355   --
356   hr_utility.set_location(l_proc, 20);
357   --
358   -- Process Logic
359   --
360   l_object_version_number := p_object_version_number;
361   --
362   begin
363     --
364     -- Start of API User Hook for the before hook of update_process_log
365     --
366     pqh_process_log_bk2.update_process_log_b
367       (
368        p_process_log_id                 =>  p_process_log_id
369       ,p_module_cd                      =>  p_module_cd
370       ,p_txn_id                         =>  p_txn_id
371       ,p_master_process_log_id          =>  p_master_process_log_id
372       ,p_message_text                   =>  p_message_text
373       ,p_message_type_cd                =>  p_message_type_cd
374       ,p_batch_status                   =>  p_batch_status
375       ,p_batch_start_date               =>  p_batch_start_date
376       ,p_batch_end_date                 =>  p_batch_end_date
377       ,p_txn_table_route_id             =>  p_txn_table_route_id
378       ,p_log_context                    =>  p_log_context
379       ,p_information_category           =>  p_information_category
380       ,p_information1                   =>  p_information1
381       ,p_information2                   =>  p_information2
382       ,p_information3                   =>  p_information3
383       ,p_information4                   =>  p_information4
384       ,p_information5                   =>  p_information5
385       ,p_information6                   =>  p_information6
386       ,p_information7                   =>  p_information7
387       ,p_information8                   =>  p_information8
388       ,p_information9                   =>  p_information9
389       ,p_information10                  =>  p_information10
390       ,p_information11                  =>  p_information11
391       ,p_information12                  =>  p_information12
392       ,p_information13                  =>  p_information13
393       ,p_information14                  =>  p_information14
394       ,p_information15                  =>  p_information15
395       ,p_information16                  =>  p_information16
396       ,p_information17                  =>  p_information17
397       ,p_information18                  =>  p_information18
398       ,p_information19                  =>  p_information19
399       ,p_information20                  =>  p_information20
400       ,p_information21                  =>  p_information21
401       ,p_information22                  =>  p_information22
402       ,p_information23                  =>  p_information23
403       ,p_information24                  =>  p_information24
404       ,p_information25                  =>  p_information25
405       ,p_information26                  =>  p_information26
406       ,p_information27                  =>  p_information27
407       ,p_information28                  =>  p_information28
408       ,p_information29                  =>  p_information29
409       ,p_information30                  =>  p_information30
410       ,p_object_version_number          =>  p_object_version_number
411     ,p_effective_date                 => trunc(p_effective_date)
412       );
413   exception
414     when hr_api.cannot_find_prog_unit then
415       hr_api.cannot_find_prog_unit_error
416         (p_module_name => 'UPDATE_PROCESS_LOG'
417         ,p_hook_type   => 'BP'
418         );
419     --
420     -- End of API User Hook for the before hook of update_process_log
421     --
422   end;
423   --
424   pqh_plg_upd.upd
425     (
426      p_process_log_id                => p_process_log_id
427     ,p_module_cd                     => p_module_cd
428     ,p_txn_id                        => p_txn_id
429     ,p_master_process_log_id         => p_master_process_log_id
430     ,p_message_text                  => p_message_text
431     ,p_message_type_cd               => p_message_type_cd
432     ,p_batch_status                  => p_batch_status
433     ,p_batch_start_date              => p_batch_start_date
434     ,p_batch_end_date                => p_batch_end_date
435     ,p_txn_table_route_id            => p_txn_table_route_id
436     ,p_log_context                   => p_log_context
437     ,p_information_category          => p_information_category
438     ,p_information1                  => p_information1
439     ,p_information2                  => p_information2
440     ,p_information3                  => p_information3
441     ,p_information4                  => p_information4
442     ,p_information5                  => p_information5
443     ,p_information6                  => p_information6
444     ,p_information7                  => p_information7
445     ,p_information8                  => p_information8
446     ,p_information9                  => p_information9
447     ,p_information10                 => p_information10
448     ,p_information11                 => p_information11
449     ,p_information12                 => p_information12
450     ,p_information13                 => p_information13
451     ,p_information14                 => p_information14
452     ,p_information15                 => p_information15
453     ,p_information16                 => p_information16
454     ,p_information17                 => p_information17
455     ,p_information18                 => p_information18
456     ,p_information19                 => p_information19
457     ,p_information20                 => p_information20
458     ,p_information21                 => p_information21
459     ,p_information22                 => p_information22
460     ,p_information23                 => p_information23
461     ,p_information24                 => p_information24
462     ,p_information25                 => p_information25
463     ,p_information26                 => p_information26
464     ,p_information27                 => p_information27
465     ,p_information28                 => p_information28
466     ,p_information29                 => p_information29
467     ,p_information30                 => p_information30
468     ,p_object_version_number         => l_object_version_number
469     ,p_effective_date                => trunc(p_effective_date)
470     );
471   --
472   begin
473     --
474     -- Start of API User Hook for the after hook of update_process_log
475     --
476     pqh_process_log_bk2.update_process_log_a
477       (
478        p_process_log_id                 =>  p_process_log_id
479       ,p_module_cd                      =>  p_module_cd
480       ,p_txn_id                         =>  p_txn_id
481       ,p_master_process_log_id          =>  p_master_process_log_id
482       ,p_message_text                   =>  p_message_text
483       ,p_message_type_cd                =>  p_message_type_cd
484       ,p_batch_status                   =>  p_batch_status
485       ,p_batch_start_date               =>  p_batch_start_date
486       ,p_batch_end_date                 =>  p_batch_end_date
487       ,p_txn_table_route_id             =>  p_txn_table_route_id
488       ,p_log_context                    =>  p_log_context
489       ,p_information_category           =>  p_information_category
490       ,p_information1                   =>  p_information1
491       ,p_information2                   =>  p_information2
492       ,p_information3                   =>  p_information3
493       ,p_information4                   =>  p_information4
494       ,p_information5                   =>  p_information5
495       ,p_information6                   =>  p_information6
496       ,p_information7                   =>  p_information7
497       ,p_information8                   =>  p_information8
498       ,p_information9                   =>  p_information9
499       ,p_information10                  =>  p_information10
500       ,p_information11                  =>  p_information11
501       ,p_information12                  =>  p_information12
502       ,p_information13                  =>  p_information13
503       ,p_information14                  =>  p_information14
504       ,p_information15                  =>  p_information15
505       ,p_information16                  =>  p_information16
506       ,p_information17                  =>  p_information17
507       ,p_information18                  =>  p_information18
508       ,p_information19                  =>  p_information19
509       ,p_information20                  =>  p_information20
510       ,p_information21                  =>  p_information21
511       ,p_information22                  =>  p_information22
512       ,p_information23                  =>  p_information23
513       ,p_information24                  =>  p_information24
514       ,p_information25                  =>  p_information25
515       ,p_information26                  =>  p_information26
516       ,p_information27                  =>  p_information27
517       ,p_information28                  =>  p_information28
518       ,p_information29                  =>  p_information29
519       ,p_information30                  =>  p_information30
520       ,p_object_version_number          =>  l_object_version_number
521       ,p_effective_date                => trunc(p_effective_date)
522       );
523   exception
524     when hr_api.cannot_find_prog_unit then
525       hr_api.cannot_find_prog_unit_error
526         (p_module_name => 'UPDATE_PROCESS_LOG'
527         ,p_hook_type   => 'AP'
528         );
529     --
530     -- End of API User Hook for the after hook of update_process_log
531     --
532   end;
533   --
534   hr_utility.set_location(l_proc, 60);
535   --
536   -- When in validation only mode raise the Validate_Enabled exception
537   --
538   if p_validate then
539     raise hr_api.validate_enabled;
540   end if;
541   --
542   -- Set all output arguments
543   --
544   p_object_version_number := l_object_version_number;
545   --
546   hr_utility.set_location(' Leaving:'||l_proc, 70);
547   --
548 exception
549   --
550   when hr_api.validate_enabled then
551     --
552     -- As the Validate_Enabled exception has been raised
553     -- we must rollback to the savepoint
554     --
555     ROLLBACK TO update_process_log;
556     --
557     -- Only set output warning arguments
558     -- (Any key or derived arguments must be set to null
559     -- when validation only mode is being used.)
560     --
561     hr_utility.set_location(' Leaving:'||l_proc, 80);
562     --
563   when others then
564      p_object_version_number := l_object_version_number;
565     --
566     -- A validation or unexpected error has occured
567     --
568     ROLLBACK TO update_process_log;
569     raise;
570     --
571 end update_process_log;
572 -- ----------------------------------------------------------------------------
573 -- |------------------------< delete_process_log >----------------------|
574 -- ----------------------------------------------------------------------------
575 --
576 procedure delete_process_log
577   (p_validate                       in  boolean  default false
578   ,p_process_log_id                 in  number
579   ,p_object_version_number          in number
580   ,p_effective_date                 in  date
581   ) is
582   --
583   -- Declare cursors and local variables
584   --
585   l_proc varchar2(72) := g_package||'delete_process_log';
586   l_object_version_number pqh_process_log.object_version_number%TYPE;
587   --
588 begin
589   --
590   hr_utility.set_location('Entering:'|| l_proc, 10);
591   --
592   -- Issue a savepoint if operating in validation only mode
593   --
594   savepoint delete_process_log;
595   --
596   hr_utility.set_location(l_proc, 20);
597   --
598   -- Process Logic
599   --
600   l_object_version_number := p_object_version_number;
601   --
602   --
603   begin
604     --
605     -- Start of API User Hook for the before hook of delete_process_log
606     --
607     pqh_process_log_bk3.delete_process_log_b
608       (
609        p_process_log_id                 =>  p_process_log_id
610       ,p_object_version_number          =>  p_object_version_number
611     ,p_effective_date                      => trunc(p_effective_date)
612       );
613   exception
614     when hr_api.cannot_find_prog_unit then
615       hr_api.cannot_find_prog_unit_error
616         (p_module_name => 'DELETE_PROCESS_LOG'
617         ,p_hook_type   => 'BP'
618         );
619     --
620     -- End of API User Hook for the before hook of delete_process_log
621     --
622   end;
623   --
624   pqh_plg_del.del
625     (
626      p_process_log_id                => p_process_log_id
627     ,p_object_version_number         => l_object_version_number
628     ,p_effective_date                => p_effective_date
629     );
630   --
631   begin
632     --
633     -- Start of API User Hook for the after hook of delete_process_log
634     --
635     pqh_process_log_bk3.delete_process_log_a
636       (
637        p_process_log_id                 =>  p_process_log_id
638       ,p_object_version_number          =>  l_object_version_number
639     ,p_effective_date                      => trunc(p_effective_date)
640       );
641   exception
642     when hr_api.cannot_find_prog_unit then
643       hr_api.cannot_find_prog_unit_error
644         (p_module_name => 'DELETE_PROCESS_LOG'
645         ,p_hook_type   => 'AP'
646         );
647     --
648     -- End of API User Hook for the after hook of delete_process_log
649     --
650   end;
651   --
652   hr_utility.set_location(l_proc, 60);
653   --
654   -- When in validation only mode raise the Validate_Enabled exception
655   --
656   if p_validate then
657     raise hr_api.validate_enabled;
658   end if;
659   --
660   hr_utility.set_location(' Leaving:'||l_proc, 70);
661   --
662 exception
663   --
664   when hr_api.validate_enabled then
665     --
666     -- As the Validate_Enabled exception has been raised
667     -- we must rollback to the savepoint
668     --
669     ROLLBACK TO delete_process_log;
670     --
671     -- Only set output warning arguments
672     -- (Any key or derived arguments must be set to null
673     -- when validation only mode is being used.)
674     --
675     --
676   when others then
677     --
678     -- A validation or unexpected error has occured
679     --
680     ROLLBACK TO delete_process_log;
681     raise;
682     --
683 end delete_process_log;
684 --
685 -- ----------------------------------------------------------------------------
686 -- |-------------------------------< lck >------------------------------------|
687 -- ----------------------------------------------------------------------------
688 --
689 procedure lck
690   (
691    p_process_log_id                   in     number
692   ,p_object_version_number          in     number
693   ) is
694   --
695   --
696   -- Declare cursors and local variables
697   --
698   l_proc varchar2(72) := g_package||'lck';
699   --
700 begin
701   --
702   hr_utility.set_location('Entering:'|| l_proc, 10);
703   --
704   pqh_plg_shd.lck
705     (
706       p_process_log_id                 => p_process_log_id
707      ,p_object_version_number      => p_object_version_number
708     );
709   --
710   hr_utility.set_location(' Leaving:'||l_proc, 70);
711   --
712 end lck;
713 --
714 end pqh_process_log_api;