1 Package Body per_ctr_flex as
2 /* $Header: pectrfli.pkb 115.0 99/07/17 18:53:05 porting ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' per_ctr_flex.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |-------------------------------< df >-------------------------------------|
12 -- ----------------------------------------------------------------------------
13 procedure df
14 (p_rec in per_ctr_shd.g_rec_type) is
15 --
16 l_proc varchar2(72) := g_package||'df';
17 l_error exception;
18 --
19 Begin
20 hr_utility.set_location('Entering:'||l_proc, 5);
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.cont_attribute1 is not null then
27 raise l_error;
28 elsif p_rec.cont_attribute2 is not null then
29 raise l_error;
30 elsif p_rec.cont_attribute3 is not null then
31 raise l_error;
32 elsif p_rec.cont_attribute4 is not null then
33 raise l_error;
34 elsif p_rec.cont_attribute5 is not null then
35 raise l_error;
36 elsif p_rec.cont_attribute6 is not null then
37 raise l_error;
38 elsif p_rec.cont_attribute7 is not null then
39 raise l_error;
40 elsif p_rec.cont_attribute8 is not null then
41 raise l_error;
42 elsif p_rec.cont_attribute9 is not null then
43 raise l_error;
44 elsif p_rec.cont_attribute10 is not null then
45 raise l_error;
46 elsif p_rec.cont_attribute11 is not null then
47 raise l_error;
48 elsif p_rec.cont_attribute12 is not null then
49 raise l_error;
50 elsif p_rec.cont_attribute13 is not null then
51 raise l_error;
52 elsif p_rec.cont_attribute14 is not null then
53 raise l_error;
54 elsif p_rec.cont_attribute15 is not null then
55 raise l_error;
56 elsif p_rec.cont_attribute16 is not null then
57 raise l_error;
58 elsif p_rec.cont_attribute17 is not null then
59 raise l_error;
60 elsif p_rec.cont_attribute18 is not null then
61 raise l_error;
62 elsif p_rec.cont_attribute19 is not null then
63 raise l_error;
64 elsif p_rec.cont_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_ctr_flex;