MarkLogic: Delete one document after inspecting both duplicates in the event of an XDMP-DBDUPURI

delete-one-fragment.xqy

xquery version "1.0-ml";
(: 

  A Utility module to allow the deletion of a fragment in a given forest in the event of 
  an XDMP-DBDUPURI exception.  
  
  Given the following exception:
  XDMP-DBDUPURI: URI /problem/uri.xml found in forests Library06 and Library07
  
  $doc would be set to "/problem/uri.xml"
  $forest-name would be set to either "Library06" or "Library07" on inspecting the document in both forests.
  
:)

let $doc := "/" (: URI for the document that is found in 2 forests :)
let $forest-name := "forest_00" (: The name of the forest from which the document should be removed :)

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

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