51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy ff_ffp_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_ffp_shd.g_api_dml := true; -- Set the api dml status
67: --
68: -- Update the ff_function_parameters Row
69: --
70: update ff_function_parameters
79: ,object_version_number = p_rec.object_version_number
80: where function_id = p_rec.function_id
81: and sequence_number = p_rec.sequence_number;
82: --
83: ff_ffp_shd.g_api_dml := false; -- Unset the api dml status
84: --
85: hr_utility.set_location(' Leaving:'||l_proc, 10);
86: --
87: Exception
86: --
87: Exception
88: When hr_api.check_integrity_violated Then
89: -- A check constraint has been violated
90: ff_ffp_shd.g_api_dml := false; -- Unset the api dml status
91: ff_ffp_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.parent_integrity_violated Then
94: -- Parent integrity has been violated
87: Exception
88: When hr_api.check_integrity_violated Then
89: -- A check constraint has been violated
90: ff_ffp_shd.g_api_dml := false; -- Unset the api dml status
91: ff_ffp_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.parent_integrity_violated Then
94: -- Parent integrity has been violated
95: ff_ffp_shd.g_api_dml := false; -- Unset the api dml status
91: ff_ffp_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.parent_integrity_violated Then
94: -- Parent integrity has been violated
95: ff_ffp_shd.g_api_dml := false; -- Unset the api dml status
96: ff_ffp_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.unique_integrity_violated Then
99: -- Unique integrity has been violated
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.parent_integrity_violated Then
94: -- Parent integrity has been violated
95: ff_ffp_shd.g_api_dml := false; -- Unset the api dml status
96: ff_ffp_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.unique_integrity_violated Then
99: -- Unique integrity has been violated
100: ff_ffp_shd.g_api_dml := false; -- Unset the api dml status
96: ff_ffp_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.unique_integrity_violated Then
99: -- Unique integrity has been violated
100: ff_ffp_shd.g_api_dml := false; -- Unset the api dml status
101: ff_ffp_shd.constraint_error
102: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
103: When Others Then
104: ff_ffp_shd.g_api_dml := false; -- Unset the api dml status
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.unique_integrity_violated Then
99: -- Unique integrity has been violated
100: ff_ffp_shd.g_api_dml := false; -- Unset the api dml status
101: ff_ffp_shd.constraint_error
102: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
103: When Others Then
104: ff_ffp_shd.g_api_dml := false; -- Unset the api dml status
105: Raise;
100: ff_ffp_shd.g_api_dml := false; -- Unset the api dml status
101: ff_ffp_shd.constraint_error
102: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
103: When Others Then
104: ff_ffp_shd.g_api_dml := false; -- Unset the api dml status
105: Raise;
106: End update_dml;
107: --
108: -- ----------------------------------------------------------------------------
137: --
138: -- {End Of Comments}
139: -- ----------------------------------------------------------------------------
140: Procedure pre_update
141: (p_rec in ff_ffp_shd.g_rec_type
142: ) is
143: --
144: l_proc varchar2(72) := g_package||'pre_update';
145: --
182: -- {End Of Comments}
183: -- ----------------------------------------------------------------------------
184: Procedure post_update
185: (p_effective_date in date
186: ,p_rec in ff_ffp_shd.g_rec_type
187: ) is
188: --
189: l_proc varchar2(72) := g_package||'post_update';
190: --
210: => p_rec.optional
211: ,p_object_version_number
212: => p_rec.object_version_number
213: ,p_class_o
214: => ff_ffp_shd.g_old_rec.class
215: ,p_continuing_parameter_o
216: => ff_ffp_shd.g_old_rec.continuing_parameter
217: ,p_data_type_o
218: => ff_ffp_shd.g_old_rec.data_type
212: => p_rec.object_version_number
213: ,p_class_o
214: => ff_ffp_shd.g_old_rec.class
215: ,p_continuing_parameter_o
216: => ff_ffp_shd.g_old_rec.continuing_parameter
217: ,p_data_type_o
218: => ff_ffp_shd.g_old_rec.data_type
219: ,p_name_o
220: => ff_ffp_shd.g_old_rec.name
214: => ff_ffp_shd.g_old_rec.class
215: ,p_continuing_parameter_o
216: => ff_ffp_shd.g_old_rec.continuing_parameter
217: ,p_data_type_o
218: => ff_ffp_shd.g_old_rec.data_type
219: ,p_name_o
220: => ff_ffp_shd.g_old_rec.name
221: ,p_optional_o
222: => ff_ffp_shd.g_old_rec.optional
216: => ff_ffp_shd.g_old_rec.continuing_parameter
217: ,p_data_type_o
218: => ff_ffp_shd.g_old_rec.data_type
219: ,p_name_o
220: => ff_ffp_shd.g_old_rec.name
221: ,p_optional_o
222: => ff_ffp_shd.g_old_rec.optional
223: ,p_object_version_number_o
224: => ff_ffp_shd.g_old_rec.object_version_number
218: => ff_ffp_shd.g_old_rec.data_type
219: ,p_name_o
220: => ff_ffp_shd.g_old_rec.name
221: ,p_optional_o
222: => ff_ffp_shd.g_old_rec.optional
223: ,p_object_version_number_o
224: => ff_ffp_shd.g_old_rec.object_version_number
225: );
226: --
220: => ff_ffp_shd.g_old_rec.name
221: ,p_optional_o
222: => ff_ffp_shd.g_old_rec.optional
223: ,p_object_version_number_o
224: => ff_ffp_shd.g_old_rec.object_version_number
225: );
226: --
227: exception
228: --
280: --
281: -- {End Of Comments}
282: -- ----------------------------------------------------------------------------
283: Procedure convert_defs
284: (p_rec in out nocopy ff_ffp_shd.g_rec_type
285: ) is
286: --
287: Begin
288: --
292: -- is being used then we must set to the 'current' argument value.
293: --
294: If (p_rec.class = hr_api.g_varchar2) then
295: p_rec.class :=
296: ff_ffp_shd.g_old_rec.class;
297: End If;
298: If (p_rec.continuing_parameter = hr_api.g_varchar2) then
299: p_rec.continuing_parameter :=
300: ff_ffp_shd.g_old_rec.continuing_parameter;
296: ff_ffp_shd.g_old_rec.class;
297: End If;
298: If (p_rec.continuing_parameter = hr_api.g_varchar2) then
299: p_rec.continuing_parameter :=
300: ff_ffp_shd.g_old_rec.continuing_parameter;
301: End If;
302: If (p_rec.data_type = hr_api.g_varchar2) then
303: p_rec.data_type :=
304: ff_ffp_shd.g_old_rec.data_type;
300: ff_ffp_shd.g_old_rec.continuing_parameter;
301: End If;
302: If (p_rec.data_type = hr_api.g_varchar2) then
303: p_rec.data_type :=
304: ff_ffp_shd.g_old_rec.data_type;
305: End If;
306: If (p_rec.name = hr_api.g_varchar2) then
307: p_rec.name :=
308: ff_ffp_shd.g_old_rec.name;
304: ff_ffp_shd.g_old_rec.data_type;
305: End If;
306: If (p_rec.name = hr_api.g_varchar2) then
307: p_rec.name :=
308: ff_ffp_shd.g_old_rec.name;
309: End If;
310: If (p_rec.optional = hr_api.g_varchar2) then
311: p_rec.optional :=
312: ff_ffp_shd.g_old_rec.optional;
308: ff_ffp_shd.g_old_rec.name;
309: End If;
310: If (p_rec.optional = hr_api.g_varchar2) then
311: p_rec.optional :=
312: ff_ffp_shd.g_old_rec.optional;
313: End If;
314: --
315: End convert_defs;
316: --
318: -- |---------------------------------< upd >----------------------------------|
319: -- ----------------------------------------------------------------------------
320: Procedure upd
321: (p_effective_date in date
322: ,p_rec in out nocopy ff_ffp_shd.g_rec_type
323: ) is
324: --
325: l_proc varchar2(72) := g_package||'upd';
326: --
328: hr_utility.set_location('Entering:'||l_proc, 5);
329: --
330: -- We must lock the row which we need to update.
331: --
332: ff_ffp_shd.lck
333: (p_rec.function_id
334: ,p_rec.sequence_number
335: ,p_rec.object_version_number
336: );
383: ,p_name in varchar2 default hr_api.g_varchar2
384: ,p_optional in varchar2 default hr_api.g_varchar2
385: ) is
386: --
387: l_rec ff_ffp_shd.g_rec_type;
388: l_proc varchar2(72) := g_package||'upd';
389: --
390: Begin
391: hr_utility.set_location('Entering:'||l_proc, 5);
393: -- Call conversion function to turn arguments into the
394: -- l_rec structure.
395: --
396: l_rec :=
397: ff_ffp_shd.convert_args
398: (p_function_id
399: ,p_sequence_number
400: ,p_class
401: ,p_continuing_parameter