53: --
54: -- {End Of Comments}
55: -- ----------------------------------------------------------------------------
56: Procedure update_dml
57: (p_rec in out nocopy hxc_mcu_shd.g_rec_type
58: ) is
59: --
60: l_proc varchar2(72);
61: --
69: --
70: -- Increment the object version
71: p_rec.object_version_number := p_rec.object_version_number + 1;
72: --
73: hxc_mcu_shd.g_api_dml := true; -- Set the api dml status
74: --
75: -- Update the hxc_mapping_comp_usages Row
76: --
77: update hxc_mapping_comp_usages
84: ,last_update_date = sysdate
85: ,last_update_login = fnd_global.login_id
86: where mapping_comp_usage_id = p_rec.mapping_comp_usage_id;
87: --
88: hxc_mcu_shd.g_api_dml := false; -- Unset the api dml status
89: --
90: if g_debug then
91: hr_utility.set_location(' Leaving:'||l_proc, 10);
92: end if;
93: --
94: Exception
95: When hr_api.check_integrity_violated Then
96: -- A check constraint has been violated
97: hxc_mcu_shd.g_api_dml := false; -- Unset the api dml status
98: hxc_mcu_shd.constraint_error
99: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
100: When hr_api.parent_integrity_violated Then
101: -- Parent integrity has been violated
94: Exception
95: When hr_api.check_integrity_violated Then
96: -- A check constraint has been violated
97: hxc_mcu_shd.g_api_dml := false; -- Unset the api dml status
98: hxc_mcu_shd.constraint_error
99: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
100: When hr_api.parent_integrity_violated Then
101: -- Parent integrity has been violated
102: hxc_mcu_shd.g_api_dml := false; -- Unset the api dml status
98: hxc_mcu_shd.constraint_error
99: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
100: When hr_api.parent_integrity_violated Then
101: -- Parent integrity has been violated
102: hxc_mcu_shd.g_api_dml := false; -- Unset the api dml status
103: hxc_mcu_shd.constraint_error
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
105: When hr_api.unique_integrity_violated Then
106: -- Unique integrity has been violated
99: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
100: When hr_api.parent_integrity_violated Then
101: -- Parent integrity has been violated
102: hxc_mcu_shd.g_api_dml := false; -- Unset the api dml status
103: hxc_mcu_shd.constraint_error
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
105: When hr_api.unique_integrity_violated Then
106: -- Unique integrity has been violated
107: hxc_mcu_shd.g_api_dml := false; -- Unset the api dml status
103: hxc_mcu_shd.constraint_error
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
105: When hr_api.unique_integrity_violated Then
106: -- Unique integrity has been violated
107: hxc_mcu_shd.g_api_dml := false; -- Unset the api dml status
108: hxc_mcu_shd.constraint_error
109: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
110: When Others Then
111: hxc_mcu_shd.g_api_dml := false; -- Unset the api dml status
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
105: When hr_api.unique_integrity_violated Then
106: -- Unique integrity has been violated
107: hxc_mcu_shd.g_api_dml := false; -- Unset the api dml status
108: hxc_mcu_shd.constraint_error
109: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
110: When Others Then
111: hxc_mcu_shd.g_api_dml := false; -- Unset the api dml status
112: Raise;
107: hxc_mcu_shd.g_api_dml := false; -- Unset the api dml status
108: hxc_mcu_shd.constraint_error
109: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
110: When Others Then
111: hxc_mcu_shd.g_api_dml := false; -- Unset the api dml status
112: Raise;
113: End update_dml;
114: --
115: -- ----------------------------------------------------------------------------
144: --
145: -- {End Of Comments}
146: -- ----------------------------------------------------------------------------
147: Procedure pre_update
148: (p_rec in hxc_mcu_shd.g_rec_type
149: ) is
150: --
151: l_proc varchar2(72);
152: --
193: --
194: -- {End Of Comments}
195: -- ----------------------------------------------------------------------------
196: Procedure post_update
197: (p_rec in hxc_mcu_shd.g_rec_type
198: ) is
199: --
200: l_proc varchar2(72);
201: --
217: => p_rec.mapping_component_id
218: ,p_mapping_id
219: => p_rec.mapping_id
220: ,p_object_version_number_o
221: => hxc_mcu_shd.g_old_rec.object_version_number
222: ,p_mapping_component_id_o
223: => hxc_mcu_shd.g_old_rec.mapping_component_id
224: ,p_mapping_id_o
225: => hxc_mcu_shd.g_old_rec.mapping_id
219: => p_rec.mapping_id
220: ,p_object_version_number_o
221: => hxc_mcu_shd.g_old_rec.object_version_number
222: ,p_mapping_component_id_o
223: => hxc_mcu_shd.g_old_rec.mapping_component_id
224: ,p_mapping_id_o
225: => hxc_mcu_shd.g_old_rec.mapping_id
226: );
227: --
221: => hxc_mcu_shd.g_old_rec.object_version_number
222: ,p_mapping_component_id_o
223: => hxc_mcu_shd.g_old_rec.mapping_component_id
224: ,p_mapping_id_o
225: => hxc_mcu_shd.g_old_rec.mapping_id
226: );
227: --
228: exception
229: --
283: --
284: -- {End Of Comments}
285: -- ----------------------------------------------------------------------------
286: Procedure convert_defs
287: (p_rec in out nocopy hxc_mcu_shd.g_rec_type
288: ) is
289: --
290: Begin
291: --
295: -- is being used then we must set to the 'current' argument value.
296: --
297: If (p_rec.mapping_component_id = hr_api.g_number) then
298: p_rec.mapping_component_id :=
299: hxc_mcu_shd.g_old_rec.mapping_component_id;
300: End If;
301: If (p_rec.mapping_id = hr_api.g_number) then
302: p_rec.mapping_id :=
303: hxc_mcu_shd.g_old_rec.mapping_id;
299: hxc_mcu_shd.g_old_rec.mapping_component_id;
300: End If;
301: If (p_rec.mapping_id = hr_api.g_number) then
302: p_rec.mapping_id :=
303: hxc_mcu_shd.g_old_rec.mapping_id;
304: End If;
305: --
306: End convert_defs;
307: --
308: -- ----------------------------------------------------------------------------
309: -- |---------------------------------< upd >----------------------------------|
310: -- ----------------------------------------------------------------------------
311: Procedure upd
312: (p_rec in out nocopy hxc_mcu_shd.g_rec_type
313: ) is
314: --
315: l_proc varchar2(72);
316: --
323: end if;
324: --
325: -- We must lock the row which we need to update.
326: --
327: hxc_mcu_shd.lck
328: (p_rec.mapping_comp_usage_id
329: ,p_rec.object_version_number
330: );
331: --
364: ,p_mapping_component_id in number default hr_api.g_number
365: ,p_mapping_id in number default hr_api.g_number
366: ) is
367: --
368: l_rec hxc_mcu_shd.g_rec_type;
369: l_proc varchar2(72);
370: --
371: Begin
372: g_debug := hr_utility.debug_enabled;
379: -- Call conversion function to turn arguments into the
380: -- l_rec structure.
381: --
382: l_rec :=
383: hxc_mcu_shd.convert_args
384: (p_mapping_comp_usage_id
385: ,p_object_version_number
386: ,p_mapping_component_id
387: ,p_mapping_id