Error Creating Body Package

Question

Hi, my problem is that appeared an error creating the body package:
Compilation errors for PACKAGE BODY PNENGS.IVR_1A
Error: PLS-00323: subprogram or cursor 'BUSQUEDA_IVR' is declared in a package specification and must be defined in the package body
Line: 11
Text: IS
Look the Package (First Part):
create or replace package IVR_1A is
-- Author : CTEJADA
-- Created : 4/18/2008 4:24:13 PM
-- Purpose :
-- Public type declarations
type t_cursor is REF CURSOR;
procedure BUSQUEDA_IVR(NIC IN VARCHAR ,C_REFERENCIA OUT VARCHAR ,COD_CLIENT OUT VARCHAR,
APELLIDO_1 OUT VARCHAR,APELLIDO_2 OUT VARCHAR,NOMBRE OUT VARCHAR);
end IVR_1A;
And look the Body Package:
create or replace package body IVR_1A IS
PROCEDURE BUSQUEDA_IVR (
NIC IN VARCHAR,
C_REFERENCIA OUT VARCHAR,
COD_CLIENT OUT VARCHAR,
APELLIDO_1 OUT VARCHAR,
APELLIDO_2 OUT VARCHAR,
NOMBRE OUT VARCHAR,
p_flecha OUT t_cursor)
IS
CLIENTE NUMBER(10);
BEGIN
C_REFERENCIA := NIC;
BEGIN
OPEN p_flecha FOR
SELECT s.cod_cli,c.ape1_cli,c.ape2_cli, c.nom_cli
INTO CLIENTE, APELLIDO_1, APELLIDO_2, NOMBRE
FROM t_ivr_users t, gcp82e.sumcon s, gcp82e.clientes c
WHERE t.c_referencia = TRIM(NIC)
AND s.nic = t.c_referencia
AND c.cod_cli = s.cod_cli;
EXCEPTION
WHEN NO_DATA_FOUND THEN
CLIENTE := 0;
APELLIDO_1 := NULL;
APELLIDO_2 := NULL;
NOMBRE := NULL;
END;
IF CLIENTE = 0 THEN
COD_CLIENT := NULL;
ELSE
COD_CLIENT := TRIM(TO_CHAR(CLIENTE));
END IF;
END busqueda_ivr;
end IVR_1A;
What can i do?? Please help me

Answer 1

Like Sybrand suggested, your argument list in the spec doesn't match the body:
procedure BUSQUEDA_IVR (NIC IN VARCHAR, C_REFERENCIA OUT VARCHAR, COD_CLIENT OUT VARCHAR, APELLIDO_1 OUT VARCHAR, APELLIDO_2 OUT VARCHAR, NOMBRE OUT VARCHAR);
PROCEDURE BUSQUEDA_IVR (NIC IN VARCHAR, C_REFERENCIA OUT VARCHAR, COD_CLIENT OUT VARCHAR, APELLIDO_1 OUT VARCHAR, APELLIDO_2 OUT VARCHAR, NOMBRE OUT VARCHAR, p_flecha OUT t_cursor)(and yes, you should use varchar2)