51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy pay_ran_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
93: Exception
94: When hr_api.check_integrity_violated Then
95: -- A check constraint has been violated
96: --
97: pay_ran_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.parent_integrity_violated Then
100: -- Parent integrity has been violated
101: --
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.parent_integrity_violated Then
100: -- Parent integrity has been violated
101: --
102: pay_ran_shd.constraint_error
103: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
104: When hr_api.unique_integrity_violated Then
105: -- Unique integrity has been violated
106: --
103: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
104: When hr_api.unique_integrity_violated Then
105: -- Unique integrity has been violated
106: --
107: pay_ran_shd.constraint_error
108: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
109: When Others Then
110: --
111: Raise;
143: --
144: -- {End Of Comments}
145: -- ----------------------------------------------------------------------------
146: Procedure pre_update
147: (p_rec in pay_ran_shd.g_rec_type
148: ) is
149: --
150: l_proc varchar2(72) := g_package||'pre_update';
151: --
187: --
188: -- {End Of Comments}
189: -- ----------------------------------------------------------------------------
190: Procedure post_update
191: (p_rec in pay_ran_shd.g_rec_type
192: ) is
193: --
194: l_proc varchar2(72) := g_package||'post_update';
195: --
212: ,p_amount8 => p_rec.amount8
213: ,p_effective_start_date => p_rec.effective_start_date
214: ,p_effective_end_date => p_rec.effective_end_date
215: ,p_object_version_number => p_rec.object_version_number
216: ,p_range_table_id_o => pay_ran_shd.g_old_rec.range_table_id
217: ,p_low_band_o => pay_ran_shd.g_old_rec.low_band
218: ,p_high_band_o => pay_ran_shd.g_old_rec.high_band
219: ,p_amount1_o => pay_ran_shd.g_old_rec.amount1
220: ,p_amount2_o => pay_ran_shd.g_old_rec.amount2
213: ,p_effective_start_date => p_rec.effective_start_date
214: ,p_effective_end_date => p_rec.effective_end_date
215: ,p_object_version_number => p_rec.object_version_number
216: ,p_range_table_id_o => pay_ran_shd.g_old_rec.range_table_id
217: ,p_low_band_o => pay_ran_shd.g_old_rec.low_band
218: ,p_high_band_o => pay_ran_shd.g_old_rec.high_band
219: ,p_amount1_o => pay_ran_shd.g_old_rec.amount1
220: ,p_amount2_o => pay_ran_shd.g_old_rec.amount2
221: ,p_amount3_o => pay_ran_shd.g_old_rec.amount3
214: ,p_effective_end_date => p_rec.effective_end_date
215: ,p_object_version_number => p_rec.object_version_number
216: ,p_range_table_id_o => pay_ran_shd.g_old_rec.range_table_id
217: ,p_low_band_o => pay_ran_shd.g_old_rec.low_band
218: ,p_high_band_o => pay_ran_shd.g_old_rec.high_band
219: ,p_amount1_o => pay_ran_shd.g_old_rec.amount1
220: ,p_amount2_o => pay_ran_shd.g_old_rec.amount2
221: ,p_amount3_o => pay_ran_shd.g_old_rec.amount3
222: ,p_amount4_o => pay_ran_shd.g_old_rec.amount4
215: ,p_object_version_number => p_rec.object_version_number
216: ,p_range_table_id_o => pay_ran_shd.g_old_rec.range_table_id
217: ,p_low_band_o => pay_ran_shd.g_old_rec.low_band
218: ,p_high_band_o => pay_ran_shd.g_old_rec.high_band
219: ,p_amount1_o => pay_ran_shd.g_old_rec.amount1
220: ,p_amount2_o => pay_ran_shd.g_old_rec.amount2
221: ,p_amount3_o => pay_ran_shd.g_old_rec.amount3
222: ,p_amount4_o => pay_ran_shd.g_old_rec.amount4
223: ,p_amount5_o => pay_ran_shd.g_old_rec.amount5
216: ,p_range_table_id_o => pay_ran_shd.g_old_rec.range_table_id
217: ,p_low_band_o => pay_ran_shd.g_old_rec.low_band
218: ,p_high_band_o => pay_ran_shd.g_old_rec.high_band
219: ,p_amount1_o => pay_ran_shd.g_old_rec.amount1
220: ,p_amount2_o => pay_ran_shd.g_old_rec.amount2
221: ,p_amount3_o => pay_ran_shd.g_old_rec.amount3
222: ,p_amount4_o => pay_ran_shd.g_old_rec.amount4
223: ,p_amount5_o => pay_ran_shd.g_old_rec.amount5
224: ,p_amount6_o => pay_ran_shd.g_old_rec.amount6
217: ,p_low_band_o => pay_ran_shd.g_old_rec.low_band
218: ,p_high_band_o => pay_ran_shd.g_old_rec.high_band
219: ,p_amount1_o => pay_ran_shd.g_old_rec.amount1
220: ,p_amount2_o => pay_ran_shd.g_old_rec.amount2
221: ,p_amount3_o => pay_ran_shd.g_old_rec.amount3
222: ,p_amount4_o => pay_ran_shd.g_old_rec.amount4
223: ,p_amount5_o => pay_ran_shd.g_old_rec.amount5
224: ,p_amount6_o => pay_ran_shd.g_old_rec.amount6
225: ,p_amount7_o => pay_ran_shd.g_old_rec.amount7
218: ,p_high_band_o => pay_ran_shd.g_old_rec.high_band
219: ,p_amount1_o => pay_ran_shd.g_old_rec.amount1
220: ,p_amount2_o => pay_ran_shd.g_old_rec.amount2
221: ,p_amount3_o => pay_ran_shd.g_old_rec.amount3
222: ,p_amount4_o => pay_ran_shd.g_old_rec.amount4
223: ,p_amount5_o => pay_ran_shd.g_old_rec.amount5
224: ,p_amount6_o => pay_ran_shd.g_old_rec.amount6
225: ,p_amount7_o => pay_ran_shd.g_old_rec.amount7
226: ,p_amount8_o => pay_ran_shd.g_old_rec.amount8
219: ,p_amount1_o => pay_ran_shd.g_old_rec.amount1
220: ,p_amount2_o => pay_ran_shd.g_old_rec.amount2
221: ,p_amount3_o => pay_ran_shd.g_old_rec.amount3
222: ,p_amount4_o => pay_ran_shd.g_old_rec.amount4
223: ,p_amount5_o => pay_ran_shd.g_old_rec.amount5
224: ,p_amount6_o => pay_ran_shd.g_old_rec.amount6
225: ,p_amount7_o => pay_ran_shd.g_old_rec.amount7
226: ,p_amount8_o => pay_ran_shd.g_old_rec.amount8
227: ,p_effective_start_date_o => pay_ran_shd.g_old_rec.effective_start_date
220: ,p_amount2_o => pay_ran_shd.g_old_rec.amount2
221: ,p_amount3_o => pay_ran_shd.g_old_rec.amount3
222: ,p_amount4_o => pay_ran_shd.g_old_rec.amount4
223: ,p_amount5_o => pay_ran_shd.g_old_rec.amount5
224: ,p_amount6_o => pay_ran_shd.g_old_rec.amount6
225: ,p_amount7_o => pay_ran_shd.g_old_rec.amount7
226: ,p_amount8_o => pay_ran_shd.g_old_rec.amount8
227: ,p_effective_start_date_o => pay_ran_shd.g_old_rec.effective_start_date
228: ,p_effective_end_date_o => pay_ran_shd.g_old_rec.effective_end_date
221: ,p_amount3_o => pay_ran_shd.g_old_rec.amount3
222: ,p_amount4_o => pay_ran_shd.g_old_rec.amount4
223: ,p_amount5_o => pay_ran_shd.g_old_rec.amount5
224: ,p_amount6_o => pay_ran_shd.g_old_rec.amount6
225: ,p_amount7_o => pay_ran_shd.g_old_rec.amount7
226: ,p_amount8_o => pay_ran_shd.g_old_rec.amount8
227: ,p_effective_start_date_o => pay_ran_shd.g_old_rec.effective_start_date
228: ,p_effective_end_date_o => pay_ran_shd.g_old_rec.effective_end_date
229: ,p_object_version_number_o => pay_ran_shd.g_old_rec.object_version_number
222: ,p_amount4_o => pay_ran_shd.g_old_rec.amount4
223: ,p_amount5_o => pay_ran_shd.g_old_rec.amount5
224: ,p_amount6_o => pay_ran_shd.g_old_rec.amount6
225: ,p_amount7_o => pay_ran_shd.g_old_rec.amount7
226: ,p_amount8_o => pay_ran_shd.g_old_rec.amount8
227: ,p_effective_start_date_o => pay_ran_shd.g_old_rec.effective_start_date
228: ,p_effective_end_date_o => pay_ran_shd.g_old_rec.effective_end_date
229: ,p_object_version_number_o => pay_ran_shd.g_old_rec.object_version_number
230: );
223: ,p_amount5_o => pay_ran_shd.g_old_rec.amount5
224: ,p_amount6_o => pay_ran_shd.g_old_rec.amount6
225: ,p_amount7_o => pay_ran_shd.g_old_rec.amount7
226: ,p_amount8_o => pay_ran_shd.g_old_rec.amount8
227: ,p_effective_start_date_o => pay_ran_shd.g_old_rec.effective_start_date
228: ,p_effective_end_date_o => pay_ran_shd.g_old_rec.effective_end_date
229: ,p_object_version_number_o => pay_ran_shd.g_old_rec.object_version_number
230: );
231: --
224: ,p_amount6_o => pay_ran_shd.g_old_rec.amount6
225: ,p_amount7_o => pay_ran_shd.g_old_rec.amount7
226: ,p_amount8_o => pay_ran_shd.g_old_rec.amount8
227: ,p_effective_start_date_o => pay_ran_shd.g_old_rec.effective_start_date
228: ,p_effective_end_date_o => pay_ran_shd.g_old_rec.effective_end_date
229: ,p_object_version_number_o => pay_ran_shd.g_old_rec.object_version_number
230: );
231: --
232: exception
225: ,p_amount7_o => pay_ran_shd.g_old_rec.amount7
226: ,p_amount8_o => pay_ran_shd.g_old_rec.amount8
227: ,p_effective_start_date_o => pay_ran_shd.g_old_rec.effective_start_date
228: ,p_effective_end_date_o => pay_ran_shd.g_old_rec.effective_end_date
229: ,p_object_version_number_o => pay_ran_shd.g_old_rec.object_version_number
230: );
231: --
232: exception
233: --
285: --
286: -- {End Of Comments}
287: -- ----------------------------------------------------------------------------
288: Procedure convert_defs
289: (p_rec in out nocopy pay_ran_shd.g_rec_type
290: ) is
291: --
292: Begin
293: --
297: -- is being used then we must set to the 'current' argument value.
298: --
299: If (p_rec.range_table_id = hr_api.g_number) then
300: p_rec.range_table_id :=
301: pay_ran_shd.g_old_rec.range_table_id;
302: End If;
303: If (p_rec.low_band = hr_api.g_number) then
304: p_rec.low_band :=
305: pay_ran_shd.g_old_rec.low_band;
301: pay_ran_shd.g_old_rec.range_table_id;
302: End If;
303: If (p_rec.low_band = hr_api.g_number) then
304: p_rec.low_band :=
305: pay_ran_shd.g_old_rec.low_band;
306: End If;
307: If (p_rec.high_band = hr_api.g_number) then
308: p_rec.high_band :=
309: pay_ran_shd.g_old_rec.high_band;
305: pay_ran_shd.g_old_rec.low_band;
306: End If;
307: If (p_rec.high_band = hr_api.g_number) then
308: p_rec.high_band :=
309: pay_ran_shd.g_old_rec.high_band;
310: End If;
311: If (p_rec.amount1 = hr_api.g_number) then
312: p_rec.amount1 := pay_ran_shd.g_old_rec.amount1;
313: End If;
308: p_rec.high_band :=
309: pay_ran_shd.g_old_rec.high_band;
310: End If;
311: If (p_rec.amount1 = hr_api.g_number) then
312: p_rec.amount1 := pay_ran_shd.g_old_rec.amount1;
313: End If;
314: If (p_rec.amount2 = hr_api.g_number) then
315: p_rec.amount2 := pay_ran_shd.g_old_rec.amount2;
316: End If;
311: If (p_rec.amount1 = hr_api.g_number) then
312: p_rec.amount1 := pay_ran_shd.g_old_rec.amount1;
313: End If;
314: If (p_rec.amount2 = hr_api.g_number) then
315: p_rec.amount2 := pay_ran_shd.g_old_rec.amount2;
316: End If;
317: If (p_rec.amount3 = hr_api.g_number) then
318: p_rec.amount3 := pay_ran_shd.g_old_rec.amount3;
319: End If;
314: If (p_rec.amount2 = hr_api.g_number) then
315: p_rec.amount2 := pay_ran_shd.g_old_rec.amount2;
316: End If;
317: If (p_rec.amount3 = hr_api.g_number) then
318: p_rec.amount3 := pay_ran_shd.g_old_rec.amount3;
319: End If;
320: If (p_rec.amount4 = hr_api.g_number) then
321: p_rec.amount4 := pay_ran_shd.g_old_rec.amount4;
322: End If;
317: If (p_rec.amount3 = hr_api.g_number) then
318: p_rec.amount3 := pay_ran_shd.g_old_rec.amount3;
319: End If;
320: If (p_rec.amount4 = hr_api.g_number) then
321: p_rec.amount4 := pay_ran_shd.g_old_rec.amount4;
322: End If;
323: If (p_rec.amount5 = hr_api.g_number) then
324: p_rec.amount5 := pay_ran_shd.g_old_rec.amount5;
325: End If;
320: If (p_rec.amount4 = hr_api.g_number) then
321: p_rec.amount4 := pay_ran_shd.g_old_rec.amount4;
322: End If;
323: If (p_rec.amount5 = hr_api.g_number) then
324: p_rec.amount5 := pay_ran_shd.g_old_rec.amount5;
325: End If;
326: If (p_rec.amount6 = hr_api.g_number) then
327: p_rec.amount6 := pay_ran_shd.g_old_rec.amount6;
328: End If;
323: If (p_rec.amount5 = hr_api.g_number) then
324: p_rec.amount5 := pay_ran_shd.g_old_rec.amount5;
325: End If;
326: If (p_rec.amount6 = hr_api.g_number) then
327: p_rec.amount6 := pay_ran_shd.g_old_rec.amount6;
328: End If;
329: If (p_rec.amount7 = hr_api.g_number) then
330: p_rec.amount7 := pay_ran_shd.g_old_rec.amount7;
331: End If;
326: If (p_rec.amount6 = hr_api.g_number) then
327: p_rec.amount6 := pay_ran_shd.g_old_rec.amount6;
328: End If;
329: If (p_rec.amount7 = hr_api.g_number) then
330: p_rec.amount7 := pay_ran_shd.g_old_rec.amount7;
331: End If;
332: If (p_rec.amount8 = hr_api.g_number) then
333: p_rec.amount8 := pay_ran_shd.g_old_rec.amount8;
334: End If;
329: If (p_rec.amount7 = hr_api.g_number) then
330: p_rec.amount7 := pay_ran_shd.g_old_rec.amount7;
331: End If;
332: If (p_rec.amount8 = hr_api.g_number) then
333: p_rec.amount8 := pay_ran_shd.g_old_rec.amount8;
334: End If;
335:
336: If (p_rec.effective_start_date = hr_api.g_date) then
337: p_rec.effective_start_date :=
334: End If;
335:
336: If (p_rec.effective_start_date = hr_api.g_date) then
337: p_rec.effective_start_date :=
338: pay_ran_shd.g_old_rec.effective_start_date;
339: End If;
340: If (p_rec.effective_end_date = hr_api.g_date) then
341: p_rec.effective_end_date :=
342: pay_ran_shd.g_old_rec.effective_end_date;
338: pay_ran_shd.g_old_rec.effective_start_date;
339: End If;
340: If (p_rec.effective_end_date = hr_api.g_date) then
341: p_rec.effective_end_date :=
342: pay_ran_shd.g_old_rec.effective_end_date;
343: End If;
344: --
345: End convert_defs;
346: --
347: -- ----------------------------------------------------------------------------
348: -- |---------------------------------< upd >----------------------------------|
349: -- ----------------------------------------------------------------------------
350: Procedure upd
351: (p_rec in out nocopy pay_ran_shd.g_rec_type
352: ) is
353: --
354: l_proc varchar2(72) := g_package||'upd';
355: --
357: hr_utility.set_location('Entering:'||l_proc, 5);
358: --
359: -- We must lock the row which we need to update.
360: --
361: pay_ran_shd.lck
362: (p_rec.range_id
363: ,p_rec.object_version_number
364: );
365: --
419: ,p_effective_start_date in date default hr_api.g_date
420: ,p_effective_end_date in date default hr_api.g_date
421: ) is
422: --
423: l_rec pay_ran_shd.g_rec_type;
424: l_proc varchar2(72) := g_package||'upd';
425: --
426: Begin
427: hr_utility.set_location('Entering:'||l_proc, 5);
429: -- Call conversion function to turn arguments into the
430: -- l_rec structure.
431: --
432: l_rec :=
433: pay_ran_shd.convert_args
434: (p_range_id
435: ,p_range_table_id
436: ,p_low_band
437: ,p_high_band