Commit abd64bb3 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2004-01-21 10:08:49 by cmiachon] Empty log message

Original author: cmiachon
Date: 2004-01-21 10:08:51+00:00
parent 9c013cdb
include "";; (* tests/cql/SEQ/ *)
In Report1,
find "Procedure" sections where no Anesthesia element occurs
before the first Incision
(* In CQLp *)
select s_flat
from <report>[(s::<section>[<section.title>['Procedure'] <section.content>[(_\(Anesthesia|Incision))* Incision _*]]|_)*] in [report],
s_flat in s
(* In CQLx *)
select s
from s in [report]/<section>[<section.title>['Procedure']
<section.content>[(_\(Anesthesia|Incision))* Incision _*]] ;;
for $p in doc("report1.xml")//section[section.title = "Procedure"]
where not(some $a in $p//anesthesia satisfies
$a << ($p//incision)[1] )
return $p
This diff is collapsed.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment