51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy pqh_rnk_shd.g_rec_type
56: ) is
57: --
58: l_proc constant varchar2(72) := g_package||'update_dml';
59: --
92: Exception
93: When hr_api.check_integrity_violated Then
94: -- A check constraint has been violated
95: --
96: pqh_rnk_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.parent_integrity_violated Then
99: -- Parent integrity has been violated
100: --
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.parent_integrity_violated Then
99: -- Parent integrity has been violated
100: --
101: pqh_rnk_shd.constraint_error
102: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
103: When hr_api.unique_integrity_violated Then
104: -- Unique integrity has been violated
105: --
102: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
103: When hr_api.unique_integrity_violated Then
104: -- Unique integrity has been violated
105: --
106: pqh_rnk_shd.constraint_error
107: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
108: When Others Then
109: --
110: Raise;
142: --
143: -- {End Of Comments}
144: -- ----------------------------------------------------------------------------
145: Procedure pre_update
146: (p_rec in pqh_rnk_shd.g_rec_type
147: ) is
148: --
149: l_proc constant varchar2(72) := g_package||'pre_update';
150: --
187: -- {End Of Comments}
188: -- ----------------------------------------------------------------------------
189: Procedure post_update
190: (p_effective_date in date
191: ,p_rec in pqh_rnk_shd.g_rec_type
192: ) is
193: --
194: l_proc constant varchar2(72) := g_package||'post_update';
195: --
228: => p_rec.business_group_id
229: ,p_per_in_ler_id
230: => p_rec.per_in_ler_id
231: ,p_pgm_id_o
232: => pqh_rnk_shd.g_old_rec.pgm_id
233: ,p_pl_id_o
234: => pqh_rnk_shd.g_old_rec.pl_id
235: ,p_oipl_id_o
236: => pqh_rnk_shd.g_old_rec.oipl_id
230: => p_rec.per_in_ler_id
231: ,p_pgm_id_o
232: => pqh_rnk_shd.g_old_rec.pgm_id
233: ,p_pl_id_o
234: => pqh_rnk_shd.g_old_rec.pl_id
235: ,p_oipl_id_o
236: => pqh_rnk_shd.g_old_rec.oipl_id
237: ,p_process_cd_o
238: => pqh_rnk_shd.g_old_rec.process_cd
232: => pqh_rnk_shd.g_old_rec.pgm_id
233: ,p_pl_id_o
234: => pqh_rnk_shd.g_old_rec.pl_id
235: ,p_oipl_id_o
236: => pqh_rnk_shd.g_old_rec.oipl_id
237: ,p_process_cd_o
238: => pqh_rnk_shd.g_old_rec.process_cd
239: ,p_process_date_o
240: => pqh_rnk_shd.g_old_rec.process_date
234: => pqh_rnk_shd.g_old_rec.pl_id
235: ,p_oipl_id_o
236: => pqh_rnk_shd.g_old_rec.oipl_id
237: ,p_process_cd_o
238: => pqh_rnk_shd.g_old_rec.process_cd
239: ,p_process_date_o
240: => pqh_rnk_shd.g_old_rec.process_date
241: ,p_benefit_action_id_o
242: => pqh_rnk_shd.g_old_rec.benefit_action_id
236: => pqh_rnk_shd.g_old_rec.oipl_id
237: ,p_process_cd_o
238: => pqh_rnk_shd.g_old_rec.process_cd
239: ,p_process_date_o
240: => pqh_rnk_shd.g_old_rec.process_date
241: ,p_benefit_action_id_o
242: => pqh_rnk_shd.g_old_rec.benefit_action_id
243: ,p_person_id_o
244: => pqh_rnk_shd.g_old_rec.person_id
238: => pqh_rnk_shd.g_old_rec.process_cd
239: ,p_process_date_o
240: => pqh_rnk_shd.g_old_rec.process_date
241: ,p_benefit_action_id_o
242: => pqh_rnk_shd.g_old_rec.benefit_action_id
243: ,p_person_id_o
244: => pqh_rnk_shd.g_old_rec.person_id
245: ,p_assignment_id_o
246: => pqh_rnk_shd.g_old_rec.assignment_id
240: => pqh_rnk_shd.g_old_rec.process_date
241: ,p_benefit_action_id_o
242: => pqh_rnk_shd.g_old_rec.benefit_action_id
243: ,p_person_id_o
244: => pqh_rnk_shd.g_old_rec.person_id
245: ,p_assignment_id_o
246: => pqh_rnk_shd.g_old_rec.assignment_id
247: ,p_total_score_o
248: => pqh_rnk_shd.g_old_rec.total_score
242: => pqh_rnk_shd.g_old_rec.benefit_action_id
243: ,p_person_id_o
244: => pqh_rnk_shd.g_old_rec.person_id
245: ,p_assignment_id_o
246: => pqh_rnk_shd.g_old_rec.assignment_id
247: ,p_total_score_o
248: => pqh_rnk_shd.g_old_rec.total_score
249: ,p_object_version_number_o
250: => pqh_rnk_shd.g_old_rec.object_version_number
244: => pqh_rnk_shd.g_old_rec.person_id
245: ,p_assignment_id_o
246: => pqh_rnk_shd.g_old_rec.assignment_id
247: ,p_total_score_o
248: => pqh_rnk_shd.g_old_rec.total_score
249: ,p_object_version_number_o
250: => pqh_rnk_shd.g_old_rec.object_version_number
251: ,p_request_id_o
252: => pqh_rnk_shd.g_old_rec.request_id
246: => pqh_rnk_shd.g_old_rec.assignment_id
247: ,p_total_score_o
248: => pqh_rnk_shd.g_old_rec.total_score
249: ,p_object_version_number_o
250: => pqh_rnk_shd.g_old_rec.object_version_number
251: ,p_request_id_o
252: => pqh_rnk_shd.g_old_rec.request_id
253: ,p_business_group_id_o
254: => pqh_rnk_shd.g_old_rec.business_group_id
248: => pqh_rnk_shd.g_old_rec.total_score
249: ,p_object_version_number_o
250: => pqh_rnk_shd.g_old_rec.object_version_number
251: ,p_request_id_o
252: => pqh_rnk_shd.g_old_rec.request_id
253: ,p_business_group_id_o
254: => pqh_rnk_shd.g_old_rec.business_group_id
255: ,p_per_in_ler_id_o
256: => pqh_rnk_shd.g_old_rec.per_in_ler_id
250: => pqh_rnk_shd.g_old_rec.object_version_number
251: ,p_request_id_o
252: => pqh_rnk_shd.g_old_rec.request_id
253: ,p_business_group_id_o
254: => pqh_rnk_shd.g_old_rec.business_group_id
255: ,p_per_in_ler_id_o
256: => pqh_rnk_shd.g_old_rec.per_in_ler_id
257: );
258: --
252: => pqh_rnk_shd.g_old_rec.request_id
253: ,p_business_group_id_o
254: => pqh_rnk_shd.g_old_rec.business_group_id
255: ,p_per_in_ler_id_o
256: => pqh_rnk_shd.g_old_rec.per_in_ler_id
257: );
258: --
259: exception
260: --
312: --
313: -- {End Of Comments}
314: -- ----------------------------------------------------------------------------
315: Procedure convert_defs
316: (p_rec in out nocopy pqh_rnk_shd.g_rec_type
317: ) is
318: --
319: Begin
320: --
324: -- is being used then we must set to the 'current' argument value.
325: --
326: If (p_rec.pgm_id = hr_api.g_number) then
327: p_rec.pgm_id :=
328: pqh_rnk_shd.g_old_rec.pgm_id;
329: End If;
330: If (p_rec.pl_id = hr_api.g_number) then
331: p_rec.pl_id :=
332: pqh_rnk_shd.g_old_rec.pl_id;
328: pqh_rnk_shd.g_old_rec.pgm_id;
329: End If;
330: If (p_rec.pl_id = hr_api.g_number) then
331: p_rec.pl_id :=
332: pqh_rnk_shd.g_old_rec.pl_id;
333: End If;
334: If (p_rec.oipl_id = hr_api.g_number) then
335: p_rec.oipl_id :=
336: pqh_rnk_shd.g_old_rec.oipl_id;
332: pqh_rnk_shd.g_old_rec.pl_id;
333: End If;
334: If (p_rec.oipl_id = hr_api.g_number) then
335: p_rec.oipl_id :=
336: pqh_rnk_shd.g_old_rec.oipl_id;
337: End If;
338: If (p_rec.process_cd = hr_api.g_varchar2) then
339: p_rec.process_cd :=
340: pqh_rnk_shd.g_old_rec.process_cd;
336: pqh_rnk_shd.g_old_rec.oipl_id;
337: End If;
338: If (p_rec.process_cd = hr_api.g_varchar2) then
339: p_rec.process_cd :=
340: pqh_rnk_shd.g_old_rec.process_cd;
341: End If;
342: If (p_rec.process_date = hr_api.g_date) then
343: p_rec.process_date :=
344: pqh_rnk_shd.g_old_rec.process_date;
340: pqh_rnk_shd.g_old_rec.process_cd;
341: End If;
342: If (p_rec.process_date = hr_api.g_date) then
343: p_rec.process_date :=
344: pqh_rnk_shd.g_old_rec.process_date;
345: End If;
346: If (p_rec.benefit_action_id = hr_api.g_number) then
347: p_rec.benefit_action_id :=
348: pqh_rnk_shd.g_old_rec.benefit_action_id;
344: pqh_rnk_shd.g_old_rec.process_date;
345: End If;
346: If (p_rec.benefit_action_id = hr_api.g_number) then
347: p_rec.benefit_action_id :=
348: pqh_rnk_shd.g_old_rec.benefit_action_id;
349: End If;
350: If (p_rec.person_id = hr_api.g_number) then
351: p_rec.person_id :=
352: pqh_rnk_shd.g_old_rec.person_id;
348: pqh_rnk_shd.g_old_rec.benefit_action_id;
349: End If;
350: If (p_rec.person_id = hr_api.g_number) then
351: p_rec.person_id :=
352: pqh_rnk_shd.g_old_rec.person_id;
353: End If;
354: If (p_rec.assignment_id = hr_api.g_number) then
355: p_rec.assignment_id :=
356: pqh_rnk_shd.g_old_rec.assignment_id;
352: pqh_rnk_shd.g_old_rec.person_id;
353: End If;
354: If (p_rec.assignment_id = hr_api.g_number) then
355: p_rec.assignment_id :=
356: pqh_rnk_shd.g_old_rec.assignment_id;
357: End If;
358: If (p_rec.total_score = hr_api.g_number) then
359: p_rec.total_score :=
360: pqh_rnk_shd.g_old_rec.total_score;
356: pqh_rnk_shd.g_old_rec.assignment_id;
357: End If;
358: If (p_rec.total_score = hr_api.g_number) then
359: p_rec.total_score :=
360: pqh_rnk_shd.g_old_rec.total_score;
361: End If;
362: If (p_rec.request_id = hr_api.g_number) then
363: p_rec.request_id :=
364: pqh_rnk_shd.g_old_rec.request_id;
360: pqh_rnk_shd.g_old_rec.total_score;
361: End If;
362: If (p_rec.request_id = hr_api.g_number) then
363: p_rec.request_id :=
364: pqh_rnk_shd.g_old_rec.request_id;
365: End If;
366: If (p_rec.business_group_id = hr_api.g_number) then
367: p_rec.business_group_id :=
368: pqh_rnk_shd.g_old_rec.business_group_id;
364: pqh_rnk_shd.g_old_rec.request_id;
365: End If;
366: If (p_rec.business_group_id = hr_api.g_number) then
367: p_rec.business_group_id :=
368: pqh_rnk_shd.g_old_rec.business_group_id;
369: End If;
370: If (p_rec.per_in_ler_id = hr_api.g_number) then
371: p_rec.per_in_ler_id :=
372: pqh_rnk_shd.g_old_rec.per_in_ler_id;
368: pqh_rnk_shd.g_old_rec.business_group_id;
369: End If;
370: If (p_rec.per_in_ler_id = hr_api.g_number) then
371: p_rec.per_in_ler_id :=
372: pqh_rnk_shd.g_old_rec.per_in_ler_id;
373: End If;
374: --
375: End convert_defs;
376: --
378: -- |---------------------------------< upd >----------------------------------|
379: -- ----------------------------------------------------------------------------
380: Procedure upd
381: (p_effective_date in date
382: ,p_rec in out nocopy pqh_rnk_shd.g_rec_type
383: ) is
384: --
385: l_proc constant varchar2(72) := g_package||'upd';
386: --
388: hr_utility.set_location('Entering:'||l_proc, 5);
389: --
390: -- We must lock the row which we need to update.
391: --
392: pqh_rnk_shd.lck
393: (p_rec.rank_process_id
394: ,p_rec.object_version_number
395: );
396: --
448: ,p_business_group_id in number default hr_api.g_number
449: ,p_per_in_ler_id in number default hr_api.g_number
450: ) is
451: --
452: l_rec pqh_rnk_shd.g_rec_type;
453: l_proc constant varchar2(72) := g_package||'upd';
454: --
455: Begin
456: hr_utility.set_location('Entering:'||l_proc, 5);
458: -- Call conversion function to turn arguments into the
459: -- l_rec structure.
460: --
461: l_rec :=
462: pqh_rnk_shd.convert_args
463: (p_rank_process_id
464: ,p_pgm_id
465: ,p_pl_id
466: ,p_oipl_id