[Home] [Help]
51: --
52: -- {End Of Comments}
53: -- --------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy ben_aud_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
96: Exception
97: When hr_api.check_integrity_violated Then
98: -- A check constraint has been violated
99: --
100: ben_aud_shd.constraint_error
101: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
102: When hr_api.parent_integrity_violated Then
103: -- Parent integrity has been violated
104: --
101: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
102: When hr_api.parent_integrity_violated Then
103: -- Parent integrity has been violated
104: --
105: ben_aud_shd.constraint_error
106: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
107: When hr_api.unique_integrity_violated Then
108: -- Unique integrity has been violated
109: --
106: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
107: When hr_api.unique_integrity_violated Then
108: -- Unique integrity has been violated
109: --
110: ben_aud_shd.constraint_error
111: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
112: When Others Then
113: --
114: Raise;
146: --
147: -- {End Of Comments}
148: -- ----------------------------------------------------------------------------
149: Procedure pre_update
150: (p_rec in ben_aud_shd.g_rec_type
151: ) is
152: --
153: l_proc varchar2(72) := g_package||'pre_update';
154: --
190: --
191: -- {End Of Comments}
192: -- ----------------------------------------------------------------------------
193: Procedure post_update
194: (p_rec in ben_aud_shd.g_rec_type
195: ) is
196: --
197: l_proc varchar2(72) := g_package||'post_update';
198: --
237: => p_rec.request_id
238: ,p_object_version_number
239: => p_rec.object_version_number
240: ,p_group_per_in_ler_id_o
241: => ben_aud_shd.g_old_rec.group_per_in_ler_id
242: ,p_group_pl_id_o
243: => ben_aud_shd.g_old_rec.group_pl_id
244: ,p_lf_evt_ocrd_dt_o
245: => ben_aud_shd.g_old_rec.lf_evt_ocrd_dt
239: => p_rec.object_version_number
240: ,p_group_per_in_ler_id_o
241: => ben_aud_shd.g_old_rec.group_per_in_ler_id
242: ,p_group_pl_id_o
243: => ben_aud_shd.g_old_rec.group_pl_id
244: ,p_lf_evt_ocrd_dt_o
245: => ben_aud_shd.g_old_rec.lf_evt_ocrd_dt
246: ,p_pl_id_o
247: => ben_aud_shd.g_old_rec.pl_id
241: => ben_aud_shd.g_old_rec.group_per_in_ler_id
242: ,p_group_pl_id_o
243: => ben_aud_shd.g_old_rec.group_pl_id
244: ,p_lf_evt_ocrd_dt_o
245: => ben_aud_shd.g_old_rec.lf_evt_ocrd_dt
246: ,p_pl_id_o
247: => ben_aud_shd.g_old_rec.pl_id
248: ,p_group_oipl_id_o
249: => ben_aud_shd.g_old_rec.group_oipl_id
243: => ben_aud_shd.g_old_rec.group_pl_id
244: ,p_lf_evt_ocrd_dt_o
245: => ben_aud_shd.g_old_rec.lf_evt_ocrd_dt
246: ,p_pl_id_o
247: => ben_aud_shd.g_old_rec.pl_id
248: ,p_group_oipl_id_o
249: => ben_aud_shd.g_old_rec.group_oipl_id
250: ,p_audit_type_cd_o
251: => ben_aud_shd.g_old_rec.audit_type_cd
245: => ben_aud_shd.g_old_rec.lf_evt_ocrd_dt
246: ,p_pl_id_o
247: => ben_aud_shd.g_old_rec.pl_id
248: ,p_group_oipl_id_o
249: => ben_aud_shd.g_old_rec.group_oipl_id
250: ,p_audit_type_cd_o
251: => ben_aud_shd.g_old_rec.audit_type_cd
252: ,p_old_val_varchar_o
253: => ben_aud_shd.g_old_rec.old_val_varchar
247: => ben_aud_shd.g_old_rec.pl_id
248: ,p_group_oipl_id_o
249: => ben_aud_shd.g_old_rec.group_oipl_id
250: ,p_audit_type_cd_o
251: => ben_aud_shd.g_old_rec.audit_type_cd
252: ,p_old_val_varchar_o
253: => ben_aud_shd.g_old_rec.old_val_varchar
254: ,p_new_val_varchar_o
255: => ben_aud_shd.g_old_rec.new_val_varchar
249: => ben_aud_shd.g_old_rec.group_oipl_id
250: ,p_audit_type_cd_o
251: => ben_aud_shd.g_old_rec.audit_type_cd
252: ,p_old_val_varchar_o
253: => ben_aud_shd.g_old_rec.old_val_varchar
254: ,p_new_val_varchar_o
255: => ben_aud_shd.g_old_rec.new_val_varchar
256: ,p_old_val_number_o
257: => ben_aud_shd.g_old_rec.old_val_number
251: => ben_aud_shd.g_old_rec.audit_type_cd
252: ,p_old_val_varchar_o
253: => ben_aud_shd.g_old_rec.old_val_varchar
254: ,p_new_val_varchar_o
255: => ben_aud_shd.g_old_rec.new_val_varchar
256: ,p_old_val_number_o
257: => ben_aud_shd.g_old_rec.old_val_number
258: ,p_new_val_number_o
259: => ben_aud_shd.g_old_rec.new_val_number
253: => ben_aud_shd.g_old_rec.old_val_varchar
254: ,p_new_val_varchar_o
255: => ben_aud_shd.g_old_rec.new_val_varchar
256: ,p_old_val_number_o
257: => ben_aud_shd.g_old_rec.old_val_number
258: ,p_new_val_number_o
259: => ben_aud_shd.g_old_rec.new_val_number
260: ,p_old_val_date_o
261: => ben_aud_shd.g_old_rec.old_val_date
255: => ben_aud_shd.g_old_rec.new_val_varchar
256: ,p_old_val_number_o
257: => ben_aud_shd.g_old_rec.old_val_number
258: ,p_new_val_number_o
259: => ben_aud_shd.g_old_rec.new_val_number
260: ,p_old_val_date_o
261: => ben_aud_shd.g_old_rec.old_val_date
262: ,p_new_val_date_o
263: => ben_aud_shd.g_old_rec.new_val_date
257: => ben_aud_shd.g_old_rec.old_val_number
258: ,p_new_val_number_o
259: => ben_aud_shd.g_old_rec.new_val_number
260: ,p_old_val_date_o
261: => ben_aud_shd.g_old_rec.old_val_date
262: ,p_new_val_date_o
263: => ben_aud_shd.g_old_rec.new_val_date
264: ,p_date_stamp_o
265: => ben_aud_shd.g_old_rec.date_stamp
259: => ben_aud_shd.g_old_rec.new_val_number
260: ,p_old_val_date_o
261: => ben_aud_shd.g_old_rec.old_val_date
262: ,p_new_val_date_o
263: => ben_aud_shd.g_old_rec.new_val_date
264: ,p_date_stamp_o
265: => ben_aud_shd.g_old_rec.date_stamp
266: ,p_change_made_by_person_id_o
267: => ben_aud_shd.g_old_rec.change_made_by_person_id
261: => ben_aud_shd.g_old_rec.old_val_date
262: ,p_new_val_date_o
263: => ben_aud_shd.g_old_rec.new_val_date
264: ,p_date_stamp_o
265: => ben_aud_shd.g_old_rec.date_stamp
266: ,p_change_made_by_person_id_o
267: => ben_aud_shd.g_old_rec.change_made_by_person_id
268: ,p_supporting_information_o
269: => ben_aud_shd.g_old_rec.supporting_information
263: => ben_aud_shd.g_old_rec.new_val_date
264: ,p_date_stamp_o
265: => ben_aud_shd.g_old_rec.date_stamp
266: ,p_change_made_by_person_id_o
267: => ben_aud_shd.g_old_rec.change_made_by_person_id
268: ,p_supporting_information_o
269: => ben_aud_shd.g_old_rec.supporting_information
270: ,p_request_id_o
271: => ben_aud_shd.g_old_rec.request_id
265: => ben_aud_shd.g_old_rec.date_stamp
266: ,p_change_made_by_person_id_o
267: => ben_aud_shd.g_old_rec.change_made_by_person_id
268: ,p_supporting_information_o
269: => ben_aud_shd.g_old_rec.supporting_information
270: ,p_request_id_o
271: => ben_aud_shd.g_old_rec.request_id
272: ,p_object_version_number_o
273: => ben_aud_shd.g_old_rec.object_version_number
267: => ben_aud_shd.g_old_rec.change_made_by_person_id
268: ,p_supporting_information_o
269: => ben_aud_shd.g_old_rec.supporting_information
270: ,p_request_id_o
271: => ben_aud_shd.g_old_rec.request_id
272: ,p_object_version_number_o
273: => ben_aud_shd.g_old_rec.object_version_number
274: );
275: --
269: => ben_aud_shd.g_old_rec.supporting_information
270: ,p_request_id_o
271: => ben_aud_shd.g_old_rec.request_id
272: ,p_object_version_number_o
273: => ben_aud_shd.g_old_rec.object_version_number
274: );
275: --
276: exception
277: --
329: --
330: -- {End Of Comments}
331: -- ----------------------------------------------------------------------------
332: Procedure convert_defs
333: (p_rec in out nocopy ben_aud_shd.g_rec_type
334: ) is
335: --
336: Begin
337: --
341: -- is being used then we must set to the 'current' argument value.
342: --
343: If (p_rec.group_per_in_ler_id = hr_api.g_number) then
344: p_rec.group_per_in_ler_id :=
345: ben_aud_shd.g_old_rec.group_per_in_ler_id;
346: End If;
347: If (p_rec.group_pl_id = hr_api.g_number) then
348: p_rec.group_pl_id :=
349: ben_aud_shd.g_old_rec.group_pl_id;
345: ben_aud_shd.g_old_rec.group_per_in_ler_id;
346: End If;
347: If (p_rec.group_pl_id = hr_api.g_number) then
348: p_rec.group_pl_id :=
349: ben_aud_shd.g_old_rec.group_pl_id;
350: End If;
351: If (p_rec.lf_evt_ocrd_dt = hr_api.g_date) then
352: p_rec.lf_evt_ocrd_dt :=
353: ben_aud_shd.g_old_rec.lf_evt_ocrd_dt;
349: ben_aud_shd.g_old_rec.group_pl_id;
350: End If;
351: If (p_rec.lf_evt_ocrd_dt = hr_api.g_date) then
352: p_rec.lf_evt_ocrd_dt :=
353: ben_aud_shd.g_old_rec.lf_evt_ocrd_dt;
354: End If;
355: If (p_rec.pl_id = hr_api.g_number) then
356: p_rec.pl_id :=
357: ben_aud_shd.g_old_rec.pl_id;
353: ben_aud_shd.g_old_rec.lf_evt_ocrd_dt;
354: End If;
355: If (p_rec.pl_id = hr_api.g_number) then
356: p_rec.pl_id :=
357: ben_aud_shd.g_old_rec.pl_id;
358: End If;
359: If (p_rec.group_oipl_id = hr_api.g_number) then
360: p_rec.group_oipl_id :=
361: ben_aud_shd.g_old_rec.group_oipl_id;
357: ben_aud_shd.g_old_rec.pl_id;
358: End If;
359: If (p_rec.group_oipl_id = hr_api.g_number) then
360: p_rec.group_oipl_id :=
361: ben_aud_shd.g_old_rec.group_oipl_id;
362: End If;
363: If (p_rec.audit_type_cd = hr_api.g_varchar2) then
364: p_rec.audit_type_cd :=
365: ben_aud_shd.g_old_rec.audit_type_cd;
361: ben_aud_shd.g_old_rec.group_oipl_id;
362: End If;
363: If (p_rec.audit_type_cd = hr_api.g_varchar2) then
364: p_rec.audit_type_cd :=
365: ben_aud_shd.g_old_rec.audit_type_cd;
366: End If;
367: If (p_rec.old_val_varchar = hr_api.g_varchar2) then
368: p_rec.old_val_varchar :=
369: ben_aud_shd.g_old_rec.old_val_varchar;
365: ben_aud_shd.g_old_rec.audit_type_cd;
366: End If;
367: If (p_rec.old_val_varchar = hr_api.g_varchar2) then
368: p_rec.old_val_varchar :=
369: ben_aud_shd.g_old_rec.old_val_varchar;
370: End If;
371: If (p_rec.new_val_varchar = hr_api.g_varchar2) then
372: p_rec.new_val_varchar :=
373: ben_aud_shd.g_old_rec.new_val_varchar;
369: ben_aud_shd.g_old_rec.old_val_varchar;
370: End If;
371: If (p_rec.new_val_varchar = hr_api.g_varchar2) then
372: p_rec.new_val_varchar :=
373: ben_aud_shd.g_old_rec.new_val_varchar;
374: End If;
375: If (p_rec.old_val_number = hr_api.g_number) then
376: p_rec.old_val_number :=
377: ben_aud_shd.g_old_rec.old_val_number;
373: ben_aud_shd.g_old_rec.new_val_varchar;
374: End If;
375: If (p_rec.old_val_number = hr_api.g_number) then
376: p_rec.old_val_number :=
377: ben_aud_shd.g_old_rec.old_val_number;
378: End If;
379: If (p_rec.new_val_number = hr_api.g_number) then
380: p_rec.new_val_number :=
381: ben_aud_shd.g_old_rec.new_val_number;
377: ben_aud_shd.g_old_rec.old_val_number;
378: End If;
379: If (p_rec.new_val_number = hr_api.g_number) then
380: p_rec.new_val_number :=
381: ben_aud_shd.g_old_rec.new_val_number;
382: End If;
383: If (p_rec.old_val_date = hr_api.g_date) then
384: p_rec.old_val_date :=
385: ben_aud_shd.g_old_rec.old_val_date;
381: ben_aud_shd.g_old_rec.new_val_number;
382: End If;
383: If (p_rec.old_val_date = hr_api.g_date) then
384: p_rec.old_val_date :=
385: ben_aud_shd.g_old_rec.old_val_date;
386: End If;
387: If (p_rec.new_val_date = hr_api.g_date) then
388: p_rec.new_val_date :=
389: ben_aud_shd.g_old_rec.new_val_date;
385: ben_aud_shd.g_old_rec.old_val_date;
386: End If;
387: If (p_rec.new_val_date = hr_api.g_date) then
388: p_rec.new_val_date :=
389: ben_aud_shd.g_old_rec.new_val_date;
390: End If;
391: If (p_rec.date_stamp = hr_api.g_date) then
392: p_rec.date_stamp :=
393: ben_aud_shd.g_old_rec.date_stamp;
389: ben_aud_shd.g_old_rec.new_val_date;
390: End If;
391: If (p_rec.date_stamp = hr_api.g_date) then
392: p_rec.date_stamp :=
393: ben_aud_shd.g_old_rec.date_stamp;
394: End If;
395: If (p_rec.change_made_by_person_id = hr_api.g_number) then
396: p_rec.change_made_by_person_id :=
397: ben_aud_shd.g_old_rec.change_made_by_person_id;
393: ben_aud_shd.g_old_rec.date_stamp;
394: End If;
395: If (p_rec.change_made_by_person_id = hr_api.g_number) then
396: p_rec.change_made_by_person_id :=
397: ben_aud_shd.g_old_rec.change_made_by_person_id;
398: End If;
399: If (p_rec.supporting_information = hr_api.g_varchar2) then
400: p_rec.supporting_information :=
401: ben_aud_shd.g_old_rec.supporting_information;
397: ben_aud_shd.g_old_rec.change_made_by_person_id;
398: End If;
399: If (p_rec.supporting_information = hr_api.g_varchar2) then
400: p_rec.supporting_information :=
401: ben_aud_shd.g_old_rec.supporting_information;
402: End If;
403: If (p_rec.request_id = hr_api.g_number) then
404: p_rec.request_id :=
405: ben_aud_shd.g_old_rec.request_id;
401: ben_aud_shd.g_old_rec.supporting_information;
402: End If;
403: If (p_rec.request_id = hr_api.g_number) then
404: p_rec.request_id :=
405: ben_aud_shd.g_old_rec.request_id;
406: End If;
407: --
408: End convert_defs;
409: --
410: -- ----------------------------------------------------------------------------
411: -- |---------------------------------< upd >----------------------------------|
412: -- ----------------------------------------------------------------------------
413: Procedure upd
414: (p_rec in out nocopy ben_aud_shd.g_rec_type
415: ) is
416: --
417: l_proc varchar2(72) := g_package||'upd';
418: --
420: hr_utility.set_location('Entering:'||l_proc, 5);
421: --
422: -- We must lock the row which we need to update.
423: --
424: ben_aud_shd.lck
425: (p_rec.cwb_audit_id
426: ,p_rec.object_version_number
427: );
428: --
481: ,p_supporting_information in varchar2 default hr_api.g_varchar2
482: ,p_request_id in number default hr_api.g_number
483: ) is
484: --
485: l_rec ben_aud_shd.g_rec_type;
486: l_proc varchar2(72) := g_package||'upd';
487: --
488: Begin
489: hr_utility.set_location('Entering:'||l_proc, 5);
491: -- Call conversion function to turn arguments into the
492: -- l_rec structure.
493: --
494: l_rec :=
495: ben_aud_shd.convert_args
496: (p_cwb_audit_id
497: ,p_group_per_in_ler_id
498: ,p_group_pl_id
499: ,p_lf_evt_ocrd_dt