50: -- Internal Row Handler Use Only.
51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml(p_rec in out nocopy ben_ola_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_ola_shd.g_api_dml := true; -- Set the api dml status
66: --
67: -- Update the ben_csr_activities Row
68: --
69: update ben_csr_activities
78: start_date = p_rec.start_date,
79: end_date = p_rec.end_date
80: where csr_activities_id = p_rec.csr_activities_id;
81: --
82: ben_ola_shd.g_api_dml := false; -- Unset the api dml status
83: --
84: hr_utility.set_location(' Leaving:'||l_proc, 10);
85: --
86: Exception
85: --
86: Exception
87: When hr_api.check_integrity_violated Then
88: -- A check constraint has been violated
89: ben_ola_shd.g_api_dml := false; -- Unset the api dml status
90: ben_ola_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
86: Exception
87: When hr_api.check_integrity_violated Then
88: -- A check constraint has been violated
89: ben_ola_shd.g_api_dml := false; -- Unset the api dml status
90: ben_ola_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: ben_ola_shd.g_api_dml := false; -- Unset the api dml status
90: ben_ola_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: ben_ola_shd.g_api_dml := false; -- Unset the api dml status
95: ben_ola_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
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: ben_ola_shd.g_api_dml := false; -- Unset the api dml status
95: ben_ola_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: ben_ola_shd.g_api_dml := false; -- Unset the api dml status
95: ben_ola_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: ben_ola_shd.g_api_dml := false; -- Unset the api dml status
100: ben_ola_shd.constraint_error
101: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
102: When Others Then
103: ben_ola_shd.g_api_dml := false; -- Unset the api dml status
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: ben_ola_shd.g_api_dml := false; -- Unset the api dml status
100: ben_ola_shd.constraint_error
101: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
102: When Others Then
103: ben_ola_shd.g_api_dml := false; -- Unset the api dml status
104: Raise;
99: ben_ola_shd.g_api_dml := false; -- Unset the api dml status
100: ben_ola_shd.constraint_error
101: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
102: When Others Then
103: ben_ola_shd.g_api_dml := false; -- Unset the api dml status
104: Raise;
105: End update_dml;
106: --
107: -- ----------------------------------------------------------------------------
135: -- Internal Row Handler Use Only.
136: --
137: -- {End Of Comments}
138: -- ----------------------------------------------------------------------------
139: Procedure pre_update(p_rec in ben_ola_shd.g_rec_type) is
140: --
141: l_proc varchar2(72) := g_package||'pre_update';
142: --
143: Begin
177: -- Internal Row Handler Use Only.
178: --
179: -- {End Of Comments}
180: -- ----------------------------------------------------------------------------
181: Procedure post_update(p_rec in ben_ola_shd.g_rec_type) is
182: --
183: l_proc varchar2(72) := g_package||'post_update';
184: --
185: Begin
200: ,p_business_group_id =>p_rec.business_group_id
201: ,p_object_version_number =>p_rec.object_version_number
202: ,p_start_date =>p_rec.start_date
203: ,p_end_date =>p_rec.end_date
204: ,p_ordr_num_o =>ben_ola_shd.g_old_rec.ordr_num
205: ,p_function_name_o =>ben_ola_shd.g_old_rec.function_name
206: ,p_user_function_name_o =>ben_ola_shd.g_old_rec.user_function_name
207: ,p_function_type_o =>ben_ola_shd.g_old_rec.function_type
208: ,p_business_group_id_o =>ben_ola_shd.g_old_rec.business_group_id
201: ,p_object_version_number =>p_rec.object_version_number
202: ,p_start_date =>p_rec.start_date
203: ,p_end_date =>p_rec.end_date
204: ,p_ordr_num_o =>ben_ola_shd.g_old_rec.ordr_num
205: ,p_function_name_o =>ben_ola_shd.g_old_rec.function_name
206: ,p_user_function_name_o =>ben_ola_shd.g_old_rec.user_function_name
207: ,p_function_type_o =>ben_ola_shd.g_old_rec.function_type
208: ,p_business_group_id_o =>ben_ola_shd.g_old_rec.business_group_id
209: ,p_object_version_number_o =>ben_ola_shd.g_old_rec.object_version_number
202: ,p_start_date =>p_rec.start_date
203: ,p_end_date =>p_rec.end_date
204: ,p_ordr_num_o =>ben_ola_shd.g_old_rec.ordr_num
205: ,p_function_name_o =>ben_ola_shd.g_old_rec.function_name
206: ,p_user_function_name_o =>ben_ola_shd.g_old_rec.user_function_name
207: ,p_function_type_o =>ben_ola_shd.g_old_rec.function_type
208: ,p_business_group_id_o =>ben_ola_shd.g_old_rec.business_group_id
209: ,p_object_version_number_o =>ben_ola_shd.g_old_rec.object_version_number
210: ,p_start_date_o =>ben_ola_shd.g_old_rec.start_date
203: ,p_end_date =>p_rec.end_date
204: ,p_ordr_num_o =>ben_ola_shd.g_old_rec.ordr_num
205: ,p_function_name_o =>ben_ola_shd.g_old_rec.function_name
206: ,p_user_function_name_o =>ben_ola_shd.g_old_rec.user_function_name
207: ,p_function_type_o =>ben_ola_shd.g_old_rec.function_type
208: ,p_business_group_id_o =>ben_ola_shd.g_old_rec.business_group_id
209: ,p_object_version_number_o =>ben_ola_shd.g_old_rec.object_version_number
210: ,p_start_date_o =>ben_ola_shd.g_old_rec.start_date
211: ,p_end_date_o =>ben_ola_shd.g_old_rec.end_date
204: ,p_ordr_num_o =>ben_ola_shd.g_old_rec.ordr_num
205: ,p_function_name_o =>ben_ola_shd.g_old_rec.function_name
206: ,p_user_function_name_o =>ben_ola_shd.g_old_rec.user_function_name
207: ,p_function_type_o =>ben_ola_shd.g_old_rec.function_type
208: ,p_business_group_id_o =>ben_ola_shd.g_old_rec.business_group_id
209: ,p_object_version_number_o =>ben_ola_shd.g_old_rec.object_version_number
210: ,p_start_date_o =>ben_ola_shd.g_old_rec.start_date
211: ,p_end_date_o =>ben_ola_shd.g_old_rec.end_date
212: );
205: ,p_function_name_o =>ben_ola_shd.g_old_rec.function_name
206: ,p_user_function_name_o =>ben_ola_shd.g_old_rec.user_function_name
207: ,p_function_type_o =>ben_ola_shd.g_old_rec.function_type
208: ,p_business_group_id_o =>ben_ola_shd.g_old_rec.business_group_id
209: ,p_object_version_number_o =>ben_ola_shd.g_old_rec.object_version_number
210: ,p_start_date_o =>ben_ola_shd.g_old_rec.start_date
211: ,p_end_date_o =>ben_ola_shd.g_old_rec.end_date
212: );
213: --
206: ,p_user_function_name_o =>ben_ola_shd.g_old_rec.user_function_name
207: ,p_function_type_o =>ben_ola_shd.g_old_rec.function_type
208: ,p_business_group_id_o =>ben_ola_shd.g_old_rec.business_group_id
209: ,p_object_version_number_o =>ben_ola_shd.g_old_rec.object_version_number
210: ,p_start_date_o =>ben_ola_shd.g_old_rec.start_date
211: ,p_end_date_o =>ben_ola_shd.g_old_rec.end_date
212: );
213: --
214: exception
207: ,p_function_type_o =>ben_ola_shd.g_old_rec.function_type
208: ,p_business_group_id_o =>ben_ola_shd.g_old_rec.business_group_id
209: ,p_object_version_number_o =>ben_ola_shd.g_old_rec.object_version_number
210: ,p_start_date_o =>ben_ola_shd.g_old_rec.start_date
211: ,p_end_date_o =>ben_ola_shd.g_old_rec.end_date
212: );
213: --
214: exception
215: --
269: -- Internal Row Handler Use Only.
270: --
271: -- {End Of Comments}
272: -- ----------------------------------------------------------------------------
273: Procedure convert_defs(p_rec in out nocopy ben_ola_shd.g_rec_type) is
274: --
275: l_proc varchar2(72) := g_package||'convert_defs';
276: --
277: Begin
284: -- is being used then we must set to the 'current' argument value.
285: --
286: If (p_rec.ordr_num = hr_api.g_number) then
287: p_rec.ordr_num :=
288: ben_ola_shd.g_old_rec.ordr_num;
289: End If;
290: If (p_rec.function_name = hr_api.g_varchar2) then
291: p_rec.function_name :=
292: ben_ola_shd.g_old_rec.function_name;
288: ben_ola_shd.g_old_rec.ordr_num;
289: End If;
290: If (p_rec.function_name = hr_api.g_varchar2) then
291: p_rec.function_name :=
292: ben_ola_shd.g_old_rec.function_name;
293: End If;
294: If (p_rec.user_function_name = hr_api.g_varchar2) then
295: p_rec.user_function_name :=
296: ben_ola_shd.g_old_rec.user_function_name;
292: ben_ola_shd.g_old_rec.function_name;
293: End If;
294: If (p_rec.user_function_name = hr_api.g_varchar2) then
295: p_rec.user_function_name :=
296: ben_ola_shd.g_old_rec.user_function_name;
297: End If;
298: If (p_rec.function_type = hr_api.g_varchar2) then
299: p_rec.function_type :=
300: ben_ola_shd.g_old_rec.function_type;
296: ben_ola_shd.g_old_rec.user_function_name;
297: End If;
298: If (p_rec.function_type = hr_api.g_varchar2) then
299: p_rec.function_type :=
300: ben_ola_shd.g_old_rec.function_type;
301: End If;
302: If (p_rec.business_group_id = hr_api.g_number) then
303: p_rec.business_group_id :=
304: ben_ola_shd.g_old_rec.business_group_id;
300: ben_ola_shd.g_old_rec.function_type;
301: End If;
302: If (p_rec.business_group_id = hr_api.g_number) then
303: p_rec.business_group_id :=
304: ben_ola_shd.g_old_rec.business_group_id;
305: End If;
306: If (p_rec.start_date = hr_api.g_date) then
307: p_rec.start_date :=
308: ben_ola_shd.g_old_rec.start_date;
304: ben_ola_shd.g_old_rec.business_group_id;
305: End If;
306: If (p_rec.start_date = hr_api.g_date) then
307: p_rec.start_date :=
308: ben_ola_shd.g_old_rec.start_date;
309: End If;
310: If (p_rec.end_date = hr_api.g_date) then
311: p_rec.end_date :=
312: ben_ola_shd.g_old_rec.end_date;
308: ben_ola_shd.g_old_rec.start_date;
309: End If;
310: If (p_rec.end_date = hr_api.g_date) then
311: p_rec.end_date :=
312: ben_ola_shd.g_old_rec.end_date;
313: End If;
314: --
315: hr_utility.set_location(' Leaving:'||l_proc, 10);
316: --
320: -- |---------------------------------< upd >----------------------------------|
321: -- ----------------------------------------------------------------------------
322: Procedure upd
323: (
324: p_rec in out nocopy ben_ola_shd.g_rec_type
325: ) is
326: --
327: l_proc varchar2(72) := g_package||'upd';
328: --
330: hr_utility.set_location('Entering:'||l_proc, 5);
331: --
332: -- We must lock the row which we need to update.
333: --
334: ben_ola_shd.lck
335: (
336: p_rec.csr_activities_id,
337: p_rec.object_version_number
338: );
374: p_start_date in date default hr_api.g_date,
375: p_end_date in date default hr_api.g_date
376: ) is
377: --
378: l_rec ben_ola_shd.g_rec_type;
379: l_proc varchar2(72) := g_package||'upd';
380: --
381: Begin
382: hr_utility.set_location('Entering:'||l_proc, 5);
384: -- Call conversion function to turn arguments into the
385: -- l_rec structure.
386: --
387: l_rec :=
388: ben_ola_shd.convert_args
389: (
390: p_csr_activities_id,
391: p_ordr_num,
392: p_function_name,