CREATE OR REPLACE PACKAGE "MIGRPRA_DBK_2_MIGR_RISCATTI" AS
PROCEDURE DBP_2_MIGRA_PRATICA (p_id_pratica in number,
                                  p_descr_errore out varchar2,
                                   p_flag_esito out number);

END;
/
CREATE OR REPLACE PACKAGE BODY "MIGRPRA_DBK_2_MIGR_RISCATTI" AS
v_descr_errore varchar2(1000):=NULL;
p_descr_errore varchar2(1000):=NULL;
p_flag_esito number:=0;
OUT_VR2_ERR  VARCHAR2(100);

PROCEDURE DBP_2_MIGRA_PRATICA (p_id_pratica   in  number,
                                  p_descr_errore out varchar2,
                                  p_flag_esito   out number) AS
TYPE TIPO_IN_RECORD_VALCOM IS RECORD
  (PCPR_ID_VA	     PCPR_PRATICA_CL_INPRI.PCPR_ID_VA%TYPE );
REC_MIGRPRA_VALCOM TIPO_IN_RECORD_VALCOM;
TYPE TYP_IN_LISTA_VALCOM IS TABLE OF TIPO_IN_RECORD_VALCOM;
IN_LISTA_VALCOM TYP_IN_LISTA_VALCOM;
 v_ret_funct_migr_pratica number:=null;
BEGIN
 p_flag_esito:=0;
 v_descr_errore:=NULL;
SELECT
 PCPR_ID_VA                PCPR_ID_VA
INTO REC_MIGRPRA_VALCOM
FROM PCPR_PRATICA_CL_INPRI
WHERE PCPR_ID_VA = p_id_pratica;
IN_LISTA_VALCOM:= TYP_IN_LISTA_VALCOM(REC_MIGRPRA_VALCOM);
v_ret_funct_migr_pratica:= prova.DBF_MIGRA_PRATICA_BDUBDN(IN_LISTA_VALCOM => IN_LISTA_VALCOM,OUT_VR2_ERR => OUT_VR2_ERR);
            IF v_ret_funct_migr_pratica!=0
             THEN             
             p_descr_errore:=v_descr_errore;
             p_flag_esito:=1;
             rollback;
             RETURN;
            END IF;  
  END DBP_2_MIGRA_PRATICA;
END MIGRPRA_DBK_2_MIGR_RISCATTI;
/

create or replace package PROVA is
   TYPE TYPE_IN_RECORD_VALCOM IS RECORD
  (PCPR_ID_VA	               NUMBER(12) );
  TYPE TIPO_IN_RECORD_VALCOM IS TABLE OF TYPE_IN_RECORD_VALCOM;
  FUNCTION DBF_MIGRA_PRATICA_BDUBDN
  ( IN_LISTA_VALCOM IN TIPO_IN_RECORD_VALCOM,
  OUT_VR2_ERR     OUT VARCHAR2 )RETURN NUMBER;
end PROVA;
/
create or replace package body PROVA is
G_PCPR_ID_VA      PCPR_PRATICA_CL_inpri.PCPR_ID_VA%TYPE;
G_XXXX_BDST_ERI_VR     varchar2(10);
FUNCTION DBF_MIGRA_PRATICA_BDUBDN
  (IN_LISTA_VALCOM IN TIPO_IN_RECORD_VALCOM,
   OUT_VR2_ERR     OUT VARCHAR2)RETURN NUMBER IS
  EX_SU_FUNZIONE_CHIAMATA EXCEPTION;
  LC_RET_VAL              NUMBER;
  BEGIN
      G_PCPR_ID_VA     :=IN_LISTA_VALCOM(1).PCPR_ID_VA     ;
      BEGIN
        SELECT '09' INTO   G_XXXX_BDST_ERI_VR FROM   dual;
      EXCEPTION
        WHEN OTHERS THEN
          OUT_VR2_ERR:='2-'||SQLERRM;
          RETURN SQLCODE;
      END;
  RETURN 0;
  EXCEPTION
    WHEN EX_SU_FUNZIONE_CHIAMATA THEN
      OUT_VR2_ERR:='3-'||OUT_VR2_ERR;
      RETURN LC_RET_VAL;
  END DBF_MIGRA_PRATICA_BDUBDN;
end PROVA;
/

SQL> create or replace package prova_pkg is
  2    type type_test is table of number;
  3
  4    procedure test (x type_test);
  5  end;
  6  /

Package created.

SQL>
SQL> create or replace package calling_pkg is
  2    type type_test is table of number;
  3  end;
  4  /

Package created.

SQL>
SQL> create or replace package body calling_pkg is
  2    dummy type_test;
  3  begin
  4    prova_pkg.test (dummy);
  5  end;
  6  /

Warning: Package Body created with compilation errors.

SQL> show errors;
Errors for PACKAGE BODY CALLING_PKG:

LINE/COL ERROR
-------- -----------------------------------------------------------------
4/3      PL/SQL: Statement ignored
4/3      PLS-00306: wrong number or types of arguments in call to 'TEST'
SQL>
SQL> create or replace package body calling_pkg is
  2    dummy PROVA_PKG.type_test;
  3  begin
  4    prova_pkg.test (dummy);
  5  end;
  6  /

Package body created.