51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy pay_pev_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: pay_pev_shd.g_api_dml := true; -- Set the api dml status
67: --
68: -- Update the pay_process_events Row
69: --
70: update pay_process_events
84: ,retroactive_status = p_rec.retroactive_status
85: ,noted_value = p_rec.noted_value
86: where process_event_id = p_rec.process_event_id;
87: --
88: pay_pev_shd.g_api_dml := false; -- Unset the api dml status
89: --
90: hr_utility.set_location(' Leaving:'||l_proc, 10);
91: --
92: Exception
91: --
92: Exception
93: When hr_api.check_integrity_violated Then
94: -- A check constraint has been violated
95: pay_pev_shd.g_api_dml := false; -- Unset the api dml status
96: pay_pev_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.parent_integrity_violated Then
99: -- Parent integrity has been violated
92: Exception
93: When hr_api.check_integrity_violated Then
94: -- A check constraint has been violated
95: pay_pev_shd.g_api_dml := false; -- Unset the api dml status
96: pay_pev_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.parent_integrity_violated Then
99: -- Parent integrity has been violated
100: pay_pev_shd.g_api_dml := false; -- Unset the api dml status
96: pay_pev_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.parent_integrity_violated Then
99: -- Parent integrity has been violated
100: pay_pev_shd.g_api_dml := false; -- Unset the api dml status
101: pay_pev_shd.constraint_error
102: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
103: When hr_api.unique_integrity_violated Then
104: -- Unique integrity has been violated
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.parent_integrity_violated Then
99: -- Parent integrity has been violated
100: pay_pev_shd.g_api_dml := false; -- Unset the api dml status
101: pay_pev_shd.constraint_error
102: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
103: When hr_api.unique_integrity_violated Then
104: -- Unique integrity has been violated
105: pay_pev_shd.g_api_dml := false; -- Unset the api dml status
101: pay_pev_shd.constraint_error
102: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
103: When hr_api.unique_integrity_violated Then
104: -- Unique integrity has been violated
105: pay_pev_shd.g_api_dml := false; -- Unset the api dml status
106: pay_pev_shd.constraint_error
107: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
108: When Others Then
109: pay_pev_shd.g_api_dml := false; -- Unset the api dml status
102: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
103: When hr_api.unique_integrity_violated Then
104: -- Unique integrity has been violated
105: pay_pev_shd.g_api_dml := false; -- Unset the api dml status
106: pay_pev_shd.constraint_error
107: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
108: When Others Then
109: pay_pev_shd.g_api_dml := false; -- Unset the api dml status
110: Raise;
105: pay_pev_shd.g_api_dml := false; -- Unset the api dml status
106: pay_pev_shd.constraint_error
107: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
108: When Others Then
109: pay_pev_shd.g_api_dml := false; -- Unset the api dml status
110: Raise;
111: End update_dml;
112: --
113: -- ----------------------------------------------------------------------------
142: --
143: -- {End Of Comments}
144: -- ----------------------------------------------------------------------------
145: Procedure pre_update
146: (p_rec in pay_pev_shd.g_rec_type
147: ) is
148: --
149: l_proc varchar2(72) := g_package||'pre_update';
150: --
186: --
187: -- {End Of Comments}
188: -- ----------------------------------------------------------------------------
189: Procedure post_update
190: (p_rec in pay_pev_shd.g_rec_type
191: ) is
192: --
193: l_proc varchar2(72) := g_package||'post_update';
194: --
225: => p_rec.retroactive_status
226: ,p_noted_value
227: => p_rec.noted_value
228: ,p_assignment_id_o
229: => pay_pev_shd.g_old_rec.assignment_id
230: ,p_effective_date_o
231: => pay_pev_shd.g_old_rec.effective_date
232: ,p_change_type_o
233: => pay_pev_shd.g_old_rec.change_type
227: => p_rec.noted_value
228: ,p_assignment_id_o
229: => pay_pev_shd.g_old_rec.assignment_id
230: ,p_effective_date_o
231: => pay_pev_shd.g_old_rec.effective_date
232: ,p_change_type_o
233: => pay_pev_shd.g_old_rec.change_type
234: ,p_status_o
235: => pay_pev_shd.g_old_rec.status
229: => pay_pev_shd.g_old_rec.assignment_id
230: ,p_effective_date_o
231: => pay_pev_shd.g_old_rec.effective_date
232: ,p_change_type_o
233: => pay_pev_shd.g_old_rec.change_type
234: ,p_status_o
235: => pay_pev_shd.g_old_rec.status
236: ,p_description_o
237: => pay_pev_shd.g_old_rec.description
231: => pay_pev_shd.g_old_rec.effective_date
232: ,p_change_type_o
233: => pay_pev_shd.g_old_rec.change_type
234: ,p_status_o
235: => pay_pev_shd.g_old_rec.status
236: ,p_description_o
237: => pay_pev_shd.g_old_rec.description
238: ,p_event_update_id_o
239: => pay_pev_shd.g_old_rec.event_update_id
233: => pay_pev_shd.g_old_rec.change_type
234: ,p_status_o
235: => pay_pev_shd.g_old_rec.status
236: ,p_description_o
237: => pay_pev_shd.g_old_rec.description
238: ,p_event_update_id_o
239: => pay_pev_shd.g_old_rec.event_update_id
240: ,p_business_group_id_o
241: => pay_pev_shd.g_old_rec.business_group_id
235: => pay_pev_shd.g_old_rec.status
236: ,p_description_o
237: => pay_pev_shd.g_old_rec.description
238: ,p_event_update_id_o
239: => pay_pev_shd.g_old_rec.event_update_id
240: ,p_business_group_id_o
241: => pay_pev_shd.g_old_rec.business_group_id
242: ,p_org_process_event_group_id_o
243: => pay_pev_shd.g_old_rec.org_process_event_group_id
237: => pay_pev_shd.g_old_rec.description
238: ,p_event_update_id_o
239: => pay_pev_shd.g_old_rec.event_update_id
240: ,p_business_group_id_o
241: => pay_pev_shd.g_old_rec.business_group_id
242: ,p_org_process_event_group_id_o
243: => pay_pev_shd.g_old_rec.org_process_event_group_id
244: ,p_surrogate_key_o
245: => pay_pev_shd.g_old_rec.surrogate_key
239: => pay_pev_shd.g_old_rec.event_update_id
240: ,p_business_group_id_o
241: => pay_pev_shd.g_old_rec.business_group_id
242: ,p_org_process_event_group_id_o
243: => pay_pev_shd.g_old_rec.org_process_event_group_id
244: ,p_surrogate_key_o
245: => pay_pev_shd.g_old_rec.surrogate_key
246: ,p_object_version_number_o
247: => pay_pev_shd.g_old_rec.object_version_number
241: => pay_pev_shd.g_old_rec.business_group_id
242: ,p_org_process_event_group_id_o
243: => pay_pev_shd.g_old_rec.org_process_event_group_id
244: ,p_surrogate_key_o
245: => pay_pev_shd.g_old_rec.surrogate_key
246: ,p_object_version_number_o
247: => pay_pev_shd.g_old_rec.object_version_number
248: ,p_calculation_date_o
249: => pay_pev_shd.g_old_rec.calculation_date
243: => pay_pev_shd.g_old_rec.org_process_event_group_id
244: ,p_surrogate_key_o
245: => pay_pev_shd.g_old_rec.surrogate_key
246: ,p_object_version_number_o
247: => pay_pev_shd.g_old_rec.object_version_number
248: ,p_calculation_date_o
249: => pay_pev_shd.g_old_rec.calculation_date
250: ,p_retroactive_status_o
251: => pay_pev_shd.g_old_rec.retroactive_status
245: => pay_pev_shd.g_old_rec.surrogate_key
246: ,p_object_version_number_o
247: => pay_pev_shd.g_old_rec.object_version_number
248: ,p_calculation_date_o
249: => pay_pev_shd.g_old_rec.calculation_date
250: ,p_retroactive_status_o
251: => pay_pev_shd.g_old_rec.retroactive_status
252: ,p_noted_value_o
253: => pay_pev_shd.g_old_rec.noted_value
247: => pay_pev_shd.g_old_rec.object_version_number
248: ,p_calculation_date_o
249: => pay_pev_shd.g_old_rec.calculation_date
250: ,p_retroactive_status_o
251: => pay_pev_shd.g_old_rec.retroactive_status
252: ,p_noted_value_o
253: => pay_pev_shd.g_old_rec.noted_value
254: );
255: --
249: => pay_pev_shd.g_old_rec.calculation_date
250: ,p_retroactive_status_o
251: => pay_pev_shd.g_old_rec.retroactive_status
252: ,p_noted_value_o
253: => pay_pev_shd.g_old_rec.noted_value
254: );
255: --
256: exception
257: --
309: --
310: -- {End Of Comments}
311: -- ----------------------------------------------------------------------------
312: Procedure convert_defs
313: (p_rec in out nocopy pay_pev_shd.g_rec_type
314: ) is
315: --
316: Begin
317: --
321: -- is being used then we must set to the 'current' argument value.
322: --
323: If (p_rec.assignment_id = hr_api.g_number) then
324: p_rec.assignment_id :=
325: pay_pev_shd.g_old_rec.assignment_id;
326: End If;
327: If (p_rec.effective_date = hr_api.g_date) then
328: p_rec.effective_date :=
329: pay_pev_shd.g_old_rec.effective_date;
325: pay_pev_shd.g_old_rec.assignment_id;
326: End If;
327: If (p_rec.effective_date = hr_api.g_date) then
328: p_rec.effective_date :=
329: pay_pev_shd.g_old_rec.effective_date;
330: End If;
331: If (p_rec.change_type = hr_api.g_varchar2) then
332: p_rec.change_type :=
333: pay_pev_shd.g_old_rec.change_type;
329: pay_pev_shd.g_old_rec.effective_date;
330: End If;
331: If (p_rec.change_type = hr_api.g_varchar2) then
332: p_rec.change_type :=
333: pay_pev_shd.g_old_rec.change_type;
334: End If;
335: If (p_rec.status = hr_api.g_varchar2) then
336: p_rec.status :=
337: pay_pev_shd.g_old_rec.status;
333: pay_pev_shd.g_old_rec.change_type;
334: End If;
335: If (p_rec.status = hr_api.g_varchar2) then
336: p_rec.status :=
337: pay_pev_shd.g_old_rec.status;
338: End If;
339: If (p_rec.description = hr_api.g_varchar2) then
340: p_rec.description :=
341: pay_pev_shd.g_old_rec.description;
337: pay_pev_shd.g_old_rec.status;
338: End If;
339: If (p_rec.description = hr_api.g_varchar2) then
340: p_rec.description :=
341: pay_pev_shd.g_old_rec.description;
342: End If;
343: If (p_rec.event_update_id = hr_api.g_number) then
344: p_rec.event_update_id :=
345: pay_pev_shd.g_old_rec.event_update_id;
341: pay_pev_shd.g_old_rec.description;
342: End If;
343: If (p_rec.event_update_id = hr_api.g_number) then
344: p_rec.event_update_id :=
345: pay_pev_shd.g_old_rec.event_update_id;
346: End If;
347: If (p_rec.business_group_id = hr_api.g_number) then
348: p_rec.business_group_id :=
349: pay_pev_shd.g_old_rec.business_group_id;
345: pay_pev_shd.g_old_rec.event_update_id;
346: End If;
347: If (p_rec.business_group_id = hr_api.g_number) then
348: p_rec.business_group_id :=
349: pay_pev_shd.g_old_rec.business_group_id;
350: End If;
351: If (p_rec.org_process_event_group_id = hr_api.g_number) then
352: p_rec.org_process_event_group_id :=
353: pay_pev_shd.g_old_rec.org_process_event_group_id;
349: pay_pev_shd.g_old_rec.business_group_id;
350: End If;
351: If (p_rec.org_process_event_group_id = hr_api.g_number) then
352: p_rec.org_process_event_group_id :=
353: pay_pev_shd.g_old_rec.org_process_event_group_id;
354: End If;
355: If (p_rec.surrogate_key = hr_api.g_varchar2) then
356: p_rec.surrogate_key :=
357: pay_pev_shd.g_old_rec.surrogate_key;
353: pay_pev_shd.g_old_rec.org_process_event_group_id;
354: End If;
355: If (p_rec.surrogate_key = hr_api.g_varchar2) then
356: p_rec.surrogate_key :=
357: pay_pev_shd.g_old_rec.surrogate_key;
358: End If;
359: If (p_rec.calculation_date = hr_api.g_date) then
360: p_rec.calculation_date :=
361: pay_pev_shd.g_old_rec.calculation_date;
357: pay_pev_shd.g_old_rec.surrogate_key;
358: End If;
359: If (p_rec.calculation_date = hr_api.g_date) then
360: p_rec.calculation_date :=
361: pay_pev_shd.g_old_rec.calculation_date;
362: End If;
363: If (p_rec.retroactive_status = hr_api.g_varchar2) then
364: p_rec.retroactive_status :=
365: pay_pev_shd.g_old_rec.retroactive_status;
361: pay_pev_shd.g_old_rec.calculation_date;
362: End If;
363: If (p_rec.retroactive_status = hr_api.g_varchar2) then
364: p_rec.retroactive_status :=
365: pay_pev_shd.g_old_rec.retroactive_status;
366: End If;
367: If (p_rec.noted_value = hr_api.g_varchar2) then
368: p_rec.noted_value :=
369: pay_pev_shd.g_old_rec.noted_value;
365: pay_pev_shd.g_old_rec.retroactive_status;
366: End If;
367: If (p_rec.noted_value = hr_api.g_varchar2) then
368: p_rec.noted_value :=
369: pay_pev_shd.g_old_rec.noted_value;
370: End If;
371: --
372: End convert_defs;
373: --
374: -- ----------------------------------------------------------------------------
375: -- |---------------------------------< upd >----------------------------------|
376: -- ----------------------------------------------------------------------------
377: Procedure upd
378: (p_rec in out nocopy pay_pev_shd.g_rec_type
379: ) is
380: --
381: l_proc varchar2(72) := g_package||'upd';
382: --
384: hr_utility.set_location('Entering:'||l_proc, 5);
385: --
386: -- We must lock the row which we need to update.
387: --
388: pay_pev_shd.lck
389: (p_rec.process_event_id
390: ,p_rec.object_version_number
391: );
392: --
435: ,p_retroactive_status in varchar2 default hr_api.g_varchar2
436: ,p_noted_value in varchar2 default hr_api.g_varchar2
437: ) is
438: --
439: l_rec pay_pev_shd.g_rec_type;
440: l_proc varchar2(72) := g_package||'upd';
441: --
442: Begin
443: hr_utility.set_location('Entering:'||l_proc, 5);
445: -- Call conversion function to turn arguments into the
446: -- l_rec structure.
447: --
448: l_rec :=
449: pay_pev_shd.convert_args
450: (p_process_event_id
451: ,p_assignment_id
452: ,p_effective_date
453: ,p_change_type