RULE change_identification_restricts_executed_action

(* SCHEMA step_merged_ap_schema; *)

-- IN AP232
RULE change_identification_restricts_executed_action FOR (executed_action );
   LOCAL
      acta : BAG OF action_assignment;
      found : BOOLEAN := FALSE;
      exeact : SET OF executed_action;
      result : BOOLEAN := TRUE;
   END_LOCAL;
      exeact := executed_action;
      REPEAT i := 1 TO SIZEOF(exeact) BY 1;
         IF exeact[i].description = 'change identification' THEN
            acta := USEDIN(exeact[i], 'STEP_MERGED_AP_SCHEMA.ACTION_ASSIGNMENT.ASSIGNED_ACTION');
            found := FALSE;
            REPEAT j := 1 TO SIZEOF(acta) BY 1;
               IF EXISTS(acta[j].role) THEN
                  IF (acta[j].role.name = 'change identification') XOR (acta[j].role.name = 'revision history') THEN
                     found := TRUE;
                  END_IF;
               END_IF;
            END_REPEAT;
            IF NOT found THEN
               result := FALSE;
               ESCAPE;
            END_IF;
         END_IF;
      END_REPEAT;
   WHERE
      wr1:
         result;
END_RULE;

Generated by STEP Tools® EXPRESS to HTML Converter
2020-07-28T17:02:19-04:00