63:
64: --
65: -- Declare out parameters
66: --
67: l_spinal_point_id per_spinal_points.spinal_point_id%TYPE;
68: l_object_version_number per_spinal_points.object_version_number%TYPE;
69:
70: --
71: begin
64: --
65: -- Declare out parameters
66: --
67: l_spinal_point_id per_spinal_points.spinal_point_id%TYPE;
68: l_object_version_number per_spinal_points.object_version_number%TYPE;
69:
70: --
71: begin
72: --
465: -- Declare cursors and local variables
466: --
467: l_proc varchar2(72) := g_package||'update_progression_point';
468: l_effective_date date;
469: lv_object_version_number per_spinal_points.object_version_number%TYPE;
470:
471: --
472: -- Declare out parameters
473: --
470:
471: --
472: -- Declare out parameters
473: --
474: l_object_version_number per_spinal_points.object_version_number%TYPE;
475:
476: --
477: begin
478: --
779: l_parent_spine_id number;
780:
781: cursor c_get_ps_id is
782: select parent_spine_id
783: from per_spinal_points
784: where spinal_point_id = p_spinal_point_id;
785:
786: -- End changes for bug 9328526
787:
820: open c_get_ps_id;
821: fetch c_get_ps_id into l_parent_spine_id;
822: if c_get_ps_id%notfound then
823: close c_get_ps_id;
824: per_psp_shd.constraint_error(p_constraint_name => 'PER_SPINAL_POINTS_FK2');
825: else
826: close c_get_ps_id;
827: end if;
828: