create or alter procedure NEW_PROCEDURE (
    EQ_ID integer)
returns (
    PROP integer,
    VAL_ID integer,
    VAL_CUSTOM varchar(100))
as
begin
      for select P_T.prop_type_id,
             case
               when EQ_L_P.PROP_VAL_ID is null then EQ_L_P.PROP_CUSTOM_VAL
               else cast(P_V.PROP_VAL_ID as varchar(100))
             end PROP_VAL_ID
      from EQ_LINK_PROP EQ_L_P
      join PROP_TYPE P_T on P_T.PROP_TYPE_ID = EQ_L_P.PROP_TYPE_ID
      join EQ_LIST EQ_L on EQ_L.EQ_ID = EQ_L_P.EQ_ID
      left join PROP_VAL P_V on EQ_L_P.PROP_VAL_ID = P_V.PROP_VAL_ID
      where EQ_L_P.EQ_ID = :eq_id
        into :prop, :val_id, :val_custom
      do
      begin
        suspend;
      end
end^

CREATE OR ALTER PROCEDURE NEW_PROCEDURE (
    EQ_ID INTEGER)
RETURNS (
    PROP INTEGER,
    VAL_ID INTEGER,
    VAL_CUSTOM VARCHAR(100))
AS
BEGIN
  FOR
      SELECT
          P_T.prop_type_id,
          EQ_L_P.PROP_VAL_ID,
          CASE
            WHEN EQ_L_P.PROP_VAL_ID IS NULL
            THEN EQ_L_P.PROP_CUSTOM_VAL
          END PROP_CUSTOM_VAL
      FROM
          EQ_LINK_PROP EQ_L_P
          JOIN PROP_TYPE P_T ON P_T.PROP_TYPE_ID = EQ_L_P.PROP_TYPE_ID
          JOIN EQ_LIST EQ_L ON EQ_L.EQ_ID = EQ_L_P.EQ_ID
          LEFT JOIN PROP_VAL P_V ON EQ_L_P.PROP_VAL_ID = P_V.PROP_VAL_ID
      WHERE
            EQ_L_P.EQ_ID = :eq_id
      INTO :prop,
           :val_id,
           :val_custom
  DO
  BEGIN
    SUSPEND;
  END
END