CREATE OR REPLACE PACKAGE testingPackage 
AS 
 
    TYPE PHONE IS RECORD 
        ( 
        lfMobileNumber      NUMBER, 
        lfPhoneNumber       NUMBER 
        ); 
    TYPE arrPhoneType IS TABLE OF PHONE INDEX BY BINARY_INTEGER; 
    INTS arrPhoneType; 
 
    FUNCTION ToDo 
        ( 
        szName          IN VARCHAR2, 
        szList          IN arrPhoneType DEFAULT CAST(NULL AS arrPhoneType) 
        ) 
    RETURN VARCHAR2; 
END testingPackage; 

create or replace package body testingPackage  
as 
  FUNCTION ToDo 
        ( 
        szName          IN VARCHAR2, 
        szList          IN arrPhoneType DEFAULT CAST(NULL AS arrPhoneType) 
        ) 
    RETURN VARCHAR2 
  is 
  begin 
    return 'foo'; 
  end; 
end; 

CREATE OR REPLACE PACKAGE testingFunction 
as 
  FUNCTION FunctionA 
    RETURN VARCHAR2; 
END testingFunction; 

CREATE OR REPLACE PACKAGE BODY testingFunction 
AS 
    FUNCTION FunctionA 
    RETURN VARCHAR2 
    IS 
        szResult            VARCHAR2(2000); 
        arrTest             testingPackage.arrPhoneType; 
    BEGIN 
        arrTest(0).lfMobileNumber := 12345678; 
        arrTest(0).lfPhoneNumber := 87654321; 
         
        SELECT  NVL(testingPackage.ToDo('Kitty',arrTest),'') 
        INTO    szResult 
        FROM    Dual; 
 
        RETURN szResult; 
    END FunctionA; 
END testingFunction;