50: -- Internal Row Handler Use Only.
51: --
52: -- ----------------------------------------------------------------------------
53: Procedure update_dml
54: (p_rec in out nocopy hxc_heg_shd.g_rec_type
55: ) is
56: --
57: l_proc varchar2(72);
58: --
64: --
65: -- Increment the object version
66: p_rec.object_version_number := p_rec.object_version_number + 1;
67: --
68: hxc_heg_shd.g_api_dml := true; -- Set the api dml status
69: --
70: -- Update the hxc_entity_groups Row
71: --
72: update hxc_entity_groups
83: ,legislation_code = p_rec.legislation_code
84:
85: where entity_group_id = p_rec.entity_group_id;
86: --
87: hxc_heg_shd.g_api_dml := false; -- Unset the api dml status
88: --
89: if g_debug then
90: hr_utility.set_location(' Leaving:'||l_proc, 10);
91: end if;
92: --
93: Exception
94: When hr_api.check_integrity_violated Then
95: -- A check constraint has been violated
96: hxc_heg_shd.g_api_dml := false; -- Unset the api dml status
97: hxc_heg_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.parent_integrity_violated Then
100: -- Parent integrity has been violated
93: Exception
94: When hr_api.check_integrity_violated Then
95: -- A check constraint has been violated
96: hxc_heg_shd.g_api_dml := false; -- Unset the api dml status
97: hxc_heg_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.parent_integrity_violated Then
100: -- Parent integrity has been violated
101: hxc_heg_shd.g_api_dml := false; -- Unset the api dml status
97: hxc_heg_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.parent_integrity_violated Then
100: -- Parent integrity has been violated
101: hxc_heg_shd.g_api_dml := false; -- Unset the api dml status
102: hxc_heg_shd.constraint_error
103: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
104: When hr_api.unique_integrity_violated Then
105: -- Unique integrity has been violated
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.parent_integrity_violated Then
100: -- Parent integrity has been violated
101: hxc_heg_shd.g_api_dml := false; -- Unset the api dml status
102: hxc_heg_shd.constraint_error
103: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
104: When hr_api.unique_integrity_violated Then
105: -- Unique integrity has been violated
106: hxc_heg_shd.g_api_dml := false; -- Unset the api dml status
102: hxc_heg_shd.constraint_error
103: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
104: When hr_api.unique_integrity_violated Then
105: -- Unique integrity has been violated
106: hxc_heg_shd.g_api_dml := false; -- Unset the api dml status
107: hxc_heg_shd.constraint_error
108: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
109: When Others Then
110: hxc_heg_shd.g_api_dml := false; -- Unset the api dml status
103: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
104: When hr_api.unique_integrity_violated Then
105: -- Unique integrity has been violated
106: hxc_heg_shd.g_api_dml := false; -- Unset the api dml status
107: hxc_heg_shd.constraint_error
108: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
109: When Others Then
110: hxc_heg_shd.g_api_dml := false; -- Unset the api dml status
111: Raise;
106: hxc_heg_shd.g_api_dml := false; -- Unset the api dml status
107: hxc_heg_shd.constraint_error
108: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
109: When Others Then
110: hxc_heg_shd.g_api_dml := false; -- Unset the api dml status
111: Raise;
112: End update_dml;
113: --
114: -- ----------------------------------------------------------------------------
141: -- Internal Row Handler Use Only.
142: --
143: -- ----------------------------------------------------------------------------
144: Procedure pre_update
145: (p_rec in hxc_heg_shd.g_rec_type
146: ) is
147: --
148: l_proc varchar2(72);
149: --
186: -- Internal Row Handler Use Only.
187: --
188: -- ----------------------------------------------------------------------------
189: Procedure post_update
190: (p_rec in hxc_heg_shd.g_rec_type
191: ) is
192: --
193: l_proc varchar2(72);
194: --
208: => p_rec.entity_type
209: ,p_object_version_number
210: => p_rec.object_version_number
211: ,p_name_o
212: => hxc_heg_shd.g_old_rec.name
213: ,p_entity_type_o
214: => hxc_heg_shd.g_old_rec.entity_type
215: ,p_object_version_number_o
216: => hxc_heg_shd.g_old_rec.object_version_number
210: => p_rec.object_version_number
211: ,p_name_o
212: => hxc_heg_shd.g_old_rec.name
213: ,p_entity_type_o
214: => hxc_heg_shd.g_old_rec.entity_type
215: ,p_object_version_number_o
216: => hxc_heg_shd.g_old_rec.object_version_number
217: ,p_description
218: => p_rec.description
212: => hxc_heg_shd.g_old_rec.name
213: ,p_entity_type_o
214: => hxc_heg_shd.g_old_rec.entity_type
215: ,p_object_version_number_o
216: => hxc_heg_shd.g_old_rec.object_version_number
217: ,p_description
218: => p_rec.description
219: ,p_business_group_id
220: => p_rec.business_group_id
220: => p_rec.business_group_id
221: ,p_legislation_code
222: => p_rec.legislation_code
223: ,p_description_o
224: => hxc_heg_shd.g_old_rec.description
225: ,p_business_group_id_o
226: => hxc_heg_shd.g_old_rec.business_group_id
227: ,p_legislation_code_o
228: => hxc_heg_shd.g_old_rec.legislation_code
222: => p_rec.legislation_code
223: ,p_description_o
224: => hxc_heg_shd.g_old_rec.description
225: ,p_business_group_id_o
226: => hxc_heg_shd.g_old_rec.business_group_id
227: ,p_legislation_code_o
228: => hxc_heg_shd.g_old_rec.legislation_code
229: );
230: --
224: => hxc_heg_shd.g_old_rec.description
225: ,p_business_group_id_o
226: => hxc_heg_shd.g_old_rec.business_group_id
227: ,p_legislation_code_o
228: => hxc_heg_shd.g_old_rec.legislation_code
229: );
230: --
231: exception
232: --
284: -- Internal Row Handler Use Only.
285: --
286: -- ----------------------------------------------------------------------------
287: Procedure convert_defs
288: (p_rec in out nocopy hxc_heg_shd.g_rec_type
289: ) is
290: --
291: Begin
292: --
296: -- is being used then we must set to the 'current' argument value.
297: --
298: If (p_rec.name = hr_api.g_varchar2) then
299: p_rec.name :=
300: hxc_heg_shd.g_old_rec.name;
301: End If;
302: --
303: End convert_defs;
304: --
305: -- ----------------------------------------------------------------------------
306: -- |---------------------------------< upd >----------------------------------|
307: -- ----------------------------------------------------------------------------
308: Procedure upd
309: (p_rec in out nocopy hxc_heg_shd.g_rec_type
310: ) is
311: --
312: l_proc varchar2(72);
313: --
319: end if;
320: --
321: -- We must lock the row which we need to update.
322: --
323: hxc_heg_shd.lck
324: (p_rec.entity_group_id
325: ,p_rec.object_version_number
326: );
327: --
363: ,p_business_group_id in number default null
364: ,p_legislation_code in varchar2 default null
365: ) is
366: --
367: l_rec hxc_heg_shd.g_rec_type;
368: l_proc varchar2(72);
369: --
370: Begin
371: g_debug:=hr_utility.debug_enabled;
377: -- Call conversion function to turn arguments into the
378: -- l_rec structure.
379: --
380: l_rec :=
381: hxc_heg_shd.convert_args
382: (p_entity_group_id
383: ,p_name
384: ,p_entity_type
385: ,p_object_version_number