求助：包头已经正常编译，包体无法正常编译老报错

包头已正常编译，包体无法通过编译报错：包头如下：
CREATE OR REPLACE PACKAGE BI_PACKCARD_PACKAGE IS
city_emp varchar(60);
    TYPE PACKCARD_CURSOR IS REF CURSOR;
    PROCEDURE BI_PACKCARD_DELIVER (DELIVER_PACKCARD_CURSOR OUT PACKCARD_CURSOR,period_num in number,city in  varchar2,year_num in number,pack in varchar2,manufacturers in  varchar2,brand in varchar2,packfacturers in varchar2,party in varchar2);
   END BI_PACKCARD_PACKAGE;
 包体如下：
CREATE OR REPLACE PACKAGE BODY BI_PACKCARD_PACKAGE IS
    PROCEDURE BI_PACKCARD_DELIVER (DELIVER_PACKCARD_CURSOR OUT PACKCARD_CURSOR,period_num in number,city in varchar2,year_num in number,pack in varchar2,brand in varchar2,packfacturers in varchar2,manufacturers in varchar2,party in varchar2) IS
city_emp varchar(60);
 BEGIN
 if party !='省业务支撑中心' then
   city_emp :=party;
else
   city_emp:=city;
   
end if; if period_num=0 then
 OPEN DELIVER_PACKCARD_CURSOR  FOR
  SELECT a.s_year,
...............
...........
...........
 end  BI_PACKCARD_DELIVER;  end BI_PACKCARD_PACKAGE;报错信息附件中有
老报错提示 subprogram or cursor 'BI_PACKCARD_DELIVER' is declared in a package specification and is defined in the package body
求高手给小弟解答下，刚学习啥都不懂，先谢啦