44: -- Internal Row Handler Use Only.
45: --
46: -- {End Of Comments}
47: -- ----------------------------------------------------------------------------
48: Procedure update_dml(p_rec in out NOCOPY ghr_nre_shd.g_rec_type) is
49: --
50: l_proc varchar2(72);
51: l_rec ghr_nre_shd.g_rec_type;
52: --
47: -- ----------------------------------------------------------------------------
48: Procedure update_dml(p_rec in out NOCOPY ghr_nre_shd.g_rec_type) is
49: --
50: l_proc varchar2(72);
51: l_rec ghr_nre_shd.g_rec_type;
52: --
53: Begin
54: l_proc := g_package||'update_dml';
55: hr_utility.set_location('Entering:'||l_proc, 5);
81: Exception
82: When hr_api.check_integrity_violated Then
83: -- A check constraint has been violated
84: p_rec := l_rec;
85: ghr_nre_shd.constraint_error
86: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
87: When hr_api.parent_integrity_violated Then
88: -- Parent integrity has been violated
89: p_rec := l_rec;
86: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
87: When hr_api.parent_integrity_violated Then
88: -- Parent integrity has been violated
89: p_rec := l_rec;
90: ghr_nre_shd.constraint_error
91: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
92: When hr_api.unique_integrity_violated Then
93: -- Unique integrity has been violated
94: p_rec := l_rec;
91: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
92: When hr_api.unique_integrity_violated Then
93: -- Unique integrity has been violated
94: p_rec := l_rec;
95: ghr_nre_shd.constraint_error
96: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
97: When Others Then
98: p_rec := l_rec;
99: Raise;
130: -- Internal Row Handler Use Only.
131: --
132: -- {End Of Comments}
133: -- ----------------------------------------------------------------------------
134: Procedure pre_update(p_rec in ghr_nre_shd.g_rec_type) is
135: --
136: l_proc varchar2(72);
137: --
138: Begin
174: --
175: -- {End Of Comments}
176: -- ----------------------------------------------------------------------------
177: Procedure post_update(
178: p_effective_date in date,p_rec in ghr_nre_shd.g_rec_type) is
179: --
180: l_proc varchar2(72);
181: --
182: Begin
198: ,p_date_from =>p_rec.date_from
199: ,p_date_to =>p_rec.date_to
200: ,p_object_version_number =>p_rec.object_version_number
201: ,p_effective_date =>p_effective_date
202: ,p_nature_of_action_id_o =>ghr_nre_shd.g_old_rec.nature_of_action_id
203: ,p_remark_id_o =>ghr_nre_shd.g_old_rec.remark_id
204: ,p_required_flag_o =>ghr_nre_shd.g_old_rec.required_flag
205: ,p_enabled_flag_o =>ghr_nre_shd.g_old_rec.enabled_flag
206: ,p_date_from_o =>ghr_nre_shd.g_old_rec.date_from
199: ,p_date_to =>p_rec.date_to
200: ,p_object_version_number =>p_rec.object_version_number
201: ,p_effective_date =>p_effective_date
202: ,p_nature_of_action_id_o =>ghr_nre_shd.g_old_rec.nature_of_action_id
203: ,p_remark_id_o =>ghr_nre_shd.g_old_rec.remark_id
204: ,p_required_flag_o =>ghr_nre_shd.g_old_rec.required_flag
205: ,p_enabled_flag_o =>ghr_nre_shd.g_old_rec.enabled_flag
206: ,p_date_from_o =>ghr_nre_shd.g_old_rec.date_from
207: ,p_date_to_o =>ghr_nre_shd.g_old_rec.date_to
200: ,p_object_version_number =>p_rec.object_version_number
201: ,p_effective_date =>p_effective_date
202: ,p_nature_of_action_id_o =>ghr_nre_shd.g_old_rec.nature_of_action_id
203: ,p_remark_id_o =>ghr_nre_shd.g_old_rec.remark_id
204: ,p_required_flag_o =>ghr_nre_shd.g_old_rec.required_flag
205: ,p_enabled_flag_o =>ghr_nre_shd.g_old_rec.enabled_flag
206: ,p_date_from_o =>ghr_nre_shd.g_old_rec.date_from
207: ,p_date_to_o =>ghr_nre_shd.g_old_rec.date_to
208: ,p_object_version_number_o =>ghr_nre_shd.g_old_rec.object_version_number
201: ,p_effective_date =>p_effective_date
202: ,p_nature_of_action_id_o =>ghr_nre_shd.g_old_rec.nature_of_action_id
203: ,p_remark_id_o =>ghr_nre_shd.g_old_rec.remark_id
204: ,p_required_flag_o =>ghr_nre_shd.g_old_rec.required_flag
205: ,p_enabled_flag_o =>ghr_nre_shd.g_old_rec.enabled_flag
206: ,p_date_from_o =>ghr_nre_shd.g_old_rec.date_from
207: ,p_date_to_o =>ghr_nre_shd.g_old_rec.date_to
208: ,p_object_version_number_o =>ghr_nre_shd.g_old_rec.object_version_number
209: );
202: ,p_nature_of_action_id_o =>ghr_nre_shd.g_old_rec.nature_of_action_id
203: ,p_remark_id_o =>ghr_nre_shd.g_old_rec.remark_id
204: ,p_required_flag_o =>ghr_nre_shd.g_old_rec.required_flag
205: ,p_enabled_flag_o =>ghr_nre_shd.g_old_rec.enabled_flag
206: ,p_date_from_o =>ghr_nre_shd.g_old_rec.date_from
207: ,p_date_to_o =>ghr_nre_shd.g_old_rec.date_to
208: ,p_object_version_number_o =>ghr_nre_shd.g_old_rec.object_version_number
209: );
210: --
203: ,p_remark_id_o =>ghr_nre_shd.g_old_rec.remark_id
204: ,p_required_flag_o =>ghr_nre_shd.g_old_rec.required_flag
205: ,p_enabled_flag_o =>ghr_nre_shd.g_old_rec.enabled_flag
206: ,p_date_from_o =>ghr_nre_shd.g_old_rec.date_from
207: ,p_date_to_o =>ghr_nre_shd.g_old_rec.date_to
208: ,p_object_version_number_o =>ghr_nre_shd.g_old_rec.object_version_number
209: );
210: --
211: exception
204: ,p_required_flag_o =>ghr_nre_shd.g_old_rec.required_flag
205: ,p_enabled_flag_o =>ghr_nre_shd.g_old_rec.enabled_flag
206: ,p_date_from_o =>ghr_nre_shd.g_old_rec.date_from
207: ,p_date_to_o =>ghr_nre_shd.g_old_rec.date_to
208: ,p_object_version_number_o =>ghr_nre_shd.g_old_rec.object_version_number
209: );
210: --
211: exception
212: --
266: -- Internal Row Handler Use Only.
267: --
268: -- {End Of Comments}
269: -- ----------------------------------------------------------------------------
270: Procedure convert_defs(p_rec in out NOCOPY ghr_nre_shd.g_rec_type) is
271: --
272: l_proc varchar2(72);
273: l_rec ghr_nre_shd.g_rec_type;
274: --
269: -- ----------------------------------------------------------------------------
270: Procedure convert_defs(p_rec in out NOCOPY ghr_nre_shd.g_rec_type) is
271: --
272: l_proc varchar2(72);
273: l_rec ghr_nre_shd.g_rec_type;
274: --
275: Begin
276: --
277: l_proc := g_package||'convert_defs';
284: -- is being used then we must set to the 'current' argument value.
285: --
286: If (p_rec.nature_of_action_id = hr_api.g_number) then
287: p_rec.nature_of_action_id :=
288: ghr_nre_shd.g_old_rec.nature_of_action_id;
289: End If;
290: If (p_rec.remark_id = hr_api.g_number) then
291: p_rec.remark_id :=
292: ghr_nre_shd.g_old_rec.remark_id;
288: ghr_nre_shd.g_old_rec.nature_of_action_id;
289: End If;
290: If (p_rec.remark_id = hr_api.g_number) then
291: p_rec.remark_id :=
292: ghr_nre_shd.g_old_rec.remark_id;
293: End If;
294: If (p_rec.required_flag = hr_api.g_varchar2) then
295: p_rec.required_flag :=
296: ghr_nre_shd.g_old_rec.required_flag;
292: ghr_nre_shd.g_old_rec.remark_id;
293: End If;
294: If (p_rec.required_flag = hr_api.g_varchar2) then
295: p_rec.required_flag :=
296: ghr_nre_shd.g_old_rec.required_flag;
297: End If;
298: If (p_rec.enabled_flag = hr_api.g_varchar2) then
299: p_rec.enabled_flag :=
300: ghr_nre_shd.g_old_rec.enabled_flag;
296: ghr_nre_shd.g_old_rec.required_flag;
297: End If;
298: If (p_rec.enabled_flag = hr_api.g_varchar2) then
299: p_rec.enabled_flag :=
300: ghr_nre_shd.g_old_rec.enabled_flag;
301: End If;
302: If (p_rec.date_from = hr_api.g_date) then
303: p_rec.date_from :=
304: ghr_nre_shd.g_old_rec.date_from;
300: ghr_nre_shd.g_old_rec.enabled_flag;
301: End If;
302: If (p_rec.date_from = hr_api.g_date) then
303: p_rec.date_from :=
304: ghr_nre_shd.g_old_rec.date_from;
305: End If;
306: If (p_rec.date_to = hr_api.g_date) then
307: p_rec.date_to :=
308: ghr_nre_shd.g_old_rec.date_to;
304: ghr_nre_shd.g_old_rec.date_from;
305: End If;
306: If (p_rec.date_to = hr_api.g_date) then
307: p_rec.date_to :=
308: ghr_nre_shd.g_old_rec.date_to;
309: End If;
310:
311: --
312: hr_utility.set_location(' Leaving:'||l_proc, 10);
322: -- ----------------------------------------------------------------------------
323: Procedure upd
324: (
325: p_effective_date in date,
326: p_rec in out NOCOPY ghr_nre_shd.g_rec_type
327: ) is
328: --
329: l_proc varchar2(72) ;
330: l_rec ghr_nre_shd.g_rec_type;
326: p_rec in out NOCOPY ghr_nre_shd.g_rec_type
327: ) is
328: --
329: l_proc varchar2(72) ;
330: l_rec ghr_nre_shd.g_rec_type;
331: --
332: Begin
333: l_proc := g_package||'upd';
334: hr_utility.set_location('Entering:'||l_proc, 5);
335: l_rec := p_rec;
336: --
337: -- We must lock the row which we need to update.
338: --
339: ghr_nre_shd.lck
340: (
341: p_rec.noac_remark_id,
342: p_rec.object_version_number
343: );
385: p_date_to in date default hr_api.g_date,
386: p_object_version_number in out NOCOPY number
387: ) is
388: --
389: l_rec ghr_nre_shd.g_rec_type;
390: l_proc varchar2(72);
391: l_object_version_number number;
392: --
393: Begin
398: -- Call conversion function to turn arguments into the
399: -- l_rec structure.
400: --
401: l_rec :=
402: ghr_nre_shd.convert_args
403: (
404: p_noac_remark_id,
405: p_nature_of_action_id,
406: p_remark_id,