50: p_elig_stdnt_stat_cvg_id => p_elig_stdnt_stat_cvg_id,
51: p_object_version_number => p_object_version_number);
52: --
53: if (l_api_updating
54: and nvl(p_elig_stdnt_stat_cvg_id,hr_api.g_number)
55: <> ben_esc_shd.g_old_rec.elig_stdnt_stat_cvg_id) then
56: --
57: -- raise error as PK has changed
58: --
120: p_object_version_number => p_object_version_number);
121: --
122: if (l_api_updating
123: and p_stdnt_stat_cd
124: <> nvl(ben_esc_shd.g_old_rec.stdnt_stat_cd,hr_api.g_varchar2)
125: or not l_api_updating) then
126: --
127: -- check if value of lookup falls within lookup type.
128: --
126: --
127: -- check if value of lookup falls within lookup type.
128: --
129: --
130: if hr_api.not_exists_in_hr_lookups
131: (p_lookup_type => 'STUDENT_STATUS',
132: p_lookup_code => p_stdnt_stat_cd,
133: p_effective_date => p_effective_date) then
134: --
197: p_effective_date => p_effective_date,
198: p_object_version_number => p_object_version_number);
199: --
200: if (l_api_updating
201: and nvl(p_cvg_thru_rl,hr_api.g_number)
202: <> ben_esc_shd.g_old_rec.cvg_thru_rl
203: or not l_api_updating)
204: and p_cvg_thru_rl is not null then
205: --
274: p_object_version_number => p_object_version_number);
275: --
276: if (l_api_updating
277: and p_cvg_thru_cd
278: <> nvl(ben_esc_shd.g_old_rec.cvg_thru_cd,hr_api.g_varchar2)
279: or not l_api_updating)
280: and p_cvg_thru_cd is not null then
281: --
282: -- check if value of lookup falls within lookup type.
280: and p_cvg_thru_cd is not null then
281: --
282: -- check if value of lookup falls within lookup type.
283: --
284: if hr_api.not_exists_in_hr_lookups
285: (p_lookup_type => 'BEN_DPNT_CVG_END',
286: p_lookup_code => p_cvg_thru_cd,
287: p_effective_date => p_effective_date) then
288: --
351: p_effective_date => p_effective_date,
352: p_object_version_number => p_object_version_number);
353: --
354: if (l_api_updating
355: and nvl(p_cvg_strt_rl,hr_api.g_number)
356: <> ben_esc_shd.g_old_rec.cvg_strt_rl
357: or not l_api_updating)
358: and p_cvg_strt_rl is not null then
359: --
428: p_object_version_number => p_object_version_number);
429: --
430: if (l_api_updating
431: and p_cvg_strt_cd
432: <> nvl(ben_esc_shd.g_old_rec.cvg_strt_cd,hr_api.g_varchar2)
433: or not l_api_updating)
434: and p_cvg_strt_cd is not null then
435: --
436: -- check if value of lookup falls within lookup type.
434: and p_cvg_strt_cd is not null then
435: --
436: -- check if value of lookup falls within lookup type.
437: --
438: if hr_api.not_exists_in_hr_lookups
439: (p_lookup_type => 'BEN_DPNT_CVG_STRT',
440: p_lookup_code => p_cvg_strt_cd,
441: p_effective_date => p_effective_date) then
442: --
501: p_effective_date => p_effective_date,
502: p_object_version_number => p_object_version_number);
503: --
504: if (l_api_updating
505: and (nvl(p_cvg_strt_cd, hr_api.g_varchar2) <>
506: nvl(ben_esc_shd.g_old_rec.cvg_strt_cd,hr_api.g_varchar2) or
507: nvl(p_cvg_strt_rl, hr_api.g_number) <>
508: nvl(ben_esc_shd.g_old_rec.cvg_strt_rl,hr_api.g_number))
509: or not l_api_updating) then
502: p_object_version_number => p_object_version_number);
503: --
504: if (l_api_updating
505: and (nvl(p_cvg_strt_cd, hr_api.g_varchar2) <>
506: nvl(ben_esc_shd.g_old_rec.cvg_strt_cd,hr_api.g_varchar2) or
507: nvl(p_cvg_strt_rl, hr_api.g_number) <>
508: nvl(ben_esc_shd.g_old_rec.cvg_strt_rl,hr_api.g_number))
509: or not l_api_updating) then
510: --
503: --
504: if (l_api_updating
505: and (nvl(p_cvg_strt_cd, hr_api.g_varchar2) <>
506: nvl(ben_esc_shd.g_old_rec.cvg_strt_cd,hr_api.g_varchar2) or
507: nvl(p_cvg_strt_rl, hr_api.g_number) <>
508: nvl(ben_esc_shd.g_old_rec.cvg_strt_rl,hr_api.g_number))
509: or not l_api_updating) then
510: --
511: -- check dependency of Code and Rule.
504: if (l_api_updating
505: and (nvl(p_cvg_strt_cd, hr_api.g_varchar2) <>
506: nvl(ben_esc_shd.g_old_rec.cvg_strt_cd,hr_api.g_varchar2) or
507: nvl(p_cvg_strt_rl, hr_api.g_number) <>
508: nvl(ben_esc_shd.g_old_rec.cvg_strt_rl,hr_api.g_number))
509: or not l_api_updating) then
510: --
511: -- check dependency of Code and Rule.
512: --
509: or not l_api_updating) then
510: --
511: -- check dependency of Code and Rule.
512: --
513: if ( nvl(p_cvg_strt_cd, hr_api.g_varchar2) <> 'RL' and
514: p_cvg_strt_rl is not null) then
515: fnd_message.set_name('BEN', 'BEN_67890_field_CWOR');
516: fnd_message.raise_error;
517: end if;
515: fnd_message.set_name('BEN', 'BEN_67890_field_CWOR');
516: fnd_message.raise_error;
517: end if;
518:
519: if ( nvl(p_cvg_strt_cd, hr_api.g_varchar2) = 'RL' and p_cvg_strt_rl is null) then
520: fnd_message.set_name('BEN', 'BEN_12345_field_CWOR');
521: fnd_message.raise_error;
522: end if;
523: end if;
577: p_effective_date => p_effective_date,
578: p_object_version_number => p_object_version_number);
579: --
580: if (l_api_updating
581: and (nvl(p_cvg_thru_cd, hr_api.g_varchar2) <>
582: nvl(ben_esc_shd.g_old_rec.cvg_thru_cd,hr_api.g_varchar2) or
583: nvl(p_cvg_thru_rl, hr_api.g_number) <>
584: nvl(ben_esc_shd.g_old_rec.cvg_thru_rl,hr_api.g_number))
585: or not l_api_updating) then
578: p_object_version_number => p_object_version_number);
579: --
580: if (l_api_updating
581: and (nvl(p_cvg_thru_cd, hr_api.g_varchar2) <>
582: nvl(ben_esc_shd.g_old_rec.cvg_thru_cd,hr_api.g_varchar2) or
583: nvl(p_cvg_thru_rl, hr_api.g_number) <>
584: nvl(ben_esc_shd.g_old_rec.cvg_thru_rl,hr_api.g_number))
585: or not l_api_updating) then
586:
579: --
580: if (l_api_updating
581: and (nvl(p_cvg_thru_cd, hr_api.g_varchar2) <>
582: nvl(ben_esc_shd.g_old_rec.cvg_thru_cd,hr_api.g_varchar2) or
583: nvl(p_cvg_thru_rl, hr_api.g_number) <>
584: nvl(ben_esc_shd.g_old_rec.cvg_thru_rl,hr_api.g_number))
585: or not l_api_updating) then
586:
587: --
580: if (l_api_updating
581: and (nvl(p_cvg_thru_cd, hr_api.g_varchar2) <>
582: nvl(ben_esc_shd.g_old_rec.cvg_thru_cd,hr_api.g_varchar2) or
583: nvl(p_cvg_thru_rl, hr_api.g_number) <>
584: nvl(ben_esc_shd.g_old_rec.cvg_thru_rl,hr_api.g_number))
585: or not l_api_updating) then
586:
587: --
588: -- check dependency of Code and Rule.
586:
587: --
588: -- check dependency of Code and Rule.
589: --
590: if ( nvl(p_cvg_thru_cd, hr_api.g_varchar2) <> 'RL' and
591: p_cvg_thru_rl is not null) then
592: fnd_message.set_name('BEN', 'BEN_67890_field_CWOR');
593: fnd_message.raise_error;
594: end if;
592: fnd_message.set_name('BEN', 'BEN_67890_field_CWOR');
593: fnd_message.raise_error;
594: end if;
595:
596: if ( nvl(p_cvg_thru_cd, hr_api.g_varchar2) = 'RL' and p_cvg_thru_rl is null) then
597: fnd_message.set_name('BEN', 'BEN_12345_field_CWOR');
598: fnd_message.raise_error;
599: end if;
600: end if;
699: --
700: -- {End Of Comments}
701: -- ----------------------------------------------------------------------------
702: Procedure dt_update_validate
703: (p_dpnt_cvg_eligy_prfl_id in number default hr_api.g_number,
704: p_datetrack_mode in varchar2,
705: p_validation_start_date in date,
706: p_validation_end_date in date) Is
707: --
713: hr_utility.set_location('Entering:'||l_proc, 5);
714: --
715: -- Ensure that the p_datetrack_mode argument is not null
716: --
717: hr_api.mandatory_arg_error
718: (p_api_name => l_proc,
719: p_argument => 'datetrack_mode',
720: p_argument_value => p_datetrack_mode);
721: --
725: --
726: --
727: -- Ensure the arguments are not null
728: --
729: hr_api.mandatory_arg_error
730: (p_api_name => l_proc,
731: p_argument => 'validation_start_date',
732: p_argument_value => p_validation_start_date);
733: --
730: (p_api_name => l_proc,
731: p_argument => 'validation_start_date',
732: p_argument_value => p_validation_start_date);
733: --
734: hr_api.mandatory_arg_error
735: (p_api_name => l_proc,
736: p_argument => 'validation_end_date',
737: p_argument_value => p_validation_end_date);
738: --
735: (p_api_name => l_proc,
736: p_argument => 'validation_end_date',
737: p_argument_value => p_validation_end_date);
738: --
739: If ((nvl(p_dpnt_cvg_eligy_prfl_id, hr_api.g_number) <> hr_api.g_number) and
740: NOT (dt_api.check_min_max_dates
741: (p_base_table_name => 'ben_dpnt_cvg_eligy_prfl_f',
742: p_base_key_column => 'dpnt_cvg_eligy_prfl_id',
743: p_base_key_value => p_dpnt_cvg_eligy_prfl_id,
818: hr_utility.set_location('Entering:'||l_proc, 5);
819: --
820: -- Ensure that the p_datetrack_mode argument is not null
821: --
822: hr_api.mandatory_arg_error
823: (p_api_name => l_proc,
824: p_argument => 'datetrack_mode',
825: p_argument_value => p_datetrack_mode);
826: --
832: --
833: --
834: -- Ensure the arguments are not null
835: --
836: hr_api.mandatory_arg_error
837: (p_api_name => l_proc,
838: p_argument => 'validation_start_date',
839: p_argument_value => p_validation_start_date);
840: --
837: (p_api_name => l_proc,
838: p_argument => 'validation_start_date',
839: p_argument_value => p_validation_start_date);
840: --
841: hr_api.mandatory_arg_error
842: (p_api_name => l_proc,
843: p_argument => 'validation_end_date',
844: p_argument_value => p_validation_end_date);
845: --
842: (p_api_name => l_proc,
843: p_argument => 'validation_end_date',
844: p_argument_value => p_validation_end_date);
845: --
846: hr_api.mandatory_arg_error
847: (p_api_name => l_proc,
848: p_argument => 'elig_stdnt_stat_cvg_id',
849: p_argument_value => p_elig_stdnt_stat_cvg_id);
850: --
889: --
890: -- Call all supporting business operations
891: --
892: --
893: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
894: --
895: chk_duplicate_rows
896: (p_elig_stdnt_stat_cvg_id => p_rec.elig_stdnt_stat_cvg_id,
897: p_stdnt_stat_cd => p_rec.stdnt_stat_cd,
969: --
970: -- Call all supporting business operations
971: --
972: --
973: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
974: --
975: chk_duplicate_rows
976: (p_elig_stdnt_stat_cvg_id => p_rec.elig_stdnt_stat_cvg_id,
977: p_stdnt_stat_cd => p_rec.stdnt_stat_cd,
1092: hr_utility.set_location('Entering:'|| l_proc, 10);
1093: --
1094: -- Ensure that all the mandatory parameter are not null
1095: --
1096: hr_api.mandatory_arg_error(p_api_name => l_proc,
1097: p_argument => 'elig_stdnt_stat_cvg_id',
1098: p_argument_value => p_elig_stdnt_stat_cvg_id);
1099: --
1100: open csr_leg_code;