1 Package Body ghr_rei_flex as
2 /* $Header: ghreifli.pkb 120.0.12010000.2 2009/05/26 10:48:12 vmididho noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ghr_rei_flex.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |-------------------------------< df >-------------------------------------|
12 -- ----------------------------------------------------------------------------
13 procedure df
14 (p_rec in ghr_rei_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 /*
23 -- Check for value of reference field an then
24 -- call relevant validation procedure.
25 --
26 if <reference field value> is not null then
27 --
28 -- Reference field => Information type
29 -- Reference field value =>
30 --
31 else
32 --
33 -- Reference field values is not supported
34 --
35 hr_utility.set_message(8301, 'GHR_38123_FLEX_INV_REF_FIELD_V');
36 hr_utility.raise_error;
37 end if;
38 else
39 --
40 -- When the reference field is null, check
41 -- that none of the attribute fields have
42 -- been set
43 --
44 endif;
45 */
46 if p_rec.rei_attribute1 is not null then
47 raise l_error;
48 elsif p_rec.rei_attribute2 is not null then
49 raise l_error;
50 elsif p_rec.rei_attribute3 is not null then
51 raise l_error;
52 elsif p_rec.rei_attribute4 is not null then
53 raise l_error;
54 elsif p_rec.rei_attribute5 is not null then
55 raise l_error;
56 elsif p_rec.rei_attribute6 is not null then
57 raise l_error;
58 elsif p_rec.rei_attribute7 is not null then
59 raise l_error;
60 elsif p_rec.rei_attribute8 is not null then
61 raise l_error;
62 elsif p_rec.rei_attribute9 is not null then
63 raise l_error;
64 elsif p_rec.rei_attribute10 is not null then
65 raise l_error;
66 elsif p_rec.rei_attribute11 is not null then
67 raise l_error;
68 elsif p_rec.rei_attribute12 is not null then
69 raise l_error;
70 elsif p_rec.rei_attribute13 is not null then
71 raise l_error;
72 elsif p_rec.rei_attribute14 is not null then
73 raise l_error;
74 elsif p_rec.rei_attribute15 is not null then
75 raise l_error;
76 elsif p_rec.rei_attribute16 is not null then
77 raise l_error;
78 elsif p_rec.rei_attribute17 is not null then
79 raise l_error;
80 elsif p_rec.rei_attribute18 is not null then
81 raise l_error;
82 elsif p_rec.rei_attribute19 is not null then
83 raise l_error;
84 elsif p_rec.rei_attribute20 is not null then
85 raise l_error;
86 end if;
87 --
88 hr_utility.set_location(' Leaving:'||l_proc, 10);
89 exception
90 when l_error then
91 hr_utility.set_message(8301, 'GHR_38124_FLEX_INV_ATTRIB_ARG');
92 hr_utility.raise_error;
93 hr_utility.set_location(' Leaving:'||l_proc, 10);
94 end df;
95
96 end ghr_rei_flex;
[Home] [Help]