!7

concept AppliedRule {
  S ruleID;
  S modifiedRule;
  S judgement;
  S comment;
  S matchedRuleStruct;
  S intention, context;
}

cmodule AppliedRules > DynCRUD<AppliedRule> {
  start {
    dbIndexing(AppliedRule, 'ruleID);
    
    for (AppliedRule r : conceptsWhere AppliedRule(ruleID := null)) {
      S ruleID = "?";
      pcall {
        ruleID = gazelle_ruleIDFromMatchedRuleStruct(r.matchedRuleStruct);
      }
      cset(r, +ruleID);
    }
  }
  
  enhanceFrame { internalFrameIcon(f, gazelle_frameIcon()); }
}