PACKAGE BODY: APPS.PER_POD_FLEX

Source

1 package body per_pod_flex as
2 /* $Header: pepodfli.pkb 115.0 99/07/18 14:27:13 porting ship $ */
3 --
4 -- ---------------------------------------------------------------------------
5 -- |                     Private Global Definitions                          |
6 -- ---------------------------------------------------------------------------
7 --
8 g_package  varchar2(33)	:= '  per_pod_flex.';  -- Global package name
9 -- ----------------------------------------------------------------------------
10 -- |-------------------------------< kf >-------------------------------------|
11 -- ----------------------------------------------------------------------------
12 procedure kf
13         (p_rec               in per_pod_shd.g_rec_type) is
14 --
15   l_proc             varchar2(72) := g_package||'kf';
16   l_legislation_code per_business_groups.legislation_code%type;
17 --
18 begin
19   hr_utility.set_location('Entering:'||l_proc, 5);
20   --
21   -- Ensure that p_rec.id_flex_num is mandatory
22   --
23   hr_api.mandatory_arg_error
24     (p_api_name       => l_proc,
25      p_argument       => 'P_ID_FLEX_NUM',
26      p_argument_value => p_rec.id_flex_num);
27   --
28   -- branch on id_flex_num. this will be modified by users.
29   --
30   if (p_rec.id_flex_num is not null) then
31     null;
32   else
33     hr_utility.set_message(801, 'HR_7439_FLEX_INV_ATTRIBUTE_ARG');
34     hr_utility.raise_error;
35   end if;
36   --
37   hr_utility.set_location(' Leaving:'||l_proc, 10);
38 --
39 end kf;
40 --
41 end per_pod_flex;