s-15-fx-generar-numero-revision.sql

--@Autor(es): Hernández Ruiz de Esparza Guillermo
--@Fecha creación: 14/11/2024
--@Descripción: Crear la funcion para generar los numeros de consulta

PROMPT ========================================================
PROMPT Definicion de la funcion para generar numeros de revisiones
PROMPT s-15-fx-generar-numero-revision.sql
PROMPT ========================================================
SET SERVEROUTPUT OFF

CREATE OR REPLACE FUNCTION generar_n_revision(
  p_mascota_id mascota.mascota_id%TYPE
) RETURN NUMBER IS
  v_mascota NUMBER;
  v_count NUMBER;
  BEGIN
    SELECT COUNT(*) INTO v_mascota FROM mascota WHERE mascota_id = p_mascota_id AND status_mascota_id = 4;

    IF v_mascota = 0 THEN
      RAISE_APPLICATION_ERROR(-20013, 'No se puede revisar la mascota');
    END IF;

    SELECT COUNT(*) INTO v_count 

    FROM revision
    WHERE mascota_id = p_mascota_id;
    
    RETURN v_count + 1;
  END generar_n_revision;
/