42: Begin
43: --
44: hr_utility.set_location('Entering:'||l_proc, 5);
45: --
46: l_api_updating := ben_cla_shd.api_updating
47: (p_cmbn_age_los_fctr_id => p_cmbn_age_los_fctr_id,
48: p_object_version_number => p_object_version_number);
49: --
50: if (l_api_updating
48: p_object_version_number => p_object_version_number);
49: --
50: if (l_api_updating
51: and nvl(p_cmbn_age_los_fctr_id,hr_api.g_number)
52: <> ben_cla_shd.g_old_rec.cmbn_age_los_fctr_id) then
53: --
54: -- raise error as PK has changed
55: --
56: ben_cla_shd.constraint_error('BEN_CMB_AGE_LGTH_OF_SVC_FCT_PK');
52: <> ben_cla_shd.g_old_rec.cmbn_age_los_fctr_id) then
53: --
54: -- raise error as PK has changed
55: --
56: ben_cla_shd.constraint_error('BEN_CMB_AGE_LGTH_OF_SVC_FCT_PK');
57: --
58: elsif not l_api_updating then
59: --
60: -- check if PK is null
62: if p_cmbn_age_los_fctr_id is not null then
63: --
64: -- raise error as PK is not null
65: --
66: ben_cla_shd.constraint_error('BEN_CMB_AGE_LGTH_OF_SVC_FCT_PK');
67: --
68: end if;
69: --
70: end if;
114: Begin
115: --
116: hr_utility.set_location('Entering:'||l_proc,5);
117: --
118: l_api_updating := ben_cla_shd.api_updating
119: (p_cmbn_age_los_fctr_id => p_cmbn_age_los_fctr_id,
120: p_object_version_number => p_object_version_number);
121: --
122: if (l_api_updating
120: p_object_version_number => p_object_version_number);
121: --
122: if (l_api_updating
123: and nvl(p_age_fctr_id,hr_api.g_number)
124: <> nvl(ben_cla_shd.g_old_rec.age_fctr_id,hr_api.g_number)
125: or not l_api_updating) then
126: --
127: -- check if age_fctr_id value exists in ben_age_fctr table
128: --
135: --
136: -- raise error as FK does not relate to PK in ben_age_fctr
137: -- table.
138: --
139: ben_cla_shd.constraint_error('BEN_CMB_AGE_LGH_OF_SVC_FCT_FK1');
140: --
141: end if;
142: --
143: close c1;
189: Begin
190: --
191: hr_utility.set_location('Entering:'||l_proc,5);
192: --
193: l_api_updating := ben_cla_shd.api_updating
194: (p_cmbn_age_los_fctr_id => p_cmbn_age_los_fctr_id,
195: p_object_version_number => p_object_version_number);
196: --
197: if (l_api_updating
195: p_object_version_number => p_object_version_number);
196: --
197: if (l_api_updating
198: and nvl(p_los_fctr_id,hr_api.g_number)
199: <> nvl(ben_cla_shd.g_old_rec.los_fctr_id,hr_api.g_number)
200: or not l_api_updating) then
201: --
202: -- check if los_fctr_id value exists in ben_los_fctr table
203: --
210: --
211: -- raise error as FK does not relate to PK in ben_los_fctr
212: -- table.
213: --
214: ben_cla_shd.constraint_error('BEN_CMB_AGE_LGH_OF_SVC_FCT_FK2');
215: --
216: end if;
217: --
218: close c1;
337: Begin
338: --
339: hr_utility.set_location('Entering:'||l_proc, 5);
340: --
341: l_api_updating := ben_cla_shd.api_updating
342: (p_cmbn_age_los_fctr_id => p_cmbn_age_los_fctr_id,
343: -- p_effective_date => p_effective_date,
344: p_object_version_number => p_object_version_number);
345: --
344: p_object_version_number => p_object_version_number);
345: --
346: if (l_api_updating
347: and nvl(p_name,hr_api.g_varchar2)
348: <> ben_cla_shd.g_old_rec.name
349: or not l_api_updating)
350: and p_name is not null then
351: --
352: -- check if name already used.
439:
440: -- ----------------------------------------------------------------------------
441: -- |---------------------------< insert_validate >----------------------------|
442: -- ----------------------------------------------------------------------------
443: Procedure insert_validate(p_rec in ben_cla_shd.g_rec_type) is
444: --
445: l_proc varchar2(72) := g_package||'insert_validate';
446: --
447: Begin
484: --
485: -- ----------------------------------------------------------------------------
486: -- |---------------------------< update_validate >----------------------------|
487: -- ----------------------------------------------------------------------------
488: Procedure update_validate(p_rec in ben_cla_shd.g_rec_type) is
489: --
490: l_proc varchar2(72) := g_package||'update_validate';
491: --
492: Begin
531: --
532: -- ----------------------------------------------------------------------------
533: -- |---------------------------< delete_validate >----------------------------|
534: -- ----------------------------------------------------------------------------
535: Procedure delete_validate(p_rec in ben_cla_shd.g_rec_type) is
536: --
537: l_proc varchar2(72) := g_package||'delete_validate';
538: --
539: Begin