RULE change_impact_with_versionable_object_change_event

(* SCHEMA step_ship_schema; *)

-- ONLY IN AP215/AP216/AP218
RULE change_impact_with_versionable_object_change_event FOR(applied_action_request_assignment);
  LOCAL
    t1_set:  SET OF applied_action_request_assignment := [];
    a_set:   SET OF action := [];
    violate: LOGICAL := FALSE;
  END_LOCAL;

   t1_set := QUERY(b <* applied_action_request_assignment |
                   (b.role.name= 'change impact'));

REPEAT i := 1 TO HIINDEX(t1_set) WHILE NOT violate;
          a_set := QUERY(b <* t1_set[i].items |
          ('STEP_SHIP_SCHEMA.ACTION' IN TYPEOF(b)) AND
             VALUE_IN(WHICH_CLASS(b), 'versionable object change event'));
         violate := SIZEOF(a_set) = 0;
      END_REPEAT;

WHERE
    WR1: NOT violate;
END_RULE;

Generated by STEP Tools^TM EXPRESS to HTML Converter
on 2007-09-24T12:42:21-04:00