[Home] [Help]
PACKAGE BODY: APPS.PAY_MGR_BUS
Source
1 Package Body pay_mgr_bus as
2 /* $Header: pymgrrhi.pkb 120.2 2005/07/10 23:13:53 pgongada noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' pay_mgr_bus.'; -- Global package name
9 --
10 -- ---------------------------------------------------------------------------
11 -- |----------------------------< chk_formula_id >---------------------------|
12 -- ---------------------------------------------------------------------------
13 --
14 Procedure chk_formula_id
15 ( p_formula_id in number ) IS
16 --
17 cursor csr_formula_id is
18 select null
19 from ff_formulas_f
20 where formula_id = p_formula_id;
21 --
22 l_proc varchar2(72) := g_package || 'chk_formula_id';
23 l_exists varchar2(1);
24 --
25 Begin
26 --
27 hr_utility.set_location('Entering:'|| l_proc, 10);
28 --
29 if (p_formula_id <> -9999) then
30 hr_api.mandatory_arg_error
31 ( p_api_name => l_proc
32 ,p_argument => 'FORMULA_ID'
33 ,p_argument_value => p_formula_id
34 );
35
36 open csr_formula_id;
37 fetch csr_formula_id into l_exists;
38
39 if csr_formula_id%notfound then
40
41 close csr_formula_id;
42
43 fnd_message.set_name('PAY', 'PAY_33174_PARENT_ID_INVALID');
44 fnd_message.set_token('PARENT' , 'Formula Id' );
45 fnd_message.raise_error;
46
47 end if ;
48
49 close csr_formula_id;
50 --
51 end if;
52 hr_utility.set_location(' Leaving:'|| l_proc, 20);
53 --
54 End chk_formula_id;
55 --
56 -- ----------------------------------------------------------------------------
57 -- |---------------------------< insert_validate >----------------------------|
58 -- ----------------------------------------------------------------------------
59 Procedure insert_validate(p_rec in pay_mgr_shd.g_rec_type) is
60 --
61 l_proc varchar2(72) := g_package||'insert_validate';
62 --
63 Begin
64 hr_utility.set_location('Entering:'||l_proc, 5);
65 --
66 -- Call all supporting business operations
67 --
68 --
69 chk_formula_id
70 ( p_formula_id => p_rec.formula_id );
71 --
72 hr_utility.set_location(' Leaving:'||l_proc, 10);
73 End insert_validate;
74 --
75 -- ----------------------------------------------------------------------------
76 -- |---------------------------< update_validate >----------------------------|
77 -- ----------------------------------------------------------------------------
78 Procedure update_validate(p_rec in pay_mgr_shd.g_rec_type) is
79 --
80 l_proc varchar2(72) := g_package||'update_validate';
81 --
82 Begin
83 hr_utility.set_location('Entering:'||l_proc, 5);
84 --
85 -- Call all supporting business operations
86 --
87 chk_formula_id
88 ( p_formula_id => p_rec.formula_id );
89 --
90 --
91 hr_utility.set_location(' Leaving:'||l_proc, 10);
92 End update_validate;
93 --
94 -- ----------------------------------------------------------------------------
95 -- |---------------------------< delete_validate >----------------------------|
96 -- ----------------------------------------------------------------------------
97 Procedure delete_validate(p_rec in pay_mgr_shd.g_rec_type) is
98 --
99 l_proc varchar2(72) := g_package||'delete_validate';
100 --
101 Begin
102 hr_utility.set_location('Entering:'||l_proc, 5);
103 --
104 -- Call all supporting business operations
105 --
106 hr_utility.set_location(' Leaving:'||l_proc, 10);
107 End delete_validate;
108 --
109 end pay_mgr_bus;