50: -- Internal Row Handler Use Only.
51: --
52: -- ----------------------------------------------------------------------------
53: Procedure update_dml
54: (p_rec in out nocopy hxc_tkgqc_shd.g_rec_type
55: ) is
56: --
57: l_proc varchar2(72) ;
58: --
66: --
67: -- Increment the object version
68: p_rec.object_version_number := p_rec.object_version_number + 1;
69: --
70: hxc_tkgqc_shd.g_api_dml := true; -- Set the api dml status
71: --
72: -- Update the hxc_tk_group_query_criteria Row
73: --
74: update hxc_tk_group_query_criteria
83: ,last_update_login = fnd_global.login_id
84:
85: where tk_group_query_criteria_id = p_rec.tk_group_query_criteria_id;
86: --
87: hxc_tkgqc_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_tkgqc_shd.g_api_dml := false; -- Unset the api dml status
97: hxc_tkgqc_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_tkgqc_shd.g_api_dml := false; -- Unset the api dml status
97: hxc_tkgqc_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_tkgqc_shd.g_api_dml := false; -- Unset the api dml status
97: hxc_tkgqc_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_tkgqc_shd.g_api_dml := false; -- Unset the api dml status
102: hxc_tkgqc_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_tkgqc_shd.g_api_dml := false; -- Unset the api dml status
102: hxc_tkgqc_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_tkgqc_shd.g_api_dml := false; -- Unset the api dml status
102: hxc_tkgqc_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_tkgqc_shd.g_api_dml := false; -- Unset the api dml status
107: hxc_tkgqc_shd.constraint_error
108: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
109: When Others Then
110: hxc_tkgqc_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_tkgqc_shd.g_api_dml := false; -- Unset the api dml status
107: hxc_tkgqc_shd.constraint_error
108: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
109: When Others Then
110: hxc_tkgqc_shd.g_api_dml := false; -- Unset the api dml status
111: Raise;
106: hxc_tkgqc_shd.g_api_dml := false; -- Unset the api dml status
107: hxc_tkgqc_shd.constraint_error
108: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
109: When Others Then
110: hxc_tkgqc_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_tkgqc_shd.g_rec_type
146: ) is
147: --
148: l_proc varchar2(72) ;
149: --
190: -- Internal Row Handler Use Only.
191: --
192: -- ----------------------------------------------------------------------------
193: Procedure post_update
194: (p_rec in hxc_tkgqc_shd.g_rec_type
195: ) is
196: --
197: l_proc varchar2(72) ;
198: --
216: => p_rec.criteria_id
217: ,p_object_version_number
218: => p_rec.object_version_number
219: ,p_tk_group_query_id_o
220: => hxc_tkgqc_shd.g_old_rec.tk_group_query_id
221: ,p_criteria_type_o
222: => hxc_tkgqc_shd.g_old_rec.criteria_type
223: ,p_criteria_id_o
224: => hxc_tkgqc_shd.g_old_rec.criteria_id
218: => p_rec.object_version_number
219: ,p_tk_group_query_id_o
220: => hxc_tkgqc_shd.g_old_rec.tk_group_query_id
221: ,p_criteria_type_o
222: => hxc_tkgqc_shd.g_old_rec.criteria_type
223: ,p_criteria_id_o
224: => hxc_tkgqc_shd.g_old_rec.criteria_id
225: ,p_object_version_number_o
226: => hxc_tkgqc_shd.g_old_rec.object_version_number
220: => hxc_tkgqc_shd.g_old_rec.tk_group_query_id
221: ,p_criteria_type_o
222: => hxc_tkgqc_shd.g_old_rec.criteria_type
223: ,p_criteria_id_o
224: => hxc_tkgqc_shd.g_old_rec.criteria_id
225: ,p_object_version_number_o
226: => hxc_tkgqc_shd.g_old_rec.object_version_number
227: );
228: --
222: => hxc_tkgqc_shd.g_old_rec.criteria_type
223: ,p_criteria_id_o
224: => hxc_tkgqc_shd.g_old_rec.criteria_id
225: ,p_object_version_number_o
226: => hxc_tkgqc_shd.g_old_rec.object_version_number
227: );
228: --
229: exception
230: --
282: -- Internal Row Handler Use Only.
283: --
284: -- ----------------------------------------------------------------------------
285: Procedure convert_defs
286: (p_rec in out nocopy hxc_tkgqc_shd.g_rec_type
287: ) is
288: --
289: Begin
290:
295: -- is being used then we must set to the 'current' argument value.
296: --
297: If (p_rec.tk_group_query_id = hr_api.g_number) then
298: p_rec.tk_group_query_id :=
299: hxc_tkgqc_shd.g_old_rec.tk_group_query_id;
300: End If;
301: If (p_rec.criteria_type = hr_api.g_varchar2) then
302: p_rec.criteria_type :=
303: hxc_tkgqc_shd.g_old_rec.criteria_type;
299: hxc_tkgqc_shd.g_old_rec.tk_group_query_id;
300: End If;
301: If (p_rec.criteria_type = hr_api.g_varchar2) then
302: p_rec.criteria_type :=
303: hxc_tkgqc_shd.g_old_rec.criteria_type;
304: End If;
305: If (p_rec.criteria_id = hr_api.g_number) then
306: p_rec.criteria_id :=
307: hxc_tkgqc_shd.g_old_rec.criteria_id;
303: hxc_tkgqc_shd.g_old_rec.criteria_type;
304: End If;
305: If (p_rec.criteria_id = hr_api.g_number) then
306: p_rec.criteria_id :=
307: hxc_tkgqc_shd.g_old_rec.criteria_id;
308: End If;
309: --
310: End convert_defs;
311: --
312: -- ----------------------------------------------------------------------------
313: -- |---------------------------------< upd >----------------------------------|
314: -- ----------------------------------------------------------------------------
315: Procedure upd
316: (p_rec in out nocopy hxc_tkgqc_shd.g_rec_type
317: ) is
318: --
319: l_proc varchar2(72) ;
320: --
327: end if;
328: --
329: -- We must lock the row which we need to update.
330: --
331: hxc_tkgqc_shd.lck
332: (p_rec.tk_group_query_criteria_id
333: ,p_rec.object_version_number
334: );
335: --
370: ,p_criteria_type in varchar2 default hr_api.g_varchar2
371: ,p_criteria_id in number default hr_api.g_number
372: ) is
373: --
374: l_rec hxc_tkgqc_shd.g_rec_type;
375: l_proc varchar2(72) ;
376: --
377: Begin
378: g_debug :=hr_utility.debug_enabled;
385: -- Call conversion function to turn arguments into the
386: -- l_rec structure.
387: --
388: l_rec :=
389: hxc_tkgqc_shd.convert_args
390: (p_tk_group_query_criteria_id
391: ,p_tk_group_query_id
392: ,p_criteria_type
393: ,p_criteria_id