RULE item_source_information_identification_constraint

(* SCHEMA technical_data_packaging; *)

  RULE item_source_information_identification_constraint FOR (
             property_definition);

    LOCAL
      prpd   : SET OF property_definition;
      result : BOOLEAN := TRUE;
      prdr   : BAG OF property_definition_representation;
    END_LOCAL;
    prpd := property_definition;
    REPEAT i := 1 TO SIZEOF(prpd) BY 1;
      IF prpd[i].name = 'source information' THEN
        result := FALSE;
        prdr := USEDIN(prpd[i],'TECHNICAL_DATA_PACKAGING.' + 
            'PROPERTY_DEFINITION_REPRESENTATION.DEFINITION');
        REPEAT j := 1 TO SIZEOF(prdr) BY 1;
          IF prdr[j].used_representation.name = 'source information type'
               THEN
            result := TRUE;
          END_IF;
        END_REPEAT;
      END_IF;
    END_REPEAT;

  WHERE
    wr1: result;

  END_RULE; -- item_source_information_identification_constraint

Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:18:35-04:00