46: h_count number;
47: ret boolean;
48: h_mesg_name varchar2(30);
49: h_mesg_str varchar2(2000);
50: h_cat_segs fa_rx_shared_pkg.Seg_Array;
51: h_concat_str varchar2(200);
52: h_currency varchar2(15);
53: h_basic_rate number;
54:
235:
236: open c_segs;
237: loop
238:
239: FETCH c_segs into fa_rx_shared_pkg.g_seg_struct.tabname,
240: fa_rx_shared_pkg.g_seg_struct.table_id,
241: fa_rx_shared_pkg.g_seg_struct.colname,
242: fa_rx_shared_pkg.g_seg_struct.segment_num,
243: fa_rx_shared_pkg.g_seg_struct.delimiter;
236: open c_segs;
237: loop
238:
239: FETCH c_segs into fa_rx_shared_pkg.g_seg_struct.tabname,
240: fa_rx_shared_pkg.g_seg_struct.table_id,
241: fa_rx_shared_pkg.g_seg_struct.colname,
242: fa_rx_shared_pkg.g_seg_struct.segment_num,
243: fa_rx_shared_pkg.g_seg_struct.delimiter;
244:
237: loop
238:
239: FETCH c_segs into fa_rx_shared_pkg.g_seg_struct.tabname,
240: fa_rx_shared_pkg.g_seg_struct.table_id,
241: fa_rx_shared_pkg.g_seg_struct.colname,
242: fa_rx_shared_pkg.g_seg_struct.segment_num,
243: fa_rx_shared_pkg.g_seg_struct.delimiter;
244:
245: if (c_segs%NOTFOUND) then
238:
239: FETCH c_segs into fa_rx_shared_pkg.g_seg_struct.tabname,
240: fa_rx_shared_pkg.g_seg_struct.table_id,
241: fa_rx_shared_pkg.g_seg_struct.colname,
242: fa_rx_shared_pkg.g_seg_struct.segment_num,
243: fa_rx_shared_pkg.g_seg_struct.delimiter;
244:
245: if (c_segs%NOTFOUND) then
246: exit;
239: FETCH c_segs into fa_rx_shared_pkg.g_seg_struct.tabname,
240: fa_rx_shared_pkg.g_seg_struct.table_id,
241: fa_rx_shared_pkg.g_seg_struct.colname,
242: fa_rx_shared_pkg.g_seg_struct.segment_num,
243: fa_rx_shared_pkg.g_seg_struct.delimiter;
244:
245: if (c_segs%NOTFOUND) then
246: exit;
247: end if;
246: exit;
247: end if;
248:
249: -- load the table.
250: if (fa_rx_shared_pkg.g_seg_count = 0) then /* initialize the table. */
251: fa_rx_shared_pkg.g_seg_table.delete;
252: end if;
253: fa_rx_shared_pkg.g_seg_count := fa_rx_shared_pkg.g_seg_count + 1;
254:
247: end if;
248:
249: -- load the table.
250: if (fa_rx_shared_pkg.g_seg_count = 0) then /* initialize the table. */
251: fa_rx_shared_pkg.g_seg_table.delete;
252: end if;
253: fa_rx_shared_pkg.g_seg_count := fa_rx_shared_pkg.g_seg_count + 1;
254:
255: fa_rx_shared_pkg.g_seg_table(fa_rx_shared_pkg.g_seg_count) := fa_rx_shared_pkg.g_seg_struct;
249: -- load the table.
250: if (fa_rx_shared_pkg.g_seg_count = 0) then /* initialize the table. */
251: fa_rx_shared_pkg.g_seg_table.delete;
252: end if;
253: fa_rx_shared_pkg.g_seg_count := fa_rx_shared_pkg.g_seg_count + 1;
254:
255: fa_rx_shared_pkg.g_seg_table(fa_rx_shared_pkg.g_seg_count) := fa_rx_shared_pkg.g_seg_struct;
256:
257:
251: fa_rx_shared_pkg.g_seg_table.delete;
252: end if;
253: fa_rx_shared_pkg.g_seg_count := fa_rx_shared_pkg.g_seg_count + 1;
254:
255: fa_rx_shared_pkg.g_seg_table(fa_rx_shared_pkg.g_seg_count) := fa_rx_shared_pkg.g_seg_struct;
256:
257:
258: end loop;
259: close c_segs;
493: into h_currency
494: from gl_sets_of_books
495: where set_of_books_id = FARX_C_WD.sob_id;
496:
497: fa_rx_shared_pkg.concat_category(h_cat_struct,
498: X_cat_id,
499: h_concat_str,
500: h_cat_segs);
501: