51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy pqh_cgn_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
94: Exception
95: When hr_api.check_integrity_violated Then
96: -- A check constraint has been violated
97: --
98: pqh_cgn_shd.constraint_error
99: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
100: When hr_api.parent_integrity_violated Then
101: -- Parent integrity has been violated
102: --
99: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
100: When hr_api.parent_integrity_violated Then
101: -- Parent integrity has been violated
102: --
103: pqh_cgn_shd.constraint_error
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
105: When hr_api.unique_integrity_violated Then
106: -- Unique integrity has been violated
107: --
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
105: When hr_api.unique_integrity_violated Then
106: -- Unique integrity has been violated
107: --
108: pqh_cgn_shd.constraint_error
109: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
110: When Others Then
111: --
112: Raise;
144: --
145: -- {End Of Comments}
146: -- ----------------------------------------------------------------------------
147: Procedure pre_update
148: (p_rec in pqh_cgn_shd.g_rec_type
149: ) is
150: --
151: l_proc varchar2(72) := g_package||'pre_update';
152: --
189: -- {End Of Comments}
190: -- ----------------------------------------------------------------------------
191: Procedure post_update
192: (p_effective_date in date
193: ,p_rec in pqh_cgn_shd.g_rec_type
194: ) is
195: --
196: l_proc varchar2(72) := g_package||'post_update';
197: --
233: => p_rec.prob_advn_units
234: ,p_sub_csgrp_description
235: => p_rec.sub_csgrp_description
236: ,p_case_group_number_o
237: => pqh_cgn_shd.g_old_rec.case_group_number
238: ,p_description_o
239: => pqh_cgn_shd.g_old_rec.description
240: ,p_advanced_pay_grade_o
241: => pqh_cgn_shd.g_old_rec.advanced_pay_grade
235: => p_rec.sub_csgrp_description
236: ,p_case_group_number_o
237: => pqh_cgn_shd.g_old_rec.case_group_number
238: ,p_description_o
239: => pqh_cgn_shd.g_old_rec.description
240: ,p_advanced_pay_grade_o
241: => pqh_cgn_shd.g_old_rec.advanced_pay_grade
242: ,p_entries_in_minute_o
243: => pqh_cgn_shd.g_old_rec.entries_in_minute
237: => pqh_cgn_shd.g_old_rec.case_group_number
238: ,p_description_o
239: => pqh_cgn_shd.g_old_rec.description
240: ,p_advanced_pay_grade_o
241: => pqh_cgn_shd.g_old_rec.advanced_pay_grade
242: ,p_entries_in_minute_o
243: => pqh_cgn_shd.g_old_rec.entries_in_minute
244: ,p_period_of_prob_advmnt_o
245: => pqh_cgn_shd.g_old_rec.period_of_prob_advmnt
239: => pqh_cgn_shd.g_old_rec.description
240: ,p_advanced_pay_grade_o
241: => pqh_cgn_shd.g_old_rec.advanced_pay_grade
242: ,p_entries_in_minute_o
243: => pqh_cgn_shd.g_old_rec.entries_in_minute
244: ,p_period_of_prob_advmnt_o
245: => pqh_cgn_shd.g_old_rec.period_of_prob_advmnt
246: ,p_period_of_time_advmnt_o
247: => pqh_cgn_shd.g_old_rec.period_of_time_advmnt
241: => pqh_cgn_shd.g_old_rec.advanced_pay_grade
242: ,p_entries_in_minute_o
243: => pqh_cgn_shd.g_old_rec.entries_in_minute
244: ,p_period_of_prob_advmnt_o
245: => pqh_cgn_shd.g_old_rec.period_of_prob_advmnt
246: ,p_period_of_time_advmnt_o
247: => pqh_cgn_shd.g_old_rec.period_of_time_advmnt
248: ,p_advancement_to_o
249: => pqh_cgn_shd.g_old_rec.advancement_to
243: => pqh_cgn_shd.g_old_rec.entries_in_minute
244: ,p_period_of_prob_advmnt_o
245: => pqh_cgn_shd.g_old_rec.period_of_prob_advmnt
246: ,p_period_of_time_advmnt_o
247: => pqh_cgn_shd.g_old_rec.period_of_time_advmnt
248: ,p_advancement_to_o
249: => pqh_cgn_shd.g_old_rec.advancement_to
250: ,p_object_version_number_o
251: => pqh_cgn_shd.g_old_rec.object_version_number
245: => pqh_cgn_shd.g_old_rec.period_of_prob_advmnt
246: ,p_period_of_time_advmnt_o
247: => pqh_cgn_shd.g_old_rec.period_of_time_advmnt
248: ,p_advancement_to_o
249: => pqh_cgn_shd.g_old_rec.advancement_to
250: ,p_object_version_number_o
251: => pqh_cgn_shd.g_old_rec.object_version_number
252: ,p_advancement_additional_pyt_o
253: => pqh_cgn_shd.g_old_rec.advancement_additional_pyt
247: => pqh_cgn_shd.g_old_rec.period_of_time_advmnt
248: ,p_advancement_to_o
249: => pqh_cgn_shd.g_old_rec.advancement_to
250: ,p_object_version_number_o
251: => pqh_cgn_shd.g_old_rec.object_version_number
252: ,p_advancement_additional_pyt_o
253: => pqh_cgn_shd.g_old_rec.advancement_additional_pyt
254: ,p_time_advanced_pay_grade_o
255: => pqh_cgn_shd.g_old_rec.time_advanced_pay_grade
249: => pqh_cgn_shd.g_old_rec.advancement_to
250: ,p_object_version_number_o
251: => pqh_cgn_shd.g_old_rec.object_version_number
252: ,p_advancement_additional_pyt_o
253: => pqh_cgn_shd.g_old_rec.advancement_additional_pyt
254: ,p_time_advanced_pay_grade_o
255: => pqh_cgn_shd.g_old_rec.time_advanced_pay_grade
256: ,p_time_advancement_to_o
257: => pqh_cgn_shd.g_old_rec.time_advancement_to
251: => pqh_cgn_shd.g_old_rec.object_version_number
252: ,p_advancement_additional_pyt_o
253: => pqh_cgn_shd.g_old_rec.advancement_additional_pyt
254: ,p_time_advanced_pay_grade_o
255: => pqh_cgn_shd.g_old_rec.time_advanced_pay_grade
256: ,p_time_advancement_to_o
257: => pqh_cgn_shd.g_old_rec.time_advancement_to
258: ,p_business_group_id_o
259: => pqh_cgn_shd.g_old_rec.business_group_id
253: => pqh_cgn_shd.g_old_rec.advancement_additional_pyt
254: ,p_time_advanced_pay_grade_o
255: => pqh_cgn_shd.g_old_rec.time_advanced_pay_grade
256: ,p_time_advancement_to_o
257: => pqh_cgn_shd.g_old_rec.time_advancement_to
258: ,p_business_group_id_o
259: => pqh_cgn_shd.g_old_rec.business_group_id
260: ,p_time_advn_units_o
261: => pqh_cgn_shd.g_old_rec.time_advn_units
255: => pqh_cgn_shd.g_old_rec.time_advanced_pay_grade
256: ,p_time_advancement_to_o
257: => pqh_cgn_shd.g_old_rec.time_advancement_to
258: ,p_business_group_id_o
259: => pqh_cgn_shd.g_old_rec.business_group_id
260: ,p_time_advn_units_o
261: => pqh_cgn_shd.g_old_rec.time_advn_units
262: ,p_prob_advn_units_o
263: => pqh_cgn_shd.g_old_rec.prob_advn_units
257: => pqh_cgn_shd.g_old_rec.time_advancement_to
258: ,p_business_group_id_o
259: => pqh_cgn_shd.g_old_rec.business_group_id
260: ,p_time_advn_units_o
261: => pqh_cgn_shd.g_old_rec.time_advn_units
262: ,p_prob_advn_units_o
263: => pqh_cgn_shd.g_old_rec.prob_advn_units
264: ,p_sub_csgrp_description_o
265: => pqh_cgn_shd.g_old_rec.sub_csgrp_description
259: => pqh_cgn_shd.g_old_rec.business_group_id
260: ,p_time_advn_units_o
261: => pqh_cgn_shd.g_old_rec.time_advn_units
262: ,p_prob_advn_units_o
263: => pqh_cgn_shd.g_old_rec.prob_advn_units
264: ,p_sub_csgrp_description_o
265: => pqh_cgn_shd.g_old_rec.sub_csgrp_description
266: );
267: --
261: => pqh_cgn_shd.g_old_rec.time_advn_units
262: ,p_prob_advn_units_o
263: => pqh_cgn_shd.g_old_rec.prob_advn_units
264: ,p_sub_csgrp_description_o
265: => pqh_cgn_shd.g_old_rec.sub_csgrp_description
266: );
267: --
268: exception
269: --
321: --
322: -- {End Of Comments}
323: -- ----------------------------------------------------------------------------
324: Procedure convert_defs
325: (p_rec in out nocopy pqh_cgn_shd.g_rec_type
326: ) is
327: --
328: Begin
329: --
333: -- is being used then we must set to the 'current' argument value.
334: --
335: If (p_rec.case_group_number = hr_api.g_varchar2) then
336: p_rec.case_group_number :=
337: pqh_cgn_shd.g_old_rec.case_group_number;
338: End If;
339: If (p_rec.description = hr_api.g_varchar2) then
340: p_rec.description :=
341: pqh_cgn_shd.g_old_rec.description;
337: pqh_cgn_shd.g_old_rec.case_group_number;
338: End If;
339: If (p_rec.description = hr_api.g_varchar2) then
340: p_rec.description :=
341: pqh_cgn_shd.g_old_rec.description;
342: End If;
343: If (p_rec.advanced_pay_grade = hr_api.g_number) then
344: p_rec.advanced_pay_grade :=
345: pqh_cgn_shd.g_old_rec.advanced_pay_grade;
341: pqh_cgn_shd.g_old_rec.description;
342: End If;
343: If (p_rec.advanced_pay_grade = hr_api.g_number) then
344: p_rec.advanced_pay_grade :=
345: pqh_cgn_shd.g_old_rec.advanced_pay_grade;
346: End If;
347: If (p_rec.entries_in_minute = hr_api.g_varchar2) then
348: p_rec.entries_in_minute :=
349: pqh_cgn_shd.g_old_rec.entries_in_minute;
345: pqh_cgn_shd.g_old_rec.advanced_pay_grade;
346: End If;
347: If (p_rec.entries_in_minute = hr_api.g_varchar2) then
348: p_rec.entries_in_minute :=
349: pqh_cgn_shd.g_old_rec.entries_in_minute;
350: End If;
351: If (p_rec.period_of_prob_advmnt = hr_api.g_number) then
352: p_rec.period_of_prob_advmnt :=
353: pqh_cgn_shd.g_old_rec.period_of_prob_advmnt;
349: pqh_cgn_shd.g_old_rec.entries_in_minute;
350: End If;
351: If (p_rec.period_of_prob_advmnt = hr_api.g_number) then
352: p_rec.period_of_prob_advmnt :=
353: pqh_cgn_shd.g_old_rec.period_of_prob_advmnt;
354: End If;
355: If (p_rec.period_of_time_advmnt = hr_api.g_number) then
356: p_rec.period_of_time_advmnt :=
357: pqh_cgn_shd.g_old_rec.period_of_time_advmnt;
353: pqh_cgn_shd.g_old_rec.period_of_prob_advmnt;
354: End If;
355: If (p_rec.period_of_time_advmnt = hr_api.g_number) then
356: p_rec.period_of_time_advmnt :=
357: pqh_cgn_shd.g_old_rec.period_of_time_advmnt;
358: End If;
359: If (p_rec.advancement_to = hr_api.g_number) then
360: p_rec.advancement_to :=
361: pqh_cgn_shd.g_old_rec.advancement_to;
357: pqh_cgn_shd.g_old_rec.period_of_time_advmnt;
358: End If;
359: If (p_rec.advancement_to = hr_api.g_number) then
360: p_rec.advancement_to :=
361: pqh_cgn_shd.g_old_rec.advancement_to;
362: End If;
363: If (p_rec.advancement_additional_pyt = hr_api.g_number) then
364: p_rec.advancement_additional_pyt :=
365: pqh_cgn_shd.g_old_rec.advancement_additional_pyt;
361: pqh_cgn_shd.g_old_rec.advancement_to;
362: End If;
363: If (p_rec.advancement_additional_pyt = hr_api.g_number) then
364: p_rec.advancement_additional_pyt :=
365: pqh_cgn_shd.g_old_rec.advancement_additional_pyt;
366: End If;
367: If (p_rec.time_advanced_pay_grade = hr_api.g_number) then
368: p_rec.time_advanced_pay_grade :=
369: pqh_cgn_shd.g_old_rec.time_advanced_pay_grade;
365: pqh_cgn_shd.g_old_rec.advancement_additional_pyt;
366: End If;
367: If (p_rec.time_advanced_pay_grade = hr_api.g_number) then
368: p_rec.time_advanced_pay_grade :=
369: pqh_cgn_shd.g_old_rec.time_advanced_pay_grade;
370: End If;
371: If (p_rec.time_advancement_to = hr_api.g_number) then
372: p_rec.time_advancement_to :=
373: pqh_cgn_shd.g_old_rec.time_advancement_to;
369: pqh_cgn_shd.g_old_rec.time_advanced_pay_grade;
370: End If;
371: If (p_rec.time_advancement_to = hr_api.g_number) then
372: p_rec.time_advancement_to :=
373: pqh_cgn_shd.g_old_rec.time_advancement_to;
374: End If;
375: If (p_rec.business_group_id = hr_api.g_number) then
376: p_rec.business_group_id :=
377: pqh_cgn_shd.g_old_rec.business_group_id;
373: pqh_cgn_shd.g_old_rec.time_advancement_to;
374: End If;
375: If (p_rec.business_group_id = hr_api.g_number) then
376: p_rec.business_group_id :=
377: pqh_cgn_shd.g_old_rec.business_group_id;
378: End If;
379: If (p_rec.time_advn_units = hr_api.g_varchar2) then
380: p_rec.time_advn_units :=
381: pqh_cgn_shd.g_old_rec.time_advn_units;
377: pqh_cgn_shd.g_old_rec.business_group_id;
378: End If;
379: If (p_rec.time_advn_units = hr_api.g_varchar2) then
380: p_rec.time_advn_units :=
381: pqh_cgn_shd.g_old_rec.time_advn_units;
382: End If;
383: If (p_rec.prob_advn_units = hr_api.g_varchar2) then
384: p_rec.prob_advn_units :=
385: pqh_cgn_shd.g_old_rec.prob_advn_units;
381: pqh_cgn_shd.g_old_rec.time_advn_units;
382: End If;
383: If (p_rec.prob_advn_units = hr_api.g_varchar2) then
384: p_rec.prob_advn_units :=
385: pqh_cgn_shd.g_old_rec.prob_advn_units;
386: End If;
387: If (p_rec.sub_csgrp_description = hr_api.g_varchar2) then
388: p_rec.sub_csgrp_description :=
389: pqh_cgn_shd.g_old_rec.sub_csgrp_description;
385: pqh_cgn_shd.g_old_rec.prob_advn_units;
386: End If;
387: If (p_rec.sub_csgrp_description = hr_api.g_varchar2) then
388: p_rec.sub_csgrp_description :=
389: pqh_cgn_shd.g_old_rec.sub_csgrp_description;
390: End If;
391: --
392: End convert_defs;
393: --
395: -- |---------------------------------< upd >----------------------------------|
396: -- ----------------------------------------------------------------------------
397: Procedure upd
398: (p_effective_date in date
399: ,p_rec in out nocopy pqh_cgn_shd.g_rec_type
400: ) is
401: --
402: l_proc varchar2(72) := g_package||'upd';
403: --
408: -- We must lock the row which we need to update.
409: --
410:
411:
412: pqh_cgn_shd.lck
413: (p_rec.case_group_id
414: ,p_rec.object_version_number
415: );
416: --
470: ,p_prob_advn_units in varchar2 default hr_api.g_varchar2
471: ,p_sub_csgrp_description in varchar2 default hr_api.g_varchar2
472: ) is
473: --
474: l_rec pqh_cgn_shd.g_rec_type;
475: l_proc varchar2(72) := g_package||'upd';
476: --
477: Begin
478: hr_utility.set_location('Entering:'||l_proc, 5);
480: -- Call conversion function to turn arguments into the
481: -- l_rec structure.
482: --
483: l_rec :=
484: pqh_cgn_shd.convert_args
485: (p_case_group_id
486: ,p_case_group_number
487: ,p_description
488: ,p_advanced_pay_grade