53: --
54: -- {End Of Comments}
55: -- ----------------------------------------------------------------------------
56: Procedure update_dml
57: (p_rec in out nocopy hxc_ter_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_ter_shd.g_api_dml := true; -- Set the api dml status
74: --
75: -- Update the hxc_time_entry_rules Row
76: --
77: update hxc_time_entry_rules
123: ,last_update_login = fnd_global.login_id
124:
125: where time_entry_rule_id = p_rec.time_entry_rule_id;
126: --
127: hxc_ter_shd.g_api_dml := false; -- Unset the api dml status
128: --
129: if g_debug then
130: hr_utility.set_location(' Leaving:'||l_proc, 10);
131: end if;
132: --
133: Exception
134: When hr_api.check_integrity_violated Then
135: -- A check constraint has been violated
136: hxc_ter_shd.g_api_dml := false; -- Unset the api dml status
137: hxc_ter_shd.constraint_error
138: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
139: When hr_api.parent_integrity_violated Then
140: -- Parent integrity has been violated
133: Exception
134: When hr_api.check_integrity_violated Then
135: -- A check constraint has been violated
136: hxc_ter_shd.g_api_dml := false; -- Unset the api dml status
137: hxc_ter_shd.constraint_error
138: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
139: When hr_api.parent_integrity_violated Then
140: -- Parent integrity has been violated
141: hxc_ter_shd.g_api_dml := false; -- Unset the api dml status
137: hxc_ter_shd.constraint_error
138: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
139: When hr_api.parent_integrity_violated Then
140: -- Parent integrity has been violated
141: hxc_ter_shd.g_api_dml := false; -- Unset the api dml status
142: hxc_ter_shd.constraint_error
143: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
144: When hr_api.unique_integrity_violated Then
145: -- Unique integrity has been violated
138: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
139: When hr_api.parent_integrity_violated Then
140: -- Parent integrity has been violated
141: hxc_ter_shd.g_api_dml := false; -- Unset the api dml status
142: hxc_ter_shd.constraint_error
143: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
144: When hr_api.unique_integrity_violated Then
145: -- Unique integrity has been violated
146: hxc_ter_shd.g_api_dml := false; -- Unset the api dml status
142: hxc_ter_shd.constraint_error
143: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
144: When hr_api.unique_integrity_violated Then
145: -- Unique integrity has been violated
146: hxc_ter_shd.g_api_dml := false; -- Unset the api dml status
147: hxc_ter_shd.constraint_error
148: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
149: When Others Then
150: hxc_ter_shd.g_api_dml := false; -- Unset the api dml status
143: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
144: When hr_api.unique_integrity_violated Then
145: -- Unique integrity has been violated
146: hxc_ter_shd.g_api_dml := false; -- Unset the api dml status
147: hxc_ter_shd.constraint_error
148: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
149: When Others Then
150: hxc_ter_shd.g_api_dml := false; -- Unset the api dml status
151: Raise;
146: hxc_ter_shd.g_api_dml := false; -- Unset the api dml status
147: hxc_ter_shd.constraint_error
148: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
149: When Others Then
150: hxc_ter_shd.g_api_dml := false; -- Unset the api dml status
151: Raise;
152: End update_dml;
153: --
154: -- ----------------------------------------------------------------------------
183: --
184: -- {End Of Comments}
185: -- ----------------------------------------------------------------------------
186: Procedure pre_update
187: (p_rec in hxc_ter_shd.g_rec_type
188: ) is
189: --
190: l_proc varchar2(72);
191: --
233: -- {End Of Comments}
234: -- ----------------------------------------------------------------------------
235: Procedure post_update
236: (p_effective_date in date
237: ,p_rec in hxc_ter_shd.g_rec_type
238: ) is
239: --
240: l_proc varchar2(72);
241: --
331: => p_rec.attribute29
332: ,p_attribute30
333: => p_rec.attribute30
334: ,p_name_o
335: => hxc_ter_shd.g_old_rec.name
336: ,p_business_group_id_o => hxc_ter_shd.g_old_rec.business_group_id
337: ,p_legislation_code_o => hxc_ter_shd.g_old_rec.legislation_code
338: ,p_rule_usage_o
339: => hxc_ter_shd.g_old_rec.rule_usage
332: ,p_attribute30
333: => p_rec.attribute30
334: ,p_name_o
335: => hxc_ter_shd.g_old_rec.name
336: ,p_business_group_id_o => hxc_ter_shd.g_old_rec.business_group_id
337: ,p_legislation_code_o => hxc_ter_shd.g_old_rec.legislation_code
338: ,p_rule_usage_o
339: => hxc_ter_shd.g_old_rec.rule_usage
340: ,p_formula_id_o
333: => p_rec.attribute30
334: ,p_name_o
335: => hxc_ter_shd.g_old_rec.name
336: ,p_business_group_id_o => hxc_ter_shd.g_old_rec.business_group_id
337: ,p_legislation_code_o => hxc_ter_shd.g_old_rec.legislation_code
338: ,p_rule_usage_o
339: => hxc_ter_shd.g_old_rec.rule_usage
340: ,p_formula_id_o
341: => hxc_ter_shd.g_old_rec.formula_id
335: => hxc_ter_shd.g_old_rec.name
336: ,p_business_group_id_o => hxc_ter_shd.g_old_rec.business_group_id
337: ,p_legislation_code_o => hxc_ter_shd.g_old_rec.legislation_code
338: ,p_rule_usage_o
339: => hxc_ter_shd.g_old_rec.rule_usage
340: ,p_formula_id_o
341: => hxc_ter_shd.g_old_rec.formula_id
342: ,p_mapping_id_o => hxc_ter_shd.g_old_rec.mapping_id
343: ,p_description_o
337: ,p_legislation_code_o => hxc_ter_shd.g_old_rec.legislation_code
338: ,p_rule_usage_o
339: => hxc_ter_shd.g_old_rec.rule_usage
340: ,p_formula_id_o
341: => hxc_ter_shd.g_old_rec.formula_id
342: ,p_mapping_id_o => hxc_ter_shd.g_old_rec.mapping_id
343: ,p_description_o
344: => hxc_ter_shd.g_old_rec.description
345: ,p_start_date_o
338: ,p_rule_usage_o
339: => hxc_ter_shd.g_old_rec.rule_usage
340: ,p_formula_id_o
341: => hxc_ter_shd.g_old_rec.formula_id
342: ,p_mapping_id_o => hxc_ter_shd.g_old_rec.mapping_id
343: ,p_description_o
344: => hxc_ter_shd.g_old_rec.description
345: ,p_start_date_o
346: => hxc_ter_shd.g_old_rec.start_date
340: ,p_formula_id_o
341: => hxc_ter_shd.g_old_rec.formula_id
342: ,p_mapping_id_o => hxc_ter_shd.g_old_rec.mapping_id
343: ,p_description_o
344: => hxc_ter_shd.g_old_rec.description
345: ,p_start_date_o
346: => hxc_ter_shd.g_old_rec.start_date
347: ,p_end_date_o
348: => hxc_ter_shd.g_old_rec.end_date
342: ,p_mapping_id_o => hxc_ter_shd.g_old_rec.mapping_id
343: ,p_description_o
344: => hxc_ter_shd.g_old_rec.description
345: ,p_start_date_o
346: => hxc_ter_shd.g_old_rec.start_date
347: ,p_end_date_o
348: => hxc_ter_shd.g_old_rec.end_date
349: ,p_attribute_category_o
350: => hxc_hph_shd.g_old_rec.attribute_category
344: => hxc_ter_shd.g_old_rec.description
345: ,p_start_date_o
346: => hxc_ter_shd.g_old_rec.start_date
347: ,p_end_date_o
348: => hxc_ter_shd.g_old_rec.end_date
349: ,p_attribute_category_o
350: => hxc_hph_shd.g_old_rec.attribute_category
351: ,p_attribute1_o
352: => hxc_hph_shd.g_old_rec.attribute1
408: => hxc_hph_shd.g_old_rec.attribute29
409: ,p_attribute30_o
410: => hxc_hph_shd.g_old_rec.attribute30
411: ,p_object_version_number_o
412: => hxc_ter_shd.g_old_rec.object_version_number
413: );
414: --
415: exception
416: --
470: --
471: -- {End Of Comments}
472: -- ----------------------------------------------------------------------------
473: Procedure convert_defs
474: (p_rec in out nocopy hxc_ter_shd.g_rec_type
475: ) is
476: --
477: Begin
478: --
482: -- is being used then we must set to the 'current' argument value.
483: --
484: If (p_rec.name = hr_api.g_varchar2) then
485: p_rec.name :=
486: hxc_ter_shd.g_old_rec.name;
487: End If;
488: If (p_rec.business_group_id = hr_api.g_number) then
489: p_rec.business_group_id :=
490: hxc_ter_shd.g_old_rec.business_group_id;
486: hxc_ter_shd.g_old_rec.name;
487: End If;
488: If (p_rec.business_group_id = hr_api.g_number) then
489: p_rec.business_group_id :=
490: hxc_ter_shd.g_old_rec.business_group_id;
491: End If;
492: If (p_rec.legislation_code = hr_api.g_varchar2) then
493: p_rec.legislation_code :=
494: hxc_ter_shd.g_old_rec.legislation_code;
490: hxc_ter_shd.g_old_rec.business_group_id;
491: End If;
492: If (p_rec.legislation_code = hr_api.g_varchar2) then
493: p_rec.legislation_code :=
494: hxc_ter_shd.g_old_rec.legislation_code;
495: End If;
496: If (p_rec.mapping_id = hr_api.g_number) then
497: p_rec.mapping_id :=
498: hxc_ter_shd.g_old_rec.mapping_id;
494: hxc_ter_shd.g_old_rec.legislation_code;
495: End If;
496: If (p_rec.mapping_id = hr_api.g_number) then
497: p_rec.mapping_id :=
498: hxc_ter_shd.g_old_rec.mapping_id;
499: End If;
500: If (p_rec.rule_usage = hr_api.g_varchar2) then
501: p_rec.rule_usage :=
502: hxc_ter_shd.g_old_rec.rule_usage;
498: hxc_ter_shd.g_old_rec.mapping_id;
499: End If;
500: If (p_rec.rule_usage = hr_api.g_varchar2) then
501: p_rec.rule_usage :=
502: hxc_ter_shd.g_old_rec.rule_usage;
503: End If;
504: If (p_rec.formula_id = hr_api.g_number) then
505: p_rec.formula_id :=
506: hxc_ter_shd.g_old_rec.formula_id;
502: hxc_ter_shd.g_old_rec.rule_usage;
503: End If;
504: If (p_rec.formula_id = hr_api.g_number) then
505: p_rec.formula_id :=
506: hxc_ter_shd.g_old_rec.formula_id;
507: End If;
508: If (p_rec.description = hr_api.g_varchar2) then
509: p_rec.description :=
510: hxc_ter_shd.g_old_rec.description;
506: hxc_ter_shd.g_old_rec.formula_id;
507: End If;
508: If (p_rec.description = hr_api.g_varchar2) then
509: p_rec.description :=
510: hxc_ter_shd.g_old_rec.description;
511: End If;
512: If (p_rec.start_date = hr_api.g_date) then
513: p_rec.start_date :=
514: hxc_ter_shd.g_old_rec.start_date;
510: hxc_ter_shd.g_old_rec.description;
511: End If;
512: If (p_rec.start_date = hr_api.g_date) then
513: p_rec.start_date :=
514: hxc_ter_shd.g_old_rec.start_date;
515: End If;
516: If (p_rec.end_date = hr_api.g_date) then
517: p_rec.end_date :=
518: hxc_ter_shd.g_old_rec.end_date;
514: hxc_ter_shd.g_old_rec.start_date;
515: End If;
516: If (p_rec.end_date = hr_api.g_date) then
517: p_rec.end_date :=
518: hxc_ter_shd.g_old_rec.end_date;
519: End If;
520: If (p_rec.attribute_category = hr_api.g_varchar2) then
521: p_rec.attribute_category :=
522: hxc_hph_shd.g_old_rec.attribute_category;
648: -- |---------------------------------< upd >----------------------------------|
649: -- ----------------------------------------------------------------------------
650: Procedure upd
651: (p_effective_date in date
652: ,p_rec in out nocopy hxc_ter_shd.g_rec_type
653: ) is
654: --
655: l_proc varchar2(72);
656: --
663: end if;
664: --
665: -- We must lock the row which we need to update.
666: --
667: hxc_ter_shd.lck
668: (p_rec.time_entry_rule_id
669: ,p_rec.object_version_number
670: );
671: --
745: ,p_attribute29 in varchar2 default hr_api.g_varchar2
746: ,p_attribute30 in varchar2 default hr_api.g_varchar2
747: ) is
748: --
749: l_rec hxc_ter_shd.g_rec_type;
750: l_proc varchar2(72);
751: --
752: Begin
753: g_debug := hr_utility.debug_enabled;
760: -- Call conversion function to turn arguments into the
761: -- l_rec structure.
762: --
763: l_rec :=
764: hxc_ter_shd.convert_args
765: (p_time_entry_rule_id
766: ,p_name
767: ,p_business_group_id
768: ,p_legislation_code