53: --
54: -- {End Of Comments}
55: -- ----------------------------------------------------------------------------
56: Procedure update_dml
57: (p_rec in out nocopy hxc_hts_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_hts_shd.g_api_dml := true; -- Set the api dml status
74: --
75: -- Update the hxc_time_sources Row
76: --
77: update hxc_time_sources
84: ,last_update_login = fnd_global.login_id
85:
86: where time_source_id = p_rec.time_source_id;
87: --
88: hxc_hts_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_hts_shd.g_api_dml := false; -- Unset the api dml status
98: hxc_hts_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_hts_shd.g_api_dml := false; -- Unset the api dml status
98: hxc_hts_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_hts_shd.g_api_dml := false; -- Unset the api dml status
98: hxc_hts_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_hts_shd.g_api_dml := false; -- Unset the api dml status
103: hxc_hts_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_hts_shd.g_api_dml := false; -- Unset the api dml status
103: hxc_hts_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_hts_shd.g_api_dml := false; -- Unset the api dml status
103: hxc_hts_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_hts_shd.g_api_dml := false; -- Unset the api dml status
108: hxc_hts_shd.constraint_error
109: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
110: When Others Then
111: hxc_hts_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_hts_shd.g_api_dml := false; -- Unset the api dml status
108: hxc_hts_shd.constraint_error
109: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
110: When Others Then
111: hxc_hts_shd.g_api_dml := false; -- Unset the api dml status
112: Raise;
107: hxc_hts_shd.g_api_dml := false; -- Unset the api dml status
108: hxc_hts_shd.constraint_error
109: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
110: When Others Then
111: hxc_hts_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_hts_shd.g_rec_type
149: ) is
150: --
151: l_proc varchar2(72);
152: --
194: -- {End Of Comments}
195: -- ----------------------------------------------------------------------------
196: Procedure post_update
197: (p_effective_date in date
198: ,p_rec in hxc_hts_shd.g_rec_type
199: ) is
200: --
201: l_proc varchar2(72);
202: --
217: => p_rec.name
218: ,p_object_version_number
219: => p_rec.object_version_number
220: ,p_name_o
221: => hxc_hts_shd.g_old_rec.name
222: ,p_object_version_number_o
223: => hxc_hts_shd.g_old_rec.object_version_number
224: );
225: --
219: => p_rec.object_version_number
220: ,p_name_o
221: => hxc_hts_shd.g_old_rec.name
222: ,p_object_version_number_o
223: => hxc_hts_shd.g_old_rec.object_version_number
224: );
225: --
226: exception
227: --
281: --
282: -- {End Of Comments}
283: -- ----------------------------------------------------------------------------
284: Procedure convert_defs
285: (p_rec in out nocopy hxc_hts_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.name = hr_api.g_varchar2) then
296: p_rec.name :=
297: hxc_hts_shd.g_old_rec.name;
298: End If;
299: --
300: End convert_defs;
301: --
303: -- |---------------------------------< upd >----------------------------------|
304: -- ----------------------------------------------------------------------------
305: Procedure upd
306: (p_effective_date in date
307: ,p_rec in out nocopy hxc_hts_shd.g_rec_type
308: ) is
309: --
310: l_proc varchar2(72);
311: --
318: end if;
319: --
320: -- We must lock the row which we need to update.
321: --
322: hxc_hts_shd.lck
323: (p_rec.time_source_id
324: ,p_rec.object_version_number
325: );
326: --
361: ,p_object_version_number in out nocopy number
362: ,p_name in varchar2 default hr_api.g_varchar2
363: ) is
364: --
365: l_rec hxc_hts_shd.g_rec_type;
366: l_proc varchar2(72);
367: --
368: Begin
369: g_debug := hr_utility.debug_enabled;
376: -- Call conversion function to turn arguments into the
377: -- l_rec structure.
378: --
379: l_rec :=
380: hxc_hts_shd.convert_args
381: (p_time_source_id
382: ,p_name
383: ,p_object_version_number
384: );