PACKAGE BODY: APPS.PER_ANC_FLEX

Source

1 package body per_anc_flex as
2 /* $Header: peancfli.pkb 115.1 99/07/17 18:30:27 porting ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- |                     Private Global Definitions                           |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package  varchar2(33)	:= '  per_anc_flex.';  -- Global package name
9 -- ----------------------------------------------------------------------------
10 -- |-------------------------------< kf >-------------------------------------|
11 -- ----------------------------------------------------------------------------
12 procedure kf
13         (p_rec               in per_anc_shd.g_rec_type) is
14 --
15   l_proc             varchar2(72) := g_package||'kf';
16 --
17 begin
18   hr_utility.set_location('Entering:'||l_proc, 5);
19   --
20   -- Ensure that p_rec.id_flex_num exists
21   --
22   hr_api.mandatory_arg_error
23     (p_api_name       => l_proc,
24      p_argument       => 'id_flex_num',
25      p_argument_value => p_rec.id_flex_num);
26   --
27   -- customer to supply branch logic on p_rec.id_flex_num
28   --
29   if p_rec.id_flex_num is not null then
30     null;
31   else
32     hr_utility.set_message(801, 'HR_7439_FLEX_INV_ATTRIBUTE_ARG');
33     hr_utility.raise_error;
34   end if;
35   --
36   hr_utility.set_location(' Leaving:'||l_proc, 10);
37 --
38 end kf;
39 --
40 end per_anc_flex;