84: --
85: hr_utility.set_location(' Leaving:'||l_proc, 10);
86: --
87: Exception
88: When hr_api.check_integrity_violated Then
89: -- A check constraint has been violated
90: --
91: irc_cmr_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
88: When hr_api.check_integrity_violated Then
89: -- A check constraint has been violated
90: --
91: irc_cmr_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.parent_integrity_violated Then
94: -- Parent integrity has been violated
95: --
96: irc_cmr_shd.constraint_error
89: -- A check constraint has been violated
90: --
91: irc_cmr_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.parent_integrity_violated Then
94: -- Parent integrity has been violated
95: --
96: irc_cmr_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.parent_integrity_violated Then
94: -- Parent integrity has been violated
95: --
96: irc_cmr_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.unique_integrity_violated Then
99: -- Unique integrity has been violated
100: --
101: irc_cmr_shd.constraint_error
94: -- Parent integrity has been violated
95: --
96: irc_cmr_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.unique_integrity_violated Then
99: -- Unique integrity has been violated
100: --
101: irc_cmr_shd.constraint_error
102: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.unique_integrity_violated Then
99: -- Unique integrity has been violated
100: --
101: irc_cmr_shd.constraint_error
102: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
103: When Others Then
104: --
105: Raise;
106: End update_dml;
231: );
232: --
233: exception
234: --
235: when hr_api.cannot_find_prog_unit then
236: --
237: hr_api.cannot_find_prog_unit_error
238: (p_module_name => 'IRC_COMM_RECIPIENTS'
239: ,p_hook_type => 'AU');
233: exception
234: --
235: when hr_api.cannot_find_prog_unit then
236: --
237: hr_api.cannot_find_prog_unit_error
238: (p_module_name => 'IRC_COMM_RECIPIENTS'
239: ,p_hook_type => 'AU');
240: --
241: end;
296: -- p_rec plsql record structure
297: -- to see if a system default is being used. If a system default
298: -- is being used then we must set to the 'current' argument value.
299: --
300: If (p_rec.communication_object_type = hr_api.g_varchar2) then
301: p_rec.communication_object_type :=
302: irc_cmr_shd.g_old_rec.communication_object_type;
303: End If;
304: If (p_rec.communication_object_id = hr_api.g_number) then
300: If (p_rec.communication_object_type = hr_api.g_varchar2) then
301: p_rec.communication_object_type :=
302: irc_cmr_shd.g_old_rec.communication_object_type;
303: End If;
304: If (p_rec.communication_object_id = hr_api.g_number) then
305: p_rec.communication_object_id :=
306: irc_cmr_shd.g_old_rec.communication_object_id;
307: End If;
308: If (p_rec.recipient_type = hr_api.g_varchar2) then
304: If (p_rec.communication_object_id = hr_api.g_number) then
305: p_rec.communication_object_id :=
306: irc_cmr_shd.g_old_rec.communication_object_id;
307: End If;
308: If (p_rec.recipient_type = hr_api.g_varchar2) then
309: p_rec.recipient_type :=
310: irc_cmr_shd.g_old_rec.recipient_type;
311: End If;
312: If (p_rec.recipient_id = hr_api.g_number) then
308: If (p_rec.recipient_type = hr_api.g_varchar2) then
309: p_rec.recipient_type :=
310: irc_cmr_shd.g_old_rec.recipient_type;
311: End If;
312: If (p_rec.recipient_id = hr_api.g_number) then
313: p_rec.recipient_id :=
314: irc_cmr_shd.g_old_rec.recipient_id;
315: End If;
316: If (p_rec.start_date_active = hr_api.g_date) then
312: If (p_rec.recipient_id = hr_api.g_number) then
313: p_rec.recipient_id :=
314: irc_cmr_shd.g_old_rec.recipient_id;
315: End If;
316: If (p_rec.start_date_active = hr_api.g_date) then
317: p_rec.start_date_active :=
318: irc_cmr_shd.g_old_rec.start_date_active;
319: End If;
320: If (p_rec.end_date_active = hr_api.g_date) then
316: If (p_rec.start_date_active = hr_api.g_date) then
317: p_rec.start_date_active :=
318: irc_cmr_shd.g_old_rec.start_date_active;
319: End If;
320: If (p_rec.end_date_active = hr_api.g_date) then
321: p_rec.end_date_active :=
322: irc_cmr_shd.g_old_rec.end_date_active;
323: End If;
324: If (p_rec.primary_flag = hr_api.g_varchar2) then
320: If (p_rec.end_date_active = hr_api.g_date) then
321: p_rec.end_date_active :=
322: irc_cmr_shd.g_old_rec.end_date_active;
323: End If;
324: If (p_rec.primary_flag = hr_api.g_varchar2) then
325: p_rec.primary_flag :=
326: irc_cmr_shd.g_old_rec.primary_flag;
327: End If;
328: --
388: Procedure upd
389: (p_effective_date in date
390: ,p_communication_recipient_id in number
391: ,p_object_version_number in out nocopy number
392: ,p_communication_object_type in varchar2 default hr_api.g_varchar2
393: ,p_communication_object_id in number default hr_api.g_number
394: ,p_recipient_type in varchar2 default hr_api.g_varchar2
395: ,p_recipient_id in number default hr_api.g_number
396: ,p_start_date_active in date default hr_api.g_date
389: (p_effective_date in date
390: ,p_communication_recipient_id in number
391: ,p_object_version_number in out nocopy number
392: ,p_communication_object_type in varchar2 default hr_api.g_varchar2
393: ,p_communication_object_id in number default hr_api.g_number
394: ,p_recipient_type in varchar2 default hr_api.g_varchar2
395: ,p_recipient_id in number default hr_api.g_number
396: ,p_start_date_active in date default hr_api.g_date
397: ,p_end_date_active in date default hr_api.g_date
390: ,p_communication_recipient_id in number
391: ,p_object_version_number in out nocopy number
392: ,p_communication_object_type in varchar2 default hr_api.g_varchar2
393: ,p_communication_object_id in number default hr_api.g_number
394: ,p_recipient_type in varchar2 default hr_api.g_varchar2
395: ,p_recipient_id in number default hr_api.g_number
396: ,p_start_date_active in date default hr_api.g_date
397: ,p_end_date_active in date default hr_api.g_date
398: ,p_primary_flag in varchar2 default hr_api.g_varchar2
391: ,p_object_version_number in out nocopy number
392: ,p_communication_object_type in varchar2 default hr_api.g_varchar2
393: ,p_communication_object_id in number default hr_api.g_number
394: ,p_recipient_type in varchar2 default hr_api.g_varchar2
395: ,p_recipient_id in number default hr_api.g_number
396: ,p_start_date_active in date default hr_api.g_date
397: ,p_end_date_active in date default hr_api.g_date
398: ,p_primary_flag in varchar2 default hr_api.g_varchar2
399: ) is
392: ,p_communication_object_type in varchar2 default hr_api.g_varchar2
393: ,p_communication_object_id in number default hr_api.g_number
394: ,p_recipient_type in varchar2 default hr_api.g_varchar2
395: ,p_recipient_id in number default hr_api.g_number
396: ,p_start_date_active in date default hr_api.g_date
397: ,p_end_date_active in date default hr_api.g_date
398: ,p_primary_flag in varchar2 default hr_api.g_varchar2
399: ) is
400: --
393: ,p_communication_object_id in number default hr_api.g_number
394: ,p_recipient_type in varchar2 default hr_api.g_varchar2
395: ,p_recipient_id in number default hr_api.g_number
396: ,p_start_date_active in date default hr_api.g_date
397: ,p_end_date_active in date default hr_api.g_date
398: ,p_primary_flag in varchar2 default hr_api.g_varchar2
399: ) is
400: --
401: l_rec irc_cmr_shd.g_rec_type;
394: ,p_recipient_type in varchar2 default hr_api.g_varchar2
395: ,p_recipient_id in number default hr_api.g_number
396: ,p_start_date_active in date default hr_api.g_date
397: ,p_end_date_active in date default hr_api.g_date
398: ,p_primary_flag in varchar2 default hr_api.g_varchar2
399: ) is
400: --
401: l_rec irc_cmr_shd.g_rec_type;
402: l_proc varchar2(72) := g_package||'upd';