query CallingQueryActions {
parameters {
float distanceThreshold;
float period;
}
inputs {
Withdrawal() key account within period;
}
find Withdrawal as w1 -> Withdrawal as w2
where distance(w1.coords, w2.coords ) > distanceThreshold
{
logIncident( w1, w2 );
sendSmsAlertToCustomer(
getTelephoneNumber(w1), getAlertText(w1,w2) );
}

action distance( Coords a, Coords b) returns float {
integer x := a.x - b.x;
integer y := a.y – b.y;
return ( x*x + y*y ).sqrt();
}

action logIncident ( Withdrawal w, Withrawal w2 ) { ... }
action getTelephoneNumber(Withdrawal w ) returns string { ... }
action getAlertText ( Withdrawal w1, Withrawal w2 ) returns string { ... }
action sendSmsAlertToCustomer( string telephoneNumber, string text ) { ... }
}