RULE user_defined_description_required_for_damage_cause

(* SCHEMA step_ship_schema; *)

-- ONLY IN AP215
RULE user_defined_description_required_for_damage_cause FOR (representation );
   LOCAL
      violation : LOGICAL := FALSE;
   END_LOCAL;
      REPEAT i := 1 TO HIINDEX(representation) WHILE NOT violation;
         violation := (SIZEOF(QUERY (r <* representation[i].items | (('STEP_SHIP_SCHEMA.DESCRIPTIVE_REPRESENTATION_ITEM' IN TYPEOF(r)) AND (r.NAME = 'damage cause')) AND (r\descriptive_representation_item.description = 'user defined'))) > 0) AND (SIZEOF(QUERY (r <* representation[i].items |
 (r.NAME = 'user defined'))) = 0);
      END_REPEAT;
   WHERE
      WR1:
         NOT violation;
END_RULE;

[Top Level Definitions] [Exit]

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