The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure DELETE_PERSON_A
(P_EFFECTIVE_DATE in DATE
,P_PERSON_ID in NUMBER
,P_PERSON_ORG_MANAGER_WARNING in VARCHAR2
)is
l_commit_unit_number number;
hr_utility.set_location('Entering: HR_PERSON_BK2.DELETE_PERSON_A', 10);
hr_person_be2.DELETE_PERSON_A
(P_EFFECTIVE_DATE => P_EFFECTIVE_DATE
,P_PERSON_ID => P_PERSON_ID
,P_PERSON_ORG_MANAGER_WARNING => P_PERSON_ORG_MANAGER_WARNING
);
hr_api.validate_commit_unit(l_commit_unit_number, 'DELETE_PERSON', 'AP');
hr_utility.set_location(' Leaving: HR_PERSON_BK2.DELETE_PERSON_A', 20);
end DELETE_PERSON_A;
procedure DELETE_PERSON_B
(P_EFFECTIVE_DATE in DATE
,P_PERSON_ID in NUMBER
)is
l_commit_unit_number number;
hr_utility.set_location('Entering: HR_PERSON_BK2.DELETE_PERSON_B', 10);
hr_api.validate_commit_unit(l_commit_unit_number, 'DELETE_PERSON', 'BP');
hr_utility.set_location(' Leaving: HR_PERSON_BK2.DELETE_PERSON_B', 20);
end DELETE_PERSON_B;