Get Asset Disposed Reason on iDempiere

-- select * from fnt_getdisposed_reason('S');

create or replace function fnt_getdisposed_reason(p_reason char)
returns varchar
as $$
begin
    return
    (
        case p_reason
            when 'C' then 'Caridad'
            when 'S' then 'Descartado'
            when 'D' then 'Destruido'
            when 'T' then 'Robado'
            when 'S1' then 'Vendido'
            when 'S2' then 'Vendido sin Negocio'
        end
    );
end;
$$ language plpgsql;