27: cursor csr_sec_grp is
28: select pbg.security_group_id,
29: pbg.legislation_code
30: from per_business_groups_perf pbg
31: , per_spinal_point_steps_f sps
32: where sps.step_id = p_step_id
33: and pbg.business_group_id = sps.business_group_id;
34: --
35: -- Declare local variables
97: --
98: cursor csr_leg_code is
99: select pbg.legislation_code
100: from per_business_groups_perf pbg
101: , per_spinal_point_steps_f sps
102: where sps.step_id = p_step_id
103: and pbg.business_group_id = sps.business_group_id;
104: --
105: -- Declare local variables
188: --
189: -- {End Of Comments}
190: -- ----------------------------------------------------------------------------
191: Procedure chk_step_id
192: ( p_step_id in per_spinal_point_steps_f.step_id%TYPE
193: ,p_object_version_number in per_spinal_point_steps_f.object_version_number%TYPE
194: ,p_effective_date in date
195: ) is
196: --
189: -- {End Of Comments}
190: -- ----------------------------------------------------------------------------
191: Procedure chk_step_id
192: ( p_step_id in per_spinal_point_steps_f.step_id%TYPE
193: ,p_object_version_number in per_spinal_point_steps_f.object_version_number%TYPE
194: ,p_effective_date in date
195: ) is
196: --
197: l_proc varchar2(72) := g_package||'chk_step_id';
211: <> per_sps_shd.g_old_rec.step_id) then
212: --
213: -- raise error as PK has changed
214: --
215: per_sps_shd.constraint_error('PER_SPINAL_POINT_STEPS_F_PK');
216: --
217: elsif not l_api_updating then
218: --
219: -- check if PK is null
227: /*
228: --
229: -- raise error as PK is not null
230: --
231: per_sps_shd.constraint_error('PER_SPINAL_POINT_STEPS_F_PK');
232: --
233: */
234: end if;
235: --
279: -- {End Of Comments}
280: -- ----------------------------------------------------------------------------
281: --
282: procedure chk_spinal_point_id
283: (p_step_id in per_spinal_point_steps_f.step_id%TYPE
284: ,p_spinal_point_id in per_spinal_point_steps_f.spinal_point_id%TYPE
285: ,p_grade_spine_id in per_spinal_point_steps_f.grade_spine_id%TYPE
286: ,p_business_group_id in per_spinal_point_steps_f.business_group_id%TYPE
287: ,p_object_version_number in per_spinal_point_steps_f.object_version_number%TYPE
280: -- ----------------------------------------------------------------------------
281: --
282: procedure chk_spinal_point_id
283: (p_step_id in per_spinal_point_steps_f.step_id%TYPE
284: ,p_spinal_point_id in per_spinal_point_steps_f.spinal_point_id%TYPE
285: ,p_grade_spine_id in per_spinal_point_steps_f.grade_spine_id%TYPE
286: ,p_business_group_id in per_spinal_point_steps_f.business_group_id%TYPE
287: ,p_object_version_number in per_spinal_point_steps_f.object_version_number%TYPE
288: ,p_effective_date in date
281: --
282: procedure chk_spinal_point_id
283: (p_step_id in per_spinal_point_steps_f.step_id%TYPE
284: ,p_spinal_point_id in per_spinal_point_steps_f.spinal_point_id%TYPE
285: ,p_grade_spine_id in per_spinal_point_steps_f.grade_spine_id%TYPE
286: ,p_business_group_id in per_spinal_point_steps_f.business_group_id%TYPE
287: ,p_object_version_number in per_spinal_point_steps_f.object_version_number%TYPE
288: ,p_effective_date in date
289: )
282: procedure chk_spinal_point_id
283: (p_step_id in per_spinal_point_steps_f.step_id%TYPE
284: ,p_spinal_point_id in per_spinal_point_steps_f.spinal_point_id%TYPE
285: ,p_grade_spine_id in per_spinal_point_steps_f.grade_spine_id%TYPE
286: ,p_business_group_id in per_spinal_point_steps_f.business_group_id%TYPE
287: ,p_object_version_number in per_spinal_point_steps_f.object_version_number%TYPE
288: ,p_effective_date in date
289: )
290: is
283: (p_step_id in per_spinal_point_steps_f.step_id%TYPE
284: ,p_spinal_point_id in per_spinal_point_steps_f.spinal_point_id%TYPE
285: ,p_grade_spine_id in per_spinal_point_steps_f.grade_spine_id%TYPE
286: ,p_business_group_id in per_spinal_point_steps_f.business_group_id%TYPE
287: ,p_object_version_number in per_spinal_point_steps_f.object_version_number%TYPE
288: ,p_effective_date in date
289: )
290: is
291: --
344: fetch csr_valid_spinal_point into l_exists;
345: if csr_valid_spinal_point%notfound then
346: close csr_valid_spinal_point;
347: --
348: per_sps_shd.constraint_error(p_constraint_name => 'PER_SPINAL_POINT_STEPS_F_FK2');
349: --
350: end if;
351: close csr_valid_spinal_point;
352:
406: -- {End Of Comments}
407: -- ----------------------------------------------------------------------------
408: --
409: procedure chk_grade_spine_id
410: (p_step_id in per_spinal_point_steps_f.step_id%TYPE
411: ,p_grade_spine_id in per_spinal_point_steps_f.grade_spine_id%TYPE
412: ,p_business_group_id in per_spinal_point_steps_f.business_group_id%TYPE
413: ,p_object_version_number in per_spinal_point_steps_f.object_version_number%TYPE
414: ,p_effective_date in date
407: -- ----------------------------------------------------------------------------
408: --
409: procedure chk_grade_spine_id
410: (p_step_id in per_spinal_point_steps_f.step_id%TYPE
411: ,p_grade_spine_id in per_spinal_point_steps_f.grade_spine_id%TYPE
412: ,p_business_group_id in per_spinal_point_steps_f.business_group_id%TYPE
413: ,p_object_version_number in per_spinal_point_steps_f.object_version_number%TYPE
414: ,p_effective_date in date
415: )
408: --
409: procedure chk_grade_spine_id
410: (p_step_id in per_spinal_point_steps_f.step_id%TYPE
411: ,p_grade_spine_id in per_spinal_point_steps_f.grade_spine_id%TYPE
412: ,p_business_group_id in per_spinal_point_steps_f.business_group_id%TYPE
413: ,p_object_version_number in per_spinal_point_steps_f.object_version_number%TYPE
414: ,p_effective_date in date
415: )
416: is
409: procedure chk_grade_spine_id
410: (p_step_id in per_spinal_point_steps_f.step_id%TYPE
411: ,p_grade_spine_id in per_spinal_point_steps_f.grade_spine_id%TYPE
412: ,p_business_group_id in per_spinal_point_steps_f.business_group_id%TYPE
413: ,p_object_version_number in per_spinal_point_steps_f.object_version_number%TYPE
414: ,p_effective_date in date
415: )
416: is
417: --
460: fetch csr_valid_grade_spine into l_exists;
461: if csr_valid_grade_spine%notfound then
462: close csr_valid_grade_spine;
463: --
464: per_sps_shd.constraint_error(p_constraint_name => 'PER_SPINAL_POINT_STEPS_F_N3');
465: --
466: end if;
467: close csr_valid_grade_spine;
468:
501: -- {End Of Comments}
502: -- ----------------------------------------------------------------------------
503: --
504: procedure chk_sequence
505: (p_step_id in per_spinal_point_steps_f.step_id%TYPE
506: ,p_sequence in per_spinal_point_steps_f.sequence%TYPE
507: ,p_spinal_point_id in per_spinal_point_steps_f.spinal_point_id%TYPE
508: ,p_business_group_id in per_spinal_point_steps_f.business_group_id%TYPE
509: ,p_object_version_number in per_spinal_point_steps_f.object_version_number%TYPE
502: -- ----------------------------------------------------------------------------
503: --
504: procedure chk_sequence
505: (p_step_id in per_spinal_point_steps_f.step_id%TYPE
506: ,p_sequence in per_spinal_point_steps_f.sequence%TYPE
507: ,p_spinal_point_id in per_spinal_point_steps_f.spinal_point_id%TYPE
508: ,p_business_group_id in per_spinal_point_steps_f.business_group_id%TYPE
509: ,p_object_version_number in per_spinal_point_steps_f.object_version_number%TYPE
510: ,p_effective_date in date
503: --
504: procedure chk_sequence
505: (p_step_id in per_spinal_point_steps_f.step_id%TYPE
506: ,p_sequence in per_spinal_point_steps_f.sequence%TYPE
507: ,p_spinal_point_id in per_spinal_point_steps_f.spinal_point_id%TYPE
508: ,p_business_group_id in per_spinal_point_steps_f.business_group_id%TYPE
509: ,p_object_version_number in per_spinal_point_steps_f.object_version_number%TYPE
510: ,p_effective_date in date
511: )
504: procedure chk_sequence
505: (p_step_id in per_spinal_point_steps_f.step_id%TYPE
506: ,p_sequence in per_spinal_point_steps_f.sequence%TYPE
507: ,p_spinal_point_id in per_spinal_point_steps_f.spinal_point_id%TYPE
508: ,p_business_group_id in per_spinal_point_steps_f.business_group_id%TYPE
509: ,p_object_version_number in per_spinal_point_steps_f.object_version_number%TYPE
510: ,p_effective_date in date
511: )
512: is
505: (p_step_id in per_spinal_point_steps_f.step_id%TYPE
506: ,p_sequence in per_spinal_point_steps_f.sequence%TYPE
507: ,p_spinal_point_id in per_spinal_point_steps_f.spinal_point_id%TYPE
508: ,p_business_group_id in per_spinal_point_steps_f.business_group_id%TYPE
509: ,p_object_version_number in per_spinal_point_steps_f.object_version_number%TYPE
510: ,p_effective_date in date
511: )
512: is
513: --
599: -- {End Of Comments}
600: -- ----------------------------------------------------------------------------
601: --
602: procedure chk_uniq_step_points
603: (p_step_id in per_spinal_point_steps_f.step_id%TYPE
604: ,p_spinal_point_id in per_spinal_point_steps_f.spinal_point_id%TYPE
605: ,p_grade_spine_id in per_spinal_point_steps_f.grade_spine_id%TYPE
606: ,p_object_version_number in per_spinal_point_steps_f.object_version_number%TYPE
607: ,p_effective_date in date
600: -- ----------------------------------------------------------------------------
601: --
602: procedure chk_uniq_step_points
603: (p_step_id in per_spinal_point_steps_f.step_id%TYPE
604: ,p_spinal_point_id in per_spinal_point_steps_f.spinal_point_id%TYPE
605: ,p_grade_spine_id in per_spinal_point_steps_f.grade_spine_id%TYPE
606: ,p_object_version_number in per_spinal_point_steps_f.object_version_number%TYPE
607: ,p_effective_date in date
608: )
601: --
602: procedure chk_uniq_step_points
603: (p_step_id in per_spinal_point_steps_f.step_id%TYPE
604: ,p_spinal_point_id in per_spinal_point_steps_f.spinal_point_id%TYPE
605: ,p_grade_spine_id in per_spinal_point_steps_f.grade_spine_id%TYPE
606: ,p_object_version_number in per_spinal_point_steps_f.object_version_number%TYPE
607: ,p_effective_date in date
608: )
609: is
602: procedure chk_uniq_step_points
603: (p_step_id in per_spinal_point_steps_f.step_id%TYPE
604: ,p_spinal_point_id in per_spinal_point_steps_f.spinal_point_id%TYPE
605: ,p_grade_spine_id in per_spinal_point_steps_f.grade_spine_id%TYPE
606: ,p_object_version_number in per_spinal_point_steps_f.object_version_number%TYPE
607: ,p_effective_date in date
608: )
609: is
610: --
617: select 'x'
618: from sys.dual
619: where exists
620: (select null
621: from per_spinal_point_steps_f
622: where grade_spine_id = p_grade_spine_id
623: and spinal_point_id = p_spinal_point_id
624: and step_id <> nvl(p_step_id,hr_api.g_number)
625: and p_effective_date between effective_start_date
695: -- {End Of Comments}
696: -- ----------------------------------------------------------------------------
697: --
698: procedure chk_delete(
699: p_step_id in per_spinal_point_steps_f.step_id%Type
700: ,p_spinal_point_id in per_spinal_point_steps_f.spinal_point_id%Type
701: ,p_grade_spine_id in per_spinal_point_steps_f.grade_spine_id%Type
702: ,p_effective_date in date
703: ,p_datetrack_mode in varchar2
696: -- ----------------------------------------------------------------------------
697: --
698: procedure chk_delete(
699: p_step_id in per_spinal_point_steps_f.step_id%Type
700: ,p_spinal_point_id in per_spinal_point_steps_f.spinal_point_id%Type
701: ,p_grade_spine_id in per_spinal_point_steps_f.grade_spine_id%Type
702: ,p_effective_date in date
703: ,p_datetrack_mode in varchar2
704: ,p_called_from_del_grd_scale in boolean --bug 4096238
697: --
698: procedure chk_delete(
699: p_step_id in per_spinal_point_steps_f.step_id%Type
700: ,p_spinal_point_id in per_spinal_point_steps_f.spinal_point_id%Type
701: ,p_grade_spine_id in per_spinal_point_steps_f.grade_spine_id%Type
702: ,p_effective_date in date
703: ,p_datetrack_mode in varchar2
704: ,p_called_from_del_grd_scale in boolean --bug 4096238
705: ) is
799:
800: -- start of bug fix 4096238
801:
802: select grade_spine_id into l_grade_spine_id
803: from per_spinal_point_steps_f where step_id=p_step_id;
804:
805: if ( not p_called_from_del_grd_scale ) and (p_datetrack_mode = hr_api.g_zap ) then
806: open csr_ceiling_chk;
807: fetch csr_ceiling_chk into l_ceil_id;