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)
        )
    )
  )
)

Cases average duration between the first occurrence of event A and last occurrence of event B. Average is calculated only for those cases that contain both events A and B. Usecase: 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
)

Basic model usage

Models;
Models[0].EventLog;
Let("el", Models[0].EventLog);
el.Cases
el.Cases.Events
el.Cases:Events
el.Cases:Events.Type.Name
el.Cases.StringJoin("->", Events.Type.Name)
Def("show", "cases", cases.(CalcId + ": " + StringJoin("->",  Events.Type.Name)))
show(el.Cases)

Arrays

[1,2,3][0]
[1,2,3][Count(_)-1]
[1,2,3][[0,Count(_) - 1]]
[1,2,3][NumberRange(0, Count(_)-1)]

Calculating median

Def("Median", "array", (Let("a", OrderByValue(array)), If(Count(a) % 2 == 1, a[(Count(a) - 1) / 2], (a[(Count(a) / 2) - 1] + a[Count(a) / 2]) / 2)));
Median([4,1,3,2])
Median([1,2,3])

Remove tandem repeats of length 1

Def("RemoveTandemRepeatsOfLength1", "a", (Let("prev", null),ForEach("item", a, If(item == prev, _remove, (Set("prev", item), item)))._));
RemoveTandemRepeatsOfLength1([1,2,2,3,5,5,5,5,2,5])

Aggregation functions

Percentage of cases having event type named "Invoice"
Average(Count(el.Cases.Events.Where(Type.Name == "Invoice")))

Average flow durations for non-starter/-finisher flows
Average(el.Flows:FlowOccurrences.Where(!IsNull(From) && !IsNull(To), _remove).(To.TimeStamp - From.TimeStamp))

Average of all the flow durations
Average(Flatten(el.Flows:FlowOccurrences.Where(!IsNull(From) && !IsNull(To), _remove).(To.TimeStamp - From.TimeStamp)))

Context labeling

Let("a", ["foo": ["a": 1, "b": 2], "bar": 2])
GetContext(a[0])
GetValueOfContext("bar", a)

Recursion

el.Events[0].Recurse(NextInCase)
el.Events[0].RecurseWithHierarchy(NextInCase)
el.Events[0].RecursiveFind(NextInCase, Type.Name == "Invoice")
el.Flows.Where(IsNull(From)).To.RecurseWithHierarchy(OutgoingFlows.To, !IsNull(_), 2)

Functions

// Create Fibonacci number generator and a tester for it
Def("Fib", "a", If(a < 2, 1, Fib(a - 1) + Fib(a - 2)));
Def("FibTest", "a", For("i", 0, i < a, i + 1, Fib(i)));
FibTest(10);

// Call function objects using given parameters [Def("", "a", "b", a+b), Def("", "a", "b", a*b)].(_(1,2))

// The sum of all the durations between the first occurrence of "Invoice" and the last occurrence of "Sales Order" event types. Def("FirstOccurrence", "&condition", _.Events[0].RecursiveFind(NextInCase, condition())[0]); Def("LastOccurrence", "&condition", _.Events[Count(_) - 1].RecursiveFind(PreviousInCase, condition())[0]); TimeSpan(0, 0, 0, Average(el.Cases.(Catch(FirstOccurrence(Type.Name == "Invoice").TimeStamp - LastOccurrence(Type.Name == "Sales Order").TimeStamp, _remove).TotalSeconds)))

Miscellaneous examples

Return all starter flows
RemoveLeaves(el.Flows:From.Where(IsNull(_)))
el.Flows.Where(IsNull(From))

Create a range of dates
Def("DateRange", "minYear", "minMonth", "maxYear", "maxMonth", (Let("min", DateTime(minYear, minMonth)),Let("max", DateTime(maxYear, maxMonth)),For("dt", DateTime(min.Year, min.month), dt <= DateTime(max.Year, max.Month), dt.Month == 12 ? DateTime(dt.Year + 1, 1) : DateTime(dt.Year, dt.Month + 1), dt)))
DateRange(2011, 5, 2013, 1)

Group numbers into groups with specified minimum, maximum and range size.
Def("GroupNumbers", "a", "min", "max", "rangeSize", a.Ceiling(Max(0.0, Min(((max - min) / rangeSize) + 1, (_ - min)/rangeSize))));
GroupNumbers([-20, 0, 0.2, 3.2, 7, 9.2, 20], 0, 9, 3)

Show cases having at least one "Sales Order Changed (VA02)"
show(el.Cases.Where(Count(Events.Where(Type.Name == "Sales Order Changed (VA02)")) > 0))
show(Flatten(el.Cases.Events[0].RecursiveFind(NextInCase, Type.Name == "Sales Order Changed (VA02)").Case))

Show cases having "Sales Order Changed (VA02)" before "Outbound Delivery" at least once
show(el.Cases.Where(([Events.Type.Name].Coalesce(Min(IndexOfSubArray("Sales Order Changed (VA02)"))-Max(IndexOfSubArray("Outbound Delivery")), 0))[0] < 0))
show(Flatten(el.Cases.Events[0].RecursiveFind(NextInCase, Type.Name == "Sales Order Changed (VA02)").RecursiveFind(NextInCase, Type.Name == "Outbound Delivery").Case))

Workload analysis
Def("ActiveEventsAt", "at", "attribute", "value",
Cases:Events[0]
  .RecursiveFind(
    NextInCase,
    TimeStamp < at 
    && (Attribute(attribute) == value) 
    && (IsNull(NextInCase) || (NextInCase.TimeStamp > at))
)
);
Def("ActiveEventsAt", "at", "attribute", "value",Cases:Events[0].RecursiveFind(NextInCase,TimeStamp < at && (Attribute(attribute) == value) && (IsNull(NextInCase) || (NextInCase.TimeStamp > at))));
ReplaceLeafValues(el.ActiveEventsAt(DateTime(2011,9,6), "Organization", "Finance"), "item", [item, item.Organization], 0)
ReplaceLeafValues(el.ActiveEventsAt(DateTime(2011,9,6), "Organization", "Delivery"), "item", [item, item.Organization], 0)
ReplaceLeafValues(el.ActiveEventsAt(DateTime(2011,9,6), "Organization", "Sales"), "item", [item, item.Organization], 0)

Get names and durations of all the cases sorted by case duration grouped by variations sorted by the number of cases in each variation.
ReplaceLeafValues(OrderBy(OrderBy(el.Variations, CaseCount):Cases, Duration), "leaf", "" + leaf.Name + ": " + leaf.Duration, 0)

Conformance analysis
Let("xml", LoadTextFile("C:\\Users\\marhink\\Desktop\\SAP o2c.bpmn"));
Let("cm", ConformanceModelFromXml(xml));
Let("vars", OrderByDescending(EventLogById(1).Variations, CaseCount));
vars.(Let("analysis",AnalyzeConformance(cm)),""+CaseCount+" * "+(CountTop(analysis)==0)+((CountTop(analysis)>0)?" ("+StringJoin("",ReplaceLeafValues(analysis,"i",i[0]==3?i[2]+"->"+i[3]:(i[0]==2?"DNF":"")))+")":"")+": "+StringJoin("->",EventTypes.Name))
Let("cases", OrderBy(EventLogById(1).Cases, Name));
cases.(Let("analysis",AnalyzeConformance(cm)),""+(CountTop(analysis)==0)+((CountTop(analysis)>0)? " ("+StringJoin("",ReplaceLeafValues(analysis,"i",i[0]==3?i[2]+"->"+i[3]:(i[0]==2?"DNF":"")))+")":"")+": "+StringJoin("->",Events.Type.Name))

Hierarchy
el.RecurseWithHierarchy(OutgoingFlows.To, !IsNull(_), 10);
cm.StartEvents.RecurseWithHierarchy(OutgoingFlows.To, !IsNull(_), 10);