51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy per_bbt_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
88: Exception
89: When hr_api.check_integrity_violated Then
90: -- A check constraint has been violated
91: --
92: per_bbt_shd.constraint_error
93: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.parent_integrity_violated Then
95: -- Parent integrity has been violated
96: --
93: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.parent_integrity_violated Then
95: -- Parent integrity has been violated
96: --
97: per_bbt_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.unique_integrity_violated Then
100: -- Unique integrity has been violated
101: --
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.unique_integrity_violated Then
100: -- Unique integrity has been violated
101: --
102: per_bbt_shd.constraint_error
103: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
104: When Others Then
105: --
106: Raise;
138: --
139: -- {End Of Comments}
140: -- ----------------------------------------------------------------------------
141: Procedure pre_update
142: (p_rec in per_bbt_shd.g_rec_type
143: ) is
144: --
145: l_proc varchar2(72) := g_package||'pre_update';
146: --
183: -- {End Of Comments}
184: -- ----------------------------------------------------------------------------
185: Procedure post_update
186: (p_effective_date in date
187: ,p_rec in per_bbt_shd.g_rec_type
188: ) is
189: --
190: l_proc varchar2(72) := g_package||'post_update';
191: --
206: ,p_date_from => p_rec.date_from
207: ,p_date_to => p_rec.date_to
208: ,p_object_version_number => p_rec.object_version_number
209: ,p_input_value_id_o
210: => per_bbt_shd.g_old_rec.input_value_id
211: ,p_business_group_id_o
212: => per_bbt_shd.g_old_rec.business_group_id
213: ,p_displayed_name_o
214: => per_bbt_shd.g_old_rec.displayed_name
208: ,p_object_version_number => p_rec.object_version_number
209: ,p_input_value_id_o
210: => per_bbt_shd.g_old_rec.input_value_id
211: ,p_business_group_id_o
212: => per_bbt_shd.g_old_rec.business_group_id
213: ,p_displayed_name_o
214: => per_bbt_shd.g_old_rec.displayed_name
215: ,p_internal_name_o
216: => per_bbt_shd.g_old_rec.internal_name
210: => per_bbt_shd.g_old_rec.input_value_id
211: ,p_business_group_id_o
212: => per_bbt_shd.g_old_rec.business_group_id
213: ,p_displayed_name_o
214: => per_bbt_shd.g_old_rec.displayed_name
215: ,p_internal_name_o
216: => per_bbt_shd.g_old_rec.internal_name
217: ,p_uom_o
218: => per_bbt_shd.g_old_rec.uom
212: => per_bbt_shd.g_old_rec.business_group_id
213: ,p_displayed_name_o
214: => per_bbt_shd.g_old_rec.displayed_name
215: ,p_internal_name_o
216: => per_bbt_shd.g_old_rec.internal_name
217: ,p_uom_o
218: => per_bbt_shd.g_old_rec.uom
219: ,p_currency_o
220: => per_bbt_shd.g_old_rec.currency
214: => per_bbt_shd.g_old_rec.displayed_name
215: ,p_internal_name_o
216: => per_bbt_shd.g_old_rec.internal_name
217: ,p_uom_o
218: => per_bbt_shd.g_old_rec.uom
219: ,p_currency_o
220: => per_bbt_shd.g_old_rec.currency
221: ,p_category_o
222: => per_bbt_shd.g_old_rec.category
216: => per_bbt_shd.g_old_rec.internal_name
217: ,p_uom_o
218: => per_bbt_shd.g_old_rec.uom
219: ,p_currency_o
220: => per_bbt_shd.g_old_rec.currency
221: ,p_category_o
222: => per_bbt_shd.g_old_rec.category
223: ,p_date_from_o
224: => per_bbt_shd.g_old_rec.date_from
218: => per_bbt_shd.g_old_rec.uom
219: ,p_currency_o
220: => per_bbt_shd.g_old_rec.currency
221: ,p_category_o
222: => per_bbt_shd.g_old_rec.category
223: ,p_date_from_o
224: => per_bbt_shd.g_old_rec.date_from
225: ,p_date_to_o
226: => per_bbt_shd.g_old_rec.date_to
220: => per_bbt_shd.g_old_rec.currency
221: ,p_category_o
222: => per_bbt_shd.g_old_rec.category
223: ,p_date_from_o
224: => per_bbt_shd.g_old_rec.date_from
225: ,p_date_to_o
226: => per_bbt_shd.g_old_rec.date_to
227: ,p_object_version_number_o
228: => per_bbt_shd.g_old_rec.object_version_number
222: => per_bbt_shd.g_old_rec.category
223: ,p_date_from_o
224: => per_bbt_shd.g_old_rec.date_from
225: ,p_date_to_o
226: => per_bbt_shd.g_old_rec.date_to
227: ,p_object_version_number_o
228: => per_bbt_shd.g_old_rec.object_version_number
229: );
230: --
224: => per_bbt_shd.g_old_rec.date_from
225: ,p_date_to_o
226: => per_bbt_shd.g_old_rec.date_to
227: ,p_object_version_number_o
228: => per_bbt_shd.g_old_rec.object_version_number
229: );
230: --
231: exception
232: --
284: --
285: -- {End Of Comments}
286: -- ----------------------------------------------------------------------------
287: Procedure convert_defs
288: (p_rec in out nocopy per_bbt_shd.g_rec_type
289: ) is
290: --
291: l_proc varchar2(72) := g_package||'convert_defs';
292: --
300: -- is being used then we must set to the 'current' argument value.
301: --
302: If (p_rec.input_value_id = hr_api.g_number) then
303: p_rec.input_value_id :=
304: per_bbt_shd.g_old_rec.input_value_id;
305: End If;
306: If (p_rec.business_group_id = hr_api.g_number) then
307: p_rec.business_group_id :=
308: per_bbt_shd.g_old_rec.business_group_id;
304: per_bbt_shd.g_old_rec.input_value_id;
305: End If;
306: If (p_rec.business_group_id = hr_api.g_number) then
307: p_rec.business_group_id :=
308: per_bbt_shd.g_old_rec.business_group_id;
309: End If;
310: If (p_rec.displayed_name = hr_api.g_varchar2) then
311: p_rec.displayed_name :=
312: per_bbt_shd.g_old_rec.displayed_name;
308: per_bbt_shd.g_old_rec.business_group_id;
309: End If;
310: If (p_rec.displayed_name = hr_api.g_varchar2) then
311: p_rec.displayed_name :=
312: per_bbt_shd.g_old_rec.displayed_name;
313: End If;
314: If (p_rec.internal_name = hr_api.g_varchar2) then
315: p_rec.internal_name :=
316: per_bbt_shd.g_old_rec.internal_name;
312: per_bbt_shd.g_old_rec.displayed_name;
313: End If;
314: If (p_rec.internal_name = hr_api.g_varchar2) then
315: p_rec.internal_name :=
316: per_bbt_shd.g_old_rec.internal_name;
317: End If;
318: If (p_rec.uom = hr_api.g_varchar2) then
319: p_rec.uom :=
320: per_bbt_shd.g_old_rec.uom;
316: per_bbt_shd.g_old_rec.internal_name;
317: End If;
318: If (p_rec.uom = hr_api.g_varchar2) then
319: p_rec.uom :=
320: per_bbt_shd.g_old_rec.uom;
321: End If;
322: If (p_rec.currency = hr_api.g_varchar2) then
323: p_rec.currency :=
324: per_bbt_shd.g_old_rec.currency;
320: per_bbt_shd.g_old_rec.uom;
321: End If;
322: If (p_rec.currency = hr_api.g_varchar2) then
323: p_rec.currency :=
324: per_bbt_shd.g_old_rec.currency;
325: End If;
326: If (p_rec.category = hr_api.g_varchar2) then
327: p_rec.category :=
328: per_bbt_shd.g_old_rec.category;
324: per_bbt_shd.g_old_rec.currency;
325: End If;
326: If (p_rec.category = hr_api.g_varchar2) then
327: p_rec.category :=
328: per_bbt_shd.g_old_rec.category;
329: End If;
330: If (p_rec.date_from = hr_api.g_date) then
331: p_rec.date_from :=
332: per_bbt_shd.g_old_rec.date_from;
328: per_bbt_shd.g_old_rec.category;
329: End If;
330: If (p_rec.date_from = hr_api.g_date) then
331: p_rec.date_from :=
332: per_bbt_shd.g_old_rec.date_from;
333: End If;
334: If (p_rec.date_to = hr_api.g_date) then
335: p_rec.date_to :=
336: per_bbt_shd.g_old_rec.date_to;
332: per_bbt_shd.g_old_rec.date_from;
333: End If;
334: If (p_rec.date_to = hr_api.g_date) then
335: p_rec.date_to :=
336: per_bbt_shd.g_old_rec.date_to;
337: End If;
338: --
339: hr_utility.set_location(' Leaving:'||l_proc, 10);
340: --
344: -- |---------------------------------< upd >----------------------------------|
345: -- ----------------------------------------------------------------------------
346: Procedure upd
347: (p_effective_date in date
348: ,p_rec in out nocopy per_bbt_shd.g_rec_type
349: ) is
350: --
351: l_proc varchar2(72) := g_package||'upd';
352: --
354: hr_utility.set_location('Entering:'||l_proc, 5);
355: --
356: -- We must lock the row which we need to update.
357: --
358: per_bbt_shd.lck
359: (p_rec.balance_type_id
360: ,p_rec.object_version_number
361: );
362: --
404: ,p_date_to in date default hr_api.g_date
405: ,p_object_version_number in out nocopy number
406: ) is
407: --
408: l_rec per_bbt_shd.g_rec_type;
409: l_proc varchar2(72) := g_package||'upd';
410: --
411: Begin
412: hr_utility.set_location('Entering:'||l_proc, 5);
414: -- Call conversion function to turn arguments into the
415: -- l_rec structure.
416: --
417: l_rec :=
418: per_bbt_shd.convert_args
419: (p_balance_type_id
420: ,p_input_value_id
421: ,hr_api.g_number
422: ,p_displayed_name