FUNCTION get_role

(* SCHEMA Ship_arrangement_schema; *)



   FUNCTION get_role
      (obj : role_select ) : object_role;
   LOCAL
      role_bag : BAG OF role_association := USEDIN(obj, 'SHIP_ARRANGEMENT_SCHEMA.' + 'ROLE_ASSOCIATION.' + 'ITEM_WITH_ROLE');
   END_LOCAL;
      IF SIZEOF(role_bag) = 1 THEN
         RETURN (role_bag[1].role);
      ELSE
         RETURN (?);
      END_IF;
   END_FUNCTION;

Referenced By

Defintion get_role is references by the following definitions:

Definition	Type
action_assignment	ENTITY
action_request_assignment	ENTITY
approval_assignment	ENTITY
approval_date_time	ENTITY
document_reference	ENTITY
effectivity_assignment	ENTITY
group_assignment	ENTITY

[Top Level Definitions] [Exit]

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