50: -- Internal Row Handler Use Only.
51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml(p_rec in out nocopy ben_xre_shd.g_rec_type) is
55: --
56: l_proc varchar2(72) := g_package||'update_dml';
57: --
58: Begin
61: -- Increment the object version
62: --
63: p_rec.object_version_number := p_rec.object_version_number + 1;
64: --
65: ben_xre_shd.g_api_dml := true; -- Set the api dml status
66: --
67: -- Update the ben_ext_rslt_err Row
68: --
69: update ben_ext_rslt_err
81: program_update_date = p_rec.program_update_date,
82: ext_rslt_id = p_rec.ext_rslt_id
83: where ext_rslt_err_id = p_rec.ext_rslt_err_id;
84: --
85: ben_xre_shd.g_api_dml := false; -- Unset the api dml status
86: --
87: hr_utility.set_location(' Leaving:'||l_proc, 10);
88: --
89: Exception
88: --
89: Exception
90: When hr_api.check_integrity_violated Then
91: -- A check constraint has been violated
92: ben_xre_shd.g_api_dml := false; -- Unset the api dml status
93: ben_xre_shd.constraint_error
94: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
95: When hr_api.parent_integrity_violated Then
96: -- Parent integrity has been violated
89: Exception
90: When hr_api.check_integrity_violated Then
91: -- A check constraint has been violated
92: ben_xre_shd.g_api_dml := false; -- Unset the api dml status
93: ben_xre_shd.constraint_error
94: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
95: When hr_api.parent_integrity_violated Then
96: -- Parent integrity has been violated
97: ben_xre_shd.g_api_dml := false; -- Unset the api dml status
93: ben_xre_shd.constraint_error
94: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
95: When hr_api.parent_integrity_violated Then
96: -- Parent integrity has been violated
97: ben_xre_shd.g_api_dml := false; -- Unset the api dml status
98: ben_xre_shd.constraint_error
99: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
100: When hr_api.unique_integrity_violated Then
101: -- Unique integrity has been violated
94: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
95: When hr_api.parent_integrity_violated Then
96: -- Parent integrity has been violated
97: ben_xre_shd.g_api_dml := false; -- Unset the api dml status
98: ben_xre_shd.constraint_error
99: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
100: When hr_api.unique_integrity_violated Then
101: -- Unique integrity has been violated
102: ben_xre_shd.g_api_dml := false; -- Unset the api dml status
98: ben_xre_shd.constraint_error
99: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
100: When hr_api.unique_integrity_violated Then
101: -- Unique integrity has been violated
102: ben_xre_shd.g_api_dml := false; -- Unset the api dml status
103: ben_xre_shd.constraint_error
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
105: When Others Then
106: ben_xre_shd.g_api_dml := false; -- Unset the api dml status
99: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
100: When hr_api.unique_integrity_violated Then
101: -- Unique integrity has been violated
102: ben_xre_shd.g_api_dml := false; -- Unset the api dml status
103: ben_xre_shd.constraint_error
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
105: When Others Then
106: ben_xre_shd.g_api_dml := false; -- Unset the api dml status
107: Raise;
102: ben_xre_shd.g_api_dml := false; -- Unset the api dml status
103: ben_xre_shd.constraint_error
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
105: When Others Then
106: ben_xre_shd.g_api_dml := false; -- Unset the api dml status
107: Raise;
108: End update_dml;
109: --
110: -- ----------------------------------------------------------------------------
138: -- Internal Row Handler Use Only.
139: --
140: -- {End Of Comments}
141: -- ----------------------------------------------------------------------------
142: Procedure pre_update(p_rec in ben_xre_shd.g_rec_type) is
143: --
144: l_proc varchar2(72) := g_package||'pre_update';
145: --
146: Begin
181: --
182: -- {End Of Comments}
183: -- ----------------------------------------------------------------------------
184: Procedure post_update(
185: p_effective_date in date,p_rec in ben_xre_shd.g_rec_type) is
186: --
187: l_proc varchar2(72) := g_package||'post_update';
188: --
189: Begin
208: ,p_program_id =>p_rec.program_id
209: ,p_program_update_date =>p_rec.program_update_date
210: ,p_ext_rslt_id =>p_rec.ext_rslt_id
211: ,p_effective_date =>p_effective_date
212: ,p_err_num_o =>ben_xre_shd.g_old_rec.err_num
213: ,p_err_txt_o =>ben_xre_shd.g_old_rec.err_txt
214: ,p_typ_cd_o =>ben_xre_shd.g_old_rec.typ_cd
215: ,p_person_id_o =>ben_xre_shd.g_old_rec.person_id
216: ,p_business_group_id_o =>ben_xre_shd.g_old_rec.business_group_id
209: ,p_program_update_date =>p_rec.program_update_date
210: ,p_ext_rslt_id =>p_rec.ext_rslt_id
211: ,p_effective_date =>p_effective_date
212: ,p_err_num_o =>ben_xre_shd.g_old_rec.err_num
213: ,p_err_txt_o =>ben_xre_shd.g_old_rec.err_txt
214: ,p_typ_cd_o =>ben_xre_shd.g_old_rec.typ_cd
215: ,p_person_id_o =>ben_xre_shd.g_old_rec.person_id
216: ,p_business_group_id_o =>ben_xre_shd.g_old_rec.business_group_id
217: ,p_object_version_number_o =>ben_xre_shd.g_old_rec.object_version_number
210: ,p_ext_rslt_id =>p_rec.ext_rslt_id
211: ,p_effective_date =>p_effective_date
212: ,p_err_num_o =>ben_xre_shd.g_old_rec.err_num
213: ,p_err_txt_o =>ben_xre_shd.g_old_rec.err_txt
214: ,p_typ_cd_o =>ben_xre_shd.g_old_rec.typ_cd
215: ,p_person_id_o =>ben_xre_shd.g_old_rec.person_id
216: ,p_business_group_id_o =>ben_xre_shd.g_old_rec.business_group_id
217: ,p_object_version_number_o =>ben_xre_shd.g_old_rec.object_version_number
218: ,p_request_id_o =>ben_xre_shd.g_old_rec.request_id
211: ,p_effective_date =>p_effective_date
212: ,p_err_num_o =>ben_xre_shd.g_old_rec.err_num
213: ,p_err_txt_o =>ben_xre_shd.g_old_rec.err_txt
214: ,p_typ_cd_o =>ben_xre_shd.g_old_rec.typ_cd
215: ,p_person_id_o =>ben_xre_shd.g_old_rec.person_id
216: ,p_business_group_id_o =>ben_xre_shd.g_old_rec.business_group_id
217: ,p_object_version_number_o =>ben_xre_shd.g_old_rec.object_version_number
218: ,p_request_id_o =>ben_xre_shd.g_old_rec.request_id
219: ,p_program_application_id_o =>ben_xre_shd.g_old_rec.program_application_id
212: ,p_err_num_o =>ben_xre_shd.g_old_rec.err_num
213: ,p_err_txt_o =>ben_xre_shd.g_old_rec.err_txt
214: ,p_typ_cd_o =>ben_xre_shd.g_old_rec.typ_cd
215: ,p_person_id_o =>ben_xre_shd.g_old_rec.person_id
216: ,p_business_group_id_o =>ben_xre_shd.g_old_rec.business_group_id
217: ,p_object_version_number_o =>ben_xre_shd.g_old_rec.object_version_number
218: ,p_request_id_o =>ben_xre_shd.g_old_rec.request_id
219: ,p_program_application_id_o =>ben_xre_shd.g_old_rec.program_application_id
220: ,p_program_id_o =>ben_xre_shd.g_old_rec.program_id
213: ,p_err_txt_o =>ben_xre_shd.g_old_rec.err_txt
214: ,p_typ_cd_o =>ben_xre_shd.g_old_rec.typ_cd
215: ,p_person_id_o =>ben_xre_shd.g_old_rec.person_id
216: ,p_business_group_id_o =>ben_xre_shd.g_old_rec.business_group_id
217: ,p_object_version_number_o =>ben_xre_shd.g_old_rec.object_version_number
218: ,p_request_id_o =>ben_xre_shd.g_old_rec.request_id
219: ,p_program_application_id_o =>ben_xre_shd.g_old_rec.program_application_id
220: ,p_program_id_o =>ben_xre_shd.g_old_rec.program_id
221: ,p_program_update_date_o =>ben_xre_shd.g_old_rec.program_update_date
214: ,p_typ_cd_o =>ben_xre_shd.g_old_rec.typ_cd
215: ,p_person_id_o =>ben_xre_shd.g_old_rec.person_id
216: ,p_business_group_id_o =>ben_xre_shd.g_old_rec.business_group_id
217: ,p_object_version_number_o =>ben_xre_shd.g_old_rec.object_version_number
218: ,p_request_id_o =>ben_xre_shd.g_old_rec.request_id
219: ,p_program_application_id_o =>ben_xre_shd.g_old_rec.program_application_id
220: ,p_program_id_o =>ben_xre_shd.g_old_rec.program_id
221: ,p_program_update_date_o =>ben_xre_shd.g_old_rec.program_update_date
222: ,p_ext_rslt_id_o =>ben_xre_shd.g_old_rec.ext_rslt_id
215: ,p_person_id_o =>ben_xre_shd.g_old_rec.person_id
216: ,p_business_group_id_o =>ben_xre_shd.g_old_rec.business_group_id
217: ,p_object_version_number_o =>ben_xre_shd.g_old_rec.object_version_number
218: ,p_request_id_o =>ben_xre_shd.g_old_rec.request_id
219: ,p_program_application_id_o =>ben_xre_shd.g_old_rec.program_application_id
220: ,p_program_id_o =>ben_xre_shd.g_old_rec.program_id
221: ,p_program_update_date_o =>ben_xre_shd.g_old_rec.program_update_date
222: ,p_ext_rslt_id_o =>ben_xre_shd.g_old_rec.ext_rslt_id
223: );
216: ,p_business_group_id_o =>ben_xre_shd.g_old_rec.business_group_id
217: ,p_object_version_number_o =>ben_xre_shd.g_old_rec.object_version_number
218: ,p_request_id_o =>ben_xre_shd.g_old_rec.request_id
219: ,p_program_application_id_o =>ben_xre_shd.g_old_rec.program_application_id
220: ,p_program_id_o =>ben_xre_shd.g_old_rec.program_id
221: ,p_program_update_date_o =>ben_xre_shd.g_old_rec.program_update_date
222: ,p_ext_rslt_id_o =>ben_xre_shd.g_old_rec.ext_rslt_id
223: );
224: --
217: ,p_object_version_number_o =>ben_xre_shd.g_old_rec.object_version_number
218: ,p_request_id_o =>ben_xre_shd.g_old_rec.request_id
219: ,p_program_application_id_o =>ben_xre_shd.g_old_rec.program_application_id
220: ,p_program_id_o =>ben_xre_shd.g_old_rec.program_id
221: ,p_program_update_date_o =>ben_xre_shd.g_old_rec.program_update_date
222: ,p_ext_rslt_id_o =>ben_xre_shd.g_old_rec.ext_rslt_id
223: );
224: --
225: exception
218: ,p_request_id_o =>ben_xre_shd.g_old_rec.request_id
219: ,p_program_application_id_o =>ben_xre_shd.g_old_rec.program_application_id
220: ,p_program_id_o =>ben_xre_shd.g_old_rec.program_id
221: ,p_program_update_date_o =>ben_xre_shd.g_old_rec.program_update_date
222: ,p_ext_rslt_id_o =>ben_xre_shd.g_old_rec.ext_rslt_id
223: );
224: --
225: exception
226: --
280: -- Internal Row Handler Use Only.
281: --
282: -- {End Of Comments}
283: -- ----------------------------------------------------------------------------
284: Procedure convert_defs(p_rec in out nocopy ben_xre_shd.g_rec_type) is
285: --
286: l_proc varchar2(72) := g_package||'convert_defs';
287: --
288: Begin
295: -- is being used then we must set to the 'current' argument value.
296: --
297: If (p_rec.err_num = hr_api.g_number) then
298: p_rec.err_num :=
299: ben_xre_shd.g_old_rec.err_num;
300: End If;
301: If (p_rec.err_txt = hr_api.g_varchar2) then
302: p_rec.err_txt :=
303: ben_xre_shd.g_old_rec.err_txt;
299: ben_xre_shd.g_old_rec.err_num;
300: End If;
301: If (p_rec.err_txt = hr_api.g_varchar2) then
302: p_rec.err_txt :=
303: ben_xre_shd.g_old_rec.err_txt;
304: End If;
305: If (p_rec.typ_cd = hr_api.g_varchar2) then
306: p_rec.typ_cd :=
307: ben_xre_shd.g_old_rec.typ_cd;
303: ben_xre_shd.g_old_rec.err_txt;
304: End If;
305: If (p_rec.typ_cd = hr_api.g_varchar2) then
306: p_rec.typ_cd :=
307: ben_xre_shd.g_old_rec.typ_cd;
308: End If;
309: If (p_rec.person_id = hr_api.g_number) then
310: p_rec.person_id :=
311: ben_xre_shd.g_old_rec.person_id;
307: ben_xre_shd.g_old_rec.typ_cd;
308: End If;
309: If (p_rec.person_id = hr_api.g_number) then
310: p_rec.person_id :=
311: ben_xre_shd.g_old_rec.person_id;
312: End If;
313: If (p_rec.business_group_id = hr_api.g_number) then
314: p_rec.business_group_id :=
315: ben_xre_shd.g_old_rec.business_group_id;
311: ben_xre_shd.g_old_rec.person_id;
312: End If;
313: If (p_rec.business_group_id = hr_api.g_number) then
314: p_rec.business_group_id :=
315: ben_xre_shd.g_old_rec.business_group_id;
316: End If;
317: If (p_rec.request_id = hr_api.g_number) then
318: p_rec.request_id :=
319: ben_xre_shd.g_old_rec.request_id;
315: ben_xre_shd.g_old_rec.business_group_id;
316: End If;
317: If (p_rec.request_id = hr_api.g_number) then
318: p_rec.request_id :=
319: ben_xre_shd.g_old_rec.request_id;
320: End If;
321: If (p_rec.program_application_id = hr_api.g_number) then
322: p_rec.program_application_id :=
323: ben_xre_shd.g_old_rec.program_application_id;
319: ben_xre_shd.g_old_rec.request_id;
320: End If;
321: If (p_rec.program_application_id = hr_api.g_number) then
322: p_rec.program_application_id :=
323: ben_xre_shd.g_old_rec.program_application_id;
324: End If;
325: If (p_rec.program_id = hr_api.g_number) then
326: p_rec.program_id :=
327: ben_xre_shd.g_old_rec.program_id;
323: ben_xre_shd.g_old_rec.program_application_id;
324: End If;
325: If (p_rec.program_id = hr_api.g_number) then
326: p_rec.program_id :=
327: ben_xre_shd.g_old_rec.program_id;
328: End If;
329: If (p_rec.program_update_date = hr_api.g_date) then
330: p_rec.program_update_date :=
331: ben_xre_shd.g_old_rec.program_update_date;
327: ben_xre_shd.g_old_rec.program_id;
328: End If;
329: If (p_rec.program_update_date = hr_api.g_date) then
330: p_rec.program_update_date :=
331: ben_xre_shd.g_old_rec.program_update_date;
332: End If;
333: If (p_rec.ext_rslt_id = hr_api.g_number) then
334: p_rec.ext_rslt_id :=
335: ben_xre_shd.g_old_rec.ext_rslt_id;
331: ben_xre_shd.g_old_rec.program_update_date;
332: End If;
333: If (p_rec.ext_rslt_id = hr_api.g_number) then
334: p_rec.ext_rslt_id :=
335: ben_xre_shd.g_old_rec.ext_rslt_id;
336: End If;
337: --
338: hr_utility.set_location(' Leaving:'||l_proc, 10);
339: --
344: -- ----------------------------------------------------------------------------
345: Procedure upd
346: (
347: p_effective_date in date,
348: p_rec in out nocopy ben_xre_shd.g_rec_type
349: ) is
350: --
351: l_proc varchar2(72) := g_package||'upd';
352: --
354: hr_utility.set_location('Entering:'||l_proc, 5);
355: --
356: -- We must lock the row which we need to update.
357: --
358: ben_xre_shd.lck
359: (
360: p_rec.ext_rslt_err_id,
361: p_rec.object_version_number
362: );
404: p_program_update_date in date default hr_api.g_date,
405: p_ext_rslt_id in number default hr_api.g_number
406: ) is
407: --
408: l_rec ben_xre_shd.g_rec_type;
409: l_proc varchar2(72) := g_package||'upd';
410: --
411: Begin
412: hr_utility.set_location('Entering:'||l_proc, 5);
414: -- Call conversion function to turn arguments into the
415: -- l_rec structure.
416: --
417: l_rec :=
418: ben_xre_shd.convert_args
419: (
420: p_ext_rslt_err_id,
421: p_err_num,
422: p_err_txt,