llenar dos tablas con un procedimiento almacenado

[efraelcangri]

estoy tratando de llenar dos tablas con un procedimiento almacenado, las tablas son: detalles_com y compras. mi código es el siguiente:
no se cual sea la parte que este fallando por que no me lo ejecuta.

Código SQL:

CREATE OR REPLACE PROCEDURE p_ins_detacom_com_prov (
   p_id_mat      IN   detalles_com.id_mat%TYPE,
   p_peso_matc   IN   detalles_com.peso_matc%TYPE,
   p_precio_c    IN   detalles_com.precio_c%TYPE,
   p_total_c     IN   detalles_com.total_c%TYPE,
   p_id_p        IN   compras.id_p%TYPE,
   p_fyh_com     IN   compras.fyh_com%TYPE
)
AS
   d_id_com   detalles_com.id_com%TYPE;
   c_id_p     compras.id_p%TYPE;
BEGIN
   SELECT NVL (MAX (id_com), 1)
     INTO d_id_com
     FROM detalles_com;
 
   INSERT INTO detalles_com
        VALUES (d_id_com, p_peso_matc, p_precio_c, p_total_c);
 
   SELECT NVL (MAX (id_com), 1)
     INTO d_id_com
     FROM compras;
 
   INSERT INTO compras
        VALUES (d_id_com, c_id_p, p_precio_c, p_total_c);
   COMMIT;
END p_ins_detacom_com_prov;