[Home] [Help]
8957: --- mark them as level 0 , then get the immediate children of these parents ( level 1)
8958: --- then get the immediate children of the level 1 records and so on until no records are found
8959: --- process/import the ICC records starting from level 0
8960: **************************************************************************************************/
8961: PROCEDURE Build_ICC_Hierarcy_From_Intf ( x_icc_hier_tbl IN OUT NOCOPY ego_ICC_Hier_Tbl_Type
8962: ,x_no_levels OUT NOCOPY NUMBER
8963: )
8964: IS
8965: l_proc_name VARCHAR2(30) := 'Build_ICC_Hierarcy_From_Intf';
8964: IS
8965: l_proc_name VARCHAR2(30) := 'Build_ICC_Hierarcy_From_Intf';
8966:
8967: l_icc_hier_rec ego_ICC_Obj_Type;
8968: l_icc_hier_tbl ego_ICC_Hier_Tbl_Type := ego_ICC_Hier_Tbl_Type();
8969: i number := 0;
8970: l_count number := 0;
8971: l_records_found boolean;
8972: l_level number := 0;
9008: from MTL_ITEM_CAT_GRPS_INTERFACE MICGI
9009: where parent_catalog_group_name
9010: in (
9011: select item_catalog_name
9012: from table ( cast (l_icc_hier_tbl as ego_ICC_Hier_Tbl_Type) ) a
9013: where a.icc_level = p_level
9014: )
9015: AND ( ( G_SET_PROCESS_ID IS NULL )
9016: OR
9024:
9025: cursor cur_fetch_recs
9026: is
9027: select item_catalog_name , icc_level
9028: from table ( cast (l_icc_hier_tbl as ego_ICC_Hier_Tbl_Type ))
9029: ;
9030:
9031:
9032: BEGIN
9236: )
9237: IS
9238:
9239: l_ego_icc_tbl ego_icc_tbl_type;
9240: l_ego_icc_hier_tbl ego_ICC_Hier_Tbl_Type := ego_ICC_Hier_Tbl_Type();
9241: l_counter NUMBER := 0;
9242: l_level NUMBER := 0;
9243: l_ag_assoc_tbl ego_ag_assoc_tbl_type;
9244: l_func_params_tbl ego_func_param_map_tbl_type;
9268: )
9269: AND process_status = G_PROCESS_STATUS_INITIAL
9270: AND item_catalog_name IN (
9271: SELECT item_catalog_name
9272: FROM table ( cast (l_ego_icc_hier_tbl as ego_ICC_Hier_Tbl_Type) ) a
9273: WHERE a.icc_level = p_level
9274: )
9275: ;
9276: