RULE release_authentication_string_restriction

(* SCHEMA technical_data_packaging; *)

  RULE release_authentication_string_restriction FOR (approval);

    LOCAL
      ar      : STRING := 'release authentication';
      result1 : BOOLEAN := TRUE;
      result2 : BOOLEAN := TRUE;
      found   : BOOLEAN;
      aaa     : BAG OF applied_approval_assignment;
      adt     : BAG OF approval_date_time;
      appr    : SET OF approval;
      apo     : BAG OF approval_person_organization;
    END_LOCAL;
    appr := approval;
    REPEAT i := 1 TO SIZEOF(appr) BY 1;
      aaa := USEDIN(appr[i],'TECHNICAL_DATA_PACKAGING.' + 
          'APPROVAL_ASSIGNMENT.ASSIGNED_APPROVAL');
      found := FALSE;
      REPEAT j := 1 TO SIZEOF(aaa) BY 1;
        IF EXISTS(aaa[j]\approval_assignment.role) THEN
          IF aaa[j].role.name = ar THEN
            found := TRUE;
          END_IF;
        END_IF;
      END_REPEAT;
      IF found THEN
        apo := USEDIN(appr[i],'TECHNICAL_DATA_PACKAGING.' + 
            'APPROVAL_PERSON_ORGANIZATION.AUTHORIZED_APPROVAL');
        found := FALSE;
        REPEAT j := 1 TO SIZEOF(apo) BY 1;
          IF EXISTS(apo[j].role) THEN
            IF apo[j].role.role = ar THEN
              found := TRUE;
            END_IF;
          END_IF;
        END_REPEAT;
        IF NOT found THEN
          result1 := FALSE;
        END_IF;
        adt := USEDIN(appr[i],'TECHNICAL_DATA_PACKAGING.' + 
            'APPROVAL_DATE_TIME.DATED_APPROVAL');
        found := FALSE;
        REPEAT j := 1 TO SIZEOF(adt) BY 1;
          IF EXISTS(adt[j].role) THEN
            IF adt[j].role.name = ar THEN
              found := TRUE;
            END_IF;
          END_IF;
        END_REPEAT;
        IF NOT found THEN
          result2 := FALSE;
        END_IF;
      END_IF;
    END_REPEAT;

  WHERE
    wr1: result1;
    wr2: result2;

  END_RULE; -- release_authentication_string_restriction

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