1 Package Body ghr_par_flex as
2 /* $Header: ghparfli.pkb 115.1 99/10/18 00:57:05 porting ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ghr_par_flex.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |-------------------------------< df >-------------------------------------|
12 -- ----------------------------------------------------------------------------
13 --
14 procedure df
15 (p_rec in ghr_par_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 if <reference field value> is <value> then
33 val_info_type_<value>(p_rec => p_rec);
34 else
35 --
36 -- Reference field values is not supported
37 --
38 hr_utility.set_message(801, 'HR_7438_FLEX_INV_REF_FIELD_VAL');
39 hr_utility.raise_error;
40 end if;
41 else
42 */
43 --
44 -- When the reference field is null, check
45 -- that none of the attribute fields have
46 -- been set
47 --
48 if p_rec.attribute1 is not null then
49 raise l_error;
50 elsif p_rec.attribute2 is not null then
51 raise l_error;
52 elsif p_rec.attribute3 is not null then
53 raise l_error;
54 elsif p_rec.attribute4 is not null then
55 raise l_error;
56 elsif p_rec.attribute5 is not null then
57 raise l_error;
58 elsif p_rec.attribute6 is not null then
59 raise l_error;
60 elsif p_rec.attribute7 is not null then
61 raise l_error;
62 elsif p_rec.attribute8 is not null then
63 raise l_error;
64 elsif p_rec.attribute9 is not null then
65 raise l_error;
66 elsif p_rec.attribute10 is not null then
67 raise l_error;
68 elsif p_rec.attribute11 is not null then
69 raise l_error;
70 elsif p_rec.attribute12 is not null then
71 raise l_error;
72 elsif p_rec.attribute13 is not null then
73 raise l_error;
74 elsif p_rec.attribute14 is not null then
75 raise l_error;
76 elsif p_rec.attribute15 is not null then
77 raise l_error;
78 elsif p_rec.attribute16 is not null then
79 raise l_error;
80 elsif p_rec.attribute17 is not null then
81 raise l_error;
82 elsif p_rec.attribute18 is not null then
83 raise l_error;
84 elsif p_rec.attribute19 is not null then
85 raise l_error;
86 elsif p_rec.attribute20 is not null then
87 raise l_error;
88 end if;
89 /*
90 endif;
91 */
92 --
93 hr_utility.set_location(' Leaving:'||l_proc, 10);
94 exception
95 when l_error then
96 hr_utility.set_message(801, 'HR_7439_FLEX_INV_ATTRIBUTE_ARG');
97 hr_utility.raise_error;
98 hr_utility.set_location(' Leaving:'||l_proc, 10);
99 end df;
100 --
101 end ghr_par_flex;