53: --
54: -- {End Of Comments}
55: -- ----------------------------------------------------------------------------
56: Procedure update_dml
57: (p_rec in out nocopy hxc_rtc_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_rtc_shd.g_api_dml := true; -- Set the api dml status
74: --
75: -- Update the hxc_retrieval_rule_comps Row
76: --
77: update hxc_retrieval_rule_comps
86: ,last_update_login = fnd_global.login_id
87:
88: where retrieval_rule_comp_id = p_rec.retrieval_rule_comp_id;
89: --
90: hxc_rtc_shd.g_api_dml := false; -- Unset the api dml status
91: --
92: if g_debug then
93: hr_utility.set_location(' Leaving:'||l_proc, 10);
94: end if;
95: --
96: Exception
97: When hr_api.check_integrity_violated Then
98: -- A check constraint has been violated
99: hxc_rtc_shd.g_api_dml := false; -- Unset the api dml status
100: hxc_rtc_shd.constraint_error
101: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
102: When hr_api.parent_integrity_violated Then
103: -- Parent integrity has been violated
96: Exception
97: When hr_api.check_integrity_violated Then
98: -- A check constraint has been violated
99: hxc_rtc_shd.g_api_dml := false; -- Unset the api dml status
100: hxc_rtc_shd.constraint_error
101: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
102: When hr_api.parent_integrity_violated Then
103: -- Parent integrity has been violated
104: hxc_rtc_shd.g_api_dml := false; -- Unset the api dml status
100: hxc_rtc_shd.constraint_error
101: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
102: When hr_api.parent_integrity_violated Then
103: -- Parent integrity has been violated
104: hxc_rtc_shd.g_api_dml := false; -- Unset the api dml status
105: hxc_rtc_shd.constraint_error
106: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
107: When hr_api.unique_integrity_violated Then
108: -- Unique integrity has been violated
101: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
102: When hr_api.parent_integrity_violated Then
103: -- Parent integrity has been violated
104: hxc_rtc_shd.g_api_dml := false; -- Unset the api dml status
105: hxc_rtc_shd.constraint_error
106: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
107: When hr_api.unique_integrity_violated Then
108: -- Unique integrity has been violated
109: hxc_rtc_shd.g_api_dml := false; -- Unset the api dml status
105: hxc_rtc_shd.constraint_error
106: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
107: When hr_api.unique_integrity_violated Then
108: -- Unique integrity has been violated
109: hxc_rtc_shd.g_api_dml := false; -- Unset the api dml status
110: hxc_rtc_shd.constraint_error
111: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
112: When Others Then
113: hxc_rtc_shd.g_api_dml := false; -- Unset the api dml status
106: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
107: When hr_api.unique_integrity_violated Then
108: -- Unique integrity has been violated
109: hxc_rtc_shd.g_api_dml := false; -- Unset the api dml status
110: hxc_rtc_shd.constraint_error
111: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
112: When Others Then
113: hxc_rtc_shd.g_api_dml := false; -- Unset the api dml status
114: Raise;
109: hxc_rtc_shd.g_api_dml := false; -- Unset the api dml status
110: hxc_rtc_shd.constraint_error
111: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
112: When Others Then
113: hxc_rtc_shd.g_api_dml := false; -- Unset the api dml status
114: Raise;
115: End update_dml;
116: --
117: -- ----------------------------------------------------------------------------
146: --
147: -- {End Of Comments}
148: -- ----------------------------------------------------------------------------
149: Procedure pre_update
150: (p_rec in hxc_rtc_shd.g_rec_type
151: ) is
152: --
153: l_proc varchar2(72);
154: --
196: -- {End Of Comments}
197: -- ----------------------------------------------------------------------------
198: Procedure post_update
199: (p_effective_date in date
200: ,p_rec in hxc_rtc_shd.g_rec_type
201: ) is
202: --
203: l_proc varchar2(72);
204: --
223: => p_rec.object_version_number
224: ,p_time_recipient_id
225: => p_rec.time_recipient_id
226: ,p_retrieval_rule_id_o
227: => hxc_rtc_shd.g_old_rec.retrieval_rule_id
228: ,p_status_o
229: => hxc_rtc_shd.g_old_rec.status
230: ,p_object_version_number_o
231: => hxc_rtc_shd.g_old_rec.object_version_number
225: => p_rec.time_recipient_id
226: ,p_retrieval_rule_id_o
227: => hxc_rtc_shd.g_old_rec.retrieval_rule_id
228: ,p_status_o
229: => hxc_rtc_shd.g_old_rec.status
230: ,p_object_version_number_o
231: => hxc_rtc_shd.g_old_rec.object_version_number
232: ,p_time_recipient_id_o
233: => hxc_rtc_shd.g_old_rec.time_recipient_id
227: => hxc_rtc_shd.g_old_rec.retrieval_rule_id
228: ,p_status_o
229: => hxc_rtc_shd.g_old_rec.status
230: ,p_object_version_number_o
231: => hxc_rtc_shd.g_old_rec.object_version_number
232: ,p_time_recipient_id_o
233: => hxc_rtc_shd.g_old_rec.time_recipient_id
234: );
235: --
229: => hxc_rtc_shd.g_old_rec.status
230: ,p_object_version_number_o
231: => hxc_rtc_shd.g_old_rec.object_version_number
232: ,p_time_recipient_id_o
233: => hxc_rtc_shd.g_old_rec.time_recipient_id
234: );
235: --
236: exception
237: --
291: --
292: -- {End Of Comments}
293: -- ----------------------------------------------------------------------------
294: Procedure convert_defs
295: (p_rec in out nocopy hxc_rtc_shd.g_rec_type
296: ) is
297: --
298: Begin
299: --
303: -- is being used then we must set to the 'current' argument value.
304: --
305: If (p_rec.retrieval_rule_id = hr_api.g_number) then
306: p_rec.retrieval_rule_id :=
307: hxc_rtc_shd.g_old_rec.retrieval_rule_id;
308: End If;
309: If (p_rec.status = hr_api.g_varchar2) then
310: p_rec.status :=
311: hxc_rtc_shd.g_old_rec.status;
307: hxc_rtc_shd.g_old_rec.retrieval_rule_id;
308: End If;
309: If (p_rec.status = hr_api.g_varchar2) then
310: p_rec.status :=
311: hxc_rtc_shd.g_old_rec.status;
312: End If;
313: If (p_rec.time_recipient_id = hr_api.g_number) then
314: p_rec.time_recipient_id :=
315: hxc_rtc_shd.g_old_rec.time_recipient_id;
311: hxc_rtc_shd.g_old_rec.status;
312: End If;
313: If (p_rec.time_recipient_id = hr_api.g_number) then
314: p_rec.time_recipient_id :=
315: hxc_rtc_shd.g_old_rec.time_recipient_id;
316: End If;
317: --
318: End convert_defs;
319: --
321: -- |---------------------------------< upd >----------------------------------|
322: -- ----------------------------------------------------------------------------
323: Procedure upd
324: (p_effective_date in date
325: ,p_rec in out nocopy hxc_rtc_shd.g_rec_type
326: ) is
327: --
328: l_proc varchar2(72);
329: --
336: end if;
337: --
338: -- We must lock the row which we need to update.
339: --
340: hxc_rtc_shd.lck
341: (p_rec.retrieval_rule_comp_id
342: ,p_rec.object_version_number
343: );
344: --
381: ,p_status in varchar2 default hr_api.g_varchar2
382: ,p_time_recipient_id in number default hr_api.g_number
383: ) is
384: --
385: l_rec hxc_rtc_shd.g_rec_type;
386: l_proc varchar2(72);
387: --
388: Begin
389: g_debug := hr_utility.debug_enabled;
396: -- Call conversion function to turn arguments into the
397: -- l_rec structure.
398: --
399: l_rec :=
400: hxc_rtc_shd.convert_args
401: (p_retrieval_rule_comp_id
402: ,p_retrieval_rule_id
403: ,p_status
404: ,p_object_version_number