PACKAGE BODY: APPS.PER_PEA_FLEX

Source

1 Package Body per_pea_flex as
2 /* $Header: pepeafli.pkb 115.1 99/07/18 14:13:20 porting ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- |                     Private Global Definitions                           |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package  varchar2(33) := '  per_pea_flex.';  -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |-------------------------------< df >-------------------------------------|
12 -- ----------------------------------------------------------------------------
13 procedure df(p_rec   in per_pea_shd.g_rec_type) is
14 --
15   l_proc       varchar2(72) := g_package||'df';
16   l_error      exception;
17 --
18 Begin
19   hr_utility.set_location('Entering:'||l_proc, 5);
20   --
21   --
22   -- When the reference field is null, check
23   -- that none of the attribute fields have
24   -- been set
25   --
26   if p_rec.attribute1 is not null then
27     raise l_error;
28   elsif p_rec.attribute2 is not null then
29     raise l_error;
30   elsif p_rec.attribute3 is not null then
31     raise l_error;
32   elsif p_rec.attribute4 is not null then
33     raise l_error;
34   elsif p_rec.attribute5 is not null then
35     raise l_error;
36   elsif p_rec.attribute6 is not null then
37     raise l_error;
38   elsif p_rec.attribute7 is not null then
39     raise l_error;
40   elsif p_rec.attribute8 is not null then
41     raise l_error;
42   elsif p_rec.attribute9 is not null then
43     raise l_error;
44   elsif p_rec.attribute10 is not null then
45     raise l_error;
46   elsif p_rec.attribute11 is not null then
47     raise l_error;
48   elsif p_rec.attribute12 is not null then
49     raise l_error;
50   elsif p_rec.attribute13 is not null then
51     raise l_error;
52   elsif p_rec.attribute14 is not null then
53     raise l_error;
54   elsif p_rec.attribute15 is not null then
55     raise l_error;
56   elsif p_rec.attribute16 is not null then
57     raise l_error;
58   elsif p_rec.attribute17 is not null then
59     raise l_error;
60   elsif p_rec.attribute18 is not null then
61     raise l_error;
62   elsif p_rec.attribute19 is not null then
63     raise l_error;
64   elsif p_rec.attribute20 is not null then
65     raise l_error;
66   end if;
67   --
68   hr_utility.set_location(' Leaving:'||l_proc, 10);
69 exception
70   when l_error then
71     hr_utility.set_message(801, 'HR_7439_FLEX_INV_ATTRIBUTE_ARG');
72     hr_utility.raise_error;
73     hr_utility.set_location(' Leaving:'||l_proc, 10);
74 end df;
75 --
76 end per_pea_flex;