1 Package Body per_pos_flex as
2 /* $Header: peposfli.pkb 115.1 99/07/18 14:28:11 porting ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' per_pos_flex.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |-------------------------------< df >-------------------------------------|
12 -- ----------------------------------------------------------------------------
13 procedure df(p_rec in per_pos_shd.g_rec_type) is
14 --
15 l_proc varchar2(72) := g_package||'df';
16 l_error exception;
17 --
18 Begin
19 hr_utility.set_location('Entering:'||l_proc, 5);
20 --
21 /*
22 -- Check for value of reference field and then
23 -- call relevant validation procedure.
24 --
25 if <reference field value> is not null then
26 --
27 if <reference field value> is <value> then
28 <call validation process>
29 --
30 elsif <reference field value> is <value> then
31 <call validation process>
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 --
42 -- When the reference field is null, check
43 -- that none of the attribute fields have
44 -- been set
45 --
46 if p_rec.attribute1 is not null then
47 raise l_error;
48 elsif p_rec.attribute2 is not null then
49 raise l_error;
50 elsif p_rec.attribute3 is not null then
51 raise l_error;
52 elsif p_rec.attribute4 is not null then
53 raise l_error;
54 elsif p_rec.attribute5 is not null then
55 raise l_error;
56 elsif p_rec.attribute6 is not null then
57 raise l_error;
58 elsif p_rec.attribute7 is not null then
59 raise l_error;
60 elsif p_rec.attribute8 is not null then
61 raise l_error;
62 elsif p_rec.attribute9 is not null then
63 raise l_error;
64 elsif p_rec.attribute10 is not null then
65 raise l_error;
66 elsif p_rec.attribute11 is not null then
67 raise l_error;
68 elsif p_rec.attribute12 is not null then
69 raise l_error;
70 elsif p_rec.attribute13 is not null then
71 raise l_error;
72 elsif p_rec.attribute14 is not null then
73 raise l_error;
74 elsif p_rec.attribute15 is not null then
75 raise l_error;
76 elsif p_rec.attribute16 is not null then
77 raise l_error;
78 elsif p_rec.attribute17 is not null then
79 raise l_error;
80 elsif p_rec.attribute18 is not null then
81 raise l_error;
82 elsif p_rec.attribute19 is not null then
83 raise l_error;
84 elsif p_rec.attribute20 is not null then
85 raise l_error;
86 end if;
87
88 end if;
89 */
90 --
91 hr_utility.set_location(' Leaving:'||l_proc, 10);
92 exception
93 when l_error then
94 hr_utility.set_message(801, 'HR_7439_FLEX_INV_ATTRIBUTE_ARG');
95 hr_utility.raise_error;
96 hr_utility.set_location(' Leaving:'||l_proc, 10);
97 end df;
98 --
99 end per_pos_flex;