51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy ff_ffn_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
62: --
63: -- Increment the object version
64: p_rec.object_version_number := p_rec.object_version_number + 1;
65: --
66: ff_ffn_shd.g_api_dml := true; -- Set the api dml status
67: --
68: -- Update the ff_functions Row
69: --
70: update ff_functions
77: ,description = p_rec.description
78: ,object_version_number = p_rec.object_version_number
79: where function_id = p_rec.function_id;
80: --
81: ff_ffn_shd.g_api_dml := false; -- Unset the api dml status
82: --
83: hr_utility.set_location(' Leaving:'||l_proc, 10);
84: --
85: Exception
84: --
85: Exception
86: When hr_api.check_integrity_violated Then
87: -- A check constraint has been violated
88: ff_ffn_shd.g_api_dml := false; -- Unset the api dml status
89: ff_ffn_shd.constraint_error
90: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
91: When hr_api.parent_integrity_violated Then
92: -- Parent integrity has been violated
85: Exception
86: When hr_api.check_integrity_violated Then
87: -- A check constraint has been violated
88: ff_ffn_shd.g_api_dml := false; -- Unset the api dml status
89: ff_ffn_shd.constraint_error
90: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
91: When hr_api.parent_integrity_violated Then
92: -- Parent integrity has been violated
93: ff_ffn_shd.g_api_dml := false; -- Unset the api dml status
89: ff_ffn_shd.constraint_error
90: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
91: When hr_api.parent_integrity_violated Then
92: -- Parent integrity has been violated
93: ff_ffn_shd.g_api_dml := false; -- Unset the api dml status
94: ff_ffn_shd.constraint_error
95: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
96: When hr_api.unique_integrity_violated Then
97: -- Unique integrity has been violated
90: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
91: When hr_api.parent_integrity_violated Then
92: -- Parent integrity has been violated
93: ff_ffn_shd.g_api_dml := false; -- Unset the api dml status
94: ff_ffn_shd.constraint_error
95: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
96: When hr_api.unique_integrity_violated Then
97: -- Unique integrity has been violated
98: ff_ffn_shd.g_api_dml := false; -- Unset the api dml status
94: ff_ffn_shd.constraint_error
95: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
96: When hr_api.unique_integrity_violated Then
97: -- Unique integrity has been violated
98: ff_ffn_shd.g_api_dml := false; -- Unset the api dml status
99: ff_ffn_shd.constraint_error
100: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
101: When Others Then
102: ff_ffn_shd.g_api_dml := false; -- Unset the api dml status
95: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
96: When hr_api.unique_integrity_violated Then
97: -- Unique integrity has been violated
98: ff_ffn_shd.g_api_dml := false; -- Unset the api dml status
99: ff_ffn_shd.constraint_error
100: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
101: When Others Then
102: ff_ffn_shd.g_api_dml := false; -- Unset the api dml status
103: Raise;
98: ff_ffn_shd.g_api_dml := false; -- Unset the api dml status
99: ff_ffn_shd.constraint_error
100: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
101: When Others Then
102: ff_ffn_shd.g_api_dml := false; -- Unset the api dml status
103: Raise;
104: End update_dml;
105: --
106: -- ----------------------------------------------------------------------------
135: --
136: -- {End Of Comments}
137: -- ----------------------------------------------------------------------------
138: Procedure pre_update
139: (p_rec in ff_ffn_shd.g_rec_type
140: ) is
141: --
142: l_proc varchar2(72) := g_package||'pre_update';
143: --
180: -- {End Of Comments}
181: -- ----------------------------------------------------------------------------
182: Procedure post_update
183: (p_effective_date in date
184: ,p_rec in ff_ffn_shd.g_rec_type
185: ) is
186: --
187: l_proc varchar2(72) := g_package||'post_update';
188: --
201: ,p_data_type => p_rec.data_type
202: ,p_definition => p_rec.definition
203: ,p_description => p_rec.description
204: ,p_object_version_number => p_rec.object_version_number
205: ,p_business_group_id_o => ff_ffn_shd.g_old_rec.business_group_id
206: ,p_legislation_code_o => ff_ffn_shd.g_old_rec.legislation_code
207: ,p_class_o => ff_ffn_shd.g_old_rec.class
208: ,p_name_o => ff_ffn_shd.g_old_rec.name
209: ,p_alias_name_o => ff_ffn_shd.g_old_rec.alias_name
202: ,p_definition => p_rec.definition
203: ,p_description => p_rec.description
204: ,p_object_version_number => p_rec.object_version_number
205: ,p_business_group_id_o => ff_ffn_shd.g_old_rec.business_group_id
206: ,p_legislation_code_o => ff_ffn_shd.g_old_rec.legislation_code
207: ,p_class_o => ff_ffn_shd.g_old_rec.class
208: ,p_name_o => ff_ffn_shd.g_old_rec.name
209: ,p_alias_name_o => ff_ffn_shd.g_old_rec.alias_name
210: ,p_data_type_o => ff_ffn_shd.g_old_rec.data_type
203: ,p_description => p_rec.description
204: ,p_object_version_number => p_rec.object_version_number
205: ,p_business_group_id_o => ff_ffn_shd.g_old_rec.business_group_id
206: ,p_legislation_code_o => ff_ffn_shd.g_old_rec.legislation_code
207: ,p_class_o => ff_ffn_shd.g_old_rec.class
208: ,p_name_o => ff_ffn_shd.g_old_rec.name
209: ,p_alias_name_o => ff_ffn_shd.g_old_rec.alias_name
210: ,p_data_type_o => ff_ffn_shd.g_old_rec.data_type
211: ,p_definition_o => ff_ffn_shd.g_old_rec.definition
204: ,p_object_version_number => p_rec.object_version_number
205: ,p_business_group_id_o => ff_ffn_shd.g_old_rec.business_group_id
206: ,p_legislation_code_o => ff_ffn_shd.g_old_rec.legislation_code
207: ,p_class_o => ff_ffn_shd.g_old_rec.class
208: ,p_name_o => ff_ffn_shd.g_old_rec.name
209: ,p_alias_name_o => ff_ffn_shd.g_old_rec.alias_name
210: ,p_data_type_o => ff_ffn_shd.g_old_rec.data_type
211: ,p_definition_o => ff_ffn_shd.g_old_rec.definition
212: ,p_description_o => ff_ffn_shd.g_old_rec.description
205: ,p_business_group_id_o => ff_ffn_shd.g_old_rec.business_group_id
206: ,p_legislation_code_o => ff_ffn_shd.g_old_rec.legislation_code
207: ,p_class_o => ff_ffn_shd.g_old_rec.class
208: ,p_name_o => ff_ffn_shd.g_old_rec.name
209: ,p_alias_name_o => ff_ffn_shd.g_old_rec.alias_name
210: ,p_data_type_o => ff_ffn_shd.g_old_rec.data_type
211: ,p_definition_o => ff_ffn_shd.g_old_rec.definition
212: ,p_description_o => ff_ffn_shd.g_old_rec.description
213: ,p_object_version_number_o => ff_ffn_shd.g_old_rec.object_version_number
206: ,p_legislation_code_o => ff_ffn_shd.g_old_rec.legislation_code
207: ,p_class_o => ff_ffn_shd.g_old_rec.class
208: ,p_name_o => ff_ffn_shd.g_old_rec.name
209: ,p_alias_name_o => ff_ffn_shd.g_old_rec.alias_name
210: ,p_data_type_o => ff_ffn_shd.g_old_rec.data_type
211: ,p_definition_o => ff_ffn_shd.g_old_rec.definition
212: ,p_description_o => ff_ffn_shd.g_old_rec.description
213: ,p_object_version_number_o => ff_ffn_shd.g_old_rec.object_version_number
214: );
207: ,p_class_o => ff_ffn_shd.g_old_rec.class
208: ,p_name_o => ff_ffn_shd.g_old_rec.name
209: ,p_alias_name_o => ff_ffn_shd.g_old_rec.alias_name
210: ,p_data_type_o => ff_ffn_shd.g_old_rec.data_type
211: ,p_definition_o => ff_ffn_shd.g_old_rec.definition
212: ,p_description_o => ff_ffn_shd.g_old_rec.description
213: ,p_object_version_number_o => ff_ffn_shd.g_old_rec.object_version_number
214: );
215: --
208: ,p_name_o => ff_ffn_shd.g_old_rec.name
209: ,p_alias_name_o => ff_ffn_shd.g_old_rec.alias_name
210: ,p_data_type_o => ff_ffn_shd.g_old_rec.data_type
211: ,p_definition_o => ff_ffn_shd.g_old_rec.definition
212: ,p_description_o => ff_ffn_shd.g_old_rec.description
213: ,p_object_version_number_o => ff_ffn_shd.g_old_rec.object_version_number
214: );
215: --
216: exception
209: ,p_alias_name_o => ff_ffn_shd.g_old_rec.alias_name
210: ,p_data_type_o => ff_ffn_shd.g_old_rec.data_type
211: ,p_definition_o => ff_ffn_shd.g_old_rec.definition
212: ,p_description_o => ff_ffn_shd.g_old_rec.description
213: ,p_object_version_number_o => ff_ffn_shd.g_old_rec.object_version_number
214: );
215: --
216: exception
217: --
269: --
270: -- {End Of Comments}
271: -- ----------------------------------------------------------------------------
272: Procedure convert_defs
273: (p_rec in out nocopy ff_ffn_shd.g_rec_type
274: ) is
275: --
276: Begin
277: --
281: -- is being used then we must set to the 'current' argument value.
282: --
283: If (p_rec.business_group_id = hr_api.g_number) then
284: p_rec.business_group_id :=
285: ff_ffn_shd.g_old_rec.business_group_id;
286: End If;
287: If (p_rec.legislation_code = hr_api.g_varchar2) then
288: p_rec.legislation_code :=
289: ff_ffn_shd.g_old_rec.legislation_code;
285: ff_ffn_shd.g_old_rec.business_group_id;
286: End If;
287: If (p_rec.legislation_code = hr_api.g_varchar2) then
288: p_rec.legislation_code :=
289: ff_ffn_shd.g_old_rec.legislation_code;
290: End If;
291: If (p_rec.class = hr_api.g_varchar2) then
292: p_rec.class :=
293: ff_ffn_shd.g_old_rec.class;
289: ff_ffn_shd.g_old_rec.legislation_code;
290: End If;
291: If (p_rec.class = hr_api.g_varchar2) then
292: p_rec.class :=
293: ff_ffn_shd.g_old_rec.class;
294: End If;
295: If (p_rec.name = hr_api.g_varchar2) then
296: p_rec.name :=
297: ff_ffn_shd.g_old_rec.name;
293: ff_ffn_shd.g_old_rec.class;
294: End If;
295: If (p_rec.name = hr_api.g_varchar2) then
296: p_rec.name :=
297: ff_ffn_shd.g_old_rec.name;
298: End If;
299: If (p_rec.alias_name = hr_api.g_varchar2) then
300: p_rec.alias_name :=
301: ff_ffn_shd.g_old_rec.alias_name;
297: ff_ffn_shd.g_old_rec.name;
298: End If;
299: If (p_rec.alias_name = hr_api.g_varchar2) then
300: p_rec.alias_name :=
301: ff_ffn_shd.g_old_rec.alias_name;
302: End If;
303: If (p_rec.data_type = hr_api.g_varchar2) then
304: p_rec.data_type :=
305: ff_ffn_shd.g_old_rec.data_type;
301: ff_ffn_shd.g_old_rec.alias_name;
302: End If;
303: If (p_rec.data_type = hr_api.g_varchar2) then
304: p_rec.data_type :=
305: ff_ffn_shd.g_old_rec.data_type;
306: End If;
307: If (p_rec.definition = hr_api.g_varchar2) then
308: p_rec.definition :=
309: ff_ffn_shd.g_old_rec.definition;
305: ff_ffn_shd.g_old_rec.data_type;
306: End If;
307: If (p_rec.definition = hr_api.g_varchar2) then
308: p_rec.definition :=
309: ff_ffn_shd.g_old_rec.definition;
310: End If;
311: If (p_rec.description = hr_api.g_varchar2) then
312: p_rec.description :=
313: ff_ffn_shd.g_old_rec.description;
309: ff_ffn_shd.g_old_rec.definition;
310: End If;
311: If (p_rec.description = hr_api.g_varchar2) then
312: p_rec.description :=
313: ff_ffn_shd.g_old_rec.description;
314: End If;
315: --
316: End convert_defs;
317: --
319: -- |---------------------------------< upd >----------------------------------|
320: -- ----------------------------------------------------------------------------
321: Procedure upd
322: (p_effective_date in date
323: ,p_rec in out nocopy ff_ffn_shd.g_rec_type
324: ) is
325: --
326: l_proc varchar2(72) := g_package||'upd';
327: --
329: hr_utility.set_location('Entering:'||l_proc, 5);
330: --
331: -- We must lock the row which we need to update.
332: --
333: ff_ffn_shd.lck
334: (p_rec.function_id
335: ,p_rec.object_version_number
336: );
337: --
385: ,p_definition in varchar2 default hr_api.g_varchar2
386: ,p_description in varchar2 default hr_api.g_varchar2
387: ) is
388: --
389: l_rec ff_ffn_shd.g_rec_type;
390: l_proc varchar2(72) := g_package||'upd';
391: --
392: Begin
393: hr_utility.set_location('Entering:'||l_proc, 5);
395: -- Call conversion function to turn arguments into the
396: -- l_rec structure.
397: --
398: l_rec :=
399: ff_ffn_shd.convert_args
400: (p_function_id
401: ,p_business_group_id
402: ,p_legislation_code
403: ,p_class