51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy per_cpa_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
89: Exception
90: When hr_api.check_integrity_violated Then
91: -- A check constraint has been violated
92: --
93: per_cpa_shd.constraint_error
94: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
95: When hr_api.parent_integrity_violated Then
96: -- Parent integrity has been violated
97: --
94: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
95: When hr_api.parent_integrity_violated Then
96: -- Parent integrity has been violated
97: --
98: per_cpa_shd.constraint_error
99: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
100: When hr_api.unique_integrity_violated Then
101: -- Unique integrity has been violated
102: --
99: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
100: When hr_api.unique_integrity_violated Then
101: -- Unique integrity has been violated
102: --
103: per_cpa_shd.constraint_error
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
105: When Others Then
106: --
107: Raise;
139: --
140: -- {End Of Comments}
141: -- ----------------------------------------------------------------------------
142: Procedure pre_update
143: (p_rec in per_cpa_shd.g_rec_type
144: ) is
145: --
146: l_proc varchar2(72) := g_package||'pre_update';
147: --
184: -- {End Of Comments}
185: -- ----------------------------------------------------------------------------
186: Procedure post_update
187: (p_effective_date in date
188: ,p_rec in per_cpa_shd.g_rec_type
189: ) is
190: --
191: l_proc varchar2(72) := g_package||'post_update';
192: --
207: ,p_uom_lookup => p_rec.uom_lookup
208: ,p_default_uom => p_rec.default_uom
209: ,p_hidden => p_rec.hidden
210: ,p_object_version_number => p_rec.object_version_number
211: ,p_cagr_api_id_o => per_cpa_shd.g_old_rec.cagr_api_id
212: ,p_display_name_o => per_cpa_shd.g_old_rec.display_name
213: ,p_parameter_name_o => per_cpa_shd.g_old_rec.parameter_name
214: ,p_column_type_o => per_cpa_shd.g_old_rec.column_type
215: ,p_column_size_o => per_cpa_shd.g_old_rec.column_size
208: ,p_default_uom => p_rec.default_uom
209: ,p_hidden => p_rec.hidden
210: ,p_object_version_number => p_rec.object_version_number
211: ,p_cagr_api_id_o => per_cpa_shd.g_old_rec.cagr_api_id
212: ,p_display_name_o => per_cpa_shd.g_old_rec.display_name
213: ,p_parameter_name_o => per_cpa_shd.g_old_rec.parameter_name
214: ,p_column_type_o => per_cpa_shd.g_old_rec.column_type
215: ,p_column_size_o => per_cpa_shd.g_old_rec.column_size
216: ,p_uom_parameter_o => per_cpa_shd.g_old_rec.uom_parameter
209: ,p_hidden => p_rec.hidden
210: ,p_object_version_number => p_rec.object_version_number
211: ,p_cagr_api_id_o => per_cpa_shd.g_old_rec.cagr_api_id
212: ,p_display_name_o => per_cpa_shd.g_old_rec.display_name
213: ,p_parameter_name_o => per_cpa_shd.g_old_rec.parameter_name
214: ,p_column_type_o => per_cpa_shd.g_old_rec.column_type
215: ,p_column_size_o => per_cpa_shd.g_old_rec.column_size
216: ,p_uom_parameter_o => per_cpa_shd.g_old_rec.uom_parameter
217: ,p_uom_lookup_o => per_cpa_shd.g_old_rec.uom_lookup
210: ,p_object_version_number => p_rec.object_version_number
211: ,p_cagr_api_id_o => per_cpa_shd.g_old_rec.cagr_api_id
212: ,p_display_name_o => per_cpa_shd.g_old_rec.display_name
213: ,p_parameter_name_o => per_cpa_shd.g_old_rec.parameter_name
214: ,p_column_type_o => per_cpa_shd.g_old_rec.column_type
215: ,p_column_size_o => per_cpa_shd.g_old_rec.column_size
216: ,p_uom_parameter_o => per_cpa_shd.g_old_rec.uom_parameter
217: ,p_uom_lookup_o => per_cpa_shd.g_old_rec.uom_lookup
218: ,p_default_uom_o => per_cpa_shd.g_old_rec.default_uom
211: ,p_cagr_api_id_o => per_cpa_shd.g_old_rec.cagr_api_id
212: ,p_display_name_o => per_cpa_shd.g_old_rec.display_name
213: ,p_parameter_name_o => per_cpa_shd.g_old_rec.parameter_name
214: ,p_column_type_o => per_cpa_shd.g_old_rec.column_type
215: ,p_column_size_o => per_cpa_shd.g_old_rec.column_size
216: ,p_uom_parameter_o => per_cpa_shd.g_old_rec.uom_parameter
217: ,p_uom_lookup_o => per_cpa_shd.g_old_rec.uom_lookup
218: ,p_default_uom_o => per_cpa_shd.g_old_rec.default_uom
219: ,p_hidden_o => per_cpa_shd.g_old_rec.hidden
212: ,p_display_name_o => per_cpa_shd.g_old_rec.display_name
213: ,p_parameter_name_o => per_cpa_shd.g_old_rec.parameter_name
214: ,p_column_type_o => per_cpa_shd.g_old_rec.column_type
215: ,p_column_size_o => per_cpa_shd.g_old_rec.column_size
216: ,p_uom_parameter_o => per_cpa_shd.g_old_rec.uom_parameter
217: ,p_uom_lookup_o => per_cpa_shd.g_old_rec.uom_lookup
218: ,p_default_uom_o => per_cpa_shd.g_old_rec.default_uom
219: ,p_hidden_o => per_cpa_shd.g_old_rec.hidden
220: ,p_object_version_number_o => per_cpa_shd.g_old_rec.object_version_number
213: ,p_parameter_name_o => per_cpa_shd.g_old_rec.parameter_name
214: ,p_column_type_o => per_cpa_shd.g_old_rec.column_type
215: ,p_column_size_o => per_cpa_shd.g_old_rec.column_size
216: ,p_uom_parameter_o => per_cpa_shd.g_old_rec.uom_parameter
217: ,p_uom_lookup_o => per_cpa_shd.g_old_rec.uom_lookup
218: ,p_default_uom_o => per_cpa_shd.g_old_rec.default_uom
219: ,p_hidden_o => per_cpa_shd.g_old_rec.hidden
220: ,p_object_version_number_o => per_cpa_shd.g_old_rec.object_version_number
221: );
214: ,p_column_type_o => per_cpa_shd.g_old_rec.column_type
215: ,p_column_size_o => per_cpa_shd.g_old_rec.column_size
216: ,p_uom_parameter_o => per_cpa_shd.g_old_rec.uom_parameter
217: ,p_uom_lookup_o => per_cpa_shd.g_old_rec.uom_lookup
218: ,p_default_uom_o => per_cpa_shd.g_old_rec.default_uom
219: ,p_hidden_o => per_cpa_shd.g_old_rec.hidden
220: ,p_object_version_number_o => per_cpa_shd.g_old_rec.object_version_number
221: );
222:
215: ,p_column_size_o => per_cpa_shd.g_old_rec.column_size
216: ,p_uom_parameter_o => per_cpa_shd.g_old_rec.uom_parameter
217: ,p_uom_lookup_o => per_cpa_shd.g_old_rec.uom_lookup
218: ,p_default_uom_o => per_cpa_shd.g_old_rec.default_uom
219: ,p_hidden_o => per_cpa_shd.g_old_rec.hidden
220: ,p_object_version_number_o => per_cpa_shd.g_old_rec.object_version_number
221: );
222:
223: --
216: ,p_uom_parameter_o => per_cpa_shd.g_old_rec.uom_parameter
217: ,p_uom_lookup_o => per_cpa_shd.g_old_rec.uom_lookup
218: ,p_default_uom_o => per_cpa_shd.g_old_rec.default_uom
219: ,p_hidden_o => per_cpa_shd.g_old_rec.hidden
220: ,p_object_version_number_o => per_cpa_shd.g_old_rec.object_version_number
221: );
222:
223: --
224: exception
278: --
279: -- {End Of Comments}
280: -- ----------------------------------------------------------------------------
281: Procedure convert_defs
282: (p_rec in out nocopy per_cpa_shd.g_rec_type
283: ) is
284: --
285: Begin
286: --
290: -- is being used then we must set to the 'current' argument value.
291: --
292: If (p_rec.cagr_api_id = hr_api.g_number) then
293: p_rec.cagr_api_id :=
294: per_cpa_shd.g_old_rec.cagr_api_id;
295: End If;
296: If (p_rec.display_name = hr_api.g_varchar2) then
297: p_rec.display_name :=
298: per_cpa_shd.g_old_rec.display_name;
294: per_cpa_shd.g_old_rec.cagr_api_id;
295: End If;
296: If (p_rec.display_name = hr_api.g_varchar2) then
297: p_rec.display_name :=
298: per_cpa_shd.g_old_rec.display_name;
299: End If;
300: If (p_rec.parameter_name = hr_api.g_varchar2) then
301: p_rec.parameter_name :=
302: per_cpa_shd.g_old_rec.parameter_name;
298: per_cpa_shd.g_old_rec.display_name;
299: End If;
300: If (p_rec.parameter_name = hr_api.g_varchar2) then
301: p_rec.parameter_name :=
302: per_cpa_shd.g_old_rec.parameter_name;
303: End If;
304: If (p_rec.column_type = hr_api.g_varchar2) then
305: p_rec.column_type :=
306: per_cpa_shd.g_old_rec.column_type;
302: per_cpa_shd.g_old_rec.parameter_name;
303: End If;
304: If (p_rec.column_type = hr_api.g_varchar2) then
305: p_rec.column_type :=
306: per_cpa_shd.g_old_rec.column_type;
307: End If;
308: If (p_rec.column_size = hr_api.g_number) then
309: p_rec.column_size :=
310: per_cpa_shd.g_old_rec.column_size;
306: per_cpa_shd.g_old_rec.column_type;
307: End If;
308: If (p_rec.column_size = hr_api.g_number) then
309: p_rec.column_size :=
310: per_cpa_shd.g_old_rec.column_size;
311: End If;
312: If (p_rec.uom_parameter = hr_api.g_varchar2) then
313: p_rec.uom_parameter := per_cpa_shd.g_old_rec.uom_parameter;
314: End If;
309: p_rec.column_size :=
310: per_cpa_shd.g_old_rec.column_size;
311: End If;
312: If (p_rec.uom_parameter = hr_api.g_varchar2) then
313: p_rec.uom_parameter := per_cpa_shd.g_old_rec.uom_parameter;
314: End If;
315: --
316: If (p_rec.uom_lookup = hr_api.g_varchar2) then
317: p_rec.uom_lookup := per_cpa_shd.g_old_rec.uom_lookup;
313: p_rec.uom_parameter := per_cpa_shd.g_old_rec.uom_parameter;
314: End If;
315: --
316: If (p_rec.uom_lookup = hr_api.g_varchar2) then
317: p_rec.uom_lookup := per_cpa_shd.g_old_rec.uom_lookup;
318: End If;
319: --
320: If (p_rec.default_uom = hr_api.g_varchar2) then
321: p_rec.default_uom := per_cpa_shd.g_old_rec.default_uom;
317: p_rec.uom_lookup := per_cpa_shd.g_old_rec.uom_lookup;
318: End If;
319: --
320: If (p_rec.default_uom = hr_api.g_varchar2) then
321: p_rec.default_uom := per_cpa_shd.g_old_rec.default_uom;
322: End If;
323: --
324: If (p_rec.hidden = hr_api.g_varchar2) then
325: p_rec.hidden := per_cpa_shd.g_old_rec.hidden;
321: p_rec.default_uom := per_cpa_shd.g_old_rec.default_uom;
322: End If;
323: --
324: If (p_rec.hidden = hr_api.g_varchar2) then
325: p_rec.hidden := per_cpa_shd.g_old_rec.hidden;
326: End If;
327: End convert_defs;
328: --
329: -- ----------------------------------------------------------------------------
330: -- |---------------------------------< upd >----------------------------------|
331: -- ----------------------------------------------------------------------------
332: Procedure upd
333: (p_effective_date in date
334: ,p_rec in out nocopy per_cpa_shd.g_rec_type
335: ) is
336: --
337: l_proc varchar2(72) := g_package||'upd';
338: --
340: hr_utility.set_location('Entering:'||l_proc, 5);
341: --
342: -- We must lock the row which we need to update.
343: --
344: per_cpa_shd.lck
345: (p_rec.cagr_api_param_id
346: ,p_rec.object_version_number
347: );
348: --
391: ,p_default_uom in varchar2 default hr_api.g_varchar2
392: ,p_hidden in varchar2 default hr_api.g_varchar2
393: ) is
394: --
395: l_rec per_cpa_shd.g_rec_type;
396: l_proc varchar2(72) := g_package||'upd';
397: --
398: Begin
399: hr_utility.set_location('Entering:'||l_proc, 5);
401: -- Call conversion function to turn arguments into the
402: -- l_rec structure.
403: --
404: l_rec :=
405: per_cpa_shd.convert_args
406: (p_cagr_api_param_id
407: ,p_cagr_api_id
408: ,p_display_name
409: ,p_parameter_name