FUNCTION a3ms_validate_accuracy_types

(* SCHEMA step_merged_ap_schema; *)

-- IN AP242
FUNCTION a3ms_validate_accuracy_types
      (ei : accuracy_associated_target_select;
       cr : a3m_equivalence_criterion_for_shape ) : LOGICAL;
   LOCAL
      aeaa : SET OF a3m_equivalence_accuracy_association;
      rp : SET OF representation;
      tp : SET OF a3ms_accuracy_type_name := [];
   END_LOCAL;
      REPEAT i := 1 TO SIZEOF(cr.accuracy_types);
         tp := tp + [ cr.accuracy_types[i] ];
      END_REPEAT;
      IF 'STEP_MERGED_AP_SCHEMA.REPRESENTATION_ITEM' IN TYPEOF(ei) THEN
         aeaa := bag_to_set(USEDIN(ei, 'STEP_MERGED_AP_SCHEMA.A3M_EQUIVALENCE_ACCURACY_ASSOCIATION.EQUIVALENCE_TARGET'));
         IF SIZEOF(cr.accuracy_types) = 0 THEN
            IF SIZEOF(aeaa) = 0 THEN
               RETURN (TRUE);
            ELSE
               RETURN (FALSE);
            END_IF;
         END_IF;
         IF a3ms_get_accuracy_types(aeaa) = tp THEN
            RETURN (TRUE);
         END_IF;
         rp := bag_to_set(USEDIN(ei, 'STEP_MERGED_AP_SCHEMA.REPRESENTATION.ITEMS'));
      ELSE
         IF 'STEP_MERGED_AP_SCHEMA.REPRESENTATION' IN TYPEOF(ei) THEN
            rp := [ ei ];
         ELSE
            rp := [];
         END_IF;
      END_IF;
      aeaa := [];
      REPEAT i := 1 TO SIZEOF(rp);
         aeaa := aeaa + bag_to_set(USEDIN(rp[i], 'STEP_MERGED_AP_SCHEMA.A3M_EQUIVALENCE_ACCURACY_ASSOCIATION.EQUIVALENCE_TARGET'));
      END_REPEAT;
      IF a3ms_get_accuracy_types(aeaa) >= tp THEN
         RETURN (TRUE);
      END_IF;
      RETURN (FALSE);
END_FUNCTION;

Referenced By

Generated by STEP Tools® EXPRESS to HTML Converter
2024-09-06T14:00:33-04:00