putusuariohierarquia(integer, integer, character varying, integer, character varying, character varying)

begin  

    -- VALIDACAO    

        -- EXTERNALID E INTERNALID NAO INFORMADOS

        if coalesce(PutUsuarioHierarquia.externalid,'')='' and PutUsuarioHierarquia.internalid is null then 

        RAISE EXCEPTION 'externalid = % and internalid = %', PutUsuarioHierarquia.externalid, PutUsuarioHierarquia.internalid

            USING HINT = 'Fields internalid and externalid must be not null';

        end if;      

​

    -- LOOKUP

        -- USUARIO HIERARQUIA

        IF PutUsuarioHierarquia.internalid IS NULL 

        THEN PutUsuarioHierarquia.internalid = (SELECT IDUSUARIOHIERARQUIA FROM USUARIOHIERARQUIA WHERE CODIGOERP = PutUsuarioHierarquia.externalid);

        END IF;

​

        -- IDUSUARIOSUPERIOR

        IF PutUsuarioHierarquia.idusuariosubordinado IS NULL AND PutUsuarioHierarquia.idusuariosubordinado_externalid IS NOT NULL

            THEN PutUsuarioHierarquia.idusuariosubordinado = (SELECT C2.idusuario FROM usuario C2 WHERE C2.CODIGOERP = PutUsuarioHierarquia.idusuariosubordinado_externalid);

        END IF; 

​

        if PutUsuarioHierarquia.idusuariosubordinado is null then 

            RAISE EXCEPTION 'idusuariosubordinado = %', PutUsuarioHierarquia.idusuariosubordinado

                USING HINT = 'Field idusuariosubordinado must be not null';

        end if; 

​

        -- IDUSUARIOSUPERIOR

        IF PutUsuarioHierarquia.idusuariosuperior IS NULL AND PutUsuarioHierarquia.idusuariosuperior_externalid IS NOT NULL

            THEN PutUsuarioHierarquia.idusuariosuperior = (SELECT C2.idusuario FROM usuario C2 WHERE C2.CODIGOERP = PutUsuarioHierarquia.idusuariosuperior_externalid);

        END IF; 

​

        if PutUsuarioHierarquia.idusuariosuperior is null then 

            RAISE EXCEPTION 'idusuariosuperior = %', PutUsuarioHierarquia.idusuariosuperior

                USING HINT = 'Field idusuariosuperior must be not null';

        end if;

​

    -- UPDATE

    update usuariohierarquia set 

        idusuario = case when PutUsuarioHierarquia.idusuariosubordinado = -99999 then usuariohierarquia.idusuario else PutUsuarioHierarquia.idusuariosubordinado end, 

        idusuariosuperior = case when PutUsuarioHierarquia.idusuariosuperior = -99999 then usuariohierarquia.idusuariosuperior else PutUsuarioHierarquia.idusuariosuperior end,

        codigoerp = case when PutUsuarioHierarquia.externalid = 'NOVALUEWS' then codigoerp else PutUsuarioHierarquia.externalid end

    where idusuariohierarquia = internalid ;

​

    return query select internalid;

END;