[Home] [Help]
51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy psp_prt_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
62: --
63: -- Increment the object version
64: p_rec.object_version_number := p_rec.object_version_number + 1;
65: --
66: psp_prt_shd.g_api_dml := true; -- Set the api dml status
67: --
68: -- Update the psp_report_templates Row
69: --
70: update psp_report_templates
91: ,hundred_pcent_eff_at_per_asg = p_rec.hundred_pcent_eff_at_per_asg
92: ,selection_match_level = p_rec.selection_match_level
93: where template_id = p_rec.template_id;
94: --
95: psp_prt_shd.g_api_dml := false; -- Unset the api dml status
96: --
97: hr_utility.set_location(' Leaving:'||l_proc, 10);
98: --
99: Exception
98: --
99: Exception
100: When hr_api.check_integrity_violated Then
101: -- A check constraint has been violated
102: psp_prt_shd.g_api_dml := false; -- Unset the api dml status
103: psp_prt_shd.constraint_error
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
105: When hr_api.parent_integrity_violated Then
106: -- Parent integrity has been violated
99: Exception
100: When hr_api.check_integrity_violated Then
101: -- A check constraint has been violated
102: psp_prt_shd.g_api_dml := false; -- Unset the api dml status
103: psp_prt_shd.constraint_error
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
105: When hr_api.parent_integrity_violated Then
106: -- Parent integrity has been violated
107: psp_prt_shd.g_api_dml := false; -- Unset the api dml status
103: psp_prt_shd.constraint_error
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
105: When hr_api.parent_integrity_violated Then
106: -- Parent integrity has been violated
107: psp_prt_shd.g_api_dml := false; -- Unset the api dml status
108: psp_prt_shd.constraint_error
109: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
110: When hr_api.unique_integrity_violated Then
111: -- Unique integrity has been violated
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
105: When hr_api.parent_integrity_violated Then
106: -- Parent integrity has been violated
107: psp_prt_shd.g_api_dml := false; -- Unset the api dml status
108: psp_prt_shd.constraint_error
109: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
110: When hr_api.unique_integrity_violated Then
111: -- Unique integrity has been violated
112: psp_prt_shd.g_api_dml := false; -- Unset the api dml status
108: psp_prt_shd.constraint_error
109: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
110: When hr_api.unique_integrity_violated Then
111: -- Unique integrity has been violated
112: psp_prt_shd.g_api_dml := false; -- Unset the api dml status
113: psp_prt_shd.constraint_error
114: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
115: When Others Then
116: psp_prt_shd.g_api_dml := false; -- Unset the api dml status
109: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
110: When hr_api.unique_integrity_violated Then
111: -- Unique integrity has been violated
112: psp_prt_shd.g_api_dml := false; -- Unset the api dml status
113: psp_prt_shd.constraint_error
114: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
115: When Others Then
116: psp_prt_shd.g_api_dml := false; -- Unset the api dml status
117: Raise;
112: psp_prt_shd.g_api_dml := false; -- Unset the api dml status
113: psp_prt_shd.constraint_error
114: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
115: When Others Then
116: psp_prt_shd.g_api_dml := false; -- Unset the api dml status
117: Raise;
118: End update_dml;
119: --
120: -- ----------------------------------------------------------------------------
149: --
150: -- {End Of Comments}
151: -- ----------------------------------------------------------------------------
152: Procedure pre_update
153: (p_rec in psp_prt_shd.g_rec_type
154: ) is
155: --
156: l_proc varchar2(72) := g_package||'pre_update';
157: --
193: --
194: -- {End Of Comments}
195: -- ----------------------------------------------------------------------------
196: Procedure post_update
197: (p_rec in psp_prt_shd.g_rec_type
198: ) is
199: --
200: l_proc varchar2(72) := g_package||'post_update';
201: --
246: => p_rec.hundred_pcent_eff_at_per_asg
247: ,p_selection_match_level
248: => p_rec.selection_match_level
249: ,p_template_name_o
250: => psp_prt_shd.g_old_rec.template_name
251: ,p_business_group_id_o
252: => psp_prt_shd.g_old_rec.business_group_id
253: ,p_set_of_books_id_o
254: => psp_prt_shd.g_old_rec.set_of_books_id
248: => p_rec.selection_match_level
249: ,p_template_name_o
250: => psp_prt_shd.g_old_rec.template_name
251: ,p_business_group_id_o
252: => psp_prt_shd.g_old_rec.business_group_id
253: ,p_set_of_books_id_o
254: => psp_prt_shd.g_old_rec.set_of_books_id
255: ,p_object_version_number_o
256: => psp_prt_shd.g_old_rec.object_version_number
250: => psp_prt_shd.g_old_rec.template_name
251: ,p_business_group_id_o
252: => psp_prt_shd.g_old_rec.business_group_id
253: ,p_set_of_books_id_o
254: => psp_prt_shd.g_old_rec.set_of_books_id
255: ,p_object_version_number_o
256: => psp_prt_shd.g_old_rec.object_version_number
257: ,p_report_type_o
258: => psp_prt_shd.g_old_rec.report_type
252: => psp_prt_shd.g_old_rec.business_group_id
253: ,p_set_of_books_id_o
254: => psp_prt_shd.g_old_rec.set_of_books_id
255: ,p_object_version_number_o
256: => psp_prt_shd.g_old_rec.object_version_number
257: ,p_report_type_o
258: => psp_prt_shd.g_old_rec.report_type
259: ,p_period_frequency_id_o
260: => psp_prt_shd.g_old_rec.period_frequency_id
254: => psp_prt_shd.g_old_rec.set_of_books_id
255: ,p_object_version_number_o
256: => psp_prt_shd.g_old_rec.object_version_number
257: ,p_report_type_o
258: => psp_prt_shd.g_old_rec.report_type
259: ,p_period_frequency_id_o
260: => psp_prt_shd.g_old_rec.period_frequency_id
261: ,p_report_template_code_o
262: => psp_prt_shd.g_old_rec.report_template_code
256: => psp_prt_shd.g_old_rec.object_version_number
257: ,p_report_type_o
258: => psp_prt_shd.g_old_rec.report_type
259: ,p_period_frequency_id_o
260: => psp_prt_shd.g_old_rec.period_frequency_id
261: ,p_report_template_code_o
262: => psp_prt_shd.g_old_rec.report_template_code
263: ,p_display_all_emp_distrib_fl_o
264: => psp_prt_shd.g_old_rec.display_all_emp_distrib_flag
258: => psp_prt_shd.g_old_rec.report_type
259: ,p_period_frequency_id_o
260: => psp_prt_shd.g_old_rec.period_frequency_id
261: ,p_report_template_code_o
262: => psp_prt_shd.g_old_rec.report_template_code
263: ,p_display_all_emp_distrib_fl_o
264: => psp_prt_shd.g_old_rec.display_all_emp_distrib_flag
265: ,p_manual_entry_override_flag_o
266: => psp_prt_shd.g_old_rec.manual_entry_override_flag
260: => psp_prt_shd.g_old_rec.period_frequency_id
261: ,p_report_template_code_o
262: => psp_prt_shd.g_old_rec.report_template_code
263: ,p_display_all_emp_distrib_fl_o
264: => psp_prt_shd.g_old_rec.display_all_emp_distrib_flag
265: ,p_manual_entry_override_flag_o
266: => psp_prt_shd.g_old_rec.manual_entry_override_flag
267: ,p_approval_type_o
268: => psp_prt_shd.g_old_rec.approval_type
262: => psp_prt_shd.g_old_rec.report_template_code
263: ,p_display_all_emp_distrib_fl_o
264: => psp_prt_shd.g_old_rec.display_all_emp_distrib_flag
265: ,p_manual_entry_override_flag_o
266: => psp_prt_shd.g_old_rec.manual_entry_override_flag
267: ,p_approval_type_o
268: => psp_prt_shd.g_old_rec.approval_type
269: ,p_custom_approval_code_o
270: => psp_prt_shd.g_old_rec.custom_approval_code
264: => psp_prt_shd.g_old_rec.display_all_emp_distrib_flag
265: ,p_manual_entry_override_flag_o
266: => psp_prt_shd.g_old_rec.manual_entry_override_flag
267: ,p_approval_type_o
268: => psp_prt_shd.g_old_rec.approval_type
269: ,p_custom_approval_code_o
270: => psp_prt_shd.g_old_rec.custom_approval_code
271: ,p_sup_levels_o
272: => psp_prt_shd.g_old_rec.sup_levels
266: => psp_prt_shd.g_old_rec.manual_entry_override_flag
267: ,p_approval_type_o
268: => psp_prt_shd.g_old_rec.approval_type
269: ,p_custom_approval_code_o
270: => psp_prt_shd.g_old_rec.custom_approval_code
271: ,p_sup_levels_o
272: => psp_prt_shd.g_old_rec.sup_levels
273: ,p_preview_effort_report_flag_o
274: => psp_prt_shd.g_old_rec.preview_effort_report_flag
268: => psp_prt_shd.g_old_rec.approval_type
269: ,p_custom_approval_code_o
270: => psp_prt_shd.g_old_rec.custom_approval_code
271: ,p_sup_levels_o
272: => psp_prt_shd.g_old_rec.sup_levels
273: ,p_preview_effort_report_flag_o
274: => psp_prt_shd.g_old_rec.preview_effort_report_flag
275: ,p_notification_reminder_in_d_o
276: => psp_prt_shd.g_old_rec.notification_reminder_in_days
270: => psp_prt_shd.g_old_rec.custom_approval_code
271: ,p_sup_levels_o
272: => psp_prt_shd.g_old_rec.sup_levels
273: ,p_preview_effort_report_flag_o
274: => psp_prt_shd.g_old_rec.preview_effort_report_flag
275: ,p_notification_reminder_in_d_o
276: => psp_prt_shd.g_old_rec.notification_reminder_in_days
277: ,p_sprcd_tolerance_amt_o
278: => psp_prt_shd.g_old_rec.sprcd_tolerance_amt
272: => psp_prt_shd.g_old_rec.sup_levels
273: ,p_preview_effort_report_flag_o
274: => psp_prt_shd.g_old_rec.preview_effort_report_flag
275: ,p_notification_reminder_in_d_o
276: => psp_prt_shd.g_old_rec.notification_reminder_in_days
277: ,p_sprcd_tolerance_amt_o
278: => psp_prt_shd.g_old_rec.sprcd_tolerance_amt
279: ,p_sprcd_tolerance_percent_o
280: => psp_prt_shd.g_old_rec.sprcd_tolerance_percent
274: => psp_prt_shd.g_old_rec.preview_effort_report_flag
275: ,p_notification_reminder_in_d_o
276: => psp_prt_shd.g_old_rec.notification_reminder_in_days
277: ,p_sprcd_tolerance_amt_o
278: => psp_prt_shd.g_old_rec.sprcd_tolerance_amt
279: ,p_sprcd_tolerance_percent_o
280: => psp_prt_shd.g_old_rec.sprcd_tolerance_percent
281: ,p_description_o
282: => psp_prt_shd.g_old_rec.description
276: => psp_prt_shd.g_old_rec.notification_reminder_in_days
277: ,p_sprcd_tolerance_amt_o
278: => psp_prt_shd.g_old_rec.sprcd_tolerance_amt
279: ,p_sprcd_tolerance_percent_o
280: => psp_prt_shd.g_old_rec.sprcd_tolerance_percent
281: ,p_description_o
282: => psp_prt_shd.g_old_rec.description
283: ,p_legislation_code_o
284: => psp_prt_shd.g_old_rec.legislation_code
278: => psp_prt_shd.g_old_rec.sprcd_tolerance_amt
279: ,p_sprcd_tolerance_percent_o
280: => psp_prt_shd.g_old_rec.sprcd_tolerance_percent
281: ,p_description_o
282: => psp_prt_shd.g_old_rec.description
283: ,p_legislation_code_o
284: => psp_prt_shd.g_old_rec.legislation_code
285: ,p_hundred_pcent_eff_at_per_a_o
286: => psp_prt_shd.g_old_rec.hundred_pcent_eff_at_per_asg
280: => psp_prt_shd.g_old_rec.sprcd_tolerance_percent
281: ,p_description_o
282: => psp_prt_shd.g_old_rec.description
283: ,p_legislation_code_o
284: => psp_prt_shd.g_old_rec.legislation_code
285: ,p_hundred_pcent_eff_at_per_a_o
286: => psp_prt_shd.g_old_rec.hundred_pcent_eff_at_per_asg
287: ,p_selection_match_level_o
288: => psp_prt_shd.g_old_rec.selection_match_level
282: => psp_prt_shd.g_old_rec.description
283: ,p_legislation_code_o
284: => psp_prt_shd.g_old_rec.legislation_code
285: ,p_hundred_pcent_eff_at_per_a_o
286: => psp_prt_shd.g_old_rec.hundred_pcent_eff_at_per_asg
287: ,p_selection_match_level_o
288: => psp_prt_shd.g_old_rec.selection_match_level
289: );
290: --
284: => psp_prt_shd.g_old_rec.legislation_code
285: ,p_hundred_pcent_eff_at_per_a_o
286: => psp_prt_shd.g_old_rec.hundred_pcent_eff_at_per_asg
287: ,p_selection_match_level_o
288: => psp_prt_shd.g_old_rec.selection_match_level
289: );
290: --
291: exception
292: --
344: --
345: -- {End Of Comments}
346: -- ----------------------------------------------------------------------------
347: Procedure convert_defs
348: (p_rec in out nocopy psp_prt_shd.g_rec_type
349: ) is
350: --
351: Begin
352: --
356: -- is being used then we must set to the 'current' argument value.
357: --
358: If (p_rec.template_name = hr_api.g_varchar2) then
359: p_rec.template_name :=
360: psp_prt_shd.g_old_rec.template_name;
361: End If;
362: If (p_rec.business_group_id = hr_api.g_number) then
363: p_rec.business_group_id :=
364: psp_prt_shd.g_old_rec.business_group_id;
360: psp_prt_shd.g_old_rec.template_name;
361: End If;
362: If (p_rec.business_group_id = hr_api.g_number) then
363: p_rec.business_group_id :=
364: psp_prt_shd.g_old_rec.business_group_id;
365: End If;
366: If (p_rec.set_of_books_id = hr_api.g_number) then
367: p_rec.set_of_books_id :=
368: psp_prt_shd.g_old_rec.set_of_books_id;
364: psp_prt_shd.g_old_rec.business_group_id;
365: End If;
366: If (p_rec.set_of_books_id = hr_api.g_number) then
367: p_rec.set_of_books_id :=
368: psp_prt_shd.g_old_rec.set_of_books_id;
369: End If;
370: If (p_rec.report_type = hr_api.g_varchar2) then
371: p_rec.report_type :=
372: psp_prt_shd.g_old_rec.report_type;
368: psp_prt_shd.g_old_rec.set_of_books_id;
369: End If;
370: If (p_rec.report_type = hr_api.g_varchar2) then
371: p_rec.report_type :=
372: psp_prt_shd.g_old_rec.report_type;
373: End If;
374: If (p_rec.period_frequency_id = hr_api.g_number) then
375: p_rec.period_frequency_id :=
376: psp_prt_shd.g_old_rec.period_frequency_id;
372: psp_prt_shd.g_old_rec.report_type;
373: End If;
374: If (p_rec.period_frequency_id = hr_api.g_number) then
375: p_rec.period_frequency_id :=
376: psp_prt_shd.g_old_rec.period_frequency_id;
377: End If;
378: If (p_rec.report_template_code = hr_api.g_varchar2) then
379: p_rec.report_template_code :=
380: psp_prt_shd.g_old_rec.report_template_code;
376: psp_prt_shd.g_old_rec.period_frequency_id;
377: End If;
378: If (p_rec.report_template_code = hr_api.g_varchar2) then
379: p_rec.report_template_code :=
380: psp_prt_shd.g_old_rec.report_template_code;
381: End If;
382: If (p_rec.display_all_emp_distrib_flag = hr_api.g_varchar2) then
383: p_rec.display_all_emp_distrib_flag :=
384: psp_prt_shd.g_old_rec.display_all_emp_distrib_flag;
380: psp_prt_shd.g_old_rec.report_template_code;
381: End If;
382: If (p_rec.display_all_emp_distrib_flag = hr_api.g_varchar2) then
383: p_rec.display_all_emp_distrib_flag :=
384: psp_prt_shd.g_old_rec.display_all_emp_distrib_flag;
385: End If;
386: If (p_rec.manual_entry_override_flag = hr_api.g_varchar2) then
387: p_rec.manual_entry_override_flag :=
388: psp_prt_shd.g_old_rec.manual_entry_override_flag;
384: psp_prt_shd.g_old_rec.display_all_emp_distrib_flag;
385: End If;
386: If (p_rec.manual_entry_override_flag = hr_api.g_varchar2) then
387: p_rec.manual_entry_override_flag :=
388: psp_prt_shd.g_old_rec.manual_entry_override_flag;
389: End If;
390: If (p_rec.approval_type = hr_api.g_varchar2) then
391: p_rec.approval_type :=
392: psp_prt_shd.g_old_rec.approval_type;
388: psp_prt_shd.g_old_rec.manual_entry_override_flag;
389: End If;
390: If (p_rec.approval_type = hr_api.g_varchar2) then
391: p_rec.approval_type :=
392: psp_prt_shd.g_old_rec.approval_type;
393: End If;
394: If (p_rec.custom_approval_code = hr_api.g_varchar2) then
395: p_rec.custom_approval_code :=
396: psp_prt_shd.g_old_rec.custom_approval_code;
392: psp_prt_shd.g_old_rec.approval_type;
393: End If;
394: If (p_rec.custom_approval_code = hr_api.g_varchar2) then
395: p_rec.custom_approval_code :=
396: psp_prt_shd.g_old_rec.custom_approval_code;
397: End If;
398: If (p_rec.sup_levels = hr_api.g_number) then
399: p_rec.sup_levels :=
400: psp_prt_shd.g_old_rec.sup_levels;
396: psp_prt_shd.g_old_rec.custom_approval_code;
397: End If;
398: If (p_rec.sup_levels = hr_api.g_number) then
399: p_rec.sup_levels :=
400: psp_prt_shd.g_old_rec.sup_levels;
401: End If;
402: If (p_rec.preview_effort_report_flag = hr_api.g_varchar2) then
403: p_rec.preview_effort_report_flag :=
404: psp_prt_shd.g_old_rec.preview_effort_report_flag;
400: psp_prt_shd.g_old_rec.sup_levels;
401: End If;
402: If (p_rec.preview_effort_report_flag = hr_api.g_varchar2) then
403: p_rec.preview_effort_report_flag :=
404: psp_prt_shd.g_old_rec.preview_effort_report_flag;
405: End If;
406: If (p_rec.notification_reminder_in_days = hr_api.g_number) then
407: p_rec.notification_reminder_in_days :=
408: psp_prt_shd.g_old_rec.notification_reminder_in_days;
404: psp_prt_shd.g_old_rec.preview_effort_report_flag;
405: End If;
406: If (p_rec.notification_reminder_in_days = hr_api.g_number) then
407: p_rec.notification_reminder_in_days :=
408: psp_prt_shd.g_old_rec.notification_reminder_in_days;
409: End If;
410: If (p_rec.sprcd_tolerance_amt = hr_api.g_number) then
411: p_rec.sprcd_tolerance_amt :=
412: psp_prt_shd.g_old_rec.sprcd_tolerance_amt;
408: psp_prt_shd.g_old_rec.notification_reminder_in_days;
409: End If;
410: If (p_rec.sprcd_tolerance_amt = hr_api.g_number) then
411: p_rec.sprcd_tolerance_amt :=
412: psp_prt_shd.g_old_rec.sprcd_tolerance_amt;
413: End If;
414: If (p_rec.sprcd_tolerance_percent = hr_api.g_number) then
415: p_rec.sprcd_tolerance_percent :=
416: psp_prt_shd.g_old_rec.sprcd_tolerance_percent;
412: psp_prt_shd.g_old_rec.sprcd_tolerance_amt;
413: End If;
414: If (p_rec.sprcd_tolerance_percent = hr_api.g_number) then
415: p_rec.sprcd_tolerance_percent :=
416: psp_prt_shd.g_old_rec.sprcd_tolerance_percent;
417: End If;
418: If (p_rec.description = hr_api.g_varchar2) then
419: p_rec.description :=
420: psp_prt_shd.g_old_rec.description;
416: psp_prt_shd.g_old_rec.sprcd_tolerance_percent;
417: End If;
418: If (p_rec.description = hr_api.g_varchar2) then
419: p_rec.description :=
420: psp_prt_shd.g_old_rec.description;
421: End If;
422: If (p_rec.legislation_code = hr_api.g_varchar2) then
423: p_rec.legislation_code :=
424: psp_prt_shd.g_old_rec.legislation_code;
420: psp_prt_shd.g_old_rec.description;
421: End If;
422: If (p_rec.legislation_code = hr_api.g_varchar2) then
423: p_rec.legislation_code :=
424: psp_prt_shd.g_old_rec.legislation_code;
425: End If;
426: If (p_rec.hundred_pcent_eff_at_per_asg = hr_api.g_varchar2) then
427: p_rec.hundred_pcent_eff_at_per_asg :=
428: psp_prt_shd.g_old_rec.hundred_pcent_eff_at_per_asg;
424: psp_prt_shd.g_old_rec.legislation_code;
425: End If;
426: If (p_rec.hundred_pcent_eff_at_per_asg = hr_api.g_varchar2) then
427: p_rec.hundred_pcent_eff_at_per_asg :=
428: psp_prt_shd.g_old_rec.hundred_pcent_eff_at_per_asg;
429: End If;
430: If (p_rec.selection_match_level = hr_api.g_varchar2) then
431: p_rec.selection_match_level :=
432: psp_prt_shd.g_old_rec.selection_match_level;
428: psp_prt_shd.g_old_rec.hundred_pcent_eff_at_per_asg;
429: End If;
430: If (p_rec.selection_match_level = hr_api.g_varchar2) then
431: p_rec.selection_match_level :=
432: psp_prt_shd.g_old_rec.selection_match_level;
433: End If;
434: --
435: End convert_defs;
436: --
437: -- ----------------------------------------------------------------------------
438: -- |---------------------------------< upd >----------------------------------|
439: -- ----------------------------------------------------------------------------
440: Procedure upd
441: (p_rec in out nocopy psp_prt_shd.g_rec_type
442: ) is
443: --
444: l_proc varchar2(72) := g_package||'upd';
445: --
447: hr_utility.set_location('Entering:'||l_proc, 5);
448: --
449: -- We must lock the row which we need to update.
450: --
451: psp_prt_shd.lck
452: (p_rec.template_id
453: ,p_rec.object_version_number
454: );
455: --
511: ,p_description in varchar2 default hr_api.g_varchar2
512: ,p_legislation_code in varchar2 default hr_api.g_varchar2
513: ) is
514: --
515: l_rec psp_prt_shd.g_rec_type;
516: l_proc varchar2(72) := g_package||'upd';
517: --
518: Begin
519: hr_utility.set_location('Entering:'||l_proc, 5);
521: -- Call conversion function to turn arguments into the
522: -- l_rec structure.
523: --
524: l_rec :=
525: psp_prt_shd.convert_args
526: (p_template_id
527: ,p_template_name
528: ,p_business_group_id
529: ,p_set_of_books_id