1 Package Body hr_lei_flex as
2 /* $Header: hrleifli.pkb 115.0 99/07/17 16:40:33 porting ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' hr_lei_flex.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |--------------------------< val_info_type_y >------------------------------|
12 -- ----------------------------------------------------------------------------
13 -- {Start of Comments}
14 --
15 -- Description:
16 -- This procedure performs the descriptive flexfield validation for the
17 -- reference field - Information Type where the value is 'Y'.
18 --
19 -- Pre Conditions:
20 -- None
21 --
22 -- In Arguments:
23 -- p_rec
24 --
25 -- Post Success:
26 -- Processing of hr_lei_flex continues.
27 --
28 -- Post failure:
29 -- Processing will be suspended if the descriptive flexfield validation
30 -- fails.
31 --
32 -- Developer Implementation Notes:
33 -- Customer defined.
34 --
35 -- Access Status:
36 -- From df procedure only.
37 --
38 -- {End of Comments}
39 -- ----------------------------------------------------------------------------
40 Procedure val_info_type_y
41 (p_rec in per_asg_shd.g_rec_type) is
42 --
43 l_proc varchar2(72) := g_package||'val_info_type_y';
44 --
45 begin
46 hr_utility.set_location('Entering:'||l_proc, 1);
47 --
48 -- Enter procedure code here
49 --
50 hr_utility.set_location(' Leaving:'||l_proc, 2);
51 end val_info_type_y;
52 -- ----------------------------------------------------------------------------
53 -- |--------------------------< val_info_type_x >------------------------------|
54 -- ----------------------------------------------------------------------------
55 -- {Start of Comments}
56 --
57 -- Description:
58 -- This procedure performs the descriptive flexfield validation for the
59 -- reference field - Information Type where the value is 'X'.
60 --
61 -- Pre Conditions:
62 -- None
63 --
64 -- In Arguments:
65 -- p_rec
66 --
67 -- Post Success:
68 -- Processing of hr_lei_flex continues.
69 --
70 -- Post failure:
71 -- Processing will be suspended if the descriptive flexfield validation
72 -- fails.
73 --
74 -- Developer Implementation Notes:
75 -- Customer defined.
76 --
77 -- Access Status:
78 -- From df procedure only.
79 --
80 -- {End of Comments}
81 -- ----------------------------------------------------------------------------
82 Procedure val_info_type_x
83 (p_rec in per_asg_shd.g_rec_type) is
84 --
85 l_proc varchar2(72) := g_package||'val_info_type_x';
86 --
87 begin
88 hr_utility.set_location('Entering:'||l_proc, 1);
89 --
90 -- Enter procedure code here
91 --
92 hr_utility.set_location(' Leaving:'||l_proc, 2);
93 end val_info_type_x;
94 --
95 -- ----------------------------------------------------------------------------
96 -- |-------------------------------< df >-------------------------------------|
97 -- ----------------------------------------------------------------------------
98 procedure df
99 (p_rec in hr_lei_shd.g_rec_type) is
100 --
101 l_proc varchar2(72) := g_package||'df';
102 l_error exception;
103 --
104 Begin
105 hr_utility.set_location('Entering:'||l_proc, 5);
106 --
107 /*
108 -- Check for value of reference field an then
109 -- call relevant validation procedure.
110 --
111 if <reference field value> is not null then
112 --
113 -- Reference field => Information type
114 -- Reference field value => 'X'
115 --
116 if <reference field value> is <value> then
117 val_info_type_x(p_rec => p_rec);
118 --
119 -- Reference field => Information type
120 -- Reference field value => 'Y'
121 --
122 elsif <reference field value> is <value> then
123 val_info_type_y(p_rec => p_rec);
124 else
125 --
126 -- Reference field values is not supported
127 --
128 hr_utility.set_message(801, 'HR_7438_FLEX_INV_REF_FIELD_VAL');
129 hr_utility.raise_error;
130 end if;
131 else
132 --
133 -- When the reference field is null, check
134 -- that none of the attribute fields have
135 -- been set
136 --
137 */
138 if p_rec.lei_attribute1 is not null then
139 raise l_error;
140 elsif p_rec.lei_attribute2 is not null then
141 raise l_error;
142 elsif p_rec.lei_attribute3 is not null then
143 raise l_error;
144 elsif p_rec.lei_attribute4 is not null then
145 raise l_error;
146 elsif p_rec.lei_attribute5 is not null then
147 raise l_error;
148 elsif p_rec.lei_attribute6 is not null then
149 raise l_error;
150 elsif p_rec.lei_attribute7 is not null then
151 raise l_error;
152 elsif p_rec.lei_attribute8 is not null then
153 raise l_error;
154 elsif p_rec.lei_attribute9 is not null then
155 raise l_error;
156 elsif p_rec.lei_attribute10 is not null then
157 raise l_error;
158 elsif p_rec.lei_attribute11 is not null then
159 raise l_error;
160 elsif p_rec.lei_attribute12 is not null then
161 raise l_error;
162 elsif p_rec.lei_attribute13 is not null then
163 raise l_error;
164 elsif p_rec.lei_attribute14 is not null then
165 raise l_error;
166 elsif p_rec.lei_attribute15 is not null then
167 raise l_error;
168 elsif p_rec.lei_attribute16 is not null then
169 raise l_error;
170 elsif p_rec.lei_attribute17 is not null then
171 raise l_error;
172 elsif p_rec.lei_attribute18 is not null then
173 raise l_error;
174 elsif p_rec.lei_attribute19 is not null then
175 raise l_error;
176 elsif p_rec.lei_attribute20 is not null then
177 raise l_error;
178 end if;
179 --
180 /*
181 endif;
182 */
183 hr_utility.set_location(' Leaving:'||l_proc, 10);
184 exception
185 when l_error then
186 hr_utility.set_message(801, 'HR_7439_FLEX_INV_ATTRIBUTE_ARG');
187 hr_utility.raise_error;
188 hr_utility.set_location(' Leaving:'||l_proc, 10);
189 end df;
190 --
191 -- ----------------------------------------------------------------------------
192 -- |-------------------------------< ddf >-------------------------------------|
193 -- ----------------------------------------------------------------------------
194 procedure ddf
195 (p_rec in hr_lei_shd.g_rec_type) is
196 --
197 l_proc varchar2(72) := g_package||'df';
198 l_error exception;
199 --
200 Begin
201 hr_utility.set_location('Entering:'||l_proc, 5);
202 --
203 /*
204 -- Check for value of reference field an then
205 -- call relevant validation procedure.
206 --
207 if <reference field value> is not null then
208 --
209 -- Reference field => Information type
210 -- Reference field value => 'A'
211 --
212 else
213 --
214 -- Reference field values is not supported
215 --
216 hr_utility.set_message(801, 'HR_7438_FLEX_INV_REF_FIELD_VAL');
217 hr_utility.raise_error;
218 end if;
219 else
220 --
221 -- When the reference field is null, check
222 -- that none of the attribute fields have
223 -- been set
224 --
225 endif;
226 */
227 if p_rec.lei_information1 is not null then
228 raise l_error;
229 elsif p_rec.lei_information2 is not null then
230 raise l_error;
231 elsif p_rec.lei_information3 is not null then
232 raise l_error;
233 elsif p_rec.lei_information4 is not null then
234 raise l_error;
235 elsif p_rec.lei_information5 is not null then
236 raise l_error;
237 elsif p_rec.lei_information6 is not null then
238 raise l_error;
239 elsif p_rec.lei_information7 is not null then
240 raise l_error;
241 elsif p_rec.lei_information8 is not null then
242 raise l_error;
243 elsif p_rec.lei_information9 is not null then
244 raise l_error;
245 elsif p_rec.lei_information10 is not null then
246 raise l_error;
247 elsif p_rec.lei_information11 is not null then
248 raise l_error;
249 elsif p_rec.lei_information12 is not null then
250 raise l_error;
251 elsif p_rec.lei_information13 is not null then
252 raise l_error;
253 elsif p_rec.lei_information14 is not null then
254 raise l_error;
255 elsif p_rec.lei_information15 is not null then
256 raise l_error;
257 elsif p_rec.lei_information16 is not null then
258 raise l_error;
259 elsif p_rec.lei_information17 is not null then
260 raise l_error;
261 elsif p_rec.lei_information18 is not null then
262 raise l_error;
263 elsif p_rec.lei_information19 is not null then
264 raise l_error;
265 elsif p_rec.lei_information20 is not null then
266 raise l_error;
267 elsif p_rec.lei_information21 is not null then
268 raise l_error;
269 elsif p_rec.lei_information22 is not null then
270 raise l_error;
271 elsif p_rec.lei_information23 is not null then
272 raise l_error;
273 elsif p_rec.lei_information24 is not null then
274 raise l_error;
275 elsif p_rec.lei_information25 is not null then
276 raise l_error;
277 elsif p_rec.lei_information26 is not null then
278 raise l_error;
279 elsif p_rec.lei_information27 is not null then
280 raise l_error;
281 elsif p_rec.lei_information28 is not null then
282 raise l_error;
283 elsif p_rec.lei_information29 is not null then
284 raise l_error;
285 elsif p_rec.lei_information30 is not null then
286 raise l_error;
287 end if;
288 --
289 hr_utility.set_location(' Leaving:'||l_proc, 10);
290 exception
291 when l_error then
292 hr_utility.set_message(801, 'HR_7439_FLEX_INV_ATTRIBUTE_ARG');
293 hr_utility.raise_error;
294 hr_utility.set_location(' Leaving:'||l_proc, 10);
295 end ddf;
296 --
297 end hr_lei_flex;