51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy pqh_bre_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: pqh_bre_shd.g_api_dml := true; -- Set the api dml status
67: --
68: -- Update the pqh_bdgt_pool_realloctions Row
69: --
70: update pqh_bdgt_pool_realloctions
83: ,start_date = p_rec.start_date
84: ,end_date = p_rec.end_date
85: where reallocation_id = p_rec.reallocation_id;
86: --
87: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
88: --
89: hr_utility.set_location(' Leaving:'||l_proc, 10);
90: --
91: Exception
90: --
91: Exception
92: When hr_api.check_integrity_violated Then
93: -- A check constraint has been violated
94: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
95: pqh_bre_shd.constraint_error
96: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
97: When hr_api.parent_integrity_violated Then
98: -- Parent integrity has been violated
91: Exception
92: When hr_api.check_integrity_violated Then
93: -- A check constraint has been violated
94: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
95: pqh_bre_shd.constraint_error
96: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
97: When hr_api.parent_integrity_violated Then
98: -- Parent integrity has been violated
99: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
95: pqh_bre_shd.constraint_error
96: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
97: When hr_api.parent_integrity_violated Then
98: -- Parent integrity has been violated
99: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
100: pqh_bre_shd.constraint_error
101: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
102: When hr_api.unique_integrity_violated Then
103: -- Unique integrity has been violated
96: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
97: When hr_api.parent_integrity_violated Then
98: -- Parent integrity has been violated
99: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
100: pqh_bre_shd.constraint_error
101: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
102: When hr_api.unique_integrity_violated Then
103: -- Unique integrity has been violated
104: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
100: pqh_bre_shd.constraint_error
101: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
102: When hr_api.unique_integrity_violated Then
103: -- Unique integrity has been violated
104: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
105: pqh_bre_shd.constraint_error
106: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
107: When Others Then
108: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
101: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
102: When hr_api.unique_integrity_violated Then
103: -- Unique integrity has been violated
104: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
105: pqh_bre_shd.constraint_error
106: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
107: When Others Then
108: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
109: Raise;
104: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
105: pqh_bre_shd.constraint_error
106: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
107: When Others Then
108: pqh_bre_shd.g_api_dml := false; -- Unset the api dml status
109: Raise;
110: End update_dml;
111: --
112: -- ----------------------------------------------------------------------------
141: --
142: -- {End Of Comments}
143: -- ----------------------------------------------------------------------------
144: Procedure pre_update
145: (p_rec in pqh_bre_shd.g_rec_type
146: ) is
147: --
148: l_proc varchar2(72) := g_package||'pre_update';
149: --
186: -- {End Of Comments}
187: -- ----------------------------------------------------------------------------
188: Procedure post_update
189: (p_effective_date in date
190: ,p_rec in pqh_bre_shd.g_rec_type
191: ) is
192: --
193: l_proc varchar2(72) := g_package||'post_update';
194: --
224: => p_rec.start_date
225: ,p_end_date
226: => p_rec.end_date
227: ,p_position_id_o
228: => pqh_bre_shd.g_old_rec.position_id
229: ,p_pool_id_o
230: => pqh_bre_shd.g_old_rec.pool_id
231: ,p_reallocation_amt_o
232: => pqh_bre_shd.g_old_rec.reallocation_amt
226: => p_rec.end_date
227: ,p_position_id_o
228: => pqh_bre_shd.g_old_rec.position_id
229: ,p_pool_id_o
230: => pqh_bre_shd.g_old_rec.pool_id
231: ,p_reallocation_amt_o
232: => pqh_bre_shd.g_old_rec.reallocation_amt
233: ,p_reserved_amt_o
234: => pqh_bre_shd.g_old_rec.reserved_amt
228: => pqh_bre_shd.g_old_rec.position_id
229: ,p_pool_id_o
230: => pqh_bre_shd.g_old_rec.pool_id
231: ,p_reallocation_amt_o
232: => pqh_bre_shd.g_old_rec.reallocation_amt
233: ,p_reserved_amt_o
234: => pqh_bre_shd.g_old_rec.reserved_amt
235: ,p_object_version_number_o
236: => pqh_bre_shd.g_old_rec.object_version_number
230: => pqh_bre_shd.g_old_rec.pool_id
231: ,p_reallocation_amt_o
232: => pqh_bre_shd.g_old_rec.reallocation_amt
233: ,p_reserved_amt_o
234: => pqh_bre_shd.g_old_rec.reserved_amt
235: ,p_object_version_number_o
236: => pqh_bre_shd.g_old_rec.object_version_number
237: ,p_txn_detail_id_o
238: => pqh_bre_shd.g_old_rec.txn_detail_id
232: => pqh_bre_shd.g_old_rec.reallocation_amt
233: ,p_reserved_amt_o
234: => pqh_bre_shd.g_old_rec.reserved_amt
235: ,p_object_version_number_o
236: => pqh_bre_shd.g_old_rec.object_version_number
237: ,p_txn_detail_id_o
238: => pqh_bre_shd.g_old_rec.txn_detail_id
239: ,p_transaction_type_o
240: => pqh_bre_shd.g_old_rec.transaction_type
234: => pqh_bre_shd.g_old_rec.reserved_amt
235: ,p_object_version_number_o
236: => pqh_bre_shd.g_old_rec.object_version_number
237: ,p_txn_detail_id_o
238: => pqh_bre_shd.g_old_rec.txn_detail_id
239: ,p_transaction_type_o
240: => pqh_bre_shd.g_old_rec.transaction_type
241: ,p_budget_detail_id_o
242: => pqh_bre_shd.g_old_rec.budget_detail_id
236: => pqh_bre_shd.g_old_rec.object_version_number
237: ,p_txn_detail_id_o
238: => pqh_bre_shd.g_old_rec.txn_detail_id
239: ,p_transaction_type_o
240: => pqh_bre_shd.g_old_rec.transaction_type
241: ,p_budget_detail_id_o
242: => pqh_bre_shd.g_old_rec.budget_detail_id
243: ,p_budget_period_id_o
244: => pqh_bre_shd.g_old_rec.budget_period_id
238: => pqh_bre_shd.g_old_rec.txn_detail_id
239: ,p_transaction_type_o
240: => pqh_bre_shd.g_old_rec.transaction_type
241: ,p_budget_detail_id_o
242: => pqh_bre_shd.g_old_rec.budget_detail_id
243: ,p_budget_period_id_o
244: => pqh_bre_shd.g_old_rec.budget_period_id
245: ,p_entity_id_o
246: => pqh_bre_shd.g_old_rec.entity_id
240: => pqh_bre_shd.g_old_rec.transaction_type
241: ,p_budget_detail_id_o
242: => pqh_bre_shd.g_old_rec.budget_detail_id
243: ,p_budget_period_id_o
244: => pqh_bre_shd.g_old_rec.budget_period_id
245: ,p_entity_id_o
246: => pqh_bre_shd.g_old_rec.entity_id
247: ,p_start_date_o
248: => pqh_bre_shd.g_old_rec.start_date
242: => pqh_bre_shd.g_old_rec.budget_detail_id
243: ,p_budget_period_id_o
244: => pqh_bre_shd.g_old_rec.budget_period_id
245: ,p_entity_id_o
246: => pqh_bre_shd.g_old_rec.entity_id
247: ,p_start_date_o
248: => pqh_bre_shd.g_old_rec.start_date
249: ,p_end_date_o
250: => pqh_bre_shd.g_old_rec.end_date
244: => pqh_bre_shd.g_old_rec.budget_period_id
245: ,p_entity_id_o
246: => pqh_bre_shd.g_old_rec.entity_id
247: ,p_start_date_o
248: => pqh_bre_shd.g_old_rec.start_date
249: ,p_end_date_o
250: => pqh_bre_shd.g_old_rec.end_date
251: );
252: --
246: => pqh_bre_shd.g_old_rec.entity_id
247: ,p_start_date_o
248: => pqh_bre_shd.g_old_rec.start_date
249: ,p_end_date_o
250: => pqh_bre_shd.g_old_rec.end_date
251: );
252: --
253: exception
254: --
306: --
307: -- {End Of Comments}
308: -- ----------------------------------------------------------------------------
309: Procedure convert_defs
310: (p_rec in out nocopy pqh_bre_shd.g_rec_type
311: ) is
312: --
313: Begin
314: --
318: -- is being used then we must set to the 'current' argument value.
319: --
320: If (p_rec.position_id = hr_api.g_number) then
321: p_rec.position_id :=
322: pqh_bre_shd.g_old_rec.position_id;
323: End If;
324: If (p_rec.pool_id = hr_api.g_number) then
325: p_rec.pool_id :=
326: pqh_bre_shd.g_old_rec.pool_id;
322: pqh_bre_shd.g_old_rec.position_id;
323: End If;
324: If (p_rec.pool_id = hr_api.g_number) then
325: p_rec.pool_id :=
326: pqh_bre_shd.g_old_rec.pool_id;
327: End If;
328: If (p_rec.reallocation_amt = hr_api.g_number) then
329: p_rec.reallocation_amt :=
330: pqh_bre_shd.g_old_rec.reallocation_amt;
326: pqh_bre_shd.g_old_rec.pool_id;
327: End If;
328: If (p_rec.reallocation_amt = hr_api.g_number) then
329: p_rec.reallocation_amt :=
330: pqh_bre_shd.g_old_rec.reallocation_amt;
331: End If;
332: If (p_rec.reserved_amt = hr_api.g_number) then
333: p_rec.reserved_amt :=
334: pqh_bre_shd.g_old_rec.reserved_amt;
330: pqh_bre_shd.g_old_rec.reallocation_amt;
331: End If;
332: If (p_rec.reserved_amt = hr_api.g_number) then
333: p_rec.reserved_amt :=
334: pqh_bre_shd.g_old_rec.reserved_amt;
335: End If;
336: If (p_rec.txn_detail_id = hr_api.g_number) then
337: p_rec.txn_detail_id :=
338: pqh_bre_shd.g_old_rec.txn_detail_id;
334: pqh_bre_shd.g_old_rec.reserved_amt;
335: End If;
336: If (p_rec.txn_detail_id = hr_api.g_number) then
337: p_rec.txn_detail_id :=
338: pqh_bre_shd.g_old_rec.txn_detail_id;
339: End If;
340: If (p_rec.transaction_type = hr_api.g_varchar2) then
341: p_rec.transaction_type :=
342: pqh_bre_shd.g_old_rec.transaction_type;
338: pqh_bre_shd.g_old_rec.txn_detail_id;
339: End If;
340: If (p_rec.transaction_type = hr_api.g_varchar2) then
341: p_rec.transaction_type :=
342: pqh_bre_shd.g_old_rec.transaction_type;
343: End If;
344: If (p_rec.budget_detail_id = hr_api.g_number) then
345: p_rec.budget_detail_id :=
346: pqh_bre_shd.g_old_rec.budget_detail_id;
342: pqh_bre_shd.g_old_rec.transaction_type;
343: End If;
344: If (p_rec.budget_detail_id = hr_api.g_number) then
345: p_rec.budget_detail_id :=
346: pqh_bre_shd.g_old_rec.budget_detail_id;
347: End If;
348: If (p_rec.budget_period_id = hr_api.g_number) then
349: p_rec.budget_period_id :=
350: pqh_bre_shd.g_old_rec.budget_period_id;
346: pqh_bre_shd.g_old_rec.budget_detail_id;
347: End If;
348: If (p_rec.budget_period_id = hr_api.g_number) then
349: p_rec.budget_period_id :=
350: pqh_bre_shd.g_old_rec.budget_period_id;
351: End If;
352: If (p_rec.entity_id = hr_api.g_number) then
353: p_rec.entity_id :=
354: pqh_bre_shd.g_old_rec.entity_id;
350: pqh_bre_shd.g_old_rec.budget_period_id;
351: End If;
352: If (p_rec.entity_id = hr_api.g_number) then
353: p_rec.entity_id :=
354: pqh_bre_shd.g_old_rec.entity_id;
355: End If;
356: If (p_rec.start_date = hr_api.g_date) then
357: p_rec.start_date :=
358: pqh_bre_shd.g_old_rec.start_date;
354: pqh_bre_shd.g_old_rec.entity_id;
355: End If;
356: If (p_rec.start_date = hr_api.g_date) then
357: p_rec.start_date :=
358: pqh_bre_shd.g_old_rec.start_date;
359: End If;
360: If (p_rec.end_date = hr_api.g_date) then
361: p_rec.end_date :=
362: pqh_bre_shd.g_old_rec.end_date;
358: pqh_bre_shd.g_old_rec.start_date;
359: End If;
360: If (p_rec.end_date = hr_api.g_date) then
361: p_rec.end_date :=
362: pqh_bre_shd.g_old_rec.end_date;
363: End If;
364: --
365: End convert_defs;
366: --
368: -- |---------------------------------< upd >----------------------------------|
369: -- ----------------------------------------------------------------------------
370: Procedure upd
371: (p_effective_date in date
372: ,p_rec in out nocopy pqh_bre_shd.g_rec_type
373: ) is
374: --
375: l_proc varchar2(72) := g_package||'upd';
376: --
378: hr_utility.set_location('Entering:'||l_proc, 5);
379: --
380: -- We must lock the row which we need to update.
381: --
382: pqh_bre_shd.lck
383: (p_rec.reallocation_id
384: ,p_rec.object_version_number
385: );
386: --
437: ,p_start_date in date default hr_api.g_date
438: ,p_end_date in date default hr_api.g_date
439: ) is
440: --
441: l_rec pqh_bre_shd.g_rec_type;
442: l_proc varchar2(72) := g_package||'upd';
443: --
444: Begin
445: hr_utility.set_location('Entering:'||l_proc, 5);
447: -- Call conversion function to turn arguments into the
448: -- l_rec structure.
449: --
450: l_rec :=
451: pqh_bre_shd.convert_args
452: (p_reallocation_id
453: ,p_position_id
454: ,p_pool_id
455: ,p_reallocation_amt