FUNCTION a3ms_validate_measured_type

(* SCHEMA step_merged_ap_schema; *)

-- IN AP242
FUNCTION a3ms_validate_measured_type
      (ei : data_equivalence_inspection_report;
       cr : a3m_equivalence_criterion_for_shape ) : LOGICAL;
   LOCAL
      amdtn : a3ms_measured_data_type_name;
      deicr : data_equivalence_inspection_criterion_report;
      acriwmv : a3m_equivalence_criterion_report_item_with_measured_value;
      deiir : data_equivalence_inspection_instance_report;
      aeiiri : a3m_equivalence_inspection_instance_report_item;
      eiriwei : equivalence_instance_report_item_with_notable_instances;
   END_LOCAL;
      amdtn := cr.measured_data_type;
      IF 'STEP_MERGED_AP_SCHEMA.DATA_EQUIVALENCE_INSPECTION_CRITERION_REPORT' IN TYPEOF(ei) THEN
         deicr := ei;
         REPEAT i := 1 TO SIZEOF(deicr.statistical_values);
            IF 'STEP_MERGED_AP_SCHEMA.A3M_EQUIVALENCE_CRITERION_REPORT_ITEM_WITH_MEASURED_VALUE' IN TYPEOF(deicr.statistical_values[i]) THEN
               acriwmv := deicr.statistical_values[i];
               IF a3ms_get_measured_type(acriwmv.representative_measured_value) <> amdtn THEN
                  RETURN (FALSE);
               END_IF;
            END_IF;
         END_REPEAT;
      END_IF;
      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];
               IF a3ms_get_measured_type(aeiiri.measured_value_for_inspected_element) <> amdtn THEN
                  RETURN (FALSE);
               END_IF;
            END_IF;
            IF 'STEP_MERGED_AP_SCHEMA.EQUIVALENCE_INSTANCE_REPORT_ITEM_WITH_NOTABLE_INSTANCES' IN TYPEOF(deiir.inspected_instances[i]) THEN
               eiriwei := deiir.inspected_instances[i];
               REPEAT j := 1 TO SIZEOF(eiriwei.notable_instances);
                  IF a3ms_get_measured_type(eiriwei.notable_instances[j].measured_value) <> amdtn THEN
                     RETURN (FALSE);
                  END_IF;
               END_REPEAT;
            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