The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure DELETE_DOCUMENT_A
(P_EFFECTIVE_DATE in DATE
,P_DOCUMENT_ID in NUMBER
,P_OBJECT_VERSION_NUMBER in NUMBER
,P_PERSON_ID in NUMBER
,P_PARTY_ID in NUMBER
,P_END_DATE in DATE
,P_TYPE in VARCHAR2
,P_PURGE in VARCHAR2
)is
l_commit_unit_number number;
hr_utility.set_location('Entering: IRC_DOCUMENT_BK3.DELETE_DOCUMENT_A', 10);
irc_document_be3.DELETE_DOCUMENT_A
(P_EFFECTIVE_DATE => P_EFFECTIVE_DATE
,P_DOCUMENT_ID => P_DOCUMENT_ID
,P_OBJECT_VERSION_NUMBER => P_OBJECT_VERSION_NUMBER
,P_PERSON_ID => P_PERSON_ID
,P_PARTY_ID => P_PARTY_ID
,P_END_DATE => P_END_DATE
,P_TYPE => P_TYPE
,P_PURGE => P_PURGE
);
hr_api.validate_commit_unit(l_commit_unit_number, 'DELETE_DOCUMENT', 'AP');
hr_utility.set_location(' Leaving: IRC_DOCUMENT_BK3.DELETE_DOCUMENT_A', 20);
end DELETE_DOCUMENT_A;
procedure DELETE_DOCUMENT_B
(P_EFFECTIVE_DATE in DATE
,P_DOCUMENT_ID in NUMBER
,P_OBJECT_VERSION_NUMBER in NUMBER
,P_PERSON_ID in NUMBER
,P_PARTY_ID in NUMBER
,P_END_DATE in DATE
,P_TYPE in VARCHAR2
,P_PURGE in VARCHAR2
)is
begin
hr_utility.set_location('Entering: IRC_DOCUMENT_BK3.DELETE_DOCUMENT_B', 10);
hr_utility.set_location(' Leaving: IRC_DOCUMENT_BK3.DELETE_DOCUMENT_B', 20);
end DELETE_DOCUMENT_B;