A challenging problem

Question

Hi Experts,
I have a package.procedure in which the procedure is as follows:-
CREATE OR REPLACE PACKAGE BODY xx_my_pkg as
PROCEDURE items_exist(P_Source_Organization varchar2 ,P_Dest_Organization  varchar2 ,P_assembly_item varchar2)
   AS
      l_item_table          ego_item_pub.item_tbl_type;
      x_item_table          ego_item_pub.item_tbl_type;
  CURSOR items_exist
      IS
         SELECT DISTINCT msi.*
                    FROM cux_bom_export_temp a, mtl_system_items_b msi
                   WHERE a.component_item_id = msi.inventory_item_id
                     AND msi.organization_id = a.organization_id
                     AND a.organization_id = p_source_org_id
                     AND a.component_item_id NOT IN (
                                                   SELECT inventory_item_id
                                                     FROM mtl_system_items_b
                                                    WHERE organization_id =
                                                                         p_dest_org_id);
   BEGIN
SELECT organization_id into p_source_org_id
           FROM mtl_parameters
          WHERE organization_code =P_source_Organization ;
              FOR i IN items_exist
      LOOP
         --FIRST Item definition
         l_item_table (1).transaction_type := 'CREATE';
                        -- Replace this with 'UPDATE' for update transaction.
         l_item_table (1).organization_code := P_Dest_Organization;
         l_item_table (1).long_description := 'Create test item';
         l_item_table (1).inventory_item_id := i.inventory_item_id;
         l_item_table (1).segment1 := i.segment1;
         l_item_table (1).segment2 := i.segment2;
         l_item_table (1).segment3 := i.segment3;
         l_item_table (1).segment4 := i.segment4;
         l_item_table (1).segment5 := i.segment5;
         l_item_table (1).segment6 := i.segment6;
         l_item_table (1).segment7 := i.segment7;
         l_item_table (1).segment8 := i.segment8;
         l_item_table (1).segment9 := i.segment9;
         l_item_table (1).segment10 := i.segment10;
ego_item_pub.process_items (p_api_version        => 1.0,
                                     p_init_msg_list      => fnd_api.g_true,
                                     p_commit             => fnd_api.g_true,
                                     p_item_tbl           => l_item_table,
                                     x_item_tbl           => x_item_table,
                                     x_return_status      => x_return_status,
                                     x_msg_count          => x_msg_count
end loop;
exception
end;Calling procedure
begin
                     xx_my_pkg.ITEMS_EXIST('M1','V1','38085-40368-20');
                      EXCEPTION
                      WHEN OTHERS THEN
                      DBMS_OUTPUT.PUT_LINE(SQLERRM||'   '||SQLCODE);
                      END;My requirement :
I want to have a fourth parameter which will pass some of the attributes of the l_item_table (not all ) .The user wants to execute this procedure in a way like this:
begin
                     xx_my_pkg.ITEMS_EXIST('M1','V1','38085-40368-20',v_tab);
                      EXCEPTION
                      WHEN OTHERS THEN
                      DBMS_OUTPUT.PUT_LINE(SQLERRM||'   '||SQLCODE);
                      END;
DECLARE
q_tab is record(l_item_tbl ego_item_pub.item_tbl_type,par_name varchar2(100),par_value number);
v_tab  is table of q_tab index by binary integer;
BEGIN
v_tab.EXTEND(3);
v_tab(1).PAR_NAME:=segment1;
v_tab(1).PAR_VAL:=4444;
v_tab(1).PAR_NAME:=inventory_item_id;
v_tab(1).PAR_VAL:=2345;
v_tab(1).PAR_NAME:=segment3;
V-tab(1).PAR_VAL:=2222;
xx_my_pkg.ITEMS_EXIST('M1','V1','38085-40368-20',v_tab);
                      EXCEPTION
                      WHEN OTHERS THEN
                      DBMS_OUTPUT.PUT_LINE(SQLERRM||'   '||SQLCODE);
                      END;
END;
-----The problem i am facing is how to assign this par_name to  l_item_table (1).segment1 inside the procedure?

Answer 1

You've posted a great deal of code specific to your system with an unclear question (i at least don't understand what you're asking).
Can you boil this down to a simple example that can run on any system (give us all the types and what not required for the example) and clarify your question?