50: -- Internal Row Handler Use Only.
51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml(p_rec in out nocopy ben_xdd_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_xdd_shd.g_api_dml := true; -- Set the api dml status
66: --
67: -- Update the ben_ext_data_elmt_decd Row
68: --
69: update ben_ext_data_elmt_decd
80: last_update_login = p_rec.last_update_login,
81: object_version_number = p_rec.object_version_number
82: where ext_data_elmt_decd_id = p_rec.ext_data_elmt_decd_id;
83: --
84: ben_xdd_shd.g_api_dml := false; -- Unset the api dml status
85: --
86: hr_utility.set_location(' Leaving:'||l_proc, 10);
87: --
88: Exception
87: --
88: Exception
89: When hr_api.check_integrity_violated Then
90: -- A check constraint has been violated
91: ben_xdd_shd.g_api_dml := false; -- Unset the api dml status
92: ben_xdd_shd.constraint_error
93: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.parent_integrity_violated Then
95: -- Parent integrity has been violated
88: Exception
89: When hr_api.check_integrity_violated Then
90: -- A check constraint has been violated
91: ben_xdd_shd.g_api_dml := false; -- Unset the api dml status
92: ben_xdd_shd.constraint_error
93: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.parent_integrity_violated Then
95: -- Parent integrity has been violated
96: ben_xdd_shd.g_api_dml := false; -- Unset the api dml status
92: ben_xdd_shd.constraint_error
93: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.parent_integrity_violated Then
95: -- Parent integrity has been violated
96: ben_xdd_shd.g_api_dml := false; -- Unset the api dml status
97: ben_xdd_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.unique_integrity_violated Then
100: -- Unique integrity has been violated
93: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.parent_integrity_violated Then
95: -- Parent integrity has been violated
96: ben_xdd_shd.g_api_dml := false; -- Unset the api dml status
97: ben_xdd_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.unique_integrity_violated Then
100: -- Unique integrity has been violated
101: ben_xdd_shd.g_api_dml := false; -- Unset the api dml status
97: ben_xdd_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.unique_integrity_violated Then
100: -- Unique integrity has been violated
101: ben_xdd_shd.g_api_dml := false; -- Unset the api dml status
102: ben_xdd_shd.constraint_error
103: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
104: When Others Then
105: ben_xdd_shd.g_api_dml := false; -- Unset the api dml status
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.unique_integrity_violated Then
100: -- Unique integrity has been violated
101: ben_xdd_shd.g_api_dml := false; -- Unset the api dml status
102: ben_xdd_shd.constraint_error
103: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
104: When Others Then
105: ben_xdd_shd.g_api_dml := false; -- Unset the api dml status
106: Raise;
101: ben_xdd_shd.g_api_dml := false; -- Unset the api dml status
102: ben_xdd_shd.constraint_error
103: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
104: When Others Then
105: ben_xdd_shd.g_api_dml := false; -- Unset the api dml status
106: Raise;
107: End update_dml;
108: --
109: -- ----------------------------------------------------------------------------
137: -- Internal Row Handler Use Only.
138: --
139: -- {End Of Comments}
140: -- ----------------------------------------------------------------------------
141: Procedure pre_update(p_rec in ben_xdd_shd.g_rec_type) is
142: --
143: l_proc varchar2(72) := g_package||'pre_update';
144: --
145: Begin
179: -- Internal Row Handler Use Only.
180: --
181: -- {End Of Comments}
182: -- ----------------------------------------------------------------------------
183: Procedure post_update(p_rec in ben_xdd_shd.g_rec_type) is
184: --
185: l_proc varchar2(72) := g_package||'post_update';
186: --
187: Begin
201: ,p_ext_data_elmt_id =>p_rec.ext_data_elmt_id
202: ,p_business_group_id =>p_rec.business_group_id
203: ,p_legislation_code =>p_rec.legislation_code
204: ,p_object_version_number =>p_rec.object_version_number
205: ,p_val_o =>ben_xdd_shd.g_old_rec.val
206: ,p_dcd_val_o =>ben_xdd_shd.g_old_rec.dcd_val
207: ,p_chg_evt_source_o =>ben_xdd_shd.g_old_rec.chg_evt_source
208: ,p_ext_data_elmt_id_o =>ben_xdd_shd.g_old_rec.ext_data_elmt_id
209: ,p_business_group_id_o =>ben_xdd_shd.g_old_rec.business_group_id
202: ,p_business_group_id =>p_rec.business_group_id
203: ,p_legislation_code =>p_rec.legislation_code
204: ,p_object_version_number =>p_rec.object_version_number
205: ,p_val_o =>ben_xdd_shd.g_old_rec.val
206: ,p_dcd_val_o =>ben_xdd_shd.g_old_rec.dcd_val
207: ,p_chg_evt_source_o =>ben_xdd_shd.g_old_rec.chg_evt_source
208: ,p_ext_data_elmt_id_o =>ben_xdd_shd.g_old_rec.ext_data_elmt_id
209: ,p_business_group_id_o =>ben_xdd_shd.g_old_rec.business_group_id
210: ,p_legislation_code_o =>ben_xdd_shd.g_old_rec.legislation_code
203: ,p_legislation_code =>p_rec.legislation_code
204: ,p_object_version_number =>p_rec.object_version_number
205: ,p_val_o =>ben_xdd_shd.g_old_rec.val
206: ,p_dcd_val_o =>ben_xdd_shd.g_old_rec.dcd_val
207: ,p_chg_evt_source_o =>ben_xdd_shd.g_old_rec.chg_evt_source
208: ,p_ext_data_elmt_id_o =>ben_xdd_shd.g_old_rec.ext_data_elmt_id
209: ,p_business_group_id_o =>ben_xdd_shd.g_old_rec.business_group_id
210: ,p_legislation_code_o =>ben_xdd_shd.g_old_rec.legislation_code
211: ,p_object_version_number_o =>ben_xdd_shd.g_old_rec.object_version_number
204: ,p_object_version_number =>p_rec.object_version_number
205: ,p_val_o =>ben_xdd_shd.g_old_rec.val
206: ,p_dcd_val_o =>ben_xdd_shd.g_old_rec.dcd_val
207: ,p_chg_evt_source_o =>ben_xdd_shd.g_old_rec.chg_evt_source
208: ,p_ext_data_elmt_id_o =>ben_xdd_shd.g_old_rec.ext_data_elmt_id
209: ,p_business_group_id_o =>ben_xdd_shd.g_old_rec.business_group_id
210: ,p_legislation_code_o =>ben_xdd_shd.g_old_rec.legislation_code
211: ,p_object_version_number_o =>ben_xdd_shd.g_old_rec.object_version_number
212: );
205: ,p_val_o =>ben_xdd_shd.g_old_rec.val
206: ,p_dcd_val_o =>ben_xdd_shd.g_old_rec.dcd_val
207: ,p_chg_evt_source_o =>ben_xdd_shd.g_old_rec.chg_evt_source
208: ,p_ext_data_elmt_id_o =>ben_xdd_shd.g_old_rec.ext_data_elmt_id
209: ,p_business_group_id_o =>ben_xdd_shd.g_old_rec.business_group_id
210: ,p_legislation_code_o =>ben_xdd_shd.g_old_rec.legislation_code
211: ,p_object_version_number_o =>ben_xdd_shd.g_old_rec.object_version_number
212: );
213: --
206: ,p_dcd_val_o =>ben_xdd_shd.g_old_rec.dcd_val
207: ,p_chg_evt_source_o =>ben_xdd_shd.g_old_rec.chg_evt_source
208: ,p_ext_data_elmt_id_o =>ben_xdd_shd.g_old_rec.ext_data_elmt_id
209: ,p_business_group_id_o =>ben_xdd_shd.g_old_rec.business_group_id
210: ,p_legislation_code_o =>ben_xdd_shd.g_old_rec.legislation_code
211: ,p_object_version_number_o =>ben_xdd_shd.g_old_rec.object_version_number
212: );
213: --
214: exception
207: ,p_chg_evt_source_o =>ben_xdd_shd.g_old_rec.chg_evt_source
208: ,p_ext_data_elmt_id_o =>ben_xdd_shd.g_old_rec.ext_data_elmt_id
209: ,p_business_group_id_o =>ben_xdd_shd.g_old_rec.business_group_id
210: ,p_legislation_code_o =>ben_xdd_shd.g_old_rec.legislation_code
211: ,p_object_version_number_o =>ben_xdd_shd.g_old_rec.object_version_number
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_xdd_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.val = hr_api.g_varchar2) then
287: p_rec.val :=
288: ben_xdd_shd.g_old_rec.val;
289: End If;
290: If (p_rec.dcd_val = hr_api.g_varchar2) then
291: p_rec.dcd_val :=
292: ben_xdd_shd.g_old_rec.dcd_val;
288: ben_xdd_shd.g_old_rec.val;
289: End If;
290: If (p_rec.dcd_val = hr_api.g_varchar2) then
291: p_rec.dcd_val :=
292: ben_xdd_shd.g_old_rec.dcd_val;
293: End If;
294: If (p_rec.chg_evt_source = hr_api.g_varchar2) then
295: p_rec.chg_evt_source :=
296: ben_xdd_shd.g_old_rec.chg_evt_source;
292: ben_xdd_shd.g_old_rec.dcd_val;
293: End If;
294: If (p_rec.chg_evt_source = hr_api.g_varchar2) then
295: p_rec.chg_evt_source :=
296: ben_xdd_shd.g_old_rec.chg_evt_source;
297: End If;
298: If (p_rec.ext_data_elmt_id = hr_api.g_number) then
299: p_rec.ext_data_elmt_id :=
300: ben_xdd_shd.g_old_rec.ext_data_elmt_id;
296: ben_xdd_shd.g_old_rec.chg_evt_source;
297: End If;
298: If (p_rec.ext_data_elmt_id = hr_api.g_number) then
299: p_rec.ext_data_elmt_id :=
300: ben_xdd_shd.g_old_rec.ext_data_elmt_id;
301: End If;
302: If (p_rec.business_group_id = hr_api.g_number) then
303: p_rec.business_group_id :=
304: ben_xdd_shd.g_old_rec.business_group_id;
300: ben_xdd_shd.g_old_rec.ext_data_elmt_id;
301: End If;
302: If (p_rec.business_group_id = hr_api.g_number) then
303: p_rec.business_group_id :=
304: ben_xdd_shd.g_old_rec.business_group_id;
305: End If;
306: If (p_rec.legislation_code = hr_api.g_varchar2) then
307: p_rec.legislation_code :=
308: ben_xdd_shd.g_old_rec.legislation_code;
304: ben_xdd_shd.g_old_rec.business_group_id;
305: End If;
306: If (p_rec.legislation_code = hr_api.g_varchar2) then
307: p_rec.legislation_code :=
308: ben_xdd_shd.g_old_rec.legislation_code;
309: End If;
310:
311: --
312: hr_utility.set_location(' Leaving:'||l_proc, 10);
317: -- |---------------------------------< upd >----------------------------------|
318: -- ----------------------------------------------------------------------------
319: Procedure upd
320: (
321: p_rec in out nocopy ben_xdd_shd.g_rec_type
322: ) is
323: --
324: l_proc varchar2(72) := g_package||'upd';
325: --
327: hr_utility.set_location('Entering:'||l_proc, 5);
328: --
329: -- We must lock the row which we need to update.
330: --
331: ben_xdd_shd.lck
332: (
333: p_rec.ext_data_elmt_decd_id,
334: p_rec.object_version_number
335: );
375: p_created_by in number default hr_api.g_number,
376: p_object_version_number in out nocopy number
377: ) is
378: --
379: l_rec ben_xdd_shd.g_rec_type;
380: l_proc varchar2(72) := g_package||'upd';
381: --
382: Begin
383: hr_utility.set_location('Entering:'||l_proc, 5);
385: -- Call conversion function to turn arguments into the
386: -- l_rec structure.
387: --
388: l_rec :=
389: ben_xdd_shd.convert_args
390: (
391: p_ext_data_elmt_decd_id,
392: p_val,
393: p_dcd_val,