FUNCTION get_specific_requirement_type_for_primary_rvd_relationship
(input : Requirement_view_definition; id : STRING; reqType : STRING) : SET [0:?] OF Predefined_requirement_view_definition;
LOCAL
rvdr : SET[0:?] OF Requirement_view_definition_relationship := [];
rdp : SET[0:?] OF Predefined_requirement_view_definition := []; --this gives us access TO the information base
END_LOCAL;
rvdr := bag_to_set(QUERY(rvdre <* USEDIN (input, 'REQUIREMENT_DECOMPOSITION_ARM.'+ 'REQUIREMENT_VIEW_DEFINITION_RELATIONSHIP.PRIMARY')|
((rvdre.relation_type = id) AND (reqType IN TYPEOF(rvdre.secondary)))
));
-- iterate over rvdr
REPEAT i := 1 TO SIZEOF(rvdr) BY 1;
rdp := rdp + rvdr[i].secondary;
END_REPEAT;
RETURN(rdp); END_FUNCTION; -- get_specific_requirement_type_for_primary_rvd_relationship
|