BlueDim in Dimension with
  dimcolor col: "0,0,210"
end

Element ActivityType with
  potency
   BlueDim: 2
end

Element DesignCode in ActivityType with
  potency
   BlueDim: 1
end

DesignCode->ActivityType 
with
  dimension dim: BlueDim
end

Element Activity with
  potency
   BlueDim: 1
end

Element SusanDesigns in DesignCode,Activity with
  potency
   BlueDim: 0
end

SusanDesigns->DesignCode 
with
  dimension dim: BlueDim
end

SusanDesigns->Activity 
with
  dimension dim: BlueDim
end