PACKAGE BODY: APPS.FF_CON_BUS

Source

1 Package Body ff_con_bus as
2 /* $Header: ffconrhi.pkb 115.1 2002/12/23 13:59:57 arashid ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- |                     Private Global Definitions                           |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package  varchar2(33)	:= '  ff_con_bus.';  -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |---------------------------< insert_validate >----------------------------|
12 -- ----------------------------------------------------------------------------
13 Procedure insert_validate(p_rec in ff_con_shd.g_rec_type) is
14 --
15   l_proc  varchar2(72) := g_package||'insert_validate';
16   l_context_id number;
17 --
18   cursor chk_context_id (c_context_id number) is
19   select context_id from ff_contexts
20   where context_id = c_context_id;
21 --
22 Begin
23   hr_utility.set_location('Entering:'||l_proc, 5);
24   --
25   -- Call all supporting business operations
26   -- Simple check on context ID as no FK constraint exists.
27   --
28   open chk_context_id(p_rec.context_id);
29   fetch chk_context_id into l_context_id;
30   close chk_context_id;
31   --
32   if l_context_id is null then
33      raise no_data_found;
34   end if;
35   --
36   hr_utility.set_location(' Leaving:'||l_proc, 10);
37 Exception when no_data_found then
38 --
39 -- Raise error although FK does not exist.
40    ff_con_shd.constraint_error('FF_ARCHIVE_ITEM_CONTEXT_FK2');
41 --
42 End insert_validate;
43 --
44 -- ----------------------------------------------------------------------------
45 -- |---------------------------< update_validate >----------------------------|
46 -- ----------------------------------------------------------------------------
47 Procedure update_validate(p_rec in ff_con_shd.g_rec_type) is
48 --
49   l_proc  varchar2(72) := g_package||'update_validate';
50 --
51 Begin
52   hr_utility.set_location('Entering:'||l_proc, 5);
53   --
54   -- Call all supporting business operations
55   --
56   --
57   --
58   hr_utility.set_location(' Leaving:'||l_proc, 10);
59 End update_validate;
60 --
61 -- ----------------------------------------------------------------------------
62 -- |---------------------------< delete_validate >----------------------------|
63 -- ----------------------------------------------------------------------------
64 Procedure delete_validate(p_rec in ff_con_shd.g_rec_type) is
65 --
66   l_proc  varchar2(72) := g_package||'delete_validate';
67 --
68 Begin
69   hr_utility.set_location('Entering:'||l_proc, 5);
70   --
71   -- Call all supporting business operations
72   --
73   hr_utility.set_location(' Leaving:'||l_proc, 10);
74 End delete_validate;
75 --
76 end ff_con_bus;