create or replace procedure insertarMedicamento (
num_remedio in NUMBER,
id_remedio in NUMBER,
indi_remedio in VARCHAR)
AS
begin
    insert into medicamentos (
    numero,
    id_rem,
    indicaciones
    ) values(num_remedio,id_remedio,indi_remedio);
end;

create or replace procedure eliminarMedicamento (
num_remedio in NUMBER,
id_remedio in NUMBER)
is
v_numero NUMBER;
v_id NUMBER;

BEGIN
    v_numero := num_remedio;
    v_id := id_remedio;
    delete from medicamentos where num_remedio = v_numero and id_remedio = v_id;
end;

---


SELECT
    pac.rutpac,
    pac.nombre,
    to_char(pac.fechanac, 'YYYY-MM-DD' ),
    pac.sexo,
    pac.celular,
    pac.id_comuna,
    pac.nacionalidad,
    pac.id_salud,
    ficha.rutpac,
    ficha.fechacrea,
    ficha.numficha,
    isapre.nombre
FROM

    fichapac ficha join
    paciente pac on (pac.rutpac = ficha.rutpac)
    join
    salud isapre on (isapre.id_salud = pac.id_salud) join
    fichapac_detalle ficha_det on (ficha_det.numficha = ficha.numficha);

---

create table ERRORES (
ID_ERROR NUMBER(2),
DESCRIPCION_ERROR VARCHAR2(255));

CREATE SEQUENCE SEQ_ERROR INCREMENT BY 1;

--






CREATE OR REPLACE PACKAGE pkg_prueba AS
    FUNCTION get_isapre_PAC(RUT VARCHAR2(10))
    RETURN NUMBER;

    FUNCTION get_fullname(RUT VARCHAR2(10))
    RETURN VARCHAR2;

    FUNCTION get_numeroformato(RUT NUMBER)
    RETURN VARCHAR2;

END pkg_prueba;
--cuerpo del packete
CREATE OR REPLACE PACKAGE BODY pkg_prueba AS
  --funcion para descuento isapre
  FUNCTION get_isapre_PAC(RUT VARCHAR2(10)) RETURN VARCHAR2 IS
      v_isapre NUMBER;
  BEGIN
    select
        isapre.porcentaje
    into v_isapre
    from
    paciente pac join
    salud isapre on (isapre.id_salud = pac.id_salud)
    WHERE RUTPAC = RUT;

    return v_isapre;


    EXCEPTION
    WHEN NO_DATA_FOUND THEN
        RETURN NULL;
    WHEN TOO_MANY_ROWS THEN
        RETURN NULL;
    END;

--funcion para obtener nombre de paciente
  FUNCTION get_fullname(RUT VARCHAR2(10)) RETURN VARCHAR2 IS
      v_fullname VARCHAR2(46);
  BEGIN

    SELECT
    nombre
    INTO v_fullname
    FROM
    paciente
    where rutpac = rut;
    RETURN v_fullname;
  EXCEPTION
  WHEN NO_DATA_FOUND THEN
    RETURN NULL;
  WHEN TOO_MANY_ROWS THEN
    RETURN NULL;
  END;

--
END pkg_prueba;