PACKAGE BODY: APPS.PER_PAR_FLEX

Source

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