43: Begin
44: --
45: hr_utility.set_location('Entering:'||l_proc, 5);
46: --
47: l_api_updating := ben_cmt_shd.api_updating
48: (p_cm_dlvry_mthd_typ_id => p_cm_dlvry_mthd_typ_id,
49: p_object_version_number => p_object_version_number);
50: --
51: if (l_api_updating
49: p_object_version_number => p_object_version_number);
50: --
51: if (l_api_updating
52: and nvl(p_cm_dlvry_mthd_typ_id,hr_api.g_number)
53: <> ben_cmt_shd.g_old_rec.cm_dlvry_mthd_typ_id) then
54: --
55: -- raise error as PK has changed
56: --
57: ben_cmt_shd.constraint_error('BEN_CM_DLVRY_MTHD_TYP_PK');
53: <> ben_cmt_shd.g_old_rec.cm_dlvry_mthd_typ_id) then
54: --
55: -- raise error as PK has changed
56: --
57: ben_cmt_shd.constraint_error('BEN_CM_DLVRY_MTHD_TYP_PK');
58: --
59: elsif not l_api_updating then
60: --
61: -- check if PK is null
63: if p_cm_dlvry_mthd_typ_id is not null then
64: --
65: -- raise error as PK is not null
66: --
67: ben_cmt_shd.constraint_error('BEN_CM_DLVRY_MTHD_TYP_PK');
68: --
69: end if;
70: --
71: end if;
115: Begin
116: --
117: hr_utility.set_location('Entering:'||l_proc,5);
118: --
119: l_api_updating := ben_cmt_shd.api_updating
120: (p_cm_dlvry_mthd_typ_id => p_cm_dlvry_mthd_typ_id,
121: p_object_version_number => p_object_version_number);
122: --
123: if (l_api_updating
121: p_object_version_number => p_object_version_number);
122: --
123: if (l_api_updating
124: and nvl(p_cm_typ_id,hr_api.g_number)
125: <> nvl(ben_cmt_shd.g_old_rec.cm_typ_id,hr_api.g_number)
126: or not l_api_updating) and
127: p_cm_typ_id is not null then
128: --
129: -- check if cm_typ_id value exists in ben_cm_typ_f table
137: --
138: -- raise error as FK does not relate to PK in ben_cm_typ_f
139: -- table.
140: --
141: ben_cmt_shd.constraint_error('BEN_CM_DLVRY_MTHD_TYP_FK3');
142: --
143: end if;
144: --
145: close c1;
187: Begin
188: --
189: hr_utility.set_location('Entering:'||l_proc, 5);
190: --
191: l_api_updating := ben_cmt_shd.api_updating
192: (p_cm_dlvry_mthd_typ_id => p_cm_dlvry_mthd_typ_id,
193: p_object_version_number => p_object_version_number);
194: --
195: if (l_api_updating
193: p_object_version_number => p_object_version_number);
194: --
195: if (l_api_updating
196: and p_dflt_flag
197: <> nvl(ben_cmt_shd.g_old_rec.dflt_flag,hr_api.g_varchar2)
198: or not l_api_updating) then
199: --
200: -- check if value of lookup falls within lookup type.
201: --
255: Begin
256: --
257: hr_utility.set_location('Entering:'||l_proc, 5);
258: --
259: l_api_updating := ben_cmt_shd.api_updating
260: (p_cm_dlvry_mthd_typ_id => p_cm_dlvry_mthd_typ_id,
261: p_object_version_number => p_object_version_number);
262: --
263: if (l_api_updating
261: p_object_version_number => p_object_version_number);
262: --
263: if (l_api_updating
264: and p_rqd_flag
265: <> nvl(ben_cmt_shd.g_old_rec.rqd_flag,hr_api.g_varchar2)
266: or not l_api_updating) then
267: --
268: -- check if value of lookup falls within lookup type.
269: --
324: Begin
325: --
326: hr_utility.set_location('Entering:'||l_proc, 5);
327: --
328: l_api_updating := ben_cmt_shd.api_updating
329: (p_cm_dlvry_mthd_typ_id => p_cm_dlvry_mthd_typ_id,
330: p_object_version_number => p_object_version_number);
331: --
332: if (l_api_updating
330: p_object_version_number => p_object_version_number);
331: --
332: if (l_api_updating
333: and p_cm_dlvry_mthd_typ_cd
334: <> nvl(ben_cmt_shd.g_old_rec.cm_dlvry_mthd_typ_cd,hr_api.g_varchar2)
335: or not l_api_updating) then
336: --
337: -- check if value of lookup falls within lookup type.
338: --
408: Begin
409: --
410: hr_utility.set_location('Entering:'||l_proc, 5);
411: --
412: l_api_updating := ben_cmt_shd.api_updating
413: ( p_cm_dlvry_mthd_typ_id => p_cm_dlvry_mthd_typ_id,
414: p_object_version_number => p_object_version_number);
415: --
416: if (l_api_updating
413: ( p_cm_dlvry_mthd_typ_id => p_cm_dlvry_mthd_typ_id,
414: p_object_version_number => p_object_version_number);
415: --
416: if (l_api_updating
417: and p_cm_dlvry_mthd_typ_cd <> ben_cmt_shd.g_old_rec.cm_dlvry_mthd_typ_cd)
418: or
419: not l_api_updating then
420: --
421: hr_utility.set_location('Entering:'||l_proc, 10);
428: close crs_cm_dlvry_mthd;
429: --
430: -- raise error as UK1 is violated
431: --
432: -- ben_cmt_shd.constraint_error('BEN_REGN_UK1');
433: fnd_message.set_name('BEN','BEN_91407_DUP_CM_MTHD_CD');
434: fnd_message.raise_error;
435: --
436: end if;
445:
446: -- ----------------------------------------------------------------------------
447: -- |---------------------------< insert_validate >----------------------------|
448: -- ----------------------------------------------------------------------------
449: Procedure insert_validate(p_rec in ben_cmt_shd.g_rec_type
450: ,p_effective_date in date) is
451: --
452: l_proc varchar2(72) := g_package||'insert_validate';
453: --
499: --
500: -- ----------------------------------------------------------------------------
501: -- |---------------------------< update_validate >----------------------------|
502: -- ----------------------------------------------------------------------------
503: Procedure update_validate(p_rec in ben_cmt_shd.g_rec_type
504: ,p_effective_date in date) is
505: --
506: l_proc varchar2(72) := g_package||'update_validate';
507: --
553: --
554: -- ----------------------------------------------------------------------------
555: -- |---------------------------< delete_validate >----------------------------|
556: -- ----------------------------------------------------------------------------
557: Procedure delete_validate(p_rec in ben_cmt_shd.g_rec_type
558: ,p_effective_date in date) is
559: --
560: l_proc varchar2(72) := g_package||'delete_validate';
561: --