Problem with Varray( Collection Types)

[LKBrwn_DBA]

Set the out list to IN OUT:

CREATE OR REPLACE PACKAGE Business_refdata.Esb_service1_ui
AS
    TYPE Outputlist IS VARRAY (25) OF VARCHAR (10);
    TYPE Inputlist IS VARRAY (25) OF VARCHAR (10);

    PROCEDURE Pr_get_leads1 (P_bus_cat_code_ss IN Inputlist,
                             Out_details IN OUT Outputlist);
END Esb_service1_ui;
/


CREATE OR REPLACE PACKAGE BODY Business_refdata.Esb_service1_ui
AS
    PROCEDURE Pr_get_leads1 (P_bus_cat_code_ss IN Inputlist,
                             Out_details IN OUT Outputlist)
    IS
        I         NUMBER;
        V_count   NUMBER;
    BEGIN
        FOR I IN 1 .. P_bus_cat_code_ss.COUNT
        LOOP
            SELECT   COUNT ( * )
              INTO   V_count
              FROM       Business_category
                     INNER JOIN
                         Leads
                     ON Business_category.Bus_cat_id = Leads.Bus_cat_id
             WHERE       Bus_cat_code_ss = P_bus_cat_code_ss (I)
                     AND Leads.Bus_cat_id < 2000000000
                     AND Leads.Bus_cat_id > 1;

            IF (V_count > 0)
            THEN
                Out_details (I) := 'Y';
            ELSE
                Out_details (I) := 'N';
            END IF;
        END LOOP;
    END;
END Esb_service1_ui;
/

DECLARE
    P_bus_cat_code_ss Business_refdata.Esb_service1_ui.Inputlist
            := Business_refdata.Esb_service1_ui.Inputlist (0000000019,
               0000000026, 0000000037, 0000000019) ;
    Out_details Business_refdata.Esb_service1_ui.Outputlist
            := Business_refdata.Esb_service1_ui.Outputlist (10) ;
BEGIN
    Business_refdata.Esb_service1_ui.Pr_get_leads1 
            (P_bus_cat_code_ss, Out_details);
END;
/

And next time please format your code.