custom constraint XQuery in MarkLogic

b-custom-constraint.xqy

xquery version "1.0-ml";
module namespace my="http://stuartmyles.com/ns/mysearch";
declare namespace appl="http://ap.org/schemas/03/2005/appl";
declare namespace appls="http://ap.org/schemas/09/2011/applsearch";

declare function ovparty(
$constraint-qtext as xs:string,
$right as schema-element(cts:query))
as schema-element(cts:query)
{
let $query :=
<root>{
let $s := fn:string($right//cts:text/text())
return
    cts:element-query(
          xs:QName("appl:EntityClassification"), 
          cts:and-query((
              cts:element-attribute-value-query(
                xs:QName("appl:EntityClassification"), 
                xs:QName("Authority"), 
                "AP Party"),
             cts:element-attribute-word-query(
                xs:QName("appl:Occurrence"), 
                xs:QName("Value"), 
                $s)
                ))
          )
}
</root>/*
return
$query
} ;