528: -- ---------------------------------------------------------------------------
529: --
530: -- Description
531: -- This procedure is used to check that there are no values in
532: -- per_spinal_points, per_grade_spines_f and pay_rates
533: --
534: -- Pre Conditions
535: -- None.
536: --
563: WHERE parent_spine_id = p_parent_spine_id;
564: --
565: cursor csr_grade_spines is
566: select 'x'
567: FROM per_grade_spines_f
568: WHERE parent_spine_id = p_parent_spine_id;
569: --
570: cursor csr_pay_rates is
571: select 'x'
576: Begin
577: --
578: hr_utility.set_location('Entering:'||l_proc, 10);
579: --
580: -- Check there are no values in per_spinal_points, per_grade_spines_f
581: -- and pay_rates
582: --
583: open csr_spinal_points;
584: --
597: --
598: hr_utility.set_location(l_proc, 20);
599:
600: --
601: -- Check there are no values in per_grade_spines_f
602: --
603: open csr_grade_spines;
604: --
605: fetch csr_grade_spines into l_exists;