42: Begin
43: --
44: hr_utility.set_location('Entering:'||l_proc, 5);
45: --
46: l_api_updating := ben_pum_shd.api_updating
47: (p_pop_up_messages_id => p_pop_up_messages_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_pop_up_messages_id,hr_api.g_number)
52: <> ben_pum_shd.g_old_rec.pop_up_messages_id) then
53: --
54: -- raise error as PK has changed
55: --
56: ben_pum_shd.constraint_error('BEN_POP_UP_MESSAGES_PK');
52: <> ben_pum_shd.g_old_rec.pop_up_messages_id) then
53: --
54: -- raise error as PK has changed
55: --
56: ben_pum_shd.constraint_error('BEN_POP_UP_MESSAGES_PK');
57: --
58: elsif not l_api_updating then
59: --
60: -- check if PK is null
62: if p_pop_up_messages_id is not null then
63: --
64: -- raise error as PK is not null
65: --
66: ben_pum_shd.constraint_error('BEN_POP_UP_MESSAGES_PK');
67: --
68: end if;
69: --
70: end if;
110: Begin
111: --
112: hr_utility.set_location('Entering:'||l_proc, 5);
113: --
114: l_api_updating := ben_pum_shd.api_updating
115: (p_pop_up_messages_id => p_pop_up_messages_id,
116: p_object_version_number => p_object_version_number);
117: --
118: if (l_api_updating
116: p_object_version_number => p_object_version_number);
117: --
118: if (l_api_updating
119: and p_no_formula_flag
120: <> nvl(ben_pum_shd.g_old_rec.no_formula_flag,hr_api.g_varchar2)
121: or not l_api_updating)
122: and p_no_formula_flag is not null then
123: --
124: -- check if value of lookup falls within lookup type.
197: Begin
198: --
199: hr_utility.set_location('Entering:'||l_proc, 5);
200: --
201: l_api_updating := ben_pum_shd.api_updating
202: (p_pop_up_messages_id => p_pop_up_messages_id,
203: p_object_version_number => p_object_version_number);
204: --
205: if (l_api_updating
203: p_object_version_number => p_object_version_number);
204: --
205: if (l_api_updating
206: and nvl(p_formula_id,hr_api.g_number)
207: <> ben_pum_shd.g_old_rec.formula_id
208: or not l_api_updating)
209: and p_formula_id is not null then
210: --
211: -- check if value of formula id is valid.
259: Begin
260: --
261: hr_utility.set_location('Entering:'||l_proc, 5);
262: --
263: l_api_updating := ben_pum_shd.api_updating
264: (p_pop_up_messages_id => p_pop_up_messages_id,
265: p_object_version_number => p_object_version_number);
266: --
267: if (l_api_updating
265: p_object_version_number => p_object_version_number);
266: --
267: if (l_api_updating
268: and nvl(p_function_name,hr_api.g_varchar2)
269: <> ben_pum_shd.g_old_rec.function_name
270: or not l_api_updating)
271: and p_function_name is not null then
272: --
273: -- check if value of function name is valid.
319: Begin
320: --
321: hr_utility.set_location('Entering:'||l_proc, 5);
322: --
323: l_api_updating := ben_pum_shd.api_updating
324: (p_pop_up_messages_id => p_pop_up_messages_id,
325: p_object_version_number => p_object_version_number);
326: --
327: if (l_api_updating
325: p_object_version_number => p_object_version_number);
326: --
327: if (l_api_updating
328: and nvl(p_message,hr_api.g_varchar2)
329: <> ben_pum_shd.g_old_rec.message
330: or not l_api_updating)
331: and p_message is not null then
332: --
333: -- check if value of function name is valid.
375: Begin
376: --
377: hr_utility.set_location('Entering:'||l_proc, 5);
378: --
379: l_api_updating := ben_pum_shd.api_updating
380: (p_pop_up_messages_id => p_pop_up_messages_id,
381: p_object_version_number => p_object_version_number);
382: --
383: if (l_api_updating
381: p_object_version_number => p_object_version_number);
382: --
383: if (l_api_updating
384: and p_block_name
385: <> nvl(ben_pum_shd.g_old_rec.block_name,hr_api.g_varchar2)
386: or not l_api_updating)
387: and p_block_name is not null then
388: --
389: -- check if value of lookup falls within lookup type.
424: Begin
425: --
426: hr_utility.set_location('Entering:'||l_proc, 5);
427: --
428: l_api_updating := ben_pum_shd.api_updating
429: (p_pop_up_messages_id => p_pop_up_messages_id,
430: p_object_version_number => p_object_version_number);
431: --
432: if (l_api_updating
430: p_object_version_number => p_object_version_number);
431: --
432: if (l_api_updating
433: and p_field_name
434: <> nvl(ben_pum_shd.g_old_rec.field_name,hr_api.g_varchar2)
435: or not l_api_updating)
436: and p_field_name is not null then
437: --
438: -- check if value of lookup falls within lookup type.
473: Begin
474: --
475: hr_utility.set_location('Entering:'||l_proc, 5);
476: --
477: l_api_updating := ben_pum_shd.api_updating
478: (p_pop_up_messages_id => p_pop_up_messages_id,
479: p_object_version_number => p_object_version_number);
480: --
481: if (l_api_updating
479: p_object_version_number => p_object_version_number);
480: --
481: if (l_api_updating
482: and p_event_name
483: <> nvl(ben_pum_shd.g_old_rec.event_name,hr_api.g_varchar2)
484: or not l_api_updating)
485: and p_event_name is not null then
486: --
487: -- check if value of lookup falls within lookup type.
522: Begin
523: --
524: hr_utility.set_location('Entering:'||l_proc, 5);
525: --
526: l_api_updating := ben_pum_shd.api_updating
527: (p_pop_up_messages_id => p_pop_up_messages_id,
528: p_object_version_number => p_object_version_number);
529: --
530: if (l_api_updating
528: p_object_version_number => p_object_version_number);
529: --
530: if (l_api_updating
531: and p_message_type
532: <> nvl(ben_pum_shd.g_old_rec.message_type,hr_api.g_varchar2)
533: or not l_api_updating)
534: and p_message_type is not null then
535: --
536: -- check if value of lookup falls within lookup type.
569: Begin
570: --
571: hr_utility.set_location('Entering:'||l_proc, 5);
572: --
573: l_api_updating := ben_pum_shd.api_updating
574: (p_pop_up_messages_id => p_pop_up_messages_id,
575: p_object_version_number => p_object_version_number);
576: --
577: if p_start_date > p_end_date
662: Begin
663: --
664: hr_utility.set_location('Entering:'||l_proc, 5);
665: --
666: l_api_updating := ben_pum_shd.api_updating
667: (p_pop_up_messages_id => p_pop_up_messages_id,
668: p_object_version_number => p_object_version_number);
669: --
670: if (l_api_updating
668: p_object_version_number => p_object_version_number);
669: --
670: if (l_api_updating
671: and nvl(p_pop_name,hr_api.g_varchar2)
672: <> ben_pum_shd.g_old_rec.pop_name
673: or not l_api_updating) then
674: --
675: -- Check if pop name is unique.
676: --
699: --
700: -- ----------------------------------------------------------------------------
701: -- |---------------------------< insert_validate >----------------------------|
702: -- ----------------------------------------------------------------------------
703: Procedure insert_validate(p_rec in ben_pum_shd.g_rec_type
704: ,p_effective_date in date) is
705: --
706: l_proc varchar2(72) := g_package||'insert_validate';
707: --
793: --
794: -- ----------------------------------------------------------------------------
795: -- |---------------------------< update_validate >----------------------------|
796: -- ----------------------------------------------------------------------------
797: Procedure update_validate(p_rec in ben_pum_shd.g_rec_type
798: ,p_effective_date in date) is
799: --
800: l_proc varchar2(72) := g_package||'update_validate';
801: --
887: --
888: -- ----------------------------------------------------------------------------
889: -- |---------------------------< delete_validate >----------------------------|
890: -- ----------------------------------------------------------------------------
891: Procedure delete_validate(p_rec in ben_pum_shd.g_rec_type
892: ,p_effective_date in date) is
893: --
894: l_proc varchar2(72) := g_package||'delete_validate';
895: --