44: Begin
45: --
46: hr_utility.set_location('Entering:'||l_proc, 5);
47: --
48: l_api_updating := ben_emc_shd.api_updating
49: (p_effective_date => p_effective_date,
50: p_elig_mltry_stat_cvg_id => p_elig_mltry_stat_cvg_id,
51: p_object_version_number => p_object_version_number);
52: --
51: p_object_version_number => p_object_version_number);
52: --
53: if (l_api_updating
54: and nvl(p_elig_mltry_stat_cvg_id,hr_api.g_number)
55: <> ben_emc_shd.g_old_rec.elig_mltry_stat_cvg_id) then
56: --
57: -- raise error as PK has changed
58: --
59: ben_emc_shd.constraint_error('BEN_ELG_MLTRY_CVG_PK');
55: <> ben_emc_shd.g_old_rec.elig_mltry_stat_cvg_id) then
56: --
57: -- raise error as PK has changed
58: --
59: ben_emc_shd.constraint_error('BEN_ELG_MLTRY_CVG_PK');
60: --
61: elsif not l_api_updating then
62: --
63: -- check if PK is null
65: if p_elig_mltry_stat_cvg_id is not null then
66: --
67: -- raise error as PK is not null
68: --
69: ben_emc_shd.constraint_error('BEN_ELG_MLTRY_CVG_PK');
70: --
71: end if;
72: --
73: end if;
122: Begin
123: --
124: hr_utility.set_location('Entering:'||l_proc, 5);
125: --
126: l_api_updating := ben_emc_shd.api_updating
127: (p_elig_mltry_stat_cvg_id => p_elig_mltry_stat_cvg_id,
128: p_effective_date => p_effective_date,
129: p_object_version_number => p_object_version_number);
130: --
129: p_object_version_number => p_object_version_number);
130: --
131: if (l_api_updating
132: and nvl(p_cvg_thru_rl,hr_api.g_number)
133: <> ben_emc_shd.g_old_rec.cvg_thru_rl
134: or not l_api_updating)
135: and p_cvg_thru_rl is not null then
136: --
137: -- check if value of formula rule is valid.
198: Begin
199: --
200: hr_utility.set_location('Entering:'||l_proc, 5);
201: --
202: l_api_updating := ben_emc_shd.api_updating
203: (p_elig_mltry_stat_cvg_id => p_elig_mltry_stat_cvg_id,
204: p_effective_date => p_effective_date,
205: p_object_version_number => p_object_version_number);
206: --
205: p_object_version_number => p_object_version_number);
206: --
207: if (l_api_updating
208: and p_cvg_thru_cd
209: <> nvl(ben_emc_shd.g_old_rec.cvg_thru_cd,hr_api.g_varchar2)
210: or not l_api_updating)
211: and p_cvg_thru_cd is not null then
212: --
213: -- check if value of lookup falls within lookup type.
276: Begin
277: --
278: hr_utility.set_location('Entering:'||l_proc, 5);
279: --
280: l_api_updating := ben_emc_shd.api_updating
281: (p_elig_mltry_stat_cvg_id => p_elig_mltry_stat_cvg_id,
282: p_effective_date => p_effective_date,
283: p_object_version_number => p_object_version_number);
284: --
283: p_object_version_number => p_object_version_number);
284: --
285: if (l_api_updating
286: and nvl(p_cvg_strt_rl,hr_api.g_number)
287: <> ben_emc_shd.g_old_rec.cvg_strt_rl
288: or not l_api_updating)
289: and p_cvg_strt_rl is not null then
290: --
291: -- check if value of formula rule is valid.
352: Begin
353: --
354: hr_utility.set_location('Entering:'||l_proc, 5);
355: --
356: l_api_updating := ben_emc_shd.api_updating
357: (p_elig_mltry_stat_cvg_id => p_elig_mltry_stat_cvg_id,
358: p_effective_date => p_effective_date,
359: p_object_version_number => p_object_version_number);
360: --
359: p_object_version_number => p_object_version_number);
360: --
361: if (l_api_updating
362: and p_cvg_strt_cd
363: <> nvl(ben_emc_shd.g_old_rec.cvg_strt_cd,hr_api.g_varchar2)
364: or not l_api_updating)
365: and p_cvg_strt_cd is not null then
366: --
367: -- check if value of lookup falls within lookup type.
421: Begin
422: --
423: hr_utility.set_location('Entering:'||l_proc, 5);
424: --
425: l_api_updating := ben_emc_shd.api_updating
426: (p_elig_mltry_stat_cvg_id => p_elig_mltry_stat_cvg_id,
427: p_effective_date => p_effective_date,
428: p_object_version_number => p_object_version_number);
429: --
428: p_object_version_number => p_object_version_number);
429: --
430: if (l_api_updating
431: and p_mltry_stat_cd
432: <> nvl(ben_emc_shd.g_old_rec.mltry_stat_cd,hr_api.g_varchar2)
433: or not l_api_updating) then
434: --
435: -- check if value of lookup falls within lookup type.
436: --
496: Begin
497: --
498: hr_utility.set_location('Entering:'||l_proc, 5);
499: --
500: l_api_updating := ben_emc_shd.api_updating
501: (p_elig_mltry_stat_cvg_id => p_elig_mltry_stat_cvg_id,
502: p_effective_date => p_effective_date,
503: p_object_version_number => p_object_version_number);
504: --
503: p_object_version_number => p_object_version_number);
504: --
505: if (l_api_updating
506: and (nvl(p_cvg_strt_cd, hr_api.g_varchar2) <>
507: nvl(ben_emc_shd.g_old_rec.cvg_strt_cd,hr_api.g_varchar2) or
508: nvl(p_cvg_strt_rl, hr_api.g_number) <>
509: nvl(ben_emc_shd.g_old_rec.cvg_strt_rl,hr_api.g_number))
510: or not l_api_updating) then
511: --
505: if (l_api_updating
506: and (nvl(p_cvg_strt_cd, hr_api.g_varchar2) <>
507: nvl(ben_emc_shd.g_old_rec.cvg_strt_cd,hr_api.g_varchar2) or
508: nvl(p_cvg_strt_rl, hr_api.g_number) <>
509: nvl(ben_emc_shd.g_old_rec.cvg_strt_rl,hr_api.g_number))
510: or not l_api_updating) then
511: --
512: -- check dependency of Code and Rule.
513: --
572: Begin
573: --
574: hr_utility.set_location('Entering:'||l_proc, 5);
575: --
576: l_api_updating := ben_emc_shd.api_updating
577: (p_elig_mltry_stat_cvg_id => p_elig_mltry_stat_cvg_id,
578: p_effective_date => p_effective_date,
579: p_object_version_number => p_object_version_number);
580: --
579: p_object_version_number => p_object_version_number);
580: --
581: if (l_api_updating
582: and (nvl(p_cvg_thru_cd, hr_api.g_varchar2) <>
583: nvl(ben_emc_shd.g_old_rec.cvg_thru_cd,hr_api.g_varchar2) or
584: nvl(p_cvg_thru_rl, hr_api.g_number) <>
585: nvl(ben_emc_shd.g_old_rec.cvg_thru_rl,hr_api.g_number))
586: or not l_api_updating) then
587:
581: if (l_api_updating
582: and (nvl(p_cvg_thru_cd, hr_api.g_varchar2) <>
583: nvl(ben_emc_shd.g_old_rec.cvg_thru_cd,hr_api.g_varchar2) or
584: nvl(p_cvg_thru_rl, hr_api.g_number) <>
585: nvl(ben_emc_shd.g_old_rec.cvg_thru_rl,hr_api.g_number))
586: or not l_api_updating) then
587:
588: --
589: -- check dependency of Code and Rule.
877: -- ----------------------------------------------------------------------------
878: -- |---------------------------< insert_validate >----------------------------|
879: -- ----------------------------------------------------------------------------
880: Procedure insert_validate
881: (p_rec in ben_emc_shd.g_rec_type,
882: p_effective_date in date,
883: p_datetrack_mode in varchar2,
884: p_validation_start_date in date,
885: p_validation_end_date in date) is
957: -- ----------------------------------------------------------------------------
958: -- |---------------------------< update_validate >----------------------------|
959: -- ----------------------------------------------------------------------------
960: Procedure update_validate
961: (p_rec in ben_emc_shd.g_rec_type,
962: p_effective_date in date,
963: p_datetrack_mode in varchar2,
964: p_validation_start_date in date,
965: p_validation_end_date in date) is
1037: -- ----------------------------------------------------------------------------
1038: -- |---------------------------< delete_validate >----------------------------|
1039: -- ----------------------------------------------------------------------------
1040: Procedure delete_validate
1041: (p_rec in ben_emc_shd.g_rec_type,
1042: p_effective_date in date,
1043: p_datetrack_mode in varchar2,
1044: p_validation_start_date in date,
1045: p_validation_end_date in date) is