FUNCTION a3ma_validate_element_types

(* SCHEMA step_merged_ap_schema; *)

-- IN AP242
FUNCTION a3ma_validate_element_types
      (ei : data_equivalence_inspection_report;
       cr : a3m_equivalence_criterion_for_assembly ) : LOGICAL;
   LOCAL
      compared_et : a3ma_element_type_name;
      comparing_et : a3ma_element_type_name;
      deiir : data_equivalence_inspection_instance_report;
      aeiiri : a3m_equivalence_inspection_instance_report_item;
      deiep : data_equivalence_inspected_element_pair;
   END_LOCAL;
      IF 'STEP_MERGED_AP_SCHEMA.DATA_EQUIVALENCE_INSPECTION_INSTANCE_REPORT' IN TYPEOF(ei) THEN
         deiir := ei;
         REPEAT i := 1 TO SIZEOF(deiir.inspected_instances);
            IF 'STEP_MERGED_AP_SCHEMA.A3M_EQUIVALENCE_INSPECTION_INSTANCE_REPORT_ITEM' IN TYPEOF(deiir.inspected_instances[i]) THEN
               aeiiri := deiir.inspected_instances[i];
               deiep := aeiiri.inspected_element;
               compared_et := a3ma_get_element_type(deiep.compared_elements);
               comparing_et := a3ma_get_element_type(deiep.comparing_elements);
               IF NOT (compared_et IN cr.compared_element_types) OR NOT (comparing_et IN cr.comparing_element_types) THEN
                  RETURN (FALSE);
               END_IF;
               IF compared_et <> comparing_et THEN
                  RETURN (FALSE);
               END_IF;
            END_IF;
         END_REPEAT;
      END_IF;
      RETURN (FALSE);
END_FUNCTION;

Referenced By

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