create function lasr_sta.stid2string(sid integer) RETURNS
varchar(10)
not deterministic
reads sql data
no external action
language sql
begin atomic
    declare ret varchar(10);
    if sid in (611,612,613,614)
    then
        set ret = 'АС';
    else
        set ret = 'К';
    end if;
    return ret;
end

create function lasr_ar.get_as_path(objId integer, sep varchar(5), suser integer)
returns varchar(1000)
not deterministic
reads sql data
no external action
language sql
begin atomic
    declare lname varchar(255);
    declare path varchar(1000);
    declare pid integer;

    set pid = objId;
    set path = '';

    while pid is not null
    do
        set (lname, pid) =
        (
        select name, parentId from lasr_ar.A_Systems_all where id=pid
                and
                (
                    (wholock is null and isLastEdited = 1)
                    or
                    (wholock is not null and wholock = suser and isLastEdited = 1)
                    or
                    (wholock is not null and wholock <> suser and isPrevEdited = 1)
                )
        );
        set path = sep || lname || path;
    end while;
    return path;
end

create function lasr_ar.check_system_id(aid integer)
returns integer
not deterministic
reads sql data
no external action
language sql
return select count(id) from lasr_ar.a_systems_all where id = aid