[Home] [Help]
973: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) return boolean IS
974:
975: l_cat_struct number;
976: l_concat_cat varchar2(210);
977: l_cat_segs fa_rx_shared_pkg.Seg_Array;
978: i integer:= 0;
979: l_seg varchar2(30);
980: l_err_stage varchar2(100);
981:
1005: h_flex_code varchar2(10) := 'CAT#';
1006: h_appl_id number := 140;
1007: h_appl_short_name varchar2(10) := 'OFA';
1008: concat_string varchar2(100);
1009: segarray fa_rx_shared_pkg.Seg_Array;
1010: cursor segcolumns is
1011: select distinct g.application_column_name, g.segment_num
1012: from fnd_columns c, fnd_id_flex_segments g
1013: WHERE g.application_id = h_appl_id
1027: select category_flex_structure
1028: into l_cat_struct
1029: from fa_system_controls;
1030:
1031: l_err_stage:= 'fa_rx_shared_pkg.concat_category';
1032: -- dbms_output.put_line(l_err_stage);
1033:
1034: -- bug 3225015
1035: -- Replacing call to fa_rx_shared_pkg, with code underneatch
1031: l_err_stage:= 'fa_rx_shared_pkg.concat_category';
1032: -- dbms_output.put_line(l_err_stage);
1033:
1034: -- bug 3225015
1035: -- Replacing call to fa_rx_shared_pkg, with code underneatch
1036: -- due to specific requirement, not to be shared.
1037: /* fa_rx_shared_pkg.concat_category (
1038: struct_id => l_cat_struct,
1039: ccid => px_asset_cat_rec_new.category_id,
1033:
1034: -- bug 3225015
1035: -- Replacing call to fa_rx_shared_pkg, with code underneatch
1036: -- due to specific requirement, not to be shared.
1037: /* fa_rx_shared_pkg.concat_category (
1038: struct_id => l_cat_struct,
1039: ccid => px_asset_cat_rec_new.category_id,
1040: concat_string => l_concat_cat,
1041: segarray => l_cat_segs);
1110: concat_string := rtrim(concat_string,delim);
1111:
1112: dbms_sql.close_cursor(v_cursorid);
1113:
1114: -- End replacing fa_rx_shared_pkg. This is what we finally need.
1115: l_concat_cat := concat_string;
1116:
1117: --
1118: -- determine whether balancing seg of old and new cat is same