197: -- Internal Row Handler Use Only.
198: --
199: -- ----------------------------------------------------------------------------
200: procedure chk_ddf
201: (p_rec in irc_cmp_shd.g_rec_type
202: ) is
203: --
204: l_proc varchar2(72) := g_package || 'chk_ddf';
205: --
206: begin
207: hr_utility.set_location('Entering:'||l_proc,10);
208: --
209: if ((p_rec.communication_property_id is not null) and (
210: nvl(irc_cmp_shd.g_old_rec.information_category, hr_api.g_varchar2) <>
211: nvl(p_rec.information_category, hr_api.g_varchar2) or
212: nvl(irc_cmp_shd.g_old_rec.information1, hr_api.g_varchar2) <>
213: nvl(p_rec.information1, hr_api.g_varchar2) or
214: nvl(irc_cmp_shd.g_old_rec.information2, hr_api.g_varchar2) <>
208: --
209: if ((p_rec.communication_property_id is not null) and (
210: nvl(irc_cmp_shd.g_old_rec.information_category, hr_api.g_varchar2) <>
211: nvl(p_rec.information_category, hr_api.g_varchar2) or
212: nvl(irc_cmp_shd.g_old_rec.information1, hr_api.g_varchar2) <>
213: nvl(p_rec.information1, hr_api.g_varchar2) or
214: nvl(irc_cmp_shd.g_old_rec.information2, hr_api.g_varchar2) <>
215: nvl(p_rec.information2, hr_api.g_varchar2) or
216: nvl(irc_cmp_shd.g_old_rec.information3, hr_api.g_varchar2) <>
210: nvl(irc_cmp_shd.g_old_rec.information_category, hr_api.g_varchar2) <>
211: nvl(p_rec.information_category, hr_api.g_varchar2) or
212: nvl(irc_cmp_shd.g_old_rec.information1, hr_api.g_varchar2) <>
213: nvl(p_rec.information1, hr_api.g_varchar2) or
214: nvl(irc_cmp_shd.g_old_rec.information2, hr_api.g_varchar2) <>
215: nvl(p_rec.information2, hr_api.g_varchar2) or
216: nvl(irc_cmp_shd.g_old_rec.information3, hr_api.g_varchar2) <>
217: nvl(p_rec.information3, hr_api.g_varchar2) or
218: nvl(irc_cmp_shd.g_old_rec.information4, hr_api.g_varchar2) <>
212: nvl(irc_cmp_shd.g_old_rec.information1, hr_api.g_varchar2) <>
213: nvl(p_rec.information1, hr_api.g_varchar2) or
214: nvl(irc_cmp_shd.g_old_rec.information2, hr_api.g_varchar2) <>
215: nvl(p_rec.information2, hr_api.g_varchar2) or
216: nvl(irc_cmp_shd.g_old_rec.information3, hr_api.g_varchar2) <>
217: nvl(p_rec.information3, hr_api.g_varchar2) or
218: nvl(irc_cmp_shd.g_old_rec.information4, hr_api.g_varchar2) <>
219: nvl(p_rec.information4, hr_api.g_varchar2) or
220: nvl(irc_cmp_shd.g_old_rec.information5, hr_api.g_varchar2) <>
214: nvl(irc_cmp_shd.g_old_rec.information2, hr_api.g_varchar2) <>
215: nvl(p_rec.information2, hr_api.g_varchar2) or
216: nvl(irc_cmp_shd.g_old_rec.information3, hr_api.g_varchar2) <>
217: nvl(p_rec.information3, hr_api.g_varchar2) or
218: nvl(irc_cmp_shd.g_old_rec.information4, hr_api.g_varchar2) <>
219: nvl(p_rec.information4, hr_api.g_varchar2) or
220: nvl(irc_cmp_shd.g_old_rec.information5, hr_api.g_varchar2) <>
221: nvl(p_rec.information5, hr_api.g_varchar2) or
222: nvl(irc_cmp_shd.g_old_rec.information6, hr_api.g_varchar2) <>
216: nvl(irc_cmp_shd.g_old_rec.information3, hr_api.g_varchar2) <>
217: nvl(p_rec.information3, hr_api.g_varchar2) or
218: nvl(irc_cmp_shd.g_old_rec.information4, hr_api.g_varchar2) <>
219: nvl(p_rec.information4, hr_api.g_varchar2) or
220: nvl(irc_cmp_shd.g_old_rec.information5, hr_api.g_varchar2) <>
221: nvl(p_rec.information5, hr_api.g_varchar2) or
222: nvl(irc_cmp_shd.g_old_rec.information6, hr_api.g_varchar2) <>
223: nvl(p_rec.information6, hr_api.g_varchar2) or
224: nvl(irc_cmp_shd.g_old_rec.information7, hr_api.g_varchar2) <>
218: nvl(irc_cmp_shd.g_old_rec.information4, hr_api.g_varchar2) <>
219: nvl(p_rec.information4, hr_api.g_varchar2) or
220: nvl(irc_cmp_shd.g_old_rec.information5, hr_api.g_varchar2) <>
221: nvl(p_rec.information5, hr_api.g_varchar2) or
222: nvl(irc_cmp_shd.g_old_rec.information6, hr_api.g_varchar2) <>
223: nvl(p_rec.information6, hr_api.g_varchar2) or
224: nvl(irc_cmp_shd.g_old_rec.information7, hr_api.g_varchar2) <>
225: nvl(p_rec.information7, hr_api.g_varchar2) or
226: nvl(irc_cmp_shd.g_old_rec.information8, hr_api.g_varchar2) <>
220: nvl(irc_cmp_shd.g_old_rec.information5, hr_api.g_varchar2) <>
221: nvl(p_rec.information5, hr_api.g_varchar2) or
222: nvl(irc_cmp_shd.g_old_rec.information6, hr_api.g_varchar2) <>
223: nvl(p_rec.information6, hr_api.g_varchar2) or
224: nvl(irc_cmp_shd.g_old_rec.information7, hr_api.g_varchar2) <>
225: nvl(p_rec.information7, hr_api.g_varchar2) or
226: nvl(irc_cmp_shd.g_old_rec.information8, hr_api.g_varchar2) <>
227: nvl(p_rec.information8, hr_api.g_varchar2) or
228: nvl(irc_cmp_shd.g_old_rec.information9, hr_api.g_varchar2) <>
222: nvl(irc_cmp_shd.g_old_rec.information6, hr_api.g_varchar2) <>
223: nvl(p_rec.information6, hr_api.g_varchar2) or
224: nvl(irc_cmp_shd.g_old_rec.information7, hr_api.g_varchar2) <>
225: nvl(p_rec.information7, hr_api.g_varchar2) or
226: nvl(irc_cmp_shd.g_old_rec.information8, hr_api.g_varchar2) <>
227: nvl(p_rec.information8, hr_api.g_varchar2) or
228: nvl(irc_cmp_shd.g_old_rec.information9, hr_api.g_varchar2) <>
229: nvl(p_rec.information9, hr_api.g_varchar2) or
230: nvl(irc_cmp_shd.g_old_rec.information10, hr_api.g_varchar2) <>
224: nvl(irc_cmp_shd.g_old_rec.information7, hr_api.g_varchar2) <>
225: nvl(p_rec.information7, hr_api.g_varchar2) or
226: nvl(irc_cmp_shd.g_old_rec.information8, hr_api.g_varchar2) <>
227: nvl(p_rec.information8, hr_api.g_varchar2) or
228: nvl(irc_cmp_shd.g_old_rec.information9, hr_api.g_varchar2) <>
229: nvl(p_rec.information9, hr_api.g_varchar2) or
230: nvl(irc_cmp_shd.g_old_rec.information10, hr_api.g_varchar2) <>
231: nvl(p_rec.information10, hr_api.g_varchar2) ))
232: or (p_rec.communication_property_id is null) then
226: nvl(irc_cmp_shd.g_old_rec.information8, hr_api.g_varchar2) <>
227: nvl(p_rec.information8, hr_api.g_varchar2) or
228: nvl(irc_cmp_shd.g_old_rec.information9, hr_api.g_varchar2) <>
229: nvl(p_rec.information9, hr_api.g_varchar2) or
230: nvl(irc_cmp_shd.g_old_rec.information10, hr_api.g_varchar2) <>
231: nvl(p_rec.information10, hr_api.g_varchar2) ))
232: or (p_rec.communication_property_id is null) then
233: --
234: -- Only execute the validation if absolutely necessary:
294: -- Internal Row Handler Use Only.
295: --
296: -- ----------------------------------------------------------------------------
297: procedure chk_df
298: (p_rec in irc_cmp_shd.g_rec_type
299: ) is
300: --
301: l_proc varchar2(72) := g_package || 'chk_df';
302: --
303: begin
304: hr_utility.set_location('Entering:'||l_proc,10);
305: --
306: if ((p_rec.communication_property_id is not null) and (
307: nvl(irc_cmp_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
308: nvl(p_rec.attribute_category, hr_api.g_varchar2) or
309: nvl(irc_cmp_shd.g_old_rec.attribute1, hr_api.g_varchar2) <>
310: nvl(p_rec.attribute1, hr_api.g_varchar2) or
311: nvl(irc_cmp_shd.g_old_rec.attribute2, hr_api.g_varchar2) <>
305: --
306: if ((p_rec.communication_property_id is not null) and (
307: nvl(irc_cmp_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
308: nvl(p_rec.attribute_category, hr_api.g_varchar2) or
309: nvl(irc_cmp_shd.g_old_rec.attribute1, hr_api.g_varchar2) <>
310: nvl(p_rec.attribute1, hr_api.g_varchar2) or
311: nvl(irc_cmp_shd.g_old_rec.attribute2, hr_api.g_varchar2) <>
312: nvl(p_rec.attribute2, hr_api.g_varchar2) or
313: nvl(irc_cmp_shd.g_old_rec.attribute3, hr_api.g_varchar2) <>
307: nvl(irc_cmp_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
308: nvl(p_rec.attribute_category, hr_api.g_varchar2) or
309: nvl(irc_cmp_shd.g_old_rec.attribute1, hr_api.g_varchar2) <>
310: nvl(p_rec.attribute1, hr_api.g_varchar2) or
311: nvl(irc_cmp_shd.g_old_rec.attribute2, hr_api.g_varchar2) <>
312: nvl(p_rec.attribute2, hr_api.g_varchar2) or
313: nvl(irc_cmp_shd.g_old_rec.attribute3, hr_api.g_varchar2) <>
314: nvl(p_rec.attribute3, hr_api.g_varchar2) or
315: nvl(irc_cmp_shd.g_old_rec.attribute4, hr_api.g_varchar2) <>
309: nvl(irc_cmp_shd.g_old_rec.attribute1, hr_api.g_varchar2) <>
310: nvl(p_rec.attribute1, hr_api.g_varchar2) or
311: nvl(irc_cmp_shd.g_old_rec.attribute2, hr_api.g_varchar2) <>
312: nvl(p_rec.attribute2, hr_api.g_varchar2) or
313: nvl(irc_cmp_shd.g_old_rec.attribute3, hr_api.g_varchar2) <>
314: nvl(p_rec.attribute3, hr_api.g_varchar2) or
315: nvl(irc_cmp_shd.g_old_rec.attribute4, hr_api.g_varchar2) <>
316: nvl(p_rec.attribute4, hr_api.g_varchar2) or
317: nvl(irc_cmp_shd.g_old_rec.attribute5, hr_api.g_varchar2) <>
311: nvl(irc_cmp_shd.g_old_rec.attribute2, hr_api.g_varchar2) <>
312: nvl(p_rec.attribute2, hr_api.g_varchar2) or
313: nvl(irc_cmp_shd.g_old_rec.attribute3, hr_api.g_varchar2) <>
314: nvl(p_rec.attribute3, hr_api.g_varchar2) or
315: nvl(irc_cmp_shd.g_old_rec.attribute4, hr_api.g_varchar2) <>
316: nvl(p_rec.attribute4, hr_api.g_varchar2) or
317: nvl(irc_cmp_shd.g_old_rec.attribute5, hr_api.g_varchar2) <>
318: nvl(p_rec.attribute5, hr_api.g_varchar2) or
319: nvl(irc_cmp_shd.g_old_rec.attribute6, hr_api.g_varchar2) <>
313: nvl(irc_cmp_shd.g_old_rec.attribute3, hr_api.g_varchar2) <>
314: nvl(p_rec.attribute3, hr_api.g_varchar2) or
315: nvl(irc_cmp_shd.g_old_rec.attribute4, hr_api.g_varchar2) <>
316: nvl(p_rec.attribute4, hr_api.g_varchar2) or
317: nvl(irc_cmp_shd.g_old_rec.attribute5, hr_api.g_varchar2) <>
318: nvl(p_rec.attribute5, hr_api.g_varchar2) or
319: nvl(irc_cmp_shd.g_old_rec.attribute6, hr_api.g_varchar2) <>
320: nvl(p_rec.attribute6, hr_api.g_varchar2) or
321: nvl(irc_cmp_shd.g_old_rec.attribute7, hr_api.g_varchar2) <>
315: nvl(irc_cmp_shd.g_old_rec.attribute4, hr_api.g_varchar2) <>
316: nvl(p_rec.attribute4, hr_api.g_varchar2) or
317: nvl(irc_cmp_shd.g_old_rec.attribute5, hr_api.g_varchar2) <>
318: nvl(p_rec.attribute5, hr_api.g_varchar2) or
319: nvl(irc_cmp_shd.g_old_rec.attribute6, hr_api.g_varchar2) <>
320: nvl(p_rec.attribute6, hr_api.g_varchar2) or
321: nvl(irc_cmp_shd.g_old_rec.attribute7, hr_api.g_varchar2) <>
322: nvl(p_rec.attribute7, hr_api.g_varchar2) or
323: nvl(irc_cmp_shd.g_old_rec.attribute8, hr_api.g_varchar2) <>
317: nvl(irc_cmp_shd.g_old_rec.attribute5, hr_api.g_varchar2) <>
318: nvl(p_rec.attribute5, hr_api.g_varchar2) or
319: nvl(irc_cmp_shd.g_old_rec.attribute6, hr_api.g_varchar2) <>
320: nvl(p_rec.attribute6, hr_api.g_varchar2) or
321: nvl(irc_cmp_shd.g_old_rec.attribute7, hr_api.g_varchar2) <>
322: nvl(p_rec.attribute7, hr_api.g_varchar2) or
323: nvl(irc_cmp_shd.g_old_rec.attribute8, hr_api.g_varchar2) <>
324: nvl(p_rec.attribute8, hr_api.g_varchar2) or
325: nvl(irc_cmp_shd.g_old_rec.attribute9, hr_api.g_varchar2) <>
319: nvl(irc_cmp_shd.g_old_rec.attribute6, hr_api.g_varchar2) <>
320: nvl(p_rec.attribute6, hr_api.g_varchar2) or
321: nvl(irc_cmp_shd.g_old_rec.attribute7, hr_api.g_varchar2) <>
322: nvl(p_rec.attribute7, hr_api.g_varchar2) or
323: nvl(irc_cmp_shd.g_old_rec.attribute8, hr_api.g_varchar2) <>
324: nvl(p_rec.attribute8, hr_api.g_varchar2) or
325: nvl(irc_cmp_shd.g_old_rec.attribute9, hr_api.g_varchar2) <>
326: nvl(p_rec.attribute9, hr_api.g_varchar2) or
327: nvl(irc_cmp_shd.g_old_rec.attribute10, hr_api.g_varchar2) <>
321: nvl(irc_cmp_shd.g_old_rec.attribute7, hr_api.g_varchar2) <>
322: nvl(p_rec.attribute7, hr_api.g_varchar2) or
323: nvl(irc_cmp_shd.g_old_rec.attribute8, hr_api.g_varchar2) <>
324: nvl(p_rec.attribute8, hr_api.g_varchar2) or
325: nvl(irc_cmp_shd.g_old_rec.attribute9, hr_api.g_varchar2) <>
326: nvl(p_rec.attribute9, hr_api.g_varchar2) or
327: nvl(irc_cmp_shd.g_old_rec.attribute10, hr_api.g_varchar2) <>
328: nvl(p_rec.attribute10, hr_api.g_varchar2) ))
329: or (p_rec.communication_property_id is null) then
323: nvl(irc_cmp_shd.g_old_rec.attribute8, hr_api.g_varchar2) <>
324: nvl(p_rec.attribute8, hr_api.g_varchar2) or
325: nvl(irc_cmp_shd.g_old_rec.attribute9, hr_api.g_varchar2) <>
326: nvl(p_rec.attribute9, hr_api.g_varchar2) or
327: nvl(irc_cmp_shd.g_old_rec.attribute10, hr_api.g_varchar2) <>
328: nvl(p_rec.attribute10, hr_api.g_varchar2) ))
329: or (p_rec.communication_property_id is null) then
330: --
331: -- Only execute the validation if absolutely necessary:
391: -- {End Of Comments}
392: -- ----------------------------------------------------------------------------
393: Procedure chk_non_updateable_args
394: (p_effective_date in date
395: ,p_rec in irc_cmp_shd.g_rec_type
396: ) IS
397: --
398: l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
399: --
401: --
402: -- Only proceed with the validation if a row exists for the current
403: -- record in the HR Schema.
404: --
405: IF NOT irc_cmp_shd.api_updating
406: (p_communication_property_id => p_rec.communication_property_id
407: ,p_object_version_number => p_rec.object_version_number
408: ) THEN
409: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
415: -- EDIT_HERE: Add checks to ensure non-updateable args have
416: -- not been updated.
417: --
418: IF p_rec.object_type <>
419: irc_cmp_shd.g_old_rec.object_type then
420: hr_api.argument_changed_error
421: (p_api_name => l_proc
422: ,p_argument => 'OBJECT_TYPE'
423: ,p_base_table => irc_cmp_shd.g_tab_nam
419: irc_cmp_shd.g_old_rec.object_type then
420: hr_api.argument_changed_error
421: (p_api_name => l_proc
422: ,p_argument => 'OBJECT_TYPE'
423: ,p_base_table => irc_cmp_shd.g_tab_nam
424: );
425: END IF;
426: --
427: IF p_rec.object_id <> irc_cmp_shd.g_old_rec.object_id THEN
423: ,p_base_table => irc_cmp_shd.g_tab_nam
424: );
425: END IF;
426: --
427: IF p_rec.object_id <> irc_cmp_shd.g_old_rec.object_id THEN
428: IF p_rec.object_type = 'VACANCY' THEN
429: hr_api.argument_changed_error
430: ( p_api_name => l_proc
431: ,p_argument => 'VACANCY_ID'
428: IF p_rec.object_type = 'VACANCY' THEN
429: hr_api.argument_changed_error
430: ( p_api_name => l_proc
431: ,p_argument => 'VACANCY_ID'
432: ,p_base_table => irc_cmp_shd.g_tab_nam
433: );
434: END IF;
435: END IF;
436: --
473: l_api_updating boolean;
474: --
475: begin
476: hr_utility.set_location('Entering: '|| l_proc, 10);
477: l_api_updating := irc_cmp_shd.api_updating
478: (p_communication_property_id => p_communication_property_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 nvl(p_status,hr_api.g_varchar2)
483: <> nvl(irc_cmp_shd.g_old_rec.default_comm_status,hr_api.g_varchar2)
484: or not l_api_updating) then
485: --
486: -- check if value of type falls within lookup.
487: --
537: l_api_updating boolean;
538: --
539: begin
540: hr_utility.set_location('Entering: '|| l_proc, 10);
541: l_api_updating := irc_cmp_shd.api_updating
542: (p_communication_property_id => p_communication_property_id,
543: p_object_version_number => p_object_version_number);
544: --
545: if (l_api_updating
543: p_object_version_number => p_object_version_number);
544: --
545: if (l_api_updating
546: and nvl(p_flag,hr_api.g_varchar2)
547: <> nvl(irc_cmp_shd.g_old_rec.allow_attachment_flag,hr_api.g_varchar2)
548: or not l_api_updating) then
549: --
550: -- check if value of type falls within lookup.
551: --
601: l_api_updating boolean;
602: --
603: begin
604: hr_utility.set_location('Entering: '|| l_proc, 10);
605: l_api_updating := irc_cmp_shd.api_updating
606: (p_communication_property_id => p_communication_property_id,
607: p_object_version_number => p_object_version_number);
608: --
609: if (l_api_updating
607: p_object_version_number => p_object_version_number);
608: --
609: if (l_api_updating
610: and nvl(p_allow_add_recipients,hr_api.g_varchar2)
611: <> nvl(irc_cmp_shd.g_old_rec.allow_add_recipients,hr_api.g_varchar2)
612: or not l_api_updating) then
613: --
614: -- check if value of type falls within lookup.
615: --
665: l_api_updating boolean;
666: --
667: begin
668: hr_utility.set_location('Entering: '|| l_proc, 10);
669: l_api_updating := irc_cmp_shd.api_updating
670: (p_communication_property_id => p_communication_property_id,
671: p_object_version_number => p_object_version_number);
672: --
673: if (l_api_updating
671: p_object_version_number => p_object_version_number);
672: --
673: if (l_api_updating
674: and nvl(p_auto_notification_flag,hr_api.g_varchar2)
675: <> nvl(irc_cmp_shd.g_old_rec.auto_notification_flag,hr_api.g_varchar2)
676: or not l_api_updating) then
677: --
678: -- check if value of type falls within lookup.
679: --
729: l_api_updating boolean;
730: --
731: begin
732: hr_utility.set_location('Entering: '|| l_proc, 10);
733: l_api_updating := irc_cmp_shd.api_updating
734: (p_communication_property_id => p_communication_property_id,
735: p_object_version_number => p_object_version_number);
736: --
737: if (l_api_updating
735: p_object_version_number => p_object_version_number);
736: --
737: if (l_api_updating
738: and nvl(p_default_moderator,hr_api.g_varchar2)
739: <> nvl(irc_cmp_shd.g_old_rec.default_moderator,hr_api.g_varchar2)
740: or not l_api_updating) then
741: --
742: -- check if value of type falls within lookup.
743: --
906: -- |---------------------------< insert_update_validate >----------------------|
907: -- ----------------------------------------------------------------------------
908: Procedure insert_update_validate
909: (p_effective_date in date
910: ,p_rec in irc_cmp_shd.g_rec_type
911: ) is
912: --
913: l_proc varchar2(72) := g_package||'insert_validate';
914: --
959: -- |---------------------------< insert_validate >----------------------------|
960: -- ----------------------------------------------------------------------------
961: Procedure insert_validate
962: (p_effective_date in date
963: ,p_rec in irc_cmp_shd.g_rec_type
964: ) is
965: --
966: l_proc varchar2(72) := g_package||'insert_validate';
967: --
996: -- |---------------------------< update_validate >----------------------------|
997: -- ----------------------------------------------------------------------------
998: Procedure update_validate
999: (p_effective_date in date
1000: ,p_rec in irc_cmp_shd.g_rec_type
1001: ) is
1002: --
1003: l_proc varchar2(72) := g_package||'update_validate';
1004: --
1035: -- ----------------------------------------------------------------------------
1036: -- |---------------------------< delete_validate >----------------------------|
1037: -- ----------------------------------------------------------------------------
1038: Procedure delete_validate
1039: (p_rec in irc_cmp_shd.g_rec_type
1040: ) is
1041: --
1042: l_proc varchar2(72) := g_package||'delete_validate';
1043: --