[Home] [Help]
PACKAGE BODY: APPS.HR_FR_JOB_API
Source
1 Package Body hr_fr_job_api as
2 /* $Header: pejobfri.pkb 115.4 2002/12/16 14:09:50 sfmorris noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' hr_fr_job_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |------------------------< create_fr_job >------------------------------------|
10 -- ----------------------------------------------------------------------------
11 procedure create_fr_job
12 (p_validate in boolean
13 ,p_job_group_id in number
14 ,p_business_group_id in number
15 ,p_date_from in date
16 ,p_comments in varchar2
17 ,p_date_to in date
18 ,p_approval_authority in number
19 ,p_benchmark_job_flag in varchar2
20 ,p_benchmark_job_id in number
21 ,p_emp_rights_flag in varchar2
22 ,p_attribute_category in varchar2
23 ,p_attribute1 in varchar2
24 ,p_attribute2 in varchar2
25 ,p_attribute3 in varchar2
26 ,p_attribute4 in varchar2
27 ,p_attribute5 in varchar2
28 ,p_attribute6 in varchar2
29 ,p_attribute7 in varchar2
30 ,p_attribute8 in varchar2
31 ,p_attribute9 in varchar2
32 ,p_attribute10 in varchar2
33 ,p_attribute11 in varchar2
34 ,p_attribute12 in varchar2
35 ,p_attribute13 in varchar2
36 ,p_attribute14 in varchar2
37 ,p_attribute15 in varchar2
38 ,p_attribute16 in varchar2
39 ,p_attribute17 in varchar2
40 ,p_attribute18 in varchar2
41 ,p_attribute19 in varchar2
42 ,p_attribute20 in varchar2
43 ,p_insee_pcs_code in varchar2
44 ,p_activity_type in varchar2
45 ,p_segment1 in varchar2
46 ,p_segment2 in varchar2
47 ,p_segment3 in varchar2
48 ,p_segment4 in varchar2
49 ,p_segment5 in varchar2
50 ,p_segment6 in varchar2
51 ,p_segment7 in varchar2
52 ,p_segment8 in varchar2
53 ,p_segment9 in varchar2
54 ,p_segment10 in varchar2
55 ,p_segment11 in varchar2
56 ,p_segment12 in varchar2
57 ,p_segment13 in varchar2
58 ,p_segment14 in varchar2
59 ,p_segment15 in varchar2
60 ,p_segment16 in varchar2
61 ,p_segment17 in varchar2
62 ,p_segment18 in varchar2
63 ,p_segment19 in varchar2
64 ,p_segment20 in varchar2
65 ,p_segment21 in varchar2
66 ,p_segment22 in varchar2
67 ,p_segment23 in varchar2
68 ,p_segment24 in varchar2
69 ,p_segment25 in varchar2
70 ,p_segment26 in varchar2
71 ,p_segment27 in varchar2
72 ,p_segment28 in varchar2
73 ,p_segment29 in varchar2
74 ,p_segment30 in varchar2
75 ,p_concat_segments in varchar2
76 ,p_job_id out nocopy number
77 ,p_object_version_number out nocopy number
78 ,p_job_definition_id out nocopy number
79 ,p_name out nocopy varchar2
80 ) is
81 --
82 -- Declare cursors and local variables
83 --
84 l_proc varchar2(72) := g_package||'create_fr_job';
85 l_legislation_code varchar2(2);
86 --
87 cursor csr_bg is
88 select legislation_code
89 from per_business_groups pbg
90 where pbg.business_group_id = p_business_group_id;
91 --
92 begin
93 hr_utility.set_location('Entering:'|| l_proc, 5);
94 --
95 -- Validation in addition to Row Handlers
96 --
97 -- Check that the specified business group is valid.
98 --
99 open csr_bg;
100 fetch csr_bg
101 into l_legislation_code;
102 if csr_bg%notfound then
103 close csr_bg;
104 hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
105 hr_utility.raise_error;
106 end if;
107 close csr_bg;
108 --
109 -- Check that the legislation of the specified business group is 'FR'.
110 --
111 if l_legislation_code <> 'FR' then
112 hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
113 hr_utility.set_message_token('LEG_CODE','FR');
114 hr_utility.raise_error;
115 end if;
116
117 hr_utility.set_location(l_proc, 6);
118 --
119 -- Call the person business process
120 --
121 hr_job_api.create_job
122 (p_validate => p_validate
123 ,p_job_group_id => p_job_group_id
124 ,p_business_group_id => p_business_group_id
125 ,p_date_from => p_date_from
126 ,p_comments => p_comments
127 ,p_date_to => p_date_to
128 ,p_approval_authority => p_approval_authority
129 ,p_benchmark_job_flag => p_benchmark_job_flag
130 ,p_benchmark_job_id => p_benchmark_job_id
131 ,p_emp_rights_flag => p_emp_rights_flag
132 ,p_attribute_category => p_attribute_category
133 ,p_attribute1 => p_attribute1
134 ,p_attribute2 => p_attribute2
135 ,p_attribute3 => p_attribute3
136 ,p_attribute4 => p_attribute4
137 ,p_attribute5 => p_attribute5
138 ,p_attribute6 => p_attribute6
139 ,p_attribute7 => p_attribute7
140 ,p_attribute8 => p_attribute8
141 ,p_attribute9 => p_attribute9
142 ,p_attribute10 => p_attribute10
143 ,p_attribute11 => p_attribute11
144 ,p_attribute12 => p_attribute12
145 ,p_attribute13 => p_attribute13
146 ,p_attribute14 => p_attribute14
147 ,p_attribute15 => p_attribute15
148 ,p_attribute16 => p_attribute16
149 ,p_attribute17 => p_attribute17
150 ,p_attribute18 => p_attribute18
151 ,p_attribute19 => p_attribute19
152 ,p_attribute20 => p_attribute20
153 ,p_job_information_category => 'FR'
154 ,p_job_information1 => p_insee_pcs_code
155 ,p_job_information2 => p_activity_type
156 ,p_segment1 => p_segment1
157 ,p_segment2 => p_segment2
158 ,p_segment3 => p_segment3
159 ,p_segment4 => p_segment4
160 ,p_segment5 => p_segment5
161 ,p_segment6 => p_segment6
162 ,p_segment7 => p_segment7
163 ,p_segment8 => p_segment8
164 ,p_segment9 => p_segment9
165 ,p_segment10 => p_segment10
166 ,p_segment11 => p_segment11
167 ,p_segment12 => p_segment12
168 ,p_segment13 => p_segment13
169 ,p_segment14 => p_segment14
170 ,p_segment15 => p_segment15
171 ,p_segment16 => p_segment16
172 ,p_segment17 => p_segment17
173 ,p_segment18 => p_segment18
174 ,p_segment19 => p_segment19
175 ,p_segment20 => p_segment20
176 ,p_segment21 => p_segment21
177 ,p_segment22 => p_segment22
178 ,p_segment23 => p_segment23
179 ,p_segment24 => p_segment24
180 ,p_segment25 => p_segment25
181 ,p_segment26 => p_segment26
182 ,p_segment27 => p_segment27
183 ,p_segment28 => p_segment28
184 ,p_segment29 => p_segment29
185 ,p_segment30 => p_segment30
186 ,p_concat_segments => p_concat_segments
187 ,p_job_id => p_job_id
188 ,p_object_version_number => p_object_version_number
189 ,p_job_definition_id => p_job_definition_id
190 ,p_name => p_name
191 );
192 --
193 hr_utility.set_location(' Leaving:'||l_proc, 7);
194 end create_fr_job;
195 /*
196 --
197 -- ----------------------------------------------------------------------------
198 -- |------------------------< update_fr_job >-------------------------------------|
199 -- ----------------------------------------------------------------------------
200 --
201 procedure update_fr_job
202 (p_validate in boolean
203 ,p_job_id in number
204 ,p_object_version_number in out nocopy number
205 ,p_date_from in date
206 ,p_comments in varchar2
207 ,p_date_to in date
208 ,p_benchmark_job_flag in varchar2
209 ,p_benchmark_job_id in number
210 ,p_emp_rights_flag in varchar2
211 ,p_attribute_category in varchar2
212 ,p_attribute1 in varchar2
213 ,p_attribute2 in varchar2
214 ,p_attribute3 in varchar2
215 ,p_attribute4 in varchar2
216 ,p_attribute5 in varchar2
217 ,p_attribute6 in varchar2
218 ,p_attribute7 in varchar2
219 ,p_attribute8 in varchar2
220 ,p_attribute9 in varchar2
221 ,p_attribute10 in varchar2
222 ,p_attribute11 in varchar2
223 ,p_attribute12 in varchar2
224 ,p_attribute13 in varchar2
225 ,p_attribute14 in varchar2
226 ,p_attribute15 in varchar2
227 ,p_attribute16 in varchar2
228 ,p_attribute17 in varchar2
229 ,p_attribute18 in varchar2
230 ,p_attribute19 in varchar2
231 ,p_attribute20 in varchar2
232 ,p_insee_pcs_code in varchar2
233 ,p_activity_type in varchar2
234 ,p_segment1 in varchar2
235 ,p_segment2 in varchar2
236 ,p_segment3 in varchar2
237 ,p_segment4 in varchar2
238 ,p_segment5 in varchar2
239 ,p_segment6 in varchar2
240 ,p_segment7 in varchar2
241 ,p_segment8 in varchar2
242 ,p_segment9 in varchar2
243 ,p_segment10 in varchar2
244 ,p_segment11 in varchar2
245 ,p_segment12 in varchar2
246 ,p_segment13 in varchar2
247 ,p_segment14 in varchar2
248 ,p_segment15 in varchar2
249 ,p_segment16 in varchar2
250 ,p_segment17 in varchar2
251 ,p_segment18 in varchar2
252 ,p_segment19 in varchar2
253 ,p_segment20 in varchar2
254 ,p_segment21 in varchar2
255 ,p_segment22 in varchar2
256 ,p_segment23 in varchar2
257 ,p_segment24 in varchar2
258 ,p_segment25 in varchar2
259 ,p_segment26 in varchar2
260 ,p_segment27 in varchar2
261 ,p_segment28 in varchar2
262 ,p_segment29 in varchar2
263 ,p_segment30 in varchar2
264 ,p_job_definition_id out nocopy number
265 ,p_name out nocopy varchar2
266 ,p_valid_grades_changed_warning out nocopy boolean
267 ) is
268 --
269 -- Declare cursors and local variables
270 --
271 l_proc varchar2(72) := g_package||'create_fr_job';
272 l_legislation_code varchar2(2);
273 --
274 cursor csr_bg is
275 select legislation_code
276 from per_business_groups pbg
277 where pbg.business_group_id in (select pj.business_group_id
278 from per_jobs_v pj
279 where pj.job_id = p_job_id);
280 --
281 begin
282 hr_utility.set_location('Entering:'|| l_proc, 5);
283 --
284 -- Validation in addition to Row Handlers
285 --
286 -- Check that the specified business group is valid.
287 --
288 open csr_bg;
289 fetch csr_bg
290 into l_legislation_code;
291 if csr_bg%notfound then
292 close csr_bg;
293 hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
294 hr_utility.raise_error;
295 end if;
296 close csr_bg;
297 --
298 -- Check that the legislation of the specified business group is 'FR'.
299 --
300 if l_legislation_code <> 'FR' then
301 hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
302 hr_utility.set_message_token('LEG_CODE','FR');
303 hr_utility.raise_error;
304 end if;
305
306 hr_utility.set_location(l_proc, 6);
307 --
308 -- Call the person business process
309 --
310
311 hr_job_api.update_job
312 (
313 p_validate => p_validate
314 ,p_job_id => p_job_id
315 ,p_object_version_number => p_object_version_number
316 ,p_date_from => p_date_from
317 ,p_comments => p_comments
318 ,p_date_to => p_date_to
319 ,p_benchmark_job_flag => p_benchmark_job_flag
320 ,p_benchmark_job_id => p_benchmark_job_id
321 ,p_emp_rights_flag => p_emp_rights_flag
322 ,p_attribute_category => p_attribute_category
323 ,p_attribute1 => p_attribute1
324 ,p_attribute2 => p_attribute2
325 ,p_attribute3 => p_attribute3
326 ,p_attribute4 => p_attribute4
327 ,p_attribute5 => p_attribute5
328 ,p_attribute6 => p_attribute6
329 ,p_attribute7 => p_attribute7
330 ,p_attribute8 => p_attribute8
331 ,p_attribute9 => p_attribute9
332 ,p_attribute10 => p_attribute10
333 ,p_attribute11 => p_attribute11
334 ,p_attribute12 => p_attribute12
335 ,p_attribute13 => p_attribute13
336 ,p_attribute14 => p_attribute14
337 ,p_attribute15 => p_attribute15
338 ,p_attribute16 => p_attribute16
339 ,p_attribute17 => p_attribute17
340 ,p_attribute18 => p_attribute18
341 ,p_attribute19 => p_attribute19
342 ,p_attribute20 => p_attribute20
343 ,p_job_information_category => 'FR'
344 ,p_job_information1 => p_insee_pcs_code
350 ,p_segment5 => p_segment5
345 ,p_job_information2 => p_activity_type
346 ,p_segment1 => p_segment1
347 ,p_segment2 => p_segment2
348 ,p_segment3 => p_segment3
349 ,p_segment4 => p_segment4
351 ,p_segment6 => p_segment6
352 ,p_segment7 => p_segment7
353 ,p_segment8 => p_segment8
354 ,p_segment9 => p_segment9
355 ,p_segment11 => p_segment10
356 ,p_segment12 => p_segment12
357 ,p_segment13 => p_segment13
358 ,p_segment14 => p_segment14
359 ,p_segment15 => p_segment15
360 ,p_segment16 => p_segment16
361 ,p_segment17 => p_segment17
362 ,p_segment18 => p_segment18
363 ,p_segment19 => p_segment19
364 ,p_segment20 => p_segment20
365 ,p_segment21 => p_segment21
366 ,p_segment22 => p_segment22
367 ,p_segment23 => p_segment23
368 ,p_segment24 => p_segment24
369 ,p_segment25 => p_segment25
370 ,p_segment26 => p_segment26
371 ,p_segment27 => p_segment27
372 ,p_segment28 => p_segment28
373 ,p_segment29 => p_segment29
374 ,p_segment30 => p_segment30
375 ,p_job_definition_id => p_job_definition_id
376 ,p_name => p_name
377 ,p_valid_grades_changed_warning => p_valid_grades_changed_warning
378 );
379 --
380 hr_utility.set_location(' Leaving:'||l_proc, 7);
381 end update_fr_job;
382 */
383 --
384 end hr_fr_job_api;