42: l_api_updating boolean;
43: --
44: Begin
45: --
46: hr_utility.set_location('Entering:'||l_proc, 5);
47: --
48: l_api_updating := ben_vgs_shd.api_updating
49: (p_effective_date => p_effective_date,
50: p_pl_gd_or_svc_id => p_pl_gd_or_svc_id,
71: end if;
72: --
73: end if;
74: --
75: hr_utility.set_location('Leaving:'||l_proc, 10);
76: --
77: End chk_pl_gd_or_svc_id;
78: --
79: -- ----------------------------------------------------------------------------
117: where a.gd_or_svc_typ_id = p_gd_or_svc_typ_id;
118: --
119: Begin
120: --
121: hr_utility.set_location('Entering:'||l_proc,5);
122: --
123: l_api_updating := ben_vgs_shd.api_updating
124: (p_pl_gd_or_svc_id => p_pl_gd_or_svc_id,
125: p_effective_date => p_effective_date,
149: close c1;
150: --
151: end if;
152: --
153: hr_utility.set_location('Leaving:'||l_proc,10);
154: --
155: End chk_gd_or_svc_typ_id;
156: --
157: -- ----------------------------------------------------------------------------
189: l_api_updating boolean;
190: --
191: Begin
192: --
193: hr_utility.set_location('Entering:'||l_proc, 5);
194: --
195: l_api_updating := ben_vgs_shd.api_updating
196: (p_pl_gd_or_svc_id => p_pl_gd_or_svc_id,
197: p_effective_date => p_effective_date,
211: p_effective_date => p_effective_date) then
212: --
213: -- raise error as does not exist as lookup
214: --
215: hr_utility.set_message(801,'HR_LOOKUP_DOES_NOT_EXIST');
216: hr_utility.raise_error;
217: --
218: end if;
219: --
212: --
213: -- raise error as does not exist as lookup
214: --
215: hr_utility.set_message(801,'HR_LOOKUP_DOES_NOT_EXIST');
216: hr_utility.raise_error;
217: --
218: end if;
219: --
220: end if;
218: end if;
219: --
220: end if;
221: --
222: hr_utility.set_location('Leaving:'||l_proc,10);
223: --
224: end chk_alw_rcrrg_clms_flag;
225: --
226: -- ----------------------------------------------------------------------------
260: l_api_updating boolean;
261: --
262: Begin
263: --
264: hr_utility.set_location('Entering:'||l_proc, 5);
265: --
266: l_api_updating := ben_vgs_shd.api_updating
267: (p_pl_gd_or_svc_id => p_pl_gd_or_svc_id,
268: p_effective_date => p_effective_date,
284: then
285: --
286: -- check if value of lookup falls within lookup type.
287: --
288: hr_utility.set_location('l_api_updating :'||'TRUE', 7);
289: if hr_api.not_exists_in_hr_lookups
290: (p_lookup_type => 'BEN_GD_SVC_RECD_BASIS',
291: p_lookup_code => p_gd_svc_recd_basis_cd,
292: p_effective_date => p_effective_date) then
292: p_effective_date => p_effective_date) then
293: --
294: -- raise error as does not exist as lookup
295: --
296: hr_utility.set_message(801,'HR_LOOKUP_DOES_NOT_EXIST');
297: hr_utility.raise_error;
298: --
299: end if;
300: --
293: --
294: -- raise error as does not exist as lookup
295: --
296: hr_utility.set_message(801,'HR_LOOKUP_DOES_NOT_EXIST');
297: hr_utility.raise_error;
298: --
299: end if;
300: --
301: if p_gd_svc_recd_basis_cd = 'DATE' then
300: --
301: if p_gd_svc_recd_basis_cd = 'DATE' then
302: if p_gd_svc_recd_basis_dt is null then
303: --
304: hr_utility.set_message(801,'BEN_93100_BASIS_DT_MO_INVLD');
305: hr_utility.set_message_token('FIELD', 'Date');
306: hr_utility.set_message_token('CODE','Specified Date');
307: hr_utility.raise_error;
308: --
301: if p_gd_svc_recd_basis_cd = 'DATE' then
302: if p_gd_svc_recd_basis_dt is null then
303: --
304: hr_utility.set_message(801,'BEN_93100_BASIS_DT_MO_INVLD');
305: hr_utility.set_message_token('FIELD', 'Date');
306: hr_utility.set_message_token('CODE','Specified Date');
307: hr_utility.raise_error;
308: --
309: else
302: if p_gd_svc_recd_basis_dt is null then
303: --
304: hr_utility.set_message(801,'BEN_93100_BASIS_DT_MO_INVLD');
305: hr_utility.set_message_token('FIELD', 'Date');
306: hr_utility.set_message_token('CODE','Specified Date');
307: hr_utility.raise_error;
308: --
309: else
310: if p_gd_svc_recd_basis_mo is not null then
303: --
304: hr_utility.set_message(801,'BEN_93100_BASIS_DT_MO_INVLD');
305: hr_utility.set_message_token('FIELD', 'Date');
306: hr_utility.set_message_token('CODE','Specified Date');
307: hr_utility.raise_error;
308: --
309: else
310: if p_gd_svc_recd_basis_mo is not null then
311: --
308: --
309: else
310: if p_gd_svc_recd_basis_mo is not null then
311: --
312: hr_utility.set_message(801,'BEN_93100_BASIS_DT_MO_INVLD');
313: hr_utility.set_message_token('FIELD', 'Date');
314: hr_utility.set_message_token('CODE',' Specified Date ');
315: hr_utility.raise_error;
316: --
309: else
310: if p_gd_svc_recd_basis_mo is not null then
311: --
312: hr_utility.set_message(801,'BEN_93100_BASIS_DT_MO_INVLD');
313: hr_utility.set_message_token('FIELD', 'Date');
314: hr_utility.set_message_token('CODE',' Specified Date ');
315: hr_utility.raise_error;
316: --
317: end if;
310: if p_gd_svc_recd_basis_mo is not null then
311: --
312: hr_utility.set_message(801,'BEN_93100_BASIS_DT_MO_INVLD');
313: hr_utility.set_message_token('FIELD', 'Date');
314: hr_utility.set_message_token('CODE',' Specified Date ');
315: hr_utility.raise_error;
316: --
317: end if;
318: end if;
311: --
312: hr_utility.set_message(801,'BEN_93100_BASIS_DT_MO_INVLD');
313: hr_utility.set_message_token('FIELD', 'Date');
314: hr_utility.set_message_token('CODE',' Specified Date ');
315: hr_utility.raise_error;
316: --
317: end if;
318: end if;
319: else
318: end if;
319: else
320: if p_gd_svc_recd_basis_mo is null then
321: --
322: hr_utility.set_message(801,'BEN_93100_BASIS_DT_MO_INVLD');
323: hr_utility.set_message_token('FIELD', 'Month');
324: hr_utility.set_message_token('CODE',' No of Months from Incurred Date / No of Months from the Plan Year End ' );
325: hr_utility.raise_error;
326: --
319: else
320: if p_gd_svc_recd_basis_mo is null then
321: --
322: hr_utility.set_message(801,'BEN_93100_BASIS_DT_MO_INVLD');
323: hr_utility.set_message_token('FIELD', 'Month');
324: hr_utility.set_message_token('CODE',' No of Months from Incurred Date / No of Months from the Plan Year End ' );
325: hr_utility.raise_error;
326: --
327: else
320: if p_gd_svc_recd_basis_mo is null then
321: --
322: hr_utility.set_message(801,'BEN_93100_BASIS_DT_MO_INVLD');
323: hr_utility.set_message_token('FIELD', 'Month');
324: hr_utility.set_message_token('CODE',' No of Months from Incurred Date / No of Months from the Plan Year End ' );
325: hr_utility.raise_error;
326: --
327: else
328: if p_gd_svc_recd_basis_dt is not null then
321: --
322: hr_utility.set_message(801,'BEN_93100_BASIS_DT_MO_INVLD');
323: hr_utility.set_message_token('FIELD', 'Month');
324: hr_utility.set_message_token('CODE',' No of Months from Incurred Date / No of Months from the Plan Year End ' );
325: hr_utility.raise_error;
326: --
327: else
328: if p_gd_svc_recd_basis_dt is not null then
329: --
326: --
327: else
328: if p_gd_svc_recd_basis_dt is not null then
329: --
330: hr_utility.set_message(801,'BEN_93100_BASIS_DT_MO_INVLD');
331: hr_utility.set_message_token('FIELD', 'Month');
332: hr_utility.set_message_token('CODE',' No of Months from Incurred Date / No of Months from the Plan Year End ' );
333: hr_utility.raise_error;
334: --
327: else
328: if p_gd_svc_recd_basis_dt is not null then
329: --
330: hr_utility.set_message(801,'BEN_93100_BASIS_DT_MO_INVLD');
331: hr_utility.set_message_token('FIELD', 'Month');
332: hr_utility.set_message_token('CODE',' No of Months from Incurred Date / No of Months from the Plan Year End ' );
333: hr_utility.raise_error;
334: --
335: end if;
328: if p_gd_svc_recd_basis_dt is not null then
329: --
330: hr_utility.set_message(801,'BEN_93100_BASIS_DT_MO_INVLD');
331: hr_utility.set_message_token('FIELD', 'Month');
332: hr_utility.set_message_token('CODE',' No of Months from Incurred Date / No of Months from the Plan Year End ' );
333: hr_utility.raise_error;
334: --
335: end if;
336: end if;
329: --
330: hr_utility.set_message(801,'BEN_93100_BASIS_DT_MO_INVLD');
331: hr_utility.set_message_token('FIELD', 'Month');
332: hr_utility.set_message_token('CODE',' No of Months from Incurred Date / No of Months from the Plan Year End ' );
333: hr_utility.raise_error;
334: --
335: end if;
336: end if;
337: end if;
337: end if;
338: --
339: end if;
340: --
341: hr_utility.set_location('Leaving:'||l_proc,10);
342: --
343: end chk_gd_svc_recd_basis_cd;
344: -- ----------------------------------------------------------------------------
345: -- |--------------------------< dt_update_validate >--------------------------|
380: l_integrity_error Exception;
381: l_table_name all_tables.table_name%TYPE;
382: --
383: Begin
384: hr_utility.set_location('Entering:'||l_proc, 5);
385: --
386: -- Ensure that the p_datetrack_mode argument is not null
387: --
388: hr_api.mandatory_arg_error
419: End If;
420: --
421: End If;
422: --
423: hr_utility.set_location(' Leaving:'||l_proc, 10);
424: Exception
425: When l_integrity_error Then
426: --
427: -- A referential integrity check was violated therefore
426: --
427: -- A referential integrity check was violated therefore
428: -- we must error
429: --
430: hr_utility.set_message(801, 'HR_7216_DT_UPD_INTEGRITY_ERR');
431: hr_utility.set_message_token('TABLE_NAME', l_table_name);
432: hr_utility.raise_error;
433: When Others Then
434: --
427: -- A referential integrity check was violated therefore
428: -- we must error
429: --
430: hr_utility.set_message(801, 'HR_7216_DT_UPD_INTEGRITY_ERR');
431: hr_utility.set_message_token('TABLE_NAME', l_table_name);
432: hr_utility.raise_error;
433: When Others Then
434: --
435: -- An unhandled or unexpected error has occurred which
428: -- we must error
429: --
430: hr_utility.set_message(801, 'HR_7216_DT_UPD_INTEGRITY_ERR');
431: hr_utility.set_message_token('TABLE_NAME', l_table_name);
432: hr_utility.raise_error;
433: When Others Then
434: --
435: -- An unhandled or unexpected error has occurred which
436: -- we must report
434: --
435: -- An unhandled or unexpected error has occurred which
436: -- we must report
437: --
438: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
439: hr_utility.set_message_token('PROCEDURE', l_proc);
440: hr_utility.set_message_token('STEP','15');
441: hr_utility.raise_error;
442: End dt_update_validate;
435: -- An unhandled or unexpected error has occurred which
436: -- we must report
437: --
438: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
439: hr_utility.set_message_token('PROCEDURE', l_proc);
440: hr_utility.set_message_token('STEP','15');
441: hr_utility.raise_error;
442: End dt_update_validate;
443: --
436: -- we must report
437: --
438: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
439: hr_utility.set_message_token('PROCEDURE', l_proc);
440: hr_utility.set_message_token('STEP','15');
441: hr_utility.raise_error;
442: End dt_update_validate;
443: --
444: -- ----------------------------------------------------------------------------
437: --
438: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
439: hr_utility.set_message_token('PROCEDURE', l_proc);
440: hr_utility.set_message_token('STEP','15');
441: hr_utility.raise_error;
442: End dt_update_validate;
443: --
444: -- ----------------------------------------------------------------------------
445: -- |--------------------------< dt_delete_validate >--------------------------|
486: l_rows_exist Exception;
487: l_table_name all_tables.table_name%TYPE;
488: --
489: Begin
490: hr_utility.set_location('Entering:'||l_proc, 5);
491: --
492: -- Ensure that the p_datetrack_mode argument is not null
493: --
494: hr_api.mandatory_arg_error
531: End If;
532: --
533: End If;
534: --
535: hr_utility.set_location(' Leaving:'||l_proc, 10);
536: Exception
537: When l_rows_exist Then
538: --
539: -- A referential integrity check was violated therefore
538: --
539: -- A referential integrity check was violated therefore
540: -- we must error
541: --
542: hr_utility.set_message(801, 'HR_7215_DT_CHILD_EXISTS');
543: hr_utility.set_message_token('TABLE_NAME', l_table_name);
544: hr_utility.raise_error;
545: When Others Then
546: --
539: -- A referential integrity check was violated therefore
540: -- we must error
541: --
542: hr_utility.set_message(801, 'HR_7215_DT_CHILD_EXISTS');
543: hr_utility.set_message_token('TABLE_NAME', l_table_name);
544: hr_utility.raise_error;
545: When Others Then
546: --
547: -- An unhandled or unexpected error has occurred which
540: -- we must error
541: --
542: hr_utility.set_message(801, 'HR_7215_DT_CHILD_EXISTS');
543: hr_utility.set_message_token('TABLE_NAME', l_table_name);
544: hr_utility.raise_error;
545: When Others Then
546: --
547: -- An unhandled or unexpected error has occurred which
548: -- we must report
546: --
547: -- An unhandled or unexpected error has occurred which
548: -- we must report
549: --
550: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
551: hr_utility.set_message_token('PROCEDURE', l_proc);
552: hr_utility.set_message_token('STEP','15');
553: hr_utility.raise_error;
554: End dt_delete_validate;
547: -- An unhandled or unexpected error has occurred which
548: -- we must report
549: --
550: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
551: hr_utility.set_message_token('PROCEDURE', l_proc);
552: hr_utility.set_message_token('STEP','15');
553: hr_utility.raise_error;
554: End dt_delete_validate;
555: --
548: -- we must report
549: --
550: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
551: hr_utility.set_message_token('PROCEDURE', l_proc);
552: hr_utility.set_message_token('STEP','15');
553: hr_utility.raise_error;
554: End dt_delete_validate;
555: --
556: -- ----------------------------------------------------------------------------
549: --
550: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
551: hr_utility.set_message_token('PROCEDURE', l_proc);
552: hr_utility.set_message_token('STEP','15');
553: hr_utility.raise_error;
554: End dt_delete_validate;
555: --
556: -- ----------------------------------------------------------------------------
557: -- |---------------------------< insert_validate >----------------------------|
565: --
566: l_proc varchar2(72) := g_package||'insert_validate';
567: --
568: Begin
569: hr_utility.set_location('Entering:'||l_proc, 5);
570: --
571: -- Call all supporting business operations
572: --
573: --
595: p_gd_svc_recd_basis_dt => p_rec.gd_svc_recd_basis_dt,
596: p_gd_svc_recd_basis_mo => p_rec.gd_svc_recd_basis_mo ,
597: p_effective_date => p_effective_date,
598: p_object_version_number => p_rec.object_version_number);
599: hr_utility.set_location(' Leaving:'||l_proc, 10);
600: End insert_validate;
601: --
602: -- ----------------------------------------------------------------------------
603: -- |---------------------------< update_validate >----------------------------|
611: --
612: l_proc varchar2(72) := g_package||'update_validate';
613: --
614: Begin
615: hr_utility.set_location('Entering:'||l_proc, 5);
616: --
617: -- Call all supporting business operations
618: --
619: --
651: p_datetrack_mode => p_datetrack_mode,
652: p_validation_start_date => p_validation_start_date,
653: p_validation_end_date => p_validation_end_date);
654: --
655: hr_utility.set_location(' Leaving:'||l_proc, 10);
656: End update_validate;
657: --
658: -- ----------------------------------------------------------------------------
659: -- |---------------------------< delete_validate >----------------------------|
667: --
668: l_proc varchar2(72) := g_package||'delete_validate';
669: --
670: Begin
671: hr_utility.set_location('Entering:'||l_proc, 5);
672: --
673: -- Call all supporting business operations
674: --
675: dt_delete_validate
677: p_validation_start_date => p_validation_start_date,
678: p_validation_end_date => p_validation_end_date,
679: p_pl_gd_or_svc_id => p_rec.pl_gd_or_svc_id);
680: --
681: hr_utility.set_location(' Leaving:'||l_proc, 10);
682: End delete_validate;
683: --
684: --
685: -- ---------------------------------------------------------------------------
704: l_proc varchar2(72) := g_package||'return_legislation_code';
705: --
706: begin
707: --
708: hr_utility.set_location('Entering:'|| l_proc, 10);
709: --
710: -- Ensure that all the mandatory parameter are not null
711: --
712: hr_api.mandatory_arg_error(p_api_name => l_proc,
722: close csr_leg_code;
723: --
724: -- The primary key is invalid therefore we must error
725: --
726: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
727: hr_utility.raise_error;
728: --
729: end if;
730: --
723: --
724: -- The primary key is invalid therefore we must error
725: --
726: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
727: hr_utility.raise_error;
728: --
729: end if;
730: --
731: close csr_leg_code;
729: end if;
730: --
731: close csr_leg_code;
732: --
733: hr_utility.set_location(' Leaving:'|| l_proc, 20);
734: --
735: return l_legislation_code;
736: --
737: end return_legislation_code;