355: delim VARCHAR2(1);
356: col_name VARCHAR2(25);
357: v_return INTEGER;
358: num_segs NUMBER := 0;
359: segarr FA_RX_SHARED_PKG.Seg_Array;
360: h_cat_flex_struct NUMBER;
361: h_loc_flex_struct NUMBER;
362: h_key_flex_struct NUMBER;
363: -- from/to expense accounts in concatenated strings
420: CLOSE get_flex_structs;
421:
422: -- Get old and new category.
423: IF mr_rec.from_category_id IS NOT NULL THEN
424: FA_RX_SHARED_PKG.Concat_Category (
425: struct_id => h_cat_flex_struct,
426: ccid => mr_rec.from_category_id,
427: concat_string => X_Old_Category,
428: segarray => segarr);
429: ELSE
430: X_Old_Category := NULL;
431: END IF;
432:
433: FA_RX_SHARED_PKG.Concat_Category (
434: struct_id => h_cat_flex_struct,
435: ccid => mr_rec.to_category_id,
436: concat_string => X_New_Category,
437: segarray => segarr);
437: segarray => segarr);
438:
439: -- Get location in concatenated string.
440: IF mr_rec.location_id IS NOT NULL THEN
441: FA_RX_SHARED_PKG.Concat_Location (
442: struct_id => h_loc_flex_struct,
443: ccid => mr_rec.location_id,
444: concat_string => X_Location,
445: segarray => segarr);
448: END IF;
449:
450: -- Get asset key.
451: IF mr_rec.asset_key_id IS NOT NULL THEN
452: FA_RX_SHARED_PKG.Concat_Asset_Key (
453: struct_id => h_key_flex_struct,
454: ccid => mr_rec.asset_key_id,
455: concat_string => X_Asset_Key,
456: segarray => segarr);