set serveroutput on

declare
    v_item               varchar2(240) := 'AS54888'; -- item to explode
    v_org                varchar2(3) := 'M1';        -- org in which item is exploded

    v_cnt                NUMBER := 0;

    v_err_msg            varchar2(240);
    v_err_code           NUMBER := 0;
    v_verify_flag        NUMBER := 0; -- DEFAULT 0
    v_online_flag        NUMBER := 2; -- DEFAULT 0
    v_item_id            NUMBER := 0; -- set to inventory_item_id of item to explode
    v_org_id             NUMBER := 0; -- set to organization_id of item to explode
    v_alternate          VARCHAR2(240) := NULL; -- DEFAULT null
    v_list_id            NUMBER := 0; -- for reports (default 0)
    v_order_by           NUMBER := 1; -- DEFAULT 1
    v_grp_id             NUMBER := 0; --
    v_session_id         NUMBER := 0; -- DEFAULT 0
    v_req_id             NUMBER := 0; -- DEFAULT 0
    v_prgm_appl_id       NUMBER := -1; -- DEFAULT -1
    v_prgm_id            NUMBER := -1; -- DEFAULT -1
    v_levels_to_explode NUMBER := 1; -- DEFAULT 1
    v_bom_or_eng         NUMBER := 1; -- DEFAULT 1
    v_impl_flag          NUMBER := 1; -- DEFAULT 1
    v_plan_factor_flag   NUMBER := 2; -- DEFAULT 2
    v_incl_lt_flag       NUMBER := 2; -- DEFAULT 2
    v_explode_option     NUMBER := 2; -- DEFAULT 2
    v_module             NUMBER := 2; -- DEFAULT 2
    v_cst_type_id        NUMBER := 0; -- DEFAULT 0
    v_std_comp_flag      NUMBER := 0; -- DEFAULT 0
    v_rev_date           VARCHAR2(240);   --
    v_comp_code          VARCHAR2(240) := NULL; --
    v_expl_qty           NUMBER := 1; -- DEFAULT 1

begin

    -- item revision will be based on this explode date.
    -- In this example, we use current date/time
    v_rev_date := to_char(SYSDATE);

    -- Find org_id
    select mp.organization_id into v_org_id
    from MTL_PARAMETERS mp
    where mp.organization_code = v_org;

    -- Find item_id
    select inventory_item_id into v_item_id
    from MTL_ITEM_FLEXFIELDS
    where organization_id = v_org_id and item_number = v_item;

    -- v_grp_id is a unique identifier for this run of the exploder
    select bom_explosion_temp_s.nextval into v_grp_id from dual;

    -- determine maximum levels to explode from bom_explosions
    select maximum_bom_level into v_levels_to_explode
    from bom_parameters where organization_id = v_org_id;

    apps.bompexpl.exploder_userexit (
    v_verify_flag,
    v_org_id,
    v_order_by,
    v_grp_id,
    v_session_id,
    v_levels_to_explode,
    v_bom_or_eng,
    v_impl_flag,
    v_plan_factor_flag,
    v_explode_option,
    v_module,
    v_cst_type_id,
    v_std_comp_flag,
    v_expl_qty,
    v_item_id,
    v_alternate,
    v_comp_code,
    v_rev_date,
    v_err_msg,
    v_err_code);

    if ( v_err_code <> 0 ) then
    rollback;
    dbms_output.put_line('ERROR: ' || v_err_msg);
    else
    select count(*) into v_cnt from bom_explosion_temp where group_id=v_grp_id;
    dbms_output.put_line('Count=' || v_cnt);
    commit;
    dbms_output.put_line('.');
    dbms_output.put_line('Group Id=' || v_grp_id);
    dbms_output.put_line('Org    =' || v_org);
    dbms_output.put_line('Item   =' || v_item);
    dbms_output.put_line('Ord Id =' || v_org_id);
    dbms_output.put_line('Item Id=' || v_item_id);
    dbms_output.put_line('Levels =' || v_levels_to_explode);

    end if;
end;
/