CREATE OR REPLACE FUNCTION ADAM.fn_fco_subtipo_cotizante(pch_compania   char,
                                                         pch_trabajador char)
/* definicion para */
 RETURN number is
  vti_subtipo number;
BEGIN

  SELECT decode(relacion_laboral, 'K', 1, 0)
    INTO vti_subtipo
    FROM trabajadores_grales
   WHERE compania = pch_compania
     AND trabajador = pch_trabajador;

  RETURN nvl(vti_subtipo, 0);
END fn_fco_subtipo_cotizante;
/
