50: p_dpnt_cvg_rqd_rlshp_id => p_dpnt_cvg_rqd_rlshp_id,
51: p_object_version_number => p_object_version_number);
52: --
53: if (l_api_updating
54: and nvl(p_dpnt_cvg_rqd_rlshp_id,hr_api.g_number)
55: <> ben_dcr_shd.g_old_rec.dpnt_cvg_rqd_rlshp_id) then
56: --
57: -- raise error as PK has changed
58: --
120: p_effective_date => p_effective_date,
121: p_object_version_number => p_object_version_number);
122: --
123: if (l_api_updating
124: and nvl(p_per_relshp_typ_cd,hr_api.g_varchar2)
125: <> nvl(ben_dcr_shd.g_old_rec.per_relshp_typ_cd,hr_api.g_varchar2)
126: or not l_api_updating) then
127: --
128: -- check if per_relshp_typ_cd value exists in hr_lookups table
121: p_object_version_number => p_object_version_number);
122: --
123: if (l_api_updating
124: and nvl(p_per_relshp_typ_cd,hr_api.g_varchar2)
125: <> nvl(ben_dcr_shd.g_old_rec.per_relshp_typ_cd,hr_api.g_varchar2)
126: or not l_api_updating) then
127: --
128: -- check if per_relshp_typ_cd value exists in hr_lookups table
129: --
126: or not l_api_updating) then
127: --
128: -- check if per_relshp_typ_cd value exists in hr_lookups table
129: --
130: if hr_api.not_exists_in_hr_lookups
131: (p_lookup_type => 'CONTACT',
132: p_lookup_code => p_per_relshp_typ_cd,
133: p_effective_date => p_effective_date) then
134: --
198: p_effective_date => p_effective_date,
199: p_object_version_number => p_object_version_number);
200: --
201: if (l_api_updating
202: and nvl(p_cvg_strt_dt_rl,hr_api.g_number)
203: <> ben_dcr_shd.g_old_rec.cvg_strt_dt_rl
204: or not l_api_updating)
205: and p_cvg_strt_dt_rl is not null then
206: --
276: p_object_version_number => p_object_version_number);
277: --
278: if (l_api_updating
279: and p_cvg_thru_dt_cd
280: <> nvl(ben_dcr_shd.g_old_rec.cvg_thru_dt_cd,hr_api.g_varchar2)
281: or not l_api_updating)
282: and p_cvg_thru_dt_cd is not null then
283: --
284: -- check if value of lookup falls within lookup type.
282: and p_cvg_thru_dt_cd is not null then
283: --
284: -- check if value of lookup falls within lookup type.
285: --
286: if hr_api.not_exists_in_hr_lookups
287: (p_lookup_type => 'BEN_DPNT_CVG_END',
288: p_lookup_code => p_cvg_thru_dt_cd,
289: p_effective_date => p_effective_date) then
290: --
354: p_effective_date => p_effective_date,
355: p_object_version_number => p_object_version_number);
356: --
357: if (l_api_updating
358: and nvl(p_cvg_thru_dt_rl,hr_api.g_number)
359: <> ben_dcr_shd.g_old_rec.cvg_thru_dt_rl
360: or not l_api_updating)
361: and p_cvg_thru_dt_rl is not null then
362: --
432: p_object_version_number => p_object_version_number);
433: --
434: if (l_api_updating
435: and p_cvg_strt_dt_cd
436: <> nvl(ben_dcr_shd.g_old_rec.cvg_strt_dt_cd,hr_api.g_varchar2)
437: or not l_api_updating)
438: and p_cvg_strt_dt_cd is not null then
439: --
440: -- check if value of lookup falls within lookup type.
438: and p_cvg_strt_dt_cd is not null then
439: --
440: -- check if value of lookup falls within lookup type.
441: --
442: if hr_api.not_exists_in_hr_lookups
443: (p_lookup_type => 'BEN_DPNT_CVG_STRT',
444: p_lookup_code => p_cvg_strt_dt_cd,
445: p_effective_date => p_effective_date) then
446: --
508: p_object_version_number => p_object_version_number);
509: --
510:
511: if (l_api_updating
512: and (nvl(p_cvg_strt_dt_cd, hr_api.g_varchar2) <>
513: nvl(ben_dcr_shd.g_old_rec.cvg_strt_dt_cd,hr_api.g_varchar2) or
514: nvl(p_cvg_strt_dt_rl, hr_api.g_number) <>
515: nvl(ben_dcr_shd.g_old_rec.cvg_strt_dt_rl,hr_api.g_number))
516: or not l_api_updating) then
509: --
510:
511: if (l_api_updating
512: and (nvl(p_cvg_strt_dt_cd, hr_api.g_varchar2) <>
513: nvl(ben_dcr_shd.g_old_rec.cvg_strt_dt_cd,hr_api.g_varchar2) or
514: nvl(p_cvg_strt_dt_rl, hr_api.g_number) <>
515: nvl(ben_dcr_shd.g_old_rec.cvg_strt_dt_rl,hr_api.g_number))
516: or not l_api_updating) then
517:
510:
511: if (l_api_updating
512: and (nvl(p_cvg_strt_dt_cd, hr_api.g_varchar2) <>
513: nvl(ben_dcr_shd.g_old_rec.cvg_strt_dt_cd,hr_api.g_varchar2) or
514: nvl(p_cvg_strt_dt_rl, hr_api.g_number) <>
515: nvl(ben_dcr_shd.g_old_rec.cvg_strt_dt_rl,hr_api.g_number))
516: or not l_api_updating) then
517:
518: --
511: if (l_api_updating
512: and (nvl(p_cvg_strt_dt_cd, hr_api.g_varchar2) <>
513: nvl(ben_dcr_shd.g_old_rec.cvg_strt_dt_cd,hr_api.g_varchar2) or
514: nvl(p_cvg_strt_dt_rl, hr_api.g_number) <>
515: nvl(ben_dcr_shd.g_old_rec.cvg_strt_dt_rl,hr_api.g_number))
516: or not l_api_updating) then
517:
518: --
519: -- check dependency of Code and Rule.
517:
518: --
519: -- check dependency of Code and Rule.
520: --
521: if ( nvl(p_cvg_strt_dt_cd, hr_api.g_varchar2) <> 'RL' and
522: p_cvg_strt_dt_rl is not null) then
523: fnd_message.set_name('BEN', 'BEN_67890_field_CWOR');
524: fnd_message.raise_error;
525: end if;
523: fnd_message.set_name('BEN', 'BEN_67890_field_CWOR');
524: fnd_message.raise_error;
525: end if;
526:
527: if ( nvl(p_cvg_strt_dt_cd, hr_api.g_varchar2) = 'RL' and p_cvg_strt_dt_rl is null) then
528: fnd_message.set_name('BEN', 'BEN_12345_field_CWOR');
529: fnd_message.raise_error;
530: end if;
531: end if;
587: p_object_version_number => p_object_version_number);
588: --
589:
590: if (l_api_updating
591: and (nvl(p_cvg_thru_dt_cd, hr_api.g_varchar2) <>
592: nvl(ben_dcr_shd.g_old_rec.cvg_thru_dt_cd,hr_api.g_varchar2) or
593: nvl(p_cvg_thru_dt_rl, hr_api.g_number) <>
594: nvl(ben_dcr_shd.g_old_rec.cvg_thru_dt_rl,hr_api.g_number))
595: or not l_api_updating) then
588: --
589:
590: if (l_api_updating
591: and (nvl(p_cvg_thru_dt_cd, hr_api.g_varchar2) <>
592: nvl(ben_dcr_shd.g_old_rec.cvg_thru_dt_cd,hr_api.g_varchar2) or
593: nvl(p_cvg_thru_dt_rl, hr_api.g_number) <>
594: nvl(ben_dcr_shd.g_old_rec.cvg_thru_dt_rl,hr_api.g_number))
595: or not l_api_updating) then
596:
589:
590: if (l_api_updating
591: and (nvl(p_cvg_thru_dt_cd, hr_api.g_varchar2) <>
592: nvl(ben_dcr_shd.g_old_rec.cvg_thru_dt_cd,hr_api.g_varchar2) or
593: nvl(p_cvg_thru_dt_rl, hr_api.g_number) <>
594: nvl(ben_dcr_shd.g_old_rec.cvg_thru_dt_rl,hr_api.g_number))
595: or not l_api_updating) then
596:
597: --
590: if (l_api_updating
591: and (nvl(p_cvg_thru_dt_cd, hr_api.g_varchar2) <>
592: nvl(ben_dcr_shd.g_old_rec.cvg_thru_dt_cd,hr_api.g_varchar2) or
593: nvl(p_cvg_thru_dt_rl, hr_api.g_number) <>
594: nvl(ben_dcr_shd.g_old_rec.cvg_thru_dt_rl,hr_api.g_number))
595: or not l_api_updating) then
596:
597: --
598: -- check dependency of Code and Rule.
596:
597: --
598: -- check dependency of Code and Rule.
599: --
600: if ( nvl(p_cvg_thru_dt_cd, hr_api.g_varchar2) <> 'RL' and
601: p_cvg_thru_dt_rl is not null) then
602: fnd_message.set_name('BEN', 'BEN_67890_field_CWOR');
603: fnd_message.raise_error;
604: end if;
602: fnd_message.set_name('BEN', 'BEN_67890_field_CWOR');
603: fnd_message.raise_error;
604: end if;
605:
606: if ( nvl(p_cvg_thru_dt_cd, hr_api.g_varchar2) = 'RL' and p_cvg_thru_dt_rl is null) then
607: fnd_message.set_name('BEN', 'BEN_12345_field_CWOR');
608: fnd_message.raise_error;
609: end if;
610: end if;
666: p_object_version_number => p_object_version_number);
667: --
668:
669: if (l_api_updating
670: and (nvl(p_cvg_strt_dt_cd, hr_api.g_varchar2) <>
671: nvl(ben_dcr_shd.g_old_rec.cvg_strt_dt_cd,hr_api.g_varchar2) or
672: nvl(p_cvg_thru_dt_cd, hr_api.g_varchar2) <>
673: nvl(ben_dcr_shd.g_old_rec.cvg_thru_dt_cd,hr_api.g_varchar2))
674: or not l_api_updating) then
667: --
668:
669: if (l_api_updating
670: and (nvl(p_cvg_strt_dt_cd, hr_api.g_varchar2) <>
671: nvl(ben_dcr_shd.g_old_rec.cvg_strt_dt_cd,hr_api.g_varchar2) or
672: nvl(p_cvg_thru_dt_cd, hr_api.g_varchar2) <>
673: nvl(ben_dcr_shd.g_old_rec.cvg_thru_dt_cd,hr_api.g_varchar2))
674: or not l_api_updating) then
675:
668:
669: if (l_api_updating
670: and (nvl(p_cvg_strt_dt_cd, hr_api.g_varchar2) <>
671: nvl(ben_dcr_shd.g_old_rec.cvg_strt_dt_cd,hr_api.g_varchar2) or
672: nvl(p_cvg_thru_dt_cd, hr_api.g_varchar2) <>
673: nvl(ben_dcr_shd.g_old_rec.cvg_thru_dt_cd,hr_api.g_varchar2))
674: or not l_api_updating) then
675:
676: --
669: if (l_api_updating
670: and (nvl(p_cvg_strt_dt_cd, hr_api.g_varchar2) <>
671: nvl(ben_dcr_shd.g_old_rec.cvg_strt_dt_cd,hr_api.g_varchar2) or
672: nvl(p_cvg_thru_dt_cd, hr_api.g_varchar2) <>
673: nvl(ben_dcr_shd.g_old_rec.cvg_thru_dt_cd,hr_api.g_varchar2))
674: or not l_api_updating) then
675:
676: --
677: -- check dependent Relationship of Start Date and through Date.
788: --
789: -- {End Of Comments}
790: -- ----------------------------------------------------------------------------
791: Procedure dt_update_validate
792: (p_dpnt_cvg_eligy_prfl_id in number default hr_api.g_number,
793: p_datetrack_mode in varchar2,
794: p_validation_start_date in date,
795: p_validation_end_date in date) Is
796: --
802: hr_utility.set_location('Entering:'||l_proc, 5);
803: --
804: -- Ensure that the p_datetrack_mode argument is not null
805: --
806: hr_api.mandatory_arg_error
807: (p_api_name => l_proc,
808: p_argument => 'datetrack_mode',
809: p_argument_value => p_datetrack_mode);
810: --
814: --
815: --
816: -- Ensure the arguments are not null
817: --
818: hr_api.mandatory_arg_error
819: (p_api_name => l_proc,
820: p_argument => 'validation_start_date',
821: p_argument_value => p_validation_start_date);
822: --
819: (p_api_name => l_proc,
820: p_argument => 'validation_start_date',
821: p_argument_value => p_validation_start_date);
822: --
823: hr_api.mandatory_arg_error
824: (p_api_name => l_proc,
825: p_argument => 'validation_end_date',
826: p_argument_value => p_validation_end_date);
827: --
824: (p_api_name => l_proc,
825: p_argument => 'validation_end_date',
826: p_argument_value => p_validation_end_date);
827: --
828: If ((nvl(p_dpnt_cvg_eligy_prfl_id, hr_api.g_number) <> hr_api.g_number) and
829: NOT (dt_api.check_min_max_dates
830: (p_base_table_name => 'ben_dpnt_cvg_eligy_prfl_f',
831: p_base_key_column => 'dpnt_cvg_eligy_prfl_id',
832: p_base_key_value => p_dpnt_cvg_eligy_prfl_id,
907: hr_utility.set_location('Entering:'||l_proc, 5);
908: --
909: -- Ensure that the p_datetrack_mode argument is not null
910: --
911: hr_api.mandatory_arg_error
912: (p_api_name => l_proc,
913: p_argument => 'datetrack_mode',
914: p_argument_value => p_datetrack_mode);
915: --
921: --
922: --
923: -- Ensure the arguments are not null
924: --
925: hr_api.mandatory_arg_error
926: (p_api_name => l_proc,
927: p_argument => 'validation_start_date',
928: p_argument_value => p_validation_start_date);
929: --
926: (p_api_name => l_proc,
927: p_argument => 'validation_start_date',
928: p_argument_value => p_validation_start_date);
929: --
930: hr_api.mandatory_arg_error
931: (p_api_name => l_proc,
932: p_argument => 'validation_end_date',
933: p_argument_value => p_validation_end_date);
934: --
931: (p_api_name => l_proc,
932: p_argument => 'validation_end_date',
933: p_argument_value => p_validation_end_date);
934: --
935: hr_api.mandatory_arg_error
936: (p_api_name => l_proc,
937: p_argument => 'dpnt_cvg_rqd_rlshp_id',
938: p_argument_value => p_dpnt_cvg_rqd_rlshp_id);
939: --
978: --
979: -- Call all supporting business operations
980: --
981: --
982: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
983: --
984: chk_duplicate_rows
985: (p_dpnt_cvg_rqd_rlshp_id => p_rec.dpnt_cvg_rqd_rlshp_id,
986: p_dpnt_cvg_eligy_prfl_id => p_rec.dpnt_cvg_eligy_prfl_id,
1057: --
1058: -- Call all supporting business operations
1059: --
1060: --
1061: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
1062: --
1063: chk_duplicate_rows
1064: (p_dpnt_cvg_rqd_rlshp_id => p_rec.dpnt_cvg_rqd_rlshp_id,
1065: p_dpnt_cvg_eligy_prfl_id => p_rec.dpnt_cvg_eligy_prfl_id,
1181: hr_utility.set_location('Entering:'|| l_proc, 10);
1182: --
1183: -- Ensure that all the mandatory parameter are not null
1184: --
1185: hr_api.mandatory_arg_error(p_api_name => l_proc,
1186: p_argument => 'dpnt_cvg_rqd_rlshp_id',
1187: p_argument_value => p_dpnt_cvg_rqd_rlshp_id);
1188: --
1189: open csr_leg_code;