87: --
88: hr_utility.set_location(' Leaving:'||l_proc, 10);
89: --
90: Exception
91: When hr_api.check_integrity_violated Then
92: -- A check constraint has been violated
93: ben_bdi_shd.g_api_dml := false; -- Unset the api dml status
94: ben_bdi_shd.constraint_error
95: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
91: When hr_api.check_integrity_violated Then
92: -- A check constraint has been violated
93: ben_bdi_shd.g_api_dml := false; -- Unset the api dml status
94: ben_bdi_shd.constraint_error
95: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
96: When hr_api.parent_integrity_violated Then
97: -- Parent integrity has been violated
98: ben_bdi_shd.g_api_dml := false; -- Unset the api dml status
99: ben_bdi_shd.constraint_error
92: -- A check constraint has been violated
93: ben_bdi_shd.g_api_dml := false; -- Unset the api dml status
94: ben_bdi_shd.constraint_error
95: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
96: When hr_api.parent_integrity_violated Then
97: -- Parent integrity has been violated
98: ben_bdi_shd.g_api_dml := false; -- Unset the api dml status
99: ben_bdi_shd.constraint_error
100: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
96: When hr_api.parent_integrity_violated Then
97: -- Parent integrity has been violated
98: ben_bdi_shd.g_api_dml := false; -- Unset the api dml status
99: ben_bdi_shd.constraint_error
100: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
101: When hr_api.unique_integrity_violated Then
102: -- Unique integrity has been violated
103: ben_bdi_shd.g_api_dml := false; -- Unset the api dml status
104: ben_bdi_shd.constraint_error
97: -- Parent integrity has been violated
98: ben_bdi_shd.g_api_dml := false; -- Unset the api dml status
99: ben_bdi_shd.constraint_error
100: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
101: When hr_api.unique_integrity_violated Then
102: -- Unique integrity has been violated
103: ben_bdi_shd.g_api_dml := false; -- Unset the api dml status
104: ben_bdi_shd.constraint_error
105: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
101: When hr_api.unique_integrity_violated Then
102: -- Unique integrity has been violated
103: ben_bdi_shd.g_api_dml := false; -- Unset the api dml status
104: ben_bdi_shd.constraint_error
105: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
106: When Others Then
107: ben_bdi_shd.g_api_dml := false; -- Unset the api dml status
108: Raise;
109: End update_dml;
225: );
226: --
227: exception
228: --
229: when hr_api.cannot_find_prog_unit then
230: --
231: hr_api.cannot_find_prog_unit_error
232: (p_module_name => 'ben_batch_dpnt_info'
233: ,p_hook_type => 'AU');
227: exception
228: --
229: when hr_api.cannot_find_prog_unit then
230: --
231: hr_api.cannot_find_prog_unit_error
232: (p_module_name => 'ben_batch_dpnt_info'
233: ,p_hook_type => 'AU');
234: --
235: end;
295: -- p_rec plsql record structure
296: -- to see if a system default is being used. If a system default
297: -- is being used then we must set to the 'current' argument value.
298: --
299: If (p_rec.benefit_action_id = hr_api.g_number) then
300: p_rec.benefit_action_id :=
301: ben_bdi_shd.g_old_rec.benefit_action_id;
302: End If;
303: If (p_rec.person_id = hr_api.g_number) then
299: If (p_rec.benefit_action_id = hr_api.g_number) then
300: p_rec.benefit_action_id :=
301: ben_bdi_shd.g_old_rec.benefit_action_id;
302: End If;
303: If (p_rec.person_id = hr_api.g_number) then
304: p_rec.person_id :=
305: ben_bdi_shd.g_old_rec.person_id;
306: End If;
307: If (p_rec.pgm_id = hr_api.g_number) then
303: If (p_rec.person_id = hr_api.g_number) then
304: p_rec.person_id :=
305: ben_bdi_shd.g_old_rec.person_id;
306: End If;
307: If (p_rec.pgm_id = hr_api.g_number) then
308: p_rec.pgm_id :=
309: ben_bdi_shd.g_old_rec.pgm_id;
310: End If;
311: If (p_rec.pl_id = hr_api.g_number) then
307: If (p_rec.pgm_id = hr_api.g_number) then
308: p_rec.pgm_id :=
309: ben_bdi_shd.g_old_rec.pgm_id;
310: End If;
311: If (p_rec.pl_id = hr_api.g_number) then
312: p_rec.pl_id :=
313: ben_bdi_shd.g_old_rec.pl_id;
314: End If;
315: If (p_rec.oipl_id = hr_api.g_number) then
311: If (p_rec.pl_id = hr_api.g_number) then
312: p_rec.pl_id :=
313: ben_bdi_shd.g_old_rec.pl_id;
314: End If;
315: If (p_rec.oipl_id = hr_api.g_number) then
316: p_rec.oipl_id :=
317: ben_bdi_shd.g_old_rec.oipl_id;
318: End If;
319: If (p_rec.contact_typ_cd = hr_api.g_varchar2) then
315: If (p_rec.oipl_id = hr_api.g_number) then
316: p_rec.oipl_id :=
317: ben_bdi_shd.g_old_rec.oipl_id;
318: End If;
319: If (p_rec.contact_typ_cd = hr_api.g_varchar2) then
320: p_rec.contact_typ_cd :=
321: ben_bdi_shd.g_old_rec.contact_typ_cd;
322: End If;
323: If (p_rec.dpnt_person_id = hr_api.g_number) then
319: If (p_rec.contact_typ_cd = hr_api.g_varchar2) then
320: p_rec.contact_typ_cd :=
321: ben_bdi_shd.g_old_rec.contact_typ_cd;
322: End If;
323: If (p_rec.dpnt_person_id = hr_api.g_number) then
324: p_rec.dpnt_person_id :=
325: ben_bdi_shd.g_old_rec.dpnt_person_id;
326: End If;
327: If (p_rec.business_group_id = hr_api.g_number) then
323: If (p_rec.dpnt_person_id = hr_api.g_number) then
324: p_rec.dpnt_person_id :=
325: ben_bdi_shd.g_old_rec.dpnt_person_id;
326: End If;
327: If (p_rec.business_group_id = hr_api.g_number) then
328: p_rec.business_group_id :=
329: ben_bdi_shd.g_old_rec.business_group_id;
330: End If;
331: If (p_rec.enrt_cvg_strt_dt = hr_api.g_date) then
327: If (p_rec.business_group_id = hr_api.g_number) then
328: p_rec.business_group_id :=
329: ben_bdi_shd.g_old_rec.business_group_id;
330: End If;
331: If (p_rec.enrt_cvg_strt_dt = hr_api.g_date) then
332: p_rec.enrt_cvg_strt_dt :=
333: ben_bdi_shd.g_old_rec.enrt_cvg_strt_dt;
334: End If;
335: If (p_rec.enrt_cvg_thru_dt = hr_api.g_date) then
331: If (p_rec.enrt_cvg_strt_dt = hr_api.g_date) then
332: p_rec.enrt_cvg_strt_dt :=
333: ben_bdi_shd.g_old_rec.enrt_cvg_strt_dt;
334: End If;
335: If (p_rec.enrt_cvg_thru_dt = hr_api.g_date) then
336: p_rec.enrt_cvg_thru_dt :=
337: ben_bdi_shd.g_old_rec.enrt_cvg_thru_dt;
338: End If;
339: If (p_rec.actn_cd = hr_api.g_varchar2) then
335: If (p_rec.enrt_cvg_thru_dt = hr_api.g_date) then
336: p_rec.enrt_cvg_thru_dt :=
337: ben_bdi_shd.g_old_rec.enrt_cvg_thru_dt;
338: End If;
339: If (p_rec.actn_cd = hr_api.g_varchar2) then
340: p_rec.actn_cd :=
341: ben_bdi_shd.g_old_rec.actn_cd;
342: End If;
343: --
395: Procedure upd
396: (
397: p_effective_date in date,
398: p_batch_dpnt_id in number,
399: p_benefit_action_id in number default hr_api.g_number,
400: p_person_id in number default hr_api.g_number,
401: p_pgm_id in number default hr_api.g_number,
402: p_pl_id in number default hr_api.g_number,
403: p_oipl_id in number default hr_api.g_number,
396: (
397: p_effective_date in date,
398: p_batch_dpnt_id in number,
399: p_benefit_action_id in number default hr_api.g_number,
400: p_person_id in number default hr_api.g_number,
401: p_pgm_id in number default hr_api.g_number,
402: p_pl_id in number default hr_api.g_number,
403: p_oipl_id in number default hr_api.g_number,
404: p_contact_typ_cd in varchar2 default hr_api.g_varchar2,
397: p_effective_date in date,
398: p_batch_dpnt_id in number,
399: p_benefit_action_id in number default hr_api.g_number,
400: p_person_id in number default hr_api.g_number,
401: p_pgm_id in number default hr_api.g_number,
402: p_pl_id in number default hr_api.g_number,
403: p_oipl_id in number default hr_api.g_number,
404: p_contact_typ_cd in varchar2 default hr_api.g_varchar2,
405: p_dpnt_person_id in number default hr_api.g_number,
398: p_batch_dpnt_id in number,
399: p_benefit_action_id in number default hr_api.g_number,
400: p_person_id in number default hr_api.g_number,
401: p_pgm_id in number default hr_api.g_number,
402: p_pl_id in number default hr_api.g_number,
403: p_oipl_id in number default hr_api.g_number,
404: p_contact_typ_cd in varchar2 default hr_api.g_varchar2,
405: p_dpnt_person_id in number default hr_api.g_number,
406: p_business_group_id in number default hr_api.g_number,
399: p_benefit_action_id in number default hr_api.g_number,
400: p_person_id in number default hr_api.g_number,
401: p_pgm_id in number default hr_api.g_number,
402: p_pl_id in number default hr_api.g_number,
403: p_oipl_id in number default hr_api.g_number,
404: p_contact_typ_cd in varchar2 default hr_api.g_varchar2,
405: p_dpnt_person_id in number default hr_api.g_number,
406: p_business_group_id in number default hr_api.g_number,
407: p_object_version_number in out nocopy varchar2,
400: p_person_id in number default hr_api.g_number,
401: p_pgm_id in number default hr_api.g_number,
402: p_pl_id in number default hr_api.g_number,
403: p_oipl_id in number default hr_api.g_number,
404: p_contact_typ_cd in varchar2 default hr_api.g_varchar2,
405: p_dpnt_person_id in number default hr_api.g_number,
406: p_business_group_id in number default hr_api.g_number,
407: p_object_version_number in out nocopy varchar2,
408: p_enrt_cvg_strt_dt in date default hr_api.g_date,
401: p_pgm_id in number default hr_api.g_number,
402: p_pl_id in number default hr_api.g_number,
403: p_oipl_id in number default hr_api.g_number,
404: p_contact_typ_cd in varchar2 default hr_api.g_varchar2,
405: p_dpnt_person_id in number default hr_api.g_number,
406: p_business_group_id in number default hr_api.g_number,
407: p_object_version_number in out nocopy varchar2,
408: p_enrt_cvg_strt_dt in date default hr_api.g_date,
409: p_enrt_cvg_thru_dt in date default hr_api.g_date,
402: p_pl_id in number default hr_api.g_number,
403: p_oipl_id in number default hr_api.g_number,
404: p_contact_typ_cd in varchar2 default hr_api.g_varchar2,
405: p_dpnt_person_id in number default hr_api.g_number,
406: p_business_group_id in number default hr_api.g_number,
407: p_object_version_number in out nocopy varchar2,
408: p_enrt_cvg_strt_dt in date default hr_api.g_date,
409: p_enrt_cvg_thru_dt in date default hr_api.g_date,
410: p_actn_cd in varchar2 default hr_api.g_varchar2
404: p_contact_typ_cd in varchar2 default hr_api.g_varchar2,
405: p_dpnt_person_id in number default hr_api.g_number,
406: p_business_group_id in number default hr_api.g_number,
407: p_object_version_number in out nocopy varchar2,
408: p_enrt_cvg_strt_dt in date default hr_api.g_date,
409: p_enrt_cvg_thru_dt in date default hr_api.g_date,
410: p_actn_cd in varchar2 default hr_api.g_varchar2
411: ) is
412: --
405: p_dpnt_person_id in number default hr_api.g_number,
406: p_business_group_id in number default hr_api.g_number,
407: p_object_version_number in out nocopy varchar2,
408: p_enrt_cvg_strt_dt in date default hr_api.g_date,
409: p_enrt_cvg_thru_dt in date default hr_api.g_date,
410: p_actn_cd in varchar2 default hr_api.g_varchar2
411: ) is
412: --
413: l_rec ben_bdi_shd.g_rec_type;
406: p_business_group_id in number default hr_api.g_number,
407: p_object_version_number in out nocopy varchar2,
408: p_enrt_cvg_strt_dt in date default hr_api.g_date,
409: p_enrt_cvg_thru_dt in date default hr_api.g_date,
410: p_actn_cd in varchar2 default hr_api.g_varchar2
411: ) is
412: --
413: l_rec ben_bdi_shd.g_rec_type;
414: l_proc varchar2(72) := g_package||'upd';