1 Package Body pe_poi_flex as
2 /* $Header: pepoifli.pkb 115.0 99/07/18 14:27:39 porting ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' pe_poi_flex.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |-------------------------------< df >-------------------------------------|
12 -- ----------------------------------------------------------------------------
13 --
14 procedure df
15 (p_rec in pe_poi_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 -- Check for value of reference field an then
25 -- call relevant validation procedure.
26 --
27 if <reference field value> is not null then
28 --
29 -- Reference field => Information type
30 -- Reference field value =>
31 --
32 else
33 --
34 -- Reference field values is not supported
35 --
36 hr_utility.set_message(801, 'HR_7438_FLEX_INV_REF_FIELD_VAL');
37 hr_utility.raise_error;
38 end if;
39 else
40 --
41 -- When the reference field is null, check
42 -- that none of the information fields have
43 -- been set
44 --
45 endif;
46 */
47 if p_rec.poei_attribute1 is not null then
48 raise l_error;
49 elsif p_rec.poei_attribute2 is not null then
50 raise l_error;
51 elsif p_rec.poei_attribute3 is not null then
52 raise l_error;
53 elsif p_rec.poei_attribute4 is not null then
54 raise l_error;
55 elsif p_rec.poei_attribute5 is not null then
56 raise l_error;
57 elsif p_rec.poei_attribute6 is not null then
58 raise l_error;
59 elsif p_rec.poei_attribute7 is not null then
60 raise l_error;
61 elsif p_rec.poei_attribute8 is not null then
62 raise l_error;
63 elsif p_rec.poei_attribute9 is not null then
64 raise l_error;
65 elsif p_rec.poei_attribute10 is not null then
66 raise l_error;
67 elsif p_rec.poei_attribute11 is not null then
68 raise l_error;
69 elsif p_rec.poei_attribute12 is not null then
70 raise l_error;
71 elsif p_rec.poei_attribute13 is not null then
72 raise l_error;
73 elsif p_rec.poei_attribute14 is not null then
74 raise l_error;
75 elsif p_rec.poei_attribute15 is not null then
76 raise l_error;
77 elsif p_rec.poei_attribute16 is not null then
78 raise l_error;
79 elsif p_rec.poei_attribute17 is not null then
80 raise l_error;
81 elsif p_rec.poei_attribute18 is not null then
82 raise l_error;
83 elsif p_rec.poei_attribute19 is not null then
84 raise l_error;
85 elsif p_rec.poei_attribute20 is not null then
86 raise l_error;
87 end if;
88 --
89 hr_utility.set_location(' Leaving:'||l_proc, 10);
90 exception
91 when l_error then
92 hr_utility.set_message(801, 'HR_7439_FLEX_INV_ATTRIBUTE_ARG');
93 hr_utility.raise_error;
94 hr_utility.set_location(' Leaving:'||l_proc, 10);
95 end df;
96
97 --
98 end pe_poi_flex;