97: --
98: -- Declare cursors and local variables
99: --
100: l_proc varchar2(72) := g_package||'create_disability';
101: l_disability_id per_disabilities_f.disability_id%TYPE;
102: l_object_version_number per_disabilities_f.object_version_number%TYPE;
103: l_object_version_number1 per_medical_assessments.object_version_number%TYPE;
104: l_effective_date date;
105: l_effective_start_date per_disabilities_f.effective_start_date%TYPE;
98: -- Declare cursors and local variables
99: --
100: l_proc varchar2(72) := g_package||'create_disability';
101: l_disability_id per_disabilities_f.disability_id%TYPE;
102: l_object_version_number per_disabilities_f.object_version_number%TYPE;
103: l_object_version_number1 per_medical_assessments.object_version_number%TYPE;
104: l_effective_date date;
105: l_effective_start_date per_disabilities_f.effective_start_date%TYPE;
106: l_effective_end_date per_disabilities_f.effective_end_date%TYPE;
101: l_disability_id per_disabilities_f.disability_id%TYPE;
102: l_object_version_number per_disabilities_f.object_version_number%TYPE;
103: l_object_version_number1 per_medical_assessments.object_version_number%TYPE;
104: l_effective_date date;
105: l_effective_start_date per_disabilities_f.effective_start_date%TYPE;
106: l_effective_end_date per_disabilities_f.effective_end_date%TYPE;
107: l_registration_date per_disabilities_f.registration_date%TYPE;
108: l_registration_exp_date per_disabilities_f.registration_exp_date%TYPE;
109: --
102: l_object_version_number per_disabilities_f.object_version_number%TYPE;
103: l_object_version_number1 per_medical_assessments.object_version_number%TYPE;
104: l_effective_date date;
105: l_effective_start_date per_disabilities_f.effective_start_date%TYPE;
106: l_effective_end_date per_disabilities_f.effective_end_date%TYPE;
107: l_registration_date per_disabilities_f.registration_date%TYPE;
108: l_registration_exp_date per_disabilities_f.registration_exp_date%TYPE;
109: --
110: begin
103: l_object_version_number1 per_medical_assessments.object_version_number%TYPE;
104: l_effective_date date;
105: l_effective_start_date per_disabilities_f.effective_start_date%TYPE;
106: l_effective_end_date per_disabilities_f.effective_end_date%TYPE;
107: l_registration_date per_disabilities_f.registration_date%TYPE;
108: l_registration_exp_date per_disabilities_f.registration_exp_date%TYPE;
109: --
110: begin
111: hr_utility.set_location('Entering:'|| l_proc, 10);
104: l_effective_date date;
105: l_effective_start_date per_disabilities_f.effective_start_date%TYPE;
106: l_effective_end_date per_disabilities_f.effective_end_date%TYPE;
107: l_registration_date per_disabilities_f.registration_date%TYPE;
108: l_registration_exp_date per_disabilities_f.registration_exp_date%TYPE;
109: --
110: begin
111: hr_utility.set_location('Entering:'|| l_proc, 10);
112: --
573: where mea.disability_id = p_disability_id
574: and mea.consultation_result = 'DI';
575: --
576: l_proc varchar2(72) := g_package||'update_disability';
577: l_disability_id per_disabilities_f.disability_id%TYPE;
578: l_object_version_number per_disabilities_f.object_version_number%TYPE;
579: l_ovn per_disabilities_f.object_version_number%TYPE := p_object_version_number;
580: l_object_version_number1 per_medical_assessments.object_version_number%TYPE;
581: l_effective_date date;
574: and mea.consultation_result = 'DI';
575: --
576: l_proc varchar2(72) := g_package||'update_disability';
577: l_disability_id per_disabilities_f.disability_id%TYPE;
578: l_object_version_number per_disabilities_f.object_version_number%TYPE;
579: l_ovn per_disabilities_f.object_version_number%TYPE := p_object_version_number;
580: l_object_version_number1 per_medical_assessments.object_version_number%TYPE;
581: l_effective_date date;
582: l_effective_start_date per_disabilities_f.effective_start_date%TYPE;
575: --
576: l_proc varchar2(72) := g_package||'update_disability';
577: l_disability_id per_disabilities_f.disability_id%TYPE;
578: l_object_version_number per_disabilities_f.object_version_number%TYPE;
579: l_ovn per_disabilities_f.object_version_number%TYPE := p_object_version_number;
580: l_object_version_number1 per_medical_assessments.object_version_number%TYPE;
581: l_effective_date date;
582: l_effective_start_date per_disabilities_f.effective_start_date%TYPE;
583: l_effective_end_date per_disabilities_f.effective_end_date%TYPE;
578: l_object_version_number per_disabilities_f.object_version_number%TYPE;
579: l_ovn per_disabilities_f.object_version_number%TYPE := p_object_version_number;
580: l_object_version_number1 per_medical_assessments.object_version_number%TYPE;
581: l_effective_date date;
582: l_effective_start_date per_disabilities_f.effective_start_date%TYPE;
583: l_effective_end_date per_disabilities_f.effective_end_date%TYPE;
584: l_registration_date per_disabilities_f.registration_date%TYPE;
585: l_registration_exp_date per_disabilities_f.registration_exp_date%TYPE;
586: --
579: l_ovn per_disabilities_f.object_version_number%TYPE := p_object_version_number;
580: l_object_version_number1 per_medical_assessments.object_version_number%TYPE;
581: l_effective_date date;
582: l_effective_start_date per_disabilities_f.effective_start_date%TYPE;
583: l_effective_end_date per_disabilities_f.effective_end_date%TYPE;
584: l_registration_date per_disabilities_f.registration_date%TYPE;
585: l_registration_exp_date per_disabilities_f.registration_exp_date%TYPE;
586: --
587: l_mea_id per_medical_assessments.medical_assessment_id%TYPE;
580: l_object_version_number1 per_medical_assessments.object_version_number%TYPE;
581: l_effective_date date;
582: l_effective_start_date per_disabilities_f.effective_start_date%TYPE;
583: l_effective_end_date per_disabilities_f.effective_end_date%TYPE;
584: l_registration_date per_disabilities_f.registration_date%TYPE;
585: l_registration_exp_date per_disabilities_f.registration_exp_date%TYPE;
586: --
587: l_mea_id per_medical_assessments.medical_assessment_id%TYPE;
588: l_new_flag boolean := TRUE;
581: l_effective_date date;
582: l_effective_start_date per_disabilities_f.effective_start_date%TYPE;
583: l_effective_end_date per_disabilities_f.effective_end_date%TYPE;
584: l_registration_date per_disabilities_f.registration_date%TYPE;
585: l_registration_exp_date per_disabilities_f.registration_exp_date%TYPE;
586: --
587: l_mea_id per_medical_assessments.medical_assessment_id%TYPE;
588: l_new_flag boolean := TRUE;
589: begin
1026: where mea.disability_id = p_disability_id;
1027: --
1028: --
1029: l_proc varchar2(72) := g_package||'delete_disability';
1030: l_object_version_number per_disabilities_f.object_version_number%TYPE;
1031: l_ovn per_disabilities_f.object_version_number%TYPE := p_object_version_number;
1032: l_effective_start_date per_disabilities_f.effective_start_date%TYPE;
1033: l_effective_end_date per_disabilities_f.effective_end_date%TYPE;
1034: l_ovn1 per_medical_assessments.object_version_number%TYPE;
1027: --
1028: --
1029: l_proc varchar2(72) := g_package||'delete_disability';
1030: l_object_version_number per_disabilities_f.object_version_number%TYPE;
1031: l_ovn per_disabilities_f.object_version_number%TYPE := p_object_version_number;
1032: l_effective_start_date per_disabilities_f.effective_start_date%TYPE;
1033: l_effective_end_date per_disabilities_f.effective_end_date%TYPE;
1034: l_ovn1 per_medical_assessments.object_version_number%TYPE;
1035: l_assessment_id per_medical_assessments.medical_assessment_id%TYPE;
1028: --
1029: l_proc varchar2(72) := g_package||'delete_disability';
1030: l_object_version_number per_disabilities_f.object_version_number%TYPE;
1031: l_ovn per_disabilities_f.object_version_number%TYPE := p_object_version_number;
1032: l_effective_start_date per_disabilities_f.effective_start_date%TYPE;
1033: l_effective_end_date per_disabilities_f.effective_end_date%TYPE;
1034: l_ovn1 per_medical_assessments.object_version_number%TYPE;
1035: l_assessment_id per_medical_assessments.medical_assessment_id%TYPE;
1036: --
1029: l_proc varchar2(72) := g_package||'delete_disability';
1030: l_object_version_number per_disabilities_f.object_version_number%TYPE;
1031: l_ovn per_disabilities_f.object_version_number%TYPE := p_object_version_number;
1032: l_effective_start_date per_disabilities_f.effective_start_date%TYPE;
1033: l_effective_end_date per_disabilities_f.effective_end_date%TYPE;
1034: l_ovn1 per_medical_assessments.object_version_number%TYPE;
1035: l_assessment_id per_medical_assessments.medical_assessment_id%TYPE;
1036: --
1037: begin