The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE DELETE_INTERFACE_HEADER (
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_interface_header_id IN PO_HEADERS_INTERFACE.INTERFACE_HEADER_ID%TYPE
) IS
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_INTERFACE_HEADER';
l_progress := 'PO_SOURCING_GRP.DELETE_INTERFACE_HEADER: 001';
l_progress := 'PO_SOURCING_GRP.DELETE_INTERFACE_HEADER: 002';
p_message => 'Before calling po_sourcing_pvt.delete_interface_header');
PO_SOURCING_PVT.DELETE_INTERFACE_HEADER (
x_return_status => x_return_status,
p_interface_header_id => p_interface_header_id
);
l_progress := 'PO_SOURCING_GRP.DELETE_INTERFACE_HEADER: 003';
p_message => 'After calling po_sourcing_pvt.delete_interface_header');
l_progress := 'PO_SOURCING_GRP.DELETE_INTERFACE_HEADER: 004';
l_progress := 'PO_SOURCING_GRP.DELETE_INTERFACE_HEADER: 005';
END DELETE_INTERFACE_HEADER;