[Home] [Help]
51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy pay_evg_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
86: Exception
87: When hr_api.check_integrity_violated Then
88: -- A check constraint has been violated
89: --
90: pay_evg_shd.constraint_error
91: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
92: When hr_api.parent_integrity_violated Then
93: -- Parent integrity has been violated
94: --
91: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
92: When hr_api.parent_integrity_violated Then
93: -- Parent integrity has been violated
94: --
95: pay_evg_shd.constraint_error
96: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
97: When hr_api.unique_integrity_violated Then
98: -- Unique integrity has been violated
99: --
96: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
97: When hr_api.unique_integrity_violated Then
98: -- Unique integrity has been violated
99: --
100: pay_evg_shd.constraint_error
101: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
102: When Others Then
103: --
104: Raise;
136: --
137: -- {End Of Comments}
138: -- ----------------------------------------------------------------------------
139: Procedure pre_update
140: (p_rec in pay_evg_shd.g_rec_type
141: ) is
142: --
143: l_proc varchar2(72) := g_package||'pre_update';
144: --
181: -- {End Of Comments}
182: -- ----------------------------------------------------------------------------
183: Procedure post_update
184: (p_effective_date in date
185: ,p_rec in pay_evg_shd.g_rec_type
186: ) is
187: --
188: l_proc varchar2(72) := g_package||'post_update';
189: --
209: => p_rec.object_version_number
210: ,p_time_definition_id
211: => p_rec.time_definition_id
212: ,p_event_group_name_o
213: => pay_evg_shd.g_old_rec.event_group_name
214: ,p_event_group_type_o
215: => pay_evg_shd.g_old_rec.event_group_type
216: ,p_proration_type_o
217: => pay_evg_shd.g_old_rec.proration_type
211: => p_rec.time_definition_id
212: ,p_event_group_name_o
213: => pay_evg_shd.g_old_rec.event_group_name
214: ,p_event_group_type_o
215: => pay_evg_shd.g_old_rec.event_group_type
216: ,p_proration_type_o
217: => pay_evg_shd.g_old_rec.proration_type
218: ,p_business_group_id_o
219: => pay_evg_shd.g_old_rec.business_group_id
213: => pay_evg_shd.g_old_rec.event_group_name
214: ,p_event_group_type_o
215: => pay_evg_shd.g_old_rec.event_group_type
216: ,p_proration_type_o
217: => pay_evg_shd.g_old_rec.proration_type
218: ,p_business_group_id_o
219: => pay_evg_shd.g_old_rec.business_group_id
220: ,p_legislation_code_o
221: => pay_evg_shd.g_old_rec.legislation_code
215: => pay_evg_shd.g_old_rec.event_group_type
216: ,p_proration_type_o
217: => pay_evg_shd.g_old_rec.proration_type
218: ,p_business_group_id_o
219: => pay_evg_shd.g_old_rec.business_group_id
220: ,p_legislation_code_o
221: => pay_evg_shd.g_old_rec.legislation_code
222: ,p_object_version_number_o
223: => pay_evg_shd.g_old_rec.object_version_number
217: => pay_evg_shd.g_old_rec.proration_type
218: ,p_business_group_id_o
219: => pay_evg_shd.g_old_rec.business_group_id
220: ,p_legislation_code_o
221: => pay_evg_shd.g_old_rec.legislation_code
222: ,p_object_version_number_o
223: => pay_evg_shd.g_old_rec.object_version_number
224: ,p_time_definition_id_o
225: => pay_evg_shd.g_old_rec.time_definition_id
219: => pay_evg_shd.g_old_rec.business_group_id
220: ,p_legislation_code_o
221: => pay_evg_shd.g_old_rec.legislation_code
222: ,p_object_version_number_o
223: => pay_evg_shd.g_old_rec.object_version_number
224: ,p_time_definition_id_o
225: => pay_evg_shd.g_old_rec.time_definition_id
226: );
227: --
221: => pay_evg_shd.g_old_rec.legislation_code
222: ,p_object_version_number_o
223: => pay_evg_shd.g_old_rec.object_version_number
224: ,p_time_definition_id_o
225: => pay_evg_shd.g_old_rec.time_definition_id
226: );
227: --
228: exception
229: --
281: --
282: -- {End Of Comments}
283: -- ----------------------------------------------------------------------------
284: Procedure convert_defs
285: (p_rec in out nocopy pay_evg_shd.g_rec_type
286: ) is
287: --
288: Begin
289: --
293: -- is being used then we must set to the 'current' argument value.
294: --
295: If (p_rec.event_group_name = hr_api.g_varchar2) then
296: p_rec.event_group_name :=
297: pay_evg_shd.g_old_rec.event_group_name;
298: End If;
299: If (p_rec.event_group_type = hr_api.g_varchar2) then
300: p_rec.event_group_type :=
301: pay_evg_shd.g_old_rec.event_group_type;
297: pay_evg_shd.g_old_rec.event_group_name;
298: End If;
299: If (p_rec.event_group_type = hr_api.g_varchar2) then
300: p_rec.event_group_type :=
301: pay_evg_shd.g_old_rec.event_group_type;
302: End If;
303: If (p_rec.proration_type = hr_api.g_varchar2) then
304: p_rec.proration_type :=
305: pay_evg_shd.g_old_rec.proration_type;
301: pay_evg_shd.g_old_rec.event_group_type;
302: End If;
303: If (p_rec.proration_type = hr_api.g_varchar2) then
304: p_rec.proration_type :=
305: pay_evg_shd.g_old_rec.proration_type;
306: End If;
307: If (p_rec.business_group_id = hr_api.g_number) then
308: p_rec.business_group_id :=
309: pay_evg_shd.g_old_rec.business_group_id;
305: pay_evg_shd.g_old_rec.proration_type;
306: End If;
307: If (p_rec.business_group_id = hr_api.g_number) then
308: p_rec.business_group_id :=
309: pay_evg_shd.g_old_rec.business_group_id;
310: End If;
311: If (p_rec.legislation_code = hr_api.g_varchar2) then
312: p_rec.legislation_code :=
313: pay_evg_shd.g_old_rec.legislation_code;
309: pay_evg_shd.g_old_rec.business_group_id;
310: End If;
311: If (p_rec.legislation_code = hr_api.g_varchar2) then
312: p_rec.legislation_code :=
313: pay_evg_shd.g_old_rec.legislation_code;
314: End If;
315: If (p_rec.time_definition_id = hr_api.g_number) then
316: p_rec.time_definition_id :=
317: pay_evg_shd.g_old_rec.time_definition_id;
313: pay_evg_shd.g_old_rec.legislation_code;
314: End If;
315: If (p_rec.time_definition_id = hr_api.g_number) then
316: p_rec.time_definition_id :=
317: pay_evg_shd.g_old_rec.time_definition_id;
318: End If;
319: --
320: End convert_defs;
321: --
323: -- |---------------------------------< upd >----------------------------------|
324: -- ----------------------------------------------------------------------------
325: Procedure upd
326: (p_effective_date in date
327: ,p_rec in out nocopy pay_evg_shd.g_rec_type
328: ) is
329: --
330: l_proc varchar2(72) := g_package||'upd';
331: --
333: hr_utility.set_location('Entering:'||l_proc, 5);
334: --
335: -- We must lock the row which we need to update.
336: --
337: pay_evg_shd.lck
338: (p_rec.event_group_id
339: ,p_rec.object_version_number
340: );
341: --
381: ,p_legislation_code in varchar2 default hr_api.g_varchar2
382: ,p_time_definition_id in number default hr_api.g_number
383: ) is
384: --
385: l_rec pay_evg_shd.g_rec_type;
386: l_proc varchar2(72) := g_package||'upd';
387: --
388: Begin
389: hr_utility.set_location('Entering:'||l_proc, 5);
391: -- Call conversion function to turn arguments into the
392: -- l_rec structure.
393: --
394: l_rec :=
395: pay_evg_shd.convert_args
396: (p_event_group_id
397: ,p_event_group_name
398: ,p_event_group_type
399: ,p_proration_type