Remember to incorporate org-refile-target-verify-function

init.el

@@ -875,7 +875,7 @@ split horizontally again, but this extra work should not matter much."
                                        (db/org-default-notes-file . (:maxlevel . 9)))
                   org-refile-use-outline-path 'buffer-name
                   org-refile-use-cache nil
-                  org-refile-allow-creating-parent-nodes 'nil
+                  org-refile-allow-creating-parent-nodes nil
                   org-indirect-buffer-display 'current-window
                   org-outline-path-complete-in-steps nil
                   org-refile-target-verify-function 'db/verify-refile-target)

site-lisp/db-org.el

@@ -493,7 +493,10 @@ Also note that the usual variables governing the behavior of
   (when new-nodes
     (warn "Cannot create new nodes (yet) with consult interface for `org-refile'"))
   (let ((pom (with-current-buffer (or default-buffer (current-buffer))
-               (db/org-get-location t nil (concat prompt " "))))) ; TODO: incorporate verify function
+               (db/org-get-location t nil (concat prompt " "))))) ; TODO: incorporate verify
+                                                                  ; function, use direct call to
+                                                                  ; consult--read for this and
+                                                                  ; replace the :predicate key?
     (list (buffer-name (marker-buffer pom))
           (buffer-file-name (marker-buffer pom))
           ;; The third entry is some regexp matching the headline, apparently?
@@ -1900,12 +1903,7 @@ always considered to be one large data collection).
 When USE-ALL-ORG-FILES is non-nil, search through all files in
 the variables `org-agenda-files',
 `org-agenda-text-search-extra-files', and the current file or
-`db/org-default-org-file' as described above.
-
-Search is always conducted up to level 9.  If the selected
-location does not have an associated point or mark, error out.
-Disable refile cache and any active refile filter hooks to allow
-linking to any item."
+`db/org-default-org-file' as described above."
   (let ((default-buffer (if (and (buffer-file-name) (derived-mode-p 'org-mode))
                             (current-buffer)
                           (find-file-noselect db/org-default-org-file))))