QPR ProcessAnalyzer Expression Examples
The following examples assume that there is a filter with id 1. point. All KPI analyses also have an EventLog as a starting point, so expression written after the "EventLogById(1)." is a valid expression for KPI Analyses.
Get all event types that appear among the events:
EventLogById(1).EventTypes
Same as previous, except return event type names (Strings):
EventLogById(1).EventTypes.Name
Get a hierarchical array, where the upper level are EventTypes and the leaf level are Events:
EventLogById(1).EventTypes.Events
Get a hierarchical array, where the upper level are EventTypes and the leaf level are also EventTypes (all branches contain same EventTypes):
EventLogById(1).EventTypes:Events.Type
EventLogById(1).EventTypes:Events.TimeStamp
List all Events as leaf nodes which timestamp is after 2012-01-01:
EventLogById(1).EventTypes:Events.Where(Timestamp > DateTime(2012,1,1))
Calculates count of Events in the leaf nodes:
Count(EventLogById(1).EventTypes:Events.Where(Timestamp > DateTime(2012,1,1)))
Events are ordered beginning from the last one:
EventLogById(1).EventTypes.OrderByDescending(Events, Timestamp)
Same as the previous but with explicit context specified:
EventLogById(1).EventTypes.OrderByDescending(_.Events, _.Timestamp)
Shows all event types in a single comma separated string list:
EventLogById(1).(StringJoin(", ", EventTypes.Name))
Same as the previous, except in addition the EventTypes are ordered by name:
EventLogById(1).(StringJoin(", ", OrderByDescending(EventTypes, Name).Name))
List of all the Starter flows in a model from filterId=1:
RemoveLeaves(EventLogById(1).Flows:From.Where(IsNull(_)))
Go through the model recursively using the flows:
RemoveLeaves(EventLogById(1).Flows:From.Where(IsNull(_))).To.OutgoingFlows.To.OutgoingFlows.To
Traverse the model using events:
RemoveLeaves(EventLogById(1).Flows:From.Where(IsNull(_))).FlowOccurrences.To.NextInCase.NextInCase.NextInCase
All case attribute values within the model grouped by case attribute types:
Let("cases", EventLogById(1).Cases, EventLogById(1).CaseAttributes:(Let("attribute", _, cases.Attribute(attribute))))
All event attribute values within the model grouped by event attribute types:
Let("events", EventLogById(1).Events, EventLogById(1).EventAttributes:(Let("attribute", _, events.Attribute(attribute))))
Define a new user defined functions named "First", which takes the first item in an array:
Def("First", "a", GetAt(0, a));
The defined array can be used as follows:
First(Array(1, 2, 3)) returns: 1
Def("x", "a", Distinct(RecurseLeaves(OrderBy(EventLogById(a).Cases.Events, Type.Name), Type.Name)))
Function definition that uses itself, i.e. recursive functions:
Def("Fib", "a", If(a < 2, 1, Fib(a - 1) + Fib(a - 2)));
For("i", 0, i < 10, i + 1, Fib(i));
Takas all models, and show them in "id:name" format:
Models.StringJoin(":", [Id, Name])
Models.[Id, Name]
How many times activity "Sales Order Changed" occurs on average in cases?
Average(Count(Cases.Events.Where(Type.Name == "Sales Order Changed")))
What's the average cost per case of all sales order changes? (assumption Sales Order Changed activity has attribute Cost)
Average(Sum(Cases.Events.Where(Type.Name == "Sales Order Changed").Cost))
What's the total cost of all events that occured this year?
Sum(Sum(Cases.Events.Where(TimeStamp.Year == Now.Year).Cost))
What the total cost calculated from events, where cost is calculated by "unit cost" times "number of units"?
Sum(
Cases.Sum(
Events.(
UnitCost * NumberOfUnits
)
)
)
In how many cases duration between "Invoice Sent" and "Payment Received" is more than 30 days?
Count(
Cases.Where(
(
Max(
Events.Where(
In(Type.Name, "et1", "et2")
).TimeStamp
) -
Min(
Events.Where(
In(Type.Name, "et1", "et2")
).TimeStamp
)
).TotalMinutes
> 60
)
)
In how many cases "Invoice Sent" is not directly followed by "Payment Received"?
Count(
RemoveLeaves(
(
Cases.Events.Type.Name
).Where(
Count(
IndexOfSubArray(
Array("et2", "et3")
)
) < Count(
IndexOfSubArray(
"et2"
)
)
)
)
)
In how many cases "Payment Received" is before "Invoice Sent"?
Count(
RemoveLeaves(
(
Cases.Events.Type.Name
).Where(
Catch(
Max(
IndexOfSubArray(
"et3"
)
)
< Min(
IndexOfSubArray(
"et1"
)
),
false
)
)
)
)
In how many cases, invoice wasn't paid within the due date? (i.e. invoice is due and it's not paid, or invoice was paid after due date)
Count(
Cases.Where(
(
(Count(
Events.Where(
Type.Name = ""Invoice Paid""
)
) = 0)
&&
(
Catch(
GetAt(0, Events.[Invoice Sent].StopOnNull()) < Now
, false)
||
Catch(
GetAt(0, Events.[Due Date].StopOnNull()) < Now
, false)
)
)
||
(
Catch(
GetAt(0,
Events.Where(
Type.Name = ""Invoice Paid""
).TimeStamp
)
>
Coalesce(
Catch(GetAt(0, Events.[Invoice Sent]), null),
Catch(GetAt(0, Events.[Due Date]), null)
),
null)
)
)
)
)
How long it takes to receive payment on average?
Average(
Sum(
Cases.Events.Where(
Type.Name = ""Payment Received""
).(
TimeStamp - GetAt(
0,
Case.Events.Where(
Type.Name = ""Invoice Sent""
)
).TimeStamp
)
.TotalMinutes
)
)
What is the % of POs (cases) in a certain price range (case attribute "price")?
100 * Count(Cases.Where(Price > 1 && Price < 4)) / Count(Cases)
What is the average duration from event A directly followed by event B for those cases that directly continue to event C after B? (take the first occurrence if there are many)
Average(
Cases.Let(
""indexes"",
Box(
Events.Type.Name
).IndexOfSubArray(
Array(""et2"", ""et3"", ""et4"")
)
).Where(
Count(indexes) > 0
).(
GetAt(
GetAt(0,
GetAt(0, indexes)
),
Events
)
).(
NextInCase.TimeStamp - TimeStamp
).TotalMinutes
)
What is the average duration of completely received orders?
Average(
Cases.Where(
Count(
Events.Where(
Type.Name = "et3"
)
) > 0
).(
GetAt(0,
Events.Where(
Type.Name = "et2"
).TimeStamp
)
-
GetAt(0,
Events.Where(
Type.Name = "et1"
).TimeStamp
)
).TotalMinutes
)