index-by集合问题

包头：

create or replace package appendant_change_part_version is

  -- Author  : gaijing
  -- Created : 2008/11/24 ¤U¤È 02:33:16
  -- Purpose :
type t_part_id_array is table of part_family.part_id%type index by pls_integer
 
 procedure update_part_family;
                       
 procedure sameold_part_family(p_part_id      in t_sub_part_id_array,
                               v_out out varchar2);
end appendant_change_part_version;

====包体

create or replace package body appendant_change_part_version is

 procedure sameold_part_family(p_part_id      in t_sub_part_id_array,
                                p_part_name    in t_sub_part_name_array,
                                p_parent_id    in t_part_id_array,
                                p_parent_name  in t_part_name_array,
                                p_owner        in t_owner_array,
                                p_file_name    in t_file_name_array,
                                p_project_name in project_family.project_name%type,
                                p_version      in t_version_array,
                                  v_out out varchar2) is
    v_count_old pls_integer;
    v_count_min pls_integer;
  begin

     p_part_id(1):='1';
    p_part_id(2):='2';
  end;
end appendant_change_part_version;
=====
红色部分报错：表达式p_part_id无法作为指定 目标使用，为什么？？？？