MarkLogic: Remove a problem directory fragment in an event where you encounter XDMP-DBDUPURI issues

directory-fragment-delete.xqy

xquery version "1.0-ml";
(: 

  A Utility module to allow the deletion of a directory fragment in a given forest in the event of 
  an XDMP-DBDUPURI exception.  
  
:)

let $doc := "/" (: URI for the conflicting directory that is causing an XDMP-DBDUPURI to be reported in 2 forests :)
let $forest-name := "forest_00" (: The name of the forest from which the problem directory fragment should be removed :)

let $query :=
  'xquery version "1.0-ml";
  declare variable $URI as xs:string external;
  xdmp:node-delete(xdmp:document-properties($URI))'

let $options := <options xmlns="xdmp:eval"><database>{xdmp:forest($forest-name)}</database></options>
return xdmp:eval($query,(xs:QName("URI"),$doc),$options)