[Home] [Help]
36: l_proc varchar2(72) := g_package||'set_security_group_id';
37: --
38: begin
39: --
40: hr_utility.set_location('Entering:'|| l_proc, 10);
41: --
42: -- Ensure that all the mandatory parameter are not null
43: --
44: hr_api.mandatory_arg_error
67: hr_api.set_security_group_id
68: (p_security_group_id => l_security_group_id
69: );
70: --
71: hr_utility.set_location(' Leaving:'|| l_proc, 20);
72: --
73: end set_security_group_id;
74: --
75: -- ---------------------------------------------------------------------------
96: l_proc varchar2(72) := g_package||'return_legislation_code';
97: --
98: Begin
99: --
100: hr_utility.set_location('Entering:'|| l_proc, 10);
101: --
102: -- Ensure that all the mandatory parameter are not null
103: --
104: hr_api.mandatory_arg_error
114: -- call to this function. Just return the value in the global
115: -- variable.
116: --
117: l_legislation_code := pay_cnu_bus.g_legislation_code;
118: hr_utility.set_location(l_proc, 20);
119: else
120: --
121: -- The ID is different to the last call to this function
122: -- or this is the first call to this function.
131: close csr_leg_code;
132: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
133: fnd_message.raise_error;
134: end if;
135: hr_utility.set_location(l_proc,30);
136: --
137: -- Set the global variables so the values are
138: -- available for the next call to this function.
139: --
140: close csr_leg_code;
141: pay_cnu_bus.g_contribution_usage_id := p_contribution_usage_id;
142: pay_cnu_bus.g_legislation_code := l_legislation_code;
143: end if;
144: hr_utility.set_location(' Leaving:'|| l_proc, 40);
145: return l_legislation_code;
146: end return_legislation_code;
147: --
148: -- ----------------------------------------------------------------------------
195: fnd_message.raise_error;
196: END IF;
197: --
198: --
199: hr_utility.set_location(' Step:'|| l_proc, 10);
200: if nvl(p_rec.contribution_usage_id, hr_api.g_number) <>
201: nvl(pay_cnu_shd.g_old_rec.contribution_usage_id, hr_api.g_number) then
202: l_argument := 'contribution_usage_id';
203: raise l_error;
202: l_argument := 'contribution_usage_id';
203: raise l_error;
204: end if;
205: --
206: hr_utility.set_location(' Step:'|| l_proc, 20);
207: if nvl(p_rec.date_from, hr_api.g_date) <>
208: nvl(pay_cnu_shd.g_old_rec.date_from, hr_api.g_date) then
209: l_argument := 'date_from';
210: raise l_error;
209: l_argument := 'date_from';
210: raise l_error;
211: end if;
212: --
213: hr_utility.set_location(' Step:'|| l_proc, 40);
214: if nvl(p_rec.group_code, hr_api.g_varchar2) <>
215: nvl(pay_cnu_shd.g_old_rec.group_code, hr_api.g_varchar2) then
216: l_argument := 'group_code';
217: raise l_error;
216: l_argument := 'group_code';
217: raise l_error;
218: end if;
219: --
220: hr_utility.set_location(' Step:'|| l_proc, 50);
221: if nvl(p_rec.process_type, hr_api.g_varchar2) <>
222: nvl(pay_cnu_shd.g_old_rec.process_type, hr_api.g_varchar2) then
223: l_argument := 'process_type';
224: raise l_error;
223: l_argument := 'process_type';
224: raise l_error;
225: end if;
226: --
227: hr_utility.set_location(' Step:'|| l_proc, 60);
228: if nvl(p_rec.element_name, hr_api.g_varchar2) <>
229: nvl(pay_cnu_shd.g_old_rec.element_name, hr_api.g_varchar2) then
230: l_argument := 'element_name';
231: raise l_error;
230: l_argument := 'element_name';
231: raise l_error;
232: end if;
233: --
234: hr_utility.set_location(' Step:'|| l_proc, 70);
235: if nvl(p_rec.rate_type, hr_api.g_varchar2) <>
236: nvl(pay_cnu_shd.g_old_rec.rate_type, hr_api.g_varchar2) then
237: l_argument := 'rate_type';
238: raise l_error;
237: l_argument := 'rate_type';
238: raise l_error;
239: end if;
240: --
241: hr_utility.set_location(' Step:'|| l_proc, 80);
242: /* if nvl(p_rec.contribution_code, hr_api.g_varchar2) <>
243: nvl(pay_cnu_shd.g_old_rec.contribution_code, hr_api.g_varchar2) then
244: l_argument := 'contribution_code';
245: raise l_error;
244: l_argument := 'contribution_code';
245: raise l_error;
246: end if;
247: --
248: hr_utility.set_location(' Step:'|| l_proc, 90);
249: if nvl(p_rec.contribution_type, hr_api.g_varchar2) <>
250: nvl(pay_cnu_shd.g_old_rec.contribution_type, hr_api.g_varchar2) then
251: l_argument := 'contribution_type';
252: raise l_error;
251: l_argument := 'contribution_type';
252: raise l_error;
253: end if;*/
254: --
255: hr_utility.set_location(' Step:'|| l_proc, 100);
256: if nvl(p_rec.contribution_usage_type, hr_api.g_varchar2) <>
257: nvl(pay_cnu_shd.g_old_rec.contribution_usage_type, hr_api.g_varchar2) then
258: l_argument := 'contribution_usage_type';
259: raise l_error;
258: l_argument := 'contribution_usage_type';
259: raise l_error;
260: end if;
261: --
262: hr_utility.set_location(' Step:'|| l_proc, 110);
263: if nvl(p_rec.rate_category, hr_api.g_varchar2) <>
264: nvl(pay_cnu_shd.g_old_rec.rate_category, hr_api.g_varchar2) then
265: l_argument := 'rate_category';
266: raise l_error;
265: l_argument := 'rate_category';
266: raise l_error;
267: end if;
268: --
269: hr_utility.set_location(' Step:'|| l_proc, 120);
270: if nvl(p_rec.business_group_id, hr_api.g_number) <>
271: nvl(pay_cnu_shd.g_old_rec.business_group_id, hr_api.g_number) then
272: l_argument := 'business_group_id';
273: raise l_error;
272: l_argument := 'business_group_id';
273: raise l_error;
274: end if;
275: --
276: hr_utility.set_location(' Step:'|| l_proc, 130);
277: /*if nvl(p_rec.code_rate_id, hr_api.g_number) <>
278: nvl(pay_cnu_shd.g_old_rec.code_rate_id, hr_api.g_number) then
279: l_argument := 'code_rate_id';
280: raise l_error;
301: l_proc varchar2(72) := g_package||'insert_validate';
302: l_code_Rate_id PAY_FR_CONTRIBUTION_USAGES.CODE_RATE_ID%TYPE := p_rec.code_Rate_id;
303: --
304: Begin
305: hr_utility.set_location('Entering:'||l_proc, 5);
306: --
307: -- No business group context. HR_STANDARD_LOOKUPS used for validation.
308: --
309: -- Call all supporting business operations
312: if p_rec.business_group_id is not null THEN
313: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
314: end if;
315: --
316: hr_utility.set_location(' Step:'|| l_proc, 10);
317: pay_cnu_bus1.chk_dates (
318: p_contribution_usage_id => p_rec.contribution_usage_id
319: ,p_object_version_number => p_rec.object_version_number
320: ,p_date_from => p_rec.date_from
326: ,p_business_group_id => p_rec.business_group_id
327: );
328: --
329:
330: hr_utility.set_location(' Step:'|| l_proc, 15);
331: pay_cnu_bus1.chk_lu_group_code (
332: p_effective_date => p_effective_date
333: ,p_group_code => p_rec.group_code
334: );
332: p_effective_date => p_effective_date
333: ,p_group_code => p_rec.group_code
334: );
335: --
336: hr_utility.set_location(' Step:'|| l_proc, 20);
337: pay_cnu_bus1.chk_group_code (
338: p_group_code => p_rec.group_code
339: ,p_process_type => p_rec.process_type
340: ,p_element_name => p_rec.element_name
341: ,p_contribution_usage_type => p_rec.contribution_usage_type
342: ,p_business_group_id => p_rec.business_group_id
343: );
344: --
345: hr_utility.set_location(' Step:'|| l_proc, 30);
346: pay_cnu_bus1.chk_contribution_type (
347: p_contribution_type => p_rec.contribution_type
348: );
349: --
346: pay_cnu_bus1.chk_contribution_type (
347: p_contribution_type => p_rec.contribution_type
348: );
349: --
350: hr_utility.set_location(' Step:'|| l_proc, 40);
351: pay_cnu_bus1.chk_contribution_codes (
352: p_contribution_usage_id => p_rec.contribution_usage_id
353: ,p_object_version_number => p_rec.object_version_number
354: ,p_contribution_type => p_rec.contribution_type
356: ,p_retro_contribution_code => p_rec.retro_contribution_code
357: ,p_rate_category => p_rec.rate_category
358: );
359: --
360: hr_utility.set_location(' Step:'|| l_proc, 50);
361: pay_cnu_bus1.chk_rate_category_type (
362: p_rate_type => p_rec.rate_type
363: ,p_rate_category => p_rec.rate_category
364: );
362: p_rate_type => p_rec.rate_type
363: ,p_rate_category => p_rec.rate_category
364: );
365: --
366: hr_utility.set_location(' Step:'|| l_proc, 60);
367: pay_cnu_bus1.chk_business_group_id (
368: p_business_group_id => p_rec.business_group_id
369: );
370: --
367: pay_cnu_bus1.chk_business_group_id (
368: p_business_group_id => p_rec.business_group_id
369: );
370: --
371: hr_utility.set_location(' Step:'|| l_proc, 80);
372: pay_cnu_bus1.chk_process_type (
373: p_effective_date => p_effective_date
374: ,p_process_type => p_rec.process_type
375: );
373: p_effective_date => p_effective_date
374: ,p_process_type => p_rec.process_type
375: );
376: --
377: hr_utility.set_location(' Step:'|| l_proc, 90);
378: pay_cnu_bus1.chk_rate_type (
379: p_effective_date => p_effective_date
380: ,p_rate_type => p_rec.rate_type
381: );
379: p_effective_date => p_effective_date
380: ,p_rate_type => p_rec.rate_type
381: );
382: --
383: hr_utility.set_location(' Step:'|| l_proc, 90);
384: pay_cnu_bus1.chk_contribution_usage_type (
385: p_effective_date => p_effective_date
386: ,p_contribution_usage_type => p_rec.contribution_usage_type
387: );
385: p_effective_date => p_effective_date
386: ,p_contribution_usage_type => p_rec.contribution_usage_type
387: );
388: --
389: hr_utility.set_location(' Step:'|| l_proc, 100);
390: pay_cnu_bus1.chk_element_name (
391: p_element_name => p_rec.element_name
392: );
393: --
390: pay_cnu_bus1.chk_element_name (
391: p_element_name => p_rec.element_name
392: );
393: --
394: hr_utility.set_location(' Step:'|| l_proc, 110);
395: pay_cnu_bus1.chk_code_rate_id (
396: p_code_rate_id => l_code_Rate_id
397: ,p_contribution_code => p_rec.contribution_code
398: ,p_business_group_id => p_rec.business_group_id
400: ,p_rate_category => p_rec.rate_category
401: );
402: /* set the out parameter */
403: p_code_Rate_id := l_code_rate_id;
404: hr_utility.set_location(' Leaving:'||l_proc, 200);
405: End insert_validate;
406: --
407: -- ----------------------------------------------------------------------------
408: -- |---------------------------< update_validate >----------------------------|
414: --
415: l_proc varchar2(72) := g_package||'update_validate';
416: --
417: Begin
418: hr_utility.set_location('Entering:'||l_proc, 5);
419: --
420: -- No business group context. HR_STANDARD_LOOKUPS used for validation.
421: --
422: -- Call all supporting business operations
425: chk_non_updateable_args
426: (p_rec => p_rec
427: );
428: --
429: hr_utility.set_location(' Step:'|| l_proc, 10);
430: pay_cnu_bus1.chk_dates (
431: p_contribution_usage_id => p_rec.contribution_usage_id
432: ,p_object_version_number => p_rec.object_version_number
433: ,p_date_from => p_rec.date_from
439: ,p_business_group_id => p_rec.business_group_id
440: );
441: -- The contribution type is also updated. Though the contribution
442: -- type is checked in chk_non_updateable_args, it is also checked here.
443: hr_utility.set_location(' Step:'|| l_proc, 50);
444: pay_cnu_bus1.chk_contribution_type (
445: p_contribution_type => p_rec.contribution_type
446: );
447: --
444: pay_cnu_bus1.chk_contribution_type (
445: p_contribution_type => p_rec.contribution_type
446: );
447: --
448: hr_utility.set_location(' Step:'|| l_proc, 40);
449: pay_cnu_bus1.chk_contribution_codes (
450: p_contribution_usage_id => p_rec.contribution_usage_id
451: ,p_object_version_number => p_rec.object_version_number
452: ,p_contribution_type => p_rec.contribution_type
453: ,p_contribution_code => p_rec.contribution_code
454: ,p_retro_contribution_code => p_rec.retro_contribution_code
455: ,p_rate_category => p_rec.rate_category
456: );
457: hr_utility.set_location(' Leaving:'||l_proc, 20);
458: End update_validate;
459: --
460: -- ----------------------------------------------------------------------------
461: -- |---------------------------< delete_validate >----------------------------|
466: --
467: l_proc varchar2(72) := g_package||'delete_validate';
468: --
469: Begin
470: hr_utility.set_location('Entering:'||l_proc, 5);
471: --
472: -- Call all supporting business operations
473: --
474: hr_utility.set_location(' Leaving:'||l_proc, 10);
470: hr_utility.set_location('Entering:'||l_proc, 5);
471: --
472: -- Call all supporting business operations
473: --
474: hr_utility.set_location(' Leaving:'||l_proc, 10);
475: End delete_validate;
476: --
477: end pay_cnu_bus;