--
-- acs_sc_binding__exists_p/2
--
create or replace function acs_sc_binding__exists_p(
  character varying,
  character varying
) returns int4 as $$

declare
    p_contract_name		alias for $1;
    p_impl_name			alias for $2;
    v_contract_id		integer;
    v_impl_id			integer;
    v_exists_p			integer;
begin

    v_contract_id := acs_sc_contract__get_id(p_contract_name);

    v_impl_id := acs_sc_impl__get_id(p_contract_name,p_impl_name);

    select case when count(*)=0 then 0 else 1 end into v_exists_p
    from acs_sc_bindings
    where contract_id = v_contract_id
    and impl_id = v_impl_id;

    return v_exists_p;

end;$$ language plpgsql;