PACKAGE BODY: APPS.PER_PPC_FLEX

Source

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