The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE delete_all_attachments (
p_api_version IN NUMBER := 1.0,
p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
p_commit IN VARCHAR2 := FND_API.g_false,
p_validate_only IN VARCHAR2 := FND_API.g_true,
p_max_msg_count IN NUMBER := FND_API.g_miss_num,
p_ci_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
)
IS
BEGIN
pa_debug.set_err_stack ('PA_CI_DOC_ATTACH_PKG.DELETE_ALL_ATTACHMENTS');
SAVEPOINT delete_all_attachments;
fnd_attached_documents2_pkg.delete_attachments(
X_entity_name => 'PA_CONTROL_ITEMS',
X_pk1_value => p_ci_id,
X_delete_document_flag => 'Y');
ROLLBACK TO delete_all_attachments;
ROLLBACK TO delete_all_attachments;
p_procedure_name => 'DELETE_ALL_ATTACHMENTS',
p_error_text => SUBSTRB(SQLERRM,1,240));
END delete_all_attachments;
X_last_update_login => fnd_global.login_id);