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 SusanDesigns in DesignCode,ActivityType with
  potency
   BlueDim: 0
end

SusanDesigns->DesignCode 
with
  dimension dim: BlueDim
end

SusanDesigns->ActivityType 
with
  dimension dim: BlueDim
end