The following lines contain the word 'select', 'insert', 'update' or 'delete':
select mea.object_version_number into l_object_version_number1
from per_medical_assessments mea
where mea.medical_assessment_id = p_medical_assessment_id;
per_medical_assessment_api.update_medical_assessment
(p_validate => p_validate
,p_medical_assessment_id => p_medical_assessment_id
,p_object_version_number => l_object_version_number1
,p_effective_date => l_effective_date
,p_disability_id => l_disability_id);
procedure update_disability
(p_validate in boolean default false
,p_effective_date in date
,p_datetrack_mode in varchar2
,p_disability_id in number
,p_object_version_number in out nocopy number
,p_category in varchar2 default hr_api.g_varchar2
,p_status in varchar2 default hr_api.g_varchar2
,p_quota_fte in number default hr_api.g_number
,p_organization_id in number default hr_api.g_number
,p_registration_id in varchar2 default hr_api.g_varchar2
,p_registration_date in date default hr_api.g_date
,p_registration_exp_date in date default hr_api.g_date
,p_description in varchar2 default hr_api.g_varchar2
,p_degree in number default hr_api.g_number
,p_reason in varchar2 default hr_api.g_varchar2
,p_work_restriction in varchar2 default hr_api.g_varchar2
,p_incident_id in number default hr_api.g_number
,p_medical_assessment_id in number default hr_api.g_number
,p_pre_registration_job in varchar2 default hr_api.g_varchar2
,p_attribute_category in varchar2 default hr_api.g_varchar2
,p_attribute1 in varchar2 default hr_api.g_varchar2
,p_attribute2 in varchar2 default hr_api.g_varchar2
,p_attribute3 in varchar2 default hr_api.g_varchar2
,p_attribute4 in varchar2 default hr_api.g_varchar2
,p_attribute5 in varchar2 default hr_api.g_varchar2
,p_attribute6 in varchar2 default hr_api.g_varchar2
,p_attribute7 in varchar2 default hr_api.g_varchar2
,p_attribute8 in varchar2 default hr_api.g_varchar2
,p_attribute9 in varchar2 default hr_api.g_varchar2
,p_attribute10 in varchar2 default hr_api.g_varchar2
,p_attribute11 in varchar2 default hr_api.g_varchar2
,p_attribute12 in varchar2 default hr_api.g_varchar2
,p_attribute13 in varchar2 default hr_api.g_varchar2
,p_attribute14 in varchar2 default hr_api.g_varchar2
,p_attribute15 in varchar2 default hr_api.g_varchar2
,p_attribute16 in varchar2 default hr_api.g_varchar2
,p_attribute17 in varchar2 default hr_api.g_varchar2
,p_attribute18 in varchar2 default hr_api.g_varchar2
,p_attribute19 in varchar2 default hr_api.g_varchar2
,p_attribute20 in varchar2 default hr_api.g_varchar2
,p_attribute21 in varchar2 default hr_api.g_varchar2
,p_attribute22 in varchar2 default hr_api.g_varchar2
,p_attribute23 in varchar2 default hr_api.g_varchar2
,p_attribute24 in varchar2 default hr_api.g_varchar2
,p_attribute25 in varchar2 default hr_api.g_varchar2
,p_attribute26 in varchar2 default hr_api.g_varchar2
,p_attribute27 in varchar2 default hr_api.g_varchar2
,p_attribute28 in varchar2 default hr_api.g_varchar2
,p_attribute29 in varchar2 default hr_api.g_varchar2
,p_attribute30 in varchar2 default hr_api.g_varchar2
,p_dis_information_category in varchar2 default hr_api.g_varchar2
,p_dis_information1 in varchar2 default hr_api.g_varchar2
,p_dis_information2 in varchar2 default hr_api.g_varchar2
,p_dis_information3 in varchar2 default hr_api.g_varchar2
,p_dis_information4 in varchar2 default hr_api.g_varchar2
,p_dis_information5 in varchar2 default hr_api.g_varchar2
,p_dis_information6 in varchar2 default hr_api.g_varchar2
,p_dis_information7 in varchar2 default hr_api.g_varchar2
,p_dis_information8 in varchar2 default hr_api.g_varchar2
,p_dis_information9 in varchar2 default hr_api.g_varchar2
,p_dis_information10 in varchar2 default hr_api.g_varchar2
,p_dis_information11 in varchar2 default hr_api.g_varchar2
,p_dis_information12 in varchar2 default hr_api.g_varchar2
,p_dis_information13 in varchar2 default hr_api.g_varchar2
,p_dis_information14 in varchar2 default hr_api.g_varchar2
,p_dis_information15 in varchar2 default hr_api.g_varchar2
,p_dis_information16 in varchar2 default hr_api.g_varchar2
,p_dis_information17 in varchar2 default hr_api.g_varchar2
,p_dis_information18 in varchar2 default hr_api.g_varchar2
,p_dis_information19 in varchar2 default hr_api.g_varchar2
,p_dis_information20 in varchar2 default hr_api.g_varchar2
,p_dis_information21 in varchar2 default hr_api.g_varchar2
,p_dis_information22 in varchar2 default hr_api.g_varchar2
,p_dis_information23 in varchar2 default hr_api.g_varchar2
,p_dis_information24 in varchar2 default hr_api.g_varchar2
,p_dis_information25 in varchar2 default hr_api.g_varchar2
,p_dis_information26 in varchar2 default hr_api.g_varchar2
,p_dis_information27 in varchar2 default hr_api.g_varchar2
,p_dis_information28 in varchar2 default hr_api.g_varchar2
,p_dis_information29 in varchar2 default hr_api.g_varchar2
,p_dis_information30 in varchar2 default hr_api.g_varchar2
,p_effective_start_date out nocopy date
,p_effective_end_date out nocopy date
) is
--
-- cusor to check if any causal med_assment recs exist
-- for the current disability_id
--
cursor c_control_med_assmt is
select mea.medical_assessment_id
from per_medical_assessments mea
where mea.disability_id = p_disability_id
and mea.consultation_result = 'DI';
l_proc varchar2(72) := g_package||'update_disability';
savepoint update_disability;
select mea.object_version_number into l_object_version_number1
from per_medical_assessments mea
where mea.medical_assessment_id = l_mea_id;
per_medical_assessment_api.update_medical_assessment
(p_validate => p_validate
,p_medical_assessment_id => l_mea_id
,p_object_version_number => l_object_version_number1
,p_effective_date => l_effective_date
,p_disability_id => NULL);
select mea.object_version_number into l_object_version_number1
from per_medical_assessments mea
where mea.medical_assessment_id = p_medical_assessment_id
and mea.consultation_result = 'DI'
and (mea.disability_id is null or mea.disability_id = p_disability_id);
per_medical_assessment_api.update_medical_assessment
(p_validate => p_validate
,p_medical_assessment_id => p_medical_assessment_id
,p_object_version_number => l_object_version_number1
,p_effective_date => l_effective_date
,p_disability_id => p_disability_id);
per_disability_api_bk2.update_disability_b
(p_effective_date => l_effective_date
,p_datetrack_mode => p_datetrack_mode
,p_disability_id => p_disability_id
,p_object_version_number => l_object_version_number
,p_category => p_category
,p_status => p_status
,p_quota_fte => p_quota_fte
,p_organization_id => p_organization_id
,p_registration_id => p_registration_id
,p_registration_date => l_registration_date
,p_registration_exp_date => l_registration_exp_date
,p_description => p_description
,p_degree => p_degree
,p_reason => p_reason
,p_work_restriction => p_work_restriction
,p_incident_id => p_incident_id
,p_pre_registration_job => p_pre_registration_job
,p_attribute_category => p_attribute_category
,p_attribute1 => p_attribute1
,p_attribute2 => p_attribute2
,p_attribute3 => p_attribute3
,p_attribute4 => p_attribute4
,p_attribute5 => p_attribute5
,p_attribute6 => p_attribute6
,p_attribute7 => p_attribute7
,p_attribute8 => p_attribute8
,p_attribute9 => p_attribute9
,p_attribute10 => p_attribute10
,p_attribute11 => p_attribute11
,p_attribute12 => p_attribute12
,p_attribute13 => p_attribute13
,p_attribute14 => p_attribute14
,p_attribute15 => p_attribute15
,p_attribute16 => p_attribute16
,p_attribute17 => p_attribute17
,p_attribute18 => p_attribute18
,p_attribute19 => p_attribute19
,p_attribute20 => p_attribute20
,p_attribute21 => p_attribute21
,p_attribute22 => p_attribute22
,p_attribute23 => p_attribute23
,p_attribute24 => p_attribute24
,p_attribute25 => p_attribute25
,p_attribute26 => p_attribute26
,p_attribute27 => p_attribute27
,p_attribute28 => p_attribute28
,p_attribute29 => p_attribute29
,p_attribute30 => p_attribute30
,p_dis_information_category => p_dis_information_category
,p_dis_information1 => p_dis_information1
,p_dis_information2 => p_dis_information2
,p_dis_information3 => p_dis_information3
,p_dis_information4 => p_dis_information4
,p_dis_information5 => p_dis_information5
,p_dis_information6 => p_dis_information6
,p_dis_information7 => p_dis_information7
,p_dis_information8 => p_dis_information8
,p_dis_information9 => p_dis_information9
,p_dis_information10 => p_dis_information10
,p_dis_information11 => p_dis_information11
,p_dis_information12 => p_dis_information12
,p_dis_information13 => p_dis_information13
,p_dis_information14 => p_dis_information14
,p_dis_information15 => p_dis_information15
,p_dis_information16 => p_dis_information16
,p_dis_information17 => p_dis_information17
,p_dis_information18 => p_dis_information18
,p_dis_information19 => p_dis_information19
,p_dis_information20 => p_dis_information20
,p_dis_information21 => p_dis_information21
,p_dis_information22 => p_dis_information22
,p_dis_information23 => p_dis_information23
,p_dis_information24 => p_dis_information24
,p_dis_information25 => p_dis_information25
,p_dis_information26 => p_dis_information26
,p_dis_information27 => p_dis_information27
,p_dis_information28 => p_dis_information28
,p_dis_information29 => p_dis_information29
,p_dis_information30 => p_dis_information30);
(p_module_name => 'update_disability_b'
,p_hook_type => 'BP'
);
per_disability_api_bk2.update_disability_a
(p_effective_date => l_effective_date
,p_datetrack_mode => p_datetrack_mode
,p_disability_id => p_disability_id
,p_object_version_number => l_object_version_number
,p_category => p_category
,p_status => p_status
,p_quota_fte => p_quota_fte
,p_organization_id => p_organization_id
,p_registration_id => p_registration_id
,p_registration_date => l_registration_date
,p_registration_exp_date => l_registration_exp_date
,p_description => p_description
,p_degree => p_degree
,p_reason => p_reason
,p_work_restriction => p_work_restriction
,p_incident_id => p_incident_id
,p_pre_registration_job => p_pre_registration_job
,p_attribute_category => p_attribute_category
,p_attribute1 => p_attribute1
,p_attribute2 => p_attribute2
,p_attribute3 => p_attribute3
,p_attribute4 => p_attribute4
,p_attribute5 => p_attribute5
,p_attribute6 => p_attribute6
,p_attribute7 => p_attribute7
,p_attribute8 => p_attribute8
,p_attribute9 => p_attribute9
,p_attribute10 => p_attribute10
,p_attribute11 => p_attribute11
,p_attribute12 => p_attribute12
,p_attribute13 => p_attribute13
,p_attribute14 => p_attribute14
,p_attribute15 => p_attribute15
,p_attribute16 => p_attribute16
,p_attribute17 => p_attribute17
,p_attribute18 => p_attribute18
,p_attribute19 => p_attribute19
,p_attribute20 => p_attribute20
,p_attribute21 => p_attribute21
,p_attribute22 => p_attribute22
,p_attribute23 => p_attribute23
,p_attribute24 => p_attribute24
,p_attribute25 => p_attribute25
,p_attribute26 => p_attribute26
,p_attribute27 => p_attribute27
,p_attribute28 => p_attribute28
,p_attribute29 => p_attribute29
,p_attribute30 => p_attribute30
,p_dis_information_category => p_dis_information_category
,p_dis_information1 => p_dis_information1
,p_dis_information2 => p_dis_information2
,p_dis_information3 => p_dis_information3
,p_dis_information4 => p_dis_information4
,p_dis_information5 => p_dis_information5
,p_dis_information6 => p_dis_information6
,p_dis_information7 => p_dis_information7
,p_dis_information8 => p_dis_information8
,p_dis_information9 => p_dis_information9
,p_dis_information10 => p_dis_information10
,p_dis_information11 => p_dis_information11
,p_dis_information12 => p_dis_information12
,p_dis_information13 => p_dis_information13
,p_dis_information14 => p_dis_information14
,p_dis_information15 => p_dis_information15
,p_dis_information16 => p_dis_information16
,p_dis_information17 => p_dis_information17
,p_dis_information18 => p_dis_information18
,p_dis_information19 => p_dis_information19
,p_dis_information20 => p_dis_information20
,p_dis_information21 => p_dis_information21
,p_dis_information22 => p_dis_information22
,p_dis_information23 => p_dis_information23
,p_dis_information24 => p_dis_information24
,p_dis_information25 => p_dis_information25
,p_dis_information26 => p_dis_information26
,p_dis_information27 => p_dis_information27
,p_dis_information28 => p_dis_information28
,p_dis_information29 => p_dis_information29
,p_dis_information30 => p_dis_information30
,p_effective_start_date => l_effective_start_date
,p_effective_end_date => l_effective_end_date
);
(p_module_name => 'update_disability_a'
,p_hook_type => 'AP'
);
rollback to update_disability;
rollback to update_disability;
end update_disability;
procedure delete_disability
(p_validate in boolean default false
,p_effective_date in date
,p_datetrack_mode in varchar2
,p_disability_id in number
,p_object_version_number in out nocopy number
,p_effective_start_date out nocopy date
,p_effective_end_date out nocopy date
) is
--
-- Declare cursors and local variables
--
Cursor csr_mea is
select medical_assessment_id, object_version_number
from per_medical_assessments mea
where mea.disability_id = p_disability_id;
l_proc varchar2(72) := g_package||'delete_disability';
savepoint delete_disability;
per_disability_api_bk3.delete_disability_b
(p_effective_date => trunc(p_effective_date)
,p_datetrack_mode => p_datetrack_mode
,p_disability_id => p_disability_id
,p_object_version_number => l_object_version_number
);
(p_module_name => 'delete_disability_b'
,p_hook_type => 'BP'
);
per_medical_assessment_api.update_medical_assessment
(p_validate => p_validate
,p_medical_assessment_id => l_assessment_id
,p_object_version_number => l_ovn1
,p_effective_date => trunc(p_effective_date)
,p_disability_id => NULL);
per_disability_api_bk3.delete_disability_a
(p_effective_date => trunc(p_effective_date)
,p_datetrack_mode => p_datetrack_mode
,p_disability_id => p_disability_id
,p_object_version_number => l_object_version_number
,p_effective_start_date => l_effective_start_date
,p_effective_end_date => l_effective_end_date
);
(p_module_name => 'delete_disability_a'
,p_hook_type => 'AP'
);
ROLLBACK TO delete_disability;
ROLLBACK TO delete_disability;
end delete_disability;